以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数组中的字符串如何进行排序  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8226)

--  作者:飞鱼
--  发布时间: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)

 

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


--  作者:狐狸爸爸
--  发布时间:2010/9/19 16:08:00
--  
Array.Sort(Values)
--  作者:飞鱼
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间: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

 

 

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


--  作者:飞鱼
--  发布时间:2010/9/19 17:13:00
--  

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

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


--  作者:狐狸爸爸
--  发布时间:2010/9/19 17:16:00
--  
最后再加一句:
 
e.Form.Controls("TextBox1").WriteValue