TXT文件用法大全【荐】--------按键精灵

来源：全文链接

（3）读取TXT文件指定某一行的第？到第？个字

1. UserVar t=2 "读出txt第几行文本"
2. UserVar i=5 "从第几个字开始读取"
3. UserVar O=8 "结束读取到第几个字"
4. Text = Plugin.File.ReadFileEx("路径文件名.txt")
5. txtArray=Split(Text,"|")
6. I=I-1
7. O=O-I:T=T-1
8. For O
9.     str=str & Mid(txtArray(t),1+i,1)
10.     i=i+1
11. EndWhile 
12. MessageBox str
13. EndScript

复制代码

（4）新建一个TXT文件

1. set fso=CreateObject("Scripting.FileSystemObject")
2. const forwriting=2
3. const forreading=1
4. set myfile=fso.createtextfile("路径文件名.txt")

复制代码

（5）判断一个文件是否存在

1. IsFile = Plugin.File.IsFileExit("路径文件名.txt")
2. If IsFile = True
3.     MessageBox "找到"
4. Else 
5.     MessageBox "没找到"
6. EndIf 

复制代码

（6）给TXT文件写入内容

1. set fso=CreateObject("Scripting.FileSystemObject")
2. set myfile=fso.createtextfile("路径文件名.txt")
3. myfile.writeline("内容")
4. Call Plugin.File.WriteFileEx("路径文件名.txt", "内容")

复制代码

（7）读取TXT文件指定某一行内容

1. Text = Plugin.File.ReadFileEx("路径文件名.txt")
2. txtArray=Split(Text,"|")
3. // 显示第5行，就写 txtArray(4) 。 显示第6行。就写 txtArray(5)
4. MessageBox txtArray(0)

复制代码

（8）读取TXT文件全部内容

1. I=0
2. Text = Plugin.File.ReadFileEx("路径文件名.txt")
3. txtArray=Split(Text,"|")
4. While Len(txtArray(I))>=1
5.     RE=RE & txtArray(I)
6.     I=I+1
7. EndWhile 
8. MessageBox RE

复制代码

（9）读取txt文件一共多少行

1. I=0
2. Text = Plugin.File.ReadFileEx("路径文件名.txt")
3. txtArray=Split(Text,"|")
4. While Len(txtArray(I))>=1
5.     I=I+1
6. EndWhile 
7. MessageBox i

复制代码TXT文件用法大全【荐】