ouvrir le fichier pour lire les lignes les ligne dedans.
dim Ligne() as string
dim I as long
i=0
open " nomfichier.txt" for input access read as #1
do until eof(1)
i=i+1
line input #1,ligne(i)
loop
close #1
avec ca, tu lis toutes les lignes d´un fichier et tu les mets tel quel dans un tableau en commancant à l´indice 1 ( et oui, j´ai gaché l´indice 0 ! ).
Par contre il n´y a aucun controle du type de la valeur lu ( pour cela, il faut utiliser input #). Tu dois le faire toi même après, mais c´est la méthode la plus simple.
pour écrire dans un fichier, c´est presque pareil, on suppose que ligne() contient toutes les lignes à écrire :
dim I as long
i=0
open " nomfichier.txt" for output access write as #1
for i=lbound(ligne) to ubound(ligne)
print #1,ligne(i)
next
close #1