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

2024-10-13 01:17:11

来源：全文链接

（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(txtArray(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

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

最新文章

热门文章