Découper une chaine à gauche d'un caractereRésolu

Question

Bonjour,
J'ai cette chaine de caractere, par exemple :
blabla*blublu*blibli

J'aimerais savoir s'il existe une fonction permettant de d&#233;couper la chaine &#224; gauche apres le premier *, pour ne conserver que "blabla*blibli".

J'ai essay&#233; Split("blabla*blublu*blibli", "*")(1), mais ca me renvoit "blublu", vu qu'il a aussi supprim&#233; la deuxieme &#233;toile.

Je ne peux pas utiliser Left$(), vu qu'il faut indiquer la longueur &#224; partir d'o&#249; on veut couper et que celle ci peut etre variable.

Pour compliquer la tache, le nombre d'&#233;toile aussi est variable.
Existe t il une commande comme Left$() qui permettrait de d&#233;couper &#224; partir d'un caractere ?
Merci !

cs_Jack · Accepted Answer

Salut
Split utilise * pour s&#233;parer les donn&#233;es, c'est donc normal qu'il les enl&#232;ve.
Un tableau commence (sauf option) &#224; 0
Pour connaitre la position d'un caract&#232;re dans une chaine, regarde l'aide de l'instruction  Instr
Jumel&#233; &#224; Left, Right ou Mid, tu feras ce que tu veux.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

jpleroisse · Answer

Voila un petit code qui pourra peut-&#234;tre t'aider , en attendant de trouver mieux
Private Sub Command1_Click()
StrA = "blabla*blublu*blibli"
partSt1 = Right(StrA, Text1)
Label1 = partSt1
End Sub

Suivant le chiffre que tu place dans le textbox, la cha&#238;ne est d&#233;coup&#233;e et son r&#233;sultat affich&#233; dans le Label1. Par Exp: 13 te donne blubli*blibli.

 jpleroisse

Gobillot · Answer

Private Sub Command1_Click()
    Dim strA As String
    strA = "blabla*blublu*blibli"
    MsgBox Decoupe(strA)
End Sub


Private Function Decoupe$(str As String)
    Decoupe = Mid$(str, InStr(str, "*") + 1)
End Function

Daniel

cs_trotter · Answer

Merci &#224; tous, c'est vraiment sympa : )

Découper une chaine à gauche d'un caractere

4 réponses

Discussions similaires