Discussion :

[Seb_590]

Bonjour,

voici mon code :

Code :

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

1
2
3
4
5
6
 
Open "c:\fichier.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data
Loop
Close #1

Je veux, donc que la variable Data, contiennent les sauts de ligne que mon fichier .txt comporte ...

J'ai essayer ceci :

Code :

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

1
2
3
4
5
6
7
 
Open "c:\fichier.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data
Datab = Data & vbCrLf
Loop
Close #1

Mais Datab ne vaut plus rien.

Merci donc de m'aider.

Cordialement.

[sovo]

et si tu faisais coe ceci ??

Code :

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

Datab = Datab & Data & vbCrLf

[Seb_590]

Je viens d'essayer cela est identique, dans une MsgBox, j'en voit 15, donc 15 lignes nickel, mais sans MsgBox, je vois mon fichier en ligne continue.

[Delbeke]

Heu, tu le vois comment ton fichier, en dehors de ta msgbox ?

[Seb_590]

En ligne continue, je veux dire si le fichier contient :

Ligne 1
Ligne 2

Dans, une MsgBox, si je la met dans la boucle, nickel j'en voit 2 une, Ligne 1 une Ligne 2

Mais ailleurs, avec la variable Datab elle contient :
Ligne1Ligne2

[Delbeke]

Je recommence, comment faits tu pour visualiser ta variable ?
un textbox ? un print sur un picturebox ? ou toute autre methode ?

[ucfoutu]

Bonjour,

Et comment (par quelle méthode) a été écrit ton fichier texte ?
Est-il par ailleurs structuré ?

Le mieux est que tu nous en montres un bout (par copier-coller).

[Seb_590]

Je l'utilise avec un WebBrowser, car je veux que le contenue de mon fichier soit passer en paramètre sur une page PHP or ce qui est envoyer sur la page PHP, est du simple ligne non une variable structuré en saut de ligne, sinon le txt est fait de mes mains avec bloc note.

[ucfoutu]

Alors, si c'est toi qui l'a écrit manuellement, que tu l'as écrit avec le bloc-notes, et que tu as bien inséré des retours à la ligne :

Lis-le donc d'un seul coup

Essaye pour voir et dis-nous :

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
   Open "c:\fichier.txt" For Input As #1
        malecture = Input(LOF(1), #1)
   Close #1
   MsgBox malecture
End Sub

[Seb_590]

La MsgBox, est nickel, elle m'affiche le tout avec les sauts de ligne, par contre le code du WebBrowser enfin le code entier :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If (oFSO.FileExists("c:\fichier.txt")) Then
Open "c:\fichier.txt" For Input As #1
Data = Input(LOF(1), #1)
'MsgBox Data là ca fonctionne ...
Close #1
Web.Navigate "http://site.com/Data.php?txt=" & Data 'Là le tout est en une ligne ...
End If

Merci.

[ucfoutu]

Là, c'est une autre paire de manches et dépend de ce qui est attendu et lu ailleurs !!!!
Si la chose ne marche pas, ne marcherait pas non plus l'envoi de quelque chose du genre :
"toto" & vbcrlf & "titi"...
C'est le vbcrlf qui n'est pas aimé à la réception.
Essaye de le remplacer par un VBNewline (par code direct, comme montré en rouge, genre, donc
"toto" & vbNewline & "titi".

[Seb_590]

Code :

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

1
2
3
4
5
6
7
8
 
Open "c:\fichier.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data
Datab = Datab & Data & vbNewLine
Loop
Close #1
Web.Navigate "http://site.com/Data.php?txt=" & Datab

Ne fonctionne pas, j'ai trouver une solution, enfin essayer je vais essayer, c'est de rajouter un \n à chaques lignes, car PHP aime splitter ça avec une fonction.

Genre :

Code :

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

1
2
3
4
5
6
7
Open "c:\fichier.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data
Datab = Datab & Data & "\n"
Loop
Close #1
Web.Navigate "http://site.com/Data.php?txt=" & Datab

[Seb_590]

Merci à vous tous.