分享两个W版取文件名

police0909

自己找汇编代码，论坛一大堆。
在取包含后缀名的情况，速度一样、
反之，api会慢上很多。问题出现在  返回 (取字节集左边_汇编 (szPath, 取字节集长度_汇编 (szPath) － 取字节集长度_汇编 (文件_取扩展名W (szPath))))

  

子程序名	返回值类型	公开	备 注
文件_取文件名W_寻找	字节集		如：局_项数组:\123.exe 成功返回123
参数名	类 型	参考	可空	数组	备 注
路径文件名	字节集				文件完整地址
是否带后缀	逻辑型				默认为假，不带后缀；真为带后缀

变量名	类 型	静态	数组	备 注
局_文件名	字节集
位置	整数型
位置2	整数型
长度	整数型
位置3	双精度小数型
起始位置	整数型
取出数目	双精度小数型
a	整数型

判断 (文本_是否UTF8_汇编 (路径文件名))
局_文件名 ＝ Utf8TOUnicode_yc (路径文件名, )
a ＝ 1
局_文件名 ＝ 路径文件名

长度 ＝ 取字节集长度_汇编 (局_文件名)
局_文件名 ＝ 子字节集替换 (局_文件名, { 47, 0 }, { 92, 0 }, , )
位置 ＝ 倒找字节集_汇编 (局_文件名, { 92, 0 }, )  ' \
判断 (是否带后缀)
局_文件名 ＝ 取字节集右边_汇编 (局_文件名, 长度 － 位置 － 1)
位置2 ＝ 倒找字节集_汇编 (局_文件名, { 46, 0 }, )  ' .
起始位置 ＝ 位置 ＋ 取字节集长度_汇编 ({ 92, 0 })
判断 (位置2 ＝ -1)
取出数目 ＝ 长度 － 位置
取出数目 ＝ 长度 － 位置 ��� (长度 － 位置2 ＋ 取字节集长度_汇编 ({ 46, 0 }))
局_文件名 ＝ 取字节集中间 (局_文件名, 起始位置, 取出数目)
判断 (a ＝ 1)
返回 (UnicodeToUtf8_yc (局_文件名))
返回 (局_文件名)

子程序名	返回值类型	公开	备 注
文件_取文件名W	字节集		如：局_项数组:\123.exe 成功返回123
参数名	类 型	参考	可空	数组	备 注
完整路径	字节集
是否带后缀	逻辑型				默认为假，不带后缀；真为带后缀

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

szPath ＝ 完整路径
dwSize ＝ PathFindFileNameW (szPath)
如果真 (dwSize ＞ 0)
szPath ＝ 指针_到字节集W (dwSize)
判断 (szPath ＝ {  })
返回 (完整路径)
判断 (是否带后缀)
返回 (szPath)
返回 (取字节集左边_汇编 (szPath, 取字节集长度_汇编 (szPath) － 取字节集长度_汇编 (文件_取扩展名W (szPath))))

.版本 2<br /> <br /> .子程序 文件_取文件名W_寻找, 字节集, 公开, 如：局_项数组:\123.exe 成功返回123<br /> .参数 路径文件名, 字节集, , 文件完整地址<br /> .参数 是否带后缀, 逻辑型, 可空, 默认为假，不带后缀；真为带后缀<br /> .局部变量 局_文件名, 字节集<br /> .局部变量 位置, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 位置3, 双精度小数型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 取出数目, 双精度小数型<br /> .局部变量 a, 整数型<br /> <br /> .判断开始 (文本_是否UTF8_汇编 (路径文件名))<br />     局_文件名 ＝ Utf8TOUnicode_yc (路径文件名, )<br />     a ＝ 1<br /> .默认<br />     局_文件名 ＝ 路径文件名<br /> .判断结束<br /> <br /> 长度 ＝ 取字节集长度_汇编 (局_文件名)<br /> 局_文件名 ＝ 子字节集替换 (局_文件名, { 47, 0 }, { 92, 0 }, , )<br /> 位置 ＝ 倒找字节集_汇编 (局_文件名, { 92, 0 }, )  ' \<br /> .判断开始 (是否带后缀)<br />     局_文件名 ＝ 取字节集右边_汇编 (局_文件名, 长度 － 位置 － 1)<br /> .默认<br />     位置2 ＝ 倒找字节集_汇编 (局_文件名, { 46, 0 }, )  ' .<br />     起始位置 ＝ 位置 ＋ 取字节集长度_汇编 ({ 92, 0 })<br />     .判断开始 (位置2 ＝ -1)<br />         取出数目 ＝ 长度 － 位置<br />     .默认<br />         取出数目 ＝ 长度 － 位置 － (长度 － 位置2 ＋ 取字节集长度_汇编 ({ 46, 0 }))<br /> <br />     .判断结束<br />     局_文件名 ＝ 取字节集中间 (局_文件名, 起始位置, 取出数目)<br /> .判断结束<br /> .判断开始 (a ＝ 1)<br />     返回 (UnicodeToUtf8_yc (局_文件名))<br /> .默认<br />     返回 (局_文件名)<br /> .判断结束<br /> <br /> <br /> .子程序 文件_取文件名W, 字节集, 公开, 如：局_项数组:\123.exe 成功返回123<br /> .参数 完整路径, 字节集<br /> .参数 是否带后缀, 逻辑型, 可空, 默认为假，不带后缀；真为带后缀<br /> .局部变量 dwSize, 整数型<br /> .局部变量 szPath, 字节集<br /> .局部变量 局_文件名, 字节集<br /> <br /> szPath ＝ 完整路径<br /> dwSize ＝ PathFindFileNameW (szPath)<br /> .如果真 (dwSize ＞ 0)<br />     szPath ＝ 指针_到字节集W (dwSize)<br /> .如果真结束<br /> .判断开始 (szPath ＝ {  })<br />     返回 (完整路径)<br /> .判断 (是否带后缀)<br />     返回 (szPath)<br /> .默认<br />     返回 (取字节集左边_汇编 (szPath, 取字节集长度_汇编 (szPath) － 取字节集长度_汇编 (文件_取扩展名W (szPath))))<br /> .判断结束

pzypdl

汇编命令和Utf8TOUnicode_yc ,各种代码不全

孤胆飞鹰

用的什么模块 Utf8TOUnicode_yc  取字节集长度_汇编 取字节集右边_汇编 等这些命令精益模块都没有 取出数目 ＝ 长度 － 位置 ��� (长度 － 位置2 ＋ 取字节集长度_汇编 ({ 46, 0 })) 这句??是什么意思

tst80tst

这个有用，原来一直用的取文本右边，很繁琐

光影魔术

感谢分享源码

qq977352880

收藏了，以后肯定用得到。

pq9999

#在这里 感谢分享，很给力！

bianyuan456

已经顶贴，感谢您对论坛的支持！

jtucar

感谢分享，很给力！~

kyo9766

很好用，感谢分享