Metinsel bilgiyi byte türündeki dizi aktarma

[rree]

Public Sub StringToArray(ByRef Marray As Byte(), ByVal Mstring As String)
        Dim i As Integer
        Dim uzunluk As Integer
        uzunluk = Mstring.Length
        For i = 0 To (uzunluk - 1)
            Marray(i) = Asc(Mid(Mstring, (i + 1), 1))
        Next

Ben yukarıdaki gibi prosodür oluştudum daha kısa yolu varmıdır?

[Burak B]

Google: C# string to byte[]. Bakınız.

static byte[] GetBytes(string str)
{
    byte[] bytes = new byte[str.Length * sizeof(char)];
    System.Buffer.BlockCopy(str.ToCharArray(), 0, bytes, 0, bytes.Length);
    return bytes;
}

static string GetString(byte[] bytes)
{
    char[] chars = new char[bytes.Length / sizeof(char)];
    System.Buffer.BlockCopy(bytes, 0, chars, 0, bytes.Length);
    return new string(chars);
}

Ayrıca VB.NET için.
Bakınız.

Ancak ben genelde ASCIIEncoding.GetBytes(string); kullanıyorum.

[rree]

Public Adizi(400) As byte
Public AStr As String

private Sub deneme()
  AStr="Merhaba"
  StringToArray(Adizi,Astr) 
End Sub
   Ben deki prosudürü yukarıda olduğu gibi kullanıyorum.
Sizin verdiğiniz örneği nasıl kullanabiliriz.

private Sub deneme()
  AStr="Merhaba"
     Adizi=GetBytes (Astr)  'Bu şekilde anlamsız olur sanırım nasıl ifade edilmeli
End Sub

[Burak B]

Public  Dim bytes() As Byte

private Sub deneme()
     bytes=ASCIIEncoding.GetBytes ("Merhaba Dünya") 
End Sub

Bknz; MSDN Örneği.