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

[Didier77]

ouaic bien comme ça mé jcomprend pas pourkoi
tu met resultat en string.
En fait je veu juste savoir s'il ya un chifre dans la chaine
par contre il fo aprés que j'envoie cette chaine dans un champ et sa
je sais pas comment on fait..

[Didier77]

en fait jpense que je vais utliser une requete sql
UPDATE SET

[Didier77]

Est ce qu'on a le droit décrire :

Code :

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

1
2
If ((Asc(Prefix) >= 48) && (Asc(Prefix) <= 57)) Then
Hsn = Prefix

[Delbeke]

a condition de remplacer le && par un And
ca devrait marcher

[sovo]

mé jcomprend pas pourkoi
tu met resultat en string.
En fait je veu juste savoir s'il ya un chifre dans la chaine
par contre il fo aprés que j'envoie cette chaine dans un champ et sa
je sais pas comment on fait..

tu voulais envoyaer quelle chaine ?? la chaine toutes entiere ou le chiffre compris dans cette chaine (ce que Delbeke a fait).

En tout cas pour mettre une chaine dans un champs il faut faire (en VB)

Code :

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

text1.text=chaine

pour excel remplace text1.text par le nom du champs (je croit bien).

[Didier77]

sa marche pas
sa me met une erreur: invalid procedure call or argument

[Didier77]

MA FONCTION:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Public Function StreetName(ByVal Name As String) As String
 
Dim Prefix As String
Dim Espace As Long
Dim Temp As String
Dim Result As String
Dim Hsn As String
 
 
 
 
Espace = InStr(Name, " ")
 
Prefix = Mid(Name, 1, Espace)
Temp = Mid(Name, Espace + 1)
 
 
If ((Asc(Prefix) >= 48) And (Asc(Prefix) <= 57)) Then
 
 
Result = Rename(Temp)
StreetName = Result
 
Else: Result = Rename(Name)
StreetName = Result
End If
 
 
End Function

[Delbeke]

sur quelle ligne ?
le code parait bon

[Didier77]

En fait il surligne la lignes du If
Je cherche depuis un quart d'heure sa commence a me gaver serieux

[Delbeke]

Si , je vois un probleme si il n'y a pas d'espace
la fonction mid alors cherche une sous-chaine de longeur zéro !

[Didier77]

J'ai corriger le probleme du mid

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public Function StreetName(ByVal Name As String) As String
 
Dim Prefix As String
Dim Espace As Long
Dim Temp As String
Dim Result As String
Dim Hsn As String
 
 
 
 
Espace = InStr(Name, " ")
 
If Espace = 0 Then
    StreetName = Name
    Exit Function
  End If
 
Prefix = Mid(Name, 1, Espace)
Temp = Mid(Name, Espace + 1)
 
 
If ((Asc(Prefix) >= 48) And (Asc(Prefix) <= 57)) Then
 
 
Result = Rename(Temp)
StreetName = Result
 
Else: Result = Rename(Name)
StreetName = Result
End If
 
 
End Function

[SfJ5Rpw8]

donc si c'est terminé utilise le bouton tout en bas