vb 取掉字符串,该如何处理

vb 取掉字符串
dim str1="abcdefg"
dim str2="de"
我想 从str1中去掉 de后面的所有 字符
得到 abcde
如何做
用 vbscript

[解决办法]

VBScript code

Dim str1 : str1="abcdefg" Dim str2 : str2="de"Dim p, sp = InStr(str1, str2)If IsNull(p) Or p = 0 Then    s = str1Else    s = Left(str1, p + Len(str2)-1)End IfWScript.Echo s