バイト配列の値を文字列に変換するには？ (ID:112674)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

たびたびスイマセン。これでホントの最終。
[VB.NET]
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strString As String = "1１２３漢r字４５６７８９０"
        Dim BytesA() As Byte
        Dim BytesWK() As Byte
        Dim sjisEnc As System.text.Encoding
        Dim str As String
        Dim i, n As Integer
        n = 500 ' 切り取りたいバイト数
        n = KugiriCheck(strString, n)

sjisEnc = sjisEnc.GetEncoding("Shift_JIS")
        BytesA = sjisEnc.GetBytes(strString)
        ReDim BytesWK(n - 1)
        For i = 0 To n - 1
            BytesWK(i) = BytesA(i)
        Next i

i = UBound(BytesWK, 1)

str = sjisEnc.GetString(BytesWK)

'str = str & "Dummy" ' 最後に"が付いてないとこの処理がうまくいかないです。

End Sub

Private Function KugiriCheck(ByVal TextX As String, ByVal ByteLength As Integer) As Integer
        Dim i, intCheck, intReturn, intStep As Integer

If ByteLength <= 0 Then Return 0

For i = 1 To Len(TextX)
            intCheck = Asc(Mid(TextX, i, 1))
            If intCheck < 0 Or intCheck > 255 Then
                intStep = 2
            Else
                intStep = 1
            End If
            intReturn = intReturn + intStep

If ByteLength = intReturn Then
                Return intReturn
            ElseIf ByteLength < intReturn Then
                Return intReturn - intStep
            End If
        Next

Return intReturn
    End Function

←解決時は質問者本人がここをチェックしてください。

戻る