Extraire une partie d'une chaine de caractères [Résolu]
- Extraire une partie d'une chaine de caractères » Meilleures réponses
- Extraires les mots dans une chaine de caractere » Codes sources - PHP (Astuces)
- Extraire un chiffre d'une chaine de caractère ✓ résolu » Forum - C# / .NET
- C / C++ / C++.NET - C++ & C++ .NET : Extraire une valeur d'une chaine de caractères - C++ & » Forum - C++ & C++ .NET
- Extraire des données d'une chaine de caractères » Forum - Visual Basic
- Extraire une chaine de caractères d'une cellule pour la copier » Codes sources - Visual Basic / VB.NET (VBA)
30 réponses
Marche pas en utilsant les même instructions ????
elles sont pas reconnues
@+
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
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:
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
MaChaine.Substring(MaChaine.IndexOf(
""
))
MsgBox(MaChaine)
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Puisque tu regardes sous VB.Net : regarde s'il a l'équivalent de InstrRev (car alors tu as d'entrèée de jeu la position du dernier \) et il ne te reste plus qu'à prendre tout ce qui se trouve à gauche de cette position - 1
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
MaChaine = Microsoft.VisualBasic.Right(MaChaine, 8)
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
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:
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Dim MaChaine As String = "D:\toto\Dossier"
Dim MaNouvelleChaine As String = MaChaine.Substring(0, MaChaine.LastIndexOf("\")),
----
(Coloration syntaxique automatique par Kenji)
__________
Kenji
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
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:
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
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 #
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:
A utiliser donc comme dit plus haut (tout ce qui se trouve à) gauche de cette position - 1
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
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.