Question

VB.NET删除s1中的s2

编写一个子过程DeleStr(s1, s2),将字符串s1中出现的s2子字符串删去，结果仍存放在s1中。为了删除子串，首先利用InStr函数查找子串，找到则通过Left、Mid（或Right）函数实现子字符串的删除，同时要利用循环考虑到删除多个子串的情况 谢谢啦~~~

Answer 1

s1.replace(s2)不就行了

追问

硬性要求的标准 能按要求帮忙编好代码发上来吗？

追答

Function DeleStr(ByVal s1, ByVal s2) As String
Dim InPostion As Integer = InStr(s1, s2)
Dim strLeft As String = ""
Dim strRight As String = ""
Do While InPostion > 0
strLeft = Microsoft.VisualBasic.Left(s1, InPostion - 1)
strRight = Microsoft.VisualBasic.Right(s1, Len(s1) - InPostion - 1)
s1 = strLeft & strRight
InPostion = InStr(s1, s2)
Loop
Return s1
End Function