Как чтение и запись в текстовый файл с помощью Visual Basic 2005 или Visual Basic .NET

Переводы статьи Переводы статьи
Код статьи: 315828 - Vizualiza?i produsele pentru care se aplic? acest articol.
Версии Microsoft Visual Basic 6.0 в данной статье см. 183638.
Развернуть все | Свернуть все

В этой статье

Аннотация

В данной статье показано, как для чтения и записи текстовый файл с помощью Microsoft Visual Basic 2005 или Microsoft Visual Basic .NET.

Требования

В следующем списке представлены рекомендуемое оборудование, программное обеспечение, сетевая инфраструктура и пакеты обновления, которые будут необходимы.
  • Visual Basic 2005 или Visual Basic .NET
Предполагается, что вы знакомы со следующими темами:
  • Visual Basic 2005 или Visual Basic .NET

Чтение и запись текстовых файлов

"Чтение текстового файла" разделе показано, как с помощью объекта StreamReader для чтения текстового файла. "Запись в текстовый файл (пример 1)"раздела и "Запись в текстовый файл (пример 2)" разделе демонстрируют, как использовать класс StreamWriter для записи текста в файл.

Чтение текстового файла

В следующем коде используется класс StreamReader для открытия, чтения и закрытия текстового файла. Можно передать путь StreamReader конструктор автоматически открыть его в текстовый файл. Метод ReadLine считывает каждую строку текста и увеличивает указатель файла Считывает следующую строку как его. Когда метод ReadLine достигает конца файла, возвращается Nothing.
  1. Запустите Microsoft Visual Studio 2005 или Microsoft Visual Studio .NET.
  2. Создайте новое консольное приложение в Visual Basic 2005 или Visual Basic .NET.
  3. Добавьте следующий код в начало файла Module1.vb:
    Imports System.IO
    					
  4. Добавьте следующий код в процедуру Sub Main .
    Dim objStreamReader As StreamReader
        Dim strLine As String
    
        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")
    
        'Read the first line of text.
        strLine = objStreamReader.ReadLine
    
        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing
    
          'Write the line to the Console window.
          Console.WriteLine(strLine)
    
          'Read the next line.
          strLine = objStreamReader.ReadLine
        Loop
    
        'Close the file.
        objStreamReader.Close()
    
        Console.ReadLine()
    					
  5. В меню Отладка нажмите кнопку Пуск для компиляции и запуска приложения. Нажмите клавишу ВВОД, чтобы закрыть Окно консоли.

    В окне консоли отображается в файле Boot.ini. Примечание что содержимое файла Boot.ini может отличаться от конфигурации Конфигурация. Ниже приведен пример файла Boot.ini:
    [boot loader]
    timeout=5
    default=multi(0)disk(0)rdisk(0)partition(1)\WINNT
    
    [operating systems]
    multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetect
    C:\ = "Windows 98"
    						

Запись в текстовый файл (пример 1)

В следующем коде используется класс StreamWriter открывать, записи и закройте текстовый файл. Подобно Чтобы StreamReaderможно передать путь в текстовом файле конструктор StreamWriter , чтобы автоматически открыть файл. Метод WriteLine записывает полные строки текста в текстовый файл.
  1. Запустите Visual Studio 2005 или Visual Studio .NET.
  2. Создайте новое консольное приложение в Visual Basic 2005 или Visual Basic .NET.
  3. Добавьте следующий код в верхнюю часть Module1.vb:
    Imports System.IO
    					
  4. Добавьте следующий код в процедуру Sub Main .
    Dim objStreamWriter As StreamWriter
        
       'Pass the file path and the file name to the StreamWriter constructor.
       objStreamWriter = New StreamWriter("C:\Testfile.txt")
    
       'Write a line of text.
       objStreamWriter.WriteLine("Hello World")
    
       'Write a second line of text.
       objStreamWriter.WriteLine("From the StreamWriter class")
    
       'Close the file.
       objStreamWriter.Close()
    					
  5. В меню Отладка нажмите кнопку Пуск для компиляции и запуска приложения.

    Этот код Создает файл с именем Test.txt на диске C. Test.txt открыть в текстовом редакторе таких как «Блокнот». Test.txt содержит две строки текста:
    Hello World
    From the StreamWriter class
    						

Запись в текстовый файл (пример 2)

В следующем коде используется класс StreamWriter открывать, записи и закройте текстовый файл. В отличие от Предыдущий пример, данный код передает два дополнительных параметров конструктор.

Первый параметр — путь к файлу и имя файла файл. Второй параметр True указывает на то, что файл будет открыт в режиме добавления. Если указать Значение false для второго параметра, содержимое файла перезаписывается каждый раз при выполнении кода. Третий параметр указывает Юникода , так что StreamWriter кодирует файл в кодировке Юникод. Кроме того, можно задать следующие методы кодирования для третьего параметра:
  • ASCII
  • BigEndianUnicode
  • UTF7
  • UTF8
Метод Write аналогичен методу WriteLine , за исключением того, что запись не внедрять автоматически каретки/и перевода строки (CR/LF) сочетание знаков. Это полезно, когда требуется написать одному знаку время.
  1. Запустите Visual Studio 2005 или Visual Studio .NET.
  2. Создайте новое консольное приложение в Visual Basic 2005 или Visual Basic .NET.
  3. Добавьте следующий код в верхнюю часть Module1.vb:
    Imports System.IO
    Imports System.Text
    					
  4. Добавьте следующий код в процедуру Sub Main в существующий код:
    Dim objStreamWriter As StreamWriter
       Dim x As Long
        
       'Open the file.
       objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
          Encoding.Unicode)
    
       'Write out the numbers 1 through 10 on the same line.
       For x = 1 To 10
         objStreamWriter.Write(x)
       Next x
        
       'Close the file.
       objStreamWriter.Close()
    					
  5. В меню Отладка нажмите кнопку Пуск для компиляции и запуска приложения.

    Этот код Создает файл с именем Test2.txt на диске C. Test2.txt открыть в текстовом редакторе таких как «Блокнот». Test2.txt содержит одну строку текста:
    12345678910
    							
    Примечание Если код выполняется несколько раз, является «123456789» текст повторяется на той же строке.

Полный пример кода

'Read a Text File
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamReader As StreamReader
        Dim strLine As String

        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")

        'Read the first line of text.
        strLine = objStreamReader.ReadLine

        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing

            'Write the line to the Console window.
            Console.WriteLine(strLine)

            'Read the next line.
            strLine = objStreamReader.ReadLine
        Loop

        'Close the file.
        objStreamReader.Close()

        Console.ReadLine()
    End Sub
End Module

'Write a Text File: Version 1
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        objStreamWriter = New StreamWriter("C:\Text.txt")

        'Write a line of text.
        objStreamWriter.WriteLine("Hello World")

        'Write a second line of text.
        objStreamWriter.WriteLine("From the StreamWriter class")

        'Close the file.
        objStreamWriter.Close()

    End Sub
End Module

'Write a Text File: Version 2
Imports System.IO
Imports System.Text
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter
        Dim x As Long

        'Open the file.
        objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
           Encoding.Unicode)

        'Write out the numbers 1 through 10 on the same line.
        For x = 1 To 10
            objStreamWriter.Write(x)
        Next x

        'Close the file.
        objStreamWriter.Close()
    End Sub

End Module
				

Устранение неполадок

Всякий раз, когда входного или выходного файла рекомендуется программирования практика перенос кода в блоке Try оператор End Try в случае, если возникает ошибка. Некоторые возможные ошибки файл, который не существует, или файл, который уже используется.

Ссылки

Для получения дополнительных сведений посетите следующий веб-узла корпорации Майкрософт сайты:
Как мне...Прочитать текстовый файл?
http://MSDN.Microsoft.com/en-us/library/db5x7c0d.aspx


Как мне...Чтение и запись файлов большого размера?
.aspx http://MSDN.Microsoft.com/en-us/library/6ka1wd3w (v=vs.80)

Класс StreamReader
.aspx http://MSDN.Microsoft.com/en-us/library/System.IO.StreamReader (v=vs.71)

Класс StreamWriter
.aspx http://MSDN.Microsoft.com/en-us/library/System.IO.StreamWriter (v=vs.71)

Свойства

Код статьи: 315828 - Последний отзыв: 31 января 2013 г. - Revision: 6.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Ключевые слова: 
kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке: 315828

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com