如何把数字中间插入字符

lchhome

文本为一数字串“000234611000”，如何每6个数字中间加个字符“，”号

寒潮

  

变量名	类 型	静态	数组	备 注
局_原始文本	文本型
局_循环次数	双精度小数型
局_新文本	文本型
局_计次	整数型
局_设定位数	整数型
局_添加字符	文本型

局_原始文本 ＝ “016658004C709770707070707070298070707070707090E070707070707090E049494949496F848070702F7070707070707036D8447070707070707070702F2F2F2F2F2F2F707070D4707070D4702F7040705F708E702C70”
局_设定位数 ＝ 6
局_添加字符 ＝ “,”
如果 (取文本长度 (局_原始文本) ％ 局_设定位数 ＝ 0)
局_循环次数 ＝ 取文本长度 (局_原始文本) ＼ 局_设定位数
局_循环次数 ＝ 取文本长度 (局_原始文本) ＼ 局_设定位数 ＋ 1
局_新文本 ＝ “”
计次循环首 (局_循环次数, 局_计次)
如果真 (局_新文本 ≠ “”)
局_新文本 ＝ 局_新文本 ＋ 局_添加字符
局_新文本 ＝ 局_新文本 ＋ 取文本中间 (局_原始文本, 局_计次 × 局_设定位数 － 局_设定位数 ＋ 1, 局_设定位数)
计次循环尾 ()
调试输出 (局_新文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_原始文本, 文本型<br /> .局部变量 局_循环次数, 双精度小数型<br /> .局部变量 局_新文本, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_设定位数, 整数型<br /> .局部变量 局_添加字符, 文本型<br /> <br /> 局_原始文本 ＝ “016658004C709770707070707070298070707070707090E070707070707090E049494949496F848070702F7070707070707036D8447070707070707070702F2F2F2F2F2F2F707070D4707070D4702F7040705F708E702C70”<br /> 局_设定位数 ＝ 6<br /> 局_添加字符 ＝ “,”<br /> .如果 (取文本长度 (局_原始文本) ％ 局_设定位数 ＝ 0)<br />     局_循环次数 ＝ 取文本长度 (局_原始文本) ＼ 局_设定位数<br /> .否则<br />     局_循环次数 ＝ 取文本长度 (局_原始文本) ＼ 局_设定位数 ＋ 1<br /> .如果结束<br /> 局_新文本 ＝ “”<br /> .计次循环首 (局_循环次数, 局_计次)<br />     .如果真 (局_新文本 ≠ “”)<br />         局_新文本 ＝ 局_新文本 ＋ 局_添加字符<br />     .如果真结束<br />     局_新文本 ＝ 局_新文本 ＋ 取文本中间 (局_原始文本, 局_计次 × 局_设定位数 － 局_设定位数 ＋ 1, 局_设定位数)<br /> .计次循环尾 ()<br /> 调试输出 (局_新文本)

心镜

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .局部变量 str, 文本型
   
5. .局部变量 i, 整数型
   
6. .局部变量 str2, 文本型
   
7. 
   
8. str ＝ “000234611000”
   
9. .计次循环首 (取文本长度 (str), i)
   
10.     str2 ＝ str2 ＋ 取文本中间 (str, i, 1)
    
11.     .如果真 (i ％ 6 ＝ 0)
    
12.         str2 ＝ str2 ＋ “,”
    
13.     .如果真结束
    
14. 
    
15. .计次循环尾 ()
    
16. 调试输出 (str2)
    

复制代码

sunsir

  

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

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

变量名	类 型	静态	数组	备 注
原文本	文本型
分割后	文本型		0
i	整数型
计次	整数型
重组	文本型

原文本 ＝ “000234611000000234611000000234611000000234611000000234611000000234611000000234611000000234611000”
文本_逐字分割 (原文本, 分割后)
计次循环首 (取数组成员数 (分割后), i)
重组 ＝ 重组 ＋ 分割后 [i]
计次 ＝ 计次 ＋ 1
如果真 (计次 ＝ 6)
重组 ＝ 重组 ＋ “,”
计次 ＝ 0

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原文本, 文本型<br /> .局部变量 分割后, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 重组, 文本型<br /> <br /> 原文本 ＝ “000234611000000234611000000234611000000234611000000234611000000234611000000234611000000234611000”<br /> 文本_逐字分割 (原文本, 分割后)<br /> <br /> <br /> .计次循环首 (取数组成员数 (分割后), i)<br /> <br />     重组 ＝ 重组 ＋ 分割后 <i><br />     计次 ＝ 计次 ＋ 1<br />     .如果真 (计次 ＝ 6)<br />         重组 ＝ 重组 ＋ “,”<br />         计次 ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (重组)

原子

子文本替换（“0023461100”，“6”，“6，”）

lchhome

字符串长度是变量，不固定的，字符也不固定

fengshixiaohu

lchhome 发表于 2020-2-14 12:39
字符串长度是变量，不固定的，字符也不固定

````感觉大佬们给的办法你都不去尝试啊，长度是变量，你自己弄个随机数字测试就OK了···