Forums PureBasic - Français
http://forums.purebasic.com/french/
Code : Tout sélectionner
Text$ = "(A) : Test_Procedure20(coucou) (B) : Test_Procedure20 (coucou) (C) : Test_Procedure20"+Chr(13)+Chr(10)+"(coucou) (D) : Test_Procedure20 (coucou) (E) : Test_Procedure20 "+Chr(13)+Chr(10)+Chr(13)+Chr(10)+Chr(13)+Chr(10)+"(coucou)"
Text$ + "(A') : Test_Procedure201(coucou) (B') : Test_Procedure202 (coucou) (C) : Test_Procedure20"+Chr(13)+Chr(10)+"(coucou) (D') : Test_Procedure203 (coucou) (E') : Test_Procedure204 "+Chr(13)+Chr(10)+Chr(13)+Chr(10)+Chr(13)+Chr(10)+"(coucou)"
If CreateRegularExpression(0, "_Procedure20 {0,}?["+Chr(13)+Chr(10)+"]{0,}?\(")
Debug Text$
Debug ReplaceRegularExpression(0, Text$, "_xxx(")
EndIf
En fait c'est conditionné par le caractère après le motif à chercher. Donc un simple ReplaceString ne marchera pas car il risque de remplacer trop d'occurrences.Dobro a écrit :excuse ma naïveté, mais pourquoi ne pas avoir utilisé
Position = FindString(Chaine$, ChaineCherchee$, PositionDepart)
et
String$ = ReplaceString(Chaine$, ChaineCherchee$, ChaineRemplacee$ [, Mode [, PositionDepart]])
???
Code : Tout sélectionner
Procedure.s SpecialReplaceString(Text$, FindMe$, ReplaceBy$)
Protected index.l = 1, *char.c
Protected lFindMe.l = Len(FindMe$), lReplBy.l = Len(ReplaceBy$)
index = FindString(Text$, FindMe$, index)
While index
*char = PeekC(@Text$ + lFindMe + index - 1)
If *char < '0' Or *char > '9'
Text$ = Left(Text$,index-1) + ReplaceBy$ + Right(Text$, 1+Len(Text$)-(index+lFindMe))
Debug Text$
index + lReplBy + 1
Else
index + lFindMe + 1
EndIf
index = FindString(Text$, FindMe$, index)
Wend
ProcedureReturn Text$
EndProcedure
Text$ = "aa Test_Procedure20(coucou) bb Test_Procedure205 (coucou) cc Test_Procedure20 (coucou) cc Test_Procedure20"+Chr(13)+Chr(10)+"(coucou)"
SpecialReplaceString(Text$, "_Procedure20", "_xxx")Le problème c'est que tu ne peux pas remplacer par "_xxx(" car il n'y a pas forcément cette parenthèse...cederavic a écrit :Ben.. ça marche avec les regex :
...
Biensur c'est specifique à la syntax d'une fonction nom_de_la_fonction[plusieur espaces ou non](
Mais le resultat est là...
Progi1984 a écrit :J'ai quoi derrière : _Procedure20 : tout sauf des chiffres...lionel_om a écrit :Tu as quoi alors ? Un espace ou un retour à la ligne ?
lionel_om a écrit : Voilà un code qui marche
j'avais deja fait une reponse dans ce genre :j'ai pas testé ta version , mais il est probabble qu'elle soit plus rapide
Pas de problème...Dobro a écrit :excuse ma naïveté, mais pourquoi ne pas avoir utilisé
Position = FindString(Chaine$, ChaineCherchee$, PositionDepart)
et
String$ = ReplaceString(Chaine$, ChaineCherchee$, ChaineRemplacee$ [, Mode [, PositionDepart]])
???
.C'est bien pour des appels de fonctions non?Le problème c'est que tu ne peux pas remplacer par "_xxx(" car il n'y a pas forcément cette parenthèse...