将包含有Null结尾的字符串转换为VB字符串

　2006-02-27 11:41:52　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鐏氱€氼剟姊洪崹顕呭剰闁逞屽墮缁夊綊寮婚妸褉鍋撻棃娑欏暈闁伙綀浜埀顒傛暬閸嬪﹪宕伴弽褏鏆﹂柨鐕傛嫹

核心提示：在VB编程调用WindowsAPI函数时,经常会碰到以Null结尾的字符串,下面是一段将Null结尾字符串转换到VB字符串的函数:PublicFunctionLPSTRToVBString$(ByVals$)Dimnullpos&nullpos&=InStr(s$,Chr$(0))Ifnullpos>0ThenL

在VB编程调用WindowsAPI函数时,经常会碰到以Null结尾的字符串,下面是一段将Null结尾字符串转换到VB字符串的函数:
PublicFunctionLPSTRToVBString$(ByVals$)
Dimnullpos&
nullpos&=InStr(s$,Chr$(0))
Ifnullpos>0Then
LPSTRToVBString=Left$(s$,nullpos-1)
Else
LPSTRToVBString=""
EndIf
EndFunction->