Entier

Signaler
Messages postés
44
Date d'inscription
mercredi 19 septembre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
salut


comment recherche un entier ou bien un nombre dans une ligne de fichier texte

2 réponses

Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Bonjour,

Je suppose que tu as déjà isolé le contenu de la ligne

avec une boucle sur la longueur de la chaine, la fonction Mid et la fonction Isnumeric ...
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour à tous,

Bonjour Jacques,
Au secours !!! Je pense qu'il y a plus simple que :

ligne = " extrac12,3et456creation789.10tableau "

For i =1 To Len(ligne)
    caractere_lu = Mid(ligne,i,1)
    old_caractere = old_caractere
    If IsNumeric(caractere_lu) Then
       If cpt=0 Then
          old_caractere_lu = caractere_lu
          cpt=1
       Else
          old_caractere_lu = old_caractere_lu & caractere_lu
       End If
    Else
       If old_caractere_lu <> vbNullString  Then
          resultat = resultat &vbCr& old_caractere_lu
          old_caractere_lu = vbNullString
       End if
    End if
Next
MsgBox resultat,,"resultat"

jean-marc