vb.net读写文本 vbs文件读写

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 中对txt文件的读取、写入的方法！始终保持txt里面只有一行！

Public Class Form1

Private Sub 写入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写入文件.Click

FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.

WriteLine(1, "想只保留文件为一行 那你就写一行好了") ' Print blank line to file.

FileClose(1) ' Close file.

End Sub

Private Sub 读取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取文件.Click

Dim TextLine As String

FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.

TextLine = LineInput(1) '读取一行就了

MsgBox(TextLine)

FileClose(1)

End Sub

End Class

最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你

vb.net都可以读取哪些格式的文件？

基本都能读取，文本类型的完全没问题，高级文本比如DOC等文档需要一些控件、算法支持。理论上来说全都支持，但是如何访问就要看技术。参数等信息一般保存在配置文件、XML文件、注册表中 追问： 配置文件是什么格式的文件 回答： 是以INI为后缀名，但是是TXT 文件格式 ，文 本格 式，可以用记事本打开。于普通文本格式不同的是，INI里面的信息都是有一定规律的存放。便于再次读写

当前文章：vb.net读写文本 vbs文件读写
浏览路径：https://www.cdcxhl.com/article14/docpdde.html

成都网站建设公司_创新互联，为您提供网站营销、全网营销推广、网站制作、搜索引擎优化、网站改版、企业网站制作

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联