2012-06-14 102 views
-1

串的第二次出現我有這樣如何刪除段落

我看到蘇西坐在擦鞋鋪段落。她坐在哪裏,她發光, ,她坐在哪裏她發光。

因此,我想刪除多次出現的字符串。在上面的段落中,她坐在那裏,閃耀着不止一次的重複。我想刪除像這樣需要輸出的字符串。

我看見蘇西坐在擦鞋店裏。她坐在那裏閃閃發光,而且。

有沒有人指導我解決這個問題?

回答

1

未經允許標點符號,你可以嘗試在這些方針的東西:

s1 = "I saw Susie sitting in a shoe shine shop. " _ 
    & "Where she sits she shines, and where she shines she sits." 
a1 = Split(s1, " ") 

For i = 0 To UBound(a1) 
    For j = i + 1 To UBound(a1) 
     If a1(j) = a1(i) Then 
      a1(j) = "" 
     End If 
    Next 

Next 

s2 = Trim(Join(a1, " ")) 
+0

下面的代碼一樣也能正常工作。 http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/2ce86f3b-08ce-47e5-bd89-60ec21160083?prof=required – DeeGo

+0

@HarvestHappiness你的標籤說'access-vba',但鏈接以上是針對MS Word VBA的。請確保在發佈問題時使用有效標籤。 – Fionnuala