『壹』 VB讀取二進制數據
left(str,x) '從左讀取x位
right(str,x) '從右讀取x位
mid(str,x,y) '從x位數的地方開始向後讀取y位
InStr(x, str1, str2) '在str1中從x位數開始查找str2的位置
Split(str, ",") '將str中的字元串以逗號「，」為界分開到數組
。。。。。。等等都是提取字元串的各種各樣的函數或方法
具體用什麼方法在指定位置取數字，那要根據你的數據結構來
分析選擇最恰當的方法。
但一般都會把數據先裝進一個變數、然後根據數據結構分別選
擇合適的方法從這個變數中提取。
「數據結構」即將要接受分析的數據集的分布樣式即特點等（這是人
為排列的，不會是雜亂無序的、即一定是有其特徵點的）。
也就是說：你「想知道從指定位置取這種數據」，就必須把
「這種數據」的樣本粘貼上來，大家才會有針對的給你解決的代碼，
否則就像我上面給你解釋的那樣：是靈活多樣的。
『貳』 如何用vb存取mdb資料庫中的長二進制數據
貌似應該這么寫：
.Write rs("TableBd").GetChunk(rs("TableBd").ActualSize)
『叄』 vb如何編程二進制文件
1、用open打開二進制文件，用put寫文件，用get讀文件。
2、所需工具：vb6
3、示例：（二進制文件的寫出與讀取）
PrivateSubCommand1_Click()
Open"c:111.txt"ForBinaryAccessWriteAs#1
DimsAsString
Dimn1AsInteger,n2AsLong
Dimf1AsSingle,f2AsDouble
s="12345"
n1=10
n2=50000
f1=0.1
f2=0.0000000001
Put#1,,s
Put#1,,n1
Put#1,,n2
Put#1,,f1
Put#1,,f2
Close#1
Prints,n1,n2,f1,f2
EndSub
PrivateSubCommand2_Click()
Open"c:111.txt"ForBinaryAccessReadAs#1
DimsAsString
Dimn1AsInteger,n2AsLong
Dimf1AsSingle,f2AsDouble
s=String(5,0)
Get#1,,s
Get#1,,n1
Get#1,,n2
Get#1,,f1
Get#1,,f2
Close#1
Prints,n1,n2,f1,f2
EndSub
4、注意：讀取字元串時，提前用string()函數生成要讀取的長度的串，或者使用定長串。
『肆』 VB二進制文件的問題
Dim
bytes()
As
Byte
dim
lLength
as
Long
Open
"c:\main.exe"
For
Binary
As
#1
'讀取位元組
lLength=LOF(1)
ReDim
bytes(1
To
lLength)
As
Byte
Get
1,
,
bytes
Close
#1'將文件以十六進制方式輸出到Text1中，這個過程很耗時,130K的文件大概需要2分鍾，而且越到後面速度越慢
Dim
strTmp
As
String
For
i
=
1
To
lLength
strTmp
=
strTmp
&
"
"
&
Hex(bytes(i))
DoEvents
Next
Text1.Text
=
strTmpOpen
"d:\abcd.exe"
For
Binary
As
#1
'將位元組轉存
Put
1,
,
bytes
Close
#1
End
Sub
這個是以前用過的,你稍微改下就可以用了
『伍』 vb 二進制文件操作
你是用什麼接收啊?你把2進值換成8的或16的我也不會網路搜下把.
『陸』 VB以二進制寫入文件
Sub writeBinary(bstr, path)
Dim fso
Dim ts
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set ts = fso.createTextFile(path)
If Err.number <> 0 Then
MsgBox(Err.message)
Exit Sub
End If
On Error GoTo 0
ts.Write(bstr)
ts.Close
End Sub
『柒』 怎樣用VB將資料庫中的二進制文件保存到磁碟
我說下思路
varbinary 的資料庫你能取得到 ，通過sql語句或存儲過程 ，然後 new 一個數組，把這個數組寫入到文件里。文件打開的模式用 w |b 這樣的標識 。
『捌』 用vb往mdb資料庫裡面寫入長二進制數據
貌似應該這么寫：
.Write rs("TableBd").GetChunk(rs("TableBd").ActualSize)
打字不易，如滿意，望採納。