Написать процедуру, которая в произвольном предложении находит слова с заданной длиной

@rembo52 · Регистрация: 01.02.2011

Author24 — интернет-сервис помощи студентам

Написать процедуру, которая в произвольном предложении находит слова с заданной длиной, предложение и длину слова передать в качестве входных параметров, слова с заданной длиной возвратить в качестве выходного параметра.

@аналитика · 06.02.2012, 15:45

Visual Basic

Sub test()
    temp = WordsIn("  aaa, аaa;  aaaa   aaaa!   aaaa, aaaaa", 4)
    For i = LBound(temp) To UBound(temp)
        m = m & temp(i) & vbNewLine
    Next i
    MsgBox m
End Sub
 
Function WordsIn(s As String, n As Integer)
    Dim t() As String
 
'    s = Trim(s)
 
    arr1 = Array(",", ".", ";", "!", "?")
    For i = LBound(arr1) To UBound(arr1)
        s = Replace(s, arr1(i), "")
    Next i
 
    arr2 = Split(s)
    
    For i = LBound(arr2) To UBound(arr2)
        If Len(arr2(i)) = n Then
            j = j + 1
            ReDim Preserve t(1 To j)
            t(j) = arr2(i)
        End If
    Next i
 
    WordsIn = t
End Function

@rembo52 · 06.02.2012, 15:54 **[ТС]**

а можно через вырезание mid'oм?

Dragokas · 06.02.2012, 16:46

Вот тоже самое
Написать процедуру, которая в произвольном предложении находит слова с заданной длиной
самые всевозможные варианты

@rembo52 0 / 0 / 0 Регистрация: 01.02.2011 Сообщений: 34
		1
	Написать процедуру, которая в произвольном предложении находит слова с заданной длиной 06.02.2012, 14:18. Показов 1026. Ответов 3 Метки нет (Все метки) Написать процедуру, которая в произвольном предложении находит слова с заданной длиной, предложение и длину слова передать в качестве входных параметров, слова с заданной длиной возвратить в качестве выходного параметра. 0

@rembo52 0 / 0 / 0 Регистрация: 01.02.2011 Сообщений: 34
	06.02.2012, 15:54 [ТС]	3
	а можно через вырезание mid'oм? 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	06.02.2012, 16:46	4
	Вот тоже самое Написать процедуру, которая в произвольном предложении находит слова с заданной длиной самые всевозможные варианты 1

Опции темы