MsgBox SkipTextFile
Function SkipTextFile Const ForReading 1, ForWriting 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile("d:\IP_2.txt", ForWriting, True)
'f.Write "Bonjour !"
Set f = fso.OpenTextFile("d:\IP_2.txt", ForReading)
f.Skip(2)
SkipTextFile = f.ReadLine
Set fso = nothing
End Function
spartacus1er
Messages postés6Date d'inscriptionjeudi 8 juin 2006StatutMembreDernière intervention26 novembre 2007 27 juil. 2006 à 11:23
Merci à tous d'avoir répondu aussi vite
suite à la réponse de tof008 j'ai persévéré dans mes recherche et j'ai fini par obtenir qqchose:
A = FreeFile
Dim colLignes As New Collection
Dim ff As Integer
ff = FreeFile
Dim sLigne As String
'Lecture du fichier, envois chaque ligne dans la collection
Open chemin For Input As #ff
While Not EOF(ff)
Line Input #ff, sLigne
colLignes.Add sLigne
Wend
Close #ff
Open chemin For Output As #ff
For i = 1 To colLignes.Count
Print #ff, colLignes(i)
Next
Close #ff
mais je vais je n'ai pas bien fait mon travail et j'ai omis la source!!
Je débute sur le forum...
si quelqu'un se reconait je serais ravi de le remercier .
merci encore pour toutes vos proposition
au revoir
Vous n’avez pas trouvé la réponse que vous recherchez ?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 27 juil. 2006 à 12:29
le problème de l'exemple que tu proposes spartacus1er c'est que si tu cherches une série de mots sur plusieurs lignes (avec vbcrlf compris) tu ne la trouveras pas...
qui plus est utiliser une collection pour çà.... un peu gourmand à mon goût ;)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp