在字符串的开头追加数据

由绳灵秋发布于 2020-01-13 19:46:48

我有一个简单的循环，该循环匹配字母并将等效值转换为二进制。例如，我有一个字母序列，如abc，然后根据下面给出的代码，生成的二进制将是000010001000011，并保存在变量的末尾。

我想拥有的是反向输出，例如二进制输出从000010001000011（abc）转换为000110001000001（cba）。

谁能帮我这段代码？

For i = 0 To stringlength - 1


            If c = "0" Then
                convertdata = "00000"
            ElseIf c = "a" Then
                convertdata = "00001"
            ElseIf c = "b" Then
                convertdata = "00010"
            ElseIf c = "c" Then
                convertdata = "00011"
            ElseIf c = "d" Then
                convertdata = "00100"
            ElseIf c = "e" Then
                convertdata = "00101"
            ElseIf c = "f" Then
                convertdata = "00110"
            ElseIf c = "g" Then
                convertdata = "00111"
            ElseIf c = "h" Then
                convertdata = "01000"
            ElseIf c = "i" Then
                convertdata = "01001"
            ElseIf c = "j" Then
                convertdata = "01010"
            ElseIf c = "k" Then
                convertdata = "01011"
            ElseIf c = "l" Then
                convertdata = "01100"
            ElseIf c = "m" Then
                convertdata = "01101"
            ElseIf c = "n" Then
                convertdata = "01110"
            ElseIf c = "o" Then
                convertdata = "01111"
            ElseIf c = "p" Then
                convertdata = "10000"
            ElseIf c = "q" Then
                convertdata = "10001"
            ElseIf c = "r" Then
                convertdata = "10010"
            ElseIf c = "s" Then
                convertdata = "10011"
            ElseIf c = "t" Then
                convertdata = "10100"
            ElseIf c = "u" Then
                convertdata = "10101"
            ElseIf c = "v" Then
                convertdata = "10110"
            ElseIf c = "w" Then
                convertdata = "10111"
            ElseIf c = "x" Then
                convertdata = "11000"
            ElseIf c = "y" Then
                convertdata = "11001"
            ElseIf c = "z" Then
                convertdata = "11010"
            ElseIf c = "1" Then
                convertdata = "11011"
            ElseIf c = "2" Then
                convertdata = "11100"
            ElseIf c = "3" Then
                convertdata = "11101"
            ElseIf c = "4" Then
                convertdata = "11110"
            Else
                convertdata = "11111"
            End If


            converted_data &= convertdata


        Next

问候，

比拉尔·A·汗

浅浅的回忆

2012-09-12 17:49:54

Change converted_data &= convertdata to converted_data = convertdata & converted_data

伪淑女

2012-09-13 02:05:21

我想拥有的是反向输出，例如二进制输出从000010001000011（abc）转换为000110001000001（cba）。

For i = 0 To stringlength - 1


            If c = "0" Then
                convertdata = "00000"
.... rest of your code


Should be something like this:

Dim stringlength as Int32 = StringToConvert
Dim c as string
For i = 0 To stringlength - 1
    c = StringToConvert(i)

            If c = "0" Then
                convertdata = "00000"
.... rest of your code


To just the reverse result, just change the "For" statement to:
For i = stringlength - 1 to 0 Step -1

我很无聊，所以我为您编写了此函数，以向您展示另一种方法。我并不是说这更好。这只是一种不同的方式。

Private Function MyBinary(ByVal s As String) As String

   Dim alphaOffset As Int32 = Asc("a") - 1

   Dim bits As Int32
   Dim charbits(0 To 4) As Char ' your bit pattern has 5 positions

   ' A StringBuilder is just a class that manages a character array for you
   ' since we can calculate how many characters there will be,
   ' initialize the StringBuilder to this known length
   Dim binary As New System.Text.StringBuilder(s.Length * 5)

   For i As Int32 = s.Length - 1 To 0 Step -1
      If IsNumeric(s(i)) Then
         bits = Int32.Parse(s(i))
         If bits > 4 Then Throw New ArgumentException("Invalid character: " & bits.ToString)
         If bits > 0 Then bits += 26
      Else
         If s(i) < "a"c OrElse s(i) > "z"c Then Throw New ArgumentException("Invalid character: " & s(i))
         bits = Asc(s(i)) - alphaOffset
      End If

      For j As Int32 = 0 To 4
         If (bits And (1 << (4 - j))) = 0 Then
            binary.Append("0"c)
         Else
            binary.Append("1"c)
         End If

      Next j

   Next i
   Return binary.ToString
End Function

绳灵秋

这家伙很懒，什么都没留下

积分
0
话题
0
评论
3169
注册排名
2176