ちょっと便利なユーザー関数集（その２）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。

　　＊＊＊＊＊＊＊＊＊＊　　目　　　　次　　＊＊＊＊＊＊＊＊＊＊

１．NullChar以降を消去する(APIなどで使用)
２．
３．
４．
５．
６．
７．

８．ユーザー関数集（その１）へ移動
９．ユーザー関数集（その３）へ移動
１．NullChar（Chr(0))　文字以降を消去する（ゆう(U)さん投稿分）　　　（０８０）
　　 私の場合ランダムファイルで書き込みすると事前にフォーマットしていないと・・・のような文字が文字列の後ろに入り　RTrim()関数を使っても空白が除去できません。
MyDaTa = Trim(fNullCut(MyDaTa)) のようにしてファイルから読み込んだデータの空白及びNullChar（Chr(0))　を除去しています。
文字列の後ろに変な文字がくっついている場合試して下さい。

Option Explicit　　 'SampleNo=080　WindowsXP VB6．0(SP5) 2002．05.17
Private Function fNullCut(ByRef myString As String) As String
　　Dim i As Long
　　i = InStr(myString, vbNullChar)
　　If i > 0& Then
　　　　fNullCut = Left$(myString, i - 1&)
　　Else
　　　　fNullCut = myString
　　End If
End Function


Private Sub Command1_Click()
　　Dim myString　As String
　　myString = "VBレスキュー(花ちゃん)" & String$(8, vbNullChar)
　　Text1.Text = myString & "ABCDEFG"
　　Label1.Caption = fNullCut(myString) & "ABCDEFG"
End Sub




2002/05/17