Extraire les chiffres [Résolu]

Signaler
-
 Utilisateur anonyme -
Bonjour,

Voila mon problème : je cherche à extraire tous les chiffres d'une chaîne de caractères dans le but de renommer des fichiers désordonnés ( environ 300 ) de cette manière :

fichier 1.txt               => No 1.txt
dm 2.txt                   => No 2.txt
mail 3.txt                  => No 3.txt
[reo]anonyme65.txt  => No 65.txt

et ainsi de suite, et après plusieurs recherches sur google, je n'ai pas trouvé de moyens convenables de traiter ma chaîne, c'est pourquoi je demande votre aide .
Merci d'avance.

Frifri

3 réponses


Ok, merci beaucoup, je test ça ce soir et je te dis si ça marche

Ca fonctionne parfaitement, merci beaucoup du coup de main
En fait ce qui me manquais beaucoup c'étais le IsNumeric et le Mid.
Merci encore
Frifri
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Salut,

voici la méthode vb6, doit pas être loin pour le dot net, à toi d'adapter :

Option Explicit

Sub exemple()
    Dim ChaineDepart As String, ChaineArrivee As String, sTemp As String
    Dim lPos As Long, i As Long
    
ChaineDepart = "fichier
1234.txt"
lPos = InStrRev(ChaineDepart, ".")

For i = lPos - 1 To 1 Step -1
    If IsNumeric(Mid$(ChaineDepart, i, 1)) Then
        sTemp = sTemp & Mid$(ChaineDepart, i, 1)
    Else
        Exit For
    End If
Next i
ChaineArrivee = "N° " & StrReverse(sTemp) & ".txt"
MsgBox ChaineArrivee
End Sub

Private Sub Form_Load()
    exemple
End Sub

~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA