如何在VB.net中获取字符串的ASCII值

如何在VB.net中获取字符串的ASCII值,vb.net,string,ascii,Vb.net,String,Ascii,我希望能够获得字符串中所有字符的ASCII值。 我可以得到一个字符的ASCII值,但不能得到整个字符串的ASCII值 我的尝试: dim input as string = console.readline() dim value as integer = ASC(input) 'Then I am changing its value by +1 to write the input in a secret code form. console.writeline(CHR(value+1))

我希望能够获得字符串中所有字符的ASCII值。 我可以得到一个字符的ASCII值,但不能得到整个字符串的ASCII值

我的尝试:

dim input as string = console.readline()
dim value as integer = ASC(input)

'Then I am changing its value by +1 to write the input in a secret code form.
console.writeline(CHR(value+1))
我希望能够获得字符串中所有字符的ASCII值,以便可以更改字符串中的所有字母+字母表中的1个字符。 感谢您的帮助。

使用:

如果要增加每个字母的ascii值,可以使用以下代码:

For i As Int32 = 0 To asciis.Length - 1
    asciis(i) = CByte(asciis(i) + 1)
Next
Dim result As String = System.Text.Encoding.ASCII.GetString(asciis)

我知道已经快三年了,但让我给你看看这个

函数将字符串转换为Ascii(代码中已有字符串)。您可以使用(Asc)或(Ascw)。。。欲了解更多信息,请阅读

函数将Ascii转换为字符串(您要求的内容)。您可以使用(Chr)或(ChrW)。。。欲了解更多信息,请阅读


您是否考虑过字符串由多个ASCII字符代码组成?VB.NET将很乐意接受您的borken代码,但是ASC只查看第一个字符,而忽略其余字符。是的,但我不知道获取整个字符串的ASCII值的命令。我只知道如何对单个字符执行此操作:/嗯,您只需将问题的标题复制/粘贴到Google查询框中,就可以得到与您选择的答案相同的答案。您试过了吗?.NET字符串是Unicode/UTF-16代码单元的计数序列,其中一个或两个编码一个代码点。Unicode是ASCII的超集。当你说“ASCII码”时,你真的是指Unicode码点吗?无论如何,一般来说,向字符代码中添加1会导致字符代码无效;您需要范围检查和/或环绕逻辑。我在编译程序时出错。“'Encoding'未声明。由于其保护级别,它可能无法访问。”@Phalanx:如果单击错误,Visual Studio会告诉您它位于
System.Text
命名空间中,并建议添加导入。但是,你也可以使用完全限定类,编辑我的答案。哦,对了,我使用了CMD,所以我看不到如何修复错误。不过,您的修复程序仍然有效,谢谢:)
For i As Int32 = 0 To asciis.Length - 1
    asciis(i) = CByte(asciis(i) + 1)
Next
Dim result As String = System.Text.Encoding.ASCII.GetString(asciis)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 
      System.EventArgs) Handles Button2.Click

        Dim a As Integer
        a = Asc(TextBox1.Text)
        MessageBox.Show(a)

    End Sub 
End Class
Dim Input As String = console.readline()
Dim Value As New List(Of Integer)
For Each N As Char In Input
Value.Add(Asc(N) & " ")
Next
Dim OutPutsAscii As String = String.Join(" ", Value)
Dim Value1 As New List(Of Integer)
Dim MyString As String = String.Empty
For Each Val1 As Integer In Value1
MyString &= ChrW(Val1)
Next