谁有关于文件操作(批量更改文本件中内容)的文章或程序？

Question

谁有关于文件操作(批量更改文本件中内容)的文章或程序？
我的e-mail: [email protected]

Answer 1

用Replace()函数进行替换操作
用Instr()函数进行查找操作
用如下模式打开文件
变量=Strconv(inputb(lof(文件号),文件号),vbunicode)

Answer 2

这个比较麻烦，如果你的文件不是很大的话建议你读出原文件，解析到那一行，
然后加入你的文本，最后重写文件，给你个文件操作的参考例子，希望给你启发网友的要求
设有文件a.txt，其中存放了两行数据，数据用逗号分隔，现在要读取第一行的奇数位置的数据写入到另一个文本文件（b.txt）的第一行，类似地，把第二行的奇数位置的数据写入到第二行。
比如：
文件a.txt如下：
1，2，3，4，5
6，7，8，9，10
操作完成后，文件b.txt应为
1,3,5
6,8,10
因为我没有用过vb，希望各位能给出完整一点的代码，谢谢！解决的代码
Sub 提取奇数位数据(strSourceFile As String, strTargetFile As String)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
    
    Dim tmpDemData As String
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    '取出源文件行数，按照回车换行来分隔成数组
    
    filenum = FreeFile
    tmpDemData = ""
    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
            Filestr = Split(Trim(fileInfo(i)), ",")  '按照逗号分隔每一行的数据
            tmpDemData = ""
            For j = 0 To UBound(Filestr)
                '判断是否为奇数位
                If (j Mod 2) = 0 Then
                    tmpDemData = tmpDemData & Filestr(j)
                ElseIf j <> 0 And j <> UBound(Filestr) Then
                    tmpDemData = tmpDemData & ","
                End If
            Next
            '保存一行如目标文件
            Print #filenum, tmpDemData
        Next
    Close #filenum
    MsgBox "完毕"
End SubPrivate Sub Command1_Click()
    提取奇数位数据 "d:\aa.txt", "d:\bb.txt"
End Sub