按规则分割文本

zhuandajia

规则是：
一个随机7位数的数字和中文进行打乱。
比如：1000000易1234567语言1234567
应该怎么分割才能把以上内容分割为
10000000
易
1234567
语
言
134567
这个应该怎么写，最好附上源码！
给10精币

小马过河

[e].版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 子文本, 文本型
.局部变量 文本长度, 整数型
.局部变量 文本2, 文本型
.局部变量 计次, 整数型
.局部变量 是否, 逻辑型

文本 ＝ 到全角 (编辑框1.内容)
文本长度 ＝ 取文本长度 (文本) ÷ 2
.计次循环首 (文本长度, 计次)
    子文本 ＝ 取文本左边 (文本, 2)
    是否 ＝ 假
    文本 ＝ 文本替换 (文本, 1, 2, )

    ' 子文本替换 (文本, 子文本, , , 1, 真)
    .如果真 (文本_是否为汉字 (子文本) ＝ 真)
        是否 ＝ 真
    .如果真结束
    .如果 (是否 ＝ 真)
        文本2 ＝ 文本2 ＋ #换行符 ＋ 到半角 (子文本) ＋ #换行符
    .否则
        文本2 ＝ 文本2 ＋ 到半角 (子文本)
    .如果结束

    调试输出 (文本)

.计次循环尾 ()


编辑框1.内容 ＝ 文本2

[/e]


这是源码，给钱吧。其中用到【精易模块】的两个命令，自己找吧。。{:3_244:}

切尼

判断是文字还是数字可以么？

zhuandajia

你加一个判断汉字的子程序吧
我的判断还不完善。。

zhuandajia

只要安规则分割成一定的文本文本就可以。。
比如数组[1]=1000000
数组[2]=易
...

爱的凌迟

这个好像用不到分割分本的命令吧

zhuandajia

分割只是描述，不是方法。。。

7291002

看到了 高手真的不少啊

金哥专用

你确定你的文本全部是数字+汉子的格式吗？

exit11

[e].版本 2
.支持库 RegEx
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 a, 文本型
.局部变量 正则1, 正则表达式
.局部变量 结果1, 搜索结果, , "0"
.局部变量 b, 文本型
.局部变量 正则2, 正则表达式_
.局部变量 结果2, 整数型
.局部变量 x, 整数型

a ＝ “1000000易1234567语言1234567”
b ＝ “(([^” ＋ 字符 (1) ＋ “-” ＋ 字符 (128) ＋ “ ]{2})+)”
正则1.创建 (“(\d{1,})” ＋ b ＋ “([0-9]{1,})” ＋ b ＋ “(\d{1,})”, )
结果1 ＝ 正则1.搜索全部 (a)
.计次循环首 (7, x)
    调试输出 (结果1 [1].取子匹配文本 (a, x, ))  ' 自带正则很麻烦，第2和第6是多余的
.计次循环尾 ()
' ================
返回 ()

正则2.创建_ (“(\d{1,})” ＋ “([\u4e00-\u9fa5]+)” ＋ “(\d{1,})” ＋ “([\u4e00-\u9fa5]+)” ＋ “(\d{1,})”)
结果2 ＝ 正则2.搜索全部_ (a)
.计次循环首 (5, x)
    调试输出 (正则2.取子匹配文本_ (1, x))  ' 模块的可以直接取出
.计次循环尾 ()[/e]