| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教，有汉字数组，如何实现进行排序？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5958) |
| -- 作者：baoxyang -- 发布时间：2010/2/9 23:43:00 -- 请教，有汉字数组，如何实现进行排序？ 例如：dim s() as string = {"我们","中国","中央","社会","集体"} 如何实现这个数组的汉字大小进行排序？谢谢！！ |
| -- 作者：baoxyang -- 发布时间：2010/2/9 23:48:00 -- OK！原来搞错了变量。 |
| -- 作者：mr725 -- 发布时间：2010/2/9 23:58:00 -- 将它们写入一个表的某空列中,再用GetComboListString |
| -- 作者：baoxyang -- 发布时间：2010/2/10 9:03:00 -- 以下是引用mr725在2010-2-9 23:58:00的发言：
将它们写入一个表的某空列中,再用GetComboListString 这个主意不错，我是用冒泡算法来实现的。 |
| -- 作者：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 |
| -- 作者：baoxyang -- 发布时间：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 -- 发布时间：2010/2/10 11:26:00 -- 学习了～ 谢谢！～ ！ 关键是这个啊 ： ls.Sort sort也能在这里用。 呵呵～ |
| -- 作者：lxl -- 发布时间：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） |