如何在VB.NET中实现调用式行程长度编码器（RLE）？

核心编码逻辑实现 #

行程长度编码的核心是统计连续重复字符的出现次数，再将「次数+字符」的组合拼接成结果字符串。以下是封装好的编码函数：

Function RunLengthEncode(input As String) As String
    ' 处理空输入的边界情况
    If String.IsNullOrEmpty(input) Then Return ""
    
    Dim result As New StringBuilder()
    Dim currentChar As Char = input(0)
    Dim count As Integer = 1
    
    ' 从第二个字符开始遍历
    For i As Integer = 1 To input.Length - 1
        If input(i) = currentChar Then
            ' 当前字符与上一个相同，计数+1
            count += 1
        Else
            ' 字符变化，将之前的统计结果追加到输出
            result.Append(count.ToString()).Append(currentChar)
            ' 更新当前字符和计数
            currentChar = input(i)
            count = 1
        End If
    Next
    
    ' 追加最后一组字符的统计结果
    result.Append(count.ToString()).Append(currentChar)
    
    Return result.ToString()
End Function

调用示例（适配你的标签赋值场景） #

假设你已经有触发编码的逻辑（比如按钮点击事件），直接调用上述函数并将结果赋值给标签即可：

' 假设输入文本来自TextBox1，结果显示在Label1
Private Sub btnEncode_Click(sender As Object, e As EventArgs) Handles btnEncode.Click
    Dim inputText As String = TextBox1.Text
    Dim encodedText As String = RunLengthEncode(inputText)
    Label1.Text = encodedText
End Sub

可选优化点 #

• 如果需要对「单次出现的字符」省略计数（比如输入"ABC"输出"ABC"而非"1A1B1C"），可以在追加结果时判断：If count > 1 Then result.Append(count)，再追加字符。
• 支持区分大小写/忽略大小写：在字符比较时加入大小写转换，比如If Char.ToLower(input(i)) = Char.ToLower(currentChar)。

内容的提问来源于stack exchange，提问作者Løri