Récupération d'infos dans un fichier texte. Fermé

Question

Bonjour, 

Je suis sur un projet de recuperation de données dans un fichier texte pour en copier une partie et l'enregistrer dans un fichier au format CSV



Et je voudrais que mon programme puisse recuperer des infos par exemple :



Maison;ruenoble;agence2000;174000
Maison;ruenoble;agence524;174000
Maison;ruecab;agence2000;174000
Maison;ruecoup;agence4;174000


Il ne regarderais que la 3e informations. et si c'est le mot "agence2000" il copie cette ligne et la colle dans un nouveau fichier (J'utiliserais Streamreader et StreamWriter ce n'est pas un probleme.)

Je en sais juste pas si il faut Utiliser un split? pour qu'il puisse ne lire que le 3e mot. 
(Je ne sais pas utiliser Split donc si c'est de ca que j'ai besoin, je voudrais que vous m'expliquiez comment l'utiliser avec un exemple de code par exemple?)



avant qu'il copie colle. 

Je voudrais aussi qu'il recupere tout les mot different qu'il pourait y avoir dans cette colonne (le3e mot de de chaque ligne ligne) et qu'il me creer un bouton check dans ma checkbox avec ces noms.)

(histoire de pouvoir choisir les quelles de ses agences je veux copier.)

J'espere ne pas déranger, 
Merci d'avance ! 


Codialement !




Configuration: Windows 7 / Chrome 18.0.1025.142

flomine · Answer

Le fonction split génère un tableau en deux dimensions à partir d'une variable. Un exemple:
Dim Séparer() as string

Split (Séparer, ";")


 Puis pour récupérer la valeur, simplement Split (n°delachaine) par exemple pour la 1ère ligne ce sera Split (2).

Polux31 · Answer

@flomine 

Depuis quand Split() génère un tableau à 2 dimensions ?

DevMicrop · Answer

Je tiens a préciser que je code en VB.net. 
:)

Polux31 · Answer

Salut,

La fonction Split() récupère dans un tableau les éléments d'une chaîne de caractères délimités par un séparateur. Dans ton cas c'est ";".

Dim mTab()

mTab = Split(sr, ";")

MsgBox(mTab(2))

sr est la ligne récupérée par le StreamReader.
Le tableau généré par la fonction Split() a pour 1er index 0. Dans ton cas le tableau retourné par Split() aura cette forme pour la première ligne de ton exemple:

mtab(0) -> Maison
mtab(1) -> ruenoble
mtab(2) -> agence2000
mtab(3) -> 174000

Bonne continuation et bon courage

;0)

DevMicrop · Answer

Un grand merci toi Polux ! 
Plus qu'a savoir comment creer automatiquement une case a cocher (checkbox) quand une condition est remplis (En indiquant le nom qui doit apparaitre a coté..)

Kalissi · Answer

Bonjour,

Exemple :

Private Sub btn_LireFichier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LireFichier.Click    ' Déterminer le chemin du répertoire    Dim Chemin As String = Application.ExecutablePath    Dim Position As Int32 = Chemin.LastIndexOf("\")    Dim Dossier As String = Chemin.Substring(0, (Position + 1))    ' Variable de travail    Dim Chaine As String = String.Empty    Dim ChaineSplit() As String    Dim Valeur As String = String.Empty    Dim LeResultat As System.IO.StreamWriter = System.IO.File.AppendText(String.Concat(Dossier , "resultat.txt"))    Dim LeFichier As System.IO.StreamReader = System.IO.File.OpenText(String.Concat(Dossier , "sommaire.txt"))    Do Until LeFichier.Peek = -1        Chaine = LeFichier.ReadLine        ChaineSplit = Chaine.Split(";"c)        Valeur = ChaineSplit(2)        If (Valeur.Equals("agence2000")) Then            LeResultat.WriteLine(Chaine)        End If    Loop    LeFichier.Close()    LeResultat.Close() End Sub


n..b. Il est possible de faire un import en début de classe
Imports System.IO' Le code devient 'n.b. Pour utiliser l'instruction File.AppendText, le fichier doit exister,' sinon il faut le créer.    Dim LeResultat As StreamWriter = File.AppendText(String.Concat(Dossier , "resultat.txt"))    Dim LeFichier As StreamReader = File.OpenText(String.Concat(Dossier , "sommaire.txt"))

K

Récupération d'infos dans un fichier texte.

6 réponses

Discussions similaires