NeriXs101
Messages postés lundi 4 mai 2015Date d'inscription
11 janvier 2018
Dernière intervention
-
18 déc. 2017 à 14:04 - Dernière réponse : NeriXs101
Messages postés lundi 4 mai 2015Date d'inscription
11 janvier 2018
Dernière intervention
- 20 déc. 2017 à 21:32
Dim myarray
myarray = Array("1","2","3","4")
For i=0 To UBound(myarray)
MsgBox myarray(i),,"for i=" & i
Next
For Each item In myarray
MsgBox item,,"for each"
Next
Option Explicit
Const texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/"
Dim myarray, item
myarray = Array("\\", "\*", "-")
For Each item In myarray
Recherche item
Next
Sub Recherche (Caractere)
Dim regex, matches
Dim Pattern, match, msg, Sortie, i
Pattern = "([^" & Caractere & "]|^)(" & Caractere & ")(?!" & Caractere & ")"
Set regex = New RegExp
regex.Pattern = Pattern
regex.Global = True
Set matches = regex.Execute(texte)
msg = "Le pattern " & Pattern & " retourne " & matches.Count & " captures"
For Each match In matches
For i = 1 To match.Submatches.Count - 1 Step 2
If Not (match.Submatches(i) = "") Then
msg = msg & (vbcrlf & "Correspondance trouvée """ & _
match.Submatches(i) & """ en position: " & _
match.FirstIndex + Len(match.Value) - 1)
End If
Next
Next
MsgBox msg,,"recherche sur " & Caractere
Set matches = Nothing
Set regex = Nothing
End Sub
Option Explicit
Const texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/"
Dim objDico
Dim myarray, arrDicoItem
Dim item, strList, cprovisoire
Dim i, t, bpermute
myarray = Array("\\", "\*", "-")
Set objDico = CreateObject("Scripting.Dictionary")
For Each item In myarray
Recherche(item)
Next
' Tri
arrDicoItem = objDico.Items
bpermute = True
Do While bpermute = True 'Il faut au moins parcourir une fois
bpermute = False 'On tourne tant que l'on bouge des valeurs
For t = 1 To UBound(arrDicoItem)-1
If CInt(Split(arrDicoItem(t),": ")(1)) > CInt(Split(arrDicoItem(t + 1),": ")(1)) Then
cprovisoire = arrDicoItem(t)
arrDicoItem(t) = arrDicoItem(t + 1)
arrDicoItem(t + 1) = cprovisoire
bpermute = True
End If
Next
Loop
'Affichage du résultat classé
strList = objDico.Count & " correspondance(s) trouvée(s):" & vbcrlf
For i = 0 To UBound(arrDicoItem)
strList = strList & arrDicoItem(i) &vbCrLf
Next
Set objDico = Nothing
MsgBox strList,,"Liste"
WScript.Quit
Sub Recherche(Caractere)
Dim regex, matches
Dim Pattern, match, i
Pattern = "([^" & Caractere & "]|^)(" & Caractere & ")(?!" & Caractere & ")"
Set regex = New RegExp
regex.Pattern = Pattern
regex.Global = True
Set matches = regex.Execute(texte)
For Each match In matches
For i = 1 To match.Submatches.Count - 1 Step 2
If Not (match.Submatches(i) = "") Then
objDico.Add match.FirstIndex + Len(match.Value) - 1, _
"Correspondance trouvée """ & _
match.Submatches(i) & """ en position: " & _
match.FirstIndex + Len(match.Value) - 1
End If
Next
Next
Set matches = Nothing
Set regex = Nothing
End Sub
NeriXs101
Messages postés lundi 4 mai 2015Date d'inscription
11 janvier 2018
Dernière intervention -18 déc. 2017 à 20:25
0
Merci
Merci cs_JMO
Décidément je ne m'en sort pas.
Voici le VBA complet que j'ai commencé a convertir:
Sub Macro1 Dim texte' As String texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/"
'For Each Caractere In Array("\\", "\*", "-") 'Recherche Caractere, texte 'Next
Dim myarray myarray = Array("\\", "\*", "-") For Each item In myarray Recherche item, texte Next End Sub
Sub Recherche '(ByVal Caractere As String, texte As String) Dim Pattern ' As String Pattern = "([^" & Caractere & "]|^)(" & Caractere & ")(?!" & Caractere & ")" 'on fait un pattern
Dim regex ' As VBScript_RegExp_55.RegExp Set regex = New RegExp 'New VBScript_RegExp_55.RegExp regex.Pattern = Pattern regex.Global = True
Dim match ' As VBScript_RegExp_55.match Dim matches ' As VBScript_RegExp_55.MatchCollection Set matches = regex.Execute(texte) msg = "Le pattern " & Pattern & " retourne " & matches.Count & " captures"
Dim sortie ' As String For Each match In matches For i = 1 To match.Submatches.Count - 1 Step 2 If Not (match.Submatches(i) = "") Then msg = msg & ("Correspondance trouvée """ & match.Submatches(i) & """ en position: " & match.FirstIndex + Len(match.Value) - 1) End If Next ' i Next ' match End Sub
Option Explicit
Const texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/"
Dim myarray, item, result
myarray = Array("\\", "\*", "-")
For Each item In myarray
result = result & vbCrLf & Recherche(item)
Next
MsgBox result
Function Recherche(Caractere)
Dim regex, matches
Dim Pattern, match, msg, Sortie, i
Pattern = "([^" & Caractere & "]|^)(" & Caractere & ")(?!" & Caractere & ")"
Set regex = New RegExp
regex.Pattern = Pattern
regex.Global = True
Set matches = regex.Execute(texte)
msg = vbcrlf & "Le pattern " & Pattern & " retourne " & matches.Count & " captures"
For Each match In matches
For i = 1 To match.Submatches.Count - 1 Step 2
If Not (match.Submatches(i) = "") Then
msg = msg & (vbcrlf & "Correspondance trouvée """ & _
match.Submatches(i) & """ en position: " & _
match.FirstIndex + Len(match.Value) - 1)
End If
Next
Next
Set matches = Nothing
Set regex = Nothing
Recherche = msg
End Function
Bonsoir,
Je cherche à modifier le message pour avoir :
----------------------------------------------------------
8 correspondance(s) trouvée(s).
Correspondance trouvée " \ " en position : 0
Correspondance trouvée " - " en position : 1
Correspondance trouvée " * " en position : 5
Correspondance trouvée " -" en position : 6
Correspondance trouvée " \ " en position : 51
Correspondance trouvée " - " en position : 56
Correspondance trouvée " *" en position : 57
Correspondance trouvée "* " en position : 61
----------------------------------------------------------
Un peu d'aide st possible ?
Bonjour,
Merci pour cette belle démonstration!
J'ai un désordre sur le 1er caractère quand celui-ci n'est pas au début due Const texte et pas au début de l'Arrey.
Testé avec ceci:
bpermute = True Do While bpermute = True 'Il faut au moins parcourir une fois bpermute = False 'On tourne tant que l'on bouge des valeurs For t = 0 To UBound(arrDicoItem)-1 If CInt(Split(arrDicoItem(t),": ")(1)) > CInt(Split(arrDicoItem(t + 1),": ")(1)) Then cprovisoire = arrDicoItem(t) arrDicoItem(t) = arrDicoItem(t + 1) arrDicoItem(t + 1) = cprovisoire bpermute = True End If Next Loop 'Affichage du résultat classé strList = objDico.Count & " correspondance(s) trouvée(s):" & vbcrlf For i = 0 To UBound(arrDicoItem) strList = strList & "(" & i+1 & ")" & " " & arrDicoItem(i) &vbCrLf Next Set objDico = Nothing
MsgBox strList,,"Liste"
WScript.Quit
Sub Recherche(Caractere) Dim regex, matches Dim Pattern, match, i Pattern = "([^" & Caractere & "]|^)(" & Caractere & ")(?!" & Caractere & ")"
Set regex = New RegExp regex.Pattern = Pattern regex.Global = True
Set matches = regex.Execute(texte)
For Each match In matches For i = 1 To match.Submatches.Count - 1 Step 2 If Not (match.Submatches(i) = "") Then objDico.Add match.FirstIndex + Len(match.Value) - 1, _ "Correspondance trouvée """ & _ match.Submatches(i) & """ en position: " & _ match.FirstIndex + Len(match.Value) - 1 End If Next Next Set matches = Nothing Set regex = Nothing End Sub
a aidé 99 internautes ce mois-ci