7,763
社区成员
发帖
与我相关
我的任务
分享数组内容输出问题
我定义了一个数组
dim abc（0 to 2） as byte
我想以16进制读出其中的内容作为一个文件名
fileName = Hex(abc(2)) &Hex(abc(1))& Hex(abc(0))
这样得到一个六个字符的文件名如 FFFFFF。如果这个数组中的内容都为非0值，则输出是正确的，但如果有一个字节为0的话如abc（1）＝0，则输出就变成了FF0FF，少了一个字符，我想得到FF00FF该怎么办，多谢大家了
dim abc（0 to 2） as byte
我想以16进制读出其中的内容作为一个文件名
fileName = Hex(abc(2)) &Hex(abc(1))& Hex(abc(0))
这样得到一个六个字符的文件名如 FFFFFF。如果这个数组中的内容都为非0值，则输出是正确的，但如果有一个字节为0的话如abc（1）＝0，则输出就变成了FF0FF，少了一个字符，我想得到FF00FF该怎么办，多谢大家了
...全文
请发表友善的回复…
发表回复
gbabadboy01 2006-01-10
- 打赏
- 举报
恩 好方法 多谢 结帖
northwolves 2006-01-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim abc(0 To 2) As Byte, temp(0 To 2) As String, i As Integer
For i = 0 To 2
temp(i) = Right("0" & Hex(abc(i)), 2)
Next
MsgBox Join(temp, "")
End Sub
Dim abc(0 To 2) As Byte, temp(0 To 2) As String, i As Integer
For i = 0 To 2
temp(i) = Right("0" & Hex(abc(i)), 2)
Next
MsgBox Join(temp, "")
End Sub
gbabadboy01 2006-01-09
- 打赏
- 举报
呵呵 忘了说，不只是0会出现这种问题，0～15都会有这种问题，比如05-5 ,0B->B等，所以楼上的方法还是有点局限性。不知道还有没有更好的办法？
faysky2 2006-01-09
- 打赏
- 举报
fileName = Hex(abc(2)) &Hex(abc(1))& Hex(abc(0))
fileName=Replace(fileName,"0","00")
fileName=Replace(fileName,"0","00")
gbabadboy01 2006-01-09
- 打赏
- 举报
可是这样写起来比较麻烦 还有更好的方法吗？
lc_mtt 2006-01-06
- 打赏
- 举报
dim s as string
s=cstr(abc(1))
if len(s)=1 then s="0" & s
s=cstr(abc(1))
if len(s)=1 then s="0" & s
