Chr$(0)を取り除く          <TOP>

Chr$(0)を取り除きます。

例ではabcdefgの文字列にChr$(0)を付加し、

abcdefgはTrimNull関数を通過した文字列です。

abcdefg¢は元の文字列ですがChr$(0)は表示できないので文字化けしています。

ファイルに書き込んでダンプで見ると0になっています。

'================================================================
'= Chr$(0)を取り除く
'================================================================
Declare Function TrimNull (item As String) As String
Function TrimNull(item As String) As String
    Var ePos As Integer

    ePos = Instr(item, Chr$(0))
    If ePos Then
        TrimNull = Left$(item, ePos - 1)
    Else
        TrimNull = item
    End If
End Function

'------------------------------
Var Buff As String
Var strWK As String

buff = "abcdefg" & Chr$(0)
strWK = TrimNull(buff)

Print strWK
Print buff

Stop
End