怎么在一段文本中每隔四位加入"-"

刘军boss

如：
3514-4824-3710-6826-8631
要如何循环，请大神写下

95First

很多方法，只是其中一种！（供参考）

dice1412

循环 取文本左边4位
然后拼接起来啊

韦贝贝

逐字分割然后计次循环4加入-。

唐长老网络

.版本 2

.程序集 窗口程序集_窗口1

.子程序 _按钮1_被单击
.局部变量 长度, 整数型
.局部变量 取的次数, 整数型
.局部变量 a, 整数型

长度 ＝ 取文本长度 (编辑框1.内容)
取的次数 ＝ 长度 ÷ 4
.计次循环首 (取的次数, a)
    编辑框2.加入文本 (取文本中间 (编辑框1.内容, 4 × a － 3, 4) ＋ “-”)
.计次循环尾 ()

幻月工作室

正则替换
\d{4}(?!$)

taohongsen1990

.版本 2

.子程序 字符串_增加指定数据, 文本型, 公开, 增加指定的数据,例如xxxxxxxx→xx:xx:xx:xx
.参数 被增加的数据, 文本型, , 初始数据
.参数 欲增加的数据, 文本型, , 需要增加的数据
.参数 数据间隔, 整数型, , 文本数据的间隔
.局部变量 文本_临时变量, 文本型
.局部变量 数值_临时变量, 整数型
.局部变量 计次, 整数型
.局部变量 文本_拆分结果, 文本型
.局部变量 文本_临时数据, 文本型

文本_临时变量 ＝ 删首尾空 (被增加的数据)
文本_临时数据 ＝ 删首尾空 (欲增加的数据)
.如果 (取文本长度 (文本_临时变量) ％ 数据间隔 ＝ 0)
    数值_临时变量 ＝ 取文本长度 (文本_临时变量) ÷ 数据间隔
.否则

    数值_临时变量 ＝ 取文本长度 (文本_临时变量) ÷ 数据间隔 ＋ 1
.如果结束

.计次循环首 (数值_临时变量, 计次)
    .如果 (计次 ＝ 1)
        文本_拆分结果 ＝ 取文本中间 (文本_临时变量, 1, 数据间隔) ＋ 文本_临时数据
    .否则

        文本_拆分结果 ＝ 文本_拆分结果 ＋ 取文本中间 (文本_临时变量, (计次 － 1) × 数据间隔 ＋ 1, 数据间隔) ＋ 文本_临时数据
    .如果结束

.计次循环尾 ()
文本_拆分结果 ＝ 取文本中间 (文本_拆分结果, 1, 取文本长度 (文本_拆分结果) － 1)
返回 (文本_拆分结果)




这个可以随便几位间隔