求助这种文本怎么搞

xy19981013

例如编辑框里有1234567891234567894我想把这串数字弄成1234-5678-9123-4567-894
这样怎么弄 请大佬指点

随缘de幻想

  

子程序名	返回值类型	公开	备 注
test

变量名	类 型	静态	数组	备 注
str	文本型
array	文本型		0
i	整数型
ret	文本型

str ＝ “1234567891234567894”
文本_逐字分割 (str, array)
调试输出 (array)
计次循环首 (取数组成员数 (array), i)
ret ＝ ret ＋ array [i]
如果真 (i ％ 4 ＝ 0)
ret ＝ ret ＋ “-”

计次循环尾 ()
调试输出 (ret)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 test<br /> .局部变量 str, 文本型<br /> .局部变量 array, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ret, 文本型<br /> <br /> str ＝ “1234567891234567894”<br /> 文本_逐字分割 (str, array)<br /> 调试输出 (array)<br /> .计次循环首 (取数组成员数 (array), i)<br />     ret ＝ ret ＋ array <i><br />     .如果真 (i ％ 4 ＝ 0)<br />         ret ＝ ret ＋ “-”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (ret)

yanmo

  

变量名	类 型	静态	数组	备 注
aa	文本型
i	整数型
过度	文本型

aa ＝ “1234567891234567894”
变量循环首 (1, 取文本长度 (aa), 4, i)
判断 (i ＝ 1)
过度 ＝ 取文本中间 (aa, i, 4)
过度 ＝ 过度 ＋ “--” ＋ 取文本中间 (aa, i, 4)

变量循环尾 ()
调试输出 (过度)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 aa, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 过度, 文本型<br /> <br /> aa ＝ “1234567891234567894”<br /> .变量循环首 (1, 取文本长度 (aa), 4, i)<br />     .判断开始 (i ＝ 1)<br />         过度 ＝ 取文本中间 (aa, i, 4)<br />     .默认<br />         过度 ＝ 过度 ＋ “--” ＋ 取文本中间 (aa, i, 4)<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> 调试输出 (过度)

随缘de幻想

.版本 2
.支持库 spec

.子程序 test
.局部变量 str, 文本型
.局部变量 array, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ret, 文本型

str ＝ “1234567891234567894”
文本_逐字分割 (str, array)
调试输出 (array)
.计次循环首 (取数组成员数 (array), i)
    ret ＝ ret ＋ array [i]
    .如果真 (i ％ 4 ＝ 0)
        ret ＝ ret ＋ “-”
    .如果真结束

.计次循环尾 ()
调试输出 (ret)

缥缈君

.版本 2
.支持库 spec

.子程序 test
.局部变量 str, 文本型
.局部变量 array, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ret, 文本型

str ＝ “1234567891234567894”
文本_逐字分割 (str, array)
调试输出 (array)
.计次循环首 (取数组成员数 (array), i)
    ret ＝ ret ＋ array [i]
    .如果真 (i ％ 4 ＝ 0)
        ret ＝ ret ＋ “-”
    .如果真结束

.计次循环尾 ()
调试输出 (ret)

lufanjingyi

直接取出指定长度的文本  然后中间加符号哇