Comment lire simplement le contenu d'un fichier

Auteur : gambix
Date d'envoi : le 19/5/2013 à 21:29:35
Catégorie : Trucs en vrac
Niveau : Débutant
Version : Gambas 3

À propos de ce code

Gambas fournit une fonction simple et rapide pour lire le contenu d'un fichier et le stocker dans une variable de type chaine de caractère.

La fonction :

1	`File.Load(Chemin) AS STRING`

Je l'utilise systématiquement pour lire des fichiers de taille petite a moyenne.

Je fournis ici quelques exemples d'utilisation.

Code source

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43 'Pour afficher le contenu d'un fichier conportant plusieur lignes le code 'sera le suivant : PUBLIC SUB Main() DIM s, ss AS STRING s = File.Load("~/monfichier.txt") FOR EACH ss IN Split(s, "\n") PRINT ss NEXT END 'En plus compacte PUBLIC SUB Main() DIM s AS STRING FOR EACH s IN Split(File.Load("~/monfichier.txt") PRINT s NEXT END 'Charger le fichier dans un tableau et afficher les éléments 'en les séparant par des virgules PUBLIC SUB Main() DIM aStr AS String[] aStr = Split(File.Load("~/monfichier.txt") PRINT aStr.Join() END

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43	'Pour afficher le contenu d'un fichier conportant plusieur lignes le code 'sera le suivant : PUBLIC SUB Main() DIM s, ss AS STRING s = File.Load("~/monfichier.txt") FOR EACH ss IN Split(s, "\n") PRINT ss NEXT END 'En plus compacte PUBLIC SUB Main() DIM s AS STRING FOR EACH s IN Split(File.Load("~/monfichier.txt") PRINT s NEXT END 'Charger le fichier dans un tableau et afficher les éléments 'en les séparant par des virgules PUBLIC SUB Main() DIM aStr AS String[] aStr = Split(File.Load("~/monfichier.txt") PRINT aStr.Join() END

Gambas France BETA