主题：格式化账号型字符

 想把16位账号类的数字字符没4位间隔开，方便浏览及核对，要怎么做，用自定义函数吗？
       如：3232677728882888要在表格里显示成3232 6777 2888 2888

我做了个例子，系统检测输入的账号是否是16位，如果是的，就每4位隔开显示：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.table

如果事先不能确定每个账号的长度，代码如何写？

留给你做练习，先自己写一下看看

 

If e.Col.Name = "第一列"

    Dim Names() As Integer

    Dim s As String=e.text

    Dim m As Integer=s.length \ 4

    Select Case m

        Case 1

            e.text=s.substring(0,4) & " " & s.substring(4,s.length Mod 4)

        Case 2

            e.text=s.substring(0,4) & " " & s.substring(4,4) & " " & s.substring(4,s.length Mod 4)

        Case 3

            e.text=s.substring(0,4) & " " & s.substring(4,4) & " " & s.substring(8,4) & " " & s.substring(4,s.length Mod 4)

        Case 4

        Case 5

        Case 6

    End Select

End If

有没有人可以简化一下这个代码？

作业完成，是否可以得分?

不起作用

哪里不起作用？