经过TopHead兄和Janven兄的提醒,现编了一段小程序与大家共享。
rober 2000-06-02 01:18:00
多谢TopHead兄和Janven兄!!
TopHead兄,经过你的指点。我终于悟到了,现编了一段小程序与大家共享:
题目:如何把一个string类型的字符串放到Byte类型的数组中去?
解答:
Dim b(0 To 511) As Byte
Dim t as String, strTmp as String
Dim i as integer, j as integer
t = "nih nih你好"
j = 1
For i = 1 To Len(t)
strTmp = Mid(t, i, 1)
If Asc(strTmp) < 0 Then
b(j) = AscB(MidB(StrConv(strTmp, vbFromUnicode), 1, 1))
b(j + 1) = AscB(MidB(StrConv(strTmp, vbFromUnicode), 2, 1))
j = j + 2
Else
b(j) = Asc(Mid(t, i, 1))
j = j + 1
End If
Next
For i = 1 To j-1
MsgBox b(i)
Next