修正-文本_删除空行_汇编_文本_是否UTF8_汇编两个命令

jr21066

修正两个命令

文本_删除空行_汇编  打了个小补丁.对首字符为换行符的进行了判断
文本_是否UTF8_汇编  以前有过修改.但模块里没有更新.也一并提交.

  

子程序名	返回值类型	公开	备 注
文本_删除空行_汇编	文本型		汇编,一次完成搜索替换 感谢【@jr21066 】分享开源
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型

变量名	类 型	静态	数组	备 注
返回值	文本型

如果真 (参_内容 ＝ “”)
返回 (“”)

返回值 ＝ 取空白文本 (取文本长度 (参_内容))
' 打个补丁,用于处理第一个字符就是换行符的特殊情况
如果 (取文本左边 (参_内容, 2) ＝ #换行符 )
取变量数据地址 (参_内容)
置入代码 ({ 64, 64 })
取变量数据地址 (参_内容)

置入代码 ({ 96, 137, 198, 139, 125, 252, 172, 132, 192, 116, 22, 60, 13, 117, 12, 170, 172, 170, 172, 132, 192, 116, 10, 60, 13, 116, 3, 170, 235, 232, 70, 235, 241, 49, 192, 170, 97 })
返回 (返回值)

子程序名	返回值类型	公开	备 注
文本_是否UTF8_汇编	逻辑型		utf8编码返回真,其他编码返回假,支持多线程
参数名	类 型	参考	可空	数组	备 注
参_内容	字节集

如果真 (参_内容 ＝ {  })
返回 (假)
置入代码 ({ 86, 87, 83, 139, 69, 8, 139, 24, 139, 75, 4, 139, 48, 131, 198, 8, 139, 67, 8, 37, 255, 255, 255, 0, 61, 191, 187, 239, 0, 116, 101, 172, 138, 224, 60, 127, 118, 88, 192, 232, 6, 60, 6, 117, 19, 172, 80, 192, 232, 6, 60, 2, 117, 74, 88, 192, 232, 7, 60, 0, 116, 70, 235, 62, 138, 196, 192, 232, 4, 60, 14, 117, 18, 172, 192, 232, 6, 60, 2, 117, 47, 172, 192, 232, 6, 60, 2, 117, 39, 235, 41, 138, 196, 192, 232, 3, 60, 30, 117, 28, 172, 192, 232, 6, 60, 2, 117, 20, 172, 192, 232, 6, 60, 2, 117, 12, 172, 192, 232, 6, 60, 2, 117, 4, 235, 6, 226, 159, 51, 192, 235, 3, 51, 192, 64, 91, 95, 94, 201, 194, 4, 0 })
返回 (假)
' *** 缩略程序块 ***
' push esi  正确的保护寄存器就是这样的,因为偷懒才用pushad这样的.唯一的好处就是编译后的字节少,这次因为要用eax带回结果,所以不能保护eax值
' push edi
' push ebx
' mov eax,[ebp+08h]
' mov ebx,[eax]
' mov ecx,[ebx+04h]
' mov esi,[eax]
' add esi,08h
' mov eax,[ebx+08h]
' and eax,00FFFFFFh
' cmp eax,00EFBBBFh  有的UTF-8文件是带文件头的,如果有文件头就不判断了.
' je Label1
' Label6:
' lodsb
' mov ah,al
' cmp al,7Fh  单字节小于127的都是ASCII码,是不用判断的
' jbe Label2
' shr al,06h
' cmp al,06h  判断位数及判定逻辑都在最后.感兴趣的同学可以参阅,是在网上搜索的.不是原创.只能解释这么多了.
' jne Label3
' lodsb
' push eax
' shr al,06h
' cmp al,02h
' jne Label4
' pop eax
' shr al,07h
' cmp al,00h
' je Label1
' jmp Label2
' Label3:
' mov al,ah
' shr al,04h
' cmp al,0Eh
' jne Label5
' lodsb
' shr al,06h
' cmp al,02h
' jne Label4
' lodsb
' shr al,06h
' cmp al,02h
' jne Label4
' jmp Label1
' Label5:
' mov al,ah
' shr al,03h
' cmp al,1Eh
' jne Label4
' lodsb
' shr al,06h
' cmp al,02h
' jne Label4
' lodsb
' shr al,06h
' cmp al,02h
' jne Label4
' lodsb
' shr al,06h
' cmp al,02h
' jne Label4
' jmp Label1
' Label2:
' loop Label6
' Label4:
' xor eax,eax  返回假
' jmp Label7
' Label1:
' xor eax,eax
' inc eax  返回真,据说清零加一也比直接给eax1要快很多....
' Label7:
' pop ebx
' pop edi
' pop esi
' leave
' retn 0004h  自己返回的要恢复堆栈,一个参数就是一个整数.占四个字节.
' 附编码说明及判定方法,来源于网络.非自创.
' 如果不符合utf-8的规范，认为是gb18030编码
' 如果有符合utf-8规范中的3字节或4字节编码的，认为是utf-8编码
' 如果有符合utf-8规范中的2字节编码的，但是不符合gb18030编码的，认为是utf-8编码
' 如果全部都是符合2字节的utf-8编码，同时也符合gb18030编码的，认为是gb18030编码
' Unicode符号范围        |   UTF-8编码方式
' (十六进制)                 |   （二进制）
' ------------------------------+--------------------------------------------------------------
' 0000 0000-0000 007F | 0xxxxxxx
' 0000 0080-0000 07FF | 110xxxxx 10xxxxxx
' 0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx
' 0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
' ---------------------------------------------------------------------------------------------

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本_删除空行_汇编, 文本型, 公开, 汇编,一次完成搜索替换 感谢【<a href="https://bbs.125.la/home.php?mod=space&uid=240689" target="_blank">@jr21066</a> 】分享开源<br /> .参数 参_内容, 文本型<br /> .局部变量 返回值, 文本型<br /> <br /> .如果真 (参_内容 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 返回值 ＝ 取空白文本 (取文本长度 (参_内容))<br /> ' 打个补丁,用于处理第一个字符就是换行符的特殊情况<br /> .如果 (取文本左边 (参_内容, 2) ＝ #换行符)<br />     取变量数据地址 (参_内容)<br />     置入代码 ({ 64, 64 })<br /> .否则<br />     取变量数据地址 (参_内容)<br /> .如果结束<br /> <br /> 置入代码 ({ 96, 137, 198, 139, 125, 252, 172, 132, 192, 116, 22, 60, 13, 117, 12, 170, 172, 170, 172, 132, 192, 116, 10, 60, 13, 116, 3, 170, 235, 232, 70, 235, 241, 49, 192, 170, 97 })<br /> 返回 (返回值)<br /> <br /> .子程序 文本_是否UTF8_汇编, 逻辑型, 公开, utf8编码返回真,其他编码返回假,支持多线程<br /> .参数 参_内容, 字节集<br /> <br /> .如果真 (参_内容 ＝ {  })<br />     返回 (假)<br /> .如果真结束<br /> 置入代码 ({ 86, 87, 83, 139, 69, 8, 139, 24, 139, 75, 4, 139, 48, 131, 198, 8, 139, 67, 8, 37, 255, 255, 255, 0, 61, 191, 187, 239, 0, 116, 101, 172, 138, 224, 60, 127, 118, 88, 192, 232, 6, 60, 6, 117, 19, 172, 80, 192, 232, 6, 60, 2, 117, 74, 88, 192, 232, 7, 60, 0, 116, 70, 235, 62, 138, 196, 192, 232, 4, 60, 14, 117, 18, 172, 192, 232, 6, 60, 2, 117, 47, 172, 192, 232, 6, 60, 2, 117, 39, 235, 41, 138, 196, 192, 232, 3, 60, 30, 117, 28, 172, 192, 232, 6, 60, 2, 117, 20, 172, 192, 232, 6, 60, 2, 117, 12, 172, 192, 232, 6, 60, 2, 117, 4, 235, 6, 226, 159, 51, 192, 235, 3, 51, 192, 64, 91, 95, 94, 201, 194, 4, 0 })<br /> 返回 (假)<br /> ' *** 缩略程序块 ***<br /> ' push esi  正确的保护寄存器就是这样的,因为偷懒才用pushad这样的.唯一的好处就是编译后的字节少,这次因为要用eax带回结果,所以不能保护eax值<br /> ' push edi<br /> ' push ebx<br /> ' mov eax,[ebp+08h]<br /> ' mov ebx,[eax]<br /> ' mov ecx,[ebx+04h]<br /> ' mov esi,[eax]<br /> ' add esi,08h<br /> ' mov eax,[ebx+08h]<br /> ' and eax,00FFFFFFh<br /> ' cmp eax,00EFBBBFh  有的UTF-8文件是带文件头的,如果有文件头就不判断了.<br /> ' je Label1<br /> ' Label6:<br /> ' lodsb<br /> ' mov ah,al<br /> ' cmp al,7Fh  单字节小于127的都是ASCII码,是不用判断的<br /> ' jbe Label2<br /> ' shr al,06h<br /> ' cmp al,06h  判断位数及判定逻辑都在最后.感兴趣的同学可以参阅,是在网上搜索的.不是原创.只能解释这么多了.<br /> ' jne Label3<br /> ' lodsb<br /> ' push eax<br /> ' shr al,06h<br /> ' cmp al,02h<br /> ' jne Label4<br /> ' pop eax<br /> ' shr al,07h<br /> ' cmp al,00h<br /> ' je Label1<br /> ' jmp Label2<br /> ' Label3:<br /> ' mov al,ah<br /> ' shr al,04h<br /> ' cmp al,0Eh<br /> ' jne Label5<br /> ' lodsb<br /> ' shr al,06h<br /> ' cmp al,02h<br /> ' jne Label4<br /> ' lodsb<br /> ' shr al,06h<br /> ' cmp al,02h<br /> ' jne Label4<br /> ' jmp Label1<br /> ' Label5:<br /> ' mov al,ah<br /> ' shr al,03h<br /> ' cmp al,1Eh<br /> ' jne Label4<br /> ' lodsb<br /> ' shr al,06h<br /> ' cmp al,02h<br /> ' jne Label4<br /> ' lodsb<br /> ' shr al,06h<br /> ' cmp al,02h<br /> ' jne Label4<br /> ' lodsb<br /> ' shr al,06h<br /> ' cmp al,02h<br /> ' jne Label4<br /> ' jmp Label1<br /> ' Label2:<br /> ' loop Label6<br /> ' Label4:<br /> ' xor eax,eax  返回假<br /> ' jmp Label7<br /> ' Label1:<br /> ' xor eax,eax<br /> ' inc eax  返回真,据说清零加一也比直接给eax1要快很多....<br /> ' Label7:<br /> ' pop ebx<br /> ' pop edi<br /> ' pop esi<br /> ' leave<br /> ' retn 0004h  自己返回的要恢复堆栈,一个参数就是一个整数.占四个字节.<br /> <br /> ' 附编码说明及判定方法,来源于网络.非自创.<br /> ' 如果不符合utf-8的规范，认为是gb18030编码<br /> ' 如果有符合utf-8规范中的3字节或4字节编码的，认为是utf-8编码<br /> ' 如果有符合utf-8规范中的2字节编码的，但是不符合gb18030编码的，认为是utf-8编码<br /> ' 如果全部都是符合2字节的utf-8编码，同时也符合gb18030编码的，认为是gb18030编码<br /> ' Unicode符号范围        |   UTF-8编码方式<br /> ' (十六进制)                 |   （二进制）<br /> ' ------------------------------+--------------------------------------------------------------<br /> ' 0000 0000-0000 007F | 0xxxxxxx<br /> ' 0000 0080-0000 07FF | 110xxxxx 10xxxxxx<br /> ' 0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx<br /> ' 0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx<br /> ' ---------------------------------------------------------------------------------------------

shituo

支持圆角 空格吗？

jr21066

咸鱼666 发表于 2023-3-4 08:52
我这边加到易写易库里面，有人因为这个2020版本的报错，2018的没问题，是不是2020的这个版本有问题呢，不 ...

以前在别的帖子里回答过类似的问题

使用汇编主要目的是为了效率。就是快，所以牺牲了兼容性
在使用代码时要自己保存环境以及处理多线程的问题。如果都在代码里加上这些处理的话。反而效率会下降很多。

所以建议先熟悉代码，在入口和出口做好处理。做成相应的模块再使用。
另外尽量不要给别人使用，环境的改变，有可能代码运行也要相应改变的

咸鱼666

jr21066 发表于 2023-3-4 06:47
是增加了局部变量吗
汇编里返回一般是在堆栈里放的，一位的可以在eax中设置 ...

我这边加到易写易库里面，有人因为这个2020版本的报错，2018的没问题，是不是2020的这个版本有问题呢，不然为啥那个帖子修改了，但是给精易模块的还是旧版的

jr21066

咸鱼666 发表于 2023-3-3 22:21
大佬，你之前发的修正版（解决多线程崩溃）的文本_是否UTF8_汇编 https://bbs.125.la/forum.php?mod=viewth ...

是增加了局部变量吗
汇编里返回一般是在堆栈里放的，一位的可以在eax中设置

咸鱼666

大佬，你之前发的修正版（解决多线程崩溃）的文本_是否UTF8_汇编 https://bbs.125.la/forum.php?mod ... B%E6%96%87%E6%9C%AC
里面的和这个帖子的不一样，那个帖子是2018年的，这个是2020年的，是不是这个2020年的写错了。。。。应该是

  

子程序名	返回值类型	公开	备 注
文本_是否UTF8_汇编	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_内容	字节集

变量名	类 型	静态	数组	备 注
局_返回值	逻辑型

如果真 (参_内容 ＝ {  })
返回 (假)
置入代码 ({ 96, 139, 69, 8, 139, 24, 139, 75, 4, 139, 48, 131, 198, 8, 139, 67, 8, 37, 255, 255, 255, 0, 61, 191, 187, 239, 0, 116, 101, 172, 136, 196, 60, 127, 118, 88, 192, 232, 6, 60, 6, 117, 19, 172, 80, 192, 232, 6, 60, 2, 117, 74, 88, 192, 232, 7, 60, 0, 116, 70, 235, 62, 136, 224, 192, 232, 4, 60, 14, 117, 18, 172, 192, 232, 6, 60, 2, 117, 47, 172, 192, 232, 6, 60, 2, 117, 39, 235, 41, 136, 224, 192, 232, 3, 60, 30, 117, 28, 172, 192, 232, 6, 60, 2, 117, 20, 172, 192, 232, 6, 60, 2, 117, 12, 172, 192, 232, 6, 60, 2, 117, 4, 235, 6, 226, 159, 49, 192, 235, 3, 49, 192, 64, 137, 69, 252, 97 })
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 文本_是否UTF8_汇编, 逻辑型, 公开<br /> .参数 参_内容, 字节集<br /> .局部变量 局_返回值, 逻辑型<br /> <br /> .如果真 (参_内容 ＝ {  })<br />     返回 (假)<br /> .如果真结束<br /> 置入代码 ({ 96, 139, 69, 8, 139, 24, 139, 75, 4, 139, 48, 131, 198, 8, 139, 67, 8, 37, 255, 255, 255, 0, 61, 191, 187, 239, 0, 116, 101, 172, 136, 196, 60, 127, 118, 88, 192, 232, 6, 60, 6, 117, 19, 172, 80, 192, 232, 6, 60, 2, 117, 74, 88, 192, 232, 7, 60, 0, 116, 70, 235, 62, 136, 224, 192, 232, 4, 60, 14, 117, 18, 172, 192, 232, 6, 60, 2, 117, 47, 172, 192, 232, 6, 60, 2, 117, 39, 235, 41, 136, 224, 192, 232, 3, 60, 30, 117, 28, 172, 192, 232, 6, 60, 2, 117, 20, 172, 192, 232, 6, 60, 2, 117, 12, 172, 192, 232, 6, 60, 2, 117, 4, 235, 6, 226, 159, 49, 192, 235, 3, 49, 192, 64, 137, 69, 252, 97 })<br /> 返回 (局_返回值)

kiss0459

尾部空行 没删除，论坛有个快速字节集的方法 删除的彻底

咸鱼666

修复了第一个字符就是空行的情况，如果是两个空行就不行了。。。。

ctry78985

支持开源~！感谢分享

gmda

依然删不了首行空行