主题：格式化账号型字符

整个这个东西居然整出这么多代码,狐爸99.6分给不了,我测试20位以上的不满4位数,后面的就不会分出来.最后几位会连在一起,老程的没有问题.

那我自己回到90分。

 

99.9分

我也知道,代码没有100%DE ,哈哈.这段时间我学了很多东西.

祝贺，离满分不远了！

也来一个：

Dim s1 As String
Dim ss As String = "11112222333344445555666677778888999"

For i As Integer = 0 To ss.length\4-1
    s1 = s1 & ss.substring((i)*4,4) & " "
Next
output.show(s1 & ss.substring((ss.length\4)*4))

 

结果：1111 2222 3333 4444 5555 6666 7777 8888 999     ' *****争取90分呵呵····

Dim a As String = "11112222333344445555666677778888999"
Dim b As String = new RegularExpressions.Regex(".{4}").Replace(a, "$0 ")
output.show(b)

 

老兄，您总是这么出神入化，终于等到您这100分的出现了：

 

If e.Col.Name = "账号"
    Dim a As String =e.Text
    Dim b As String = new RegularExpressions.Regex(".{4}").Replace(a, "$0 ")
    e.Text = b
End If

明日测试去.不,今日就测试.