Работа со строками

[KatruKot]

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том порядке, в котором они встречаются в тексте.
Подскажите, пожалуйста.

Dim text, a, z As String
text = InputBox("Введите строку")
a = Split(text, " ")
z = 0
For i = 0 To UBound(a)
z = 0
For j = 0 To UBound(a)
If a(i) = a(j) And i <> j Then z = z + 1
If z = 0 Then MsgBox " " & a(i)
Next j
Next i

[Sasha_Smirnov]

Вот та же тема (незавершённая): http://programmersforum.ru/showthread.php?t=144035

[viter.alex]

По-моему, можно обойтись без массивов и сплитов, даже тема так названа! Сравнение производится без учёта регистра. Ну и кроме того, будут считаться не только буквы, но и знаки препинания, но их потом можно удалить из результирующей строки

Sub test()
'Исходная и результирующие строки
Dim sText, sOutput As String
'Текущая буква
Dim sLetter As String
sText = "Съешь ещё этих мягких булок да выпей же чаю"
Do While Len(sText) > 1
  sLetter = Mid(sText, 1, 1)
  'Если при удалении буквы длина строки сокращается на единицу,
  'значит такая буква в строке одна. Добавляем её в результирующую строку
  If Len(Replace(sText, sLetter, "", Compare:=vbTextCompare)) = Len(sText) - 1 Then
    sOutput = sOutput & sLetter
  End If
  sText = Replace(sText, sLetter, "", Compare:=vbTextCompare)
Loop
 sOutput = sOutput & sText
 Debug.Print """" & sOutput & """: " & Len(sOutput)
End Sub

[KatruKot]

Так привык к С#, там можно было посимвольно сравнивать... Спасибо вам огромное.

[Sasha_Smirnov]

С помощью двух замен в программе Viter.Alex:

sText = ActiveDocument.Content.Text '"Съешь ещё этих мягких булок да выпей же чаю"

' Debug.Print """" & sOutput & """: " & Len(sOutput)
ActiveDocument.Content.Text = sOutput

получил из неё такой вот текст: ъшэгйжW>ц-

Чтобы хоть к чему-то придраться, спрошу: а с чего это пробел вообще «уволен» из символов?

[viter.alex]

По-моему, в макросе никакой дискриминации по символам нет. Если пробел один, то должен сохраниться.

[Sasha_Smirnov]

"Съшьщё этмягбулодвыпйжчю": 24

А, да, один вывелся! Когда было больше одного — все съелись.