chaine de caractèreRésolu

Question

Bonjour j'ai un petit problème j'ai une chaine de caractère constante et j'aimerais savoir si une autre chaine de caratère contient la premier chaine dee caractère avec un exemple ca sera plus facile a comprendre. J'ai une première chaine chaine1 =  "abc" une deuxième chaine2 = "bfabcz" 
et je me demande comment faire pour savoir si la chaine1 est une chaine de caractère de chaine2.
Existe-il une fonction définit en VB qui permette de faire cela. merci de rep

drikce06 · Accepted Answer

Salut,

dim chaine1 as string =  "abc" 
dim  chaine2 as string = "bfabcz" 
 i = InStr(i + 1, chaine1, chaine2 , vbComparetext)


if i <> 0 then msgbox ("La chaine a été trouvée")

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_yvesyves · Answer

Avec la Fonction Instr tu trouveras ton bonheur. Si elle renvoie 0 c'est que abc n'existe pas dans la chaine principale.

cs_yvesyves · Answer

Attention Drikce06 on ne sais pas à quoi est égale i. I est le paramètre du début de recherche dans la chaine pricipale. La recherche ne s'effectuera pas avant le caractère i. Ensuite tu peux grâce à une bouche rechercher plusieurs fois abc s'il existe plusieurs fois grâce au resultat du premier Instr qui indique la posiotion de la premiere occurence.

drikce06 · Answer

Ha oui désolé copier/coller bête et méchant c'est pas i+1 mais 1 tout cours merci 215443  yvesyves , j'avais pas fait attention.

dim i as integer
dim chaine1 as string  =  "abc" 
dim  chaine2 as string = "bfabcz" 
 i = InStr
(1, chaine1, chaine2 , vbComparetext)

if i <> 0 then msgbox ("La chaine a été trouvée")





 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jmfmarques · Answer

Bonjour,
Bis repetita, donc...
S'il veut simlplement savoir si la chaîne est présente, en se moquant de la position de son début, l'utilisation de Like (voir dans l'aide en ligne et une intervention récente d'un cinglé) suffit largement ...

jmfmarques · Answer

Démonstration (la dernière, j'espère) :

Private Sub Command1_Click()
 toto = "je vais au marché"
 chercher = "au"
 MsgBox IIf(toto Like "*" & chercher & "*", "présent", "absent")
 chercher = "rigolons"
 MsgBox IIf(toto Like "*" & chercher & "*", "présent", "absent")
End Sub

drikce06 · Answer

jmfmarques Quels sont les hypothèses? 

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

jmfmarques · Answer

essaye donc....

Chaine de caractère

8 réponses

Votre réponse

Discussions similaires