VB list指定字符后数字重新排序
list1内的数值，按照X或Y字符后的数值由大到小排序，显示在list2里边，并可保存，我刚学VB，很不懂，麻烦给个详细点的代码，谢谢
字符限制不能贴代码了
到底是按照X还是按照Y?
如果按照X值从小到大排列,当X值相等按照Y值从小到大排列,那么,根据看到的LIST1里的7个数据,应该是:
1X-25Y-25
2X-250
3X-25Y25
4X0Y0
5X025
6X25Y0
7X25Y25追问
对，就是这样的，List2里所举例子就是我想要的结果，麻烦能给帮下忙，谢谢
追答你能否把已经有的数据和程序发给我呢?
一来省得我自己去造数据，二来我也不知道你的数据目前存储情况，即使造了数据也不一定符合你的现在的数据存储结构？
我已经发给您了，谢谢关注
追答请问你发到哪里了？
我的邮箱：[email protected]
就是这个邮箱
追答你好！没有收到，可能是邮箱的原因，你再发一个到[email protected]
追问已经发过去了，现在用163发的，麻烦您查收一下
追答请告诉我你的这些坐标是否在XDot(1000), YDot(1000), ZDot(1000)里?
QQ联系,470692236
对，X=XDot, Y=YDot
已经加Q了
我已经帮你编写了一个,你看看.
非常感谢您的热心帮助，对于不能给您加分表示万分歉意
追答我不太计较分什么的，互相提高。有问题继续探讨，本人对CAD不了解。
对于VB6比较熟悉，所以，在你的代码基础上，编写了你需要的功能，是否你需要的还不知道。
不过提醒2点：
1，VB6的致命问题，就是变量声明：
Dim a , b As Integer
这样的声明，是可以的，但是，国内许多人会以为2个变量都是声明为整型了，其实是错误的。
2，本例数组，应该使用动态数组，既节省存储空间，又方便数据处理。
说的不当的地方，请指正！
'按你的意思写了一个，请参考采纳！谢谢！
非常感谢，做的太好了，另外麻烦您再修改一下，输出后"i'再重新排序，另外我添加了一个打开按钮，怎样才能在打开文件前清空list1的内容
Private Sub Command5_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "文本文件|*.txt"......
End Sub
清空List1语句
List1.Clear '清除List1内容
输出重新排序，把
For i = 0 To UBound(L, 2) - 1
List2.AddItem L(0, i) & "X" & L(1, i) & "Y" & L(2, i)
Next
改成
For i = 0 To UBound(L, 2) - 1
List2.AddItem i+1 & "X" & L(1, i) & "Y" & L(2, i)
Next
就可以了。