不知为啥 短文本拼接用加号更快 【文本a + 文本b + 文.....

易造轮

优化一通存粹做了个负优化

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

子程序名	返回值类型	公开	备 注
短文本拼接	文本型
参数名	类 型	参考	可空	数组	备 注
文本a	文本型
文本b	文本型
文本c	文本型
分隔符	文本型

变量名	类 型	静态	数组	备 注
lenA	整数型
lenSep	整数型
lenB	整数型
lenC	整数型
总长度	整数型
p缓冲区	整数型
临时文本	文本型

lenSep ＝ 取文本长度 (分隔符)
lenA ＝ 取文本长度 (文本a)
lenB ＝ 取文本长度 (文本b)
lenC ＝ 取文本长度 (文本c)
总长度 ＝ lenA ＋ lenB ＋ lenC ＋ lenSep
临时文本 ＝ 取空白文本 (总长度)
p缓冲区 ＝ 取变量数据指针_ASM (临时文本)
' 拼接
RtlMoveMemory (p缓冲区, 取变量数据指针_ASM (文本a), lenA)
RtlMoveMemory (p缓冲区 ＋ lenA, 取变量数据指针_ASM (分隔符), lenSep)
RtlMoveMemory (p缓冲区 ＋ lenA ＋ lenSep, 取变量数据指针_ASM (文本b), lenB)
RtlMoveMemory (p缓冲区 ＋ lenA ＋ lenSep ＋ lenB, 取变量数据指针_ASM (分隔符), lenSep)
RtlMoveMemory (p缓冲区 ＋ lenA ＋ lenSep ＋ lenB ＋ lenSep, 取变量数据指针_ASM (文本c), lenC)
返回 (零拷贝返回局文本_ (临时文本))

子程序名	返回值类型	公开	备 注
取变量数据指针_ASM	整数型		同取变量数据地址();返回指定变量的数据地址(内存指针)，当数据类型为字节集时会多出8个字节(前4个字节为标志，后4字节标明字节集长度)。注：取字节集变量数据指针 后 需要+8
参数名	类 型	参考	可空	数组	备 注
参数_变量	通用型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
零拷贝返回局文本_	文本型
参数名	类 型	参考	可空	数组	备 注
要返回的文本	文本型

置入代码 ({ 139, 77, 8, 139, 1, 199, 1, 0, 0, 0, 0, 201, 194, 4, 0 })
返回 (“”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
结果文本	文本型
t1	整数型
文本a	文本型
文本b	文本型
文本c	文本型

t1 ＝ 取启动时间 ()
计次循环首 (10000000, )
文本a ＝ “order”
文本b ＝ “10086”
文本c ＝ “ccc”
结果文本 ＝ 文本a ＋ “_” ＋ 文本b ＋ “_” ＋ 文本c
计次循环尾 ()
信息框 (到文本 (取启动时间 () － t1), 0, , )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
结果文本	文本型
t1	整数型
文本a	文本型
文本b	文本型
文本c	文本型

t1 ＝ 取启动时间 ()
计次循环首 (10000000, )
文本a ＝ “order”
文本b ＝ “10086”
文本c ＝ “ccc”
结果文本 ＝ 短文本拼接 (文本a, 文本b, 文本c, “_”)
计次循环尾 ()
信息框 (到文本 (取启动时间 () － t1), 0, , )

DLL命令名	返回值类型	公开	备 注
RtlMoveMemory			移动内存
DLL库文件名:
ntdll
在DLL库中对应命令名:
RtlMoveMemory
参数名	类 型	传址	数组	备 注
目标地址	整数型			Dest 要移动到的目标地址
原地址	整数型			Src 被移动的原地址
被复制的大小	整数型			length 被移动原地址的长度

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 短文本拼接, 文本型<br /> .参数 文本a, 文本型<br /> .参数 文本b, 文本型<br /> .参数 文本c, 文本型<br /> .参数 分隔符, 文本型<br /> .局部变量 lenA, 整数型<br /> .局部变量 lenSep, 整数型<br /> .局部变量 lenB, 整数型<br /> .局部变量 lenC, 整数型<br /> .局部变量 总长度, 整数型<br /> .局部变量 p缓冲区, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> lenSep ＝ 取文本长度 (分隔符)<br /> lenA ＝ 取文本长度 (文本a)<br /> lenB ＝ 取文本长度 (文本b)<br /> lenC ＝ 取文本长度 (文本c)<br /> 总长度 ＝ lenA ＋ lenB ＋ lenC ＋ lenSep<br /> 临时文本 ＝ 取空白文本 (总长度)<br /> p缓冲区 ＝ 取变量数据指针_ASM (临时文本)<br /> ' 拼接<br /> RtlMoveMemory (p缓冲区, 取变量数据指针_ASM (文本a), lenA)<br /> RtlMoveMemory (p缓冲区 ＋ lenA, 取变量数据指针_ASM (分隔符), lenSep)<br /> RtlMoveMemory (p缓冲区 ＋ lenA ＋ lenSep, 取变量数据指针_ASM (文本b), lenB)<br /> RtlMoveMemory (p缓冲区 ＋ lenA ＋ lenSep ＋ lenB, 取变量数据指针_ASM (分隔符), lenSep)<br /> RtlMoveMemory (p缓冲区 ＋ lenA ＋ lenSep ＋ lenB ＋ lenSep, 取变量数据指针_ASM (文本c), lenC)<br /> <br /> 返回 (零拷贝返回局文本_ (临时文本))<br /> <br /> .子程序 取变量数据指针_ASM, 整数型, 公开, 同取变量数据地址();返回指定变量的数据地址(内存指针)，当数据类型为字节集时会多出8个字节(前4个字节为标志，后4字节标明字节集长度)。注：取字节集变量数据指针 后 需要+8<br /> .参数 参数_变量, 通用型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 零拷贝返回局文本_, 文本型, 公开<br /> .参数 要返回的文本, 文本型<br /> <br /> 置入代码 ({ 139, 77, 8, 139, 1, 199, 1, 0, 0, 0, 0, 201, 194, 4, 0 })<br /> 返回 (“”)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 结果文本, 文本型<br /> .局部变量 t1, 整数型<br /> .局部变量 文本a, 文本型<br /> .局部变量 文本b, 文本型<br /> .局部变量 文本c, 文本型<br /> <br /> t1 ＝ 取启动时间 ()<br /> .计次循环首 (10000000, )<br />     文本a ＝ “order”<br />     文本b ＝ “10086”<br />     文本c ＝ “ccc”<br />     结果文本 ＝ 文本a ＋ “_” ＋ 文本b ＋ “_” ＋ 文本c<br /> .计次循环尾 ()<br /> 信息框 (到文本 (取启动时间 () － t1), 0, , )<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 结果文本, 文本型<br /> .局部变量 t1, 整数型<br /> .局部变量 文本a, 文本型<br /> .局部变量 文本b, 文本型<br /> .局部变量 文本c, 文本型<br /> <br /> t1 ＝ 取启动时间 ()<br /> .计次循环首 (10000000, )<br />     文本a ＝ “order”<br />     文本b ＝ “10086”<br />     文本c ＝ “ccc”<br />     结果文本 ＝ 短文本拼接 (文本a, 文本b, 文本c, “_”)<br /> .计次循环尾 ()<br /> 信息框 (到文本 (取启动时间 () － t1), 0, , )<br /> <br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 RtlMoveMemory, , "ntdll", "RtlMoveMemory", , 移动内存<br />     .参数 目标地址, 整数型, , Dest 要移动到的目标地址<br />     .参数 原地址, 整数型, , Src 被移动的原地址<br />     .参数 被复制的大小, 整数型, , length 被移动原地址的长度

please

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

APPLEUFO

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组累加_内存编辑	文本型		网友 易语飞扬写的   、  迄今为止最快 推荐
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
局变_分隔符长度	整数型
局变_长度组	整数型		0
局变_总长度	整数型
局变_总文本	文本型
局变_总指针
局变_指针当前位置
局变_I

如果 (是否为空 (参数_分隔符) ＝ 真)
参数_分隔符 ＝ #换行符



局变_分隔符长度 ＝ 取文本长度 (参数_分隔符)
重定义数组 (局变_长度组, 假, 取数组成员数 (参数_文本数组))
计次循环首 (取数组成员数 (参数_文本数组), 局变_I)
局变_长度组 [局变_I] ＝ 取文本长度 (参数_文本数组 [局变_I])
局变_总长度 ＝ 局变_总长度 ＋ 局变_长度组 [局变_I]
计次循环尾 ()
' 总长度 ＝ 所有文本长度之和 ＋ 分隔符长度 × (成员数-1)
如果真 (参数_分隔符 ≠ “”)
局变_总长度 ＝ 局变_总长度 ＋ 局变_分隔符长度 �� (取数组成员数 (参数_文本数组) － 1)

局变_总文本 ＝ 取空白文本 (局变_总长度)
局变_总指针 ＝ 取变量数据地址 (局变_总文本)
局变_指针当前位置 ＝ 局变_总指针
计次循环首 (取数组成员数 (参数_文本数组), 局变_I)
RtlMoveMemory_内存拷贝 (局变_指针当前位置, 参数_文本数组 [局变_I], 局变_长度组 [局变_I])
局变_指针当前位置 ＝ 局变_指针当前位置 ＋ 局变_长度组 [局变_I]
如果真 (局变_I ＜ 取数组成员数 (参数_文本数组) 且 参数_分隔符 ≠ “”)
RtlMoveMemory_内存拷贝 (局变_指针当前位置, 参数_分隔符, 局变_分隔符长度)
局变_指针当前位置 ＝ 局变_指针当前位置 ＋ 局变_分隔符长度

计次循环尾 ()
返回 (局变_总文本)

DLL命令名	返回值类型	公开	备 注
RtlMoveMemory_内存拷贝	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
RtlMoveMemory
参数名	类 型	传址	数组	备 注
Destination	整数型
Source	文本型
Length	整数型

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 转换模块_文本数组累加_内存编辑, 文本型, 公开, 网友 易语飞扬写的   、  迄今为止最快 推荐<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 局变_分隔符长度, 整数型<br /> .局部变量 局变_长度组, 整数型, , "0"<br /> .局部变量 局变_总长度, 整数型<br /> .局部变量 局变_总文本, 文本型<br /> .局部变量 局变_总指针<br /> .局部变量 局变_指针当前位置<br /> .局部变量 局变_I<br /> <br /> .如果 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .否则<br /> <br /> .如果结束<br /> <br /> 局变_分隔符长度 ＝ 取文本长度 (参数_分隔符)<br /> <br /> 重定义数组 (局变_长度组, 假, 取数组成员数 (参数_文本数组))<br /> <br /> .计次循环首 (取数组成员数 (参数_文本数组), 局变_I)<br />     局变_长度组 [局变_I] ＝ 取文本长度 (参数_文本数组 [局变_I])<br />     局变_总长度 ＝ 局变_总长度 ＋ 局变_长度组 [局变_I]<br /> .计次循环尾 ()<br /> <br /> ' 总长度 ＝ 所有文本长度之和 ＋ 分隔符长度 × (成员数-1)<br /> .如果真 (参数_分隔符 ≠ “”)<br />     局变_总长度 ＝ 局变_总长度 ＋ 局变_分隔符长度 × (取数组成员数 (参数_文本数组) － 1)<br /> .如果真结束<br /> <br /> 局变_总文本 ＝ 取空白文本 (局变_总长度)<br /> 局变_总指针 ＝ 取变量数据地址 (局变_总文本)<br /> 局变_指针当前位置 ＝ 局变_总指针<br /> <br /> .计次循环首 (取数组成员数 (参数_文本数组), 局变_I)<br />     RtlMoveMemory_内存拷贝 (局变_指针当前位置, 参数_文本数组 [局变_I], 局变_长度组 [局变_I])<br />     局变_指针当前位置 ＝ 局变_指针当前位置 ＋ 局变_长度组 [局变_I]<br />     .如果真 (局变_I ＜ 取数组成员数 (参数_文本数组) 且 参数_分隔符 ≠ “”)<br />         RtlMoveMemory_内存拷贝 (局变_指针当前位置, 参数_分隔符, 局变_分隔符长度)<br />         局变_指针当前位置 ＝ 局变_指针当前位置 ＋ 局变_分隔符长度<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (局变_总文本)<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 RtlMoveMemory_内存拷贝, 整数型, "kernel32.dll", "RtlMoveMemory"<br />     .参数 Destination, 整数型<br />     .参数 Source, 文本型<br />     .参数 Length, 整数型

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组累加_字节集对象	文本型		比较快的了  第二快
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
局变_字节集	快速字节集对象
ls	文本型

如果 (是否为空 (参数_分隔符) ＝ 真)
参数_分隔符 ＝ #换行符


' 用它自己传入的 参数_分隔符

. ' 计次循环首 (取数组成员数 (参数_文本数组), n1)
' 局变_字节集.添加 (到字节集 (参数_文本数组 [n1] ＋ 参数_分隔符))
. ' 计次循环尾 ()
' ls ＝ 到文本 (局变_字节集.取字节集 (, 局变_字节集.取长度 () － 取文本长度 (参数_分隔符)))
' ===============================================
局变_字节集.置字节集 (参数_文本数组)
局变_字节集.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )
ls ＝ 到文本 (局变_字节集.取字节集 (, 局变_字节集.取长度 () － 取文本长度 (参数_分隔符)))
返回 (ls)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 转换模块_文本数组累加_字节集对象, 文本型, 公开, 比较快的了  第二快 <br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 局变_字节集, 快速字节集对象<br /> .局部变量 ls, 文本型<br /> <br /> .如果 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .否则<br /> <br />     ' 用它自己传入的 参数_分隔符<br /> .如果结束<br /> <br /> .' 计次循环首 (取数组成员数 (参数_文本数组), n1)<br /> <br />     ' 局变_字节集.添加 (到字节集 (参数_文本数组 [n1] ＋ 参数_分隔符))<br /> <br /> .' 计次循环尾 ()<br /> <br /> ' ls ＝ 到文本 (局变_字节集.取字节集 (, 局变_字节集.取长度 () － 取文本长度 (参数_分隔符)))<br /> ' ===============================================<br /> <br /> 局变_字节集.置字节集 (参数_文本数组)<br /> 局变_字节集.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )<br /> ls ＝ 到文本 (局变_字节集.取字节集 (, 局变_字节集.取长度 () － 取文本长度 (参数_分隔符)))<br /> 返回 (ls)

你试试看  这两个      另外你测试也有问题  ，直接  弄两个随机文本数组，累加不就好了     输出一个文本型   ，也方便测试比较

wh1234567

感谢分享

year1970

感谢分享

嫂子

RtlMoveMemory  换copy

夏亿

感谢分享

h2995527

哈哈我也来了

呵呵仙

youximeng88 发表于 2026-7-7 10:21
你循环那么多次，没把全部内容合在一起，循环多少次都是一次的内容，所以用数组比较好，然后用精易模块的  ...

4750毫秒,还是太慢了.列表框.100万行*4~5列.打开软件.直接就秒赋完值了!.https://bbs.ijingyi.com/thread-14877855-1-1.html