Modifier des noms avec une expression régulière [Résolu]
topor
Membre Dernière intervention
14 avril 2015
- - Dernière réponse :
topor
Membre Dernière intervention
14 avril 2015
- 21 juil. 2014 à 14:22
- Messages postés
- 7
- Date d'inscription
- mardi 15 juillet 2014
- Statut
- Messages postés
- 7
- Date d'inscription
- mardi 15 juillet 2014
- Statut
A voir également:
- Regexp vbscript
- Vbscript.regexp - Meilleures réponses
- Vbs ucase - Meilleures réponses
- Modifier le nom de l'application Excel ✓ - Forum - Visual Basic 6
- Modifier le nom d'artiste dans un fichier audio ✓ - Forum - VB.NET
- Modifier le nom d'une section d'un fichier INI ✓ - Forum - VB.NET
- Modifier le nom d'une propriété héritée d'une classe mère ✓ - Forum - C# / .NET
- Modifier le nom de machine ✓ - Forum - Delphi / Pascal
10 réponses
- Messages postés
- 13136
- Date d'inscription
- mardi 11 mars 2003
- Statut
Bonjour
ceci
Dans la premère phrase une regex peut être (et surement en deux ou trois étapes à voir), dans la seconde non.
ceci
seulement pour les nom qui en on besoin.est en opposition avec cela
tous les caractères doivent être en majuscule et il ne doit y avoir aucun espace (ou que ce soit dans la chaîne).
Dans la premère phrase une regex peut être (et surement en deux ou trois étapes à voir), dans la seconde non.
- Messages postés
- 7
- Date d'inscription
- mardi 15 juillet 2014
- Statut
Re!
Merci de me consacrer du temps ... Je suis géologue et donc programmeur amateur et débutant!!!
N'est-il pas plus facile de tester tout les noms avec la RegEx.Pattern = "[a-z]|\s+" et de les traiter si elle trouve quelque chose?
J'ai testé cette forme de RegEx qui me trouve bien toutes les majuscule et les minuscule.
Ce que je n'arrive pas a faire c'est une RegEx qui supprimerais les blancs et mettrais les minuscule en majuscule.
J'arrive à le faire autrement, mais me demandais si ce ne serait pas plus rapide avec une RegEx???
Merci de me consacrer du temps ... Je suis géologue et donc programmeur amateur et débutant!!!
N'est-il pas plus facile de tester tout les noms avec la RegEx.Pattern = "[a-z]|\s+" et de les traiter si elle trouve quelque chose?
J'ai testé cette forme de RegEx qui me trouve bien toutes les majuscule et les minuscule.
Ce que je n'arrive pas a faire c'est une RegEx qui supprimerais les blancs et mettrais les minuscule en majuscule.
J'arrive à le faire autrement, mais me demandais si ce ne serait pas plus rapide avec une RegEx???
- Messages postés
- 13136
- Date d'inscription
- mardi 11 mars 2003
- Statut
N'est-il pas plus facile de tester tout les noms avec la RegEx.Pattern = "[a-z]|\s+" et de les traiter si elle trouve quelque chose?
Je ne pense pas, Ucase va te mettre le nom entier en majuscule d'un coup. Avec la Regex (même si on arrivait à l'ecrire en une seul ligne) tu cherches d'abord les minusules à l'unité, puis tu les remplaces par leur majuscule. En temps d'execution je pense que c'est plus long.
Pour les espaces il y a une méthode Replace dans les regex, mais quand on cherche à remplacer un caractere par un autre, là encore, tu dois d'abord creer ta Regex puis lancer le Replace. Ici la différence de temps doit etre minime, mais dans ton projet tu dois (juste pour une fonction qui existe déjà) ajouter une référence.
Alors que
Replace(monTexte," ","")suffit
L'interet de la Regex est de faire des recherches "compliquées", par exemple remplacer des date au format yyyy-mm-dd par dd/mm/yyyy
- Messages postés
- 1855
- Date d'inscription
- jeudi 23 mai 2002
- Statut
Bonjour à tous,
Comme le dit Whismeril, une combinaison "regex" et "replace" permet d'obtenir le résultat souhaité.
Ex:
jean-marc
Comme le dit Whismeril, une combinaison "regex" et "replace" permet d'obtenir le résultat souhaité.
Ex:
Function MyRegEx(argString)
Dim RegEx, matches
Set RegEx = New RegExp
With RegEx
.IgnoreCase = False
.Global = True
.Pattern = "[A-ZÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝ]"
Set matches = .Execute(argString)
End With
If matches.Count >= 0 Then
argString = Replace(UCase(argString), Space(1), Space(0))
Else
argString = Replace(argString, Space(1), Space(0))
End If
MyRegEx = argString
End Function
WScript.Echo "test1" & vbTab & MyRegEx(" aOÜt")
WScript.Echo "test2" & vbTab & MyRegEx("août ")
WScript.Echo "test3" & vbTab & MyRegEx("AO ÛT")
WScript.Echo "test4" & vbTab & MyRegEx("AOût")
WScript.Echo "test5" & vbTab & Len(MyRegEx(" aOÜt"))
WScript.Echo "test6" & vbTab & Len(MyRegEx("août "))
WScript.Echo "test7" & vbTab & Len(MyRegEx("AO ÛT"))
WScript.Echo "test8" & vbTab & Len(MyRegEx("AOût"))
jean-marc
- Messages postés
- 7
- Date d'inscription
- mardi 15 juillet 2014
- Statut
Bonjour et merci à tous.
J'ai résolu mon problème de la manière suivante :
Cela me donne le résultat voulu.
Bien cordialement.
J'ai résolu mon problème de la manière suivante :
txt = "c:\ my fol der\ my Fi le.txt "
function repl(m,p,s)
' m = match reussi
' p = position
' s = texte reference
if m = " " then
txt = ""
else
txt=ucase(m)
end if
repl = txt
end function
set rx = New Regexp
With rx
.Pattern = "\s|[a-z]"
.Global = true
.IgnoreCase = false
End With
msgbox rx.Replace(txt, GetRef("repl"))
Cela me donne le résultat voulu.
Bien cordialement.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.