Discussion :

[sygale]

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

Code :

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

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 :

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

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

[illight]

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

Code :

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

Workbooks.open "fichier_texte.txt"

en regardant les options de cette commande ?

[sygale]

Non je ne souahite pas l'importer dans Excel juste vérifier certaines chaines de caractère dedans.

[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?

[sygale]

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

Input #, instruction
Lit des données dans un fichier séquentiel ouvert et les attribue à des variables.

[Megaxel]

Alors je te répond ça:

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!

[bidou]

Code :

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

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