文本_取字数

jr21066

好象模块还没有这个功能,其实这个也可以做其它命令的基础功能用的.

  

子程序名	返回值类型	公开	备 注
文本_取字数	整数型		取文本中英文字数,不计空格换行
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型

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

置入代码 ({ 139, 69, 8, 139, 48, 49, 201, 172, 132, 192, 116, 20, 60, 32, 116, 247, 60, 13, 116, 243, 60, 10, 116, 239, 168, 128, 116, 1, 70, 65, 235, 231, 137, 77, 252 })
返回 (局_返回值)
' mov eax,dword ptr [ebp+08h]
' mov esi,dword ptr [eax]  取源内容地址
' xor ecx,ecx   初始化计数
' begin:
' lodsb
' test al,al
' jz addrend
' cmp al,32   不算空格
' jz Begin
' cmp al,13   不算回车
' jz Begin
' cmp al,10   不算换行
' jz begin
' test al,10000000b  英文算一个
' jz addren
' inc esi     中文算两个
' addren:
' inc ecx   累加计数
' jmp begin
' addrend:
' mov [ebp-4],ecx  保存计数

.版本 2<br /> <br /> .子程序 文本_取字数, 整数型, 公开, 取文本中英文字数,不计空格换行<br /> .参数 参_内容, 文本型<br /> .局部变量 局_返回值, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 48, 49, 201, 172, 132, 192, 116, 20, 60, 32, 116, 247, 60, 13, 116, 243, 60, 10, 116, 239, 168, 128, 116, 1, 70, 65, 235, 231, 137, 77, 252 })<br /> 返回 (局_返回值)<br /> ' mov eax,dword ptr [ebp+08h]<br /> ' mov esi,dword ptr [eax]  取源内容地址<br /> <br /> ' xor ecx,ecx   初始化计数<br /> ' begin:<br /> ' lodsb<br /> ' test al,al<br /> ' jz addrend<br /> ' cmp al,32   不算空格<br /> ' jz Begin<br /> ' cmp al,13   不算回车<br /> ' jz Begin<br /> ' cmp al,10   不算换行<br /> ' jz begin<br /> ' test al,10000000b  英文算一个<br /> ' jz addren<br /> ' inc esi     中文算两个<br /> ' addren:<br /> ' inc ecx   累加计数<br /> ' jmp begin<br /> ' addrend:<br /> ' mov [ebp-4],ecx  保存计数

jr21066

项目部002 发表于 2018-9-8 09:29
半角，全角，unicode字符等是否支持

没有un码的判断.
只做了简单的ascii和gb的判断
ascii码是小于128的.汉字是连续两个大于127的字节.

项目部002

半角，全角，unicode字符等是否支持