按键精灵

读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文件

本帖隐藏的内容

1. 
   
2. set fso=CreateObject("Scripting.FileSystemObject")
   
3. const forwriting=2
   
4. const forreading=1
   
5. set myfile=fso.createtextfile("路径\文件名.txt")
   

复制代码

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

本帖隐藏的内容

1. 
   
2. Plugin IsFile = File.IsFileExit("路径\文件名.txt")
   
3. If IsFile = True
   
4.     MessageBox "找到"
   
5. Else 
   
6.     MessageBox "没找到"
   
7. EndIf 
   

复制代码

（3）删除一个TXT文件

本帖隐藏的内容

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

复制代码

（4）给TXT文件写入内容

本帖隐藏的内容

方法1

1. 
   
2. set fso=CreateObject("Scripting.FileSystemObject")
   
3. set myfile=fso.createtextfile("路径\文件名.txt")
   
4. myfile.writeline("内容")
   

复制代码

本帖隐藏的内容

方法2

1. 
   
2. Plugin File.WriteFileEx("路径\文件名.txt", "内容")
   

复制代码

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

本帖隐藏的内容

1. 
   
2. Plugin Text = File.ReadFileEx("路径\文件名.txt")
   
3. txtArray=Split(Text,"|")
   
4. // 显示第5行，就写 txtArray(4) 。 显示第6行。就写 txtArray(5)
   
5. MessageBox txtArray(0)
   

复制代码

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

本帖隐藏的内容

1. 
   
2. I=0
   
3. Plugin Text = File.ReadFileEx("路径\文件名.txt")
   
4. txtArray=Split(Text,"|")
   
5. While Len(txtArray(I))>=1
   
6.     RE=RE & txtArray(I)
   
7.     I=I+1
   
8. EndWhile 
   
9. MessageBox RE
   

复制代码

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

本帖隐藏的内容

1. 
   
2. I=0
   
3. Plugin Text = File.ReadFileEx("路径\文件名.txt")
   
4. txtArray=Split(Text,"|")
   
5. While Len(txtArray(I))>=1
   
6.     I=I+1
   
7. EndWhile 
   
8. MessageBox i
   

复制代码

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

本帖隐藏的内容

1. 
   
2. // 欲写入的数据
   
3. neirong="感谢您使用由《按键用户》制作的脚本"
   
4. // 写入第几行
   
5. jihang=4
   
6. Plugin Text = File.ReadFileEx("路径\文件名.txt")
   
7. txtArray=Split(Text,"|")
   
8. txt=""
   
9. i=0
   
10. Rem z
    
11. If Len(txtArray(i))>=1
    
12.     If i=jihang-1
    
13.         // 覆盖
    
14.         txt = txt & neirong & vbCrLf
    
15.     Else 
    
16.         txt = txt & txtArray(i) & Chr(10)
    
17.     EndIf 
    
18.     i=i+1
    
19.     Goto z
    
20. Else 
    
21.     If i<=jihang
    
22.         MessageBox "少于"&jihang&"行"
    
23.         EndScript 
    
24.     EndIf 
    
25. EndIf 
    
26. // 删除旧文檔
    
27. Plugin File.DeleteFile("路径\文件名.txt")
    
28. // 储存新文檔
    
29. Plugin File.WriteFileEx("路径\文件名.txt", txt)
    

复制代码

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

本帖隐藏的内容

1. 
   
2. // 欲写入的数据
   
3. neirong="感谢您使用此脚本"
   
4. // 写入第几行
   
5. jihang=5
   
6. Plugin Text = File.ReadFileEx("路径\文件名.txt")
   
7. txtArray=Split(Text,"|")
   
8. txt=""
   
9. i=0
   
10. // 若旧文檔大于jihang行
    
11. If UBound(txtArray)>=1
    
12.     For jihang-1
    
13.         txt = txt & txtArray(i) & Chr(10)
    
14.         i=i+1
    
15.     EndFor 
    
16.     txt = txt & neirong & vbCrLf
    
17.     For UBound(txtArray)-(jihang-1)
    
18.         txt = txt & txtArray(i) & Chr(10)
    
19.         i=i+1
    
20.     EndFor 
    
21. Else 
    
22.     // 若旧文檔小于jihang行
    
23.     For UBound(txtArray)
    
24.         txt = txt & txtArray(i) & vbCrLf
    
25.         i=i+1
    
26.     EndFor 
    
27.     txt = txt & neirong & vbCrLf
    
28. EndIf 
    
29. // 删除旧文檔
    
30. Plugin File.DeleteFile("路径\文件名.txt")
    
31. // 储存新文檔
    
32. Plugin File.WriteFileEx("路径\文件名.txt", txt)
    

复制代码

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

本帖隐藏的内容

1. 
   
2. UserVar t=2 读出txt第几行文本
   
3. UserVar i=5 从第几个字开始读取
   
4. UserVar O=8 结束读取到第几个字
   
5. Plugin Text = File.ReadFileEx("路径\文件名.txt")
   
6. txtArray=Split(Text,"|")
   
7. I=I-1
   
8. O=O-I:T=T-1
   
9. For O
   
10.     str=str & Mid(txtArray(t),1+i,1)
    
11.     i=i+1
    
12. EndWhile 
    
13. MessageBox str
    
14. EndScript 
    

复制代码

（11）打开一个TXT文件

本帖隐藏的内容

1. 
   
2. RunApp "路径\文件名.txt"
   

复制代