Bonjour , j'essaye de faire un programme qui lis un fichier texte comme celui la :
Numagent Nomagent Prenomagent NumtelAgent ...
j'obtiens donc ceci :Le trie ne fonctionneras pas si l'agent à un nom / prénom composé, de plus, je n'arrive pas à ajouter le faite que chaque colonne à une dimension bien définie (par exemple 4 caractères maximum pour le Numagent)
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 Sub lectureFichier(ByVal fichier As String) Try Dim sr As StreamReader = New StreamReader(fichier) Dim ligne As String Dim TabLigne() As String ligne = sr.ReadLine While ligne <> Nothing ligne = sr.ReadLine TabLigne = Split(ligne," ") End While sr.Close() Console.ReadLine() Catch ex As Exception 'Code exécuté en cas d'exception Console.Write("Une erreur est survenue au cours de la lecture !") Console.Write(ex.Message) End Try End Sub
Partager