Discussion :

[gennydude99]

Bonjour,

Je suis nouvelle dans la programmation VB et j'ai le probleme suivant:

J'ai un fichier un texte contenant les donnees suivantes:

" ADVAN "
" AFMD "
" ALLCD "
" ARMST "
" ATB "
" ATCL "
" AVALO "
" BCL "
" BF "
Ce fichier contient plusieurs centaines de lignes.

J'aimerais pouvoir modifier ce fichier pour pouvoir elimiiner " avant et apres mon texte

Est-ce possible ? Pouvez m'aider ?

Merci
Gennydude

[jmfmarques]

Voir (aide en ligne), la différence entre l'utilisation de Print et celle de Write avec la commande Open...
(on peut lire, puis écrire soit en utilisant Print, soit en utilisant Write... on peut lire ce qui est écrit, écrire un nouveau fichier... et écraser le 1er par le 2ème...)
Revenir ensuite si difficultés ...

[gennydude99]

je suis capable de lire le fichier et d'ecrire ligne pas ligne dans un nouveau fichier.

mais comment je fais pour seulement lire a partir du 3e caractere jusqu'au 7e caractere de chaque ligne et de reecrire dans un nouveau fichier

[bidou]

par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Tampon As String
Open "d:\svg\essai.txt" For Binary As #1
Tampon = Space(LOF(1))
Get #1, , Tampon
Close #1
Kill "d:\svg\essai.txt"
Tampon = Replace(Tampon, Chr(34), "")
Open "d:\svg\essai.txt" For Binary As #1
Put #1, , Tampon
Close #1

[gennydude99]

Bonjour,

Desole peut-on faire la meme chose sans utiliser la fonction Replace car j'utilise l'outil HummingbirdBasic, il ne semble pas reconnaitre la fonction replace

[ThierryAIM]

j'utilise l'outil HummingbirdBasic

ça se mange, ça ?

serieusement, il connait Left, Mid, Right ton Huuuummmbasicmachin ?

[gennydude99]

oui je sais c'est une antiquite mais au travail dans le domaine des assurance, ils utilisent cette conneries.

J'ai eu la meme reaction lorsque le programme m'a donner une erreur sur ce Replace.

Oui il comprends left, mid ,right

[bidou]

on peut le faire de multiple façon, mais c'est plus ou moins long.
Si humming machin reconnait mid, tu peux lire le fichier ligne par ligne et écrire dans un nouveau fichier comme :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Tampon As String
Open "d:\svg\essai.txt" For Input As #1
Open "d:\svg\essai1.txt" For Output As #2
Do Until EOF(1)
   Line Input #1, Tampon
   Print #2, Mid(Tampon, 3, Len(Tampon) - 4)
Loop
Close #1
Close #2

[ThierryAIM]

bon, j'ose pas te proposer des fonctions spécifiques à VB6, on va le faire à l'ancienne, ligne par ligne :

Code :

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

1
2
3
4
5
6
7
8
9
Dim strg As String
Open "c:\monfichier.txt" For Input As #1 
Open "c:\monfichiermodifie.txt" For Output As #2
While not EOF(1)
    Line Input #1, strg
    Print #2, Mid (strg, 2, Len(strg)-2)
Wend
Close #1
Close #2

Edit : Grillé de peu

[gennydude99]

excellent merci !!!

je n'avais pas pense a utiliser la fonction Mid

[jmfmarques]

comme nous ignorons :
1) si ton fichier avec des " a été écrit à l'aide de Write ou de Print
2) s'il peut contenir d'autres " (autres que les encadrants)

Je m'en tiendrais en ce qui me concerne à cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
  Open "c:\essai.txt" For Input As #1
  Open "c:\tempfic.txt" For Append As #2
  While Not EOF(1)
    Input #1, toto
    Print #2, Trim(toto)
  Wend
  Close #1
  Close #2
  Kill "c:\essai.txt"
  Name "c:\tempfic.txt" As "c:\essai.txt"
End Sub