文本_文本比较W

大司命 · 发表于 2021-4-16 16:30:34

.版本 2
.子程序文本_文本比较W, 整数型, 公开, 如果返回值小于0，表示文本一小于文本二；如果等于0，表示文本一等于文本二；如果大于0，表示文本一大于文本二。
.参数待比较文本一, 整数型
.参数待比较文本二, 整数型
.参数是否区分大小写, 逻辑型, 可空, 为真区分大小写，为假不区分。
.局部变量 sByte1, 短整数型
.局部变量 sByte2, 短整数型
.局部变量 iRet, 整数型
.局部变量 bRet, 逻辑型
.循环判断首 ()
' 传入指针无效按相减结果判断
.如果真 (指针_是否有效 (待比较文本一) ＝假或指针_是否有效 (待比较文本二) ＝假)
iRet ＝待比较文本一－待比较文本二
跳出循环 ()
.如果真结束
sByte1 ＝指针_到短整数型_汇编 (待比较文本一)
sByte2 ＝指针_到短整数型_汇编 (待比较文本二)
iRet ＝ sByte1 － sByte2
.判断开始 (iRet ＝ 0)
bRet ＝真
.判断 (是否区分大小写＝假且 (sByte1 ≥ 65 且 sByte1 ≤ 90 或 sByte1 ≥ 97 且 sByte1 ≤ 122)) ' a-z A-Z
bRet ＝ iRet ＝ 32 或 iRet ＝ -32
.默认
bRet ＝假
.判断结束
待比较文本一＝待比较文本一＋ 2
待比较文本二＝待比较文本二＋ 2
.循环判断尾 (bRet 且 sByte1 ≠ 0)
.判断开始 (iRet ＜ 0)
返回 (-1)
.判断 (iRet ＞ 0)
返回 (1)
.默认
返回 (0)
.判断结束

复制代码

宽字符比较！平常写W版的api最麻烦的就是宽字符的判断了，造个轮子，看看有没有bug~

xiaogege1028 · 发表于 2021-6-18 14:53:07

1111111111111111

落寞23333 · 发表于 2021-4-19 07:42:55

支持支持

sampo · 发表于 2021-4-18 20:51:14

支持开源~！感谢分享

cc66029 · 发表于 2021-4-17 22:19:32

下载学习，支持开源！！

外星星人 · 发表于 2021-4-17 13:18:15

支持一下下

AnyPopup · 发表于 2021-4-17 10:27:41

lstr系列api它不香吗

孤城已故 · 发表于 2021-4-17 01:34:08

感谢分享，很给力！~

letmin · 发表于 2021-4-17 01:12:35

新手学习了

huxian · 发表于 2021-4-17 00:37:12

我就看看是什么哦

		自动登录	找回密码
密码			注册

[易源码分享] 文本_文本比较W