按照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、输入任意长度字符串均可分割。