lmnd.net
当前位置:首页 >> 按键精灵读取txt文件 >>

按键精灵读取txt文件

//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)Text = Plugin.File.ReadFileEx("C:\Config.txt")Msgbox "向目标文件读出文本内容为:"& Textdim MyArrayMyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBoun...

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改 dim MyArray MyArray = Split(Text, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i))...

Text1 = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档1.txt")//文档位置你自己改 Text2 = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档2.txt") dim MyArray MyArray1 = Split(Text1, "|") MyArray2 = Split(Text2, "|")...

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。 代码: Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '...

fh = Lib.文件.读取指定行文本内容("C:\Users\Administrator\Desktop/565.txt",1)//这里是路径以及第几句 Dsmhisan = Split(fh, " ")//字符串进行分割 MessageBox "账号为:"&Dsmhisan(0)&"密码为:"&Dsmhisan(2)

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。 代码: Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '...

//读取指定文本 第一行的内容返回值 = Lib.文件.读取指定行文本内容("c:\计算.txt",1)//将内容设置到剪切板 可以直接ctrl+v粘贴使用Call Plugin.Sys.SetCLB(返回值)//下面这条代码可以将内容直接插入到另一个记事本 不过看你说的开启一个基本可...

代码如下 Text = Plugin.File.ReadFileEx("C:\Log.txt") Call Plugin.Sys.SetCLB(Text) 直接ctrl+v就可以粘贴记事本里面的内容了 全部内容

//假如D盘有文档(本文文档)内有123456----654321Text = Plugin.File.ReadFileEx("D:\文本文档.txt")MyArray = Split((Split(Text, "|")(0)), "----")MessageBox MyArray(0)MessageBox MyArray(1)

i = Form1.BrowseBox1.Path//原txt文件o = Form1.BrowseBox2.Path//要生成的txt文件Text = Plugin.File.ReadFileEx(i)Dim MyArrayMyArray = Split(Text, "|")i = 0For UBound(MyArray) MyArray(i)= left((Cstr(MyArray(i))),6)Call Plugin.File....

网站首页 | 网站地图
All rights reserved Powered by www.lmnd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com