[VB.net] Récupérer un caractère d'un fichier .txt

Version imprimable

Bonjour,

Je poste aujourd'hui dans le but d'obtenir des informations quant au faite de récupérer un caractère dans un fichier texte.
Je travaille sous Microsoft Visual Studio 2012, en langage VB.net.
Pour récupérer une ligne de mon fichier texte j'y arrive, mais pas un caractère ou une chaine de caractère spécifique appartenant à une ligne.

Voici le code que j'utilise pour récupérer une ligne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim fichier As String OFD_Importer.ShowDialog() 'Ouverture de la fenetre importer fichier = OFD_Importer.FileName 'Obtient nom et chemin du fichier Dim readText() As String = File.ReadAllLines(fichier) 'Lit tous les lignes du fichier et stocke dans ReadText Dim ligne As String For Each ligne In readText 'Pour chaque ligne contenu dans readText If ligne = "blablabla" Then action End If next
J'aimerais par exemple pouvoir récupérer trucbidule et marron :
Ligne : le nom du machin : trucbidule
Ligne : Spécificité : Marron

Merci d'avance pour votre aide.

06/11/2014, 19h19
shayw

Bonjour

Citation:

J'aimerais par exemple pouvoir récupérer trucbidule et marron :
Ligne : le nom du machin : trucbidule
Ligne : Spécificité : Marron

Pas compris qu'est que le nom du machin et spécificité ?
Quelle est la structure de ton fichier texte ?

Bonsoir,

Si tes lignes sont toujours structurées de cette manière (avec le caractère ":") :

le nom du machin : trucbidule
le nom du machin : trucmachin
le nom du machin : truc

Alors tu peux envisager d'utiliser ceci pour découper ta ligne et placer le tout dans un tableau :
Code:

1 2 3 4 5 6 7 8 9 10 11 'Partons du principe que ligne = "le nom du machin : trucbidule" Dim tablo() = ligne.Split(":") Msgbox(tablo(0).trimEnd) 'Affiche : trucbidule Msgbox(tablo(1).trimstart) 'Affiche : le nom du machin
A+

Citation:

Envoyé par shayw

Bonjour

Pas compris qu'est que le nom du machin et spécificité ?
Quelle est la structure de ton fichier texte ?

Le nom du machin et spécificité sont des paramètres de variables à récupérer.
Exemple de mon fichier texte :

Code:

1
2
3
4
5
6
7
8
9
! #### PHASE
    P_phase_num:=1;                     ! N° phase                                                  [int])
    P_phase_description:=test;     ! Description Phase                                         [string]
    P_phase_valide:=True;               ! validation phase  (oui=1 / non=0)                         [bool]
    P_phase_mesure:=True;               ! Mesure sur phase (oui=1 /non=0)                           [bool]
    P_phase_travail_index:=True;        ! le travail indexé/incrémental (0=indexé/1=incremental)    [bool]
    P_phase_nb_pas:=3;                 ! Nombre de pas (=nb de sous phase)                         [int]
    P_phase_chgt_outil_x_pas:=7;        ! changement de brosse tous les X  ss-phase                 [int]
    P_phase_mesure_ssphase:=5;          ! mesure sous phase  = tous les X pas                       [int]

Edit : Petite erreur Walace, en effet :

Code:

1
2
3
4
5
6
7
               tablo(0) = ligne.Split(";")
                MsgBox(tablo(0).TrimEnd)

                'Affiche : LE NOM DU MACHIN
                MsgBox(tablo(1).TrimStart)

                'Affiche :TRUC BIDULE

Citation:

Alors tu peux envisager d'utiliser ceci pour découper ta ligne et placer le tout dans un tableau :

Le problème c'est que je ne veux récupérer tous le reste de la ligne.
Il faudra peut être refaire un split ?

En tout cas, merci pour vos réponses :)

Trouvé

J'ai trouvé la solution, j'utilise 2 split.

Code:

1
2
3
4
                Dim tablo() = ligne.Split("=")
                Dim test = tablo(1).Split(";")
                MsgBox(tablo(0).TrimEnd)
                MsgBox(test(0).TrimEnd)

Merci pour votre aide.

Bonne journée,