Je cherche a lire un fichier XML...en VB
emouchet
Messages postés
12
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
16 avril 2004
-
16 avril 2003 à 15:52
JMC70 Messages postés 77 Date d'inscription samedi 9 novembre 2002 Statut Membre Dernière intervention 6 juillet 2014 - 14 nov. 2004 à 18:41
JMC70 Messages postés 77 Date d'inscription samedi 9 novembre 2002 Statut Membre Dernière intervention 6 juillet 2014 - 14 nov. 2004 à 18:41
A voir également:
- Je cherche a lire un fichier XML...en VB
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba lire fichier texte - Conseils pratiques -Visual Basic / VB.NET
- 3c xml - Forum C++ & C++ .NET
- Vb vba - Forum Visual Basic
6 réponses
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
16 avril 2003 à 18:30
16 avril 2003 à 18:30
Bonjour
Dim Fichier As String, chemin As String, disque As String
Dim décomposé(100) As String, i As Integer, MonXml As String
Open "c:\chemin\fichier.xml" For Input As #1
Do While Not EOF(1)
Line Input #1, décomposé(i)
i = i + 1
Loop
Close 1
For i = 0 To UBound(décomposé) If UCase(Trim(décomposé(i))) "<DISK_NAME>" Then disque Trim(décomposé(i + 1)) If UCase(Trim(décomposé(i))) "" Then chemin Trim(décomposé(i + 1)) If UCase(Trim(décomposé(i))) "<NAME>" Then Fichier Trim(décomposé(i + 1))
Next i
If Right(disque, 1) <> "" Then disque = disque & ""
If Right(chemin, 1) <> "" Then chemin = chemin & ""
MonXml = disque & chemin & Fichier
Dim Fichier As String, chemin As String, disque As String
Dim décomposé(100) As String, i As Integer, MonXml As String
Open "c:\chemin\fichier.xml" For Input As #1
Do While Not EOF(1)
Line Input #1, décomposé(i)
i = i + 1
Loop
Close 1
For i = 0 To UBound(décomposé) If UCase(Trim(décomposé(i))) "<DISK_NAME>" Then disque Trim(décomposé(i + 1)) If UCase(Trim(décomposé(i))) "" Then chemin Trim(décomposé(i + 1)) If UCase(Trim(décomposé(i))) "<NAME>" Then Fichier Trim(décomposé(i + 1))
Next i
If Right(disque, 1) <> "" Then disque = disque & ""
If Right(chemin, 1) <> "" Then chemin = chemin & ""
MonXml = disque & chemin & Fichier
emouchet
Messages postés
12
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
16 avril 2004
17 avril 2003 à 09:42
17 avril 2003 à 09:42
Je te remercie ... je vais essayer tout de suite
Emouchet, chevalier pendion, vous souhaite une agréable journée... :big)
Emouchet, chevalier pendion, vous souhaite une agréable journée... :big)
emouchet
Messages postés
12
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
16 avril 2004
17 avril 2003 à 09:53
17 avril 2003 à 09:53
Aie ... le probleme est qu'il me dit : indice en dehors de la plage
alors ca .. (c'est pour la ligne : Line Input #1, décomposé(i)
)
voila :-)
si tu peux m'aider, MERCI ;-p
Emouchet, chevalier pendion, vous souhaite une agréable journée... :big)
alors ca .. (c'est pour la ligne : Line Input #1, décomposé(i)
)
voila :-)
si tu peux m'aider, MERCI ;-p
Emouchet, chevalier pendion, vous souhaite une agréable journée... :big)
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
17 avril 2003 à 16:12
17 avril 2003 à 16:12
Ton fichier XML doit contenir plus de 100 lignes.
Essaie de remplacer Dim décomposé(100) As String par
Dim décomposé(200) As String
ou alors, on dimensionne dynamiquement :
Dim Fichier As String, chemin As String, disque As String, Ligne As String, n As Integer
Open "c:\chemin\fichier.xml" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
n = n + 1
Loop
Close 1
Dim décomposé(n) As String, i As Integer, MonXml As String
Open "c:\chemin\fichier.xml" For Input As #1
Do While Not EOF(1)
Line Input #1, décomposé(i)
i = i + 1
Loop
Close 1
For i = 0 To UBound(décomposé)If UCase(Trim(décomposé(i))) "<DISK_NAME>" Then disque Trim(décomposé(i + 1))If UCase(Trim(décomposé(i))) "" Then chemin Trim(décomposé(i + 1))If UCase(Trim(décomposé(i))) "<NAME>" Then Fichier Trim(décomposé(i + 1))
Next i
If Right(disque, 1) <> "" Then disque = disque & ""
If Right(chemin, 1) <> "" Then chemin = chemin & ""
MonXml = disque & chemin & Fichier
Essaie de remplacer Dim décomposé(100) As String par
Dim décomposé(200) As String
ou alors, on dimensionne dynamiquement :
Dim Fichier As String, chemin As String, disque As String, Ligne As String, n As Integer
Open "c:\chemin\fichier.xml" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
n = n + 1
Loop
Close 1
Dim décomposé(n) As String, i As Integer, MonXml As String
Open "c:\chemin\fichier.xml" For Input As #1
Do While Not EOF(1)
Line Input #1, décomposé(i)
i = i + 1
Loop
Close 1
For i = 0 To UBound(décomposé)If UCase(Trim(décomposé(i))) "<DISK_NAME>" Then disque Trim(décomposé(i + 1))If UCase(Trim(décomposé(i))) "" Then chemin Trim(décomposé(i + 1))If UCase(Trim(décomposé(i))) "<NAME>" Then Fichier Trim(décomposé(i + 1))
Next i
If Right(disque, 1) <> "" Then disque = disque & ""
If Right(chemin, 1) <> "" Then chemin = chemin & ""
MonXml = disque & chemin & Fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
emouchet
Messages postés
12
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
16 avril 2004
22 avril 2003 à 11:04
22 avril 2003 à 11:04
Apres avoir eu la désagréable vision du nombre de lignes du fichier (45200)et de sa conscequence sur ton prog ...(dépassement de mémoire ...) je vais essayer de trouver une autre methode ... merci encore :-)
Emouchet, chevalier pendion, vous souhaite une agréable journée... :big)
Emouchet, chevalier pendion, vous souhaite une agréable journée... :big)
JMC70
Messages postés
77
Date d'inscription
samedi 9 novembre 2002
Statut
Membre
Dernière intervention
6 juillet 2014
14 nov. 2004 à 18:41
14 nov. 2004 à 18:41
L'analyse des fichiers xml comme fichiers textes n'est pas des plus simple, la preuve. Il est préférable de passer par le DOM.
Voir http://www.vbfrance.com/code.aspx?id=27570 qui explique comment faire une gestion de fichier xml depuis VB6
JMC70
Voir http://www.vbfrance.com/code.aspx?id=27570 qui explique comment faire une gestion de fichier xml depuis VB6
JMC70
