vb.net文件排序 vb中排序的程序设计

VB.net 排序

你这个是冒泡排序么？从大到小么？

网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了钦北免费建站欢迎大家使用！

For j = 0 To lstNetworkRisk.Items.Count - 1 应该改成

For j = i To lstNetworkRisk.Items.Count - 1

另外尽量不要用GOTO语句。而且完全也可以不用这个GOTO。

还有不知道你用的什么版本的.net 如果是3.5的完全可以直接用linq。

建议用 DataGridView（你用的是它吧？）内建的排序方法来排序。介绍和示例代码可以参考MSDN：

说一个可行的方案。你可以用3个ListBox，当然其中两个个可以设为不可见。先读两行加入到ListBox1中，接着读两行写入ListBox2中，如此循环到文件结束。按照你给的例子，现在Listbox

1中的items是A,B,E,F；而ListBox2中的Items是C,D,G,H。接下来的你应该就明白了吧，把ListBox2中的Items和对应的ListBox1中Item加到ListBox3中。下面简单写下代码，主要是处理问题的思路，代码很简单。

Private Sub DoList(ByVal filePath As String)

Dim str As String

Dim num

Dim listCount

Dim sr As StreamReader

sr = New System.IO.StreamReader(filePath, System.Text.Encoding.Default)

str = sr.ReadLine()

Do While (sr.Peek = 0)

For num=0 To 2

str = sr.ReadLine()

ListBox1.items.Add(str)

num=0

For num=0 To 2

str = sr.ReadLine()

ListBox2.items.Add(str)

Loop

sr.Close()

For listCount=o To ListBox2.Items.Count-1

ListBox3..Items.Add(ListBox1.Items(listCount).ToString+

分享文章：vb.net文件排序 vb中排序的程序设计
文章起源：http://6mz.cn/article/docjode.html