Comment extraire un mot dans une ligneRésolu

Question

Bonjour à tous. En visual Basic6, comment extraire un mot ou une date dans une ligne d'après un fichier HTML. J'ai téléchargé la page HTML, je la renomme en TXT. Ensuite, je lis les lignes : Line Input #numfich, tmp ' On lit la ligne et on la stocke dans la variable Exemple d'une ligne : Colis Numéro 8N00629048780 à destination de 74130 Comme vous pouvez le voir, il y a au début de la ligne des espaces ou même des caractères parasites. Je voudrais donc pouvoir extraire le numéro "8N00629048780" ainsi que le code postal "74130". Merci beaucoup pour vos lumières. Cordialement

cs_JMO · Accepted Answer

Bonjour , MyString = "Colis Numéro 8N00629048780 à destination de 74130 " MyArray1 = Split(MyString, "", -1, 0) MyArray2 = Split(MyString, "", -1, 0) MsgBox Right(MyArray1(i), 13) &vbCrLf& Right(MyArray2(i), 5) jean-marc

Tanaka56 · Answer

Merci pour ces infos, je ne connaisssais pas les syntaxes.
J'ai juste modifi&#233;, car un copier-coller ne fonctionnait pas, sans doute (right$) au lieu de (right) et (&vbCrLf&) il n'aime pas non plus.

numero = Right$(MyArray1(i), 13)
codepostal = Right$(MyArray2(i), 5)

Merci encore. Cordialement.
Alain.

cs_JMO · Answer

Bonsoir,

Mes r&#233;ponses(bonnes ou erron&#233;es) sont toujours en vbs,
mais facilement adaptables aux autres VBx (hormis .Net).
Attention, dans ta demande, on sous-entend que 
"8N00629048780" soit toujours de m&#234;me longueur(13).

jean-marc

Tanaka56 · Answer

Bonjour.
Effectivement, la longueur du num&#233;ro est &#233;gale &#224; 13 caract&#232;res.
Par contre, j'ai bien not&#233; qu'il faut &#233;galement doubler les " en mettant "".
Dans mon cas j'avais : class="txtnav3on"
Il faut mettre : class=""txtnav3on""

 Cordialement
Alain

cs_JMO · Answer

Bonjour, Oui, je ne l'avais pas précisé, tellement c'est une habitude pour moi. MyString = "Colis Numéro 8N00629048780 à destination de 74130 " idem s'il y a une ', celle-ci devra être protégée (doublée). Bonne journée et bonne prog. jean-marc

Tanaka56 · Answer

Re-bonjour, Je suis toujours sur mon projet de colissimo suivi. Et là je rencontre une difficulté puisque dans la recherche dans une ligne, je ne connais pas la longueur de la phrase car elle peut être différente. Si tu as quelques minutes à me consacrer! Voilà les lignes possibles à rencontrer : Colis en instance à La Poste, destinataire avisé disposant de 15 jours pour aller le retirer. ou Destinataire absent lors de la première livraison, seconde présentation prévue. ou même Colis livré. Tu remarqueras qu'il y a toujours devant : et derrière : . Alors ma question est : Y-a-t'il un moyen d'extraire la ligne en question? (il y a certainement d'autres lignes qu'ils peuvent mettre et que je ne connais pas) Pour moi, c'est un vrai casse-tête ! J'ai pensé à une solution, c'est de faire une recherche avec might$ par caractère en commencant par le "." qui se trouve à la fin de chaque ligne et en reculant d'un caractère à la fois jusqu'à trouver le caractère ">", mais il doit peut-être avoir plus simple! Merci de m'apporter une réponse, si tu en a une. Cordialement. Alain

cs_JMO · Answer

Re, Option Explicit Call Form_Load() Private Sub Form_Load() '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" ' Occurence recherchée '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Const Separateur = ">" Const Separateur2 = "." '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" ' Recherche de chaine de caractères à partir d'une occurence '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Dim iPos, iPos1, sChaine, NewChaine Const Path = "d: est" iPos = "" iPos1 = "" sChaine = "Colis en instance à La Poste, destinataire avisé disposant de 15 jours pour aller le retirer. " 'MsgBox sChaine iPos = InStr(1, sChaine, Separateur) If iPos = 0 Then Else NewChaine = Right(sChaine, Len(sChaine) - iPos) iPos1 = InStr(1, NewChaine, Separateur2) If iPos1 = 0 Then Else MsgBox Left(NewChaine, iPos1 - 1) & "." ' MsgBox "Nom de fichier comprenant le caractère """ & Separateur & """" &vbCrLf&vbCrLf& sChaine &vbCrLf&vbCrLf&vbCrLf&_ ' "Résultat pour le 1er """ & Separateur & """" &vbCrLf&vbCrLf&"A gauche : " & Left(sChaine, iPos - 1) &vbCrLf&_ ' "A droite : " & Right(sChaine, Len(sChaine) - iPos) &vbCrLf&vbCrLf&_ ' "Résultat pour le 2ème """ & Separateur2 & """" &vbCrLf&vbCrLf&"A gauche : " & Left(sChaine, iPos - 1) &vbCrLf&_ ' "Au centre : " & Left(NewChaine, iPos1 - 1) & "." &vbCrLf&_ ' "A droite : " & Right(NewChaine, Len(NewChaine) - iPos1),_ ' vbInformation,"Recherche de l''expression contenue à gauche, au centre et à droite du caractère """ & Separateur & """ " '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" End If End If End Sub jean-marc

cs_JMO · Answer

Re-bonjour,

Erreur dans la r&#233;ponse, comprendre:
MsgBox  Left(NewChaine, iPos1)
au lieu de, 
MsgBox  Left(NewChaine, iPos1 - 1)  & "."  

jean-marc

Tanaka56 · Answer

Bonsoir,
J'ai pass&#233; une bonne partie de l'apr&#232;s midi &#224; faire en sorte que mon petit programme fonctionne.
J'ai pris ta deuxi&#232;me solution en ce qui concerne la Recherche de chaine de caract&#232;res &#224; partir d'une occurence, pour la ville et le code postal, car il y avait un d&#233;calage sur le site de la poste.
Maintenant cela fonctionne.
En ce qui concerne les petites bo&#238;tes de dialogues, je mets directement un label.
Merci encore pour ton aide, elle m'a &#233;t&#233; utile.
J'ai encore plein de choses &#224; faire sur ce programme.

Cordialement
Alain

Comment extraire un mot dans une ligne

9 réponses

Discussions similaires