Re: 請問VB6修改文字檔..
※ 引述《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
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
