数值 文本相加 算法

cf2006a

  

子程序名	返回值类型	公开	备 注
文本_求和	整数型		将有规律文本相加
参数名	类 型	参考	可空	数组	备 注
参_数值文本	文本型
参_分隔符	文本型				如 + 好 或者 | 等自己喜欢用什么分割就用什么

置入代码 ({ 49, 192, 49, 210, 49, 255, 139, 93, 8, 139, 27, 133, 219, 116, 60, 139, 77, 12, 139, 9, 133, 201, 116, 51, 138, 41, 138, 11, 132, 201, 116, 43, 67, 128, 249, 47, 127, 2, 235, 242, 128, 249, 57, 127, 237, 15, 182, 209, 131, 234, 48, 128, 59, 0, 116, 11, 56, 43, 116, 7, 1, 208, 107, 192, 10, 235, 215, 1, 208, 1, 199, 49, 192, 235, 207, 137, 248, 201, 194, 8, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 文本_求和, 整数型, 公开, 将有规律文本相加<br /> .参数 参_数值文本, 文本型<br /> .参数 参_分隔符, 文本型, , 如 + 好 或者 | 等自己喜欢用什么分割就用什么<br /> <br /> 置入代码 ({ 49, 192, 49, 210, 49, 255, 139, 93, 8, 139, 27, 133, 219, 116, 60, 139, 77, 12, 139, 9, 133, 201, 116, 51, 138, 41, 138, 11, 132, 201, 116, 43, 67, 128, 249, 47, 127, 2, 235, 242, 128, 249, 57, 127, 237, 15, 182, 209, 131, 234, 48, 128, 59, 0, 116, 11, 56, 43, 116, 7, 1, 208, 107, 192, 10, 235, 215, 1, 208, 1, 199, 49, 192, 235, 207, 137, 248, 201, 194, 8, 0 })<br /> 返回 (0)

cf2006a

8wy721719 发表于 2020-2-21 21:41
.版本 2
.支持库 spec

{ 49, 255, 49, 192, 139, 93, 8, 139, 27, 133, 219, 116, 55, 15, 175, 198, 1, 199, 49, 192, 190, 1, 0, 0, 0, 128, 249, 45, 117, 2, 247, 222, 128, 249, 0, 116, 31, 138, 11, 128, 249, 0, 116, 225, 67, 128, 249, 48, 124, 219, 128, 249, 57, 127, 214, 107, 192, 10, 15, 182, 209, 131, 234, 48, 1, 208, 235, 225, 137, 248, 201, 194, 4, 0 }

8wy721719

cf2006a 发表于 2019-11-7 15:00
.版本 2

.子程序 文本_求和, 整数型, , 作者*F006a   将有规律文本相加 2019-11-6  修改支持负数

.版本 2
.支持库 spec

调试输出 (文本_求和 (“10086+3+121+322”, “+”))
调试输出 (到整数 (10086 ＋ 3 ＋ 121 ＋ 322))

开始运行被调试程序
* 10540
* 10532
被调试易程序运行完毕
求出来的合不对

cf2006a

[e=0].版本 2

.子程序 文本_求和, 整数型, 公开, 作

tianxi

这种 人才  才是助力易语言长久发展的功呈

cf2006a

.版本 2

.子程序 文本_求和, 整数型, , 作者*F006a   将有规律文本相加 2019-11-6  修改支持负数
.参数 参_数值文本, 文本型
.参数 参_分隔符, 文本型, , 如 + 号 或者 | 等自己喜欢用什么分割就用什么

置入代码 ({ 49, 192, 49, 255, 139, 93, 8, 139, 27, 133, 219, 116, 78, 139, 77, 12, 139, 9, 133, 201, 116, 69, 138, 41, 49, 192, 190, 1, 0, 0, 0, 138, 11, 132, 201, 116, 54, 128, 249, 45, 117, 5, 67, 247, 222, 235, 240, 67, 128, 249, 47, 127, 2, 235, 225, 128, 249, 57, 127, 220, 107, 192, 10, 15, 182, 209, 131, 234, 48, 1, 208, 138, 11, 132, 201, 116, 6, 56, 233, 116, 2, 235, 220, 15, 175, 198, 1, 199, 67, 235, 189, 137, 248, 201, 194, 8, 0 })
返回 (0)
支持负数~！！！！！！

安雨尘

谢谢分享学习

外星星人

汇编大佬  膜拜膜拜

LLJ

1. xor eax, eax
   
2. xor edx, edx
   
3. xor edi, edi
   
4. mov ebx, dword [ebp+0x08]
   
5. mov ebx, dword [ebx]
   
6. test ebx, ebx
   
7. je label4
   
8. mov ecx, dword [ebp+0x0C]
   
9. mov ecx, dword [ecx]
   
10. test ecx, ecx
    
11. je label4
    
12. mov ch, byte [ecx]
    
13. label1:
    
14. mov cl, byte [ebx]
    
15. test cl, cl
    
16. je label4
    
17. inc ebx
    
18. cmp cl, 0x2F
    
19. jnle label2
    
20. jmp label1
    
21. label2:
    
22. cmp cl, 0x39
    
23. jnle label1
    
24. movzx edx, cl
    
25. sub edx, 0x30
    
26. cmp byte [ebx], 0x00
    
27. je label3
    
28. cmp byte [ebx], ch
    
29. je label3
    
30. add eax, edx
    
31. imul eax, eax, 0x0A
    
32. jmp label1
    
33. label3:
    
34. add eax, edx
    
35. add edi, eax
    
36. xor eax, eax
    
37. jmp label1
    
38. label4:
    
39. mov eax, edi
    
40. leave
    
41. retn 0x0008
    

复制代码

TBit

汇编大佬  膜拜膜拜