don老师看看这个"A|A|A....|...S|A|A|A|A" 可以吗？【应该是解决了】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → don老师看看这个"A|A|A....|...S|A|A|A|A" 可以吗？【应该是解决了】

共有20742人关注过本帖树形打印复制链接主题：don老师看看这个"A\|A\|A....\|...S\|A\|A\|A\|A" 可以吗？【应该是解决了】

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/6 18:24:00 [显示全部帖子]

呵呵，估计大家和我一样，不敢献丑，直接等着看你的答案。

Dim s1 As string = "0|1|2|3|4|5|6|7|8|9|10"
Dim Count As Integer
For i as integer = 0 to s1.length - 1
    if s1(i) = "|" Then
        Count = Count + 1
        if Count = 5 Then '假定删除第五个
            s1 = s1.remove(i,1)
            Exit for
        End if
    End if
Next
Output.show(s1)

[此贴子已经被作者于2009-5-6 18:25:30编辑过]