Récupération de données dans un fichier txt

Signaler
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
-
Messages postés
2
Date d'inscription
samedi 12 juillet 2008
Statut
Membre
Dernière intervention
12 octobre 2008
-
<meta http-equiv="CONTENT-TYPE" content="text/html; charset=utf-8"><title>Récupération de données dans un fichier txt</title><meta name="GENERATOR" content="OpenOffice.org 1.1.3 (Linux)"><meta name="AUTHOR" content="manie"><meta name="CREATED" content="20060115;17130000"><meta name="CHANGEDBY" content="manie"><meta name="CHANGED" content="20060115;17240000">






<style>
<!--
@page { size: 21cm 29.7cm; margin: 2cm }
P { margin-bottom: 0.21cm }
-->
</style>

Bonjour, je travaille en VB6





Mon problème est que je dois
récupérer une série d’info dans un fichier
nommée « result.txt », afin de les
exploiter.


1) Par ex voici la 1ère
partie de mon fichier :




Diamètre
équivalent des zones comprimées de la pièce
assemblée: Dp= 19.188061





Flèche
maximale au point d'application de charges: 0.543560





Couple de serrage
sur vis 1 en Nm: Cs1= 11.931893


Couple de serrage
sur vis 2 en Nm: Cs2= 11.931893



Je voudrais récupérer les
valeurs numériques pour le mettre dans des simples textbox
dans la form1



2) Ensuite j’ai une série de
valeurs (voir ci-dessous), et il me faudrait les récupérer
(je sais pas trop où !) afin de pouvoir tracer une courbe
pour chacune de ces lignes



i Fe
q1 q2 mb1 mb2


0 0.000000
11592.219727 11592.220703 -5.925808 -10.161422


1 1500.000000
11724.924805 11511.783203 299.094604 -0.084669


2 3000.000000
12510.312500 11362.174805 815.524414 -34.197327


3 4500.000000
13973.162109 11155.344727 1556.191284 -58.979328


4 6000.000000
15694.170898 10940.443359 2349.290527 -75.520203


5 7500.000000
17699.304688 10712.090820 3185.675293 -85.139069


6 9000.000000
19906.230469 10516.958984 4037.600098 -71.520195


7 10500.000000
22109.472656 10321.558594 4889.264648 -57.962730


8 12000.000000
24574.062500 10164.595703 5758.148438 -18.965878


9 13500.000000
27043.787109 10018.149414 6624.459961 23.973532


10 15000.000000
29502.431641 9869.218750 7490.105957 65.135223



Je suis complètement à la
rue alors si quelqu’un peut m’expliquer comment on lit un fichier
txt je pense que c’est avec open …for input as #1


Mais alors après je ne trouve
pas du tout comment faire !!!!!!!!



Merci a celui qui trouvera

3 réponses

Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007

Si ton .txt est toujours pareil, tu doit pouvoir, avec le nb de caractere, selectionner uniquement les chiffres mais bon, c'est peut-etre pas ce que tu veux?!!!
En cherchant "trouver caractere" ou "selection caractere" sur le site, tu ne trouve rien?
++
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Salut
Oui, c'est Open qu'il faut utiliser pour ouvrir un fichier.
En chargeant n'importe quelle source parlant de lecture de fichier, tu sauras faire + aide de VB6 sur les fonctions liées.
Ensuite, quand tu auras lu une ligne de ton fichier, il faudra chercher tes valeurs.
Là, il faut trouver des caratcères clés comme = ou : ou bêtement espace.
Dans tes premières lignes, la valeur est à la fin de la ligne : Suffit donc de trouver l'emplacement du dernier espace.
r = InstrRev(maLigne, " ") ' Emplacement du dernier espace
Valeur = Mid(maLigne, r + 1) ' Caractères pris entre cette position et la fin de la chaine
Tu peux aussi jouer avec les Split ...
Regarde l'aide des fonctions de traitement des chaiones de caractères : Left, Right, Mid, Instr, InstrRev

Charge et analyse des sources qui parlent de fichier texte ou d'analyse de fichier html : une fois le fichier html récupéré, en général, on recherche des mots clés pour retrouver une info ....

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Messages postés
2
Date d'inscription
samedi 12 juillet 2008
Statut
Membre
Dernière intervention
12 octobre 2008

je voudrais reccupere les donnéé d"une MSFlexGrid  pour les envoyés dans une basse de donne  et visse -versa