汇编极速分割文本演示带源码无模块

cf2006a

jr21066 发表于 2018-9-13 19:06
能提供一下文件开头吗.

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本数组1	文本型		99999999	牵扯内存释放,所以要预分配,只要大于你分割后的数组成员就行
文本内容	文本型			这里是要分割的文本字节集内容,这里将存在数组内容,数组只是一个指针集合

文本内容 ＝ “可以根据您的需要返回任意数值” ＋ “ ” ＋ “句来给数组预申请内存空间” ＋ “ ” ＋ “汇编_取随机数”
调试输出 (汇编_分割文本 (文本内容, 文本数组1, “ ”), 文本数组1, #换行符, 文本内容)  ' 可以看到原文本被截断数据被破坏，所以用此命令要保存下原文本

子程序名	返回值类型	公开	备 注
汇编_分割文本	整数型		返回分割总个数
参数名	类 型	参考	可空	数组	备 注
参_文本内容	文本型
参_文本数组	文本型
参_分隔符	文本型

置入代码 ({ 141, 85, 8, 139, 18, 139, 18, 131, 194, 8, 141, 93, 12, 139, 27, 139, 27, 131, 195, 4, 199, 3, 1, 0, 0, 0, 137, 83, 4, 139, 77, 16, 139, 9, 138, 41, 138, 10, 128, 249, 0, 116, 20, 56, 233, 117, 13, 198, 2, 0, 66, 255, 3, 139, 3, 137, 20, 131, 235, 232, 66, 235, 229, 139, 3, 201, 194, 12, 0 })
返回 (0)
修改了下可以指定分割符 目前只支持单字符

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本数组1, 文本型, , "99999999", 牵扯内存释放,所以要预分配,只要大于你分割后的数组成员就行<br /> .局部变量 文本内容, 文本型, , , 这里是要分割的文本字节集内容,这里将存在数组内容,数组只是一个指针集合<br /> <br /> 文本内容 ＝ “可以根据您的需要返回任意数值” ＋ “ ” ＋ “句来给数组预申请内存空间” ＋ “ ” ＋ “汇编_取随机数”<br /> 调试输出 (汇编_分割文本 (文本内容, 文本数组1, “ ”), 文本数组1, #换行符, 文本内容)  ' 可以看到原文本被截断数据被破坏，所以用此命令要保存下原文本<br /> <br /> .子程序 汇编_分割文本, 整数型, 公开, 返回分割总个数<br /> .参数 参_文本内容, 文本型<br /> .参数 参_文本数组, 文本型, 数组<br /> .参数 参_分隔符, 文本型<br /> <br /> 置入代码 ({ 141, 85, 8, 139, 18, 139, 18, 131, 194, 8, 141, 93, 12, 139, 27, 139, 27, 131, 195, 4, 199, 3, 1, 0, 0, 0, 137, 83, 4, 139, 77, 16, 139, 9, 138, 41, 138, 10, 128, 249, 0, 116, 20, 56, 233, 117, 13, 198, 2, 0, 66, 255, 3, 139, 3, 137, 20, 131, 235, 232, 66, 235, 229, 139, 3, 201, 194, 12, 0 })<br /> 返回 (0)<br /> <br /> 修改了下可以指定分割符 目前只支持单字符

jr21066

zhutao3233 发表于 2018-9-13 18:34
方法不错，但是分割的第一个文本的开头 是乱码！

能提供一下文件开头吗.

zhutao3233

方法不错，但是分割的第一个文本的开头 是乱码！

sx大总管

弄一个可以设置分隔符的吧

cf2006a

jr21066 发表于 2018-9-13 13:59
我用的还是低版的汇编工具.是不支持直接对内存数操作的.
另外你没有减ecx.

loop 每循环一次   会自动  在 ecx 里减 1

jr21066

cf2006a 发表于 2018-9-13 13:14
自定义分隔符 截断会改变原文本数据吧 像你这个13 10 可以用0去替换截断 要是自定义的话 往哪里加0 截断 ...

我用的还是低版的汇编工具.是不支持直接对内存数操作的.
另外你没有减ecx.

cf2006a

jr21066 发表于 2018-9-13 12:50
只是完美心理的原因. 0a写了一点用也没有.
回帖一直失败.复制一部分看看还出错不

自定义分隔符 截断会改变原文本数据吧 像你这个13 10 可以用0去替换截断 要是自定义的话 往哪里加0 截断啊

加进去数据就被破坏了！不适用这种方法
用我的这个方法不是代码更少，更容易理解！试了几次一样可以按换行符分割
Label2:
mov al, byte [edx]
cmp al, 0x0D
jne Label1
mov byte [edx], 0x00000000
inc edx
inc dword [ebx]
mov eax, dword [ebx]
mov dword [ebx+eax*4], edx
Label1:
inc edx
loop Label2
mov eax, dword [ebx]
leave
retn 0x0008

jr21066

cf2006a 发表于 2018-9-13 09:29
[e=0].版本 2

.子程序 汇编_分割文本, 整数型

疯了.前边多了好多重复帖.
这个是又修改了一下的.

begin:
mov al,byte ptr [edx]
cmp al,13
inc edx
jnz addr1


xor eax,eax
mov byte ptr [edx],al
inc edx
dec ecx
mov eax,[ebx]
inc eax
mov [ebx],eax        ;成员数加一
shl eax,2
add eax,ebx
mov [eax],edx        ;写成员地址


addr1:
loop begin


mov eax,[ebx]                ;取成员数
leave
ret 12

jr21066

cf2006a 发表于 2018-9-13 09:29
[e=0].版本 2

.子程序 汇编_分割文本, 整数型

只是完美心理的原因. 0a写了一点用也没有.
回帖一直失败.复制一部分看看还出错不

begin:
mov al,byte ptr [edx]
cmp al,13
jnz addr2        ;回车写回0
xor eax,eax
mov byte ptr [edx],al
inc edx
inc edx
mov eax,[ebx]
inc eax
mov [ebx],eax        ;成员数加一
shl eax,2
add eax,ebx
mov [eax],edx        ;写成员地址
loop begin
addr2:
inc edx
loop begin
mov eax,[ebx]                ;取成员数
leave
ret 12

jr21066

cf2006a 发表于 2018-9-13 09:29

  

子程序名	返回值类型	公开	备 注
汇编_分割文本	整数型

[/quote]
写0a是没有必要的.只是一种完美心理了.
去掉0a的代码如下,未测试
[e=4]lea edx,[ebp+8]
mov edx,[edx]
mov edx,[edx]
mov ecx,[edx+4];字节集长度
add edx,8;文本字节集地址
lea ebx,[ebp+10h]
mov ebx,[ebx]
mov ebx,[ebx]
add ebx,4;数组成员数地址
mov eax,1;写入第一组内容
mov [ebx],eax
mov [ebx+4],edx
begin:
mov al,byte ptr [edx]
cmp al,13
jnz addr2;回车写回0
xor eax,eax
mov byte ptr [edx],al
inc edx
inc edx
mov eax,[ebx]
inc eax
mov [ebx],eax;成员数加一
shl eax,2
add eax,ebx
mov [eax],edx;写成员地址
loop begin
addr2:
inc edx
loop begin
mov eax,[ebx];取成员数
leave
ret 12

.版本 2<br /> <br /> .子程序 汇编_分割文本, 整数型</blockquote></div><br /> 写0a是没有必要的.只是一种完美心理了.<br /> 去掉0a的代码如下,未测试<br /> <br /> [e=4]lea edx,[ebp+8]<br /> mov edx,[edx]<br /> mov edx,[edx]<br /> mov ecx,[edx+4]        ;字节集长度<br /> add edx,8        ;文本字节集地址<br /> lea ebx,[ebp+10h]<br /> mov ebx,[ebx]<br /> mov ebx,[ebx]<br /> add ebx,4        ;数组成员数地址<br /> <br /> mov eax,1        ;写入第一组内容<br /> mov [ebx],eax<br /> mov [ebx+4],edx<br /> <br /> begin:<br /> mov al,byte ptr [edx]<br /> cmp al,13<br /> jnz addr2        ;回车写回0<br /> xor eax,eax<br /> mov byte ptr [edx],al<br /> inc edx<br /> inc edx<br /> mov eax,[ebx]<br /> inc eax<br /> mov [ebx],eax        ;成员数加一<br /> shl eax,2<br /> add eax,ebx<br /> mov [eax],edx        ;写成员地址<br /> loop begin<br /> addr2:<br /> inc edx<br /> loop begin<br /> mov eax,[ebx]        ;取成员数<br /> leave<br /> ret 12