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 /++++++++++++++++++++++++++++++++++++++++++++++++++++/ 读取指定行 /++++++++++++++++++++++++++++++++++++++++++++++++++++/ 我是用 Line Input 语句来实现的。    用 DO 循环 加 eof(#n) 再来个计数变量就可以很好的的控制读取固定的行，一次整行读入。这样的代码很简单！： '打开文件 c:\Escreps.prn Open "c:\Escreps.prn" For Input As #1 '取文件内容，这种是知道文件的固定行数 For i = 1 To 24 Line Input #1, temp Select Case i Case 8 '例如要处理第8行 '在这里可以处理 TEMP 读取的内容 End Select Next i Close #1             '*-----------------不知道文件总行数的时候用这种办法。 Do While Not EOF(1) '------------取文件内容 Line Input #10, DateSr i=i+1 Select Case i '这个你也可以用其他判断语句。 Case 8 '例如要处理第8行 '在这里可以处理 TEMP 读取的内容 End Select LOOP   Private Sub Form_Load() b = "hello" Open "c:\123.txt" For Output As #1 Print #1, 123 Print #1, b Print #1, 456 End Sub Private Sub WriteFile(filePath As String, strTmp As String) Open filePath For Output As #1 Print #1, strTmp Close #1 End Sub Private Sub Command1_Click() ' 点击 Command1 按钮控件后发生的事件， Click n. 点击 Open "F:\aa.txt" For Output As #1 ' Open: 打开 ' "F:\aa.txt" F 盘下的名为 aa 的文本格式文件 ' For 这里是进行的意思 ' Output /'autput/ n. 输出。For Output = 进行输出 ' As 作为。 #1: VB 6 中用于 I/O (Input/Output,输入输出) 的文件号，其他的还有 #2 #3…… '上一条语句的意思是: 打开 F 盘下的名为 aa 的文本格式文件进行写入工作，并将这次写入的代号定为 #1 Write #1, "BBS" ' 向文件写入 "BBS" Close #1 ' 关闭该写入通道 End Sub Write #1, "A" & vbNewLine & "B" & vbNewLine & "C" 就会向文件输出: A B C 分三条语句写也能实现: Write #1, "A" Write #1, "B" Write #1, "C" open StrPath For Append As 1# Print #1, No Close #1