看板 Visual_Basic 關於我們 聯絡資訊
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
lineage90160:謝嚕 12/05 19:24
fumizuki:要習慣呼叫函式要加括弧→ txt.ToString() 12/05 19:49