文件_取目录 改进返回错误地址问题

jr21066

文件路径如果为目录时,会返回错误地址 比如 r:\temp

  

子程序名	返回值类型	公开	备 注
文件_是否为目录	逻辑型		判断文件是否为目录
参数名	类 型	参考	可空	数组	备 注
参_文件名	文本型

如果 (位与 (取文件属性 (参_文件名), #子目录 ) ＝ #子目录 )
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
文件_取目录	文本型		取得文件所在目录的路径,如：局_项数组:\012\3600.exe 成功将返回 局_项数组:\012\
参数名	类 型	参考	可空	数组	备 注
路径文件名	文本型				文件的完整地址

如果 (文件_是否为目录 (路径文件名))
返回 (路径文件名)
返回 (取文本左边 (路径文件名, 倒找文本 (路径文件名, “\”, , 假)))

.版本 2<br /> <br /> .子程序 文件_是否为目录, 逻辑型, 公开, 判断文件是否为目录<br /> .参数 参_文件名, 文本型<br /> <br /> .如果 (位与 (取文件属性 (参_文件名), #子目录) ＝ #子目录)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 文件_取目录, 文本型, 公开, 取得文件所在目录的路径,如：局_项数组:\012\3600.exe 成功将返回 局_项数组:\012\<br /> .参数 路径文件名, 文本型, , 文件的完整地址<br /> <br /> .如果 (文件_是否为目录 (路径文件名))<br />     返回 (路径文件名)<br /> .否则<br />     返回 (取文本左边 (路径文件名, 倒找文本 (路径文件名, “\”, , 假)))<br /> .如果结束

项目部004

有时间会测试下代码，纯机器码的就不要了，感谢对模块的支持！

jr21066

对命令 文本_取中间_批量  进行精简并使用字节集搜索

  

子程序名	返回值类型	公开	备 注
文本_取中间_批量_精简	整数型		批量取出前标识与后标识之间文本保存到数组参数中
参数名	类 型	参考	可空	数组	备 注
源文本	文本型				源文本内容
前面标识文本	文本型				欲取出来文本内容前的特征文本
后面标识文本	文本型				欲取出来文本内容后的特征文本
存放取出文本的数组	文本型				保存取出的文本数组
起始位置	整数型

变量名	类 型	静态	数组	备 注
局_偏移1	整数型
局_偏移2	整数型
局_标识长度	整数型
局_内容	字节集
局_前标识	字节集
局_后标识	字节集

重定义数组 (存放取出文本的数组, 假, 0)
局_偏移1 ＝ 起始位置
局_标识长度 ＝ 取文本长度 (前面标识文本)
局_内容 ＝ 到字节集 (源文本)
局_前标识 ＝ 到字节集 (前面标识文本)
局_后标识 ＝ 到字节集 (后面标识文本)
局_偏移1 ＝ 寻找字节集_SSE_汇编 (局_内容, 局_前标识, 局_偏移1)
判断循环首 (局_偏移1 ≠ -1)
局_偏移1 ＝ 局_偏移1 ＋ 局_标识长度
局_偏移2 ＝ 寻找字节集_SSE_汇编 (局_内容, 局_后标识, 局_偏移1)
如果真 (局_偏移2 ＝ -1)
跳出循环 ()
加入成员 (存放取出文本的数组, 取文本中间 (源文本, 局_偏移1, 局_偏移2 － 局_偏移1))
局_偏移1 ＝ 寻找字节集_SSE_汇编 (局_内容, 局_前标识, 局_偏移1)
判断循环尾 ()
返回 (取数组成员数 (存放取出文本的数组))

子程序名	返回值类型	公开	备 注
寻找字节集_SSE_汇编	整数型		速度快,多线程可用
参数名	类 型	参考	可空	数组	备 注
被搜寻的字节集	字节集
欲寻找的字节集	字节集
起始搜寻位置	整数型

如果真 (被搜寻的字节集 ＝ {  } 或 欲寻找的字节集 ＝ {  })
返回 (0)

置入代码 ({ 131, 228, 248, 131, 236, 48, 139, 69, 8, 86, 87, 139, 8, 139, 69, 12, 139, 81, 4, 141, 113, 8, 139, 0, 51, 201, 137, 116, 36, 44, 137, 84, 36, 28, 141, 120, 8, 139, 64, 4, 137, 68, 36, 48, 15, 190, 7, 137, 124, 36, 40, 102, 15, 110, 192, 139, 69, 16, 72, 102, 15, 96, 192, 131, 248, 1, 102, 15, 97, 192, 102, 15, 112, 200, 0, 15, 156, 193, 73, 35, 200, 137, 76, 36, 16, 59, 202, 15, 131, 236, 0, 0, 0, 139, 194, 15, 16, 4, 49, 51, 210, 137, 84, 36, 20, 102, 15, 116, 193, 137, 84, 36, 24, 102, 15, 215, 240, 137, 116, 36, 32, 15, 188, 246, 137, 116, 36, 36, 15, 132, 160, 0, 0, 0, 138, 7, 139, 124, 36, 16, 136, 68, 36, 15, 141, 4, 50, 51, 201, 138, 84, 36, 15, 3, 199, 3, 68, 36, 44, 137, 68, 36, 52, 56, 16, 139, 84, 36, 20, 117, 70, 139, 255, 65, 59, 76, 36, 48, 15, 132, 130, 0, 0, 0, 3, 254, 139, 193, 51, 246, 153, 3, 248, 19, 242, 139, 84, 36, 20, 3, 250, 19, 116, 36, 24, 133, 246, 119, 120, 114, 6, 59, 124, 36, 28, 115, 112, 139, 68, 36, 52, 139, 116, 36, 40, 139, 124, 36, 16, 138, 4, 8, 58, 4, 49, 139, 116, 36, 36, 116, 188, 139, 68, 36, 32, 141, 78, 1, 211, 232, 3, 209, 137, 76, 36, 52, 131, 84, 36, 24, 0, 15, 188, 240, 137, 68, 36, 32, 137, 84, 36, 20, 137, 116, 36, 36, 15, 133, 118, 255, 255, 255, 139, 76, 36, 16, 139, 124, 36, 40, 139, 68, 36, 28, 131, 193, 16, 137, 76, 36, 16, 59, 200, 115, 24, 139, 116, 36, 44, 233, 37, 255, 255, 255, 141, 70, 1, 3, 194, 3, 199, 95, 94, 139, 229, 93, 194, 16, 0, 95, 131, 200, 255, 94, 139, 229, 93, 194, 16, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 文本_取中间_批量_精简, 整数型, 公开, 批量取出前标识与后标识之间文本保存到数组参数中<br /> .参数 源文本, 文本型, , 源文本内容<br /> .参数 前面标识文本, 文本型, , 欲取出来文本内容前的特征文本<br /> .参数 后面标识文本, 文本型, , 欲取出来文本内容后的特征文本<br /> .参数 存放取出文本的数组, 文本型, 可空 数组, 保存取出的文本数组<br /> .参数 起始位置, 整数型, 可空<br /> .局部变量 局_偏移1, 整数型<br /> .局部变量 局_偏移2, 整数型<br /> .局部变量 局_标识长度, 整数型<br /> .局部变量 局_内容, 字节集<br /> .局部变量 局_前标识, 字节集<br /> .局部变量 局_后标识, 字节集<br /> <br /> 重定义数组 (存放取出文本的数组, 假, 0)<br /> 局_偏移1 ＝ 起始位置<br /> 局_标识长度 ＝ 取文本长度 (前面标识文本)<br /> 局_内容 ＝ 到字节集 (源文本)<br /> 局_前标识 ＝ 到字节集 (前面标识文本)<br /> 局_后标识 ＝ 到字节集 (后面标识文本)<br /> <br /> 局_偏移1 ＝ 寻找字节集_SSE_汇编 (局_内容, 局_前标识, 局_偏移1)<br /> .判断循环首 (局_偏移1 ≠ -1)<br />     局_偏移1 ＝ 局_偏移1 ＋ 局_标识长度<br />     局_偏移2 ＝ 寻找字节集_SSE_汇编 (局_内容, 局_后标识, 局_偏移1)<br />     .如果真 (局_偏移2 ＝ -1)<br />         跳出循环 ()<br />     .如果真结束<br />     加入成员 (存放取出文本的数组, 取文本中间 (源文本, 局_偏移1, 局_偏移2 － 局_偏移1))<br />     局_偏移1 ＝ 寻找字节集_SSE_汇编 (局_内容, 局_前标识, 局_偏移1)<br /> .判断循环尾 ()<br /> <br /> 返回 (取数组成员数 (存放取出文本的数组))<br /> <br /> .子程序 寻找字节集_SSE_汇编, 整数型, 公开, 速度快,多线程可用<br /> .参数 被搜寻的字节集, 字节集<br /> .参数 欲寻找的字节集, 字节集<br /> .参数 起始搜寻位置, 整数型, 可空<br /> <br /> .如果真 (被搜寻的字节集 ＝ {  } 或 欲寻找的字节集 ＝ {  })<br />     返回 (0)<br /> .如果真结束<br /> <br /> 置入代码 ({ 131, 228, 248, 131, 236, 48, 139, 69, 8, 86, 87, 139, 8, 139, 69, 12, 139, 81, 4, 141, 113, 8, 139, 0, 51, 201, 137, 116, 36, 44, 137, 84, 36, 28, 141, 120, 8, 139, 64, 4, 137, 68, 36, 48, 15, 190, 7, 137, 124, 36, 40, 102, 15, 110, 192, 139, 69, 16, 72, 102, 15, 96, 192, 131, 248, 1, 102, 15, 97, 192, 102, 15, 112, 200, 0, 15, 156, 193, 73, 35, 200, 137, 76, 36, 16, 59, 202, 15, 131, 236, 0, 0, 0, 139, 194, 15, 16, 4, 49, 51, 210, 137, 84, 36, 20, 102, 15, 116, 193, 137, 84, 36, 24, 102, 15, 215, 240, 137, 116, 36, 32, 15, 188, 246, 137, 116, 36, 36, 15, 132, 160, 0, 0, 0, 138, 7, 139, 124, 36, 16, 136, 68, 36, 15, 141, 4, 50, 51, 201, 138, 84, 36, 15, 3, 199, 3, 68, 36, 44, 137, 68, 36, 52, 56, 16, 139, 84, 36, 20, 117, 70, 139, 255, 65, 59, 76, 36, 48, 15, 132, 130, 0, 0, 0, 3, 254, 139, 193, 51, 246, 153, 3, 248, 19, 242, 139, 84, 36, 20, 3, 250, 19, 116, 36, 24, 133, 246, 119, 120, 114, 6, 59, 124, 36, 28, 115, 112, 139, 68, 36, 52, 139, 116, 36, 40, 139, 124, 36, 16, 138, 4, 8, 58, 4, 49, 139, 116, 36, 36, 116, 188, 139, 68, 36, 32, 141, 78, 1, 211, 232, 3, 209, 137, 76, 36, 52, 131, 84, 36, 24, 0, 15, 188, 240, 137, 68, 36, 32, 137, 84, 36, 20, 137, 116, 36, 36, 15, 133, 118, 255, 255, 255, 139, 76, 36, 16, 139, 124, 36, 40, 139, 68, 36, 28, 131, 193, 16, 137, 76, 36, 16, 59, 200, 115, 24, 139, 116, 36, 44, 233, 37, 255, 255, 255, 141, 70, 1, 3, 194, 3, 199, 95, 94, 139, 229, 93, 194, 16, 0, 95, 131, 200, 255, 94, 139, 229, 93, 194, 16, 0 })<br /> 返回 (0)

jr21066

文件_相差数
这个命令不规范.也不实用.可以考虑删除的.

另外建议给所有剪辑板操作命令全部加上 程序_延时(1)
兼容性会好很多.

jr21066

文件_文件名是否可用  如果文件已经存在时也返回假

  

子程序名	返回值类型	公开	备 注
文件_文件名是否可用	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_文件名	文本型

变量名	类 型	静态	数组	备 注
局_数组	文本型		0
i	整数型

如果真 (取文本长度 (参_文件名) ＝ 255)
返回 (假)
局_数组 ＝ 分割文本 ( #常量_过滤字符, “ ”, )
计次循环首 (取数组成员数 (局_数组), i)
如果真 (寻找文本 (参_文件名, 局_数组 [i], , 假) ≠ -1)
返回 (假)

计次循环尾 ()
如果真 (文件_是否存在 (参_文件名))
返回 (假)
返回 (真)

.版本 2<br /> <br /> .子程序 文件_文件名是否可用, 逻辑型, 公开<br /> .参数 参_文件名, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取文本长度 (参_文件名) ＝ 255)<br />     返回 (假)<br /> .如果真结束<br /> 局_数组 ＝ 分割文本 (#常量_过滤字符, “ ”, )<br /> .计次循环首 (取数组成员数 (局_数组), i)<br />     .如果真 (寻找文本 (参_文件名, 局_数组 <i>, , 假) ≠ -1)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (文件_是否存在 (参_文件名))<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)

jr21066

晕.居然发现一个极度危险的命令.旧"文件_去扩展名"运行第二次会删除文件,而且改个名不用重写文件吧.

  

子程序名	返回值类型	公开	备 注
文件_去扩展名	逻辑型		去除文件的文件名后缀部分
参数名	类 型	参考	可空	数组	备 注
原始文件名	文本型				需要处理的原始文件名

变量名	类 型	静态	数组	备 注
局_后缀	文本型
是否成功	逻辑型

局_后缀 ＝ 文件_取扩展名 (原始文件名)
如果真 (局_后缀 ＝ “”)
返回 (假)
返回 (文件更名 (原始文件名, 取文本左边 (原始文件名, 取文本长度 (原始文件名) － 取文本长度 (局_后缀))))

.版本 2<br /> <br /> .子程序 文件_去扩展名, 逻辑型, 公开, 去除文件的文件名后缀部分<br /> .参数 原始文件名, 文本型, , 需要处理的原始文件名<br /> .局部变量 局_后缀, 文本型<br /> .局部变量 是否成功, 逻辑型<br /> <br /> 局_后缀 ＝ 文件_取扩展名 (原始文件名)<br /> .如果真 (局_后缀 ＝ “”)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (文件更名 (原始文件名, 取文本左边 (原始文件名, 取文本长度 (原始文件名) － 取文本长度 (局_后缀))))

第二种

  

子程序名	返回值类型	公开	备 注
文件_去扩展名_	逻辑型		去除文件的文件名后缀部分
参数名	类 型	参考	可空	数组	备 注
原始文件名	文本型				需要处理的原始文件名

变量名	类 型	静态	数组	备 注
偏移	整数型

偏移 ＝ 倒找文本 (原始文件名, “.”, , 假)
如果真 (偏移 ＝ -1)
返回 (假)
返回 (文件更名 (原始文件名, 取文本左边 (原始文件名, 偏移 － 1)))

.版本 2<br /> <br /> .子程序 文件_去扩展名_, 逻辑型, 公开, 去除文件的文件名后缀部分<br /> .参数 原始文件名, 文本型, , 需要处理的原始文件名<br /> .局部变量 偏移, 整数型<br /> <br /> 偏移 ＝ 倒找文本 (原始文件名, “.”, , 假)<br /> .如果真 (偏移 ＝ -1)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (文件更名 (原始文件名, 取文本左边 (原始文件名, 偏移 － 1)))

jr21066

文件_取格式也有点问题

  

子程序名	返回值类型	公开	备 注
文件_取格式	整数型		0=exe/dll；1=e/e局_项数组；3=rar；4=zip；5=7z；6=jpg；7=gif；8=swf；失败返回-1
参数名	类 型	参考	可空	数组	备 注
参_文件名	文本型				可以用读入文件获取文件字节集
返回文本格式	文本型				可留空；装载文本格式的变量；如是exe格式的直接返回exe,失败返回空文本

变量名	类 型	静态	数组	备 注
局_文件字节集	字节集
文件句柄	整数型

文件句柄 ＝ 打开文件 (参_文件名, #读入, )
局_文件字节集 ＝ 读入字节集 (文件句柄, 30)
关闭文件 (文件句柄)
判断 (取字节集左边 (局_文件字节集, 2) ＝ 到字节集 (“MZ”))
返回文本格式 ＝ “exe/dll”
返回 (0)
判断 (取字节集左边 (局_文件字节集, 8) ＝ 到字节集 (“CNWTEPRG”))
返回文本格式 ＝ “e/ec”
返回 (1)
判断 (取字节集左边 (局_文件字节集, 3) ＝ 到字节集 (“Rar”))
返回文本格式 ＝ “rar”
返回 (3)
判断 (取字节集左边 (局_文件字节集, 2) ＝ 到字节集 (“PK”))
返回文本格式 ＝ “zip”
返回 (4)
判断 (取字节集左边 (局_文件字节集, 2) ＝ 到字节集 (“7z”))
返回文本格式 ＝ “7z”
返回 (5)
判断 (取字节集左边 (局_文件字节集, 3) ＝ { 255, 216, 255 })
返回文本格式 ＝ “jpg”
返回 (6)
判断 (取字节集左边 (局_文件字节集, 6) ＝ 到字节集 (“GIF89a”))
返回文本格式 ＝ “gif”
返回 (7)
判断 (取字节集左边 (局_文件字节集, 3) ＝ 到字节集 (“FWS”))
返回文本格式 ＝ “swf”
返回 (8)


返回 (-1)

.版本 2<br /> <br /> .子程序 文件_取格式, 整数型, 公开, 0=exe/dll；1=e/e局_项数组；3=rar；4=zip；5=7z；6=jpg；7=gif；8=swf；失败返回-1<br /> .参数 参_文件名, 文本型, , 可以用读入文件获取文件字节集<br /> .参数 返回文本格式, 文本型, 参考 可空, 可留空；装载文本格式的变量；如是exe格式的直接返回exe,失败返回空文本<br /> .局部变量 局_文件字节集, 字节集<br /> .局部变量 文件句柄, 整数型<br /> <br /> 文件句柄 ＝ 打开文件 (参_文件名, #读入, )<br /> 局_文件字节集 ＝ 读入字节集 (文件句柄, 30)<br /> 关闭文件 (文件句柄)<br /> <br /> .判断开始 (取字节集左边 (局_文件字节集, 2) ＝ 到字节集 (“MZ”))<br />     返回文本格式 ＝ “exe/dll”<br />     返回 (0)<br /> .判断 (取字节集左边 (局_文件字节集, 8) ＝ 到字节集 (“CNWTEPRG”))<br />     返回文本格式 ＝ “e/ec”<br />     返回 (1)<br /> .判断 (取字节集左边 (局_文件字节集, 3) ＝ 到字节集 (“Rar”))<br />     返回文本格式 ＝ “rar”<br />     返回 (3)<br /> .判断 (取字节集左边 (局_文件字节集, 2) ＝ 到字节集 (“PK”))<br />     返回文本格式 ＝ “zip”<br />     返回 (4)<br /> .判断 (取字节集左边 (局_文件字节集, 2) ＝ 到字节集 (“7z”))<br />     返回文本格式 ＝ “7z”<br />     返回 (5)<br /> .判断 (取字节集左边 (局_文件字节集, 3) ＝ { 255, 216, 255 })<br />     返回文本格式 ＝ “jpg”<br />     返回 (6)<br /> .判断 (取字节集左边 (局_文件字节集, 6) ＝ 到字节集 (“GIF89a”))<br />     返回文本格式 ＝ “gif”<br />     返回 (7)<br /> .判断 (取字节集左边 (局_文件字节集, 3) ＝ 到字节集 (“FWS”))<br />     返回文本格式 ＝ “swf”<br />     返回 (8)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (-1)

jr21066

合并文件的改进,大文件的话,可以少写第一个文件.

  

子程序名	返回值类型	公开	备 注
文件_合并文件	逻辑型		将两个文件进行合并,生成一个新的文件
参数名	类 型	参考	可空	数组	备 注
合并文件名	文本型				前一个文件名,最后生成的文件名也是它.
被合并文件名	文本型				要追加的文件名.
生成文件名	文本型				如果空,以第一个文件名为准

变量名	类 型	静态	数组	备 注
局_文件句柄	整数型
局_标志	逻辑型

如果 (是否为空 (生成文件名))
局_文件句柄 ＝ 打开文件 (合并文件名, #读写, )
如果真 (局_文件句柄 ＝ 0)
返回 (假)
移到文件尾 (局_文件句柄)
写出字节集 (局_文件句柄, 读入文件 (被合并文件名))
局_文件句柄 ＝ 打开文件 (生成文件名, #改写, )
如果真 (局_文件句柄 ＝ 0)
返回 (假)
移到文件尾 (局_文件句柄)
写出字节集 (局_文件句柄, 读入文件 (合并文件名))
写出字节集 (局_文件句柄, 读入文件 (被合并文件名))

关闭文件 (局_文件句柄)
返回 (真)

.版本 2<br /> <br /> .子程序 文件_合并文件, 逻辑型, 公开, 将两个文件进行合并,生成一个新的文件<br /> .参数 合并文件名, 文本型, , 前一个文件名,最后生成的文件名也是它.<br /> .参数 被合并文件名, 文本型, , 要追加的文件名.<br /> .参数 生成文件名, 文本型, 可空, 如果空,以第一个文件名为准<br /> .局部变量 局_文件句柄, 整数型<br /> .局部变量 局_标志, 逻辑型<br /> <br /> .如果 (是否为空 (生成文件名))<br />     局_文件句柄 ＝ 打开文件 (合并文件名, #读写, )<br />     .如果真 (局_文件句柄 ＝ 0)<br />         返回 (假)<br />     .如果真结束<br />     移到文件尾 (局_文件句柄)<br />     写出字节集 (局_文件句柄, 读入文件 (被合并文件名))<br /> .否则<br />     局_文件句柄 ＝ 打开文件 (生成文件名, #改写, )<br />     .如果真 (局_文件句柄 ＝ 0)<br />         返回 (假)<br />     .如果真结束<br />     移到文件尾 (局_文件句柄)<br />     写出字节集 (局_文件句柄, 读入文件 (合并文件名))<br />     写出字节集 (局_文件句柄, 读入文件 (被合并文件名))<br /> .如果结束<br /> <br /> 关闭文件 (局_文件句柄)<br /> 返回 (真)