script VB + mot replcae dans le code txt

, qui trouvent dans le fichier txt la ligne qui commencent par le: THIS_LOCATION et remplacer le OFF_LINE avec NOUVEAUscript VB + mot replcae dans le code txt

si InStr (strText, 'THIS_LOCATION') puis

strNewText = Remplacer (strText, "OFF_LINE", "NEW")

End si

le script VB a échoué sur la ligne:

si InStr (strText, 'THIS_LOCATION')

quoi de mal?

THX yael

Source

2010-06-16 yael

Vous avez besoin des guillemets doubles:

If InStr(strText, "THIS_LOCATION") Then

Source

2010-06-16 19:35:22 Fionnuala

OK ses travaux mais aussi son substituons dans tous txt mon objectif était de remplacer seulement dans THIS_LOCATION ligne ce qui est erroné? – yael

Si vous utilisez des informations de mes réponses précédentes, il semble que strText contient tout votre texte, plutôt qu'une seule ligne. Pour lire une ligne à partir d'un flux de texte obtenu avec FileSystemObject, utilisez ReadLine, pas ReadAll. Vous pouvez lire ligne par ligne en utilisant 'WhileF.AtEndOfStream' où f est l'objet Textstream. – Fionnuala

Voir aussi: http://msdn.microsoft.com/fr-fr/library/z9ty6h50(VS.85).aspx – Fionnuala

Répondre

Questions connexes