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

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

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

快捷导航

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

返回列表 12345678» / 20
发新话题 回复该主题

[分享脚本] 新手适用:读取exel表格,换行读取txt文档例子 [复制链接]

1#
此帖子写给新手的,老手勿喷,请无视。





EXEL表格读取(1,m)(2,m)表格信息,m为行数
  1. Call Plugin.Office.OpenXls("C:\Users\Administrator\Desktop\aaa.xls")//EXEL文档路径
  2. m = 1
  3. Rem a
  4. 账号 = Plugin.Office.ReadXls(1, 1, m)
  5. 密码 = Plugin.Office.ReadXls(1, 2, m)
  6. //此处可插入你自己要的运行代码
  7. m = m + 1
  8. If 账号 = "" Then
  9. TracePrint "已经到最后一项了"
  10. goto a
  11. End If
  12. Call Plugin.Office.CloseXls()
  13. '读取第1页表格,n行m列的表格信息保存到变量"账号"当中
  14. '读取第1页表格,n行m列的表格信息保存到变量"密码"当中
  15. '第一次读取(1,1)(2,1),第二次读取(1,2)(2,2)
  16. '第三次读取(1,3)(2,3),第四次读取(1,4)(2,4)
  17. '....如此类推......
复制代码







TXT文档换行读取,分割
  1. b = 1
  2. Rem a
  3. //信息 = Lib.文件.读取指定行文本内容(文本路径,行数)
  4. 信息 = Lib.文件.读取指定行文本内容("C:\Users\Administrator\Desktop\新建文本文档.txt", b)
  5. //例如我文档第一行的信息是 q123456,654321
  6. 分割后的文本 = split(信息, ",")//此处","同↑,如果内容是"q123456:654321"则应为":"
复制代码

最后编辑a85683079 最后编辑于 2016-01-31 10:08:49
卖流量2.5元50M!
2#

学习学习

3#

46456465132132

4#

vvv不八卦宝贝宝贝

5#

1111111111

6#

好啊啊啊啊

7#

瓜子已就位

8#

11111111111111

9#


10#

少时诵诗书

11#

喜喜喜喜喜喜喜喜喜喜

12#

谢谢啊,学习一下............

13#

看看是怎么写的学习下

14#

学习学习

15#

!!!!!!!!!!

16#

子写给新手的,老手勿喷,请无视。

17#

多谢大神!

18#

谢谢 学习了

19#

看看需要怎样分

20#

多谢分享

发新话题 回复该主题