VB中如何创建读取文件

Question

各位大峡，
请给点创建读去顺序文件，二进制文件，随机文件的例子，如果文件已经存在则将新记录增加到新行。

Answer 1

创建：
FileNum=FreeFile()
open Filename for OutPut as FileNum 'output 是创建文件
print  #FileNum,tex.text    '写入数据，tex.text 为要写入的数据
close #FileNum

Answer 2

1.如何往创建的文件添加新记录
2.如何在文件里有多行记录，特别是每行记录有多个栏位（就象数据库里的字段）用逗号或Tab符或其它什么分隔符分开。

Answer 3

1.如何往创建的文件添加新记录
2.如果文件里有多行记录，特别是每行记录有多个栏位（就象数据库里的字段）用逗号或Tab符或其它什么分隔符分开，如何读取

Answer 4

那样的要求，最好用数据库，而不是用普通的文件保存或FSO。楼主是在说随机文件(显然楼主并非“小菜”)，既然这样，查查MSDN也就明白了。

Answer 5

把
open Filename for OutPut as FileNum 
换成
open Filename for Append as FileNum

Answer 6

我看了MSDN对多行记录的读取还是不明白，还有FSO是什么意思?

Answer 7

怎么在一个文件中读取指定行的记录。
比如一个123.txt文件中有10行记录,我想读取其中的第3行和第5行怎么做。
人都跑那去了？？？

Answer 8

Do While Not EOF(FileNum)
        Line Input #FileNum, sLogLine
        sLine = splitLine(sLogLine)
....

Answer 9

schollc
不是很明白，可否详细点，配点注释.

Answer 10

'模块说明：用于对INI文件的读写操作
Option Explicit
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 WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long'功能简介：对INI文件进行读操作
'参数一：文件路径
'参数二：条目的小节名称
'参数三：项名或条目名
Function GetProfileString(StrFileName As String, StrAppName As String, StrKeyName As String) As String
    GetProfileString = String(255, 0)
    GetPrivateProfileString StrAppName, StrKeyName, "", GetProfileString, 255, StrFileName
    GetProfileString = Left(GetProfileString, InStr(GetProfileString, Chr(0)) - 1)
End Function'功能简介：对INI文件进行写操作
'参数一：文件路径
'参数二：条目的小节名称
'参数三：项名或条目名
'参数四：写操作字符串
Function WriteProfilestring(StrFileName As String, StrAppName As String, StrKeyName As String, StrWrite As String) As Boolean
    On Error GoTo WriteErr
    WritePrivateProfileString StrAppName, StrKeyName, StrWrite, StrFileName
    WriteProfilestring = True
    Exit Function
WriteErr:
End Function