Discussion :

[BenMarcel]

Bonjour,
je lis et écris un fichier XML via ce code

Code :

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

1
2
3
4
5
6
7
 
Dim monStreamReader As New StreamReader(LC_Fichier_XML) 
Dim Ligne As String 
Do
  Ligne = monStreamReader.ReadLine
Loop Until Ligne Is Nothing
monStreamReader.Close()

Le problème est le message d'erreur suivant une fois que j'arrive en fin de fichier : Object reference not set to an instance of an object

j'ai cherché mais ne trouve pas mon pb!!!
Help !!
merci

[infosam76]

Bonjour,

j'ai exécuté ton code sur un fichier .txt. Je n'ai pas d'erreur. Pourrais tu mettre un fichier d'exemple sur lequel tu as le soucis.

Maintenant il existe d'autres méthodes de lecture / écriture pour des fichiers Xml plus adapté.

[BenMarcel]

Bonjour,

j'ai exécuté ton code sur un fichier .txt. Je n'ai pas d'erreur. Pourrais tu mettre un fichier d'exemple sur lequel tu as le soucis.

Maintenant il existe d'autres méthodes de lecture / écriture pour des fichiers Xml plus adapté.

Bonsoir et merci pour la réponse
J'ai oublié une ligne dans le code, c'est une piste surement
je fais

Code :

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

Ligne = Ligne.Replace ("1","0")

Après debug, mon erreur est lorsque j'atteins la fin de fichier

[infosam76]

C'est pire qu'une piste ;-) c'est la cause ;-)

Cette ligne :

Code :

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

1
2
 
Ligne = monStreamReader.ReadLine

va initialiser à chaque tour de boucle l'objet "Ligne"

Après la dernière ligne de ton fichier, cet objet sera à Nothing qui est d'ailleurs la condition de sortie de ta boucle :

Code :

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

1
2
 
Loop Until Ligne Is Nothing

Donc dans le cas de la fin de ton fichier, tu essaies d'effectuer l'opération suivante sur un objet qui est à nothing :

Code :

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

1
2
 
Ligne = Ligne.Replace ("1","0")

d’où ton erreur.

Donc une correction s'impose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Dim monStreamReader As New StreamReader(LC_Fichier_XML) 
Dim Ligne As String 
Do
  Ligne = monStreamReader.ReadLine
 
  if not Ligne is nothing then 
        Ligne = Ligne.Replace ("1","0")
  endif 
Loop Until Ligne Is Nothing
monStreamReader.Close()

[BenMarcel]

Que je suis con !!!
Merci pour la réponse, c'était bien ça !

[infosam76]

Tu n'es pas c... c'est une erreur que tous le monde peut faire ;-) On ne pense pas toujours à tester les valeurs de retour etc ...