Petit problème en VB...

[leneuf22]

Voilà :

 

J'ai une fonction qui ressemble à ça :

 

code = "Function ReplaceText(patrn, replStr, expression)" & vbCrLf & "Dim regEx" & vbCrLf & "Set regEx = New RegExp" & vbCrLf & "regEx.Pattern = patrn" & vbCrLf & "regEx.IgnoreCase = True" & vbCrLf & "ReplaceText = regEx.Replace(expression, replStr)" & vbCrLf & "End Function"

scrCtrl.AddCode code

 

Vous trouverez peut-être que c'est tordu mais c'est la seule façon de la faire marcher. Bon. (scrCtrl c'est un contrôle ActiveX. Je suis obligé de m'en servir pour faire des expressions régulières)

 

Ensuite j'ai ça :

 

Do

TexteMod = scrCtrl.Run("ReplaceText", (vbCrLf), (Chr(34) & " & Chr(10) & " & Chr(34)), (txtMess.Text))

Loop Until (InStr(1, TexteMod, Chr(10), vbTextCompare) = 0)

 

Cette dernière fonction sert à detecter et à convertir les sauts de ligne pour qu'ils puissent être écris par la suite dans un script .VBS.

Mais voilà, ça marche uniquement s'il trouve 1 saut de ligne. S'il en trouve 2, l'ordi plante.

 

J'espère que vous comprenez le problème !

 

Et si vous avez une manière un peu plus simple de remplacer une portion de texte par une autre, ça m'interesse encore davantage !

 

merci !

[leneuf22]

Ça maaaaarche !!

 

Merci KewlCat ! (le code ici pour ceux que ça interesse, on sait jamais !)

[KewlCat]

De rien...

En fait, c'était pas la peine de t'emmerder avec un contrôle ActiveX, pour manipuler des chaines, rien de tel que left(), right(), len(), et leurs potes...

Ah... le bas niveau, y'a rien de tel...

A quand les questions en assembleur sur le forum ?

[leneuf22]

L'assembleur ?

T'inquiètes pas, j'y suis pas encore !

 

 

Mais maintenant mon programme marche nickel, et c'est super !

En tous cas, je ne comprends pas pourquoi la boucle do... loop foire avec InStr... quelqu'un sait-il ?