作者fumizuki (小獅子)
看板Visual_Basic
標題Re: 請問VB6修改文字檔..
時間Thu Aug 18 19:40:27 2005
※ 引述《GreenGhost (So What ?!)》之銘言：
: 謝謝..我在小雄VB研究中心找到教學了
: 但我想問一下..
: 比如下面那個範例
: Bank = 350000
: Put #1, 19, Bank
: 這邊是說 無論之前第19個位置是什麼 都直接能覆蓋過去嗎?!
: 另外就是.. .txt中的空格在binary中也有佔位元嗎? 一個空格一個個位元嗎?
: 又..換行也佔位元嗎??
: 感謝回答!!!
根據你變數的資料型態而定
以你目前的這個範例來說 Bank 是 Long，4個位元組。
一般文字檔用binary模式存取，都是用 Byte 型態(陣列)，一個元素佔一個位元組。
Dim tr(1 To 1024) As Byte
'讀取 1024 個位元組
Dim tw() As Byte
'寫入 1024 個位元組
tw = StrConv(String(1024, "#"), vbFromUnicode)
'準備 1024 個「#」
Open "d:\temp\text.txt" For Binary As #1
Get #1, 64, tr
'從第64個位元組開始讀取
Put #1, 64, tw
'寫入 1024 個「#」
Close
Debug.Print StrConv(tr, vbUnicode)
'轉換成 Unicode 並輸出至即時運算視窗
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43