作者lineage90160 ()
看板Visual_Basic
标题[.NET] vb2005的问题?
时间Fri Dec 5 15:53:19 2008
我想把输入的字元转换成ascii码(7->55 A->65 B->66)
EX:7AB 转成 556566
然後用另外一个for回圈每两个抓一组换成16进位
EX:55->37 65->41 ......
以下是我写的 但是跑的结果例外
[从字串 "" 至型别 'Long' 的转换是无效的。]
Private Sub butTran_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles butTran.Click
Dim a As Integer
For i As Integer = 1 To Len(txtKr.Text)
a = Asc(Mid(txtKr.Text, i, i))
Next i
For j As Integer = 1 To Len(a) Step 2
txtKu.Text &= Hex(Mid(a, j, j + 2))
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.201.11