Discussion :

[yaume91]

Bonjour,

Je voudrai séparer une chaine de caracter en 2 partie ,en me basant sur le séparateur qui est au milieu qui est un point
Voici la fonction que j'ai, dans laquelle j'arrive a récuperer la partie de droite, mais par contre je ne sais pas comment recuperer la partie de gauche

Code :

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

1
2
3
4
5
6
7
	Dim lastLocation As Integer = filename.IndexOf(".")
	If lastLocation > 0 Then
		Dim filenamegauche As String
		Dim filenamedroit As String
' éliminer la chaîne entre '<' et '>'
filenamedroit = fileName.Substring((lastLocation + 1))
MsgBox(filenamedroit)

Merci d'avance pour votre aide.

[Zozodev]

Bonjour,

Code :

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

filenamegauche = fileName.Substring(0, lastLocation)

[wallace1]

Bonjour,

Prenons l'exemple suivant :

La chaîne de caractères est la suivante :

Code :

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

FichierTest.txt

Tu veux récupérer le nom du fichier qui se situe à gauche du point et ensuite l'extension qui se situe à droite du même point :

Code :

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

1
2
3
4
5
6
7
8
 
  Dim filename As String = "FichierTest.txt"
'La méthode 'Split' découpe la chaine 'filename' selon le nombre de caractères '.' présent. Cette méthode Split place toutes les occurences trouvées dans un tableau de string().
        Dim str() As String = filename.Split(".")
'On accède au 1er élément du tableau (1er élément = position 0 !!)
        MsgBox("Le nom est : " & str(0))
'On accède au 2ème élément du tableau (2ème élément = position 1 !!)
        MsgBox("L'extension est : " & str(1))

En revanche si au départ tu possèdes le chemin complet du fichier ("D:\Bureau\Dossier\FichierTest.txt") alors tu peux travailler ainsi pour obtenir le même résultat :

Code :

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

1
2
3
 
   MsgBox("Le nom est : " & System.IO.Path.GetFileNameWithoutExtension("D:\Bureau\Dossier\FichierTest.txt"))
   MsgBox("L'extension est : " & System.IO.Path.GetExtension("D:\Bureau\Dossier\FichierTest.txt"))

A+

[yaume91]

Merci pour vos réponses.
En fait le séparateur ne sépare pas l'extension, en fait mes fichiers sont du style 01253.326589.pdf, et du coup je veux recuperer 01253 et 326589

Merci pour votre aide.

[wallace1]

Merci pour vos réponses.
En fait le séparateur ne sépare pas l'extension, en fait mes fichiers sont du style 01253.326589.pdf, et du coup je veux recuperer 01253 et 326589

Merci pour votre aide.

As-tu essayés d'appliquer la méthode Split avec ta chaîne de caractères : 01253.326589.pdf ???

Comme je le disais plus haut la méthode Split découpe ta chaîne selon le caractère que tu lui passes en paramètre (dans ton cas ".").

Pour illustrer :

Code :

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

1
2
3
4
5
6
7
8
 
Dim filename = "01253.326589.pdf"
 
Dim str() = filename.Split(".")
 
Msgbox("A gauche : " & str(0))) 'Ce qui donne : 01253
Msgbox("Au milieu : " & str(1))) 'Ce qui donne : 326589
Msgbox("A droite : " & str(2))) 'Ce qui donne : pdf

PS : Il faut bien évidement au préalable tester si ta chaîne contient bien 2 caractères "." (donc 3 chaînes non vides après découpage !)

A+