chaine commance par xRésolu

Question

salut tous le monde,

je veux faire une function qui me permet d'executer une commande en function du premier caractere de cette chaine.

function a(x)

if x commance par a then a
if x commance par b then b

end funtion

merci d'avance

jmfmarques · Accepted Answer

private function coucou(machaine as string) as string
   coucou = left(machaine,1)
end function

cs_Exploreur · Answer

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Encore une fois le com passe pas...Rrrrrr

Dim MyChaine As String


MyChaine = "Zaza"


MsgBox Right(MyChaine, 1)
MsgBox Left(MyChaine, 1)


A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut Jmfmarques,

Voir aussi comme cela, mais comme tu le dit souvent tout dépend d'où vient la chaine :

Ici je prend la chaine d'un textbox :

Utilisation :
If Extract(Text1, 1) = "x" Then MsgBox "Lettre x trouver en première place"

Private Function Extract(MyObj As Object, MyPos As Integer) As String
Extract = Left(MyObj.Text, MyPos)
End Function


A+
Exploreur

 Linux a un noyau, Windows un pépin

Chaine commance par x

4 réponses

Votre réponse