按键精灵文本操作

按键精灵文本操作
TXT文件用法大全【荐】1
本帖最后由按键用户于 2010-12-22 08:37 编辑
（1）覆盖TXT文件指定某一行内容
// 欲写入的数据
neirong="感谢您使用由《按键用户》制作的脚本" // 写入第几行
jihang=5
Text = Plugin.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) & vbCrLf
EndIf
i=i+1
Goto z
Else
If i<=jihang
MessageBox "少于"&jihang&"行"
EndScript
EndIf
EndIf
// 删除旧文檔
Call Plugin.File.DeleteFile("路径\文件名.txt")
// 储存新文檔
Call Plugin.File.WriteFileEx("路径\文件名.txt", txt)
（2）插入内容到TXT文件的指定某一行
//欲写入的数据
neirong="感谢您使用此脚本"
//写入第几行
jihang=5
Text = Plugin.File.ReadFileEx("路径\文件名.txt") txtArray=Split(Text,"|")
txt=""
i=0
// 若旧文檔大于jihang行
If UBound(txtArray)>=1
For jihang-1
txt = txt & txtArray(i) & vbCrLf
i=i+1
EndFor
txt = txt & neirong & vbCrLf
For UBound(txtArray)-(jihang-1)
txt = txt & txtArray(i) & vbCrLf
i=i+1
EndFor
Else
// 若旧文檔小于jihang行
For UBound(txtArray)
txt = txt & txtArray(i) & vbCrLf
i=i+1
EndFor
txt = txt & neirong & vbCrLf
EndIf
// 删除旧文檔
Call Plugin.File.DeleteFile("路径\文件名.txt")
// 储存新文檔
Call Plugin.File.WriteFileEx("路径\文件名.txt", txt)
（3）读取TXT文件指定某一行的第？到第？个字UserVar t=2 "读出txt第几行文本"
UserVar i=5 "从第几个字开始读取"
UserVar O=8 "结束读取到第几个字"
Text = Plugin.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
（4）新建一个TXT文件
set fso=CreateObject("Scripting.FileSystemObject") const forwriting=2
const forreading=1
set myfile=fso.createtextfile("路径\文件名.txt") （5）判断一个文件是否存在
IsFile = Plugin.File.IsFileExit("路径\文件名.txt")
If IsFile = True
MessageBox "找到"
Else
MessageBox "没找到"
EndIf
（6）给TXT文件写入内容
set fso=CreateObject("Scripting.FileSystemObject")
set myfile=fso.createtextfile("路径\文件名.txt")
myfile.writeline("内容")
Call Plugin.File.WriteFileEx("路径\文件名.txt", "内容")
（7）读取TXT文件指定某一行内容
Text = Plugin.File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
// 显示第5行，就写 txtArray(4) 。

显示第6行。

就写 txtArray(5) MessageBox txtArray(0)
（8）读取TXT文件全部内容
I=0
Text = Plugin.File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
While Len(t
xtArray(I))>=1
RE=RE & txtArray(I)
I=I+1
EndWhile
MessageBox RE
（9）读取txt文件一共多少行
I=0
Text = Plugin.File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|") While Len(txtArray(I))>=1 I=I+1
EndWhile MessageBox i。