標題: [發問] 以 PRINT 輸出到檔案的資料，為什麼前面有一大段空白? [打印本頁]

---

作者: sasho    時間: 2015-3-15 18:58     標題: 以 PRINT 輸出到檔案的資料，為什麼前面有一大段空白?

本帖最後由 sasho 於 2015-3-15 18:59 編輯

各位前輩晚上好

不曉得為什麼我用 PRINT 的方式輸出資料，結果資料一打開來看，前面全部都出現一長串的空白
請問有辦法解決嗎? 範例如下"

sub test()
dim fileNum as integer

filenum = freefile

OPEN "c:\users\desktop\test.txt"  FOR OUTPUT  AS #filenub

          PRINT #filenub,,"20150313"

CLOSE #filenub

輸出的資料如下

[attach]20438[/attach]

---

作者: GBKEE    時間: 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"

你多了一個 ,

1. Print #filenub, "20150313"

複製代碼

Print # 陳述式範例
本範例使用 Print # 陳述式將資料寫入一個檔案。

1. Open "TESTFILE" For Output As #1    ' 開啟輸出檔案。
   
2. Print #1, "This is a test"    ' 將文字資料寫入檔案。
   
3. Print #1,    ' 寫入空白行至檔案中。
   
4. Print #1, "Zone 1", Tab, "Zone 2"     ' 寫入資料至兩個寫入區 (print zones)。
   
5. Print #1, "Hello", " ", "World"      ' 以空格隔開兩個字串。
   
6. Print #1, Spc(5), "5 leading spaces "     ' 在字串之前寫入五個空格。
   
7. Print #1, Tab(10), "Hello"     ' 將資料寫在第十個資料行。
   
8. 
   
9. ' 設定 Boolean、Date、Null 及 Error 等變數的值。
   
10. Dim MyBool, MyDate, MyNull, MyError
    
11. MyBool = False: MyDate = #2/12/1969#: MyNull = Null
    
12. MyError = CVErr(32767)
    
13. ' True、False、Null，及 Error 會依照您的電腦系統的地區設定
    
14. ' 來顯示。日期表示法會以一般「短式日期」的格式顯示。
    
15. Print #1, MyBool, " is a Boolean value"
    
16. Print #1, MyDate, " is a date"
    
17. Print #1, MyNull, " is a null value"
    
18. Print #1, MyError, " is an error value"
    
19. Close #1    ' 關閉檔案。

複製代碼

---

作者: diolin    時間: 2015-3-17 10:08

PRINT #filenub,,"20150313"

多了一個逗點, 拿掉一個應該就好了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)