按键精灵TXT文件用法大全 (源码)

分享一下按键精灵的源码，关于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