DecimalをAsciiに変換しますか？

Question

これはdecimalをAsciiに変換する方法ですが、私はdecfferent形式で10進数を持っています。私はasciiに変換したいです。

Public Shared Function DecimalToASCII(dec As String) As String 
    Dim ascii As String = String.Empty 

    For i As Integer = 0 To dec.Length - 1 Step 3 
     ascii += CChar(ChrW(Convert.ToByte(dec.Substring(i, 3)))) 
    Next 

    Return ascii 
End Function 

EX：

これは10進数であり、iはtextbox1.textでそれOT入力をしたい： 「912,697,583,1065,261」 と私はコンマの間の数字の各グループに操作をしたいですAsciiに変換しますか？

Answer 1

文字列をグループに分割するには、Splitコマンドを使用します。コードは4桁の数字を処理しようとするときに転倒しますが、コードはこれを行うための長年にわたる方法です。

このような要素の事前定義された数の文字列配列を作成 -

Dim myArray() 

は、ここで、このコード

MyArrayという=スプリット（DEC、 ""）

を移入入力例を使用して、ASCII 文字列配列にこのデータが含まれています

myArray（0）= "912"

myarrayの（1）= "697"

myarrayの（2）= "583"

myarrayの（3）= "1065"

myarrayの（4）= "261"

算術演算で使用できる数値を使用する場合は、このコードを代わりに使用してください。関数は整数を使用しているとみなしますが、別の型を使用する場合は、処理する型にIntegerのすべての型を変更し、CInt関数をCDblまたはcSngに変更します。

Public Shared Function DecimalToASCII(dec As String) As Integer() 
    'create an array of strings 
    Dim ascii() As String 

    'split each group into the array 
    ascii = Split(dec, ",") 

    'declare numbers array that is the same size as the ascii array 
    Dim numbers(ascii.GetUpperBound(0)) As Integer 

    'convert the array of strings to an array of numbers 
    For i As Integer = 0 To ascii.GetUpperBound(0) - 1 
     numbers(i) = CInt(ascii(i)) 
    Next 

    'return an array of numbers containing each group 
    Return numbers 
End Function 

このコードでは、この

Dim dec As String = "912,697,583,1065,261" 
Dim MyNumbersArray() As Integer = DecimalToASCII(dec) 

のようにそれを使用して、あなたはMyNumbersArray

このような 整数（0）= 912

MyNumbersArray（1の配列を持つことになります）= 697

MyNumbersArray（2） = 583

MyNumbersArray（3）= 1065

MyNumbersArray（4）= 261

今、あなたは配列の要素を使って好きな数学を実行することができます。