Utilisateur anonyme
-
22 mai 2008 à 21:18
Utilisateur anonyme -
24 mai 2008 à 23:23
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.
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