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

Messages postés
2
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
- - Dernière réponse : 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
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
Afficher la suite 

3 réponses

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

Dire « Merci » 3

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

Codes Sources 223 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
18
0
Merci
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
0
Merci
Merci, c'est nickel !