大佬们帮优化一下代码

伊银

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
文件名	字节集

文件名 ＝ 文件_取文件名W (编码_Ansi到Unicode (“C:\Users\Administrator\Desktop\小刀.txt”))
调试输出 (编码_Unicode到Ansi (文件名))

子程序名	返回值类型	公开	备 注
文件_取文件名W	字节集
参数名	类 型	参考	可空	数组	备 注
文件名	字节集
是否包含扩展名	逻辑型

变量名	类 型	静态	数组	备 注
File	字节集

File ＝ 删除Unicode结尾空白字节 (文件名)
如果真 (寻找字节集 (File, { 92, 0 }, ) ≠ -1)  ' 如果带路径的解决方案
File ＝ 取字节集右边 (File, 取字节集长度 (File) － 倒找字节集 (File, { 92, 0 }, ) － 1)
如果真 (取反 (是否包含扩展名))
如果真 (寻找字节集 (File, { 46, 0 }, ) ≠ -1)
File ＝ 取字节集左边 (File, 倒找字节集 (File, { 46, 0 }, ) － 1)

返回 (File ＋ { 0, 0 })

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 文件名, 字节集<br /> <br /> <br /> 文件名 ＝ 文件_取文件名W (编码_Ansi到Unicode (“C:\Users\Administrator\Desktop\小刀.txt”))<br /> <br /> 调试输出 (编码_Unicode到Ansi (文件名))<br /> <br /> <br /> .子程序 文件_取文件名W, 字节集, 公开<br /> .参数 文件名, 字节集<br /> .参数 是否包含扩展名, 逻辑型, 可空<br /> .局部变量 File, 字节集<br /> <br /> File ＝ 删除Unicode结尾空白字节 (文件名)<br /> .如果真 (寻找字节集 (File, { 92, 0 }, ) ≠ -1)  ' 如果带路径的解决方案<br />     File ＝ 取字节集右边 (File, 取字节集长度 (File) － 倒找字节集 (File, { 92, 0 }, ) － 1)<br /> .如果真结束<br /> .如果真 (取反 (是否包含扩展名))<br />     .如果真 (寻找字节集 (File, { 46, 0 }, ) ≠ -1)<br />         File ＝ 取字节集左边 (File, 倒找字节集 (File, { 46, 0 }, ) － 1)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (File ＋ { 0, 0 })

命令调用了精易模块

问题描述：
{92,0,15,92,0,82,0,0}  为  “\小刀”的Unicode字节集
代码里  寻找 \ 号的Unicode {92,0} 导致位置停留在非 \ 号的位置

真冬

  

子程序名	返回值类型	公开	备 注
文件_取文件名W改	字节集
参数名	类 型	参考	可空	数组	备 注
文件名	字节集
是否包含扩展名	逻辑型

变量名	类 型	静态	数组	备 注
橘卜_骑士为止	整数型
橘卜_借书为止	整数型
橘卜_爱一	整数型
橘卜_爱二	整数型

计次循环首 (到整数 (是否包含扩展名) ＋ 1, 橘卜_爱一)
变量循环首 (取字节集长度 (文件名) － 1, 1, -2, 橘卜_爱二)
如果真 (文件名 [橘卜_爱二] ＝ 92 且 橘卜_爱一 ＝ 1)
橘卜_骑士为止 ＝ 橘卜_爱二 ＋ 2
跳出循环 ()
如果真 (文件名 [橘卜_爱二] ＝ 46 且 橘卜_爱一 ＝ 2 且 是否包含扩展名)
橘卜_借书为止 ＝ 橘卜_爱二
跳出循环 ()

变量循环尾 ()
计次循环尾 ()
返回 (取字节集中间 (文件名, 橘卜_骑士为止, 取绝对值 (橘卜_借书为止 － 橘卜_骑士为止)))

.版本 2<br /> <br /> .子程序 文件_取文件名W改, 字节集<br /> .参数 文件名, 字节集<br /> .参数 是否包含扩展名, 逻辑型, 可空<br /> .局部变量 橘卜_骑士为止, 整数型<br /> .局部变量 橘卜_借书为止, 整数型<br /> .局部变量 橘卜_爱一, 整数型<br /> .局部变量 橘卜_爱二, 整数型<br /> <br /> .计次循环首 (到整数 (是否包含扩展名) ＋ 1, 橘卜_爱一)<br />     .变量循环首 (取字节集长度 (文件名) － 1, 1, -2, 橘卜_爱二)<br />         .如果真 (文件名 [橘卜_爱二] ＝ 92 且 橘卜_爱一 ＝ 1)<br />             橘卜_骑士为止 ＝ 橘卜_爱二 ＋ 2<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (文件名 [橘卜_爱二] ＝ 46 且 橘卜_爱一 ＝ 2 且 是否包含扩展名)<br />             橘卜_借书为止 ＝ 橘卜_爱二<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (取字节集中间 (文件名, 橘卜_骑士为止, 取绝对值 (橘卜_借书为止 － 橘卜_骑士为止)))

信易达

精易模块 文件_取文件名() 就好了

伊银

信易达 发表于 2020-12-14 11:35
精易模块 文件_取文件名() 就好了

文件名包含特殊符号  只能用Unicode来处理