- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2015-3-16 06:32
| 只看該作者
本帖最後由 GBKEE 於 2015-3-16 08:50 編輯
回復 1# sasho
變數有筆誤
fileNum = FreeFile
Open "c:\users\desktop\test.txt" For Output As #filenub
Print #fileNum, , "20150313"
你多了一個 ,- Print #filenub, "20150313"
本範例使用 Print # 陳述式將資料寫入一個檔案。- Open "TESTFILE" For Output As #1 ' 開啟輸出檔案。
- Print #1, "This is a test" ' 將文字資料寫入檔案。
- Print #1, ' 寫入空白行至檔案中。
- Print #1, "Zone 1", Tab, "Zone 2" ' 寫入資料至兩個寫入區 (print zones)。
- Print #1, "Hello", " ", "World" ' 以空格隔開兩個字串。
- Print #1, Spc(5), "5 leading spaces " ' 在字串之前寫入五個空格。
- Print #1, Tab(10), "Hello" ' 將資料寫在第十個資料行。
- ' 設定 Boolean、Date、Null 及 Error 等變數的值。
- Dim MyBool, MyDate, MyNull, MyError
- MyBool = False: MyDate = #2/12/1969#: MyNull = Null
- MyError = CVErr(32767)
- ' True、False、Null，及 Error 會依照您的電腦系統的地區設定
- ' 來顯示。日期表示法會以一般「短式日期」的格式顯示。
- Print #1, MyBool, " is a Boolean value"
- Print #1, MyDate, " is a date"
- Print #1, MyNull, " is a null value"
- Print #1, MyError, " is an error value"
- Close #1 ' 關閉檔案。
|
|
發表於 2015-3-15 18:58
| 
