Lecture d'un fichier .DAT [Résolu]

Messages postés
5
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
7 août 2006
- - Dernière réponse : rafoulefou
Messages postés
5
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
7 août 2006
- 7 août 2006 à 08:15
Bonjour,

J'ai un fichier .DAT avec plusieurs enregistrement dedans.

Voici a quoi ca ressemble pour un enregistrement:

MALVACEAE                     Abutilon                      megapotamicum                                               Abutilon                      Brésil                        A cultiver sous climat doux, ou bien abriter en hiver.Peut être palissée:Trés longue floraison.    D:1/m².   Série de prix: D.                                                                                                                            4 4 1 6 1 -1-1-11 0 0 1 000001111110100001000000000011000000000001000000000001000010000<hr align="left" size="1" />
description :
Les premieres informations font 30 caracteres au maximum
puis une ou plusieurs phrases 250 caractéres au maximum puis une série de chiffres qui correspondent à différente caractéristiques

J'arrive à l'ouvrir mais je n'arrive pas à récupérer 1 à 1 les informations ( récuperer les 30 premiers caractéres puis les 30 suivantes puis ainsi de suites)

Voilà si vous avez deux ou trois commandes à me donner,
merci d'avance
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
42
3
Merci
Salut,

Essaie de te creer un Type representant tes donnee
d'apres ce que tu as dit le Type pourrait être

Private Type InfoDat 
    Info1 As String * 30 
    Info2 As String * 30 
    Info3 As String * 30 
    Info4 As String * 30 
    Info5 As String * 30 
    Phrase As String * 250 
End Type 

Ensuite pour le recuperer tu fais

Dim Info As InfoDat 
Open "C:\MonFichier.txt" For Binary As #1 
    Get #1, , Info 
Close #1 

@+ ,Julien
Pensez: Règlement/STRONG>

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 145 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
5
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
7 août 2006
0
Merci
merci pour cette solution j'essayerais ca quand je serais rentré chez moi.
Mais comme j'ai pas Internet à la maison je ne pourrais valider ou non cette solution que lundi matin
Commenter la réponse de rafoulefou
Messages postés
5
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
7 août 2006
0
Merci
c'est bon ca marche merci beaucoup
Commenter la réponse de rafoulefou