vb文本文件读写操作
VB.NET读写文本文件，终于有点明白了
读写文本文件，终于有点明白了以前vb6的读写老写错，进入vb2010终于有些明白了。
好，正戏开场：主演： puter.filesystemsystem.io.streamReadersystem.io.streamWriter配角：OpenFileDialogSaveFileDialog剧情一般都是OpenFileDialog或SaveFileDialog跟龙套，提供路径和文件名后，由主演们操作。
先调戏一下，，小演一下：[vb] view plaincopyprint?1.Private Sub Button1_Click(ByVal sender As System.Objec t, ByVal e As System.EventArgs) Handles Button1.Click2.If OpenFileDialog1.showdialog = DialogResult.OK Thenputer.FileSystem.WriteAllText(OpenFileDialog1.Fil eName, TextBox1.T ext, False)4.End If5.End Submy命名空间具有快速访问特性，常见的：puter 当前（本地）计算机硬件、软件、文件信息。
my.application 当前应用程序的信息：标题、目录、版本号。
my.forms 当前项目窗体信息my.resources 应用程序资源的相关信息（只读），允许用户动态获取应用程序的资源。
my.setting 应用程序设置的相关程序。
存储或设置er 当前机器上激活的用户信息my.webservices 当前机器激活的WEB服务信息，也可用于访问新的WEB服务器。
比如： 当前机器上的用户名puter.clock.location 当前机器上的当地日期与时间正式调戏：对于my[vb] view plaincopyprint?puter.FileSystem.ReadAllText(OpenFileDialog1.File Name, System.Text.ASCIIEncoding.Default)puter.FileSystem.WriteAllText(OpenFileDialog1.Fil eName, TextBox1.T ext, False)注1：读时，容易乱码，加上后面参数部分注2：写时false表示不追加，即覆盖式写入。
VBTextStream如何读取文本文件某行的内容
VB+TextStream+如何读取文本文件某行的内容VB TextStream 如何读取文本文件某行的内容更多相关内容请访问"CAD家园论坛",获取完整满意的答案!只读取40，41，41三行的内容，如何用TextStream做到更进一步，就是如何控制它读那一行，某个范围的文字?Sub ttt() Dim fso As New FileSystemObjectDim ts As TextStreamDim aDataSet ts = fso.OpenTextFile("c:\1.txt")aData = Split(ts.ReadAll, bCrLf)MsgBox aData(39)MsgBox aData(40)MsgBox aData(41)End SubStreamreader 读取文本文件最后一行Dim arr As String() = File.ReadAllLine("")Dim s As String = arr(arr.Length - 1)有一个文本文件，我需要从文本文件的最后一行开始循环读取，直到读取到第一行结束。
同时还需要添加控制，就是添加一个循环到指定数字时就退出循环。
请各位帮帮忙！谢谢VB codePrivate Sub Command1_Click()Dim i As Long, s() As StringOpen "d:\temp.txt" For Input As #1s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)Close #1For i = UBound(s) To 0 Step -1 DoEventsDebug.Print s(i)If i = 5 Then Exit ForNextEnd Sub。
vb远程读取txt文件
vb远程读取txt文件例如有个文本文件的路径是/test.txt，如何用vb读取里面的内容加以利用？【VBToy】:用inet控件:s = Inet1.OpenURL("/test.txt")Text1.Text = s '文本文件的内容【liwei741852963】:inet控件全称叫什么，我在找呵呵【VBToy】:工程-->部件中加Microsoft Internet Transfer Control控件【liwei741852963】:晕，读不出来，能给个整个的代码吗？【VBToy】:Private Sub Command1_Click()Dim s As Strings = Inet1.OpenURL("/Expert/topic/5455/5455226.xml?temp=.441128")Text1.Text = s '文本文件的内容End Subvb中连接远程txt文件在VB中有一输入框有一按钮如何实现连接远程TXT文件并且判断输入框内容是否和远程TXT文件上的内容一样一样的话则form2.show 不一样的话就msgbox 例如远程txt文件为：/1.txt 怎么去判断?参考答案：我刚给你写的读取网络文本和对比的代码在窗体上添加一个Inet控件和一个按钮和一个文本框Option ExplicitPrivate Sub Command1_Click()Inet1.Execute "/1.txt", "GET"End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)If State = 12 ThenDim StrIn As StringStrIn = Inet1.GetChunk(0, icstring)If Text1.Text = StrIn ThenForm2.ShowElseMsgBox "对比不一致"End IfEnd IfEnd Sub至于显示公告：如果是单纯的文本，可以按上面的方法下载后在窗体上添加TEXTBOX或LABLE显示如果不是纯文本可以用WEBBROWSER显示WebBrowser1.Navigate "要显示的网页地址"这儿的网页地址一般是HTML格式的用WebBrowser 选择工程--部件然后选择Microsoft Internet Controls 确定用这个控件在窗口中调好位置然后代码：Private Sub Command1_Click() WebBrowser1.Navigate "/1.txt" End Sub 这样点击Command1就能显示网页了我用的：Private Sub Command1_Click()Dim StrIn As StringStrIn = Inet1.OpenURL("http://192.168.0.81/test.php")Text1.Text = StrInEnd Sub。
vb最基础入门教程从零开始
vb最基础入门教程从零开始目录一、基础知识篇 (3)二、编程基础篇 (5)2.1 界面设计 (6)2.1.1 创建窗体 (8)2.1.2 添加控件 (8)2.1.3 设置属性 (9)2.2 事件处理 (11)2.2.1 捕获事件 (12)2.2.2 事件处理程序 (13)2.3 调试与错误处理 (14)2.3.1 调试工具 (15)2.3.2 错误类型 (17)2.3.3 错误处理语句 (18)三、进阶知识篇 (19)3.1 数组与集合 (21)3.1.1 数组的创建与使用 (21)3.1.2 集合的使用 (22)3.2 文件操作 (24)3.2.1 读取文件 (25)3.2.2 写入文件 (25)3.2.3 文件路径与名称操作 (27)3.3 数据库操作 (27)3.3.1 连接数据库 (29)3.3.2 执行SQL查询 (30)3.3.3 处理数据库结果 (31)四、实战项目篇 (32)4.1 计算器 (33)4.1.1 项目需求分析 (34)4.1.2 项目设计 (35)4.1.3 项目实现 (35)4.2 图书管理系统 (37)4.2.1 项目需求分析 (38)4.2.2 项目设计 (39)4.2.3 项目实现 (40)4.3 学生管理系统 (41)4.3.1 项目需求分析 (41)4.3.2 项目设计 (42)4.3.3 项目实现 (43)五、总结与展望 (44)5.1 课程总结 (45)5.2 学习建议 (46)5.3 VB未来发展展望 (47)一、基础知识篇在开始学习Visual Basic（VB）编程之前，我们需要了解一些基础知识，以便更好地理解VB的概念和编程技巧。
Visual Basic是一种由微软开发的事件驱动的编程语言，它使用简单的文本来创建强大的应用程序。
VB广泛应用于Windows应用程序开发，尤其是桌面应用程序。
由于其简洁的语法和丰富的功能，VB成为了初学者学习编程的理想选择。
VB Open 函数详解 打开、关闭、读、写文件
（一）打开和关闭文件1、顺序文件打开顺序文件，我们可以使用Open语句。
它的格式如下：Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize] 说明：（1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录（2）Input Output 和Append用于设置顺序文件的打开方式。
其中，Input表示从打开的文件中读取数据。
以这种方式打开文件时，文件必须存在，否则会产生错误。
Output表示向打开的文件中写入数据。
以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。
如果文件不存在，则创建一个新文件。
Append表示向打开的文件中添加数据。
以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件为开始添加。
如果文件不存在，则创建一个新文件。
（3）As[#]filenumber 子句用于为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数,既可以是数字,又可以是变量.也可以省略不用.(4)当在文件与程序之间拷贝数据时,Len=buffersize子句指定缓冲区的字符数.例如:Open App.Path + "\test.dat" For Output As 1Open App.Path + "\test.dat" For Output As 1这两句代码在当前应用程序所在目录下创建了一个名为test.dat的文本文件,分配文件号为1.Open App.Path + "\test.dat" For Input As [#]filenumber这条语句是从文本文件中读取数据.Open App.Path + "\test.dat" For Append As [#]filenumber这条语句则是像文本文件中添加数据2、随机文件操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:Type StudentNo As IntegerName As String * 20age As IntegerEnd TypeDim Stud As Student …定义一个可以存放学生材料的变量随机文件中,所有的数据都将保存到若干个结构为Student类型的记录中, 而从随机文件中读出的数据则可以存放到变量Stud中.之后我们就可以打开并读写文件了.下面是打开随机文件的语法格式:Open filename For Random as [#]filenumber Len = Reclength说明:(1)参数filename 和filenumber 分别表示文件名或文件号.(2)关键字Random 表示打开的是随机文件(3)Len子句用于设置记录长度,长度由参数Reclength指定.Reclength的值必须大于0,而且必须与定义的记录结构的长度一致.计算记录长度的方法是将记录结构中每个元素的长度相加.例如前面声明的Student的长度应该是2+20+2=24字节.打开一个记录类型为Student 的随机文件的方法是:Open "c:\Student.txt " For Random As #1 Len = 253、二进制文件打开二进制文件的语法格式如下:Open pathname For Binary As [#]filenumber说明:(1) 参数filename 和filenumber 分别表示文件名或文件号.(2)关键字Binary 表示打开的是二进制文件(3)对于二进制文件,不能指定字节长度.每个打开的二进制文件都有一个自己的指针,文件指针是一个数字值,指向下一次读写操作的文件中的位置.二进制文件中的每个”位置”对应一个数据字节,因此,有n个字节的文件,就有1到n个位置.我们可以用Seek()函数返回当前的文件指针位置(即下一个要读写的字节);用Loc()函数返回上一次读写的字节位置,除非用Seek语句移动了指针,Loc()返回值总比Seek()的小1.我们来看下面的例子:Open “student.txt” for Binary as #1该语句用二进制的方式打开了student.txt文件.（二）读文件1、顺序文件顺序文件的读取有三种方式：（1）Line Input # 语句该语句从打开的顺序文件中读取一行数据。
VB实现文件的二进制读写及文件合并拆分
VB实现文件的二进制读写及文件合并拆分(2009-02-06 09:20:56)二进制文件的操作所有文件的存储其实质都是二进制的，二进制文件往往由两部分组成，一部分是文件头另一部分存放了文件的内容。
文件头通常存放与文件格式有关的信息，以BMP等图象文件为例，它们的文件头中存放了是何种图形格式、图象大小、调色板等信息，要显示图象时先读取文件头以获得文件的详细信息，然后再按其格式把图象内容显示出来。
用二进制方式可以操作任何的文件，当然至关重要的一点是要清楚了解所操作文件的文件头结构。
VB中二进制文件操作主要应用的方法和函数有： Open,Close,Get,Put等。
Open：在For后面的打开模式要用Binary。
Close:关闭文件。
Get: 在指定位置取得文件的内容，如果省略位置则从当前位置读取。
Put:在指定位置写入文件，如果省略位置参数就从当前位置写。
下面结合代码讲解二进制文件的操作。
下述程序完成了将两个文件结合成一个文件以及将这个结合后的文件再拆分成原来的两个文件。
文件头的结构是自己定义的，非常简单，共8个字节（也就是两个长整型的长度），前4个字节存放第一个文件的长度，后4个字节存放第二个文件的长度。
为了更直观地表达文件的结构，现假设有两个文件，第一个文件长度是100字节，第二个文件是200字节，那么合并后得到的文件应该是308字节。
按顺序来看，文件的结构是：第一文件的长度100第二文件的长度200第一文件的二进制内容第二文件的二进制内容除了文件头的8字节长度是固定的后面的长度都会因文件的不同而变化的。
‘实现文件的合并Private Sub MergeFile()Dim str FileName1 As String '第一个文件Dim strFileName2 As String '第二个文件Dim strOutput As String '合并后的文件Dim aryContent() As Byte '用来读取文件的数组，每次读取前要重定义strFileName1 = "c:\a.bmp"strFileName2 = "c:\b.bmp"strOutput = "c:\out.bmp"'注意下面三个Open语句都是用Binary模式打开的Open strOutput For Binary As #100Open strFileN ame1 For Binary As #1Open strFileName2 For Binary As #2Put #100, , LOF(1) '取得第一文件的长度，并把它写入到合并文件的文件头中Put #100, , LOF(2) '取得第二文件的长度，并写入到合并文件的文件头中ReDim aryCont ent(LOF(1) - 1) '重定义数组，为读取文件做准备Get #1, , aryContent() '取得第一文件的内容到数组Put #100, , aryContent() '把第一文件的内容写到合并文件中ReDim aryContent(LOF(2 ) - 1)Get #2, , aryContent ()Put #100, , aryConte nt()'关闭文件Close #1Close #2Close #100End Sub‘实现文件的拆分Private Sub SplitFile()Dim strFileName1 As StringDim strFileName2 As StringDim strFileSplit As String Dim aryContent() As ByteDim lngLOF(1) As Long '存放从文件头取得的两个文件的长度strFileName1 = "c:\a2.bmp"strFileName2 = "c:\b2.bmp"strFileSplit = "c:\out.bmp"Open s trFileSplit For Binary As # 100Get #100, , lngLOF( 0) '取得第一文件的长度Get #100, , l ngLOF(1) '第二文件的长度Open strFileName1 For Binary As #1Open strFileName2 For Binary As #2ReDim aryConten t(lngLOF(0)-1) '用第一文件的长度重定义数组，为读取第一文件做准备Get #100, 9, ary Content() '从第9字节，即文件后面开始读取第一文件的内容Put #1, , aryContent() '把取得的内容写入到拆分文件中ReDim a ryContent(lngLOF(1)-1)Get #100, 9 + lngLOF(0) + 1, aryCo ntent() '从第9字节再加上第一文件的长度处开始读取第二文件的内容，这里可以清楚地看到文件头的作用了Put #2, , aryContentClose #1Close #2Close #100MsgBox "拆分完成。
VB Open 函数详解 打开
VB Open 函数详解打开、关闭、读、写文件（一）打开和关闭文件1、顺序文件打开顺序文件，我们可以使用Open语句。
它的格式如下：Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]说明：（1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录（2）Input Output 和Append用于设置顺序文件的打开方式。
其中，Input表示从打开的文件中读取数据。
以这种方式打开文件时，文件必须存在，否则会产生错误。
Output表示向打开的文件中写入数据。
以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。
如果文件不存在，则创建一个新文件。
Append 表示向打开的文件中添加数据。
以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件为开始添加。
如果文件不存在，则创建一个新文件。
（3）As[#]filenumber 子句用于为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数,既可以是数字,又可以是变量.也可以省略不用.(4)当在文件与程序之间拷贝数据时,Len=buffersize子句指定缓冲区的字符数.例如:Open App.Path + "\test.dat" For Output As 1Open App.Path + "\test.dat" For Output As 1这两句代码在当前应用程序所在目录下创建了一个名为test.dat 的文本文件,分配文件号为1.Open App.Path + "\test.dat" For Input As [#]filenumber这条语句是从文本文件中读取数据.Open App.Path + "\test.dat" For Append As [#]filenumber这条语句则是像文本文件中添加数据2、随机文件操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:Type StudentNo As IntegerName As String * 20age As IntegerEnd TypeDim Stud As Student …定义一个可以存放学生材料的变量随机文件中,所有的数据都将保存到若干个结构为Student类型的记录中, 而从随机文件中读出的数据则可以存放到变量Stud中.之后我们就可以打开并读写文件了.下面是打开随机文件的语法格式:Open filename For Random as [#]filenumber Len = Reclength说明:(1)参数filename 和filenumber 分别表示文件名或文件号.(2)关键字Random 表示打开的是随机文件(3)Len子句用于设置记录长度,长度由参数Reclength指定.Reclength的值必须大于0,而且必须与定义的记录结构的长度一致.计算记录长度的方法是将记录结构中每个元素的长度相加.例如前面声明的Student的长度应该是2+20+2=24字节.打开一个记录类型为Student 的随机文件的方法是:Open "c:\Student.txt " For Random As #1 Len = 253、二进制文件打开二进制文件的语法格式如下:Open pathname For Binary As [#]filenumber说明:(1) 参数filename 和filenumber 分别表示文件名或文件号.(2)关键字Binary 表示打开的是二进制文件(3)对于二进制文件,不能指定字节长度.每个打开的二进制文件都有一个自己的指针,文件指针是一个数字值,指向下一次读写操作的文件中的位置.二进制文件中的每个”位置”对应一个数据字节,因此,有n 个字节的文件,就有1到n个位置.我们可以用Seek()函数返回当前的文件指针位置(即下一个要读写的字节);用Loc()函数返回上一次读写的字节位置,除非用Seek语句移动了指针,Loc()返回值总比Seek()的小1.我们来看下面的例子:Open “student.txt” for Binary as #1该语句用二进制的方式打开了student.txt文件.（二）读文件1、顺序文件顺序文件的读取有三种方式：（1）Line Input # 语句该语句从打开的顺序文件中读取一行数据。
VB 中 Open For As的详细用法
VB 中Open For As的详细用法7.2 文件的读写1. 文件的有关概念记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。
相当于表格中的一行。
文件：记录的集合，相当于一张表。
文件类型：顺序文件、随机文件、二进制文件。
访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。
2. 顺序访问模式顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录，不可以跳跃式访问。
该模式专门用于处理文本文件，每一行文本相当于一条记录，每条记录可长可短，记录与记录之间用“换行符”来分隔。
顺序文件的写入步骤：打开、写入、关闭；读出步骤：打开、读出、关闭。
（1）打开文件打开文件的命令是Open，格式为：Open “文件名”For 模式As [#] 文件号[Len=记录长度]说明：1）文件名可以是字符串常量也可以是字符串变量2）模式可以是下面之一：OutPut：打开一个文件，将对该文件进行写操作Input：打开一个文件，将对该文件进行读操作Append：打开一个文件，将在该文件末尾追加记录3）文件号是一个介于1-511之间的整数，打开一个文件时需要指定一个文件号，这个文件号就代表该文件，直到文件关闭后这个号才可以被其他文件所使用。
可以利用Fre eFile（）函数获得下一个可以利用的文件号。
例：Open "D:\sj\aaa" For Output As #1意思是：打开D:\SJ下aaa文件供写入数据，文件号为#1（2）写操作将数据写入磁盘文件所用的命令是：Write# 或Print#。
语法格式：1）Print #文件号，[输出列表]例：Open “D:\SJ\TEST.DAT”For Output As #1Print #1,T ext1.T ext '把文本框的内容一次性写入文件Close #12）Write #文件号，[输出列表]其中的输出列表一般指用逗号，分隔的数值或字符串表达式。