Изменение файла с текстом

[Саша_ОР]

Всем Добрый день! Заранее извините, если эта тема уже была, но я не смог все-равно найти ответ. Так вот в чем собственно говоря вопрос:
Имеется файл с текстом, нужно:
1) Заменить соответствующую строчку в файле.
2) Удалить соответствующую строчку в файле, при этом сдвинув текст на месте разрыва текста.
3) Считать соответствующую строчку из файла, не перебирая все низлежащие строки.
4) Добавить в соответствующую позицию строчку между другими строками в файле.
Эти 4 вопроса для меня имеют большое значение! Буду ОЧень благодарен всем за помощь!!!

[Хакер]

1)

Код: Выделить всё


Public Sub ReplaceLine(ByVal sFileName As String, ByVal lLineNum As Long, ByVal sReplaceWith As String)
Dim hFile As Long
Dim sBuffer As String
Dim sLines() As String

  hFile = FreeFile()
  Open sFileName For Binary As #hFile
  sBuffer = Space(LOF(hFile))
  Get #hFile, 1, sBuffer
  sLines = Split(sBuffer, vbNewLine)
  sLines(lLineNum-1) = sReplaceWith
  sBuffer = Join(sLines, vbNewLine)
  Put #hFile, 1, sBuffer
  Close #hFile
End Sub


2)

Код: Выделить всё


Public Sub DeleteLine(ByVal sFileName As String, ByVal lLineNum As Long)
Dim hFile As Long
Dim sBuffer As String
Dim sLines() As String

  hFile = FreeFile()
  Open sFileName For Binary As #hFile
  sBuffer = Space(LOF(hFile))
  Get #hFile, 1, sBuffer
  sLines = Split(sBuffer, vbNewLine)
  For i = lLineNum To UBound(sLines) - 1
    sLines(i) = sLines(i + 1)
  Next i
  ReDim Preserve sLines(UBound(sLines) - 1)
  sBuffer = Join(sLines, vbNewLine)
  Put #hFile, 1, sBuffer
  Close #hFile
End Sub


3)

Код: Выделить всё


Public Function ReadLine(ByVal sFileName As String, ByVal lLineNum As Long) As String
Dim hFile As Long
Dim sBuffer As String
Dim sLines() As String

  hFile = FreeFile()
  Open sFileName For Binary As #hFile
  sBuffer = Space(LOF(hFile))
  Get #hFile, 1, sBuffer
  sLines = Split(sBuffer, vbNewLine)
  Close #hFile
  ReadLine = sLines(lLineNum - 1)
End Sub


4)

Код: Выделить всё


Public Sub AddLine(ByVal sFileName As String, ByVal lLineNum As Long, ByVal sTextToAdd As String)
Dim hFile As Long
Dim sBuffer As String
Dim sLines() As String

  hFile = FreeFile()
  Open sFileName For Binary As #hFile
  sBuffer = Space(LOF(hFile))
  Get #hFile, 1, sBuffer
  sLines = Split(sBuffer, vbNewLine)
  ReDim Preserve sLines(UBound(sLines) + 1)
  For i = UBound(sLines)  To lLineNum + 1
    sLines(i) = sLines(i - 1)
  Next i
  sLines(lLineNum) = sTextToAdd

  sBuffer = Join(sLines, vbNewLine)
  Put #hFile, 1, sBuffer
  Close #hFile
End Sub


_________________________
Использование:
ReplaceLine имя_файла, номер_строки, на_что_заменить
Заменяет в файле имя_файла строчку под номером номер_строки на текст, содержащийся в переменной на_что_заменить

DeleteLine имя_файла, номер_строки
Удалёет из файла имя_файла строку под номером номер_строки

LineText = ReadLine(имя_файла, номер_строки)
Переменная LineText будет содержать строчку под номером номер_строки из файла имя_файла

AddLine имя_файла, номер_строки, что_добавить
Добавляет в файл имя_файла вместо строчки с номером номер_строки текст из переменной что_добавить

[xqz_me]

TextStream?



-------------------------------------
(удалите, пожалуйста, это сообщение)

[xqz_me]

3) Метод ReadLine объекта TextStream

[Саша_ОР]

Спасибо за код, но вот для файлов, открытых методом INPUT, вышеприведенный код подойдет?

Файл: File.txt
Строка№1
строка№2
Строка№3

К тому же нехочется затрагивать другие строки при чтении, перезаписи и т.п.

[Хакер]

Саша_ОР, используя мои методы тебе необязательно вообще открывать файл.

К тому же нехочется затрагивать другие строки при чтении, перезаписи и т.п

На счёт других строчек - не волнуйся ничего с ними не будет.

[Viper]

Саша_ОР, используя мои методы тебе необязательно вообще открывать файл.

Я идиот! Убейте меня, кто-нибудь! удивил... а Open это уже не открытие файла?

[Хакер]

!Viper!, я про то что не нужно делать так

Код: Выделить всё

Open xxx For Input As #1
foo = МояФункция(ываываыва)
Close #1