怎么写一个txt文件啊?

viking7 2004-04-13 02:44:57
谢谢个位大哥了!
...全文
175 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
mmcgzs 2004-04-13
  • 打赏
  • 举报
回复
Open "c:\test.txt" For Output As #1
Print #1,"aaaaa"
Print #1,"bbbbb"
...
close #1
yinweihong 2004-04-13
  • 打赏
  • 举报
回复
高手实在是多啊 啧啧。。
zxindut 2004-04-13
  • 打赏
  • 举报
回复
‘varData
fileNumber = FreeFile

Open OutFileName For Binary Access Write As fileNumber

Put fileNumber, , varData
Close fileNumber
  • 打赏
  • 举报
回复
大哥,这个就是msdn的例子代码呀,
不信可以查查put语句。


其实我也不想的 ^_^
liyan010 2004-04-13
  • 打赏
  • 举报
回复
To passer_wave(路人):

哈哈,我发现你很有意思哦:)

楼主只是问了一个简单的写txt文件的问题,你却能写出那么复杂的代码,连自定义类型都用上了,厉害~(别拍我哦*_^)
华芸智森 2004-04-13
  • 打赏
  • 举报
回复
'
'读TEXT文件
'函数:RedTextFile
'参数:FileName 打开的TXT文件名.
'返回值:成功 返回文件内容.失败 返回""
Public Function RedTextFile(Filename As String) As String
Dim FileID As Long
Dim InputStr As String
Dim LineStr As String

On Error Resume Next

InputStr = "": LineStr = ""
FileID = FreeFile()
Open Filename For Input As #FileID
Do While Not EOF(FileID) ' 循环至文件尾。
LineStr = ""
Line Input #FileID, LineStr
InputStr = InputStr & LineStr
Loop
Close #FileID
RedTextFile = IIf(Err.Number = 0, InputStr, "")
Err.Clear
End Function

'
'写TEXT文件
'函数:WritTextFile
'参数:FileName 目标文件名.WritStr 写到目标的字符串.
'返回值:成功 返回文件内容.失败 返回""
'注:如果同名,目标字符串将覆盖原文件内容.
Public Function WritTextFile(Filename As String, WritStr As String) As Boolean
'/保存文件
Dim FileID As Long, ConTents As String
Dim A As Long, B As Long

On Error Resume Next

FileID = FreeFile
Open Filename For Output As #FileID
Print #FileID, WritStr
Close #FileID
WritTextFile = (Err.Number = 0)
Err.Clear
End Function
pyf1027 2004-04-13
  • 打赏
  • 举报
回复
应该这样写:
Put 语句示例
本示例使用 Put 语句将数据写入文件中。示例中写入五个用户自定义数据类型 Record 的记录。

Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record, RecordNumber ' 声明变量。
' 以随机访问方式打开文件。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5 ' 循环五次。
MyRecord.ID = RecordNumber ' 定义 ID。
MyRecord.Name = "My Name" & RecordNumber ' 建立字符串。
Put #1, RecordNumber, MyRecord ' 将记录写入文件中。
Next RecordNumber
Close #1 ' 关闭文件。
射天狼 2004-04-13
  • 打赏
  • 举报
回复
'读文件
Open "C:\aa.txt" For Input As #1
Str = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

'写文件
Open "C:\aa.txt" For Output As #1
Print #1, Str
Close #1
  • 打赏
  • 举报
回复
Put 语句示例
本示例使用 Put 语句将数据写入文件中。示例中写入五个用户自定义数据类型 Record 的记录。

Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record, RecordNumber ' 声明变量。
' 以随机访问方式打开文件。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5 ' 循环五次。
MyRecord.ID = RecordNumber ' 定义 ID。
MyRecord.Name = "My Name" & RecordNumber ' 建立字符串。
Put #1, RecordNumber, MyRecord ' 将记录写入文件中。
Next RecordNumber
Close #1 ' 关闭文件。

northwolves 2004-04-13
  • 打赏
  • 举报
回复
Open "c:\test.txt" For binary As #1
Put #1,,"aaaaa"
Put #1,,"bbbbb"
...
close #1
csdnmzk 2004-04-13
  • 打赏
  • 举报
回复
如果是需要写入比较大的文件可以用WRITE或WRITELINE,它比直接用INTPUT LINE(上面的代码)快,具体怎么操作可以参考MSDN,有很好的例子
饮水需思源 2004-04-13
  • 打赏
  • 举报
回复
Open "c:\test.txt" For Output As #1
Print #1,"aaaaa"
Print #1,"bbbbb"
...
close #1

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧