字串配对及移除-进阶功能 使用vb.net

Question

我有一字串如下(范例字串)
dim temStr as string=AA ABB BBDDDJJ JEEEEGGG GGDDD
然后，会有一个配对子：为比如为DDD传进来

进到这个函数后会变成
前方的DDD被移除了
temStr =AAABBBBJJJEEEEGGGGGDDD
outputStr=DDD

注意点：这个字串，也有可能出现两次DDD，但只移除一个，移除前面或后面都可以

Answer 1

&nbsp;Module&nbsp;Module1 &nbsp;&nbsp;&nbsp;&nbsp;Sub&nbsp;Main() &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;temStr&nbsp;As&nbsp;String&nbsp;=&nbsp;"AA&nbsp;ABB&nbsp;BBDDDJJ&nbsp;JEEEEGGG&nbsp;GGDDD" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;s&nbsp;As&nbsp;String&nbsp;=&nbsp;"DDD" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;outputStr&nbsp;As&nbsp;String&nbsp;=&nbsp;Nothing &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;InStr(temStr,&nbsp;s)&nbsp;<>&nbsp;-1&nbsp;Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;temStr&nbsp;=&nbsp;Left(temStr,&nbsp;InStr(temStr,&nbsp;s)&nbsp;-&nbsp;1)&nbsp;+&nbsp;Right(temStr,&nbsp;Len(temStr)&nbsp;-&nbsp;Len(s)&nbsp;-&nbsp;InStr(temStr,&nbsp;s)&nbsp;+&nbsp;1) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;outputStr&nbsp;=&nbsp;s &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Console.WriteLine(temStr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If &nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;Sub End&nbsp;Module