Vbscript et la modification des fichiers .txt Fermé

Question

Bonjour,

J'ai un soucis dans mon code et j'aimerais être éclairé si possible ;)

ce code ouvre un fichier .txt et modifie chaque ligne grâce à la commande mid, le problème est que soit j'ouvre le fichier en mode écriture et que, il ne veut pas lire le .AtEndofStream car le fichier est pas en lecture soit je l'ouvre en lecture et il ne veut pas éxécuter le mid.

voici le code
dim f, oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:\fin.txt", For writing)
Do while Not f.AtEndOfStream 
  f = f.readline
  f = Mid(f,36,64)
loop

Set oFso = Nothing

yg_be · Answer

Ne devrais-tu pas plutôt utiliser une autre variable pour lire du texte ?
Par exemple :

Option Explicit
Sub testfil()


Dim f As Scripting.TextStream
Dim f2 As Scripting.TextStream
Dim oFso As Scripting.FileSystemObject
Dim s As String


Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:	emp\fin.txt", ForReading)
Set f2 = oFso.CreateTextFile("C:	emp\fin2.txt", True)
Do While Not f.AtEndOfStream
s = f.readline
s = Mid(s, 36, 64)
f2.WriteLine (s)

Loop

End Sub
Set oFso = Nothing

pyb54 · Answer

Merci yg_be effectivement cela fonctionne bien mieux avec deux variables texte ;)

Vbscript et la modification des fichiers .txt

2 réponses

Discussions similaires