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" 可以吗？【应该是解决了】

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

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

don老师看看这个"A|A|A....|...S|A|A|A|A" 可以吗？【应该是解决了】 发帖心情

Post By：2009/5/6 13:14:00 [只看该作者]

Dim Multi As string = "A|A|A|A|AC|A|A|V|A|S|A|A|A|A|AC|A|A|V|A|S|A|A|A|A"
dim hm as string
Dim Values as String()
Values = Multi.split("|")
For i As Integer = 0 To Multi.split("|").Length-1
    hm = hm & "" & values(i)
Next
        output.show(hm)

最后的问题与解答在6楼。应该是搞定了～

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

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2009/5/6 13:20:00 [只看该作者]

全部用REPLACE即可.

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/5/6 13:30:00 [只看该作者]

以下是引用don在2009-5-6 13:15:00的发言：

我说的是第N个,如第3个,不是全部

Dim Multi As string = "A|A|A|A|AC|A|A|V|A|S|A|A|A|A|AC|A|A|V|A|S|A|A|A|A"
output.show(multi.remove(5,1))
结果：A|A|AA|AC|A|A|V|A|S|A|A|A|A|AC|A|A|V|A|S|A|A|A|A

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2009/5/6 13:35:00 [只看该作者]

呵呵,累不累?两贴重复一个问题.

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/5/6 13:48:00 [只看该作者]

以下是引用don在2009-5-6 13:35:00的发言：

呵呵,累不累?两贴重复一个问题.

只在这边做了～

[此贴子已经被作者于2009-5-6 16:59:55编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/5/6 17:04:00 [只看该作者]

don老师的问题：
字符串: T = "A|A|A|A|AC|A|A|V|A|S|A|A|A|A|AC|A|A|V|A|S|A|A|A|A"
1.如何删除T第n个"|"?
2.如何知道第n个"|"在T中的位置?

我的解答（改了点字符串便于视图）：不知道有没有遗漏什么，大家看看～
Dim Multi As string = "AB|AV|AD|AE|AC|AW|B|V|A|S|SA|AX|AZ|AH|AC|AK|AL|VA|HA"
Dim hm as string
Dim hn as integer
Dim Values as String()
Values = Multi.split("|")
For i As Integer = 0 to Values.Length-1
    hn = hn + values(i).length
    If i = 13 Then '这里用全局变量来确定任何小于 Multi.split("|").Length-1 个数的值吧～
        Exit For
    End If
    hm = multi.remove(hn+i,1)
Next
output.show(hm & "     清除了第 i 个 '|' 的位置")
结果：AB|AV|AD|AE|AC|AW|B|V|A|S|SA|AX|AZAH|AC|AK|AL|VA|HA

[此贴子已经被作者于2009-5-6 17:28:47编辑过]

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2009/5/6 18:05:00 [只看该作者]

大概是这个,不知其他狐友有没更好的办法.
唉,只有你我有点兴致,不是滋味

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/5/6 18:37:00 [只看该作者]

以下是引用狐狸爸爸在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编辑过]

还是狐爸的简单！！！你等不是怕献丑，是细水常流式的‘滴灌’吧～我辈初学人，就怕没有献丑的机会～呵呵图片点击可在新窗口打开查看

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/5/6 23:06:00 [只看该作者]

用正则表达式代码能简单点
Dim rx As New System.Text.RegularExpressions.Regex("(?<=(.+\|){4}.+)\|")
Return rx.Replace("1|2|3|4|5|6|7","",1)

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：don老师看看这个"A|A|A....|...S|A|A|A|A" 可以吗？【应该是解决了】