Récupérer un texte entre 2 caractères [Résolu]
cs_veler
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
A voir également:
- Vba extraire chaine entre 2 caractères
- Visual basic 6 substring - Meilleures réponses
- Lire une chaine entre deux caractères ✓ - Forum - Visual Basic
- Recherche du caractere avec le plus d'occurences dans une chaine [version 2, tout compilateur] - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Séparer une chaîne de caractère avec 2 caractères ✓ - Forum - C# / .NET
- Test avec RegEx Storm pour extraire chaine de caractères ✓ - Forum - VB.NET
- Extraire chaine de caractère d'un fichier pdf ✓ - Forum - Visual Basic 6
12 réponses
Meilleure réponse
- Messages postés
- 527
- Date d'inscription
- lundi 15 octobre 2007
- Statut
- Membre
- Dernière intervention
- 10 octobre 2013
veler, une fois que t'as la première position, avec substring garde juste la chaine qui commence du premier " jusqu'à la fin.
Ensuite, calcule la 2ème position avec indexof, et enfin, extraits du début de ta seconde chaine jusqu'à ton 2ème "
Ensuite, calcule la 2ème position avec indexof, et enfin, extraits du début de ta seconde chaine jusqu'à ton 2ème "
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
125 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Statut
- Membre
- Dernière intervention
- 24 septembre 2014
Testé et approuvé :
pos1 = ligne.IndexOf(""""c)
pos2 = ligne.IndexOf(""""c, pos1 + 1)
If (pos1 > 0) And (pos2 > 1) Then
MessageBox.Show(ligne.Substring(pos1, pos2 - pos1))
End If
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
pos1 = ligne.IndexOf(""""c)
pos2 = ligne.IndexOf(""""c, pos1 + 1)
If (pos1 > 0) And (pos2 > 1) Then
MessageBox.Show(ligne.Substring(pos1, pos2 - pos1))
End If
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
125 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Statut
- Membre
- Dernière intervention
- 24 septembre 2014
Tu fais une recherche pour récupérer l'index du premier " avec IndexOf
tu refais pareil mais en partant de l'index trouvé pour trouver le suivant.
Ensuite avec substring, tu récupère à partir du premier index et sur une longueur de Index2-Index1
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
tu refais pareil mais en partant de l'index trouvé pour trouver le suivant.
Ensuite avec substring, tu récupère à partir du premier index et sur une longueur de Index2-Index1
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
Ok, je vais essayé et je te tiens au courrant^^
ebaudoux@club.fr
http://www.velersoftware.fr.nf
ebaudoux@club.fr
http://www.velersoftware.fr.nf
- Messages postés
- 527
- Date d'inscription
- lundi 15 octobre 2007
- Statut
- Membre
- Dernière intervention
- 10 octobre 2013
Bizarre, ça marche pas substring et indexof chez moi (j'utilise vb6, c'est peut etre pour ça).
Si ça marche pas, utilise un mid$ à la place du substring:
mid$ (Tachaine, indexdepart, longueur)
et un instr à la place du indexof:
instr (Tachaine, "x") , "x" étant le caractère dont tu recherches la position.
Je vais vérifier quand même encore pour le substring et le indexof, ça me chagrine que ça ne marche pas :x
Si ça marche pas, utilise un mid$ à la place du substring:
mid$ (Tachaine, indexdepart, longueur)
et un instr à la place du indexof:
instr (Tachaine, "x") , "x" étant le caractère dont tu recherches la position.
Je vais vérifier quand même encore pour le substring et le indexof, ça me chagrine que ça ne marche pas :x
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
Salut, j'ai récupérer le premier index:
Position = ligne.IndexOf("""")
mais alors le second....:
Position2 = ligne.IndexOf(Position)
nn, c'est pas ça....
Chaine = Microsoft.VisualBasic.Left(ligne, position)
Position2 = Chaine.IndexOf("""")
mmmm, ça va pas non plus...
ebaudoux@club.fr
http://www.velersoftware.fr.nf
Position = ligne.IndexOf("""")
mais alors le second....:
Position2 = ligne.IndexOf(Position)
nn, c'est pas ça....
Chaine = Microsoft.VisualBasic.Left(ligne, position)
Position2 = Chaine.IndexOf("""")
mmmm, ça va pas non plus...
ebaudoux@club.fr
http://www.velersoftware.fr.nf
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
heins? ce que je viens d'envoyé? je suis en VB 2005, mmm, attendez, si j'ai cette chaine là:
Text "Ce texte est affiché dans la console"
c'est normale qu'il me renvoi 5 (ça, c'est le premier index, normale) et -1 (-1 étant l'index du second ")?
ebaudoux@club.fr
http://www.velersoftware.fr.nf
Text "Ce texte est affiché dans la console"
c'est normale qu'il me renvoi 5 (ça, c'est le premier index, normale) et -1 (-1 étant l'index du second ")?
ebaudoux@club.fr
http://www.velersoftware.fr.nf
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
Au total, si je fais ça:
Position = ligne.IndexOf("""")
chaine = Microsoft.VisualBasic.Left(ligne, Position)
Position2 = chaine.IndexOf("""")
Dim m As String = Microsoft.VisualBasic.Mid(ligne, Position, Position2)
MsgBox(m)
ça me dit que Position2 ne doit pas être inférieur ou égale à 0 (normale, ici, il fait -1)
ebaudoux@club.fr
http://www.velersoftware.fr.nf
Position = ligne.IndexOf("""")
chaine = Microsoft.VisualBasic.Left(ligne, Position)
Position2 = chaine.IndexOf("""")
Dim m As String = Microsoft.VisualBasic.Mid(ligne, Position, Position2)
MsgBox(m)
ça me dit que Position2 ne doit pas être inférieur ou égale à 0 (normale, ici, il fait -1)
ebaudoux@club.fr
http://www.velersoftware.fr.nf
- Messages postés
- 724
- Date d'inscription
- dimanche 26 novembre 2006
- Statut
- Membre
- Dernière intervention
- 23 janvier 2013
A, ça y est, j'ai trouvé!!!:
Position = ligne.IndexOf("""") + 1
chaine = ligne.Substring(Position, Len(ligne) - Position)
Position2 = chaine.IndexOf("""")
Dim m As String = ligne.Substring(Position, Position2)
MsgBox(m)
ça fonctionne, allé, j'accepte quand même t'as réponse Casy, car elle fonctionne aussi, et puis mstarsup5 aussi, tu m'as bien aidée aussi.
merci de votre aide
a+^^
ebaudoux@club.fr
http://www.velersoftware.fr.nf
Position = ligne.IndexOf("""") + 1
chaine = ligne.Substring(Position, Len(ligne) - Position)
Position2 = chaine.IndexOf("""")
Dim m As String = ligne.Substring(Position, Position2)
MsgBox(m)
ça fonctionne, allé, j'accepte quand même t'as réponse Casy, car elle fonctionne aussi, et puis mstarsup5 aussi, tu m'as bien aidée aussi.
merci de votre aide
a+^^
ebaudoux@club.fr
http://www.velersoftware.fr.nf