récupération de données dans une textbox

récupération de données dans une textbox - VB/VBA/VBS - Programmation

Marsh Posté le 29-12-2004 à 18:38:39    

Salut tout le monde
Voila je récupère les données d(un appareil de mesure via le port série.
(à l'origine ça sortait sur une imprimante série)
J'ai donc un controle MSComm et une TextBox dans un Form (VB6 ou VBA)
Ca me donne ça
http://mosfet88.free.fr/mscom.jpg
Comment je pourrais faire pour récupérer que les valeurs contenues dans la TextBox, sachant que tout ce qui s'y trouve était destiné à une imprimante.
Si quelqu'un a une idée ou une méthode pas trop lourde.
Merci
 

Reply

Marsh Posté le 29-12-2004 à 18:38:39   

Reply

Marsh Posté le 30-12-2004 à 17:21:45    

Ben euh si le texte en sortie a tjs la même gueule tu parses le tout comme une grosse chaine de caractère pour en extraire les données, je vois pas comment tu veux faire autrement si tu peux pas rapatrier les infos une par une [:drwatson].
 
par exemple Avec instr/mid tu reperes chaque occurence de "um" et tu sors ce qu'il y a x caracteres avant...
Là par exemple je vois que c'est tjs un nombre à 3 chiffres, peut être 4 parfois (le cas n'apparait pas, c'est toi qui le sait). vu que le nombre est entouré d'espaces tu peux très bien extraire les 6 caractères avant um, faire un trim, il te restera que le nombre que tu pourras mettre (si tu veux) dans un tableau d'entiers à 1d


---------------
Réalisation amplis classe D / T      Topic .Net - C# @ Prog
Reply

Marsh Posté le 30-12-2004 à 18:35:49    

Ben voila j'ai fait ça (pour l'instant en VBA et excel)
J'ai pas réussi a boucler avec instr, ça me sortait que la première valeur.
 
l = 1
For txt = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, txt, 2) = "um" Then
Cells(l, 1) = Mid(TextBox1.Text, txt - 4, 3)
l = l + 1
End If
Next
 
ça rejoint ce que tu me dis en me référant à "um", et ainsi je récupère mes valeurs 319,250 etc dans des cellules. Ya plus qu'a traiter et histogrammer!
Pour info "um" c'est µmètre et c'est des mesures d'épaisseur de peinture ou de galva sur des surfaces métalliques.
 
 
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed