请各位大神帮助二进制文本替换的问题

scx1125

我写了个二进制的替换，源码在下面，大神们可以看看，比如说一串二进制数字为“1010101010101010”，我直接写一个替换位置和替换长度还有替换数值就可以替换掉，而且，替换位置是倒的，比如我想替换位置为2，替换长度为1，数值为2，那上面那串数值就要变成“1010101010101210”，比如，二进制替换（这是二进制，然后我写完以后试了一下，其他都没有问题，但是遇到11111111111这样数字一模一样的，就会完全相反，我想要的结果比如替换位置2，长度1，数值2，那就应该是11111111211，但是它会变成11211111111，请各位大神帮忙看一下问题在哪里

  

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

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

子程序1 (到整数 (编辑框3.内容), 到整数 (编辑框4.内容), 到整数 (编辑框5.内容))

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
二进制位置	整数型
二进制长度	整数型
写入的值	长整数型

变量名	类 型	静态	数组	备 注
二进制原数值	文本型
欲被替换内容	文本型
替换文本内容	文本型

二进制原数值 ＝ 编辑框1.内容
调试输出 (二进制原数值)
欲被替换内容 ＝ 取文本右边 (取文本左边 (二进制原数值, 取文本长度 (二进制原数值) － 二进制位置), 二进制长度)
编辑框6.内容 ＝ 欲被替换内容
替换文本内容 ＝ 取文本右边 (到文本 (写入的值 ＋ 求次方 (10, 二进制长度)), 二进制长度)
调试输出 (替换文本内容)
编辑框2.内容 ＝ 文本_替换 (二进制原数值, 1, 取文本长度 (欲被替换内容) ＋ 1 － 二进制位置 － 二进制长度, 真, 欲被替换内容, 替换文本内容)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子程序1 (到整数 (编辑框3.内容), 到整数 (编辑框4.内容), 到整数 (编辑框5.内容))<br /> <br /> .子程序 子程序1<br /> .参数 二进制位置, 整数型<br /> .参数 二进制长度, 整数型<br /> .参数 写入的值, 长整数型<br /> .局部变量 二进制原数值, 文本型<br /> .局部变量 欲被替换内容, 文本型<br /> .局部变量 替换文本内容, 文本型<br /> <br /> 二进制原数值 ＝ 编辑框1.内容<br /> 调试输出 (二进制原数值)<br /> 欲被替换内容 ＝ 取文本右边 (取文本左边 (二进制原数值, 取文本长度 (二进制原数值) － 二进制位置), 二进制长度)<br /> 编辑框6.内容 ＝ 欲被替换内容<br /> 替换文本内容 ＝ 取文本右边 (到文本 (写入的值 ＋ 求次方 (10, 二进制长度)), 二进制长度)<br /> 调试输出 (替换文本内容)<br /> 编辑框2.内容 ＝ 文本_替换 (二进制原数值, 1, 取文本长度 (欲被替换内容) ＋ 1 － 二进制位置 － 二进制长度, 真, 欲被替换内容, 替换文本内容)

墓志铭

.版本 2
.支持库 spec

.子程序 子程序1
.参数 二进制位置, 整数型
.参数 二进制长度, 整数型
.参数 写入的值, 长整数型
.局部变量 二进制原数值, 文本型
.局部变量 欲被替换内容, 文本型
.局部变量 替换文本内容, 文本型
.局部变量 左边位置, 整数型
.局部变量 右边位置, 整数型

二进制原数值 ＝ 编辑框1.内容
左边位置 ＝ 取文本长度 (二进制原数值) － 二进制长度 － 二进制位置
右边位置 ＝ 二进制位置
欲被替换内容 ＝ 取文本中间 (二进制原数值, 左边位置, 二进制长度)
编辑框6.内容 ＝ 欲被替换内容
替换文本内容 ＝ 取文本右边 (到文本 (写入的值 ＋ 求次方 (10, 二进制长度)), 二进制长度)
调试输出 (替换文本内容)
编辑框2.内容 ＝ 取文本左边 (二进制原数值, 左边位置) ＋ 替换文本内容 ＋ 取文本右边 (二进制原数值, 右边位置)