17 Апрель 2009

Загрузка текста из файла в TextBox

TextBox |  Таги: , ,

Загрузка текста из файла в TextBox

Private Sub Form_Load()
Dim Fn As Long
Fn = FreeFile
Open "имя файла" For Input As Fn
Text1.Text = Input(LOF(Fn), Fn)
Close Fn
End Sub

Запись опубликована on 17.04.2009 at 13:04 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



У нас один комментарий на запись “Загрузка текста из файла в TextBox”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 10.07.2009, Трава said:

    Давно искал. :) Нашёл! Вот старый мой способ:

    Private Sub Command1_click()
    Dim filename As String
    Dim line As String
    filename = InputBox(«Файл:»)
    If filename = «» Then Exit Sub
    Open filename For Input As #1
    Do Until EOF(1)
    Line Input #1, line
    Text1.Text = Text1.Text + line + Chr(13)
    Loop
    Close #1
    End Sub

    Вот. А Chr(13) там как enter не пашет. :( Тока квадратик был и всё.

Оставить комментарий

Я не робот.