String Auslesen?

[Bluespide]

Bastel dir einfach selber eine Funktion die den String bis zum ende ausließt, in etwa so:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

. Private Function ReadStringUnicode(ByVal Adress As Integer) As String Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode Dim str As String = "" Dim tByte As Integer = 0 Do tByte = Module2.ReadByte(Adress) If tByte = 0 Then str += enc.GetString({tByte}) Exit Do Else str += enc.GetString({tByte, Module2.ReadByte(Adress + 1)}) Adress += 2 End If Loop Return str End Function

---