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