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

manud31 Messages postés 81 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 16 mai 2006 - 16 janv. 2006 à 11:37
zuifs Messages postés 2 Date d'inscription samedi 12 juillet 2008 Statut Membre Dernière intervention 12 octobre 2008 - 12 oct. 2008 à 18:06
<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

malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 1
16 janv. 2006 à 13:51
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?
++
0
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
16 janv. 2006 à 13:57
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)
0
zuifs Messages postés 2 Date d'inscription samedi 12 juillet 2008 Statut Membre Dernière intervention 12 octobre 2008
12 oct. 2008 à 18:06
je voudrais reccupere les donnéé d"une MSFlexGrid  pour les envoyés dans une basse de donne  et visse -versa
0
Rejoignez-nous