7,763
社区成员
发帖
与我相关
我的任务
分享请问各位,如何在vb中,把一个String 类型的资料,放入到Byte 类型的数组里面?
Dim txt_name As String
Dim name(100) As Byte
txt_name = me.Text1.Text
请问如何把从文本框中得到的值转化到数组里面?
如汉字:公司---->转化成4个字符?
Dim name(100) As Byte
txt_name = me.Text1.Text
请问如何把从文本框中得到的值转化到数组里面?
如汉字:公司---->转化成4个字符?
...全文
请发表友善的回复…
发表回复
northwolves 2003-12-29
- 打赏
- 举报
Private Sub Command1_Click()
Dim txt_name As String
Dim name() As Byte
txt_name = "公司"
name = txt_name
For i = 0 To UBound(name)
Debug.Print name(i)
Next
End Sub
Dim txt_name As String
Dim name() As Byte
txt_name = "公司"
name = txt_name
For i = 0 To UBound(name)
Debug.Print name(i)
Next
End Sub
liuyanghe111 2003-12-29
- 打赏
- 举报
Dim strtemp As String
Dim arrtemp() As Byte
strtemp = "真是乐死人"
arrtemp = strtemp
Dim arrtemp() As Byte
strtemp = "真是乐死人"
arrtemp = strtemp
rainstormmaster 2003-12-29
- 打赏
- 举报
我一般这样做：
Dim s As String
Dim buff() As Byte
s = "今天abc"
buff = StrConv(s, vbFromUnicode)
For i = 0 To UBound(buff)
Debug.Print buff(i)
Next
要转回来的话，就：
s = StrConv(buff, vbUnicode)
Dim s As String
Dim buff() As Byte
s = "今天abc"
buff = StrConv(s, vbFromUnicode)
For i = 0 To UBound(buff)
Debug.Print buff(i)
Next
要转回来的话，就：
s = StrConv(buff, vbUnicode)
