TXTBOX框里面的內容是“大家好”
把這個框里面的內容按二進制保存到文本檔案“123.txt”中
代碼應該怎么寫呢？
我在網上找了兩天了，沒有發現好的辦法啊
uj5u.com熱心網友回復：
f=freefile()
open "123.txt" for output as #f
print #f,TXTBOX.Text
close #f
uj5u.com熱心網友回復：
推薦使用WinHex軟體查看硬碟或檔案或記憶體中的原始位元組內容。uj5u.com熱心網友回復：
猜你意思是不是想把文本轉為二進制ASCII代碼再明文保存到TXT里？
比如輸入A
Ascii(A)= Hex(41)=Bin(1000001)
TXT文本里保存的就是1000001
uj5u.com熱心網友回復：
“按二進制保存”是什么意思？所有的資料都是以二進制代碼保存和傳輸的。無非是記事本等軟體在打開 .txt 檔案時預設地將資料按 ASCII 編碼解釋而已，所以我們看到了文字。
你用 UltraEdit 等軟體打開它，選擇二進制編碼顯示，就看到它的真面目了。
uj5u.com熱心網友回復：
Open "123.txt" For Binary As #1Put #1, , TXTBOX.Text
Close #1
uj5u.com熱心網友回復：
我是新人學習嘍uj5u.com熱心網友回復：
Dim fd As Integer, _
byArray() As Byte
'// 將字串轉換到位元組陣列中
byArray = StrConv(text1.Text, vbFromUnicode)
'// 取得有效的檔案號
fd = FreeFile()
'// 以二進制方式打開指定檔案，檔案不存在則創建檔案
Open "yourfile.txt" For Binary As #fd
'// 輸出位元組陣列的資料到檔案當前讀寫的位置（默認為檔案開始處）
Put #fd, , byArray
'// 關閉檔案
Close #fd
uj5u.com熱心網友回復：
下面這個文章中有一個自定義函式名為SaveTextFile，你可以看一下http://blog.csdn.net/supermanking/article/details/5989227
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/142368.html
標籤：非技術類
下一篇：Teechart圖表的列印與存盤