Discussion :

[Emcy]

Bonjour,

j'ai un fichier text ecrit comme ceci :

Code :

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

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)

[raOOn]

Bonjour,

j'ai un fichier text ecrit comme ceci :

Code :

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

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?

[Emcy]

OK

j'ai fait comme ceci :

Code :

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

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

[raOOn]

il me semble que tu peux remplacer le caractere séparateur " " par \t pour les tabulations

[Emcy]

d'accord