Слово в тексте

[Sanya Z]

Есть ли какой способ брать слова из текста поотдельности (словом считать символы, отделенные пробелами), но не перебиранием текста посимвольно и ища пробел, по типу For i=0 to len(text)...

[Alex_new_2030]

Я так делал:

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

    all_polya$ = "Какой-то текст разделенный пробелами или еще что нить"
    k = 1
    j = Len(all_polya$)
    While k < j
    k = InStr(k, all_polya$, " ")
    k2 = InStr(k + 1, all_polya$, " ")
    List2.AddItem Mid$(all_polya$, k + 1, k2 - k - 1)'Запихиваем слово в список
    k = k2
    Wend


[Andrey Fedorov]

> Есть ли какой способ брать слова из текста поотдельности

См. Help по Split - сразу получишь массив слов...

[Ruslan Demidow]

На форму положи TextBox и CommandButton.
Пропиши в модуле формы следующий код:

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

Option Explicit

Private Sub Command1_Click()
    Dim WordsArray() As String
    Dim SplitChar As String
    SplitChar = Chr(32)
    WordsArray() = Split(Text1.Text, SplitChar)
    MsgBox "Количество слов в тексте: " & UBound(WordsArray())
    If UBound(WordsArray()) > 6 Then
        MsgBox "Седьмое слово по счету : " & WordsArray(6)
    End If
   
End Sub

Вставь любой текст в текстовое поле и нажми кнопку.

[Sanya Z]

Благодарю! Все работает!:arrow: