Extraire donné d'un fichier texte
Résolu
mav37
Messages postés
2
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
-
13 déc. 2005 à 17:58
mav37 Messages postés 2 Date d'inscription mardi 13 décembre 2005 Statut Membre Dernière intervention 14 décembre 2005 - 14 déc. 2005 à 10:59
mav37 Messages postés 2 Date d'inscription mardi 13 décembre 2005 Statut Membre Dernière intervention 14 décembre 2005 - 14 déc. 2005 à 10:59
A voir également:
- Extraire donné d'un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Extraire le texte d'une page web - Forum Visual Basic
- Souligner texte illustrator - Forum Graphisme/design
3 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
13 déc. 2005 à 18:38
13 déc. 2005 à 18:38
Pardon !! Je corrige ...
Function GetChars(FileName, nCar, nLine)
Const ForReading = 1
Dim fso, f, Buffer, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForReading)
For i = 1 to nLine
Buffer = f.Readline()
Next
f.Close
GetChars = Right(Buffer, nCar)
End Function
Function GetChars(FileName, nCar, nLine)
Const ForReading = 1
Dim fso, f, Buffer, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForReading)
For i = 1 to nLine
Buffer = f.Readline()
Next
f.Close
GetChars = Right(Buffer, nCar)
End Function
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
13 déc. 2005 à 18:28
13 déc. 2005 à 18:28
Retourne les nCar dernier caractère de la ligne N°nLine du fichier FileName
Function GetChars(FileName, nCar, nLine)
Const ForReading = 1
Dim fso, f, Buffer, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForReading)
For i = 1 to nLine
Buffer = f.Readline()
Next
f.Close
Return (Right(Buffer, nCar))
End Function
Function GetChars(FileName, nCar, nLine)
Const ForReading = 1
Dim fso, f, Buffer, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForReading)
For i = 1 to nLine
Buffer = f.Readline()
Next
f.Close
Return (Right(Buffer, nCar))
End Function
mav37
Messages postés
2
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
14 déc. 2005 à 10:59
14 déc. 2005 à 10:59
Merci, c'est nickel !