排序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 排序问题

共有5055人关注过本帖树形打印复制链接主题：排序问题

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/20 9:02:00 [显示全部帖子]

字符串是从左到右排序的，所以“A1”比“A10小”，“A10”比“A2”小，如果要字符串按数值排序，需要补齐，比如“A1”改为“A01”、“A2”改为“A02”，就可以按"A01、A02、....、A10"正常排序了。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/20 9:12:00 [显示全部帖子]

另外增加一个排序列，手工排好序

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/20 11:16:00 [显示全部帖子]

如果数据没有什么规律，没有办法处理，建议增加排序列

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/20 11:44:00 [显示全部帖子]

Dim s As String = "T75D/SF20D"

Dim p As String = "\D+"

Dim r As New System.Text.RegularExpressions.Regex(p)

Dim str = r.Split(s)

For Each a As String In str

If a > "" Then

s = s.Replace(a, a.PadLeft(3, "0"))

End If

msgbox(s)

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/20 14:25:00 [显示全部帖子]

正则校验。具体网上搜搜吧

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/20 15:06:00 [显示全部帖子]

有重复的内容，换种方法

Dim s As String = "C26S/2"

Dim p As String = "\d+"

Dim str = System.Text.RegularExpressions.Regex.Replace(s, p, New MatchEvaluator(Function(a As Match) As String

Return a.Value.PadLeft(3, "0")

End Function ))

Output.Show(str)

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

主题：排序问题