0

ASCII コードを文字列にデコードする際に問題があります。

最初に、ユーザーからのテキスト入力を受け取り、ラベルに連続して割り当てられる ASCII コードに変換します。そのラベルから通常の文字列に変換したいよりも。しかし、文字列の代わりにランダムなシンボルを受け取ります。

特定の文字のコードがいつ開始され、いつ終了するかを関数が区別できないためだと思います。どうすれば区切り記号などを設定できますか? もちろん、それが問題を解決するつもりなら

これは私が使用したコードです:

 Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    Label3.Text = ""
    For x As Integer = 1 To TextBox3.Text.Length
        Label3.Text &= CStr(Asc(Mid$(TextBox3.Text, x, 1)))
    Next
End Sub

Protected Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    Label4.Text = ""
    For x As Integer = 1 To Label3.Text.Length
        Label4.Text &= Chr(Mid$(Label3.Text, x, 1))
    Next
End Sub
4

1 に答える 1

0

これを試してみてください。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Label3.Text = ""
  For x As Integer = 1 To TextBox3.Text.Length
    Label3.Text &= CStr(Asc(Mid$(TextBox3.Text, x, 1))) & "|"
  Next
End Sub


Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
  Label4.Text = ""
  Dim value As Integer = 0
  Dim buf As String = ""
  For x As Integer = 1 To Label3.Text.Length
    If Mid$(Label3.Text, x, 1) <> "|" Then
      buf &= Mid$(Label3.Text, x, 1)
    Else
      Label4.Text &= Chr(Val(buf))
      buf = ""
    End If
  Next
End Sub
于 2013-03-09T06:14:55.173 に答える