vb.net储存数组文件,vb中读取文件并放入数组

VB.net怎样保存文件

保存文件的步骤为:

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

关闭流,特别是写入流

关闭并保存文件

示例代码如下:

Imports System.Windows.Forms

Imports System.IO

Imports System.Text

Sub SaveFileDemo()

'打开文件。如果文件不存在则创建新的文件

Dim myFile As New IO.FileStream("d:\data.txt", _

FileMode.OpenOrCreate, _

FileAccess.Write)

'在文件末尾添加一行 

Dim tw As New StreamWriter(myFile)

myFile.Seek(0, SeekOrigin.End)

tw.WriteLine("白刃格斗英雄连英模部队方队亮相阅兵")

'关闭流

tw.Close()

'关闭文件并保存文件

myFile.Close()

End Sub

VB.NET读取TXT文件数据保存为数组

VB.NET编程读取txt文本文档中的数据,并把数据保存为数组,代码如下:

'写配件文件

Private Sub saveIni(ByVal filePath As String, ByVal str As String)

Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw = Nothing

End Sub

'读配件文件

Private Function readIni(ByVal filePath As String)

Dim iniDt As New DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

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

Dim line As String = ""

While Not sr.EndOfStream

Dim str = sr.ReadLine()'读取当前行

iniDt.Rows.Add(New String() {

str(0),

str(1)

})

End While

sr.Close()

sr = Nothing

Catch ex As Exception

End Try

Return iniDt

End Function

在VB.net中,如何遍历指定路径下的文件夹并把文件夹名存储在数组中?

给你一个提示吧!呵呵,剩下的要自己思考哦!

Path:是初始目录的路径

Private Sub WriteArray(ByVal Path As String)

'写入数组代码在这里,直接将Path写到数组就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '递归

Next

End Sub

如果子目录较多那么递归会比较费时间,在调用递归前加入application.doevent就行了,这样在应对大递归时不会死机。

至于数组嘛使用 arraylist 最好了。

回答补充:

把递归去掉就行了啊!

读取csv文件保存到数组 vb.net代码

csv文件可以当做文本文件来处理!

主要处理代码如下:

Dim t As String, b() As stirng, s(10) As String, cj(10) As Single

t = "" '这里是你读取的CSV文件内容

b() = Split(t, vbCrLf)

For j = 0 To 9

s(j) = b(j) '这个就是每一行的数据了

c() = Split(s(j), ",")

cj(j) = Val(c(1)) '这个就是每一行的成绩数据了

Next

'然后进行排序和显示处理


分享文章:vb.net储存数组文件,vb中读取文件并放入数组
文章源于:http://pwwzsj.com/article/dsecgcg.html