VB 6 + Захватить текст из файла и скопировать его в окно формы

Question

Следующий код VB 6 сохраняет текст из текстового поля в виде графического интерфейса пользователя в file.txt (нажатием на кнопку)

Как сделать обратный вариант - копировать / захватывать текст файла (файл.txt), и передав его в textBox в виде графического интерфейса, я с удовольствием получу реальный пример

примечания - (перед тем как пройти нужно очистить окно формы от любого текста)

  Private Sub save_Click()

    saves = (Form1.Caption)

    FCO.CreateTextFile App.Path & "\" & saveas & "file.txt", True

    FCO.OpenTextFile(App.Path & "\" & saveas & "file.txt", ForWriting).Write Text1.Text

  End Sub

Answer 1

Это читает из файла и помещает результаты в Text1.Text.

Private Sub save_Click()  
    Dim sFile as String
    sFile = "c:\whatever"
    Dim sData as String
    Dim fnum as Integer
    fnum = FreeFile()
    Open sFile For Input As #fnum
    If Not eof(fnum) Then
         Input #fnum, sData
         Text1.Text= sData
    End If
    Close #fnum
End Sub

Answer 2

Вы можете загрузить содержимое файла, используя стандартные операции ввода-вывода для файла VB6

Dim FileNum As Integer
Dim Size As Long
Dim Data() As Byte

'Open the file
FileNum = FreeFile()
Open FileName For Binary As #FileNum

'Read all the data
Size = LOF(FileNum)
ReDim Data(Size - 1)
Get #FileNum, , Data
Close #FileNum

'Convert to a string
TextBox.Text = StrConv(Data, vbUnicode)

См. оригинальную статью .