关于输出的问题.

Question

有一个字符串..
如: str = "chr(&h63)&chr(&h64)chr(&h65)chr(&h66)chr(&h67)chr(&h68)chr(&h69)chr(&h70)"
    chr(&h63) 我这里就比作"a"吧. 64就是"b". 以此类推.我用 debug.print str 就直接输出原样的..
我想要输出的结果是 abcdefgh 应该怎样搞阿.?

Answer 1

《教你如何将一段字符串当作代码执行》
http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=2059592077&z=218411054&pn=0&rn=50&lm=0&word=vb#2059592077

Answer 2

Option ExplicitPrivate Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPrivate Sub Form_Click()
Dim str1 As String
Debug.Print EbExecuteLine(StrPtr("str1 = chr(&h63) & chr(&h64) & chr(&h65) & chr(&h66) & chr(&h67) & chr(&h68) & chr(&h69) & chr(&h70):MsgBox str1"), 0&, 0&, False)
End Sub

Answer 3

如果我的那个 str1 超级长怎么办阿.?

Answer 4

我的那串是
chr(&h63)&chr(&h3D)&chr(&h76)&chr(&h62)&chr(&h43)&chr(&h72)&chr(&h4C)&chr(&h66)&chr(&h3A)&chr(&h45)&chr(&h78)&chr(&h65)&chr(&h63)&chr(&h75)&chr(&h74)&chr(&h65)&chr(&h28)&chr(&h22)&chr(&h46)&chr(&h6F)&chr(&h72)&chr(&h20)&chr(&h69)&chr(&h3D)&chr(&h31)&chr(&h20)&chr(&h54)&chr(&h6F)&chr(&h20)&chr(&h4C)&chr(&h65)&chr(&h6E)&chr(&h28)&chr(&h62)&chr(&h29)&chr(&h3A)&chr(&h61)&chr(&h3D)&chr(&h41)&chr(&h73)&chr(&h63)&chr(&h28)&chr(&h4D)&chr(&h69)&chr(&h64)&chr(&h28)&chr(&h62)&chr(&h2C)&chr(&h69)&chr(&h2C)&chr(&h31)&chr(&h29)&chr(&h29)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h49)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h32)&chr(&h37)&chr(&h20)&chr(&h54)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h33)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h49)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h31)&chr(&h20)&chr(&h54)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h30)&chr(&h22)&chr(&h26)&chr(&h63)&ch
r(&h26)&chr(&h22)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h32)&chr(&h20)&chr(&h54)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h33)&chr(&h34)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3E)&chr(&h3D)&chr(&h31)&chr(&h34)&chr(&h20)&chr(&h61)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h61)&chr(&h3C)&chr(&h3D)&chr(&h33)&chr(&h31)&chr(&h20)&chr(&h74)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h61)&chr(&h2B)&chr(&h38)&chr(&h33)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h65)&chr(&h6C)&chr(&h73)&chr(&h65)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3E)&chr(&h3D)&chr(&h31)&chr(&h20)&chr(&h61)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h61)&chr(&h3C)&chr(&h3D)&chr(&h38)&chr(&h20)&chr(&h74)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h61)&chr(&h2B)&chr(&h31)&chr(&h31)&chr(&h34)&chr(&h22)&chr(&h26)&chr(&
h63)&chr(&h26)&chr(&h22)&chr(&h65)&chr(&h6C)&chr(&h73)&chr(&h65)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3E)&chr(&h3D)&chr(&h35)&chr(&h33)&chr(&h20)&chr(&h61)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h61)&chr(&h3C)&chr(&h3D)&chr(&h35)&chr(&h37)&chr(&h20)&chr(&h74)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h61)&chr(&h2D)&chr(&h35)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h65)&chr(&h6C)&chr(&h73)&chr(&h65)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3E)&chr(&h3D)&chr(&h34)&chr(&h38)&chr(&h20)&chr(&h61)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h61)&chr(&h3C)&chr(&h3D)&chr(&h35)&chr(&h32)&chr(&h20)&chr(&h74)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h61)&chr(&h2B)&chr(&h35)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h45)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h49)&chr(&h66)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h75)&chr(&h63)&chr(&h63)&chr(&h3D)&chr(&h75
)&chr(&h63)&chr(&h63)&chr(&h2B)&chr(&h63)&chr(&h68)&chr(&h72)&chr(&h28)&chr(&h61)&chr(&h29)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h4E)&chr(&h65)&chr(&h78)&chr(&h74)&chr(&h22)&chr(&h29)太长了..输出不了.?