[Débutant] probleme avec une fonction dans une chaine

probleme avec une fonction dans une chaine

bonjour
en voulant executer cette ligne j'ai un probleme avec left.le but etant de garder le 1er caractere suivant _.

Code:

1
2
3
4
If Len(isole_nom) = 0 Then Exit Function
        For isole_carac = Len(isole_nom) To 1 Step -1
            If Mid(isole_nom, isole_carac, 1) = "_" Then isole_nom = Left(isole_nom, isole_carac + 1) : Exit For
        Next

merci

Bonjour,

Code:

1
2
'_Str est une variable de type String
Dim _Char As Char = _str.Chars(_str.IndexOf("_") + 1)

Citation:
Envoyé par Rainui
Bonjour,
Code:

1 2 '_Str est une variable de type String Dim _Char As Char = _str.Chars(_str.IndexOf("_") + 1)
L'idée est là mais faudra quand même bien penser aux cas d'erreurs, Nothing, chaine vide, chaine finissant par "_" ;)

voici le code qui fonctionne tres bien en vb mais j'aimerai l'integrer en vb net la 1ere partie est fonctionnelle mais pas la 2eme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function isole_nom(ByVal Recherche_AVI)
 
        If Len(Recherche_AVI.Text) = 0 Then isole_nom = "" : Exit Function
        For isole_carac = Len(Recherche_AVI.Text) To 1 Step -1
            If Mid(Recherche_AVI.Text, isole_carac, 1) = "\" Then isole_nom = Mid(Recherche_AVI.Text, isole_carac + 4) : Exit For
        Next
        If Len(isole_nom) = 0 Then Exit Function
        For isole_carac = Len(isole_nom) To 1 Step -1 : Exit For
            If Mid(isole_nom, isole_carac, 1) = "_" Then isole_nom = Left(isole_nom, isole_carac + 1) : Exit For
 
             Next
 
    End Function

Je n'ai pas réussi à adapter le code de rainui:oops:

Bonsoir,
MSDN dit :

Citation:

Left, fonction (Visual Basic), si elle est utilisée dans une application Windows Forms, ou dans toute autre classe qui a une propriété Left, vous devez attribuer un nom complet à la fonction avec Microsoft.VisualBasic.Left.

Ceci dit vous avez SubString qui remplace avantageusement les vieilles fonctions VB : Mid, Left, Right.
votre code dans une Function pourrait ressembler à cela :
Code:

1 2 3 4 For isole_carac As Integer = isole_nom.Length - 1 To 1 Step -1 If isole_nom.Substring(isole_carac, 1).Equals("_") Then isole_nom = isole_nom.Substring(isole_carac + 1) : Return isole_nom Next Return String.Empty
La fonction retourne le caractère si elle le trouve sinon elle retourne une chaîne vide.