Discussion :

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
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....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
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