Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
baoxyang 发表于:2010/2/9 23:43:00
例如:dim s() as string = {"我们","中国","中央","社会","集体"} 如何实现这个数组的汉字大小进行排序?谢谢!!
2楼
baoxyang 发表于:2010/2/9 23:48:00
OK!原来搞错了变量。
3楼
mr725 发表于:2010/2/9 23:58:00
将它们写入一个表的某空列中,再用GetComboListString
4楼
baoxyang 发表于:2010/2/10 9:03:00
以下是引用mr725在2010-2-9 23:58:00的发言:
将它们写入一个表的某空列中,再用GetComboListString

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

5楼
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

6楼
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

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

7楼
mr725 发表于:2010/2/10 11:26:00
学习了~  谢谢!~  !   关键是这个啊 :
ls.Sort         sort也能在这里用。 呵呵~
8楼
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)
共8 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.