分享一下按键精灵的源码，关于TXT文件用法大全 

1.新建一个TXT文件 

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


2.判断一个文件是否存在
Plugin IsFile = File.IsFileExit("路径\文件名.txt")
If IsFile = True
MessageBox "找到"
Else 
MessageBox "没找到"
EndIf


3.删除一个TXT文件
Plugin File.DeleteFile("路径\文件名.txt")


4.给TXT文件写入内容
方法一
set fso=CreateObject("Scripting.FileSystemObject")
set myfile=fso.createtextfile("路径\文件名.txt")
myfile.writeline("内容")
方法2
Plugin File.WriteFileEx("路径\文件名.txt", "内容")


5.读取TXT文件指定某一行内容
// 显示第5行，就写 txtArray(4) 。 显示第6行。就写 txtArray(5)
MessageBox txtArray(0)


6.读取TXT文件全部内容
I=0
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
While Len(txtArray(I))>=1
RE=RE & txtArray(I)
I=I+1
EndWhile 
MessageBox RE


7.读取txt文件一共多少行
I=0
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
While Len(txtArray(I))>=1
I=I+1
EndWhile 
MessageBox i

8.覆盖TXT文件指定某一行内容
// 欲写入的数据
neirong="感谢您使用由《按键用户》制作的脚本"
// 写入第几行
jihang=4
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
txt=""
i=0
Rem z
If Len(txtArray(i))>=1
If i=jihang-1
// 覆盖
txt = txt & neirong & vbCrLf
Else 
txt = txt & txtArray(i) & Chr(10)
EndIf 
i=i+1
Goto z
Else 
If i<=jihang
MessageBox "少于"&jihang&"行"
EndScript 
EndIf 
EndIf 
// 删除旧文檔
Plugin File.DeleteFile("路径\文件名.txt")
// 储存新文檔
Plugin File.WriteFileEx("路径\文件名.txt", txt)


9.插入内容到TXT文件的指定某一行
// 欲写入的数据
neirong="感谢您使用此脚本"
// 写入第几行
jihang=5
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
txt=""
i=0
// 若旧文檔大于jihang行
If UBound(txtArray)>=1
For jihang-1
txt = txt & txtArray(i) & Chr(10)
i=i+1
EndFor 
txt = txt & neirong & vbCrLf
For UBound(txtArray)-(jihang-1)
txt = txt & txtArray(i) & Chr(10)
i=i+1
EndFor 
Else 
// 若旧文檔小于jihang行
For UBound(txtArray)
txt = txt & txtArray(i) & vbCrLf
i=i+1
EndFor 
txt = txt & neirong & vbCrLf
EndIf 
// 删除旧文檔
Plugin File.DeleteFile("路径\文件名.txt")
// 储存新文檔
Plugin File.WriteFileEx("路径\文件名.txt", txt)


10.读取TXT文件指定某一行的第？到第？个字
UserVar t=2 读出txt第几行文本
UserVar i=5 从第几个字开始读取
UserVar O=8 结束读取到第几个字
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
I=I-1
O=O-I:T=T-1
For O
str=str & Mid(txtArray(t),1+i,1)
i=i+1
EndWhile 
MessageBox str
EndScript


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