VB.NET编码解码程序开发求助：解码功能实现遇阻

我看到你在解码功能上卡了快两周，别担心，咱们先理清现有代码里的问题，再一步步修复它！

现有解码代码的核心问题 #

你的当前解码逻辑有几个关键漏洞：

• 没有正确把空格分隔的ASCII字符串拆分成单独的码值，而是逐个字符遍历，容易把多位数的ASCII码拆错（比如123会被当成1、2、3）
• intlength变量从未初始化，循环根本没法正常执行
• 拼接Part后没有在遇到空格时清空，导致后续码值会连在一起
• ChrW(Part)里的Part是字符串类型，而ChrW需要整数参数，会直接报错

修复后的解码实现思路 #

正确的解码流程应该是：

1. 把用户输入的空格分隔的ASCII字符串，按空格拆分成字符串数组
2. 遍历数组中的每个元素，把它转换成整数（ASCII码值）
3. 把每个整数转换成对应的字符，拼接成最终的原字符串

修正后的完整代码 #

Public Class Form1
    Dim Message As String
    Dim NewMessage As String
    Dim Part As String
    Dim Part2 As Integer
    Dim Letter As String
    Dim Length As Integer ' 这里改成Integer，原来的String类型会有隐式转换问题
    Dim ints() As Integer
    Dim intlength As Integer

    Private Sub btn_Enter_Click(sender As Object, e As EventArgs) Handles btn_Enter.Click
        Message = txt_Message.Text.Trim() ' 先去掉首尾空格，避免拆分出空元素
        lbl_Code.Text = "" ' 每次点击先清空结果标签，避免叠加
        NewMessage = "" ' 每次执行重置结果字符串

        If rbn_Encode.Checked = True Then
            Length = Message.Length - 1
            For Num As Integer = 0 To Length
                Letter = Message(Num)
                lbl_Code.Text &= Asc(Letter) & " "
            Next
            ' 去掉最后一个多余的空格，避免解码时出现空元素
            lbl_Code.Text = lbl_Code.Text.Trim()
        End If

        If rbn_Decode.Checked = True Then
            ' 按空格拆分字符串，同时过滤空元素（比如连续空格的情况）
            Dim asciiParts() As String = Message.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
            
            For Each part As String In asciiParts
                ' 尝试把字符串转成整数，避免非法输入报错
                If Integer.TryParse(part, Part2) Then
                    NewMessage &= ChrW(Part2)
                Else
                    ' 如果遇到无法转换的内容，可以加个提示或者跳过
                    NewMessage &= "[无效码值]"
                End If
            Next
            
            lbl_Code.Text = NewMessage
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class

关键改动说明 #

• 编码部分：把Length的类型从String改成Integer（原来的Message.Length()返回整数，赋值给String会有隐式转换问题），并且最后去掉了多余的空格，避免解码时出现空元素
• 解码部分：
  • 用Split方法结合StringSplitOptions.RemoveEmptyEntries，正确拆分出每个ASCII码字符串，同时过滤掉空元素
  • 使用For Each遍历拆分后的数组，比手动用For循环更简洁可靠
  • 用Integer.TryParse做类型转换，避免用户输入非法内容时程序崩溃
  • 每次点击按钮都重置NewMessage和结果标签，避免多次点击的内容叠加

这样修改后，解码功能就能正常工作啦！如果还有其他问题，随时问~

内容的提问来源于stack exchange，提问作者cheesepizzammm