A voir également:
- Vbscript et la modification des fichiers .txt
- Wetransfer gratuit fichiers lourd - Guide
- Suivi des modifications word - Guide
- Comment réduire la taille d'un fichier - Guide
- Logiciel modification pdf gratuit - Guide
- Renommer plusieurs fichiers - Guide
2 réponses
yg_be
Messages postés
22906
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 juin 2024
1 480
28 juin 2009 à 17:27
28 juin 2009 à 17:27
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:\temp\fin.txt", ForReading)
Set f2 = oFso.CreateTextFile("C:\temp\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
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:\temp\fin.txt", ForReading)
Set f2 = oFso.CreateTextFile("C:\temp\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
