Discussion :

[ouskel'n'or]

Essaie ça, tu pourras t'en inspirer.

Code :

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

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...
Tu crées un fichier Texte à la racine de C: s'appelant page_teams.txt
Dedans, tu mets

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 :

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

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

Tu corriges

[batmat86]

Bonsoir, alors me revoilà après des essais au possible, mais je n'arrive à faire tourner aucune de vos méthodes , 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 :

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

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 :

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

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 :

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.

[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....

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 !

[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... Là tu as mon code pour t'éclairer.

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

A+

[AlainTech]

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 :

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

Dim Coordonnées As Variant

[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 Aïe ! J'avais dû essayer en le déclarant en tableau (!) Ayeu !

A+

[batmat86]

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....

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 :

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

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 :

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

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

[ouskel'n'or]

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

Code :

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

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

Open "stats.txt"

Pas bon !

Code :

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

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

A+

Bon week-end

et

Bon courage

[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.
Bon week end ouskel'n'or

[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...

A lundi, ce coup-ci, je suis parti

[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.

[batmat86]

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 :

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

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
http://batmat86.free.fr/test.txt

[SfJ5Rpw8]

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 :

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

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 ... erreur..

[batmat86]

Trop fort Monsieur, cela fonctionne parfaitement 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.

[SilkyRoad]

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 :

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

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

[SfJ5Rpw8]

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

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...

[batmat86]

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 :

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

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