作者catchtest (萧云)
看板Visual_Basic
标题Re: [.NET] vb2005的问题?
时间Fri Dec 5 17:11:58 2008
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim txt As New System.Text.StringBuilder
For i As Integer = 0 To TextBox1.Text.Length - 1
txt.Append(Hex(Asc(TextBox1.Text(i))).ToString)
Next
TextBox1.Text = txt.ToString
End Sub
※ 引述《lineage90160 ()》之铭言：
: 我想把输入的字元转换成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: 61.59.68.3
1F：→ lineage90160:谢噜 12/05 19:24
2F：→ fumizuki:要习惯呼叫函式要加括弧→ txt.ToString() 12/05 19:49