首页 > 其他好文 > 详细

TXT文件用法大全【荐】

时间：2014-12-21 20:42:59 阅读：211 评论：0 收藏：0 [点我收藏+]

标签：

来源：全文链接

（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文件用法大全【荐】

TXT文件用法大全【荐】

标签：

原文地址：http://www.cnblogs.com/firecode/p/4176977.html

踩

(0)

赞

(0)

举报

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

更多

友情链接

兰亭集智国之画百度统计站长统计阿里云 chrome插件新版天听网

关于我们 - 联系我们 - 留言反馈

© 2014 mamicode.com 版权所有联系我们:gaon5@hotmail.com

迷上了代码！