vb.net文件倒叙 vb倒序函数

vb.net读取txt文件，按照要求排序其中数据后显示在listbox控件中。

说一个可行的方案。你可以用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)

Next

num=0

For num=0 To 2

str = sr.ReadLine()

ListBox2.items.Add(str)

Next

Loop

sr.Close()

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

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

vb.net作业，打开某一文件夹，将内容倒排，保存到另一文件夹怎么做

'这是VB的要先引用Microsoft Scripting RunTime，下面的例子是找叫cmd.xxx的文件的

Private Sub Command1_Click()

Dim m_objFSO As New FileSystemObject

Dim objFolder As Scripting.Folder '文件夹对象

Dim objFile As Scripting.File '文件对象

Set objFolder = m_objFSO.GetFolder("c:/test")

For Each objFile In objFolder.Files

Dim filenames() As String

filenames = Split(objFile.Name, ".")

If filenames(0) = "cmd" Then

FileCopy objFile.Path, "c:/TestCMD/" "newName." filenames(1)

End If

Next objFile

End Sub

-----------------------------------这是VB.net的--------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

Dim files() As String

files = System.IO.Directory.GetFiles("C:/test")

For i = 0 To files.Length - 1

Dim filenames() As String

filenames = files(i).Substring(files(i).LastIndexOf("\") + 1).Split(".")

If filenames(0) = "cmd" Then

FileCopy(files(i), "c:/TestCMD/" "newName." filenames(1))

End If

Next

End Sub

VB.NET中字符串倒序的问题

好象有个StrReverse函数是直接反转字符串的吧..

我平时用的是VB6.但是.NET中应该也是可以用MID的

你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..

你看看MID运行不了时,是不是返回I是0的时间

改成:

For i = Len(sstr) To 1 Step -1

试试了?