API版本的TrimNull函数
2004-12-03 00:26 电脑人生 阅读(223) 评论(0) 编辑 收藏 举报很有用的API版本的TrimNull函数:
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Function TrimNull(startstr As String) As String
TrimNull = Left(startstr, lstrlenW(StrPtr(startstr)))
End Function