Remplacer un caractère dans un fichier texte automatiquement
C'est parce que je me suis pris la tete toute la matinée que je viens enfin poser la question. Une fois n'est pas coutume j'ai trouvé de tout sur internet... dont voici ci-joint qq lignes de codes que je croyais intéressantes.
J'ai un fichier texte dans lequel mon programme met 36 virgules "," alors que je veux faire lire ce fichier par un autre programme n'acceptant que les points "." comme séparateur décimal !! c'est bien galère et je suis a deux doigts de me jeté par la fenêtre *_*
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
| Public Shared Function ReadByLine(ByVal path As String, ByVal name As String) As ArrayList
' DECLARER un lecteur de fichier
Dim monlecteur As StreamReader = Nothing
' DECLARER une collection pour les lignes du fichier
Dim meslignes As New ArrayList ' En fait ça je m'en fou !!!?
Try
' path est le chemin complet du fichier à lire
monlecteur = New StreamReader(path)
With monlecteur
' POSITIONNER le flux au début du fichier
.BaseStream.Seek(0, SeekOrigin.Begin)
' TANT QUE le lecteur a quelque chose à lire
' LIRE une ligne du fichier et l'ajouter à meslignes
File.WriteAllText(path, File.ReadAllText(path).Replace(",", ".")) ' c'est ça que je veux !! et ça marche pas ... :/
End With
monlecteur.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
' FERMER le lecteur en tout état de cause
End Try
Return meslignes
End Function |