VB如何写入TXT文本
想弄个记流水帐的程序,!主程序只有一个TXT文本输入框加一个确定按钮!
比如输入,"今天去逛街花了2元钱!" 按确定,就写入D:/记帐本.txt
各位给点提示吧!
[解决办法]
Private Function SaveFile (FilePath As String,AMode As Long,aValue As String) As String
Dim FileNu As Long
FileNu = Freefile '获取一个可用的文件号
Select Case AMode
Case "Append" '追加方式
Open FilePath For Append As FreeFile
Print #Freefile,AValue & vbcrlf
Close FreeFile
Case "Output" '更新方式
Open FilePath For output As FreeFile
Print #Freefile,AValue & vbcrlf
Close FreeFile
Case "Input" '读取
If Dir(FilePath) = "" Then SaveFile = "Error"
Exit Function
End If
Open FilePath For Input As FreeFile
Dim FileData As String
Input #Freefile,FileData
SaveFile = FileData
Close FreeFile
End Select
End Sub
