ms-access - 段落内の 2 番目に出現する文字列を削除する方法

Question

私はこのような段落を持っています

私はスージーが靴磨き屋に座っているのを見た. 彼女が座っているところに彼女は輝いており、彼女が輝いているところに彼女は座っています。

そのため、複数回出現する文字列を削除したいと考えています。上記の段落で、she, sits, where, shines が複数回繰り返されます。このような出力が必要な文字列を削除したい。

私はスージーが靴磨き屋に座っているのを見た. 彼女が座っているところが輝いて、そして。

これを解決するために誰かが私を案内してくれましたか?

Answer 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, " "))