如何读取或者创建文本文件

Question

求救！~

Answer 1

Open "e:\test.txt" For Output As #1
Print #1, "OK"
Close #1

Answer 2

'读取
Dim s As String
Open "e:\test.txt" For Input As #1
Input #1, s
Debug.Print s
Close #1

Answer 3

Do While EOF(FileNum)
   line Input #FileNum,NextLine
   kubesfromFile=linesfromFile & NextLine & chr(13) & chr(10)
loop

Answer 4

FSO可以用于在脚本中处理文件系统，当然也可以在VB中使用。导入对Microsoft Scripting Runtime的引用。
范例如下：
dim fso as new scripting.filesystemobject
dim f as scripting.file
dim fd as scripting.folder
dim ts as scripting.textstream
dim ret as stringts = fso.opentextfile("c:\1.txt")
do while ts.atendofline <> true
   ret = ts.read(1)
loop
do while ts.atendoffile <> true
   ret = ts.readline()
loop
ts.close
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/0fa93e5b-b657-408d-9dd3-a43846037a0e.asp

Answer 5

如果数据格式整洁采用随机文件存取比较方便，可以方便的进行读写，并且可以控制读写某一位置
读文件
dim myrecord as datatype'datatype为自定义数据类型，自己定义数据类型，记录号就是根据此来的
dim recordnumber as integer
dim filenum as integer
filnum=freefil()
open "文件路径和文件名" for random as #filnum
dim i as integer
i=1
do while not eof(1)
seek #filenum,i'定位在文件中第i条记录，这里可以直接指定记录数i
get #filenum,i,myrecord'将第i条记录保存在变量myrecord中
'这里对myrecord进行数据处理
i=i+1'这里是逐行读取的，指定seek #filenum,i中i值可以读特定位置
loop
close #filenum写文件用
put #filenum ,recordnumber,myrecord
'其中myrecord是要保存的记录内容
 'recordnumber为要保存的位置，即记录序号