Un bout de mon code:
me permet de lire un fichier texte.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim MonStreamReader AsNew StreamReader(NomFichier1) ' Parcourir le fichier PIPC.SAV jusqu'… la fin DoWhile MonStreamReader.Peek() >= 0 ' R‚cup‚ration de l'adresse de la s‚quence Adresse = MonStreamReader.ReadLine ' R‚cup‚ration des PI/PC Commentaires = MonStreamReader.ReadLine ' Tri des PI et des PC (en fonction de la longueur de la chaŒne de caractŠres) SelectCase Commentaires.Length
Dans certains cas, alors que la ligne lue commence par un espace, mais a du texte derrière, Commentaires contient "", mais le plus bizarre, c'est que Commentaires.length = 61?????
Le pire, c'est que j'ouvre ce fichier avec le notepad, je ne fais aucune modif mais je l'enregistre, et du coup ça remarche, Commentaires récupère bien la chaîne de 61 caractères.
Si j'écrase le fichier enregistré par le fichier d'origine, bingo ça me refait le truc bizarre.
J'ai essayé en remplaçant le Streamreader par un OpenFile, même punition.
Quelqu'un a une idée?
Ce n'est pas parce que l'on allume la bougie de quelqu'un avec sa lanterne que l'on se prive de lumière.
Partager