С некоторых пор пользуюсь Open Office и не жалею.
Единственное неудобство - считает с пробелами. В базе знаний
предлагают для подсчета символов без пробелов совершать
хитрые манипуляции, вычитая их количество из имеющийся статистики.
Однако интернеты сказали, что существует более простой путь.
У меня сработало. Может, кому-то тоже пригодится.
Далее "Редактировать" и вставляем вот такой код:
<code>
REM ***** BASIC *****
Sub CountNonBlankChars
Dim xDoc, xFound as Object
Dim nAllChars as Long
xDoc = thiscomponent
If not HasUnoInterfaces (xDoc, "com.sun.star.text.XTextDocume nt") Then
msgbox("This macro can be run on text documents only!", 16, "Non-Blanks count")
exit sub
end if
nAllChars = xDoc.CharacterCount
dim i as integer
dim j as long
dim oSearch
Dim sRes
Dim sBlanks$
j = 0
'sBlanks = Chr$(9) & " " & Chr$(13) & Chr$(10) & " ,;."
sBlanks = Chr$(9) & " "
'sBlanks = " "
For i = 1 To Len(sBlanks)
oSearch = xDoc.createSearchDescriptor
oSearch.SearchAll = true
oSearch.SearchCaseSensitive = true
oSearch.SearchString = mid(sBlanks, i, 1)
xFound = xDoc.findAll(oSearch)
j = j + xFound.Count
Next
j = nAllChars - j
sRes = "Document contains " + str(nAllChars) + " characters and " + str(j) +_
" non-blank characters."
msgbox(sRes, 64, "Non-Blanks count")
end sub
Не нужно жалеть сотню знаков для заказчика!))) А вообще в среднем, пробелы составляют 13-14% количества знаков с пробелами. Так шо можно умножать на 1,15 требуемое число без пробелов и ориентироваться по этому числу, сколько же нужно накатать с пробелами.
Публикация комментариев и создание новых тем на форуме Адвего для текущего аккаунта ограничено. Подробная информация и связь с администрацией: https://advego.com/v2/support/ban/forum/1186