mwbr.net
当前位置:首页 >> 按键精灵 文档 >>

按键精灵 文档

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

你的问题非常模糊 下面提供一些例子代码你自己研究看看 Text = Plugin.File.ReadFileEx("C:\Log.txt") //获取C:\Log.TXT里面的所有内容,返回给text MessageBox text Text = Lib.文件.读取指定行文本内容("C:\Log.txt", 1) //获取C:\Log.TXT里...

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))...

A1=5+5 Call Plugin.File.WriteFileEx("C:\Log.txt", a1) Delay 1000 RunApp "C:\Log.txt"//打开TXT看看

你的需求基本是自动喊话的雏形,逐行读取c:\1.txt文件,逐行黏贴出来,脚本见截图:

OpenFile 打开文件 该命令会在后台打开一个文件,文件后缀决定了打开的文件类型,路径需要全路径。如果该文件不存在,该命令会自动在该路径下新建一个该名字的文件并打开。 可以设定返回变量,如返回值为-1表示打开文件失败,否则返回文件的句柄...

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

Text = Plugin.File.ReadFileEx("E:\网游\梦幻\聊天记录.txt")TracePrint "向目标文件读出文本内容为:"& TextDim MyArrayMyArray = Split(Text, "碑石")If UBound(MyArray)>=0 Then text1 = Cstr(MyArray(1)) TracePrint text1 Dim MyArray1 My...

Text1 = Plugin.File.ReadFileEx("d:\素材1.txt") Text2= Plugin.File.ReadFileEx("d:\素材2.txt") Text3= Plugin.File.ReadFileEx("d:\素材3.txt") Text4 = Plugin.File.ReadFileEx("d:\素材4.txt") MyArray1 = Split(Text1, "|") MyArray2= Sp...

帮你写好啦,直接copy上去运行即可,表太谢我~ ======================================= //读取txt word = Plugin.File.ReadFileEx("C:\1.txt") //分割为行 Dim hang hang = split(hang, "|") //循环打出每一行 For i = 0 To UBound(hang) SayS...

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