2016-08-10 64 views
0

正如你們都知道蓮花打印,我們將使用蓮:我不能寫MSGBOX信息爲文件

MsgBox "User has already entered into the application" 

任何消息,但這個消息我必須把它寫入TXT文件,所以我代表Msgbox使用此代碼

Dim file As Integer 
fileN% = Freefile() 
Open "D:\sand_p\enter.txt" For Output As fileN% 
Print #fileN%, "User has already entered into the application" 
Close fileN% 

仍然代碼不會將消息寫入文件。 任何人都可以幫助我糾正這個上面的代碼,以便它將追加數據,如果有任何文本文件已經寫入消息到文件。

回答

2

從Domino Designer幫助的語法爲Open的說法是:

打開filename

[對於{隨機|輸入|輸出|追加|二進制}]

[Access {Read | Read |閱讀寫| |寫}}

[{Shared |鎖定Read |鎖讀寫| |鎖寫入}]

如[#] fileNumber

[長度= recLen]

[字符集= MIMECharsetName]

和具體地,附加命令

。指定順序輸出模式,從當前文件結束開始。如果模式與Access類型衝突,則LotusScript將生成錯誤。例如,您無法以附加模式以讀取權限打開文件。除非使用Seek語句移動到文件末尾以外的文件位置,否則Print#和Write#語句會將文本附加到文件末尾

這意味着打開文件並追加文本到它的結束執行類似:

點心文件作爲整數

fileN%= Freefile()

打開 「d:\ sand_p \ enter.txt」 對於追加作爲fileN %

打印#fileN%,「用戶已經進入到應用程序」

關閉fileN%

只要記住,如果這是在客戶端上運行,那麼每個客戶端必須有一個d: \ sand_p文件夾,並且他們有寫入權限。

0

正確的語法是:

Open "D:\sand_p\enter.txt" For Output As #fileN% 

和西蒙所提到的,如果你打開輸出,它會刪除現有的文件,並創建一個新的。爲了追加,語法是:

Open "D:\sand_p\enter.txt" For Append As #fileN%