Используйте метод WriteAllText для записи текста в файл, указывая файл и текст, который требуется записать. В этом примере строка "This is new text."записывается в файл test.txt, при этом текст добавляется к тексту, имеющемуся в файле.
My.Computer.FileSystem.WriteAllText("C:\TestFolder1\test.txt",
"This is new text to be added.",True)
Запись набора строк в файл:
Выполните цикл по коллекции строк. Используйте метод WriteAllText для записи текста в файл, указав конечный файл, строку, которую требуется добавить, и присвоив параметру append значение True.
В этом примере имена файлов в каталоге Documents and Settings записываются в файл FileList.txt, при этом между каждой записью вставляется символ перевода строки для удобства чтения.
|
For Each foundFile As String In My.Computer.FileSystem.GetFiles("C:\Documents and Settings") foundFile = foundFile & vbCrLf My.Computer.FileSystem.WriteAllText( "C:\Documents and Settings\FileList.txt", foundFile, True) Next |
Чтение данных из текстового файла:
Для считывания содержимого текстового файла в строку используйте метод ReadAllText объекта My.Computer.FileSystem, указав путь. В следующем примере содержимое файла test.txt считывается в строку и затем отображается в окне сообщения.
|
Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt") MsgBox(fileReader) |
Чтение данных из зашифрованного текстового файла:
Для считывания содержимого текстового файла в строку используйте метод ReadAllText объекта My.Computer.FileSytem, указав путь и тип кодировки файла. В следующем примере содержимое файла test.txt в кодировке UTF32 считывается в строку и затем отображается в окне сообщения.
|
Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt", System.Text.Encoding.UTF32) MsgBox(fileReader) |
