entier

Question

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

jmfmarques · Answer

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 ...

cs_JMO · Answer

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

Entier

2 réponses

Votre réponse

Discussions similaires