Ouvrir un fichier dans une textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 535 fois - Téléchargée 69 fois

Contenu du snippet

Les programmes qui contiennent des "RichTextBox"
doivent être distribués avec le "Richtx.ocx"
Avec une TextBox c'est pas la peine et en plus on peut faire la même chose (même si c'est un peu plus compliqué)
Sur votre feuille:
-TextBox (Text1)
-CommonDialogBox (cd1)
-Bouton (Open)

Source / Exemple :


Private Sub Open_Click()

Text1.Text = "" 'initialise la zone de texte

Dim TextFile As String 'Contenu du fichier a ouvrir
Dim File As String 'Nom du Fichier a ouvrir

On Error GoTo Error_Handle 'si il y a erreur (facultatif)

'Filtre les types de fichiers
cd1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"
'Ouvre la boîte de dialogue
cd1.ShowOpen

File = cd1.filename 'attribut le chemin du fichier
                    'a la variable File

Open File For Input As 1 'ouvre le fichier

Do While Not EOF(1)     'End Of File (numero du fichier)
'met le contenu du fichier dans TextFile
    Input #1, TextFile
'Met le contenu dans la zone de texte
    Text1.Text = TExt1.Text & TextFile _
    + Chr(13) + Chr(10)
Loop

Close #1 'ferme le fichier

Error_Handle: (facultatif)
If Err.Number = 75 Then
    MsgBox "Le chemin ou le nom du fichier n'est pas valide", _
    vbCritical + vbOKOnly, "ERREUR"
    Exit Sub
End If

End Sub

Conclusion :


N'hésitez pas à m'écrire si vous trouvez une erreur ou autre chose...

A voir également

Ajouter un commentaire

Commentaires

y a quand meme vachement plus simple et plus rapide que do while !
Text1.Text = Input$(LOF(1), 1)
cs_Steff
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007
-
Intéressant ton truc, mais il pose quand même un leger soucis. Si ton fichier fait plus de 64K, t'es mort. Un text box c'est 65536 caractères maxi. Avec un RTF t'es pas embetter par ce genre de désagrément, et l'ocx sera intégrer automatiquement dans ton pack install si tu utilise le wizard d'install.
fofodavid
Messages postés
47
Date d'inscription
mardi 18 mars 2003
Statut
Membre
Dernière intervention
29 août 2004
-
Je remercie l'auteur car c'était exactement ce qui me fallait pour faire mon hooker mais vous vous demandez le rapport entre le hooker et cette source et ba c tro compliqué a expliqué mais merci beaucoup a l'auteur pour sa source et son aide
cs_parecci
Messages postés
33
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
5 juin 2009
-
vomment le faire avec ritchbox ??
cs_florian_8
Messages postés
3
Date d'inscription
jeudi 16 novembre 2000
Statut
Membre
Dernière intervention
2 novembre 2006
-
Salut pour l'instant j'ai juste regardé les commentaires, et je voulais juste préciser q'une textbox peut contenir un nombre infini de caractères.
Les 65000 et quelques caractères est le nombre de caractères maxi pris en charge par la mémoire virtuelle pour copier un texte dans un textbox. La solution est peut-être de l'ouvrir en plusieurs fois...
Je vais jeter un coup d'oeil sur cette source a+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.