• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 3787|回复: 9

【脚本源码】[9.X例子]追加指定行文本内容 [复制链接]

兄弟工程师01
头像

  • 版主
  • 211464
  • 21164
  • 13
  • 258 朵
  • 47817 个
  • 60 个
  • 263800
  • 2008-12-23
按键精灵开发者4级兔年勋章论坛MM小红帽学有所成按键元老管理人员
1#
t T
发表于 2011-03-25 13:59 | |只看楼主
例子：Call 追加指定行文本内容("c:\测试报告.txt","->追加内容",1)
  1. Sub 追加指定行文本内容(文本路径, 文本内容, 行数)
  2. Dim ForReading ,ForWriting
  3. ForReading = 1
  4. ForWriting = 2
  5. Dim objFSO,objFile,strLine,strNewFile
  6. Set objFSO = CreateObject("Scripting.FileSystemObject")
  7. Set objFile = objFSO.OpenTextFile(文本路径,ForReading)
  8. Do Until objFile.AtEndOfStream
  9. strLine = objFile.Readline
  10. If 行数 = objFile.Line-1 or 行数 = 0 then
  11. strNewFile = strNewFile & strLine & 文本内容 & vbcrlf
  12. End If
  13. Loop
  14. objFile.Close
  15. Set objFile = objFSO.OpenTextFile(文本路径,ForWriting)
  16. objFile.Write strNewFile
  17. objFile.Close
  18. End Sub
复制代码
点赞
【按键精灵手机版】按键精灵安卓版v3.0发布啦~体验送现金红包哦！！

【按键精灵2014.03.16412版】这是有史以来最稳定的版本，不信你用一个？

.
回顶部
类人猿
头像

类人猿学院

  • 大学三年级
  • 2453267
  • 681
  • 15
  • 1235 朵
  • 2419 个
  • 633 个
  • 17540
  • 2014-04-06
双十一绝版纪念勋章鹰眼勋章按键图书勋章按键明星黄金之翼按键精灵开发者6级脚本作者按键元老
2#
t T
发表于 2017-01-19 15:27 | |只看该用户

我提一下建议，尽量别用系统大对象，对新手来说学习难度很大的。直接做成插件功能使用。

回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器