以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在TextBox1内输入数字后显示指定格式，怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133452)
--  作者：zto001
--  发布时间：2019/4/14 16:43:00
--  [求助]在TextBox1内输入数字后显示指定格式，怎么写
[求助]在TextBox1内输入数字后显示指定格式，怎么写
，我输入01234567890123，
它显示称0123-4567-8901-23
显示出来的每隔4位中间就有“-”怎么写？
我之前插入字符串的方式，插入一次没事，插入多次就不行了。
--  作者：有点甜
--  发布时间：2019/4/14 17:28:00
--  

参考

 

Dim str = "1234567890"
str = System.Text.RegularExpressions.Regex.Replace(str, "(\\d{4}(?!$))", "$1 ")
msgbox(str)