当前位置： 首页 > web >正文

按键精灵

web 2025/7/4 21:27:44
读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文件
本帖隐藏的内容

  2. set fso=CreateObject("Scripting.FileSystemObject")
  3. const forwriting=2
  4. const forreading=1
  5. set myfile=fso.createtextfile("路径\文件名.txt")
复制代码
（2）判断一个文件是否存在
本帖隐藏的内容

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

（3）删除一个TXT文件
本帖隐藏的内容

  2. Plugin File.DeleteFile("路径\文件名.txt")
复制代码

（4）给TXT文件写入内容
本帖隐藏的内容
方法1

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


本帖隐藏的内容
方法2

  2. Plugin File.WriteFileEx("路径\文件名.txt", "内容")
复制代码

（5）读取TXT文件指定某一行内容
本帖隐藏的内容

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

（6）读取TXT文件全部内容
本帖隐藏的内容

  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文件一共多少行
本帖隐藏的内容

  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文件指定某一行内容
本帖隐藏的内容

  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文件的指定某一行
本帖隐藏的内容

  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文件指定某一行的第？到第？个字
本帖隐藏的内容

  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文件
本帖隐藏的内容

  2. RunApp "路径\文件名.txt"
复制代
http://www.xdnf.cn/news/11297.html

相关文章：

  • MSNLite v3.0正式版
  • 《Xenogears》(异度装甲）隐含的原型与密码
  • 最全性能测试 —— 性能测试概念、性能测试主流工具！，2024年最新IDEA太强悍了
  • 除了 P 站，程序员摸鱼还喜欢上哪些网站？
  • Jmeter 性能 —— 50TPS与秒杀达到多少人！_jmeter压测吞吐量最高50左右
  • 最新闲鱼小众蓝海虚拟资源，单号日入300＋，三天必起店，矩阵放大月入1-2W
  • Android手机SD卡分区
  • 事件对象以及常见属性
  • 制作一个简单HTML旅游网站（HTML+CSS+JS）无锡旅游网页设计与实现8个页面
  • XMLHttpRequest 异步方式和同步方式
  • 如何在默认打开方式中去掉已失效或者已删除的应用选项
  • C++实现11平台魔兽全图外挂
  • oracle exits 的用法,oracle中的exists和not exists和in用法详解
  • Windows Live Messenger (MSN) 9.0 错误代码 80040154 解决
  • linux源代码存放在哪个目录_Linux 各目录详细介绍
  • Android 设置边距总结
  • 使用c语言实现传输的流量控制
  • 大数的四则运算-（加法、减法、乘法、除法）
  • 高通 MSM 8916与MSM8926芯片的区别
  • 磁盘文件系统Fat、Fat32、NTFS、exFAT的优缺点
  • 【硬件设计】DC-DC之降压(BUCK)电路
  • HTML(Hyper Text Mark-up Language )即超文本标记语言
  • 药学【11】
  • ConnectionString 属性尚未初始化。问题的最直接解决方案!
  • to_char 详解
  • 利用aapt.exe查看apk的信息
  • 毕业答辩PPT制作和讲述要点（整理）
  • 什么是局域网（内网）？什么是广域网（外网）？
  • CSS网页制作布局实例教程
  • iheartradio android,最牛电台iHeartRadio