以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：1234567890123456如何快速拆分成1234-5678-9012-3456呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92171)
--  作者：李孝春
--  发布时间：2016/10/27 22:39:00
--  求助：1234567890123456如何快速拆分成1234-5678-9012-3456呢？
求助：1234567890123456如何快速拆分成1234-5678-9012-3456呢？

Dim s As String = "1234567890123456"

Dim str As String = s.SubString(0,4) & "-" & s.SubString(4,4) & "-" &  s.SubString(8,4) & "-" & s.SubString(12,4)

除了这个写法以外
--  作者：有点蓝
--  发布时间：2016/10/27 23:00:00
--  
Dim s As String = "1234567890123456"
Dim idx As Integer = 0
For i As Integer = 4 To s.Length - 1 Step 4
    s = s.Insert(i+idx,"-")
    idx += 1
Next
Output.Show(s)
--  作者：有点蓝
--  发布时间：2016/10/27 23:05:00
--  
Dim s As String = "1234567890123456"
Dim p As String = ".{4}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Output.Show(rgx.Replace(s, "$0-"))
--  作者：李孝春
--  发布时间：2016/10/27 23:35:00
--  回复：（有点蓝）Dim s As String = "123456789012345...
参照二楼的方法

Dim s As String = "13885448544"
Dim idx As Integer = 0
For i As Integer = 3 To s.Length - 1 Step 4
    s = s.Insert(i+idx,"-")
    idx += 1
Next
Output.Show(s)

仿写可以拆分电话号码为138—8544-8544



参照三楼的方法：
Dim s As String = "13885448544"
Dim p As String = ".{3}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Output.Show(rgx.Replace(s, "$0-"))

得到的拆分号码是138-854-485-44  是否也可以实现拆分电话号码为138—8544-8544呢？
--  作者：狐狸爸爸
--  发布时间：2016/10/28 8:00:00
--  
哈哈，这样简单点：

Dim s As String = "1234567890123456"
Return Format(val(s),"0000-0000-0000-0000")
--  作者：blackzhu
--  发布时间：2016/10/28 8:35:00
--  
 牛
--  作者：李孝春
--  发布时间：2016/11/1 16:36:00
--  回复：（狐狸爸爸）哈哈，这样简单点：Dim s As Strin...
谢谢  呵呵 
--  作者：Hopenight
--  发布时间：2016/11/1 17:08:00
--  
以下是引用狐狸爸爸在2016/10/28 8:00:00的发言：
哈哈，这样简单点：

Dim s As String = "1234567890123456"
Return Format(val(s),"0000-0000-0000-0000")

不得不承认：

姜，还是老的辣