admin 管理员组

文章数量: 887021


2023年12月17日发(作者：method用法及搭配)

按键精灵文本操作

TXT文件用法大全【荐】1

本帖最后由 按键用户 于 2010-12-22 08:37 编辑

（1）覆盖TXT文件指定某一行内容

// 欲写入的数据

neirong="感谢您使用由《按键用户》制作的脚本"

// 写入第几行

jihang=5

Text = leEx("路径文件名.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 File("路径文件名.txt")

// 储存新文檔

Call ileEx("路径文件名.txt", txt)

（2）插入内容到TXT文件的指定某一行

//欲写入的数据

neirong="感谢您使用此脚本"

//写入第几行

jihang=5

Text = leEx("路径文件名.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 File("路径文件名.txt")

// 储存新文檔

Call ileEx("路径文件名.txt", txt)

（3）读取TXT文件指定某一行的第？到第？个字

UserVar t=2 "读出txt第几行文本"

UserVar i=5 "从第几个字开始读取"

UserVar O=8 "结束读取到第几个字"

Text = leEx("路径文件名.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("stemObject")

const forwriting=2

const forreading=1

set myfile=textfile("路径文件名.txt")

（5）判断一个文件是否存在

IsFile = Exit("路径文件名.txt")

If IsFile = True

MessageBox "找到"

Else

MessageBox "没找到"

EndIf

（6）给TXT文件写入内容

set fso=CreateObject("stemObject")

set myfile=textfile("路径文件名.txt")

ine("内容")

Call ileEx("路径文件名.txt", "内容")

（7）读取TXT文件指定某一行内容

Text = leEx("路径文件名.txt")

txtArray=Split(Text,"|")

// 显示第5行，就写 txtArray(4) 。 显示第6行。就写 txtArray(5)

MessageBox txtArray(0)

（8）读取TXT文件全部内容

I=0

Text = leEx("路径文件名.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 = leEx("路径文件名.txt")

txtArray=Split(Text,"|")

While Len(txtArray(I))>=1

I=I+1

EndWhile

MessageBox i


本文标签： 文件 读取 指定 内容 按键

版权声明：本文标题：按键精灵文本操作 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1702791751h431091.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。