Discussion :

[Claude_Azoulai]

Bonjour à tous
J'ai besoin de lire caractère par caractère un fichier NotePad qui contient des mots séparés par une virgule suivi d'un espace pour les enregistrer dans un second fichier, séparés par un "CRLF".
N'étant pas un expert en la matière, j'ai essayé de trouver quelques exemples.
Mon code fonctionne jusqu'à trouver un caractère accentué.
Voici le code :

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
43
44
45
 
Imports System
Imports System.IO
Imports System.Text
 
Module Module1
    Public chemin, ficOrigine, ficDestination, Mot As String
    Public Car As Byte
 
 
    Public Sub Main()
        Dim i, longueur As Integer
        chemin = CurDir()     'Application.StartupPath
        ficOrigine = chemin & "\Quelques mots.txt" 'Ce fichier a été créé avec NotePad
        ficDestination = chemin & "\Résultat.txt"
        longueur = FileLen(ficOrigine)
        Dim sw As StreamWriter = New StreamWriter(ficDestination)
        Dim MyFile As New FileInfo(ficOrigine)
        Dim sr As StreamReader = MyFile.OpenText()
        'Read a single character.
        Try
            For i = 1 To longueur
                Car = sr.Read() 'Là où se trouve l'erreur quand on essaye de lire un "é"
                If Car <> 32 Then
                    If Car = 44 Then
                        sw.WriteLine(Mot)
                        Mot = ""
                    Else
                        ConstituerMot(Car)
                    End If
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message) 'Le message est le suivant "Arithmetic operation resulted in an overflow"
        End Try
 
        sr.Close()
        sw.Close()
    End Sub
 
    Private Sub ConstituerMot(ByVal x)
        Mot += Chr(Car)
    End Sub
 
End Module

Je pense que codage UTF... est peut être mal réglé mais je n'ai pas bien compris comment le coder

Merci de votre réponse
Claude Azoulai

[ZenZiTone]

Si le but est de faire un copier/coller du texte du fichier en insérant un CRLF après un "[VIRGULE][ESPACE]", regarde du côté de String.Split.

[Claude_Azoulai]

Bonjour, c'est encore moi
J'ai trouvé la solution :
Plutôt que d'essayer d'utiliser des morceaux de code dont ne n'ai pas l'habitude, j'ai essayé d'utiliser des fichiers binaires que je connais mieux.
Voici le code qui fonctionne parfaitement :

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
 
Imports System
Imports System.IO
Module Module1
    Public chemin, ficOrigine, ficDestination, Mot As String
    Public Car As Byte
 
 
    Public Sub Main()
        Dim i, longueur As Integer
        chemin = CurDir()     'Application.StartupPath
        ficOrigine = chemin & "\Quelques mots.txt"
        ficDestination = chemin & "\Résultat.txt"
        longueur = FileLen(ficOrigine)
        FileOpen(1, ficOrigine, OpenMode.Binary, OpenAccess.Read)
        FileOpen(2, ficDestination, OpenMode.Binary, OpenAccess.Write)
 
        'Lit tous les Bytes du fichier original
        Try
            For i = 1 To longueur
                FileGet(1, Car) 'Lecture du 1er Byte et des suivants
                If Car <> 32 Then 'Si différent d'un espace
                    If Car = 44 Then 'Si c'est une virgule
                        Car = 13
                        FilePut(2, Car) 'Ecrit un saut de ligne
                        Car = 10
                        FilePut(2, Car) 'Ecrit un retour chariot
                    Else
                        FilePut(2, Car) 'Sinon, écrit le Byte lu précédemment
                    End If
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message) 'Affiche l'erreur, s'il y en a une
        End Try
 
        FileClose(1)
        FileClose(2)
    End Sub
End Module

Je vous le soumet car ça peut aider quelqu'un d'autre

Claude Azoulai

[ZenZiTone]

Ah autant pour moi, il semblerait que ce soit un String.Replace dont tu as besoin.

Code :

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

1
2
3
 
Dim MonTexteOrigine As String = "un superbe texte, avec une virgule"
Dim MonNouveauTexte As String = MonTexteOrigine.Replace(", ", Environment.NewLine) '//Param 1 : caractère(s) à remplacer | Param 2 : caractère(s) de remplacement

[Claude_Azoulai]

Merci d'avoir continué la discussion
Tu m'a donné un renseignement qui me permet de voir les choses d'une manière encore plus simple
Je vais l'utiliser dans un nouveau projet
Claude Azoulai