编辑框之间相互取数问题

softking

例如编辑框1内容=123时，取第一位1的时候对应编辑框2的前2为是A1,取第二位2的时候对应编辑框2的3和4位是A2, 取第三位3的时候对应编辑框2的5和6位是A3, 结果编辑框2的内容=0A10A20A3，当编辑框1内容=456时，取第一位4的时候对应编辑框2的前2为是B1,取第二位5的时候对应编辑框2的3和4位是B2, 取第三位6的时候对应编辑框2的5和6位是B3, 结果编辑框2的内容=0B10B20B3，编辑框2内容中每组数值不足3位用0在前面补充，说的有点繁琐，还想大佬指点一下，最好弄个demo实例,谢谢！

Ruang

温柔小仙女

  

变量名	类 型	静态	数组	备 注
字母映射	文本型		0

.版本 2<br /> <br /> .局部变量 字母映射, 文本型, , "0"

2.e (4.34 KB, 下载次数: 2)

前天 16:56 上传

点击文件名下载附件


补充内容 (2025-7-31 16:58):
下载源码即可！~

温柔小仙女

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
字母映射	文本型	0

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

重定义数组 (字母映射, 假, 6)
字母映射 [1] ＝ “A”
字母映射 [2] ＝ “A”
字母映射 [3] ＝ “A”
字母映射 [4] ＝ “B”
字母映射 [5] ＝ “B”
字母映射 [6] ＝ “B”

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
输入数字	文本型
结果	文本型
i	整数型
当前数字	整数型
当前字母	文本型

输入数字 ＝ 编辑框1.内容
如果 (取文本长度 (输入数字) ≠ 3 或 是否为数字 (输入数字) ＝ 假)
编辑框2.内容 ＝ “请输入3位数字”
返回 ()



结果 ＝ “”
计次循环首 (3, i)
当前数字 ＝ 到整数 (取文本中间 (输入数字, i, 1))
' 获取对应的字母
如果 (当前数字 ≥ 1 且 当前数字 ≤ 6)
当前字母 ＝ 字母映射 [当前数字]
当前字母 ＝ “X”

结果 ＝ 结果 ＋ “0” ＋ 当前字母 ＋ 到文本 (当前数字)
计次循环尾 ()
编辑框2.内容 ＝ 结果

子程序名	返回值类型	公开	备 注
是否为数字	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取文本长度 (文本), i)
如果 (取代码 (文本, i) ＜ 48 或 取代码 (文本, i) ＞ 57)
返回 (假)



计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 字母映射, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 重定义数组 (字母映射, 假, 6)<br /> 字母映射 [1] ＝ “A”<br /> 字母映射 [2] ＝ “A”<br /> 字母映射 [3] ＝ “A”<br /> 字母映射 [4] ＝ “B”<br /> 字母映射 [5] ＝ “B”<br /> 字母映射 [6] ＝ “B”<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 输入数字, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 当前数字, 整数型<br /> .局部变量 当前字母, 文本型<br /> <br /> 输入数字 ＝ 编辑框1.内容<br /> .如果 (取文本长度 (输入数字) ≠ 3 或 是否为数字 (输入数字) ＝ 假)<br />     编辑框2.内容 ＝ “请输入3位数字”<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> 结果 ＝ “”<br /> .计次循环首 (3, i)<br />     当前数字 ＝ 到整数 (取文本中间 (输入数字, i, 1))<br />     ' 获取对应的字母<br />     .如果 (当前数字 ≥ 1 且 当前数字 ≤ 6)<br />         当前字母 ＝ 字母映射 [当前数字]<br />     .否则<br />         当前字母 ＝ “X”<br />     .如果结束<br /> <br />     结果 ＝ 结果 ＋ “0” ＋ 当前字母 ＋ 到文本 (当前数字)<br /> .计次循环尾 ()<br /> <br /> 编辑框2.内容 ＝ 结果<br /> <br /> .子程序 是否为数字, 逻辑型<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取文本长度 (文本), i)<br />     .如果 (取代码 (文本, i) ＜ 48 或 取代码 (文本, i) ＞ 57)<br />         返回 (假)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

Ruang

表述好像不够全，看样子结果只有0B10B20B3，0A10A20A3

zainex

新建窗口程序, 添加两个编辑框, 使用下面的代码:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数组	文本型	256

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

变量名	类 型	静态	数组	备 注
前缀	文本型
数	整数型

计次循环首 (9, 数)
判断 (数 ≤ 3)
数组 [取代码 (到文本 (数), ) ＋ 1] ＝ “A” ＋ 到文本 (数)
判断 (数 ≤ 6)
数组 [取代码 (到文本 (数), ) ＋ 1] ＝ “B” ＋ 到文本 (数 － 3)
数组 [取代码 (到文本 (数), ) ＋ 1] ＝ “C” ＋ 到文本 (数 － 6)

计次循环尾 ()
调试输出 (数组)

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
内容	字节集
数	整数型
结果	文本型
文本	文本型

内容 ＝ 到字节集 (编辑框1.内容)
计次循环首 (取字节集长度 (内容), 数)
文本 ＝ 数组 [内容 [数] ＋ 1]
如果真 (文本 ≠ “”)
结果 ＝ 结果 ＋ “0” ＋ 文本

计次循环尾 ()
编辑框2.内容 ＝ 结果

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组, 文本型, , "256"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 前缀, 文本型<br /> .局部变量 数, 整数型<br /> <br /> .计次循环首 (9, 数)<br />     .判断开始 (数 ≤ 3)<br />         数组 [取代码 (到文本 (数), ) ＋ 1] ＝ “A” ＋ 到文本 (数)<br />     .判断 (数 ≤ 6)<br />         数组 [取代码 (到文本 (数), ) ＋ 1] ＝ “B” ＋ 到文本 (数 － 3)<br />     .默认<br />         数组 [取代码 (到文本 (数), ) ＋ 1] ＝ “C” ＋ 到文本 (数 － 6)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> <br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 内容, 字节集<br /> .局部变量 数, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 内容 ＝ 到字节集 (编辑框1.内容)<br /> .计次循环首 (取字节集长度 (内容), 数)<br />     文本 ＝ 数组 [内容 [数] ＋ 1]<br />     .如果真 (文本 ≠ “”)<br />         结果 ＝ 结果 ＋ “0” ＋ 文本<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 结果

Ruang

仅支持1-6的数字转换，7-0不进行转换出来

Ruang

依据你的要求1-0全部转换结果如图

补充内容 (2025-7-31 17:59):
如有问题请提出

softking

Ruang 发表于 2025-7-31 17:58
依据你的要求1-0全部转换结果如图

补充内容 (2025-7-31 17:59):

不好意思，确实没有表达清楚，假如编辑框1内容中有字母的时候，比如编辑框1的内容为ABC字母的时候，编辑框2的内容为C1C2C3,每组数值不足3为用0在前面补充，麻烦再指教一下，感谢了。