作者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