Discussion :

[Omion]

Bonjour,
J'essais de créer un programme similaire au bloc note, mais je ne sais pas comment importer un document texte complet sans mettre une centaine de ligne line input #1, ligne1
...
Existerait-il une façon plus simple, et si possible autre que les boucles.

[SilkyRoad]

bonjour

Je ne suis pas sur d'avoir compris ta demande mais tu peux tester:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
    Dim Valeur As Long
    Dim Cible As String, Fichier As String
 
    Fichier = "C:\Nomfichier.txt"
 
    Open Fichier For Input As #1
        Valeur = FileLen(Fichier)
        Cible = Input(Valeur, 1)
    Close #1
 
    Debug.Print Cible
End Sub

michel

[Omion]

À moins que je n'ai pas compris ton code, je ne crois pas que ce soit cela car moi je voudrais importer un fichier texte (.txt) au complet dans text1.text par exemple. Mais le tout sans avoir trois cent ligne pour importer toutes les lignes du documents (qui parfois peuvent être plusieurs centaines).

[bidou]

c'est bien ce que fait le code que Michel t'as donné ...

[Omion]

Après test, je suis bien capable de tout ouvrir, mais le problème c'est qu'il n'y a pas de changement de ligne, le texte est:
Ligne 1
Ligne 2
Ligne 3
Ligne 4
mais mon programme le transforme en:
Ligne 1||Ligne 2||Ligne 3||Ligne 4
mais si je fait copier/coller ce texte à l'extérieur du programme il devient:
Ligne 1
Ligne 2
Ligne 3
Ligne 4

[quentingsc]

Code :

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

1
2
3
4
5
6
7
Dim fs, f
    Dim Content
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\windows\fichiertext.txt", 1, False, 0)
    Content = f.Readall
    f.Close
Text1.Text = Content

Voila une méthode simple aussi pour extraire tout le contenue dans fichier texte dans une textbox, un label ext....