MS Access VBA Открыть текстовый файл и записать в определенную строку, не перезаписывая файл - PullRequest
Новая
       10

MS Access VBA Открыть текстовый файл и записать в определенную строку, не перезаписывая файл

0 голосов
/ 14 мая 2019

У меня есть текстовый файл, в который я хотел бы добавить верхний и нижний колонтитулы. Я не хочу перезаписывать первые или последние строки, скорее я хотел бы добавить новую первую строку и добавить строку в конец файла.

Следующая функция работает для добавления в конец файла, но я хотел бы иметь возможность контролировать, где вставляется строка. Спасибо! 

Function WriteToText(sFile As String, sText As String)

    On Error GoTo Err_Handler
    Dim iFileNumber           As Integer

    iFileNumber = FreeFile                   ' Get unused file number
    Open sFile For Append As #iFileNumber    ' Connect to the file
    Print #iFileNumber, sText                ' Append our string
    Close #iFileNumber                       ' Close the file   Exit_Err_Handler:
    Exit Function   Err_Handler:
    MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: Txt_Append" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occured!"
    GoTo Exit_Err_Handler End Function

1 Ответ

1 голос
/ 14 мая 2019

Что вы делаете для такой задачи:

  1. Считайте весь файл в строку (Open For Input)
  2. Добавьте нужные данные: S = "header line" & vbCrLf & S & vbCrLf & "footer line"
  3. Записать всю строку в файл, переписав ее (Open For Output)
...