Recuperation valeur apres charRésolu

Question

Bonjour,
Je désirerai récupérer un mot se situant entre deux caractère que j'ai définie, mais je ne parviens pas à trouver comment.

J'utilise la méthode string.split

Voici mon code :



         For Each paths As String In ListBoxCustomPaths.Items
                Dim s As String = paths
                Dim words As String() = s.Split(New Char() {">"c})

                If words.Last.ToString = "ENABLED" Then
                    If System.IO.Directory.Exists(words.First) = True Then
                        My.Computer.FileSystem.CopyDirectory(words.First, TextBox0.Text & "\Custom Paths" & 'VALEUR VOULU, True)
                    End If
                End If
            Next


Pour exemple, prenons trois éléments dans la listbox :

C:\Test\>MonNom>ENABLED
C:\Path\>AutreNom>ENABLED
C:\Dossier\>EncoreUnAutre>DISABLED


Je voudrai récuperer la valeur du milieu. Quelqu'un aurait une solution ? Merci

ucfoutu · Accepted Answer

Hé bé !

soit toto un array.
Il commence à l'indice 0
son deuxième élément (s'il en contient au moins 2)  est donc ..... toto(1) ===>>> Bingo ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Salut
Je voudrai récuperer la valeur du milieu

pas compris

Sentynel · Answer

Bonjour,
Je parle de la valeur se situant entre les deux ">"
Dans mon exemple, il s'agit de "MonNom", "AutreNom" ou "EncoreUnAutre".

ucfoutu · Answer

Bonjour,

Split te retourne un array

Ta question reviendrait-elle simplement à :
Comment extraire le 2ème élément d'un Array ? 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Sentynel · Answer

Bonjour,
Oui.

ucfoutu · Answer

A lire et t'en imprégner d'urgence.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Sentynel · Answer

Merci ucfoutu, je tacherai d'en tenir compte.

Orlean2 · Answer

'bonjour excuse si je n&#8217;ai pas compris ta question
'copier coller dans une feuille et placer un bouton Command1 et clic

Private Sub Command1_Click()
a$ = "Bonjour moi s'est  Philippe toi s'est pascal, sa répond a ta question ?"
recherche$ = "pascal"

Print "La chaine est " & a$
Print "La recherche est " & recherche$
X = InStr(a$, recherche$) 'X prend la valeur ou il le trouve
If X > 0 Then 'Superieur a zéro trouver a X caract
reponse$ = Mid(a$, X, Len(recherche))
Print "Trouver au caractère N°" & LTrim(Str(X)) & "   Le mot    " & Chr(34) & reponse$ & Chr(34)
End If
'tu est pas obliger de mettre des $

'faire un echage de variable du style f$=a$ et de les mettre en Ucase(f$)
'pour une recherche en maguscul ou en miniscul
'exemple InStr(Ucase(a$), Ucase(recherche$))
'comme cela tous est en majuscul il est sur de trouver

'si tu veux j'ai des routine de recherche et remplace tout
End Sub

ucfoutu · Answer

Bonjour, Orlean,

Je crois personnellement deux choses :
1) tu n'as pas vu que le code attendu est à écrire en VB.Net
2) tu n'as pas non plus vu qu'il ne s'agissait pas de rechercher un mot connu, mais d'extraire un mot (encore inconnu) entre deux caractères de séparations 



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Sentynel · Answer

Bonjour, de plus le problème est résolu

Orlean2 · Answer

Bonjour ucfoutu
excuse je n'ai pas tout lu
a+

Recuperation valeur apres char

11 réponses

Votre réponse

Discussions similaires