comment ouvrir un fichier txt dans une textbox ?

Question

Bonjour à tous, quelqu'un peut-il me dire comment je pe (en utilisant un bouton ouvrir) ouvrir un fichier txt dans une textbox (fichier sauvgardé de cette même textbox) :question) 

J'èspère que quelqu'un pourra m'aider ...

Merci d'avance ...

bilaloch · Answer

Bonjour,

Alors, c simple:


Private Sub Ouvrir_Click()
Open "fichier source" For Input As #1
Do
If EOF(1) Then Exit Sub
Line Input #1, Var
Text1.Text = Text1.Text + Var
Loop Until EOF(1)
Close #1
End Sub


Merci :approve)  et @ Plus  ;) 

BIL@Loch
  :)

cs_ITALIA · Answer

Avec un controle CommonDialog.....et une RichTextBox (RTF1)

Private Sub Command1_Click()

On Error GoTo Cancel

CommonDialog.FileName = ""
CommonDialog.Filter = "Fichier TEXTE (*.txt)|*.txt" ' Pour Word
CommonDialog.Flags = cdlOFNLongNames Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist ' Options de la Boîte de Dialogue
CommonDialog.ShowOpen
If CommonDialog.FileName <> "" Then RTF1.Filename=CommonDialog.FileName

Exit Sub

Cancel:

End Sub

It@li@

cs_ITALIA · Answer

Ma façon permet au préalable de Rechercher le fichier

It@li@

974Mr_007 · Answer

lol ya une seconde de différence

bilaloch · Answer

Bonjour,

Avec un controle CommonDialog et un textbox (En melangeant le code de It@li@ et le mien :

Private Sub Ouvrir_Click()
Dim Var As String

On Error GoTo Cancel
CommonDialog.FileName = ""
CommonDialog.Filter = "Fichier TEXTE (*.txt)|*.txt" ' Pour Word
CommonDialog.Flags = cdlOFNLongNames Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist ' Options de la Boîte de Dialogue
CommonDialog.ShowOpen
If CommonDialog.FileName <> "" Then

Open CommonDialog.FileName For Input As #1
Do
If EOF(1) Then Exit Sub
Line Input #1, Var
Text1.Text = Text1.Text + Var
Loop Until EOF(1)
Close #1

Cancel:
End Sub


Merci :approve)  et @ Plus  ;) 

BIL@Loch
  :)

nuttyfbr · Answer

Ok, ça m'a bien servi merci ...
NuttyKizzy

Ze_Dam · Answer

je fais une légère correction dans le code de Bil@loch :

Do While Not EOF(1)
Line Input #1, Var
Text1.Text = Text1.Text & vbCr & Var
Loop


cété rien du tout mais sans vbCr, tout le texte va être aligné l'un à la suite de l'autre.

Bonne journée  ;)

jihednond · Answer

@§§§merci pour le code§§§@

Comment ouvrir un fichier txt dans une textbox ?

8 réponses

Discussions similaires