按键精灵

读txt行数

I=0

Txt = Plugin.File.ReadFileEx ("c:\1.txt")

txtArray=Split(Txt,"|")

While Len(txtArray(I))>=1

    I=I+1

EndWhile 

MessageBox i

//上面是新版本修正后

（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 "找到"

Else 

    MessageBox "没找到"

EndIf 

复制代码

（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文件全部内容

本帖隐藏的内容

I=0

Plugin Text = File.ReadFileEx("路径\文件名.txt")

txtArray=Split(Text,"|")

While Len(txtArray(I))>=1

    RE=RE & txtArray(I)

    I=I+1

EndWhile 

MessageBox RE

复制代码

（7）读取txt文件一共多少行

本帖隐藏的内容

I=0

Plugin Text = File.ReadFileEx("路径\文件名.txt")

txtArray=Split(Text,"|")

While Len(txtArray(I))>=1

    I=I+1

EndWhile 

MessageBox i

复制代码

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

本帖隐藏的内容

// 欲写入的数据

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

// 写入第几行

jihang=4

Plugin Text = 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) & Chr(10)

    EndIf 

    i=i+1

    Goto z

Else 

    If i<=jihang

        MessageBox "少于"&jihang&"行"

        EndScript 

    EndIf 

EndIf 

// 删除旧文檔

Plugin File.DeleteFile("路径\文件名.txt")

// 储存新文檔

Plugin File.WriteFileEx("路径\文件名.txt", txt)

复制代码

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

本帖隐藏的内容

// 欲写入的数据

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

// 写入第几行

jihang=5

Plugin Text = File.ReadFileEx("路径\文件名.txt")

txtArray=Split(Text,"|")

txt=""

i=0

// 若旧文檔大于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 

Else 

    // 若旧文檔小于jihang行

    For UBound(txtArray)

        txt = txt & txtArray(i) & vbCrLf

        i=i+1

    EndFor 

    txt = txt & neirong & vbCrLf

EndIf 

// 删除旧文檔

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,"|")

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 

复制代码

（11）打开一个TXT文件

本帖隐藏的内容

RunApp "路径\文件名.txt"

复制代