首页 > 技术文章 > TXT文件用法大全【荐】--------按键精灵

firecode 2014-12-21 20:28 原文

来源:全文链接

(3)读取TXT文件指定某一行的第?到第?个字

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


(4)新建一个TXT文件

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


(5)判断一个文件是否存在

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


(6)给TXT文件写入内容

  1. set fso=CreateObject("Scripting.FileSystemObject")
  2. set myfile=fso.createtextfile("路径\文件名.txt")
  3. myfile.writeline("内容")
  4. Call Plugin.File.WriteFileEx("路径\文件名.txt", "内容")
复制代码


(7)读取TXT文件指定某一行内容

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


8)读取TXT文件全部内容

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


(9)读取txt文件一共多少行

  1. I=0
  2. Text = Plugin.File.ReadFileEx("路径\文件名.txt")
  3. txtArray=Split(Text,"|")
  4. While Len(txtArray(I))>=1
  5.     I=I+1
  6. EndWhile 
  7. MessageBox i
复制代码TXT文件用法大全【荐】

推荐阅读