Discussion :

[maya 22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jerede]

Bonjour,

je n'ai pas testé ton code, mais je trouve que tu te complique un peu la vie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
        Using Reader As New StreamReader("file1.htm")
            Using Writer As New StreamWriter("file2.html")
 
                Writer.Write(Reader.ReadToEnd().Replace("<p>", " "))
 
            End Using
        End Using