文本多行，每两个字符加一个逗号

luohao · 发表于 2022-7-17 16:37:20

求帮助比如一个文本是多行的
1234654646
1234654646
1234654646
1234654646
1234654646
1234654646

处理完是这样的
12,34,65,46,46
12,34,65,46,46
12,34,65,46,46
12,34,65,46,46
12,34,65,46,46
12,34,65,46,46

企鹅号525150138 · 发表于 2022-7-17 16:37:21

demo.e (995.55 KB, 下载次数: 9)

企鹅号525150138 · 发表于 2022-7-17 16:48:34

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 wbsz, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 text, 文本型
.局部变量 ii, 整数型

wbsz ＝分割文本 (#常量1, #换行符, )
.计次循环首 (取数组成员数 (wbsz), i)

.变量循环首 (1, 取文本长度 (wbsz [i]), 2, ii)

      .如果 (ii ＝取文本长度 (wbsz [i]) － 1)
         .如果 (取数组成员数 (wbsz) ＝ i)
            text ＝ text ＋取文本中间 (wbsz [i], ii, 2)
         .否则
            text ＝ text ＋取文本中间 (wbsz [i], ii, 2) ＋ #换行符
         .如果结束

      .否则
         text ＝ text ＋取文本中间 (wbsz [i], ii, 2) ＋ “,”
      .如果结束

.变量循环尾 ()

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

caoljie · 发表于 2022-7-17 16:48:41

正则替换 (\d{2,2})

补充内容 (2022-7-17 16:51):
.版本 2
.支持库 spec

.局部变量正则, 正则表达式类

正则.创建 (“(\d{2,2})”, #常量1, , , , )
调试输出 (正则.替换 (“$1,”))

luohao · 发表于 2022-7-17 16:56:58

企鹅号525150138 发表于 2022-7-17 16:48
.版本 2
.支持库 spec

大佬写个信息框文件可好

luohao · 发表于 2022-7-17 17:08:54

企鹅号525150138 发表于 2022-7-17 17:02

太棒了大佬

		自动登录	找回密码
密码			注册

[已解决] 文本多行，每两个字符加一个逗号

最佳答案

评分

点评