Discussion :

[chuspyto]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rainui]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sehnsucht]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chuspyto]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chuspyto]

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

[chrismonoye]

Bonsoir,
MSDN dit :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.