Discussion :

[sohih]

Salut s'il vous plait j'utilise "line input #" pour lire les lignes d'un fichier ASCII mais ça marche pas. Aidez moi en me montrant une autre instruction de lecture d'un fichier ASCII.

[SfJ5Rpw8]

on pourrai en savoir plus sur le message d'erreur et le code utilisé ..?

[avigeilpro]

Une recherche sur le forum te donnera une multitude d'exemples dont en voici un qui récupère la totalité d'un fichier et le loge dans une variable:

http://www.developpez.net/forums/sho...93#post1468893

[sohih]

Il n'y a pas de messages d'erreurs mais la commande line input # ne lit pas mon fichier ASCII ligne par ligne. Mais, elle met tout le fichier dans la même variable. Donc j'ai besoin d'une instruction autre que line input mais qui joue le même rôle car mon fichier n'est pas composé que de chiffres il contient aussi des lettres et lorque je l'ouvre avec bloc note il est disposé ligne par ligne.

[SfJ5Rpw8]

essai avec FilesystemObject...aprés avour activé la référence à microsoft scripting runtime..

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
Dim Fso As FileSystemObject
Set Fso = CreateObject("SCRIPTING.FileSystemObject")
Dim stRep As String
Dim stFichierSource As String
Dim fSource As File
dim tSource asTextStream
 stRep = "c:\tmp\" 'Répertoire de travail
stFichierSource = "FichierAlire.txt"
Set fSource = Fso.GetFile(stRep & stFichierSource)
Set tSource = fSource.OpenAsTextStream(ForReading)
While Not tSource.AtEndOfStream
  st = tSource.ReadLine
  Debug.print st 
Wend
tSource.Close

[AdHoc]

Bonjour,

L'instruction Line Input # lit un à un les caractères d'un fichier jusqu'au premier retour chariot (Chr(13)) ou retour chariot – saut de ligne (Chr(13) + Chr(10)) rencontré.

. donc si tu lit tout d'un coup => pas retour chariot.
Dans ton Bloc note est-ce que tu n'aurais pas activer le retour à la ligne automatique.

Sinon utilise la fonction input(Nb_Caractere)