Discussion :

[Ghalloun]

Bonjour,

j'ai un fichier texte avec principalement des chiffres, mais aussi parfois des lettres. Voici un exemple de ligne :
4 10C 5 7 3 0 5

Le problème, c'est que quand VB lit ce fichier, il ne lit pas les lettres. Il les ignore. Cela est vrai que les variables ni (voir mon code ci-dessous) soient des String ou des integer.

Code :

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

1
2
3
4
5
Dim n1, n2, n3, n4, n5, n6, n7 As String
...
Open (App.Path + "\poubelle.txt") For Input As #1
Do While Not EOF(1)
  Input #1, n1, n2, n3, n4, n5, n6, n7

Pouvez-vous donc m'indiquer comment faire pour lire une chaîne de caractères avec chiffres et lettres? J'ai du mal à croire que ce n'est pas possible.

En prime, je vous pose la même question avec une association de chiffres et de caractères spéciaux tels que ', ^, *, ", #,... Il semble que les gillemets permettent de prendre tout un texte jusqu'au prochaines gillemets avec ses blancs, faisant habituellement office de séparateur. Précisément l'association de chiffres avec ' me serait utile pour lire des temps : 30'25''.

Par avance, merci!

[M E H D I]

Pourquoi tu n'enregistres pas d'abord tes lignes dans un buffer avec le code ci-dessous, puis exploiter ces données afin d'avoir le résultat voulu.

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
 
Sub ReadFile(ByVal FileName As String)
   Dim i As Integer
   Dim T() As String ' je ne suis pas sûr de la déclaration d'un tableau (renseigne toi)
   Open FileName For Input As #1 'Ouvrir le fichier
   i = -1
   While Not EOF(1) 'parcourir le fichier jusqu'à la dernière ligne
      i = i + 1
      Line Input #1, T(i)  'chaque case du tableau va contenir une ligne de 
                                 'ton fichier
    Wend
   Close #1 'fermer le fichier
    **************
    Chaque case du tableau contient donc une ligne de ton fichier, 
    utilise les fonctions de traitement de chaines de caractères pour 
    découper selon tes besoins. 
    **************
End Sub

Exemple:
File: ligne 1 = 14 U 3, ligne 2 = 14 G 5
T(1)=14 U 3, T(2) = 14 G 5
Fonctions de découpage de chaines: n1 = 14, n2= U, n3= 3

[Ghalloun]

Effectivement, ça peut être une solution. Je n'y avais pas pensé.

Il y a cependant peut-être un obstacle, c'est que mon fichier txt fera à terme des dizaines de milliers de lignes, voire des millions. Du moins, c'est ce qui est prévu. Je ne sais pas si je peux créer un tableau de string de 10 000 cases.

En tout cas, pour mon second programme, ça peux être intéressant.

Merci.

[M E H D I]

Pour lire un fichier d'un million de ligne, il faudra d'abord changer le type de l'index i sinon t'auras un overflow.

Code :

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

 Dim i as Long  'le type long suffira je pense...(à vérifier)

Je ne sais pas si je peux créer un tableau de string de 10 000 cases.

Dans ce cas enregistre ta ligne dans une variable de type String (pas un tableau) puis effectue directement le traitement sur cette variable (appel de fonction qui fait le découpage de ta chaine et les sauvegarder quelque-part ) avant de passer à la lecture de la ligne suivante. De cette manière tu n'auras pas à déclarer le tableau T.

[Ghalloun]

Merci M E H D I, pour ton tuyau!

J'ai un peu l'impression d'écraser une mouche avec un marteau, mais après tout, il n'y peut-être pas d'autre solution.
Au moins, ça a le mérite d'être carré.