binlanfang 发表于 2012-3-7 18:11:56

如何在一个指定的TXT文件的指定位置中插入数据（该TXT文件本身是有数据的）？

如何在一个指定的TXT文件的指定位置中插入数据（该TXT文件本身是有数据的）？

mimmy 发表于 2012-3-7 19:38:32

1、分别获取指定位置前后的数据data1和data2
2、将要插入的数据与data1、data2进行连接，写入TXT

binlanfang 发表于 2012-3-8 10:56:38

回复 2# mimmy


    我是新手，能有具体的实例不？

yyc2164708 发表于 2012-3-8 14:07:19

回复 1# binlanfang 给你一个笨点的代码吧，希望帮到你，建议测试之前先备份好你的数据，不然...
'参数1: txt文件
'参数2: 在第几行后插入数据
'参数3: 插入数据内容

Call AddLine("C:\test.txt",2,"2")

Function AddLine(strPath,IntLine,strInput)
    Dim Fso,MyFile
    Set Fso = CreateObject("Scripting.FileSystemObject")
    '以只读的方式打开文件
    Set ReadFile = Fso.OpenTextFile(strPath,1,true)
      '以只写的方式打开文件
      Set WriteFile = Fso.OpenTextFile("NewFile.txt",2,true)
    '如果当前的指针不在整个文档的末尾，读取文本的整行内容
    Do Until ReadFile.AtEndOfStream
                WriteFile.WriteLine ReadFile.ReadLine
      IntLine = IntLine - 1
      '判断光标是否已达到指定行，达到则退出函数      
      If IntLine = 0 Then
                   WriteFile.WriteLine strInput
      End If
    Loop
      ReadFile.Close
      WriteFile.Close
      Set Fso = Nothing
End Function
页: [1]
查看完整版本: 如何在一个指定的TXT文件的指定位置中插入数据（该TXT文件本身是有数据的）？