‘壹’ 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)
打字不易，如满意，望采纳。