vb modification de fichier
Bonjour,
je voudrais lire un fichier texte ligne par ligne le mettre dans un fichier temporaire puis le modifier en remplaçant tout les "<p>" par un espace puis de de le copier dans un autre fichier. j'ai tenté de le faire avec ce programme mais étant débutante je ne crois pas que ceci marche, enfaîte ça ne marche pas, je précise que c'est en visual basic 2010.
voila merci pour votre aide
maya
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
Public Shared Function ReadByLine( ByVal file As String) As ArrayList
DECLARER un lecteur de fichier
Dim monlecteur As StreamReader
DECLARER une collection pour les lignes du fichier
Dim meslignes As New ArrayList
Dim fi As String
Dim fi1 As String
Dim sr As StreamReader
Dim sr1 As String
Try
'path est le chemin complet du fichier à l
monlecteur = New StreamReader(file)
With monlecteur
'POSITIONNER le flux au début du fichier
.BaseStream.Seek(0, SeekOrigin.Begin)
'TANT QUE le lecteur a quelquechose à lire
While (.Peek > 0)
'LIRE une ligne du fichier et l'ajouter à meslignes
fi = meslignes.A (.ReadLine)
fi1 = fi.Replace("<p>", "")
sr = New StreamReader("")
sr1 = sr.ReadLine
While Not sr1 Is Nothing
sr1 = sr.ReadLine()
End While
End While
End With
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
'FERMER le lecteur en tout etat de cause
monlecteur.Close()
End Try
Return meslignes
End Function |