• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

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

1#
例子: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
复制代码

2#

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

发新话题 回复该主题