51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1798|回复: 3
打印 上一主题 下一主题

[原创] 如何在一个指定的TXT文件的指定位置中插入数据(该TXT文件本身是有数据的)?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-3-7 18:11:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何在一个指定的TXT文件的指定位置中插入数据(该TXT文件本身是有数据的)?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-3-7 19:38:32 | 只看该作者
1、分别获取指定位置前后的数据data1和data2
2、将要插入的数据与data1、data2进行连接,写入TXT
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2012-3-8 10:56:38 | 只看该作者
回复 2# mimmy


    我是新手,能有具体的实例不?
回复 支持 反对

使用道具 举报

  • TA的每日心情
    郁闷
    2014-12-17 09:47
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2012-3-8 14:07:19 | 只看该作者
    回复 1# binlanfang 给你一个笨点的代码吧,希望帮到你,建议测试之前先备份好你的数据,不然...
    1. '参数1: txt文件
    2. '参数2: 在第几行后插入数据
    3. '参数3: 插入数据内容

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

    5. Function AddLine(strPath,IntLine,strInput)
    6.     Dim Fso,MyFile
    7.     Set Fso = CreateObject("Scripting.FileSystemObject")
    8.     '以只读的方式打开文件
    9.     Set ReadFile = Fso.OpenTextFile(strPath,1,true)
    10.         '以只写的方式打开文件
    11.         Set WriteFile = Fso.OpenTextFile("NewFile.txt",2,true)
    12.     '如果当前的指针不在整个文档的末尾,读取文本的整行内容
    13.     Do Until ReadFile.AtEndOfStream
    14.                 WriteFile.WriteLine ReadFile.ReadLine
    15.         IntLine = IntLine - 1
    16.         '判断光标是否已达到指定行,达到则退出函数        
    17.         If IntLine = 0 Then
    18.                    WriteFile.WriteLine strInput
    19.         End If
    20.     Loop
    21.         ReadFile.Close
    22.         WriteFile.Close
    23.         Set Fso = Nothing
    24. End Function
    复制代码
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-24 03:23 , Processed in 0.073093 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表