fichier CSV

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : fichier CSV

bruno29

je suis entrain de lire et d'ecrire sur un fichier .CSV dont le format n'est pas du texte mais des données hexa ou des caracteres ascii en hexa de ce type:
0001,0002,000a,001f,2020,3232 etc et le fichier fait 1.3Mo.
lorsque j utilise print#, write#, put etc, les données sont modifiées avec des "" ou des sauts à la lignes ou autres caracteres genant.

lire le fichier Ok mais l'ecrire dans sont format d'origine impossible

DE L AIDE Merci

Publicité

rage44

J'ai déjà eu quelques problèmes pour ajouter une première ligne à un fichier avec ces fonctions. J'avais une première ligne que je voulais effacer et remplacer par une autre, malheureusement la nouvelle ligne contenait moins de caractères et il me restait des caractères parasites en fin de ligne, voir des retours chariots, et j'obtenais aussi des données binaires en début de ligne.
Au final voici comment on a fait:

Code :

'quand on exporte une chaîne à taille fixe on a un export propre
'mais il faut connaître à l'avance la taille des enregistrements
'à écraser (et l'ajout d'espaces en fin de taille fixe ne marche
'pas bien.
'A l'inverse il est aisé de remplacer une ligne avec une
'chaîne 'classique' mais Access ajoute 2 octets de description
'binaires devant cette chaîne.
'On va donc mettre des blancs dans la première ligne avec la 1ere
'méthode puis mettre le vrai contenu de cette première ligne avec
'une chaîne fixe de taille inférieure...
'remplir la première ligne avec des espaces
Open CheminFichierTxt For Random As #FileNumber Len = nb + 2
Dim maString As String
maString = Space(nb - 2) & vbCrLf
'Ce put avec une string 'classique' va mettre deux octets en début de ligne
'par contre, contrairement au put à taille fixe qui suit plus bas il peut
'compléter la ligne avec des blancs, jusqu'au bout
Put #FileNumber, 1, maString
Close #FileNumber
'mettre ce qu'on veut vraiment dans maString
maString = "toto....."
Dim chainefixe01 As String * 55
nb = nb - Len(chainefixe01)
chainefixe01 = maString
'le put marche mieux avec du taille fixe, il ne va pas mettre les deux octets en début de ligne
Open CheminFichierTxt For Random As #FileNumber Len = Len(chainefixe01) + 2
Put #FileNumber, 1, chainefixe01
Close #FileNumber

bruno29

Oui j'ai trouvé la solution en ouvrant tout le fichier dans des donnée(x,y) et en recompilant pour le réecrire dans le fichier avec la fonction print #1 qui ne met pas de " en début mais seulement retour chariot et passge à la ligne mais dont mon automate OMRON ne fais pas attention.IL me reste à trouver comment faire des graphiques avec mes infos merci bye

FORUM HardWare.fr

Programmation

VB/VBA/VBS

fichier CSV

Sujets relatifs
Sortie en fichier Word ou excel	Script d'automatisation de transfert de fichier via FTP
ouvrir et modifier un fichier word en asp.net	un masque de fichier pour un <input type="file">
charger un fichier csv sur une feuille Excel	[resolu] compter les lignes d'un fichier .csv
MySQL (export de données en fichier CSV) ?	[Java] parser fichier CSV... JDBC ?
fonction permettant de convertir un fichier xls en csv	comment enregistrer un fichier CSV en format XLS
Plus de sujets relatifs à : fichier CSV

Page générée en 0.025 secondes