Foxtable(狐表)用户栏目专家坐堂 → 请教,有汉字数组,如何实现进行排序?


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

主题:请教,有汉字数组,如何实现进行排序?

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
请教,有汉字数组,如何实现进行排序?  发帖心情 Post By:2010/2/9 23:43:00 [只看该作者]

例如:dim s() as string = {"我们","中国","中央","社会","集体"} 如何实现这个数组的汉字大小进行排序?谢谢!!

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2010/2/9 23:48:00 [只看该作者]

OK!原来搞错了变量。

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/2/9 23:58:00 [只看该作者]

将它们写入一个表的某空列中,再用GetComboListString

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2010/2/10 9:03:00 [只看该作者]

以下是引用mr725在2010-2-9 23:58:00的发言:
将它们写入一个表的某空列中,再用GetComboListString

这个主意不错,我是用冒泡算法来实现的。


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2010/2/10 9:49:00 [只看该作者]

dim s() as string = {"我们","中国","中央","社会","集体"}
Dim ls As New List(Of String)
ls.AddRange(s)
ls.Sort
For Each a As String in ls
    Output.Show(a)
Next
Output.Show("----------------------")
s = ls.ToArray
For Each a As String in s
    Output.Show(a)
Next


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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2010/2/10 10:32:00 [只看该作者]

以下是引用lxl在2010-2-10 9:49:00的发言:
dim s() as string = {"我们","中国","中央","社会","集体"}
Dim ls As New List(Of String)
ls.AddRange(s)
ls.Sort
For Each a As String in ls
    Output.Show(a)
Next
Output.Show("----------------------")
s = ls.ToArray
For Each a As String in s
    Output.Show(a)
Next

原来还有更简单的,谢了!


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/2/10 11:26:00 [只看该作者]

学习了~  谢谢!~  !   关键是这个啊 :
ls.Sort         sort也能在这里用。 呵呵~

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2010/2/10 11:46:00 [只看该作者]


List变量再申明的时候可以用数组初始化,所以

Dim ls As New List(Of String)
ls.AddRange(s)


可以简化为
Dim ls As New List(Of String)(s)

 回到顶部