Rss & SiteMap

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

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

标题:[求助]数组中的字符串如何进行排序

1楼
飞鱼 发表于:2010/9/19 16:03:00

我写了一段代码,挤掉了字符串中的空格,但不知道如何对分割的子字符串重新排序:

Dim Multi As String="  travelmate 627 ,travelmate 621 ,travelmate 621lv ,travelmate 621xc    ,travelmate 621xv ,travelmate 623    ,travelmate 623lc ,travelmate 623lci "
Dim Values() As String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    values(Index)=values(Index).trim()
    Next
Dim Str1 As String
Str1= String.Join(",",Values)
Output.Show(Str1)

 

请狐爸和其他朋友指点一下.

2楼
狐狸爸爸 发表于:2010/9/19 16:08:00
Array.Sort(Values)
3楼
飞鱼 发表于:2010/9/19 16:47:00

 

我设计了一个窗口,使用这段代码,运行后无动静:

Dim multi As String = e.Form.Controls("TextBox1").Text     '把窗口中要优化的值传递给multi
Dim Values() As String        
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    values(Index)=values(Index).trim()
    Next
Array.Sort(Values)
multi= String.Join(",",Values)     '用优化后的值覆盖掉优化前的值

 

请狐爸指点一下.谢谢!


图片点击可在新窗口打开查看此主题相关图片如下:5.jpg
图片点击可在新窗口打开查看
4楼
狐狸爸爸 发表于:2010/9/19 16:51:00

Dim multi As String = e.Form.Controls("TextBox1").Text     '把窗口中要优化的值传递给multi
Dim Values() As String        
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    values(Index)=values(Index).trim()
    Next
Array.Sort(Values)
multi= String.Join(",",Values)     '用优化后的值覆盖掉优化前的值

e.Form.Controls("TextBox1").Value = multi

 

 

图片点击可在新窗口打开查看

5楼
飞鱼 发表于:2010/9/19 17:13:00

感谢狐爸!这样修改起来就方便多了.

另,发现一个小小的问题,优化后,点存盘,有时字符又变回到优化前的状态,反复点"优化"和"存盘"多次,才能修改完成.不晓得是什么原因.

6楼
狐狸爸爸 发表于:2010/9/19 17:16:00
最后再加一句:
 
e.Form.Controls("TextBox1").WriteValue
共6 条记录, 每页显示 10 条, 页签: [1]

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

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