HELP ! : recuperation d'une chaine de caractere avant un "/"

Question

Bonjour à tous,
Voila, j'ai un textbox dans lequel je rentre la date en format m/aa (9/04) et je souhaiterai afficher dans un autre textbox le numero du mois (c'est à dire ce qui ce trouve avant le "/").
Merci d'avance pour le coup de main car là, je vois pas trop.
Petite precision : je suis sous vb.net.

jrivet · Answer

salut,

Si les fonctions Instr et LEft existent encore sous vb.net, tu devrais pouvoir t en sortir avec elles.

Ou alors regarde les fonctions que te propose la classe String.

@+
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

 :big)

mimile76 · Answer

j'ai effectivement trouvé la fonction left mais je n'arrive pas à l'utiliser
j'ai fais ca :
        Dim mois As String
        Left(mois, "/")
        TextBox21.Text = mois
mais où on specifie l'endroit où se trouve la chaine d'origine (dans mon cas textbox7)?

crenaud76 · Answer

En VB6, ca donnerais cela :

textbox21.text = left(textbox7.text, instr(textbox7.text,"/") - 1)

peut-être qu'en VB.NET ca passera !!

Christophe R.

mimile76 · Answer

VB me met : 'left as integer' n'a aucun parametre et son type de retour ne peut pas etre indexé.
toujours aussi clair les infos vb !

cs_EBArtSoft · Answer

Dim i As Integer
        Dim t As String
        t = "http://www.google.fr/index.htm"
        Debug.WriteLine(t.Substring(t.IndexOf("/")))

@+

E.B.

cs_EBArtSoft · Answer

Désolé j'ai copié une ligne en trop le 
Dim i As Integer

ne sert a rien 

@+

E.B.

mimile76 · Answer

Il y a un soucis, il recupere ce qu'il y a apres le /, et moi, je souhaite recuperer ce qu'il y a avant.
Sinon ca marche !
Merci

Galactus13 · Answer

Eu un petit problème d'écriture...
Voila un exemple très simple:

MonTexte ="11/02/2054": Y= InStr(MonTexte , "/")
CequiestAvant=Left(InStr(MonTexte , Y - 1) 
CequiestAprès=Mid(InStr(MonTexte , Y + 1)

Avec cet exemple on peut aussi placer un ajout:
Ajout="Toto"

TextSuivant =Left(InStr(MonTexte , Y - 1) + Ajout + Mid(InStr(MonTexte , Y + 1)

Voilou !

NISANDSYSTEMS · Answer

Bonsoir

Public Function AfficheChiffreMoisOnly(TheMonth As String) As String
    Dim SlashPos As Integer
    SlashPos = InStrRev(TheMonth , "/")
    AfficheChiffreMoisOnly= Left$(TheMonth , Len(TheMonth ) - SlashPos - 1)
End Function

Private Sub Command1_Click()
Label1.Caption = ExtraireNom("9/04")
End Sub

@+
Philippe.