drtoms
Messages postés12Date d'inscriptionmercredi 28 janvier 2004StatutMembreDernière intervention30 juillet 2006
-
19 juin 2006 à 19:36
drtoms
Messages postés12Date d'inscriptionmercredi 28 janvier 2004StatutMembreDernière intervention30 juillet 2006
-
19 juin 2006 à 22:33
Bonjour à tous, désolé pour le titre pas très explicite, je vais essayer de vous exposer mon problème clairement :
Je voudrais récupérer une suite de 16 caractères qui se situent dans une textbox. Le problème est que je ne les connais pas, que ces caractères changent, et que leur position dans la chaine est aléatoire...
Par exemple je voudrais récupérer ca : C12D55B2AC425846 dans une chaine comportant d'autres caractères, comme par exemple :
"<mm3158>;;eucC12D55B2AC42584<mm3158>;;euc"
Tout ce que je connais, c'est la "forme" : 16 caractères qui se suivent, comportant TOUJOURS et UNIQUEMENT des chiffres et des lettres en Majuscule...
Comment faire pour récupérer ces caractères parmi les autres ?
Existe-t-il une solution à mon problème ? Mes recherches n'ont rien donné
D'avance, merci ;-)
A voir également:
Récupérer une suite de caractères inconnus dans une chaine, en ne connaissant qu
Dolphin Boy
Messages postés630Date d'inscriptionvendredi 5 mai 2006StatutMembreDernière intervention17 février 2007 19 juin 2006 à 20:50
j'ai fais ce test, essaie-le, adapte-le. A la place du msgbox tu traites comme tu veux, rangement dans une variable si une seule occurence ou dans un tableau si plusieurs :
Private Sub Command1_Click()
Dim chaine As String
Dim cpt As Integer
Dim Debut As Integer
Dim lg As Integer
chaine = "<mm3158>;;eucC12D55B2AC425846<mm3158>;;euc"
lg = 16 'longueur de la chaine à trouver
cpt = 0 'compteur du nb de caractères corrects
For i = 1 To Len(chaine)
If Mid$(chaine, i, 1) Like "[0-9A-Z]" Then
If cpt 0 Then Debut i
cpt = cpt + 1
Else
If cpt = lg Then
MsgBox Mid$(chaine, Debut, lg)
End If
cpt = 0
End If
Next