网站首页 > 文章中心 > 其它

vb.net文件倒叙

作者:小编 更新时间:2023-10-16 10:18:35 浏览量:225人看过

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

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)

ListBox1.items.Add(str)

Next

num=0

Loop

sr.Close()

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

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

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

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

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

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

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

改成:

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

试试了?

以上就是土嘎嘎小编为大家整理的vb.net文件倒叙相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章