vb 在怎么读写*.txt文件,请高手帮帮忙！！

Question

vb 在怎么读写*.txt文件,请高手帮帮忙！！有代码，还请加点注释,本人头一次vb。也就说我还不会的^_^

Answer 1

   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 
    Close #1 ' 关闭文件。 

Answer 2

Option Explicit
    Dim strfFleName
    Dim sj() As String
Private Sub cmdOpen_Click() '确定文本文件的总行数
    Dim sj() As String
    Dim strS As String
    Dim L As Integer
    CommonDialog1.ShowOpen
    strfFleName = CommonDialog1.FileName
    Open strfFleName For Input As #1
       Do While Not EOF(1)
           Line Input #1, strS
           ReDim Preserve sj(L)
           sj(L) = strS
           Debug.Print sj(L)
           '以下写分割行数据并写入数据库语句
           L = L + 1
        Loop
    Close #1
    Text1 = UBound(sj)
End Sub
VB逐行读TXT文件的代码

Answer 3

多看一下 MSDN ，对你有帮助！

Answer 4

就是我装的这个的msdn没了--!
看不了..............

Answer 5

如何读/写 Binary File'以下是读取Binary file的程式
Dim Buff() as ByteOpen "d:\csys\8504\ctc" For Binary Access Read As #1
ReDim Buff(267)Do While Not EOF(1)
   Get #1, , Buff  '每次读268个byte进来
   'Call 处理Buff 的Routine
Loop
Close #1'以下是写入Binary file的程式
Dim Buff() As Byte
Open "c:\tc" For Binary Access Write As #1
ReDim Buff(10)
Buff = StrConv("这是一个11", vbFromUnicode)
Put #1, , BuffReDim Buff(1)
Buff(0) = 210
Buff(1) = 70
Put #1, , Buff
Close #1
End Sub

Answer 6

TXT文件的读取使用Binary模式比input模式少一些错误，下面是最简单的读取方法Open "TXT文件" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close 1