主题：格式化账号型字符

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

 

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

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

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

哪里不起作用？

我测试的可以呀

不会吧

你把附件传上来。

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

 

是不是这里的问题？