文字列前後のスペースを削除          <TOP>

PathRemoveBlanks 文字列の前後にある全てのスペース文字を削除

F-BasicでのTrim$と同様な働きをします。

　

'================================================================
'= 文字列前後のスペースを削除
'=   (PathRemoveBlanks.bas/P)
'================================================================

' 文字列の前後にある全てのスペース文字を削除
Declare Sub Api_PathRemoveBlanks Lib "shlwapi" Alias "PathRemoveBlanksA" (ByVal pszPath$)

Var Path As String

Path = "  C:\_FB_API_P\    "
Print ">" & Path & "<"

Api_PathRemoveBlanks Path
Print ">" & Left$(Path, Instr(Path, Chr$(0)) - 1) & "<"

Stop
End