Question

vb 二进制文件中二进制转十进制谁会啊？

vb设计，有一个dat二进制文件，读的时候应该是byte字节型，我想把里面的二进制数转成十进制数，输出到文本文件中。注意是byte字节型的二进制转十进制，网上流传的代码都是string型的。我实在不知道该怎么操作这个bytes型，不了解。有谁知道该怎么做么？请把具体代码写出来，先谢谢了！！！
首先谢谢大家，对不起，可能是我没说明白。现在我有一个二进制文件，用open二进制打开，get #1，mybyte后，可以化成十进制，但老师的要求是四个字节是一个A数据，不知道该怎么做啊，老师要求的是什么意思啊？该怎么做呢？谢谢大家！

Answer 1

2009-4-16 09:20
byte类型，读入后输出，本来就是十进制的了。任何数据在磁盘上都是以二进制存储的。

Private Sub Command1_Click()
Dim b() As Byte, fName As String, lfile As Long, i As Long
fName = "c:\BOOTSECT.DOS"
lfile = FileLen(fName)
ReDim b(1 To lfile)
Open fName For Binary As 1#
Get #1, , b
Close
For i = 1 To lfile
Debug.Print b(i);
Next i
End Sub
将c:\BOOTSECT.DOS换成你需要的文件名就可以了

2009-4-17 09:10
PS:
如果存储的数是以long类型的标准的4个字节存储(存储在前面的为数据的低位，如：存储数据为03 02 01 00，实际是 &H00010203)的话，只需要把读入数的类型定义为long类型，循环的结束条件设为 lfile/4就可以了。
如果存储的数不是以long类型的标准存储的话，那就要用到CopyMemory。
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim b() As Byte, fName As String, lfile As Long, i As Long, j As Integer
Dim b1(0 To 3) As Byte, lngTMP As Long
On Error Resume Next
fName = "c:\BOOTSECT.DOS"
lfile = FileLen(fName)
ReDim b(1 To lfile)
Open fName For Binary As 1#
Get #1, , b
Close
For i = 1 To lfile / 4
For j = 0 To 3
b1(j) = b(i + 3 - j)
Debug.Print Hex(b1(j)); " ";
Next j
CopyMemory lngTMP, b1(0), 4
Debug.Print , lngTMP
Next i
End Sub

Answer 2

二进制转十进制

这个数据转换我想是有算法的，

Answer 3

Private Sub Command5_Click()
Dim l2 As Long
Text3.Text = ""
If IsNumeric(Text4.Text) = False Then Exit Sub
Text3.Locked = True
l2 = CLng(Text4.Text)
Do While l2 > 0
Text3.Text = l2 Mod 2 & Text3.Text
l2 = l2 \ 2
Loop
End Sub

Answer 4

没多复杂，用CStr转换就行了。

Answer 5

第一步建立函数 BYTETOSTR
你自己根据需要去写
二进制数转成十进制代码如下:
在窗体上先建立一个TEXT和COMMAND
Private Sub Command1_Click()
Dim s As Integer, s1 As Long, str1 As String, StrLine() As String
str1 = ""
s1 = 0
s = Len(Text1.Text) '这里是你输入的二进制数
For i = 1 To s
str1 = str1 & Mid(Text1.Text, i, 1) & "|"
s1 = s1 + 2 ^ (s - i) * Val(Mid(Text1.Text, i, 1))

Next i
MsgBox s1
End Sub

运算的结果就是十进制数

Answer 6

用byte字节型读取的数据就是10进制数据，没有必要再进行转换，你只要把它直接输出到文本文件可即可。

代码如下：

Private Sub Command1_Click()
Dim i As Integer, s As String, BB() As Byte, FileName As String
FileName = "c:\1.dat"
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #i
Get #i, , BB '读取文件到byte字节型数组
Close #i
FileName = "c:\1.txt"
Open FileName For Binary As #1
For i = 0 To UBound(BB)
Put #1, , BB(i) & " " '输出到文件文件
Next
Close #1
End Sub