Explication pour instr (ou le + utile) svp
cs_LeRoux
Messages postés
27
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
4 septembre 2002
-
6 mars 2002 à 03:59
cs_DragonHeart Messages postés 38 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 16 octobre 2008 - 6 mars 2002 à 10:54
cs_DragonHeart Messages postés 38 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 16 octobre 2008 - 6 mars 2002 à 10:54
1 réponse
cs_DragonHeart
Messages postés
38
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
16 octobre 2008
6 mars 2002 à 10:54
6 mars 2002 à 10:54
Vla un exemple pour la fonction Instr
La fonction Instr renvoi la position du premier caractere que tu recherche dans une chaine
Par exemple dans ta phrase tu cherche Att
donc tu va dire
Pos=Instr(1,Text,"Att",Vbtextcompare)
1=> correspond a la position de debut de la recherche ici le premier caractere
Text => la chaine dans lekel va seffectuer la recherche
"Att" => se ke tu cherche
VbtextCompare=> Mode de comparaison
le resulta pos et un nombre signifian la position du premier caractere de la chaine ke tu cherche
un exemple plus comcret voila une fonction ke g ecrite pour mon programme
'Fonction Remplacant les points par des virgules
Public Function TestPoint(ValTest As String) As Double
Dim pos As Long
pos = InStr(1, ValTest, ".", vbTextCompare)
If pos > 0 Then
ch = Left(ValTest, pos - 1)
ch2 = Right(ValTest, Len(ValTest) - pos)
ValTest = ch + "," + ch2
TestPoint = CCur(ValTest)
Else
TestPoint = CCur(ValTest)
End If
End Function
si tu ve dotre explication envoi moi un mesage
@+
La fonction Instr renvoi la position du premier caractere que tu recherche dans une chaine
Par exemple dans ta phrase tu cherche Att
donc tu va dire
Pos=Instr(1,Text,"Att",Vbtextcompare)
1=> correspond a la position de debut de la recherche ici le premier caractere
Text => la chaine dans lekel va seffectuer la recherche
"Att" => se ke tu cherche
VbtextCompare=> Mode de comparaison
le resulta pos et un nombre signifian la position du premier caractere de la chaine ke tu cherche
un exemple plus comcret voila une fonction ke g ecrite pour mon programme
'Fonction Remplacant les points par des virgules
Public Function TestPoint(ValTest As String) As Double
Dim pos As Long
pos = InStr(1, ValTest, ".", vbTextCompare)
If pos > 0 Then
ch = Left(ValTest, pos - 1)
ch2 = Right(ValTest, Len(ValTest) - pos)
ValTest = ch + "," + ch2
TestPoint = CCur(ValTest)
Else
TestPoint = CCur(ValTest)
End If
End Function
si tu ve dotre explication envoi moi un mesage
@+
