VB6 下 Byte与String 相互转换

[leo5381544]

最近在用VB6做个系统，会使用到Byte与String相互转换

Dim TemplateData() As Byte
ReDim TemplateData(0 To 511)
.....通过程序给TemplateData赋值

.....需要把TemplateData里的值存入数据库

Dim TemplateStr As String

.....转换过程（不知怎么转换）

请哪位告诉下，谢谢

[fj182]

Byte 可以和 String 只接转换，如：
TemplateStr = TemplateData
如果要考虑编码的问题，使用Strconv

TemplateStr = Strconv(TemplateData,vbUnicode)

[zdingyun]

你是将TemplateData数组整个存入数据库？
还是分别存入数据库？
还是上述转换为String存入数据库？

没说清楚。

[leo5381544]

TemplateStr = TemplateData

如果是这样直接赋值,请问如何存到数据库里呢

[leo5381544]

我是想把TemplateData数组全部存到数据库的某一列中，

后期再读取出来，转换成Byte数组

[zdingyun]

[Quote=引用 3 楼 leo5381544 的回复:]
TemplateStr = TemplateData

如果是这样直接赋值,请问如何存到数据库里呢
[/Quote]
1楼的方法是将TemplateData字节数组转换为字符串TemplateStr。

[leo5381544]

[Quote=引用 5 楼 zdingyun 的回复:]
引用 3 楼 leo5381544 的回复:
TemplateStr = TemplateData

如果是这样直接赋值,请问如何存到数据库里呢

1楼的方法是将TemplateData字节数组转换为字符串TemplateStr。
[/Quote]

这样转后是不能直接存在数据库里

[zzhgb]

自己一直用,应该没问题的
Public Sub StringToByte(ByVal strIn As String, ByRef bytOut() As Byte)
Dim i As Long
Dim lngLen As Long
lngLen = Len(strIn)
ReDim bytOut(lngLen)
For i = 0 To lngLen - 1
bytOut(i) = CByte(Asc(Mid(strIn, i + 1, 1)))
Next
End Sub

Public Function ByteToString(ByRef bytIn() As Byte) As String
Dim i As Long
Dim strRet As String
strRet = ""
For i = 0 To UBound(bytIn) - 1
strRet = strRet & Chr(bytIn(i))
Next
ByteToString = strRet
End Function

[zdingyun]

[Quote=引用 6 楼 leo5381544 的回复:]
引用 5 楼 zdingyun 的回复:
引用 3 楼 leo5381544 的回复:
TemplateStr = TemplateData

如果是这样直接赋值,请问如何存到数据库里呢

1楼的方法是将TemplateData字节数组转换为字符串TemplateStr。


这样转后是不能直接存在数据库里
[/Quote]
当然是有问题的，会引起出错。
从你现在的叙述看：
1）可以按你在4楼的设想做
2）也可以将512字节（BYTE）按2进制方式写到文件中。取出同样按2进制方式读取2进制文件。

[leo5381544]

[Quote=引用 7 楼 zzhgb 的回复:]
自己一直用,应该没问题的
Public Sub StringToByte(ByVal strIn As String, ByRef bytOut() As Byte)
Dim i As Long
Dim lngLen As Long
lngLen = Len(strIn)
ReDim bytOut(lngLen)
For i = 0 To lngLen - 1
bytOut(i) = CByte(Asc(Mid(strIn, i + 1, 1)))
Next
End Sub

Public Function ByteToString(ByRef bytIn() As Byte) As String
Dim i As Long
Dim s…
[/Quote]


用您写的方法，转成String后也不能直接存储至数据库

[zdingyun]

读写2进制文件：

Option Explicit
    Dim i As Integer

Private Sub Command1_Click()
    Dim TemplateData(0 To 511) As Byte
    For i = 0 To 511
        TemplateData(i) = i Mod 256
    Next
    Open "c:\TEST" For Binary As #1
        For i = 0 To 511
            Put #1, i + 1, TemplateData(i)
        Next
        ' 若要以其他方式打开文件，必需先关闭此文件。
    Close #1
End Sub

Private Sub Command2_Click()
    Dim TemplateData(0 To 511) As Byte
    Open "c:\TEST" For Binary As #1
        For i = 1 To 512
            Get #1, i, TemplateData(i - 1)
            Print TemplateData(i - 1)
        Next
        ' 若要以其他方式打开文件，必需先关闭此文件。
    Close #1
End Sub

[zdingyun]

写入数据库可以先将BYTE字节数组转换为1个16进制的字符串（1024字节长度）储存在数据库中，读取在将字符串每2字节转换为原BYTE字节数组。

Option Explicit
    Dim i As Integer
    Dim TemplateStr As String
Private Sub Command1_Click()
    Dim TemplateData(511) As Byte
    For i = 0 To 511
        TemplateData(i) = i Mod 256
    Next
    For i = 0 To 511
        If Len(Hex(TemplateData(i))) = 1 Then
            TemplateStr = TemplateStr & "0" & Hex(TemplateData(i))
        Else
            TemplateStr = TemplateStr & Hex(TemplateData(i))
        End If
    Next
    Print UBound(TemplateData)
    Print Len(TemplateStr)
End Sub

Private Sub Command2_Click()
    Dim TemplateData(0 To 511) As Byte
    For i = 1 To Len(TemplateStr) Step 2
        TemplateData((i - 1) / 2) = Val("&h" & Mid(TemplateStr, i, 2))
    Next
    For i = 0 To 511
        Print TemplateData(i)
    Next
End Sub

[zzhgb]

[Quote=引用 9 楼 leo5381544 的回复:]
用您写的方法，转成String后也不能直接存储至数据库
[/Quote]

字符串不能存数据库,这个说法夸张了啊
即使二进制也能直接存数据库的

'将二进制数据存入数据库
Private sub ByteToDB(ByRef ByteData() As Byte)
Dim rst As New ADODB.Recordset
Dim i As Integer
With oRs
If .State = 1 Then .Close
.ActiveConnection = Conn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "select * from 表名"
.AddNew
.Fields("字段名").AppendChunk (ByteData)
.Update
.Close
Set rst = Nothing
End With
End sub

[fangmanhua8888]

學習，同時幫頂......

[zzhgb]

Dim TemplateData() As Byte
ReDim TemplateData(0 To 511)
'.....通过程序给TemplateData赋值

'.....需要把TemplateData里的值存入数据库
call ByteToDB(TemplateData)'此函数上边回帖了
Dim TemplateStr As String
TemplateStr =ByteToString(TemplateData)'此函数上边回帖