7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zdrone 2004-07-26
- 打赏
- 举报
进者有分
yinweihong 2004-07-26
- 打赏
- 举报
dim ByteArray as Byte[]
dim str as string
str=""
for i=Lbound(ByteArray) to Ubound(ByteArray)
str= str & ByteArray(i)
next
print str
dim str as string
str=""
for i=Lbound(ByteArray) to Ubound(ByteArray)
str= str & ByteArray(i)
next
print str
coo2 2004-07-26
- 打赏
- 举报
谢谢大家的帮助~~
ccidtobe 2004-07-26
- 打赏
- 举报
cstr()函数就可以了
Geo_Cra 2004-07-26
- 打赏
- 举报
To Chice
我准备度个星出来
按照现在三天65的速度，看来是有问题啦……
我准备度个星出来
按照现在三天65的速度，看来是有问题啦……
pigpag 2004-07-26
- 打赏
- 举报
Unicode的就不需要StrConv了
Chice 2004-07-26
- 打赏
- 举报
TO Geo_Cra(锺意阿芙洛蒂忒)
我晕，你怎么也……
呵呵~~~~~~~
我晕，你怎么也……
呵呵~~~~~~~
Chice 2004-07-26
- 打赏
- 举报
StrConv(mybyte, vbUnicode)
StrConv(mybyte, vbFromUnicode)
etc...
是正确的。
不排除其他方法，但用chr()方式会丢失字符。不要用。
StrConv(mybyte, vbFromUnicode)
etc...
是正确的。
不排除其他方法，但用chr()方式会丢失字符。不要用。
Geo_Cra 2004-07-26
- 打赏
- 举报
StrConv是王道
northwolves 2004-07-26
- 打赏
- 举报
Private Sub Command1_Click()
Dim mybyte(49) As Byte, i As Integer, s As String
For i = 0 To 49
mybyte(i) = 200 + i
Next
s = StrConv(mybyte, vbUnicode)
MsgBox s
End Sub
Dim mybyte(49) As Byte, i As Integer, s As String
For i = 0 To 49
mybyte(i) = 200 + i
Next
s = StrConv(mybyte, vbUnicode)
MsgBox s
End Sub
熊孩子开学喽 2004-07-26
- 打赏
- 举报
Dim I as long
Dim Str as String
Dim Bytes(100) as byte
...
...
for I=0 to 100
str=str & chr(Bytes(I))
next
Dim Str as String
Dim Bytes(100) as byte
...
...
for I=0 to 100
str=str & chr(Bytes(I))
next
