实施例的读出和写入文本。自定义参数可用于阅读的精灵。

子写的文字在这里做的主要程序，如果我们需要它的最子程序调用。

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回读文字

复制代码

取消

评论