поиск N-го слова в строке

[devel]

Подскажите плз какое-нибудь красивое решение задачи:

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

Может есть что-нибудь стандартное или все ручками делать?

Заранее спасибо.

[alibek]

А что за строка? Если текст, написаный типографски правильно (т.е. после знаков препинания ставится пробел), то можно разбивать строку на слова с помощью Split(Text," ").
Но вообще-то надо ручками

[devel]

Отличная идея!
Слова разделены непечатными символами, в т. ч. и пробелами. Если запятая скажем стоит отдельно, она считается отдельным словом - это меня устраивает.
Тогда все непечатные символы, в т. ч. переводы строки и тому подобное можно заменить на пробелы и воспользоваться Split.
Щас попробую...

[Damage]

а не проще ли сделать это через
MyPos=InStr(SearchString, SearchChar) находит первое появление в строке и показывает позицию, после чего отделяем от строки начало до MyPos+len(SearchChar) и повторяем операцию N раз.

[skiperski]

Split работает в разы быстрее и не надо заморачиваться с позициями.

Только для Split'а нужно подготовить строку:

Код: Выделить всё

Dim dblSpace As String

dblSpace = "  "

s = Trim$(s)
Do While (InStr(1, s, dblSpace))
    s = Trim$(Replace(s, dblSpace, " "))
Loop

arr = Split(s, " ")


[devel]

Damage, все круто, только фишка в том, что SearchChar, про которую ты пишешь, не известна.
Мне же нужно N-e слово, а не N-е вхождение подстроки.

skiperski, ты как всегда крут! Я иду тем же путем. Только небольшое замечание: нужно сначала заменить все непечатаемые символы на пробелы, а потом убивать повторяющиеся пробелы, потому что слова могут быть разделены, например, символом перевода строки.

[skiperski]

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

Ты об этом упоминал выше, я и решил не повторяться.