open file .xml

bonjour,
en VB6, j utilise la methode (commune) open pour ouvrir et parser un fishier texte...
voici le code somme toute assez simple

Code:

---

1 2 3 4 5 6

Open vPath For Input As #1 Do While Not EOF(1) Line Input #1, lString lResult = lResult + lString Loop Close #1

---

lString et lresult sont du type string....
le document parsé est du type xml et contient qq chose comme cela:

Code:

---

1 2	<?xml version="1.0" encoding="UTF-8"?> <truc xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="shema.xsd" userid="#USER">

---

le problème vient du fait que qd je rebalance le texte dans un autre fichier...j obtient un doublement des double quote:aie:
ce qui est très étrange...
qq un connaitrait il le pourquoi du comment?

Citation:

---

le problème vient du fait que qd je rebalance le texte dans un autre fichier...j obtient un doublement des double quote

---

et tu "rebalances" avec quoi (print, write... ???) ?:lol:

pardon :roll:

Code:

---

1 2 3 4

Open lFile For Output As #1 lLineToWrite = p_maligne Write #1, lLineToWrite Close #1

---

edit :g simplifié la chose mais je fais un replace donc ne pas s inquiéter sur l affectation de variable... (mais rien sur les " "" ")

utilise print au lieu de write :lol:

Citation:

---

Envoyé par jmfmarques

utilise print au lieu de write :lol:

---

c est parfait!!!
(j en ai marre de bloquer sur des vieilles commandes comme ça...)
merci bcp pour ton aide