Question

按键精灵，我要读取txt最后一行其中一个用(1)起来的里面的数字，然后把这个数字用来写入一行时自动递增1

按键精灵，我要读取txt最后一行其中一个用(1)起来的里面的数字，然后把这个数字用来写入一行时自动递增1,就像下面的效果,
测试完成于 2012-12-08 01:17:52 第(1)次测试
测试完成于 2012-12-08 01:17:55 第(2)次测试
测试完成于 2012-12-08 01:17:58 第(3)次测试
直接给源码哦,谢谢帮忙哈!!!

Answer 1

读写文本的例子。可做为小精灵的读取自定义参数。
sub 写文本，这里做为主程序来使用，大家需要用到的话可以把它最为一个子程序来调用。

1. sub 写文本
2. px_1=xxx=(2) 2是参数用来作为XX功能
3. VBS set file=CreateObject(Scripting.FileSystemObject)
4. VBS const forwriting=2
5. VBS const forreading=1
6. 假如配置文本存在，则自动创建文本并写入，假如存在，则自动读取括号内的参数
7. If file.FileExists(d配置文本.txt)=0
8. VBS set file=CreateObject(Scripting.FileSystemObject)
9. 创建文本的位置
10. VBS set myfile=file.createtextfile(d配置文本.txt)
11. 写入文本的位置
12. VBS set myfile=file.opentextfile(d配置文本.txt,forwriting)
13. 写文本的内容
14. VBS myfile.writeline(px_1)
15. VBS myfile.Close
16. Gosub 读文本
17. Else
18. Gosub 读文本
19. EndIf
20. sub 写文本
21. Sub 读文本
22. VBS set file=CreateObject(Scripting.FileSystemObject)
23. VBS Set myfile=file.OpenTextFile(d配置文本.txt,ForReading)
24. 读第一行
25. px1
26. VBS nw=myfile.ReadLine
27. 取字符串，读取（）内的参数
28. use_len=instr(nw,()
29. use_len_1=instr(nw,))
30. use_0=mid(nw,use_len+1,use_len_1-use_len-1)
31. 读取出来的值赋给脚本中需要使用到的变量
32. px_1=use_0
33. px_1=cint(px_1) 读出来的是字符，需要用到数字的话请把变量转为整型
34. VBS myfile.Close
35. Return 读文本

复制代码

Answer 2

实施例的读出和写入文本。自定义参数可用于阅读的精灵。
子写的文字在这里做的主要程序，如果我们需要它的最子程序调用。

1。子写文字

2。 px_1 = XXX =（2）2个参数作为XX功能

3。 VBS集文件的CreateObject（Scripting.FileSystemObject来）

4。 VBS常量forwriting = 2

5。 VBS常量ForReading的= 1

6。配置文本自动创建文本和写，如果存在的话，会自动读取括号内的参数

7。如果file.FileExists（D配置文本TXT）= 0

的VBS集文件的CreateObject（Scripting.FileSystemObject的）

创建文本的位置

10。 VBS组（D MYFILE = file.createtextfile配置文本TXT）

11写文本的位置

12。 VBS集MYFILE = file.opentextfile（D配置的TXT文本，forwriting）

13。书面文本内容14 VBS myfile.writeline（px_1）

15。 VBS myfile.Close

16的GOSUB阅读文字

17。品 18。 GOSUB阅读文字

19 ENDIF

20分写的文字

21分阅读文本

22的VBS集文件的CreateObject（Scripting.FileSystemObject来） 23。 VBS设置MYFILE = file.OpenTextFile（D配置的TXT文本，ForReading的）

24。读出的第一行

25。 1804546

26。 VBS NW = myfile.ReadLine

27。取字符串，read（）的参数

28。 use_len = INSTR（NW，（）

29。，use_len_1 = INSTR（NW））

30需要使用变量的值分配给脚本。 use_0 = MID（NW，use_len +1，use_len_1的，use_len-1）

31。读出

32。 px_1 use_0

33。 px_1 = CINT（px_1）读出需要的字符数字变量整数

34。 VBS myfile.Close

35回读文字
复制代码

Answer 3

我需要一个可以读取TXT文件内的数字,然后自动输入的程序。按键精灵可以吗?怎么弄? 悬赏分:25