none
Чтение информации из текстового файла.( Visual Basic) RRS feed

Ответы

  • Добрый день.

    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText("C:\\test.txt")
    MsgBox(fileReader)

    Ссылка на MSDN How to: Read From Text Files in Visual Basic


    • Изменено Alexandr Gashper 17 февраля 2012 г. 5:51
    • Помечено в качестве ответа Abolmasov Dmitry 17 февраля 2012 г. 6:47
    • Снята пометка об ответе Duke Nukem 17 февраля 2012 г. 12:04
    • Помечено в качестве ответа Abolmasov Dmitry 20 февраля 2012 г. 7:56
    17 февраля 2012 г. 5:51
  •         Dim buff As String
            FileOpen(1, "d:\a.txt"OpenMode.Input)
            Do While Not EOF(1)
                Input(1, buff)
                Console.WriteLine(buff)
            Loop
     
            FileClose(1)

    Это каменный топор. OpenFile живёт лишь для обратной совместимости. Цитата "The FileOpen function is provided for backward compatibility and may affect performance. For non-legacy applications, the My.Computer.FileSystem object provides better performance."

    • Помечено в качестве ответа Abolmasov Dmitry 20 февраля 2012 г. 7:56
    17 февраля 2012 г. 13:20

Все ответы

  • Добрый день.

    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText("C:\\test.txt")
    MsgBox(fileReader)

    Ссылка на MSDN How to: Read From Text Files in Visual Basic


    • Изменено Alexandr Gashper 17 февраля 2012 г. 5:51
    • Помечено в качестве ответа Abolmasov Dmitry 17 февраля 2012 г. 6:47
    • Снята пометка об ответе Duke Nukem 17 февраля 2012 г. 12:04
    • Помечено в качестве ответа Abolmasov Dmitry 20 февраля 2012 г. 7:56
    17 февраля 2012 г. 5:51
  • Мне нужно через открытие, чтение и закрытие файла.

        Private Sub cmdFileRead_Click(sender As Object, e As System.EventArgs) Handles cmdFileRead.Click
            FileOpen(1, "RRR.txt", OpenMode.Input)
            FileClose(1)
        End Sub


    Sergey

    17 февраля 2012 г. 12:06
  •         Dim buff As String
            FileOpen(1, "d:\a.txt"OpenMode.Input)
            Do While Not EOF(1)
                Input(1, buff)
                Console.WriteLine(buff)
            Loop
     
            FileClose(1)

    Это каменный топор. OpenFile живёт лишь для обратной совместимости. Цитата "The FileOpen function is provided for backward compatibility and may affect performance. For non-legacy applications, the My.Computer.FileSystem object provides better performance."

    • Помечено в качестве ответа Abolmasov Dmitry 20 февраля 2012 г. 7:56
    17 февраля 2012 г. 13:20