Dim a() As Byte, b As Byte, i As Integer, j, S As String
S = App.Path & "\1.txt" '请修改为实际文件名
ReDim a(FileLen(S))
Open S For Binary As #1 '打开文件
'下面演示指针的移动
Seek #1, 10 '指针移到第10个字节
Get #1, , b
msgbox "第10个字节:" & b
Seek #1, 23 '指针移到第23个字节
Get #1, , b
msgbox "第23个字节:" & b
'下面演示始一个一个地读出文件
Seek #1, 1 '指针返回到文件首
For i = 1 To FileLen(S)
Get #1, , b '读取1个字节
a(i - 1) = b '存入数组
Next
Close #1 '关闭文件
'如果是文本文件，可用下面语句显示(二进制文件不能使用下面语句)。
S = StrConv(a, vbUnicode)
MsgBox S '显示文件
Open strFile For Input As #1
Do Until EOF(1)
Line Input #1, s
If RLine = i Then '如果是指定的行数就进行下面的操作
'------------------------------------------------------
If SameLine = True Then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,T rue保持源文件的行数,False为直接删除这一行的内容
s = ""
n = n & s & vbCrLf '将空字符串赋给变量n,以保持源文件的行数
' MsgBox strFile & " 文件中,第" & RLine & " 行内容" & vbCrLf & s & vbCrLf & "已经删除", vbInformation, "消息提示"
End If
' s="也可以把这一行的内容改成自己需要的"
'-------------------------------------------------------
Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据
n = n & s & vbCrLf '将s的内容赋给n 并以一个回车符号结束....
End If
i = i + 1
Loop
Close #1
'//写入新文件,如果和源文件同名则会覆盖源文件
Open newFile For Output As #2
Print #2, n '将n变量里的数据写入新文件
Close #2
End Function
'调用方法:
'比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串) DelLine "C:\1.txt", 5, "C:\2.txt", True
'删除C:\1.txt 删除里面的第一行,且不保留文件的总行数
DelLine "C:\1.txt", 1, "C:\1.txt", False
VB读写ini文件（1） 2007-06-20 11:32 自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。 Dim Ret As Long Dim Start As Long Public FileName As String Const BufSize = 10240 Dim buf As String * BufSize Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Public Sub SetValue(ByVal clsName As String, ByVal key As String, ByVal V As String) Ret = WritePrivateProfileString(clsName, key, V, FileName) End Sub Public Function GetValue(ByVal clsName As String, ByVal key As String) As String Ret = GetPrivateProfileString(clsName, key, "", buf, BufSize, FileName) Start = 1 GetValue = RetStr() End Function Private Function RetStr() As String Dim i As Long i = InStr(Start, buf, Chr(0)) If i > Start Then RetStr = Mid(buf, Start, i - Start) End If Start = i + 1 End Function 至此已经完成了对一个完整的独立模块的封装，接下来就来看看怎么引用（其实看完上面程序就明了了） VB读写INI文件（2） 2007-06-20 11:32 INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下： [Section1] Key1=Value1
vb读取txt文件到textbox vb读取txt文件到textbox 1.怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For Random As gfilenum len=3 \'以随即方式打开一文件如果文件不存在就新建 用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作 用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作 close #filenum\'关闭文件 以下为顺序方式打开的文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For output As gfilenum \'以写入方式打开文本 print #gfilenum,要写入的文本 write #filenumber,要写入的文本 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For input As gfilenum \'以读出方式打开文本 input #gfilenum ,用来放读取的内容的内存变量名 还可用line input#,input()等读取更详细的查msdn 2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。 如果是 Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)
做二次开发过程中的一些代码搜集和个人的试错及注释： Dim str_File_1 As String = https://www.doczj.com/doc/cc11316694.html,puter.FileSystem.ReadAllText("E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\1.tcl", System.Text.Encoding.ASCII) '根据实际的编码读第一个文件 Dim str_File_2 As String = https://www.doczj.com/doc/cc11316694.html,puter.FileSystem.ReadAllText("E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\2.tcl", System.Text.Encoding.ASCII) '根据实际的编码读第二个文件 FileOpen(1, "E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\1.tcl", OpenMode.Input, OpenAccess.Default, OpenShare.Shared) '以读方式打开文件 FileOpen(2, "E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\2.tcl", OpenMode.Output, OpenAccess.Default, OpenShare.Shared) '以写方式打开文件 Print(2, str_File_1) '将1文件写入2中 FileClose(1) FileClose(2) Imports System.IO Public Class TXTClass '为了能够操作txt文本文档，需要在类的前面加入“System.IO”空间的引用； '然后定义3个变量sw（用于write操作，变量类型StreamWriter）、 'sr（用于read操作，变量类型StreamReader）、 'strRead()（用于保存从文本文档中读入的数据，变量类型String数组）； '然后写一个空的sub New()过程（类必须有的）。 Private swAsStreamWriter Private srAsStreamReader Public strRead() As String Public Sub New() End Sub '写操作 '写入一行数据到文本文件 '以追加的形式写入一行数据 Public Sub ZhuiJiaSingle(ByValParth As String, ByValstrline As String) sw = New StreamWriter(Parth, True, System.Text.Encoding.Default) sw.WriteLine(strline) sw.Flush() sw.Close() sw = Nothing
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6
图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面
图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面
图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
读取文本文件内容并打印输出 Private Sub Command1_Click() Dim TextLine As String Open "c:\\testfile.txt" For Input As #1 Do While Not EOF(1) Line Input #1, TextLine Print TextLine Loop Close #1 End Sub 新建文件并写入文件内容 Private Sub Form_Load() Const ForReading = 1, ForWriting = 2 Dim fso, f Dim SkipLineInFile As String Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True) f.Write "Hello world!" & vbCrLf & "VB Script is fun!" Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading) SkipLineInFile = f.readall Debug.Print SkipLineInFile End Sub 冒泡上浮 Private Sub Command1_Click() Dim d(1 To 4) As Integer d(1) = Val(Text1.Text) d(2) = Val(Text2.Text) d(3) = Val(Text3.Text) d(4) = Val(Text4.Text) For i = 1 To 3 For j = 4 To i + 1 Step -1 If d(j) < d(j - 1) Then t = d(j) d(j) = d(j - 1) d(j - 1) = t End If Next j Next i For i = 1 To 4
总结一下VB6的文件操作，省得要用的时候又到处查找。 一、文件类型 1、顺序文件（文本文件）：以ASCII码形式存放的文件。似乎还有Unicode码存放的，有没有BCD码的呢？ 2、随机访问文件：这种文件格式很有特点：文件中存放若干条等长的单元（也可以说是记录）；每个单元包含同类型、等数量、等长度的数据项；文件中，除了字符串以ASCII码存放之外，其它都以二进制形式直接存放，节省存储空间。这种文件类型非常适合存储需要和软件交互的数据，如结构体数据、类数据等。这也是VB特有的文件访问方式。 3、二进制文件：以二进制形式存放，PE程序文件一般都是这个类型。 二、操作方法 1、顺序文件 打开：Open 文件名For Input | Output | Append As [#]文件号 Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打开追加写入，文件不存在则创建。 读：Line Input #文件号, 字符串变量
读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf） Input #文件号, 变量1[, | ;] [变量2]... 这种方式可以存入多个变量，而且变量类型不限于字符串型。写：Print #文件号, 参数1[, | ;] [参数2]... 将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。 Write #文件号, 参数1[, | ;] [参数2]... 这种写入方式将自动添加界定符，对不同参数的类型加以界定。 2、随机访问文件 打开：Open 文件名[For Random] As [#]文件号Len = 记录长度 For Random可以省略，文件不存在则创建，读写都是这种打开方式。Len是文件中记录的一条长度，用以识别记录的开始与结束，经常用Len(记录名)来获取长度。 读：Get [#]文件号, [记录号], 变量
ACCESS数据库和 VB 的连接 Edited by Ryan 2013 1、建立 Access 数据库 2、启动 VB，建立标准EXE 图 1 3、添加 ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2
图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4
4、添加控件Adodc 图5 4、在控件 Adodc 上添加数据源 鼠标指向控件Adodc1 ，单击右键，选择“ADODC 属性”，弹出如图7 所示界面图6
图7 单击“生成(U). . .”，弹出如图8 所示界面 图8 选择“ Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图 9 所示界面
图9 单击“ . . .”，添加数据源（第一步所建Access 数据库），如图 10 所示 图10 单击“测试连接（T）”，出现提示框，如图11 所示 图11 之后点击“确定” ，退回到如图12 所示界面
图12 单击“记录源” ，弹出如图13 所示界面 图13 在“命令类型”下，选择“ 1 - adCmdText”，在“命令文本（ SQL）”下，输入“ Select * from test1 ”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click()‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open‘打开数据库 rs.Open "select * from test1", mydb, 3, 3‘打开数据库中的表test1
vb操作txt（VB operation TXT） 细胞（1,1）代表A1细胞（2，C）代表C2 = COUNTIF（“”）+ COUNTIF（“”）+ COUNTIF（“”） 1。怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 昏暗的gfilenum为整数 gfilenum = FreeFile 随机gfilenum len = 3打开“文件路径及文件名” “以随即方式打开一文件如果文件不存在就新建 用得到# gfilenum，记录在文件中位置，要放取得的数据的变量”读取操作 用把# gfilenum，记录在文件中位置，要放着要写入数据的变量”写操作 近# filenum”关闭文件 以下为顺序方式打开的文件 昏暗的gfilenum为整数 gfilenum = FreeFile 打开输出”文件路径及文件名”gfilenum”以写入方式打开文本
打印# gfilenum，要写入的文本 写#文件号，要写入的文本 昏暗的gfilenum为整数 gfilenum = FreeFile 打开“文件路径及文件名“输入”以读出方式打开文本gfilenum 输入# gfilenum，用来放读取的内容的内存变量名 还可用线路输入#，等读取更详细的查MSDN（） 2。VB读取文本文件时，调用对象中使用报错了文本中去。 如果是 集F = fs。中去（“E：\表格\痕迹。txt”，读书，真的，TristateUseDefault） 出现错误： 运行时错误格”： 无效的过程调用或参数 如果是 集F = fs。中去（“E：\表格\痕迹。txt）”
则不会报错。 用文件对象啊filesystemcontrol操作就好了啊 再加上一个文本读取文件第一行就好了啊。 3。VB通过FileSystemObject，可以读取文本文件（.txt）。对于。蝙蝠文件，VB可否直接读取？ 蝙蝠也属于文本类文件 可以读取 不用FSO也行： 把文本文件内容读取文本框： 朦胧的TempFile As Long 昏暗的loadbytes()字节 tempfile = FreeFile 二开文件名作为# tempfile Redim LoadBytes（1～LOF（TempFile））为字节 得到# tempfile，，LoadBytes 关闭tempfile
Imports System.IO Public Class TxtFileDemo Private Sub btnwrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnwrite.Click '写入按钮的事件触发程序 '创建一个filestream类的实例 Dim fsrw As New FileStream(txtfilename.Text, FileMode.Create) '创建streamwriter类的实例 Dim sw As New StreamWriter(fsrw) '调用writeline方法，将文本框中的内容和一个换行符写入文件 sw.WriteLine(txtfile.Text) '关闭打开的文件（流） sw.Close() MessageBox.Show("成功写入") End Sub Private Sub btnread_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnread.Click '读出按钮的事件触发程序 '创建streamreader类的实例 Dim sr As New StreamReader(txtfilename.Text) txtfile.Clear() '从文件的当前位置读到文件的结尾，并显示到文本框 txtfile.Text = sr.ReadToEnd() sr.Close() End Sub End Class
有2个txt文件 txt1:123 txt2：456 一个按钮一个text 怎么点击按钮读取txt1+txt2在text（123456） 恩，这样 Private Sub Command1_Click() Dim intTxt1 as double Dim intTxt2 as double intTxt1=Cdbl(text1.text) intTxt2=Cdbl(text2.text) lblCaption.caption = intTxt1 & intTxt2 End Sub 你提的问题不清楚，是2个txt文件还是2个文本框，如果是2个txt文件就要用到读取文件的操作了。如：open 文件名as # 1 2011-10-31 08:51 killserver007|一级 '读取 Private Sub Command1_Click() Dim fn As Long, StrRead As String Dim aStr As String fn = FreeFile() aStr = "" '路径可以用App.Path & "\aa.txt" 表示程序所在目录的aa.txt文件 Open "d:\aa.txt" For Input As #fn Do While Not EOF(fn) Line Input #fn, StrRead aStr = aStr & StrRead & vbCrLf Loop Close #fn '解密方法解密aStr '... Text1.Text = aStr '解密后的aStr End Sub
'保存 Private Sub Command2_Click() Dim fn As Long, aStr As String aStr = Text1.Text '用自己的加密方法加密aStr '... fn = FreeFile() Open "d:\aa.txt" For Output As #fn 'Print语句会覆盖文件中原有数据 Print #fn, aStr '加密后的aStr Close #fn End Sub 三门县海游镇平海路99号紫云山庄61幢1单元202室 三门县海游镇平海路97号紫云山庄61幢2单元204室 三门县海游镇平海路98号紫云山庄61幢2单元24室 三门县海游镇平海路99号紫云山庄61幢三单元2053室 2011-10-31 09:02 pdprf|四级 Private Sub Command1_Click() Open "txt1路径" For Input As #1 '读取路径到文本 While Not EOF(1) Line Input #1, S txt1= txt1 & S & vbCrLf Wend Open "txt2路径" For Input As #1 '读取路径到文本 While Not EOF(1) Line Input #1, S txt2= txt2 & S & vbCrLf Wend Text1.Text = txt1 & vbcrlf & txt2 '将读取内容放入文本框' Close #1 '关闭#1号文件 End Sub
vb读取txt文件 1.怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For Random As gfilenum len=3 \'以随即方式打开一文件如果文件不存在就新建 用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作 用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作close #filenum\'关闭文件 以下为顺序方式打开的文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For output As gfilenum \'以写入方式打开文本 print #gfilenum,要写入的文本 write #filenum,要写入的文本 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名 还可用line input#,input()等读取更详细的查msdn 2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。如果是 Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault) 出现错误： Run-time error \'5\': Invalid procedure call or argument 如果是 Set f = fs.OpenTextFile("E:\\table\\trace.txt)" 则不会报错。 用文件对象啊FileSystemControl操作就好了啊 再加上一个TextStream读取文件第一行就好了啊。 3.VB通过FileSystemObject,可以读取文本文件(.txt)。对于.bat文件，VB可否直接读取?
第七章VB中的文件操作 7.1文件系统控件 1．文件系统控件种类 （1）驱动器列表框（DriveListBox）：用来显示当前机器上的所有盘符 （2）目录列表框（DirListBox）：用来显示当前盘上的所有文件夹 （3）文件列表框（FileListBox）：用来显示当前文件夹下的所有文件名 2．重要属性 属性适用的控件作用示例Drive驱动器列表框包含当前选定的驱动器名Driver1.Drive="C" Path目录和文件列表框包含当前路径Dir1.Path="C:\WINDOWS" FileName文件列表框包含选定的文件名MsgBox File1.FileName Pattern文件列表框决定显示的文件类型File1.Pattern="*.BMP" 3．重要事件 事件适用的控件事件发生的时机 Change目录和驱动器列表框驱动器列表框的Change事件是在选择一个新的驱动器或通过代码改变Drive属性的设置时发生 目录列表框的Change事件是在双击一个新的目录或通过代码改变Path属性的设置时发生 PathChange文件列表框当文件列表框的Path属性改变时发生PattenChange文件列表框当文件列表框的Pattern属性改变时发生 Click目录和文件列表框用鼠标单击时发生 DblClick文件列表框用鼠标双击时发生 7.2文件的读写 1.文件的有关概念 记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。 文件：记录的集合，相当于一张表。 文件类型：顺序文件、随机文件、二进制文件。 访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。
2009-03-25 17:11 VB读写文件要用到以下语句： 1、Open语句打开文件。 2、读文件使用Line Input、Input #，（以上为文本方式）和Get（以上为二进制方式）。 3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。 4、Close语句关闭文件 5、二进制方式下移动文件位置使用Seek语句。 所有这些语句在VB的帮助中都有详细说明和例子。 文本文件的示例： Open "TESTFILE" For Output As #1 ' 打开输出文件。 Print #1, "This is a test" ' 将文本数据写入文件。要添加数据,就用顺序输入吧!把各个数据连接起来输入到文本里,中间别忘了加分隔符 Print #1, ' 将空白行写入文件。 Print #1, "Zone 1"； Tab ； "Zone 2" ' 数据写入两个区（print zones）。 Print #1, "Hello" ； " " ； "World" ' 以空格隔开两个字符串。 Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前写入五个空格。Print #1, Tab(10) ； "Hello" ' 将数据写在第十列。 ' 赋值 Boolean、Date、Null 及 Error 等。 Dim MyBool, MyDate, MyNull, MyError MyBool = False : MyDate = #February 12, 1969# : MyNull = Null MyError = CVErr(32767) ' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。 ' 日期将以标准的短式日期的格式显示。 Print #1, MyBool ； " is a Boolean value" Print #1, MyDate ； " is a date" Print #1, MyNull ； " is a null value" Print #1, MyError ； " is an error value" Close #1 ' 关闭文件。 读文件示例 使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。 Dim TextLine Open "TESTFILE" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在调试窗口中显示数据。 Loop
一、文件的读写 文件的有关概念 记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。文件：记录的集合，相当于一张表。 文件类型：顺序文件、随机文件、二进制文件。 二、访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。 1. 顺序访问模式 顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录，不可以跳跃式访问。该模式专门用于处理文本文件，每一行文本相当于一条记录，每条记录可长可短，记录与记录之间用“换行符”来分隔。 2、顺序文件的写入步骤：打开、写入、关闭; 读出步骤：打开、读出、关闭。（1）打开文件 打开文件的命令是Open，语法格式为： Open “文件名” For 模式 As ［#］文件号［Len=记录长度］说明： 1）文件名可以是字符串常量也可以是字符串变量 2）模式可以是下面之一： OutPut：打开一个文件，将对该文件进行写操作 Input：打开一个文件，将对该文件进行读操作 Append：打开一个文件，将在该文件末尾追加记录 3）文件号是一个介于1-511之间的整数，打开一个文件时需要指定一个文件号，这个文件号就代表该文件，直到文件关闭后这个号才可以被其他文件所使用。可以利用FreeFile（）函数获得下一个可以利用的文件号。 例：Open “D：\sj\aaa” For Output As #1 意思是：打开D：\SJ下aaa文件供写入数据，文件号为#1 （2）写操作 将数据写入磁盘文件所用的命令是：Write# 或Print#。语法格式： 1） Print #文件号，［输出列表］ 例：Open “D：\SJ\TEST.DA T” For Output As #1 Print #1，Text1.Text ‘把文本框的内容一次性写入文件 Close #1 2）Write #文件号，［输出列表］ 其中的输出列表一般指用逗号，分隔的数值或字符串表达式。Write #与Print #的功能基本相同，区别是Write #是以紧凑格式存放，在数据间插入逗号，并给字符串加上双引号。 （3）关闭文件 结束各种读写操作后，必须将文件关闭，否则会造成数据丢失。关闭文件的命令是Close，语法格式为： Close ［#］文件号［，［#］文件号］…… 例：Close #1，#2，#3 （4）读操作 1）Input #文件号，变量列表 作用：将从文件中读出的数据分别赋给指定的变量。
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 1 Open 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、随机文件 操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:
VB中利用FSO对象对文件夹操作 windows还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO对象模型中包括了计算机文件系统所有的对象。见下。利用这些对象可以更方便的操作文件系统。 对象功能 Drive允许收集系统的驱动器信息，诸如驱动器的可用空间 Folder允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等 Files允许创建、删除或移动文件，并向系统查询文件的名称、路径等等 FileSysterObject此为主要对象，提供一整套用于创建、删除、搜集相关信息，以及通常的操作驱动器，文件夹，和文件的方法。 TextStream允许读写文本文件 下面我们一起来看看怎样用FSO对象来显示、新建、修改以及删除目录。 FSO对象模型包含在Scripting的类型库中，此类型库存在于Scrrun.dll文件中.使用FSO 对象模型,首先要建立一个FileSystemObject对象。有两种方法可以实现。一种是从”工程”菜单中的”引用”对话框选择”Microsoft Scripting Runtime”项,然后在代码窗口中声明一个FileSystemObject类型的变量.语句如下: Dim fso As New FileSystemObject 另一种方法是在代码中使用CreatObject方法动态的创建一个FileSystemObject对象.语句如下: Dim fso As Object … 声明对象变量 Set fso = CreatObject(“Scripting. FileSystemObject”) …创建FSO对象 我们具体看看FileSystemObject的主要属性. 1、驱动器 (1) Drives属性是FileSystemObject对象的唯一属性，它返回Drives集合中所有可用驱动器的只读集合。对于可删除的驱动器，不需要将媒体插入其中，就可以在Drives集合中显示出来。下面是它的主要属性有两个:一个是Count,另一个是Item.Count属性返回Drives集合或
第七章 VB中的文件操作 7.1文件系统控件 1．文件系统控件种类 （1）驱动器列表框（DriveListBox）：用来显示当前机器上的所有盘符 （2）目录列表框（DirListBox）：用来显示当前盘上的所有文件夹 （3）文件列表框（FileListBox）：用来显示当前文件夹下的所有文件名 1.文件的有关概念
记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。 文件：记录的集合，相当于一张表。 文件类型：顺序文件、随机文件、二进制文件。 访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。 2.顺序访问模式 顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录，不可以跳跃式访问。该模式专门用于处理文本文件，每一行文本相当于一条记录，每条记录可长可短，记录与记录之间用“换行符”来分隔。 顺序文件的写入步骤：打开、写入、关闭；读出步骤：打开、读出、关闭。 （1）打开文件 打开文件的命令是Open，格式为： Open“文件名”For模式 As [#] 文件号 [Len=记录长度] 说明： 1）文件名可以是字符串常量也可以是字符串变量 2）模式可以是下面之一： OutPut：打开一个文件，将对该文件进行写操作 Input：打开一个文件，将对该文件进行读操作 Append：打开一个文件，将在该文件末尾追加记录 3）文件号是一个介于1-511之间的整数，打开一个文件时需要指定一个文件号，这个文件号就代表该文件，直到文件关闭后这个号才可以被其他文件所使用。可以利用FreeFile（）函数获得下一个可以利用
VB操作Excel读取写入打印代码 1】定义EXCEL的一系列操作 Dim xlApp As Excel.Application Dim ExcelShowStr As String Set xlApp = CreateObject("Excel.Application") xlApp.Visible = true AppLogFile.WriteLine (CStr(Date) & "_" & CStr(Time) & ":Set xlApp=new Excel.Application") Dim xlBook As Workbook Dim xlSheet As Worksheet Dim xlrow, sheetIndex, sheetColumn As Integer 'fileurl ="D:\VB英迈\Template\WriteData.xls" Editable=空值 Set xlBook = xlApp.Workbooks.Open(fileUrl, Editable) '打开EXCEL模板 Set xlSheet = xlApp.ActiveSheet -------------------------------------------------------------------------------------------- 【2】写入数据的操作 xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 1)).Merge '合并单元格xlSheet.Cells(beginRow, 1).FormulaR1C1 = CustName '单行插入 xlSheet.Cells(beginRow, 1).VerticalAlignment = xlTop '垂直，写入数据的位置，这里为高xlSheet.Cells(beginRow, 2).HorizontalAlignment = xlHAlignCenter '水平写入数据的位置，这里为居中 xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 19)).Font.ColorIndex = ConstModule.COLOR_BLUE '单元格的字体颜色 xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 19)).Font.Bold = True '单元格的数据为粗体显示 xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 19)).Interior.ColorIndex = ConstModule.COLOR_SILVER '单元格的背景颜色 定义数组，一次性写入，列子如下： If DetailRes.RecordCount > 0 Then DetailRes.MoveFirst For row2 = 0 To DetailRes.RecordCount - 1 Dim arrayProduct(50, 17) As String arrayProduct(row2, 0) = DetailRes.Fields("Product") arrayProduct(row2, 1) = DetailRes.Fields("rev") arrayProduct(row2, 2) = DetailRes.Fields("sagm") arrayProduct(row2, 3) = DetailRes.Fields("sagm_per") & "%" arrayProduct(row2, 4) = DetailRes.Fields("gp") arrayProduct(row2, 5) = DetailRes.Fields("gp_per") & "%" arrayProduct(row2, 6) = DetailRes.Fields("opex") arrayProduct(row2, 7) = DetailRes.Fields("opex_per") & "%" arrayProduct(row2, 8) = DetailRes.Fields("oper_profit") arrayProduct(row2, 9) = DetailRes.Fields("oper_profit_per") & "%"