VB学习:文本插入与编辑处理实例

  VB操作文本文件的方法很多,下面的例子是我自己作项目或者回答网友提问时做的,很有代表性,希望能够给各位朋友一些启发.

  '功能：删除、替换文本中一行，或者插入内容到文本中某一行
  '作者: soho_andy (冰)
  '参数：
  '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