Ecrire dans un txt dans sans avoir de " avant est apres le texte

Marsh Posté le 26-05-2004 à 15:20:55

Salut,

Avec Visual Basic 6 je voudrais ecrire dans un fichier texte afin d'optenir un fichier comme celui ci :

Code :

ARIFLASHDERE;3529311000365;807
ETRFLASHBLUE;3426354030000;3
DFKOJSIJIOEB;3426354991172;14
ARIFLEZSFRTY;3426354000973;9164

Cependant j'optient un fichier comme cela :

Code :

"ARIFLASHDERE;3529311000365;807"
"ETRFLASHBLUE;3426354030000;3"
"DFKOJSIJIOEB;3426354991172;14"
"ARIFLEZSFRTY;3426354000973;9164"

Voici mon code :

Code :

'Creation du fichier final, c'est a dire celui a importer dans Ciel
Public Sub CreatFichierMAJ()
Dim i As Integer
Dim canal As Byte
canal = FreeFile
'on se connecte à la base Access
Call ConnexionBaseAccess
Open App.Path + "\Mise_a_jour_du_stock.txt" For Output As #canal
For i = 0 To CNouvCodeBar - 1
'Je selectionne l'article desiré en fonction de son code barre
ReqSql = "SELECT * FROM ARTICLES WHERE CodeBar = " & TOpticom(i).CodeBar & " "
Set EnrAccess = BaseAccess.OpenRecordset(ReqSql, dbOpenSnapshot)
'J'ecris dans le fichier texte
Write #canal, EnrAccess.Fields("CodeProd" ) & ";" & EnrAccess.Fields("CodeBar" ) & ";" & EnrAccess.Fields("Qte" ) + TOpticom(i).Qte
Next
'On ferme le fichier Mise_a_jour_du_stock.txt
Close canal
'On ferme l'enregistrement
EnrAccess.Close
End Sub

Merci d'avance pour votre aide

NB : Spike, encore une mission pour toi

Yann

Message édité par +yann le 26-05-2004 à 15:27:34

Reply

Marsh Posté le 26-05-2004 à 15:20:55

Reply

Marsh Posté le 26-05-2004 à 15:51:43

utilise "print" à la place de "write" quand tu écris dans ton fichier.

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 26-05-2004 à 16:42:07

Merci beaucoup, ca marche parfaitement

Reply

Marsh Posté le 27-05-2004 à 19:00:38

c'est quoi ensuite le meilleur moyen de recuperer les donnés d'un fichier et de le mettre dans une variable ? c'est a dire de separer les mot au niveau des ";"
Et qu'est ce qui se passe si dans ce qu'on saisie on met un ";" ?
Enfin, bref, c'est quoi le meilleur moyen de stocké des données dans un fichier afin de les extraires facilement et que le separateur ne soit pas trop commun ?

---------------
✈ Découvre le HFRcoin ✈ - smilies ♥

Reply

Marsh Posté le 27-05-2004 à 20:20:24

le XML

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 27-05-2004 à 20:29:40

mareek a écrit :

le XML

et si le gars c'est un hackeur et qu'il saisie une balise xml ?

---------------
✈ Découvre le HFRcoin ✈ - smilies ♥

Reply

Marsh Posté le 27-05-2004 à 20:54:02

Fabien a écrit :

et si le gars c'est un hackeur et qu'il saisie une balise xml ?

Le parser se débrouille très bien avec ça

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 27-05-2004 à 21:02:10

mareek a écrit :

Le parser se débrouille très bien avec ça

ha ok, sinon t'as un lieu vers une doc qui explique comment utiliser le xml avec vb? :jap:

---------------
✈ Découvre le HFRcoin ✈ - smilies ♥

Reply

Marsh Posté le 27-05-2004 à 21:08:02

Fabien a écrit :

ha ok, sinon t'as un lieu vers une doc qui explique comment utiliser le xml avec vb? :jap:

http://msdn.microsoft.com/library/ [...] ginner.asp

http://msdn.microsoft.com/library/ [...] ml_dom.asp

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 27-05-2004 à 21:39:54

merci mareek !

---------------
✈ Découvre le HFRcoin ✈ - smilies ♥

Reply

Ecrire dans un txt dans sans avoir de " avant est apres le texte

Sujets relatifs:

Leave a Replay