[VB6]XML Création de fichier et récupération de données

Version imprimable

Voir 40 message(s) de cette discussion en une page

Essaie ça, tu pourras t'en inspirer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub RangerFichierText()
Dim MaCollect  As New Collection
Dim LeTableau(), compteur as integer
Dim LigneTxt, NomFich, ligne
    Open "C:\page_teams.txt" For Input As #1
    Do Until EOF(1)
        Input #1, ligne
        If ligne <> "" Then
            'Temp = Replace(ligne, "<Points>" , " ")
            'ligne = Replace(Temp, "</Points>" , " ")
            Compteur = Compteur + 1
            ReDim Preserve LeTableau(Compteur)
            LeTableau(Compteur) = ligne
        End If
    Loop
    Close #1
    ' Rempli la collection
    Coordonnées = Array("", "Monsieur", "Prénom", "Nom", "N°", "Rue", "Code_postal", "Ville", "Pays")
    For i = 1 To UBound(Coordonnées)
        MaCollect.Add LeTableau(i), Coordonnées(i)
    Next
    'Affichage
    MsgBox MaCollect("Monsieur") & " " & MaCollect("Prénom") & " " & MaCollect("Nom") & " " & MaCollect("N°") & " " & MaCollect("Rue") & " " & MaCollect("Code_postal") & " " & MaCollect("Ville") & " " & MaCollect("Pays")
End Sub

Dans ma version, je n'ai pas Replace mais à part ça, fais l'essai tel que, si ce que j'ai compris de ton pb est bien compris... :wink:
Tu crées un fichier Texte à la racine de C: s'appelant page_teams.txt
Dedans, tu mets

Citation:

Monsieur
Marcel
TARTAMPION
3
Boulevard Clémenceau
38100
GRENOBLE
FRANCE

Tu enregistres et tu lances
Ensuite, tu enlèves les cotes aux lignes contenant Replace et tu fais la même chose sur ton fichier.Text à toi

Tu dis

A+

ERATA
Un "remplacer par" m'a fait commettre DEUX, non TROIS erreurS, dont deux dans ces deux lignes

Code:

1
2
            Temp = Replace(ligne, "<Points>" , " ")
            ligne = Replace(Temp, "</Points>" , " ")

Tu corriges

Bonsoir, alors me revoilà après des essais au possible, mais je n'arrive à faire tourner aucune de vos méthodes :cry: , je ne doit vraiment pas être doué.

ouskel'n'or j'ai repris votre code pour tester, en adaptant le fichier et en changeant la variable ligne par une autre, puisque ligne est une variable globale dans l'appli. J'ai aussi déclaré i et coordonnées puisque cela n'était pas fait donc j'avais des erreurs de compilation. Et là maintenant, j'ai une erreur à l'execution sur cette ligne :

Code:

MaCollect.Add LeTableau(i), Coordonnées(i)

Run time error '9' subscript out of range

Et j'ai mis de coté la partie replace, puisque je pense que je devrais la traité pour chaque ligne du tableau de façon étant différente à chaque ligne, une ligne ces deux balises <Point> une autre <Name> une <Wu> ... Donc pour le moment je me de coté afin de ne faire qu'une chose à la fois. Et sinon mon fichier ce trouve dans le répertoire d'installation de mon application et je pensé le mettre en xml ce fichier, mais je l'ai mis en txt, donc je le récupére toujours bien du net et le stocke correctement, c'est ensuite que cela bloque :?

Pour jmfmarques, j'ai essayé aussi, et ce genre de chose ne compile pas chez moi <> 3 or <> 9 or <> 20 :?

Et pour tester j'ai fais ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim TextLine Dim compteur, Tableau() As Integer compteur = 1 Open "stats.txt" For Input As #1 ' Open file. Do While Not EOF(1) ' Loop until end of file. If compteur = 4 Or compteur = 25 Then Line Input #1, TextLine ' Read line into variable. Tableau(compteur) = TextLine End If compteur = compteur + 1 Loop Close #1 frm_stat.lbl_rang_nom.Caption = Tableau(1)
Mais là j'ai une erreur de runtime 13 sur cette ligne, et je ne comprend pas :

Citation:

Tableau(compteur) = TextLine

Voilà, enfin merci de l'aide, je pense que je vais avancé assez rapidemment, car là je fais pas mal de test avec vos idées et directive et j'espère arriver à m'en sortir bientôt.

31/03/2006, 08h31
jmfmarques

Bonjour batmat,

1) avant toute autre chose :
fais comme nous tous ici : le tutoiement est fait pour rendre les choses plus simples et ne constitue pas une marque d'irrespect ... uses-en donc !
2) un tableau est comme une commode avec un certain nombre de tiroirs, que l'on peut définir et redéfinir, chaque tiroir étant destiné à recevoir un vêtement.
si j'écris dim toto(3) , je crée une commode avec 3 tiroirs, donc pouvant recevoir 3 vêtements.
si j'ai ensuite besoin d'ajouter (car 2 vêtements de plus) 2 tiroirs, je me modifie ma "commode" en écrivant : redim toto(5).
Si tu relis mon message antérieur, tu verras que j'écrivais tableau(n) en expliquant ce qu'était n et t'invitais à aller dans l'aide en ligne voir Dim et ReDim....
:cry:
Tu as en ce qui te concerne écrit Dim tableau() .... et as donc fait une commode... sans tiroirs... Comment y ranger un seul vêtement ?
donc ====>>> impossibilité ===>> erreur !
:wink:
31/03/2006, 09h55
ouskel'n'or

Hello,

Les déclarations : Pour i, ok, j'ai homis. (pour aller plus vite, j'enlève option explicit)
Pour Coordonnées, je ne le déclare pas car si je le déclare, j'ai une erreur. Je n'ai jamais réglé ce pb. Sans déclaration, chez moi, ça marche comme ça.
Pour <> 3 or <> 9 or <> 20, tu dois comparer la variable avec chacune des valeurs (je crois me souvenir qu'on peut le faire en C mais en VB ça marche pas) Donc : ok = Valeur <> 3 or Valeur <> 9...
Quant à ton tableau déclaré "à vide" (), si tu ne le redimensionnes pas à chaque tour de roue, comme dit jmf, t'as fait une commode sans tiroirs... :wink: Là tu as mon code pour t'éclairer.

Fais déjà ça, une fois que ce sera réglé, on passera à la suite

A+
31/03/2006, 14h28
AlainTech

Citation:

Envoyé par ouskel'n'or

Pour Coordonnées, je ne le déclare pas car si je le déclare, j'ai une erreur. Je n'ai jamais réglé ce pb. Sans déclaration, chez moi, ça marche comme ça.

Il suffit de:

Code:

Dim Coordonnées As Variant

:yaisse:
31/03/2006, 14h45
ouskel'n'or

Marci bocou !
Ce qui est curieux, déclaré avec "Dim coordonnées", c'est bien un variant par défaut ?

Je viens de vérifier :scarymov: Aïe ! J'avais dû essayer en le déclarant en tableau (!) :scarymov: Ayeu !

A+

Citation:

Envoyé par jmfmarques

Si tu relis mon message antérieur, tu verras que j'écrivais tableau(n) en expliquant ce qu'était n et t'invitais à aller dans l'aide en ligne voir Dim et ReDim....
:cry:
Tu as en ce qui te concerne écrit Dim tableau()

Bonjour, le vous, vieux réflexe de modérateur sur un gros forum, désolé, je vais faire attention.
Donc le tableau(n) oui je comprend très bien par rapport a ce que je connais en c++, c'ets por cela que j'avais mis tableau(compteur) vu que le compteur s'incrémente à chaque tour.

Pour le tableau() déclaré ainsi c'est que j'avais repris l'exemple de ouskel'n'or, et je ne pensais pas que cela génerais puisqu'en c++, on es pas obligé de déclaré la taille du tableau.

Pour ce qui est de l'aide en ligne, elle ne fonctionne pas chez moi, c'est pour cela aussi que cela ne m'aide pas beaucoup.

Là maintenant avec ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim TextLine Dim compteur As Integer Dim Tableau(40) As String compteur = 1 Open "C:\Documents and Settings\batmat\Bureau\FOS\Mamxdsl\FOS_sources\2.0.3.b7\stats.txt" For Input As #1 ' Open file. Do Until EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. Tableau(compteur) = TextLine compteur = compteur + 1 Loop Close #1 frm_stat.lbl_rang_nom.Caption = Tableau(1)
Je récupére bien la première ligne du fichier dans le label. Mais si je met :
frm_stat.lbl_rang_nom.Caption = Tableau(10)
ou frm_stat.lbl_rang_nom.Caption = Tableau(2)
Ou n'importe quel autre ligne que 1, je n'ai rien qui va dans le label, donc je ne sais pas pourquoi, à croire que seul la première ligne est stocker dans le tableau.

Si vous avez une idée, là je cherche juste à stocké chaque ligne de façon brute dans le tableau, je verrais pour supprimer les balises plus tard.

P.S : Au fait si je fais ceci :

Code:

Open "stats.txt"

es ce que cela ira me chercher le fichier dans le répertoire ou est installer l'appli ?

[EDIT] En faisant du pas à pas, je vois qu'il fais qu'un tour de boucle, donc logique que je récupére que la première ligne. J'ai essayé aussi avec Do While Not EOF(1) mais pareil qu'un tour, donc je ne comprends pas pourquoi la boucle ne ligne pas chaque ligne :cry:

Ma dernière réponse avant lundi, alors profite !

Code:

1
2
3
4
5
6
Do Until EOF(1)   ' Loop until end of file. 
      Line Input #1, TextLine   ' Read line into variable. 
      Tableau(compteur) = TextLine 
      Msgbox TextLine  '******* ajoute ça, tu verras bien... ********
      compteur = compteur + 1 
Loop

Citation:

Open "stats.txt"

Pas bon ! :cry:

Code:

1
2
3
Open LeChemin &"stats.txt"
'ou
Open "C:\MesStats\Rien\Qu'à\Moi\stats.txt"

A+

Bon week-end

et

Bon courage

31/03/2006, 17h50
batmat86

ouskel'n'or, donc là effectivement, en ajoutant, cette partie, je vois qu'il me met tout le fichier sur une ligne.

Ce qui est bizarre, puisque normalement lorsque j'ouvre le fichier avec notepad++, j'ai bien les retour à la ligne.

Et cela est bien le cas aussi sur la page : http://folding.extremeoverclocking.com/xml/user_summary.php?u=176736

Dois je ajouter quelques choses pour que c'est retour à la ligne soit pris en compte ??

Sinon pour le chemin, donc pour le moment je vais alors rester en brut comme c'est là et me poserais après la question de comment faire pour prendre le répertoire d'installation de l'application, puisque ce répertoire sera choisi par l'utilisateur. Donc faudra un chemin qui ne soit pas rentré en dur.

Merci encore de votre aide à tous, car je progresse, même si vous pensez de non, et bien si je trouve que j'avance et cela grace à vous. :wink:
Bon week end ouskel'n'or
31/03/2006, 17h54
ouskel'n'or

Essaie de changer le nom de ta variable TextLine en Texte tout court. TextLine signifie peut-être un truc pour visual Basic qui ne signifie rien d'aussi bien pour nous... :wink:

A lundi, ce coup-ci, je suis parti :yaisse2:
31/03/2006, 17h59
batmat86

Et bien non, je viens de tester en appelant la variable Essai à la place de Textline et le résultat est le même.

Je vais continuer à chercher alors, mais merci de donner des pistes, cela est toujours pratique.

Bon week end alors cette fois pour de bon ;) Et encore merci.

Bonsoir, alors j'ai encore fait quelques tests, donc là dans ce fichier que je stocke : http://folding.extremeoverclocking.com/xml/user_summary.php?u=176736

Il y a bien des retours à la ligne, mais dans ce code, cela est pris comme une seule ligne :?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Essai Dim compteur As Integer Dim Tableau(38) As String compteur = 1 Open "test.txt" For Input As #1 ' Open file. Do While Not EOF(1) ' Loop until end of file. Line Input #1, Essai ' Read line into variable. Tableau(compteur) = Essai MsgBox Essai compteur = compteur + 1 Loop Close #1
Donc comment faire pour que les retours à la ligne soit reconnu, là cela me dépasse et je ne trouve pas :?

[EDIT] Si cela peut aider, voici le fichier txt que j'obtiens une fois téléchargé et enregistré et c'est celui ci que j'ouvre et n'arrive pas à mettre chaque ligne dans le tableau :cry:
:arrow: http://batmat86.free.fr/test.txt

bizarement le séparateur de ligne de ton fichier n'est ni des Chr(13) ni Chr(10)+Chr(13) ... mais Chr(10)...
line input utilise chr(13) ou Chr(10)+Chr(13) comme séparateur de ligne ... ton probléme vient de la .. tiens voila une modif du compte..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim Essai Dim compteur As Integer Dim Tableau(38) As String Dim tmp Dim i As Integer compteur = 1 Open "test.txt" For Input As #1 ' Open file. Do While Not EOF(1) ' Loop until end of file. Line Input #1, Essai ' Read line into variable. tmp = Split(Essai, Chr(10)) For i = 0 To UBound(tmp) Tableau(compteur) = tmp(i) compteur = compteur + 1 Next Loop Close #1
!! attention (comme toi) je n'ai pas géré le nombre de ligne du fichier lu ... et s'il y a plus de 38 lignes ... :arrow: erreur.. :wink:

02/04/2006, 01h50
batmat86

8O Trop fort Monsieur, cela fonctionne parfaitement :wink: Merci beaucoup.

Maintenant je vais passer à l'étape suivante, c'est à dire tenter de supprimer les balises de chaques lignes avec le replace donné précédemment. En espérant que j'y arrive, enfin je vous tiens tous au courant, que j'y arrive ou non.

Merci en tout cas à vous tous de l'aide.

P.S : Il n'y aura pas plus de 38 lignes ;) allez dans le tour de caracctères parasites, je vais mettre 40 pour éviter un plantage.

bonjour

as tu retesté la démo que tu indiquais dans ton message du 29Mars , 2006 16:29 pour extraire les données de ton fichier XML ?

http://vb.developpez.com/faq/?page=Routines#lirexml

Il te faut juste activer la référence Microsoft XML v3.0

l'adaptation ci dessous permet en plus de récupérer la valeur des éléments
Code:

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 28 29 'Necessite d'activer la reference Microsoft XML v3.0 Sub Test() Dim xmlDoc As DOMDocument Dim root As IXMLDOMElement Set xmlDoc = New DOMDocument xmlDoc.async = False xmlDoc.Load "C:\Documents and Settings\michel\dossier\excel\monFichier.xml" Set root = xmlDoc.documentElement Debug.Print root.baseName BrowseChildNodes root End Sub Private Sub BrowseChildNodes(root_node As IXMLDOMNode) 'Source : http://vb.developpez.com/faq/?page=Routines Dim i As Long For i = 0 To root_node.childNodes.Length - 1 If root_node.childNodes.Item(i).nodeType <> 3 Then Debug.Print root_node.childNodes.Item(i).baseName & " / " & root_node.childNodes.Item(i).Text End If BrowseChildNodes root_node.childNodes(i) Next End Sub
bonne journée
michel

02/04/2006, 07h32
SfJ5Rpw8

Citation:

Envoyé par batmat86

Maintenant je vais passer à l'étape suivante, c'est à dire tenter de supprimer les balises de chaques lignes avec le replace donné précédemment. En espérant que j'y arrive, enfin je vous tiens tous au courant, que j'y arrive ou non.

j'ai pas relu tout le post.... mai si tes hitoire de recheche remplace c'est pour récupérer les données contenu dans le fichier Xlm... regarde plutôt le code donné par

Citation:

Envoyé par SilkyRoad

bonjour

as tu retesté l...

... en changeant le nom de fichier par "test.txt" .. puis tu observe le résultat dans la fenêtre exécution...

Bonjour, alors j'ai pas mal avancé cette nuit avec l'aide de ouskel'n'or et le replace.

Voilà ce que je fais après votre code bbil
Code:

1 2 3 4 5 6 7 8 9 'nom team Temp = Replace(Tableau(4), " <Team_Name>", "") Tableau(4) = Replace(Temp, "</Team_Name>", "") frm_stat.lbl_nom_team.Caption = Tableau(4) 'rang team Temp = Replace(Tableau(6), " <Rank>", "") Tableau(6) = Replace(Temp, "</Rank>", "") frm_stat.lbl_rang_equipe.Caption = Tableau(6)
Et ainsi de suite pour chaque ligne à récupérer ;) Et fonctionne parfaitement ;)

Donc je pense que je vais peut être resté comme cela car c'est simple à comprendre comme code au final vu mon niveau et pas lourd à gérer le trouve. Je mettrais résolu dès que j'aurais fini ou reviendrais demandé de l'aide, mais je suis content d'avoir pu avancer grandement grâce à vous tous, donc merci beaucoup ;)

Voir 40 message(s) de cette discussion en une page