如何删除段落中第二次出现的字符串

时间:2012-06-14 11:25:57

标签: vba access-vba

我有一个像这样的段落

  

我看到苏西坐在一家擦鞋店。她坐在哪里,她闪耀,   她坐在那里闪闪发光。

所以我想删除多次出现的字符串。在上面的段落中,她坐在那里,重复闪耀超过一次。我想删除像这样输出的字符串。

  

我看到苏西坐在一家擦鞋店。她坐在哪里闪闪发光,和。

有没有人指导我解决这个问题?

1 个答案:

答案 0 :(得分: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, " "))