Подсчет слов в текстовом файле

@aker13 · Регистрация: 08.04.2008

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

кaк пoдсчитaт скoлкo нaпример: слoв 'windows' встречaются в теxтoвoм фaиле пoд нaзвaнием 'data.тxт '

@ma3ai · 09.04.2008, 18:11

стандартной функции, насколько я знаю, нет.

получиться что-то похожее:

Visual Basic

Public Function WordsCount(Source As String, Value As String) As Long
    Dim Iterator As Long
    Dim Position As Long
    Dim First As Long
    Dim Bytes As Long
    If Len(Value) = 0 Then Exit Function
    First = 1
    On Error GoTo ERR_HANDLER
    Do
        Position = InStr(First, Source, Value, vbBinaryCompare)
        If Position = 0 Then Exit Do
        WordsCount = WordsCount + 1
        First = Position + Len(Value)
        If First > Len(Source) Then Exit Do
    Loop
Exit Function
ERR_HANDLER:
End Function

@oldpasp · 14.04.2008, 03:13

Ну почему же нет.

Visual Basic

Dim txt As String
Dim sword As String
Dim atxt() As String
 
txt='....'
sword='....'
atxt()=Split(txt,sword)
MsgBox 'Количество слов ''' & sword & ''' в тексте равно ' & Str(UBound(atxt())

@ma3ai · 14.04.2008, 11:42

Ловкое решение (главное - короткое). Но есть проблема - на 200-300% медленнее (зависит от данных). Дополнительно нужна память под массив.

P.S.Стандартной для ПОИСКА нет (кроме InStr).

@aker13 0 / 0 / 0 Регистрация: 08.04.2008 Сообщений: 132
		1
	Подсчет слов в текстовом файле 09.04.2008, 15:48. Показов 1137. Ответов 3 Метки нет (Все метки) кaк пoдсчитaт скoлкo нaпример: слoв 'windows' встречaются в теxтoвoм фaиле пoд нaзвaнием 'data.тxт ' 0

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	14.04.2008, 11:42	4
	Ловкое решение (главное - короткое). Но есть проблема - на 200-300% медленнее (зависит от данных). Дополнительно нужна память под массив. P.S.Стандартной для ПОИСКА нет (кроме InStr). 0