VB中如何创建读取文件
各位大峡，
请给点创建读去顺序文件，二进制文件，随机文件的例子，如果文件已经存在则将新记录增加到新行。
问题点数：20、回复次数：16Top
1 楼htao007（）回复于 2003-06-02 11:28:02 得分 0
创建：
FileNum=FreeFile()
open Filename for OutPut as FileNum 'output 是创建文件
print #FileNum,tex.text '写入数据，tex.text 为要写入的数据
close #FileNum
Top
2 楼icecole（小菜）回复于 2003-06-02 14:09:37 得分 0
1.如何往创建的文件添加新记录
2.如何在文件里有多行记录，特别是每行记录有多个栏位（就象数据库里的字段）用逗号或Tab符或其它什么分隔符分开。
Top
3 楼icecole（小菜）回复于 2003-06-02 14:10:39 得分 0
1.如何往创建的文件添加新记录
2.如果文件里有多行记录，特别是每行记录有多个栏位（就象数据库里的字段）用逗号或Tab符或其它什么分隔符分开，如何读取
Top
4 楼qiaowd（没壳的海螺(失业中)）回复于 2003-06-02 17:05:27 得分 0
用fsoTop
5 楼qingming81（晴明）回复于 2003-06-02 17:23:46 得分 0
那样的要求，最好用数据库，而不是用普通的文件保存或FSO。楼主是在说随机文件(显然楼主并非“小菜”)，既然这样，查查MSDN也就明白了。Top
6 楼htao007（）回复于 2003-06-02 21:23:00 得分 0
把
open Filename for OutPut as FileNum
换成
open Filename for Append as FileNumTop
7 楼nwyf（求知者）回复于 2003-06-03 08:42:57 得分 0
upTop
8 楼ask1（逍遥子）回复于 2003-06-03 08:42:59 得分 0
upTop
9 楼icecole（小菜）回复于 2003-06-05 08:44:00 得分 0
我看了MSDN对多行记录的读取还是不明白，还有FSO是什么意思?Top
10 楼qingming81（晴明）回复于 2003-06-05 13:57:24 得分 0
FSO:FileSystemObjectTop
11 楼icecole（小菜）回复于 2003-06-06 08:17:06 得分 0
to:qingming81
请多多赐教Top
12 楼icecole（小菜）回复于 2003-06-07 08:44:48 得分 0
怎么在一个文件中读取指定行的记录。
比如一个123.txt文件中有10行记录,我想读取其中的第3行和第5行怎么做。
人都跑那去了？？？Top
13 楼schollc（）回复于 2003-06-09 17:03:56 得分 5
Do While Not EOF(FileNum)
Line Input #FileNum, sLogLine
sLine = splitLine(sLogLine)
....Top
14 楼icecole（小菜）回复于 2003-06-10 08:29:42 得分 0
schollc
不是很明白，可否详细点，配点注释.Top
15 楼alicky（周松）回复于 2003-06-10 12:37:59 得分 15
'模块说明：用于对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
Top
16 楼Seiya_（星矢）回复于 2003-06-30 20:48:36 得分 0
gzTop
