返回列表 上一主題 發帖

[發問] 以 PRINT 輸出到檔案的資料，為什麼前面有一大段空白?

sasho

帖子
49 
主題
18 
精華
0 
積分
154 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2010-6-16 
最後登錄
2024-8-5 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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

輸出的資料如下

收藏 分享

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
3#
發表於 2015-3-17 10:08 | 只看該作者
PRINT #filenub,,"20150313"

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
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"

你多了一個 ,
  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"     ' 將資料寫在第十個資料行。

  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    ' 關閉檔案。
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題