Re: [.NET] vb2005的問題?
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
→
12/05 19:24, , 1F
12/05 19:24, 1F
→
12/05 19:49, , 2F
12/05 19:49, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：