高份求VB代码，关于读取多个文本，按规则组合的问题.

襄阳城

<p>高份求VB代码，关于读取多个文本，按规则组合的问题.</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：150 -</p>
<p>解决时间：2010-4-16 13:14</p>
<p>如图，仔细看说明</p>
<p>直接写读取文本再组合部分的代码即可，我24小时在线等，不够分我再加.</p>
<p>可以先留言说明正在编，我好判断分给谁，如果编的好，我送10倍分给他.</p>
<p>问题补充：</p>
<p>Private Sub Form_Load()</p>
<p>ListView1.View = lvwReport</p>
<p>ListView1.ColumnHeaders.Add ， "No"， "档案名称"， 1700</p>
<p>ListView1.ColumnHeaders.Add ， "Name"， "刀具名称"， 1060</p>
<p>ListView1.ColumnHeaders.Add ， "Sex"， "刀号"， 650</p>
<p>ListView2.View = lvwReport</p>
<p>ListView2.ColumnHeaders.Add ， "No"， "档案名称"， 1700</p>
<p>ListView2.ColumnHeaders.Add ， "Name"， "刀具名称"， 1060</p>
<p>ListView2.ColumnHeaders.Add ， "Sex"， "刀号"， 650</p>
<p>ListView3.View = lvwReport</p>
<p>ListView3.ColumnHeaders.Add ， "No"， "档案名称"， 1700</p>
<p>ListView3.ColumnHeaders.Add ， "Name"， "刀具名称"， 1060</p>
<p>ListView3.ColumnHeaders.Add ， "Sex"， "刀号"， 650</p>
<p>End Sub</p>
<p>源码发不全，也就仅仅是搜索.TXT文档而已，代码好编的很.</p>
<p>luomandick 加我 29455054</p>
<p>提问者： xingboy002 - 五级</p>
<p>最佳答案</p>
<p>1、没有看到说的图</p>
<p>2、说明也没有啊</p>
<p>3、具体是什么用户需求？</p>
<p>已经完成，代码如下：</p>
<p>For i = LBound(ToolNo) To UBound(ToolNo) - 1</p>
<p>For j = i + 1 To UBound(ToolNo)</p>
<p>If ToolNo(i) > ToolNo(j) Then</p>
<p>temp = ToolNo(i)</p>
<p>ToolNo(i) = ToolNo(j)</p>
<p>ToolNo(j) = temp</p>
<p>End If</p>
<p>Next j</p>
<p>List4.AddItem ToolNo(i)</p>
<p>Next i</p>
<p>0</p>
<p>回答者：</p>
<p><img src="http://img.baidu.com/img/iknow/icon_huizhang.gif"></p>
<p>vlaoda - 十一级   2010-4-16 12:55</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>非常感谢，问题已解决</p>