「Visual Basicの2015」の文字にアスキーを変換するには、私は、Visual Basicで、それぞれの文字に数値ASCII値から次の変換をしていますが、それは無残に失敗した理由を

Question

を失敗しました「：」またはASCII値にそう何が変数textval変数に参照すると、上記のコードは、ワード（2）COLONがある二文字の任意の値を与えるものではありません

Dim i As Integer 
    Dim dec As String 
    Dim original As Integer 
    Dim sentence As String 
    Dim inter As String 
    Dim pth =" c:\TESTER:\JESTER\MESTER " 
    textval="32 99 58 92 84 69 83 84 69 82 58 92 74 69 83 84 69 82 92 77 69 83 84 69 82 32" 
    textval = Trim(textval) 
    'Dim ts() As String = Split(textval) 
    Dim words As String() = textval.Split(New Char() {" "c}) 
    Label1.Text = words(0) + words(1) + words(2) 
    original = Int(ts(2)) 

パスのアスキーequivalintですアスキー番号の場合2961

どうすればよいですか？この問題を修正して、これをより普遍的にして特殊文字を取り込むことはできますか？

貴重な回答をお寄せいただきありがとうございます。

Answer 1

整数値を文字に変換しません。これを解決するにはChr or ChrWを使用する必要があります。 Chrを使用して

ソリューション：ChrWを使用して

Dim textValues1 As String = "32 99 58 92 84 69 83 84 69 82 58 92 74 69 83 84 69 82 92 77 69 83 84 69 82 32" 
textValues1 = textValues1.Trim 
Dim textWords1 As String() = textValues1.Split(New Char() {" "c}) 
Dim strValue1 As String = "" 

For i As Integer = 0 To UBound(textWords1) 
    Dim numValue As Integer = 0 

    If Integer.TryParse(textWords1(i), numValue) Then 
     strValue1 &= Chr(CInt(numValue)) 
    End If 
Next 

Debug.Print(strValue1) 'output: c:\TESTER:\JESTER\MESTER 

ソリューション：

Dim textValues2 As String = "32 99 58 92 84 69 83 84 69 82 58 92 74 69 83 84 69 82 92 77 69 83 84 69 82 32" 
textValues2 = textValues2.Trim 
Dim textWords2() As String = textValues2.Split(New Char() {" "c}) 
Dim strValue2 As String = "" 

For j As Integer = 0 To UBound(textWords2) 
    Dim numValue As Integer = 0 

    If Integer.TryParse(textWords2(j), numValue) Then 
     strValue2 &= ChrW(CInt(numValue)) 
    End If 
Next 

Debug.Print(strValue2) 'output: c:\TESTER:\JESTER\MESTER 

Answer 2

このコードは、あなたのアイデアを与える必要があり、次のコード例を参照してください。整数表現の文字列値は、変換前に整数であることが検証されています。

Dim textval As String = "32 a 99 58 92 84 69 83 84 69 82 58 92 74 69 83 84 69 82 92 77 69 83 84 69 82 32" 
    Dim cvals As New List(Of Char) 

    For Each s As String In textval.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries) 
     Dim ival As Integer 
     If Integer.TryParse(s, ival) Then 
      cvals.Add(ChrW(ival)) 
     End If 
    Next 

    Dim cv As String = cvals.ToArray ' c:\TESTER:\JESTER\MESTER 

このメソッドは、入力が有効であることを確認します。

Answer 3

一般的な「Visual Studio 2015」の回答をお探しの場合は、.Net Frameworkの既存機能を使用してください。バイトまたは文字に文字列を変換するには、次の文を考えてみましょう：

Dim bytes = System.Text.ASCIIEncoding.ASCII.GetBytes(pth) 
Dim chars = System.Text.ASCIIEncoding.ASCII.GetChars(bytes) 
Dim stringValue = System.Text.ASCIIEncoding.ASCII.GetString(bytes) 

特殊文字が含まれている場合は、UTF8およびUnicodeのように、同様に他のエンコーディングを使用することができます。ここにはドキュメントへのリンクがあります：https://msdn.microsoft.com/en-us/library/system.text.asciiencoding(v=vs.110).aspx