С некоторых пор пользуюсь 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
У нас во всех книжных есть (вопросы и ответы) и на сайте освита.сом (ток вопросы), мы уже затарились тож ))) Странно, я думала, мониторинг по всей стране (просто интересно стало, когда проверят, сказали, шо компутер проверять будет)...
У нас учительница пока сказала предварительные оценки, но они уже радуются). Я математики не боюсь, вот английский немного опасения вызывает. Сказали там будут зачитывать вроде вопросы.
Какая география? Я сейчас охренела. И что за зарубежка? Мы такого не учили вообще) У нас школа вальдорфская и программа совсем другая. Кстати, я не знаю как там с проверкой кампутера, но они в школе не учили еще квадратные уравнения и учительница сказала, что у нас их на экзамене не будет. Я вообще не пойму эту систему.
Не ну эти тесты же вроде как экзаменами считаются. Лера, какие экзамены? Нам до сих пор оценок не ставят - чтобы дети не волновались и не обижались, типа не ранить детскую психику. А эти дети уже под 1,8.
Публикация комментариев и создание новых тем на форуме Адвего для текущего аккаунта ограничено. Подробная информация и связь с администрацией: https://advego.com/v2/support/ban/forum/1186