晕死&&现在的人真是思想单纯&&你直接用按键精灵里面的录制脚本就行了...&然后在脚本属性里把循环次数改成“按中止键为止“就可以了&&记住,用录制的
其它3条***
附近的朋友等待您的帮助
包打听移动版按键精灵 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 "找到"
& & MessageBox "没找到"
（3）删除一个TXT文件本帖隐藏的内容
Plugin File.DeleteFile("路径\文件名.txt")
（4）给TXT文件写入内容本帖隐藏的内容方法1
set fso=CreateObject("Scripting.FileSystemObject")
set myfile=fso.createtextfile("路径\文件名.txt")
myfile.writeline("内容")
本帖隐藏的内容方法2
Plugin File.WriteFileEx("路径\文件名.txt", "内容")
（5）读取TXT文件指定某一行内容本帖隐藏的内容
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
// 显示第5行，就写 txtArray(4) 。 显示第6行。就写 txtArray(5)
MessageBox txtArray(0)
（6）读取TXT文件全部内容本帖隐藏的内容
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
While Len(txtArray(I))&=1
& & RE=RE & txtArray(I)
MessageBox RE
（7）读取txt文件一共多少行本帖隐藏的内容
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
While Len(txtArray(I))&=1
MessageBox i
（8）覆盖TXT文件指定某一行内容本帖隐藏的内容
// 欲写入的数据
neirong="感谢您使用由《按键用户》制作的脚本"
// 写入第几行
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
If Len(txtArray(i))&=1
& & If i=jihang-1
& && &&&// 覆盖
& && &&&txt = txt & neirong & vbCrLf
& && &&&txt = txt & txtArray(i) & Chr(10)
& & Goto z
& & If i&=jihang
& && &&&MessageBox "少于"&jihang&"行"
& && &&&EndScript
// 删除旧文?
Plugin File.DeleteFile("路径\文件名.txt")
// 储存新文?
Plugin File.WriteFileEx("路径\文件名.txt", txt)
（9）插入内容到TXT文件的指定某一行本帖隐藏的内容
// 欲写入的数据
neirong="感谢您使用此脚本"
// 写入第几行
Plugin Text = File.ReadFileEx("路径\文件名.txt")
txtArray=Split(Text,"|")
// 若旧文?大于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
& & // 若旧文?小于jihang行
& & For UBound(txtArray)
& && &&&txt = txt & txtArray(i) & vbCrLf
& && &&&i=i+1
& & EndFor
& & txt = txt & neirong & vbCrLf
// 删除旧文?
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,"|")
O=O-I:T=T-1
& & str=str & Mid(txtArray(t),1+i,1)
MessageBox str
（11）打开一个TXT文件本帖隐藏的内容
RunApp "路径\文件名.txt"
TA的最新馆藏
喜欢该文的人也喜欢