Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2761 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°740150
+yann
Posté le 26-05-2004 à 15:20:55  profilanswer
 

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

Code :
  1. ARIFLASHDERE;3529311000365;807
  2. ETRFLASHBLUE;3426354030000;3
  3. DFKOJSIJIOEB;3426354991172;14
  4. ARIFLEZSFRTY;3426354000973;9164


 
Cependant j'optient un fichier comme cela :
 

Code :
  1. "ARIFLASHDERE;3529311000365;807"
  2. "ETRFLASHBLUE;3426354030000;3"
  3. "DFKOJSIJIOEB;3426354991172;14"
  4. "ARIFLEZSFRTY;3426354000973;9164"


 
Voici mon code :
 

Code :
  1. 'Creation du fichier final, c'est a dire celui a importer dans Ciel
  2. Public Sub CreatFichierMAJ()
  4.     Dim i As Integer
  5.     Dim canal As Byte
  6.     canal = FreeFile
  7.    
  8.     'on se connecte à la base Access
  9.     Call ConnexionBaseAccess
  10.    
  11.     Open App.Path + "\Mise_a_jour_du_stock.txt" For Output As #canal
  12.    
  13.     For i = 0 To CNouvCodeBar - 1
  14.    
  15.             'Je selectionne l'article desiré en fonction de son code barre
  16.             ReqSql = "SELECT * FROM ARTICLES WHERE CodeBar = " & TOpticom(i).CodeBar & " "
  17.             Set EnrAccess = BaseAccess.OpenRecordset(ReqSql, dbOpenSnapshot)
  18.             'J'ecris dans le fichier texte
  19.             Write #canal, EnrAccess.Fields("CodeProd" ) & ";" & EnrAccess.Fields("CodeBar" ) & ";" & EnrAccess.Fields("Qte" ) + TOpticom(i).Qte
  20.                    
  21.     Next
  22.    
  23.     'On ferme le fichier Mise_a_jour_du_stock.txt
  24.     Close canal
  25.    
  26.     'On ferme l'enregistrement
  27.     EnrAccess.Close
  28.    
  29. End Sub


 
Merci d'avance pour votre aide ;)  
 
NB : Spike, encore une mission pour toi :D
 
Yann


Message édité par +yann le 26-05-2004 à 15:27:34
mood
Publicité
Posté le 26-05-2004 à 15:20:55  profilanswer
 

n°740254
mareek
Et de 3 \o/
Posté le 26-05-2004 à 15:51:43  profilanswer
 

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
n°740340
+yann
Posté le 26-05-2004 à 16:42:07  profilanswer
 

Merci beaucoup, ca marche parfaitement

n°742129
fabien
Vive la super 5 !
Posté le 27-05-2004 à 19:00:38  profilanswer
 

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 ♥
n°742200
mareek
Et de 3 \o/
Posté le 27-05-2004 à 20:20:24  profilanswer
 

le XML


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°742211
fabien
Vive la super 5 !
Posté le 27-05-2004 à 20:29:40  profilanswer
 

mareek a écrit :

le XML

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


---------------
✈ Découvre le HFRcoin ✈ - smilies ♥
n°742262
mareek
Et de 3 \o/
Posté le 27-05-2004 à 20:54:02  profilanswer
 

Fabien a écrit :

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


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


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°742269
fabien
Vive la super 5 !
Posté le 27-05-2004 à 21:02:10  profilanswer
 

mareek a écrit :

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

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


---------------
✈ Découvre le HFRcoin ✈ - smilies ♥
n°742276
mareek
Et de 3 \o/
Posté le 27-05-2004 à 21:08:02  profilanswer
 

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
n°742300
fabien
Vive la super 5 !
Posté le 27-05-2004 à 21:39:54  profilanswer
 

merci mareek !


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[JAVA]Ecrire un texte penché (en biais)[VC++ 6] Ecrire du texte sur plusieurs lignes
Filtre DirectShow: écrire du texte sur une vidéo[C] Ecrire ou lire dans un fichier texte
[C] Ecrire du texte où l'on veutEcrire un fichier texte sur plusieurs lignes en vb6
écrire dans un fichier texte a un endroit précis[HTML] Ecrire du texte sur une image ? .... ca avance !
[C++] fstream : comment ouvrir, lire, écrire dans un fichier texte !?![HTML] Ecrire du texte dans la partie texte dun input type=file ?
Plus de sujets relatifs à : Ecrire dans un txt dans sans avoir de " avant est apres le texte

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.068 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)