Extraire donné d'un fichier texte [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
-
Messages postés
2
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
-
Bonjour,

je cherche une solution pour extraire les n derniers caractères de la seconde ligne d'un fichier texte..
N'étant pas un adepte du vbscript, je suis preneur de toutes infos.
Merci d'avance

3 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
21
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
21
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
Messages postés
2
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005

Merci, c'est nickel !