Pb de lecture de fichier

Bonjour tout le monde,

Voila je veux tout simplement lire un fichier "texte.txt" mais dans mon cas ca ne fonctionne pas ! 8O :roll:

Voici ce que le fichier texte contient :

Citation:

---

Micro:2:161.218.182.147:1000:1000,132456789,I0.0,BOOL,RW;

---

Voici le code simple pour lire ce texte

Code:

---

1 2 3 4 5

Open "c:\texte.txt" For Input As #100 Input #100, Tampon Close #100

---

Et voici ce que j'obtiens :

Citation:

---

1;MicroWin:2:161.218.182.147:1000:1000

---

Pourquoi mon code ne récupère pas tout le fichier texte???8O 8O 8O

Merci

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Dim Nf As Byte Dim Ch As String Nf = FreeFile Open "c:\texte.txt" For Input As #Nf Line Input #Nf, Ch Close #Nf

---

Parce que input s'arrete a la premiere virgule qu'il rencontre !
Lisez les tutos, lisez l'aide en ligne que diable !:evilred:

Sinon s'il sagit d'un fichier avec plusieurs lignes voici un code pour tout réccupérer d'un seul coup ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Contenu As String Dim Adr As String Dim Nf As Byte   Adr="C:\Texte.txt" Contenu=Space(Filelen(Adr)) Nf = FreeFile   Open Adr For Binary As #Nf Get #Nf,,Contenu Close #Nf

---

Ce que tu appelles Tampon devrait etre une liste de variables. Dans ta ligne du fichier texte tu as des virgules, et les virgules separent les variables que tu vas récuperer.
Alors tu as plusieurs façons de lire ta ligne:
- "Line Input #100, toto" et tu décomposes "toto" aprés.
- "Input #100, toto1, toto2, toto3, totoxx" ou chaque toto x represente un segment de ta ligne texte, le séparateur etant la "," .

Bonne journée

Si c'est toi qui édite le fichier texte, essayez d'inscrire chaque donnée dans une ligne... Bonne chance

Pour "découper" une chaine en fonction d'un ou plusieurs caractères il suffit d'utiliser la fonction Split :

Code:

---

1 2 3 4 5 6 7

Dim MonTab() As String Dim Texte As String   Texte="salut,bonjour,au revoir,bye bye"   MonTab=Split(Texte,",")

---

Puis en bouclant de 0 à UBound(MonTab) tu auras les différents morceau de la chaine, chaque morceau étant logé dans une entrée du tableau :
MonTab(0) aura pour valeur "salut"
MonTab(1) aura pour valeur "bonjour"
...
MonTab(UBound(MonTab) aura pour valeur "bye bye"
;)

Ben , écouter merci tout le monde

je n'ai plus que des réponses, encore merci

je vais utiliser et ajouter tout simplement la fonction : "Line Input#"

De plus ca m'arrange de selectionner ligne par ligne avec les retour chariots

Merci

Bonjour,

Encore une âme heureuse... Quel bonheur ici bas :P

Pense au tag "RESOLU", ca aide les egns qui cherche et remercie ceux qui t'ont aidé...


Cordialement


~~ La Praline ~~
... un choco qui aide comme il peut !!!

ok désolé, je fais ca tout de suite