vb咋读写文本文件？

我只要读取一个文本文件，经过分析再写入另一个文本文件。
可我不会，
我一直在用的方法是调用vbs用的自动对像fso，可是，在有的系统里会出错。
求教vb的方法

答案：首先用 open 方法打开一个文本文件
例如:open  "c:/123.txt"  for input as #1
"for input" 是将文件作为输入源。也可以替换为"for output"（输出，注意此时如果文件已经存在则覆盖文件）和"for append"（此时指针指向文件末尾，也就是说向文件末尾追加内容。
"#1" 是文件的句柄。
用input 打开文件后 可以用line input方法读取文本
例如：line input #1,strText  '注意：此时是将一行文本读取，并赋值给 变量strText,如果再次使用该方法，则系统自动读取下一行文本，可以用EOF() 函数测试文件尾（例如:EOF(1) ，"1"是文件句柄，
诺已是文件尾则返回 "True"）
"#1"是要操作文件的句柄号。
"strText"是定义的一个字符串变量。
诺用 "output"或"append"打开文件则可以用print #1,strText方法写入一行文本。
 

'-------------读文件------------
Dim a, b As String
Open [txt文档所在位置，如 C:\123.txt ] For Input As #1  ' 打开文件。
    Do While Not EOF(1) ' 循环至文件尾。
    Line Input #1, a ' 读入一行数据并将其赋予某变量。
    b = b & a
    Loop
Close #1
'-------------写文件------------
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = [txt文档所在位置，如 C:\123.txt ]
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = [要写入的文本内容]
    'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
    Open strFileName For Output As lngHandle    '打开文件
    Print #lngHandle, strWrite    '写入文本
    Close lngHandle    '关闭文件
赋值阿
VB可以直接打开某个文本文件的！用OPEN就行！
Dim  strTemp As   String   *   65400   
Open   "F:\d.txt "   For   Binary   As   #1   '用二进制打开文件 
Get   #1,   ,   strTemp   '用Get语句从文件中获取字节 
Text1   =   strTemp   '显示打开的文件 
Close   #1   '关闭文件 

上一个：跪求VB代码解释
下一个：VB连接数据库查询