Anguel
Messages postés31Date d'inscriptionmardi 8 novembre 2005StatutMembreDernière intervention15 septembre 2011
-
2 sept. 2007 à 11:14
Anguel
Messages postés31Date d'inscriptionmardi 8 novembre 2005StatutMembreDernière intervention15 septembre 2011
-
3 sept. 2007 à 00:50
Bonjour.
J'ai un problème avec les donnés réceptionne par une porte série. En effet
je n'arrive pas de sélectionner la chaine des caractères de laquelle j'ai besoin.
Par exemple je reçoit : L000#bM0000#cH0012#aK0056#b....... et j'ai besoin que de la 0012 ca veut dire la chaine de quatre caractères
suivi de #a.
S'il vous plait si quelqu'un (une) a une idée voila ma question :
Comment je peu extraire que les quatre chiffres AVANT le #a, d’un string buffer et les faire
afficher dans un label.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 2 sept. 2007 à 12:22
Bonjour à tous,
En gros tu vas utiliser InStr pour récupérer l'index de position de
#a dans ton buffer, puis Mid pour extraire la chaine voulue avec comme
point de départ, l'index-4 et comme longueur 4
flux = "L000#bM0000#cH0012#aK0056#bttttttt"
sChaine = "#a"
If InStr(1, flux, sChaine) <> 0 Then MsgBox Mid(flux,InStr(1, flux, sChaine) -4, 4)
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 2 sept. 2007 à 11:32
En gros tu vas utiliser InStr pour récupérer l'index de position de #a dans ton buffer, puis Mid pour extraire la chaine voulue avec comme point de départ, l'index-4 et comme longueur 4
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 2 sept. 2007 à 15:56
Match ? en VB6, ça me dit rien du tout.
Tu dois confondre avec quelqu'un d'autre et quelque chose d'autre sans doute.
Dans le cas précis, juste pour cette extraction, je pense que la solution donné est la plus adaptée. Certes il devrait etre possible d'utiliser aussi les expressions régulières, mais mettre en place un tel mécanisme ici, n'apporterais rien en terme de bénéfice à mon avis.
Anguel
Messages postés31Date d'inscriptionmardi 8 novembre 2005StatutMembreDernière intervention15 septembre 2011 3 sept. 2007 à 00:50
Merci JMO , merci Casy ,
Ca a marché. J'ai récupéré le Numéro.
Vous m'avait beaucoup aidé, je vous remercie infiniment.Mes amitiés.......Anguel.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>