[Calc][Macro] Utilisation de RegExp

[crochepatte]

Hello,

Je suis tout novice en Macro OpenOffice, et j'avoue que j'ai pas mal de mal à savoir ce qui est possible...

Voila, j'aimerai savoir si il est possible d'utiliser des expressions régulière...Voila une fonction qui ne fonctionne pas, mais c'est juste pour avoir un appercu de mes besoins

Function Check_phone (phone As String) As Boolean

	Set reg = New RegExp
	reg.Pattern = "^+?\d{6,10}$"
	
	Check_Mail = reg.Test(phone)

End Function

Merci

[Bidouille]

Si tu es novice, tu t'engages peut être dans quelque chose de compliqué.
Ce sujet en parle : http://user.services.openoffice.org/...opic12092.html

Bon courage

[crochepatte]

Merci pour le lien fort utile...

Donc j'ai pu avancé...
J'ai fait deux fonctions, mais hélas, je ne sais pas comment les appeler dans ma procédure principale...Cela ne fonctionne pas...

De plus, juste une remarque...les fonctions seules ne compile pas non plus...J'ai l'impression qu'il ne tolere pas les variables de mes fonctions puiqu'elles ne sont instanciés qu'a l'appel de ces fonctions...

J'espere que qqn pourra m'aider....

Sub Essai()

Dim int1,int2 As Integer
int1 = Check_Phone ("00006644")
int2 = Check_Mail ("mail@mail.fr") 

End Sub

Function Check_Phone (phone As String) As Integer
	
	Dim oTextSearch as Object
	Dim oSearchOpts as Object
	Dim oResult as Object
	
	oTextSearch = createUnoService("com.sun.star.util.TextSearch")
	oSearchOpts = CreateUnoStruct("com.sun.star.util.SearchOptions")
	oSearchOpts.algorithmType = com.sun.star.util.SearchAlgorithms.REGEXP
	oSearchOpts.searchFlag = com.sun.star.util.SearchFlags.REG_NOSUB
	  ' REG_NOSUB est le flag pour que ça renvoie juste vrai ou faux,
	  ' REG_EXTENDED permettrait d'avoir plus d'infos
	oSearchOpts.searchString = "^+?\d{6,10}$"
	oTextSearch.setOptions(oSearchOpts)
	
	oResult = oTextSearch.searchForward( phone, 0, Len(phone) )
	
	Check_Phone = oResult.subRegExpressions

End Function


Function Check_Mail (mail As String) As Integer
	
	Dim oTextSearch as Object
	Dim oSearchOpts as Object
	Dim oResult as Object
	
	oTextSearch = createUnoService("com.sun.star.util.TextSearch")
	oSearchOpts = CreateUnoStruct("com.sun.star.util.SearchOptions")
	oSearchOpts.algorithmType = com.sun.star.util.SearchAlgorithms.REGEXP
	oSearchOpts.searchFlag = com.sun.star.util.SearchFlags.REG_NOSUB
	  ' REG_NOSUB est le flag pour que ça renvoie juste vrai ou faux,
	  ' REG_EXTENDED permettrait d'avoir plus d'infos
	oSearchOpts.searchString = "@"
	oTextSearch.setOptions(oSearchOpts)
	
	oResult = oTextSearch.searchForward( mail, 0, Len(mail) )
	
	Check_Mail = oResult.subRegExpressions

End Function

[crochepatte]

Bon ben c bon, j'ai réussi...
J'avoue que je ne sais pas comment...Mais ça fonctionne très bien...

Je mets le post en résolu