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

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.

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
-------------------------------------------------

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)?

En VB6, ca donnerais cela :

textbox21.text = left(textbox7.text, instr(textbox7.text,"/") - 1)

peut-être qu'en VB.NET ca passera !!

Christophe R.

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 !

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

@+

E.B.

Désolé j'ai copié une ligne en trop le

Dim i As Integer

ne sert a rien

@+

E.B.

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

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 !

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.