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 : 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 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
Partager