主题：格式化账号型字符

按照2楼的例子改了一下，符合输入任意长度字符串均可实现按规律分割的要求：

 

 

If e.Col.Name = "账号"

    Dim s As String = "," & e.Text

    For i As Integer = 1 To (len(s)\5+(len(s)\5)\5)

        s = s.Insert(i*5," ")

    Next

    e.Text = s.Replace(",","")

End If

 

 

1、循环次数减少N倍(N= 分割后的每小段字符串个数)；

2、调整数字5，可分割为个人所需的理想长度，该公式一样可为通用；

3、输入任意长度字符串均可分割。

27楼已经满足绝大多数人的使用，但字符串长度过长的时候，会导致最后一段字符串超过指定个数不能分割，再修改一下，确保字符型列255个字符串都能完全分割，个中缘由望大家来思考，不为别的，只求多一种思路和技巧：

 

If e.Col.Name = "账号"
    Dim s As String = "," & e.Text
    For i As Integer = 1 To (len(s)\5+(len(s)\5)\5+((len(s)\5)\5)\5)
        s = s.Insert(i*5," ")
    Next
    e.Text = s.Replace(",","")
End If

 

原理和27楼一样

应该还有简洁方法，大家先想想，抽空我也试一试！

再来一个，能给补一分吗：

 

If e.Col.Name = "账号"
    Dim s As String = e.Text
    For i As Integer = 4 To (len(s)+len(s)\4) Step 5
        s = s.Insert(i," ")
    Next
    e.Text = s
End If

这是35楼的示例文件：

 

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

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

哈哈，惭愧，我已经是黔驴技穷了，接下来我就该坐等100分出现了！

祝贺，离满分不远了！

 

老兄，您总是这么出神入化，终于等到您这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

我那个35楼的代码也还可以精简一下：

 

If e.Col.Name = "账号"
    For i As Integer = 4 To (len(e.Text)+len(e.Text)\4) Step 5
        e.Text = e.Text.Insert(i," ")
    Next
End If

      http://msdn.microsoft.com/zh-cn/library/system.text.regularexpressions.regex.replace.aspx