VFP 愛用者社區

ken12541 · 註冊時間: 2004-12-21 文章: 14 第 1 樓

各位先進 :
之前有請問過建立 binary file..
也有先進說用 STRTOFILE()
但我還是作不出來 BINARY FILE
可否說的更詳細....?????? THANKS

garfield · 發表於: 星期一三月 10, 2008 1:54 pm 文章主題:

不想用 strtofile() 就用 fopen() 這類的,
以下程式碼從 vfp9 help 節錄下來,

STRTOFILE(cExpression, cFileName [, lAdditive | nFlag])

參數
cExpression

指定要寫入檔案的文字串。cExpression 可以是一個原義字串、評量為文字串的運算式，或是字元型態的變數、陣列元素或欄位。
cFileName

指定要被寫入文字串的檔案名稱。如果檔案不在目前預設目錄中，則應該在檔案名稱中包含路徑。如果您所指定的檔案不存在，則 Visual FoxPro 會自動建立它。
lAdditive (提供回溯相容性)

指定是否將文字串附加到檔尾。如果 lAdditive 為真 (.T.)，則將文字串附加到檔尾。如果 lAdditive 為假 (.F.) (預設)，則用文字串覆蓋檔案。如果 SET SAFETY 命令被設定為 ON，則會詢問是否要覆蓋現有檔案。如果 SET SAFETY 命令被設定為 OFF，則覆蓋該檔案而不警告。
nFlag

從 Visual FoxPro 7 開始，您可以用 nFlag 參數代替 lAdditive，這也讓您選擇寫入 UTF-8 和 Unicode 位元組順序標記。

****

IF FILE('errors.txt') && 檔案是否存在？
gnErrFile = FOPEN('errors.txt',12) && 如果存在，以讀寫方式開啟
ELSE
gnErrFile = FCREATE('errors.txt') && 如果不存在，就建立它
ENDIF
IF gnErrFile < 0 && 檢查開啟檔案錯誤
WAIT '不能開啟或建立輸出檔案' WINDOW NOWAIT
ELSE && 如果沒有錯誤，則寫入該檔案
=FWRITE(gnErrFile, '在這裏寫入錯誤資訊')
ENDIF
=FCLOSE(gnErrFile) && 關閉檔案
MODIFY FILE errors.txt NOWAIT && 在 [編輯] 視窗中開啟檔案

*****
如果還不是你要的功能,
請詳述你所謂的 binary file

ken12541 · 註冊時間: 2004-12-21 文章: 14 第 3 樓

我做出來一直是文字檔,,,,
請問如果要 binary .
nFlag 參數應該下什麼 ?

jeff25 · 發表於: 星期二三月 11, 2008 7:15 am 文章主題:

ken12541,請問你所知道的 binary file 與 text file 的差異在哪裡?
請說清楚,才知你的問題在哪裡?

yang1032 · 註冊時間: 2004-06-19 文章: 58 第 5 樓

看看 ASC CHR 函數
=FWRITE(gnErrFile, '在這裏寫入錯誤資訊') &&寫入text 資料
=FWRITE(gnErrFile, CHR(5)+CHR(8 )) &&寫入binary 資料
簡單的說明或許對你有所幫助
更詳細的請自己下功夫