Как узнать, сколько в тексте пробелов

[Скрипт]

Допустим макрос нашёл нужный текст в документе.
Как правильнее проанализировать этот текст на количество пробелов?

Есть три варианта:
Replace;
Split;
Цикл + InStr.

Если найден большой фрагмент документа, например, в 1000 символов, то ведь функция Replace создаст в оперативной памяти компьютера новую строку, состоящую из 1000 символов, но без пробелов:
Len(Replace(Текст, " ", ""))

"Split" можно так использовать:
UBound(Split(Текст, " ", 14))
14 позволяет создавать небольшой массив, что ускорит работу кода, чем создавать массив на основе всех пробелов.

Мне кажется, что самое оптимальное - это Цикл + InStr, но это надо усложнять код: добавлять лишний цикл, дополнительные переменные делать.

Кто и что думает?

[viter.alex]

Я всегда пользуюсь Replace, поскольку самый явный способ. 1000 символов это получается 2кб. Это много?
Проверил на практике:
Для Replace:

Длина строки: 25529. Количество пробелов: 3395
Длительность: 0,0034736004 секунд.

Для Split:

Длина строки: 25529. Количество пробелов: 3395
Длительность: 0,0032005573 секунд.

Оказывается, Split работает быстрее, что для меня неожиданно. Но разница в долях микросекунд.

Option Explicit
'структура для хранения 64-разрядного числа
 Private Type LARGE_INTEGER
     LowPart As Long
     HighPart As Long
 End Type

 'апи функция для получения значения счетчика
 Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long

 'апи функция для получения значения частоты
 Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long

 'апи функция для копирования области памяти
 Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Sub TestMethods()
     Dim T As Long, liFrequency As LARGE_INTEGER, liStart As LARGE_INTEGER, liStop As LARGE_INTEGER
     Dim cuFrequency As Currency, cuStart As Currency, cuStop As Currency
     Dim n As Long, s As String
     s = ActiveDocument.Range.Text
     'получить частоту счетчика производительности
     If QueryPerformanceFrequency(liFrequency) = 0 Then
        MsgBox "Ваше аппаратное обеспечение не поддерживает счетчик производительности высокой точности!", vbInformation
     Else
        'конвертировать 64-разрядное число в тип currency
        cuFrequency = LargeIntToCurrency(liFrequency)
        
        'получить количество "тиков"
        QueryPerformanceCounter liStart
        
        'НАЧАЛО ТЕСТИРУЕМОГО КОДА
'        n = Len(s) - Len(Replace(s, " ", ""))
        n = UBound(Split(s, " "))
        'КОНЕЦ ТЕСТИРУЕМОГО КОДА
        
        'получить количество "тиков"
        QueryPerformanceCounter liStop
        
        'конвертировать 64-разрядное число в тип currency
        cuStart = LargeIntToCurrency(liStart)
        cuStop = LargeIntToCurrency(liStop)
        
        'вычислить как много времени затрачено, и показать результат
        Debug.Print "Длина строки: " & Len(s) & ". Количество пробелов: " & n & vbCr & _
                    "Длительность: " & CStr(Round((cuStop - cuStart) / cuFrequency, 10)) & " секунд."
     End If
End Sub

 'функция для конвертирования 64-разрядного числа в тип currency
 Private Function LargeIntToCurrency(liInput As LARGE_INTEGER) As Currency
     'копировать 8 байт из 64-разрядного в currency
     CopyMemory LargeIntToCurrency, liInput, LenB(liInput)

     'adjust it - хз =)
     LargeIntToCurrency = LargeIntToCurrency * 10000
 End Function

[nerv]

Сообщение от Скрипт

Если найден большой фрагмент документа, например, в 1000 символов

1000 символов - это небольшой фрагмент

Сообщение от Скрипт

Мне кажется, что самое оптимальное - это Цикл + InStr, но это надо усложнять код: добавлять лишний цикл, дополнительные переменные делать.

вынеси в отдельную функцию

If ChrCount(text, Chr, MaxCount) Then

' ...

Function ChrCount(Byref text, _
                          Byval chr, _
                          Optional Byval maxCount ) As Boollean
    ' some code
    ChrCount = true
End function

Ты пишешь ее один раз и таскаешь из проекта в проект.

[Казанский]

Если время критично, то, конечно, не следует преобразовывать строку - ни в массив, ни в другую строку без пробелов.
Можно сравнивать каждый символ строки с пробелом. Через Mid$(s,i,1)=" " это долго, лучше копировать двоичное содержимое символа в переменную типа Integer и сравнивать с константой того же типа:

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Function SpacesInString(s$) As Long
Dim a%, i&
For i = StrPtr(s) To StrPtr(s) + Len(s) * 2 - 2 Step 2
    CopyMemory a, ByVal i, 2&
    If a = 32 Then SpacesInString = SpacesInString + 1&
Next
End Function

Выигрыш примерно в 3 раза

Длина строки: 2268. Количество пробелов: 835 - Split
Длительность: 0,0006366731 секунд.
Длина строки: 2268. Количество пробелов: 835 - Replace
Длительность: 0,0006632128 секунд.
Длина строки: 2268. Количество пробелов: 835 - SpacesInString
Длительность: 0,0002234921 секунд.

[nerv]

Сообщение от Казанский

Выигрыш примерно в 3 раза

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

+ никаких внешних функций

только я там затупил, ф-я должна возвращать кол-во пробелов

[Казанский]

Мне кажется, что самое оптимальное - это Цикл + InStr, но это надо усложнять код: добавлять лишний цикл, дополнительные переменные делать.
Да, это быстрее. И совсем не сложно

Function CntInstr(s$) As Long
Dim i&
Do
    i = InStr(i + 1, s, " ")
    If i Then CntInstr = CntInstr + 1 Else Exit Function
Loop
End Function

[Sasha_Smirnov]

Сообщение от Скрипт

...макрос нашёл нужный текст в документе.
Как правильнее проанализировать этот текст на количество пробелов? Кто и что думает?

Моя мысль такая: вставить текст в новый документ и запустить подпрограмму (она оперирует готовыми методами документа Word).

Sub BlankQuantity()
Dim a, b
    a = ActiveDocument.ComputeStatistics( _
        wdStatisticCharactersWithSpaces, IncludeFootnotesAndEndnotes)
        
    b = ActiveDocument.ComputeStatistics( _
        wdStatisticCharacters, IncludeFootnotesAndEndnotes)
        
    MsgBox "В документе " & ActiveDocument & " найдено пробелов: " & a - b & "."
End Sub

Кстати, в текстах встречается и неразрывный пробел (юникод 0160), и табуляция. Это здесь учтено:

[Вождь]

Сообщение от Sasha_Smirnov

...в новый документ...

Как раз хотел напомнить о ComputeStatistics. А зачем новый документ? Можно прямо на колене:

    With Selection.Range
        MsgBox .ComputeStatistics(wdStatisticCharactersWithSpaces) - _
               .ComputeStatistics(wdStatisticCharacters)
    End With

[Ципихович Эндрю]

всё гениальное просто!!!!!!!!!

[Ципихович Эндрю]

скажите я правильно закомментировал

'узнать, сколько выделено знаков
MsgBox$ Selection.Range.ComputeStatistics(wdStatisticCharactersWithSpaces)
'узнать, сколько выделено знаков без пробела
MsgBox$ Selection.Range.ComputeStatistics(wdStatisticCharacters)