′功能：删除、替换文本中一行，或者插入内容到文本中某一行
′参数：
′strSourceFile  原始文件完整名
′strTargetFile  生成新文件的完整名
′intRow         操作的行数

Sub 操作文件中一行(strSourceFile As String, strTargetFile As String, intRow As Long)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
   
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    ′取出源文件行数，按照回车换行来分隔成数组
   
    filenum = FreeFile
    If Dir(strTargetFile, vbNormal) <> "" Then
        Kill strTargetFile
    End If
    Dim Filestr() As String
   
    ′删除一行代码块
    Open strTargetFile For Append As #filenum
        ′循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i <> intRow - 1 Then
                Print #filenum, fileInfo(i)
            End If
        Next
    Close #filenum
   
    ′替换一行代码块
    Open strTargetFile For Append As #filenum
        ′循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow - 1 Then
                Print #filenum, "你要替换进去的内容"
            End If
        Next
    Close #filenum
   
    ′插入一行代码块
    Open strTargetFile For Append As #filenum
        ′循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow - 1 Then
                Print #filenum, "你要插入到这行的内容"
                Print #filenum, fileInfo(i)           ′保留原来的行，位置后移一位
            End If
        Next
    Close #filenum
   
   
    MsgBox "完毕"
End Sub