[VBA-E] Lecture de fichier

Version imprimable

Comment faire pour lire un fichier, sans le lire ligne à ligne ??
La lecture ligne à ligne utilise ca
Code:

1 2 3 4 5 6 7 8 9 Dim intf As Integer Dim strLigne As String intf = FreeFile Open "C:\rep\file.txt" For Input As #intf While Not EOF(intf) Input #intf, strLigne Debug.Print strLigne Wend Close #intf
ou ca
Code:

1 2 3 4 5 6 7 8 9 Dim intf As Integer Dim strLigne As String intf = FreeFile Open "C:\rep\file.txt" For Input As #intf While Not EOF(intf) Line Input #intf, strLigne Debug.Print strLigne Wend Close #intf
Moi je souhaite mettre tout le contenu du fichier dans un varaible string les fichiers font au plus une 100 aines de lignes et une string peut faire 2Go !!

Ou sinon mettre une plus grand partie du fichier dans une string, par exemple découper le fichier en deux.

Merci d'avance

19/05/2006, 12h19
illight

Tu veux en faire quoi de ce fichier texte ? l'importer dans Excel ? pourquoi tu utilise pas :

Code:

Workbooks.open "fichier_texte.txt"

en regardant les options de cette commande ?
19/05/2006, 13h20
sygale

Non je ne souahite pas l'importer dans Excel juste vérifier certaines chaines de caractère dedans.
19/05/2006, 13h36
Megaxel

Salut,
c'est bizarre! J'étais sûr qu'en utilisant "Input" seul au lieu de "Line Input", on récupérait TOUT le contenu du fichier dans une variable de type String, avec les retours chariots.
Tu es sûr que ta première proposition ne marche pas?
19/05/2006, 13h45
sygale

Citation:

Envoyé par Megaxel

Tu es sûr que ta première proposition ne marche pas?

Oui mal heureusement mais si tu peux faire un test on sait jamais une option chez moi ou je ne sais koi ??

SInon la doc dit

Citation:

Input #, instruction
Lit des données dans un fichier séquentiel ouvert et les attribue à des variables.
19/05/2006, 13h49
Megaxel

Alors je te répond ça:

Citation:

Contrairement à l'instruction Input #, la fonction Input renvoie tous les caractères lus, y compris les virgules, les retours chariot, les sauts de ligne, les points d'interrogation et les espaces à gauche.

Esasie de virer le dièse!

:D

Code:

1
2
3
4
5
6
 
Dim Contenu as String
 
Open Fichier For Binary As #F 
Contenu= Input(LOF(F), #F) 
Close #F

19/05/2006, 13h56
sygale
Citation:

Envoyé par Megaxel

Alors je te répond ça:

Esasie de virer le dièse!

:D

J'ai tenté :

Code:

strLigne = Input(nbChar, #intf)

Mais il faut connaitre le nb de caractère du fichier
Citation:
Envoyé par bidou

Code:

1 2 3 4 5 6 Dim Contenu as String Open Fichier For Binary As #F Contenu= Input(LOF(F), #F) Close #F
Super c'est exactement ca trop fort :king:
Merci, merci bcp
19/05/2006, 14h01
Megaxel

Ben c'est ça: LOF, ça te donne le nombre de caractères du fichier.
Mais bon, je ne vais pas lutter:
BIDOU, c'est plus fort que toi...
Tu en as révé, BIDOU l'a fait...
Si BIDOU n'existait pas, faudrait l'inventer...

Etc, etc, etc...

:D