'################# 保存文本文件 ##############
Private Sub SaveFile_Click()
On Error GoTo trip
CommonDialog1.ShowSave
Dim lFileName As Long
lFileName = FreeFile
Open CommonDialog1.FileName For Output As #lFileName
Print #lFileName, Txt1.Text
Close #lFileName
trip:
End Sub
Private Sub SaveFile_Click()
On Error GoTo trip
CommonDialog1.ShowSave
Dim lFileName As Long
lFileName = FreeFile
Open CommonDialog1.FileName For Output As #lFileName
Print #lFileName, Txt1.Text
Close #lFileName
trip:
End Sub
书上这么写的,我看不懂:
write 用于将一系列变量写入文件
print 控制数据在行中的写入地址
您那是那本书上说的
我的书上说:
Write# 不同与 Print# 之处在于:Write# 会自动在各项数据之间加上分隔符(如逗号),而Print# 则否。所以,使用Write#语句所写的分项数据很容易使用Input#读出。
On Error GoTo trip
CommonDialog1.ShowSave
Dim lFileName As Long
lFileName = FreeFile
Open CommonDialog1.FileName For Output As #lFileName
Print #lFileName, Txt1.Text
Close #lFileName
trip:
End Sub
实际应用还是Print用的多。Write连续写多个数据的时候不但给字符串加引号,而且不同数据只间用“,”分割。而Print没这么麻烦,更简单,你指定如何输出就如何输出。