Discussion :

[Didier77]

Bonjour à tous,
j'aimerai savoir comment tester si une chaine
de caractere contient un caractere alphanumérique.
J'ai pensé à faire comme en C avec les code ascii,
si vous avez une idée je vous remercie

[SfJ5Rpw8]

ben pour le code ascii tu as la fonction asc
et mid pour extraire un caractére d'une chaine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub test()
Dim st As String
st = "unAici"
If Asc(Mid(st, 3, 1)) = 65 Then MsgBox "il y as " & st
End Sub

[Didier77]

ok donc pour tester si il y a un ascii dans une chaine de caractere il faut faire une boucle

[SfJ5Rpw8]

ok donc pour tester si il y a un ascii dans une chaine de caractere il faut faire une boucle

??? c'est quoi pour toi un ascii

[Didier77]

désolé je me suis mal exprimer, je voudrai tester si une chaine de caractere
contient un chiffre et placer ce chiffre dans un autre champ(access).

[Delbeke]

On peut se faire une boucle du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim Resultat Asd string
Dim iPnt as Long
Dim Char as string
For iPnt = 1 to Len(MonString)
  Char = Mid(MonString,iPnt,1)
  If IsNumeric(Char) Then
     Resultat = Resultat & Char
  end if
Next