[VB.NET 2.0] lire fichier text

Version imprimable

19/12/2006, 09h34
Emcy

[VB.NET 2.0] lire fichier text
Bonjour,

j'ai un fichier text ecrit comme ceci :
Code:

1 2 3 4 Nom1 [tab] propriété1 [tab] propriétéX Nom2 [tab] propriété1 Nom3 [tab] propriété1 Nom4 [tab] propriété1 [tab] propriétéX
[tab] => c'est le caractère de tabulation
=> j'ai mis [Tab] comme délimiteur mais je peux en utiliser un autre si ça vous arrange (du moment que le fichier text est lisible...donc éviter les caratères du genre ";" )

comment faire pour recupéré une collection (une ligne = un element) ?
=> je ne veux récupérer que Nom et propriété1 (pas propriétéX)
19/12/2006, 14h46
raOOn
Citation:
Envoyé par Emcy

Bonjour,

j'ai un fichier text ecrit comme ceci :

Code:

1 2 3 4 Nom1 [tab] propriété1 [tab] propriétéX Nom2 [tab] propriété1 Nom3 [tab] propriété1 Nom4 [tab] propriété1 [tab] propriétéX

[tab] => c'est le caractère de tabulation
=> j'ai mis [Tab] comme délimiteur mais je peux en utiliser un autre si ça vous arrange (du moment que le fichier text est lisible...donc éviter les caratères du genre ";" )

comment faire pour recupéré une collection (une ligne = un element) ?
=> je ne veux récupérer que Nom et propriété1 (pas propriétéX)
il existe plusieurs maniere...

utilise par exemple un streamreader puis tu lis ligne par ligne.

et pour chaque lignes lus,tu splites à chaque occurence de [tab] pour renseigner un tableau de string. Désormais tu connais les valeurs qui t interessent, typiquement dans ton cas cela sera les deux premieres valeurs de ton tableau.

ai-je été clair? :)

OK

j'ai fait comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function Lire() As ArrayList
 
		If myFileInfo.Exists = False Then
			msgbox("Le fichier " & myFileInfo.FullName & " n'existe pas")
			Return Nothing
		Else
			Dim SR As  StreamReader = File.OpenText (myFileInfo.FullName)
			Dim myArrayList As New ArrayList()
			Dim Ligne As String
			Dim Separateur as Char = Ctype("	", Char)		
 
			Do Until SR.Peek=-1
				Ligne = SR.ReadLine()
 
				If Ligne.Trim <> "" Then
					myArrayList.Add(Ligne.Split(Separateur))
				End If
			Loop
 
			SR.Close()
 
			Return myArrayList
		End If			
 
	End Function

19/12/2006, 15h42
raOOn

il me semble que tu peux remplacer le caractere séparateur " " par \t pour les tabulations
20/12/2006, 08h45
Emcy

d'accord