Extraire une partie d'une chaine de caractères [Résolu]
cs_Didier72
76
Messages postés
dimanche 10 octobre 2004Date d'inscription
13 juin 2015
Dernière intervention
-
3 avril 2007 à 11:00 - Dernière réponse :
cs_Didier72
76
Messages postés
dimanche 10 octobre 2004Date d'inscription
13 juin 2015
Dernière intervention
- 3 avril 2007 à 16:49
- Extraire une partie d'une chaine de caractères
- Extraire une partie d'une chaine (Résolu) » Forum - ASP.NET
- Extraire une partie d'une chaine (Résolu) » Forum - PHP
- Extraire une valeur d'une chaine de caractères » Forum - C++ & C++ .NET
- Extaire une partie d'une chaine de caractéres » Forum - SQL
- Extraire des données d'une chaine de caractères » Forum - Visual Basic
30 réponses
Répondre au sujet
Dim
MaChaine
As
String
=
"D:\toto\Dossier"
Dim
SplitMaChaine()
As
String
SplitMaChaine = Split(MaChaine,
""
, -1, CompareMethod.Text)
MaChaine = SplitMaChaine(0) &
""
& SplitMaChaine(1) &
""
MsgBox(MaChaine)
MaChaine = MaChaine.Trim(
""
) &
""
MsgBox(MaChaine)
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
MaChaine
As
String
=
"D:\toto\Dossier"
Dim
SplitMaChaine()
As
String
SplitMaChaine = Split(MaChaine,
""
, -1, CompareMethod.Text)
MaChaine = SplitMaChaine(0) &
""
& SplitMaChaine(1) &
""
MsgBox(MaChaine)
MaChaine = MaChaine.Trim(
""
) &
""
MsgBox(MaChaine)
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Cette réponse vous a-t-elle aidé ?
Au top Charles Racaud !
Et avec les méthodes de la class string tu aurais fait quoi, juste pour info?
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Et avec les méthodes de la class string tu aurais fait quoi, juste pour info?
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Cette réponse vous a-t-elle aidé ?
je te conseil comme même la méthode de 231472 Charles Racaud ! (c'est moins lourd que mes système D )
Dim
MaChaine
As
String =
"D:\toto\temp\Dossier"
Dim
MaNouvelleChaine
As
String
= MaChaine.Substring(0, MaChaine.LastIndexOf(
""
)) &
""
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Dim
MaChaine
As
String =
"D:\toto\temp\Dossier"
Dim
MaNouvelleChaine
As
String
= MaChaine.Substring(0, MaChaine.LastIndexOf(
""
)) &
""
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Cette réponse vous a-t-elle aidé ?
jmfmarques IndexOf("" ) indique le nombre de fois que l'on a "" dans la chaîne mais pas sa position, maintenant c'est ce que je dois chercher!
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
La seule fonction pour cela en VB.Net est la methode Mid de la classe String.
SVP oublier le namespace Microsoft.VisualBasic, si c'est pour faire du code VB6 restez en VB6
Abandonner les instructions Left et Right, même en VB6, ce ne sont que des surcharges de Mid.
Left(chaine , x) --> Mid(chaine , 0 , x)
Right(chaine , y) --> Mid(chaine , chaine.lenght - y )
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
SVP oublier le namespace Microsoft.VisualBasic, si c'est pour faire du code VB6 restez en VB6
Abandonner les instructions Left et Right, même en VB6, ce ne sont que des surcharges de Mid.
Left(chaine , x) --> Mid(chaine , 0 , x)
Right(chaine , y) --> Mid(chaine , chaine.lenght - y )
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Dim
MaChaine
As
String
=
"D:\toto\Dossier"
Dim
MaChaine1
As
String
Dim
Position
As
Integer
= InStrRev(MaChaine,
""
, -1, CompareMethod.Text)MaChaine1 = MaChaine.Substring(Position)
MaChaine = MaChaine.Replace(MaChaine1,
""
)MsgBox(MaChaine)
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
MaChaine
As
String
=
"D:\toto\Dossier"
Dim
MaChaine1
As
String
Dim
Position
As
Integer
= InStrRev(MaChaine,
""
, -1, CompareMethod.Text)MaChaine1 = MaChaine.Substring(Position)
MaChaine = MaChaine.Replace(MaChaine1,
""
)MsgBox(MaChaine)
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
http://www.beta.microsoft.com/VisualStudio/feedback/ViewFeedback.aspx?FeedbackID=265882
A utiliser donc comme dit plus haut (tout ce qui se trouve à) gauche de cette position - 1
A utiliser donc comme dit plus haut (tout ce qui se trouve à) gauche de cette position - 1
En tout cas en cherchant un peu c'est pas les méthodes qui manquent! Après à savoir laquelle est la mieux je ne sais pas! Mais au final c'est le résultat qui compte! Mais je compte bien sur casy pour l'a trouvé cette solution optimisé et il faudra que je m'en rappel!
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Bonjour tout le monde.
Si c'est juste pour récupérer le chemin du dossier parant :
Dim PathStr As String = (New System.IO.DirectoryInfo("D:\toto\Dossier")).Parent.FullName,
----
(Coloration syntaxique automatique par Kenji)
Sinon, je confirme, oublier le Microsoft.VisualBasic. Tout le nessecaire est dans la class String
__________
Kenji
Si c'est juste pour récupérer le chemin du dossier parant :
Dim PathStr As String = (New System.IO.DirectoryInfo("D:\toto\Dossier")).Parent.FullName,
----
(Coloration syntaxique automatique par Kenji)
Sinon, je confirme, oublier le Microsoft.VisualBasic. Tout le nessecaire est dans la class String
__________
Kenji
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.