Foxtable(狐表)用户栏目专家坐堂 → 格式化账号型字符


  共有24431人关注过本帖树形打印复制链接

主题:格式化账号型字符

帅哥哟,离线,有人找我吗?
程兴刚
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 9:07:00 [只看该作者]

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楼一样

[此贴子已经被作者于2011-5-10 9:08:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 9:52:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/5/10 11:14:00 [只看该作者]

If e.Col.Name = "账号"
    Dim s,s1 As String
    s = e.Text 
    Do While s.Length > 4
        s1= s1 & " " & s.SubString(0,4)
        s= s.Remove(0,4)
    Loop   
    e.Text=(s1 & " " & s).SubString(1)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/10 11:16:00 [只看该作者]

33楼99分。

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 11:30:00 [只看该作者]

再来一个,能给补一分吗:

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/10 11:30:00 [只看该作者]

99.5

 

图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 11:32:00 [只看该作者]

这是35楼的示例文件:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.rar


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/10 11:36:00 [只看该作者]

老程好厉害,佩服

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/10 11:38:00 [只看该作者]

在老程的基础上改进,可以得99.6分:

 

If e.Col.Name = "账号"
    Dim m As Integer = math.Ceiling(e.Text.Length / 4) * 4
    For n As Integer = 4 To m - 1 Step 5
        e.Text = e.Text.Insert(n," ")
    Next
End If


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 11:38:00 [只看该作者]

哈哈,惭愧,我已经是黔驴技穷了,接下来我图片点击可在新窗口打开查看就该坐等100分出现了!

 回到顶部
总数 60 上一页 1 2 3 4 5 6 下一页