Discussion :

[marc_calagac]

salut

j'ai une chaine soit : "F100"

je veux test

Code :

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

1
2
if Mid$("exemple", 2, 1) =  [0-9]
Mid$("exemple", 1, 1) = [A-Z] ou [a-z]

c'est à dire :si le deuxieme caractere est bien un chiffre

comment faire ? j'ai essayé : = [A-Z] ou [a-z] ou [0-9] mais ca me donne une erreur
c'est quoi le bonne syntaxe?

autre question : "comment tester si une chaine de caracteres est composée entierement de lettres, est ce que c'est: Typeof machaine is string ou autre?"

[Philippe PONS]

En testant sur le code ascii du caractère?
?asc("a") => 97 par exemple

[cavo789]

Petite function que j'ai développée ci-dessous. J'utilise les API de Windows.

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
Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long
Private Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long
 
Function IsNumber(ByVal sNumber As String) As Boolean
 
Dim wCar As Byte
Dim bReturn As Boolean
Dim I As Byte
 
   bReturn = True
 
   For I = 1 To Len(sNumber)
 
      wCar = Asc(Mid(sNumber, I, 1))
 
      If IsCharAlphaNumeric(wCar) Then
         If IsCharAlpha(wCar) Then bReturn = False: Exit For
      Else
         bReturn = False: Exit For
      End If
 
   Next
 
   IsNumber = bReturn
 
End Function

Christophe

[Invité]

Bonjour

Tout simplement avec la fonction IsNumeric, regarde dans l'aide pour la syntaxe, tu passes le caractére (ou la chaine que tu veux en paramètre), si c'est c'est un chiffre elle te renvoi true, sinon faux.

petit exemple :

Code :

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

1
2
3
Public Function test(strTest As String)
    MsgBox IsNumeric(Mid(strTest, 2, 1))
End Function

Si tu passes "toto" en paramètre, la msgbox t'affiche faux
Si tu passes "t2to" en paramètre, la msgbox t'affiche vrai

Starec

[marc_calagac]

merci