• Maxim
  • Восстановленный участник
  • На форуме с 24 декабря 2005г.
  • Сообщений: 124
  • Спасибо: 0

Тема: Запись строк в файл

Подскажите, как записать произвольную строку текста в текстовый файл средствами VB. Текст должен быть записан, например в 10 от верха строку.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Запись строк в файл

Как вариант:

Const FILE_NAME As String = "D:\Work\Dwg\MyFile.txt"
Sub TextToFile()
    Dim StringToFile As String
    Dim fileNumber As Integer
    Dim i As Integer
    fileNumber = FreeFile
    StringToFile = ""
    Open FILE_NAME For Output As #fileNumber
    For i = 1 To 9
        Print #fileNumber, StringToFile
    Next i
    StringToFile = "My string"
    Print #fileNumber, StringToFile
    Close #fileNumber
End Sub

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Запись строк в файл

> Maxim_Z
Другой вариант, надо подключить библиотеку
Microsoft Scripting Runtime

Option Explicit
'' Fatty T.O.H (c)2006 * all rights removed
'' Request reference to "MicroSoft Scripting Runtime"
Sub TestForAppend()
     Dim i, pos, target, source, rec, ftarget, fsource, fs, ForReading, fname, news
     ForReading = 1
     fname = "a.TXT"     '' short name only for source file!
     pos = 10
     news = "New string to append to"
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set source = fs.OpenTextFile("C:\a.txt", ForReading, False)     ''full path
     Set target = fs.CreateTextFile("C:\b.txt", True)     ''full path
     i = 0
     Do While source.AtEndOfStream <> True
          i = i + 1
          rec = source.ReadLine
          If i = pos Then
               target.WriteLine news
               target.WriteLine rec
          Else
               target.WriteLine rec
          End If
     Loop
     target.Close
     source.Close
     Set fsource = fs.GetFile("C:\a.TXT")
     fsource.Delete
     Set fsource = Nothing
     Set ftarget = fs.GetFile("C:\b.TXT")
     ftarget.Name = fname
     Set target = Nothing
     Set source = Nothing
     Set ftarget = Nothing
     Set fs = Nothing
End Sub

~'J'~