Question

vb 长字符串如何去掉指定字符

比如a="啊大富大贵了空间链接爱疯"
b="了间接吧"
如何在a中去掉b中的这3个字，因为a中没有“吧”字，不用管

Answer 1

Private Sub Command1_Click()
a = "啊大富大贵了空间链亩袭接爱戚模疯"
b = "了高耐缓间接吧"
For i = 1 To Len(b)
a = Replace(a, Mid(b, i, 1), "") '替换字符
Next i
MsgBox a
End Sub

Answer 2

Private Sub Command1_Click()
a = "啊大富大贵了空间链接爱疯"
b = "了间接吧"

For i = 1 To Len(b)
b1 = b1 & " " & Mid(b, i, 1) '处理 了间接吧 在中间戚模加空格

Next

b1 = Trim(b1) '把头空格去掉
b1 = Split(b1) '以空格生成数组

For i = 0 To UBound(b1)
a = Replace(a, b1(i), ""亩袭) '替高耐缓换字符
Next i
MsgBox a
End Sub

Answer 3

私人小组槐谨Command1_Click（）
=大富大贵的空间链接爱疯
B =的“间接右侧
对于i = 1到LEN（二）
=替换（ ，中（B，I，1），铅虚基“”）“字符替换
接下来，我
MSGBOX一誉备个
END SUB