Виктория К.
3522 сообщения
#14 лет назад
Коллеги. Пишу из-под Линукса. Стоит у меня тут опен офис, смотрю статистику , а пишет она вот что:
Количество слов:
Количество слов в файле, включая слова, состоящие из одного символа.
Количество символов:
Количество символов в файле, включая пробелы. Непечатаемые символы не включаются.

ВОПРОС. А как же тут без пробелов организовать подсчет?
Или другой текстовый редактор подскажите, плиз.

Всем спасибо.
Ольга Д.
1040 сообщений
#14 лет назад
А нечего пробелы считать!
Хто платит за воздух? :P
Виктория К.
3522 сообщения
#14 лет назад
Олечка привет. Так вот в программе по умолчанию такие параметры...и спрашую - как бы так, что б без пробелов
Денис Ш.
7132 сообщения
#14 лет назад
kravtsovaV, в ООо только свой макрос написать
Виктория К.
3522 сообщения
#14 лет назад
Цитата ("shapod"):
kravtsovaV, в ООо только свой макрос написать


удачная шутка
Максим Ф.
3195 сообщений
#14 лет назад
Цитата ("kravtsovaV"):
Или другой текстовый редактор подскажите, плиз.

Присылай мне тексты, я в ворде посмотрю.
Ольга Д.
1040 сообщений
#14 лет назад
Вичка, ну тогда отмазка есть клевая, вот такая прога, я тут ни при чем!
Удобен хоть?
Денис Ш.
7132 сообщения
#14 лет назад
Цитата ("kravtsovaV"):
удачная шутка


почему шутка? у меня очень много вещей автоматизированы в ООо.
И это очень удобно. Если вы не можете, то можно за пару долларов заказать на этой же бирже.
Виктория К.
3522 сообщения
#14 лет назад
Shapod далеко не всегда в общении стоит делать акцент на заработке денег, бывает полезно и мило просто помочь.

зы. пошла обчацца на эту тему в коммьюнити офиса, мож че присоветуют.
Роман К.
6970 сообщений
#14 лет назад
Цитата ("kravtsovaV"):
ВОПРОС. А как же тут без пробелов организовать подсчет?

Лобовой вариант - сделать автозамену пробела на что-нибудь, посмотреть, сколько будет сделано замен и вычесть это количество из количества символов.
Можно это дело оформить скриптом и вытащить кнопку на панель - тогда по её нажатии будет выводиться количество символов без пробелов.
Денис Ш.
7132 сообщения
#14 лет назад
Цитата ("kravtsovaV"):
бывает полезно и мило просто помочь


бывает.

Цитата ("kravtsovaV"):
пошла обчацца на эту тему в коммьюнити офиса, мож че присоветуют


может быть. мне там редко везло
Надежда Волкова
2390 сообщений
#14 лет назад
ОpenOffice удобная и стабильная вещь. А вот над подсчетом символов не задумывалась, посему ничем помочь не смогу
Виктория К.
3522 сообщения
#14 лет назад
voron_76 через попу как-то выглядит )))))
Анна Роговченко
1242 сообщения
#14 лет назад
Цитата ("veryonehope"):
ОpenOffice удобная и стабильная вещь


вообще да, подтверждаю
Проблема с пробелами существует - хотя и редко. Обычно я считаю с пробелами.
А сейчас вот делаю кучу файла, и заказчик попросил цену указывать без пробелов.
Дык кроме как открывать файл в ворде и считать без пробелов, а потом открывать в опенофисе и работать - пока ниче другого не предпринимала. Потом вообще забила и доверила подсчет символов заказчику
Ольга Д.
1040 сообщений
#14 лет назад
Считайте на глазок Наметанный должен быть уже
Роман К.
6970 сообщений
#14 лет назад
Цитата ("kravtsovaV"):
voron_76 через попу как-то выглядит )))))

Вообще, в русском языке, насколько я помню, средняя длина слова - 8 символов. Вот делите число символов на 8 - получите число пробелов.
Анна Роговченко
1242 сообщения
#14 лет назад
Цитата ("-Brain-"):
Возможно поможет программа ?...


Я этим для пдф пользовалась...А потом оно вдруг начало требовать у меня какой-то авторизации опять. Потом то же повторилось для всех 4 ящиков, на которые приходили подтверждения, а потом я забила с этим разбираться.
И в вопросе пдф следую совету соратника:
Цитата ("olga_pier"):
Считайте на глазок Наметанный должен быть уже

Анна Роговченко
1242 сообщения
#14 лет назад
Цитата ("-Brain-"):
Абсолютно не в теме, но возможно поможет ... ( 7 пункт )

Цитата:

Как узнать количество символов в документе без пробелов?

Для подсчета слов и символов в документе используется команда Сервис - Количество слов (выводятся данные по выделенному фрагменту (фрагментам) и по всему документу).
Используйте для поиска регулярное выражение "*" (любое количество идущих подряд пробелов) и кнопку "Найти все".
Искомое количество непробельных символов получите в результате вычитания двух значений.


Фии, какая скукота! Как нетворчески
Игорь Ткаченко
65 сообщений
#14 лет назад
Нашел макрос, у меня работает в OO3.1, ubuntu
' Based on the original* "dvwc" macro by Daniel Vogelheim   *see end of doc
' Displays a message box with number of words & characters
' in the document and the current selection.
' John Vigor edited this in 2003 to provide both a character count
' and a character count with exclusions. DV's had one of these.
' Does not normally count in frames, headers, footers or footnotes
' although these items may be individually selected. Selected text
' cannot exceed 64K of characters. (About 18 dense single spaced pages
' using New Times Roman size 12 and 1 inch margins all around. This
' size takes about 20 seconds on a 770MHz machine, so go get a cup
' of coffee or just be patient.)
' OO's word count, as of OO1.1 rc4, does not count in fields but does
' count in the other areas mentioned above. OO's character count
' counts a line break (Shift+Enter) as a character (Issue filed #16918).

Sub SelectionCount
'DEFINE CHARACTER COUNT BELOW. The default exclusions from character count are
'spaces & tabs, i.e., one of each of these is contained in the definition of e$.
'You can add characters between the quotes and/or delete the space and/or tab.
e$ = Chr(32) + Chr(9) ' Chr(32) is a space, Chr(9) is a tab. Valid replacements would
'be e$ = Chr(32) or e$ = Chr(9) or e$ = "" with the latter being no exclusions. If you
'did not change e$ and if the line below read:
' sExcludeFromCharacterCount$ = e$ + "a" then spaces, tabs and the letter "a" would not
'be counted.
sExcludeFromCharCount$ = e$ + ""
'DEFINE WORD SEPERATORS BELOW. The default word separators are spaces and
'hyphens (true hyphenated words like "half-dollar" will be counted as two words
'instead of one). You can add separators between the quotes and/or delete the hyphen.
'Examples: "/" to count "and/or" as two words. "&" to count "Johnson & Johnson" as
'two words instead of three. A period is not normally needed but you can add one
'to count "www.website.com" as three words instead of one.
sWordSeps = " -"
' This section is basically all DV's code with small modifications needed by JV
sWordSeps = sWordSeps + chr(9) + chr(10) + chr(13)'a tab, line break and paragraph break
sNeverCountChars = chr(10) & chr(13)'never include line or paragraph breaks in char count
oDocument = thisComponent
oSelection = oDocument.getCurrentSelection()
nSelCount = oSelection.getCount()
' access the program's document statistics
nAllChars = oDocument.CharacterCount
nAllWords = oDocument.WordCount
' initialize counts
nSelWords = 0 : nSelChars = 0 : nSelCharEx = 0
' iterate over multiple selections
Do
sText = oSelection.getByIndex(nSel).getString()
' count word in sText by scanning the selected text character for character
nCount = Len(sText)
bLastWasSeparator = true
bWord = false
'first letter starts a word
i = 1
Do ' DV used different logic for this section and there was nothing wrong
' with it. A programing exercise for JV and it better fit his needs.
sChr = Mid(sText,i,1)
If instr(sWordSeps, sChr) = 0 then 'if true then it's part of a word
bWord = true
GoSub CountIt 'count this character?
Elseif bWord = True then 'is a seperator and at end of word.
nSelWords = nSelWords + 1
bWord = false
GoSub CountIt
Else
GoSub CountIt 'is seperator but not the at end of a word.
EndIf
' End of JV's logic.
i = i + 1
Loop Until i > nCount 'get the next character in the string
nSel = nSel + 1
Loop while nSel < nSelCount
' Begin JV stuff
if bWord then nSelWords = nSelWords + 1
sExclude$ = ""
if Len(sExcludeFromCharCount$) = 0 then
sExclude$ = "* No exclusions."
else sExclude$ = Build_sExclude(sExcludeFromCharCount$)
endif
' JV altered DV's message box.
sT = chr(9): sP = chr(13) 'a Tab and Paragraph Break
a$ = "Program Document Count" + sP + sT & " All words: " + nAllWords + sP
b$ = sT & " All chars: " + nAllChars + sP + "Macro Selection Count" + sP
sMsg = a$ & b$
If nSelChars > 0 then
a$ = sT & " Words: " + nSelWords + sP + sT & " Chars: " + nSelChars + sP + sT
b$ = " * Chars: " + nSelCharEx + sP & sExclude$
sMsg = sMsg + a$ + b$
Else a$ = "No text was selected or the selection" & sP & sT & "exceeded 64K characters."
sMsg = sMsg + sT & a$
EndIf
msgbox sMsg
Exit Sub
CountIt: 'Going to count this character/excluded char count?
Select Case instr(sNeverCountChars,sChr)
case = 0
If instr(sExcludeFromCharCount$, sChr) = 0 then
nSelCharEx = nSelCharEx + 1 : nSelChars = nSelChars + 1
Else nSelChars = nSelChars + 1
Endif
End Select
Return
End Sub

' This JV function constructs the string that shows
' the excluded characters for the character count.
Function Build_sExclude(sExcludeFromCharCount$)
sExclude$ = "* Excluding "
sOthers = sExcludeFromCharCount$
iPos = instr(sOthers," ")
If iPos > 0 then
Mid(sOthers,iPos,1,"")
select Case len(sOthers)
case 0 : sExclude$ = sExclude$ & "spaces."
case > 0: If instr(sOthers,chr(9)) = 0 then
sExclude$ = sExclude$ & "spaces and "
Else sExclude$ = sExclude$ & "spaces"
EndIf
end select
EndIf
iPos = instr(sOthers,chr(9))
If iPos > 0 then
Mid(sOthers,iPos,1,"")
Select Case len(sOthers)
Case 0 : If len(sExclude$) < 13 then
sExclude$ = sExclude$ & "tabs."
Else sExclude$ = sExclude$ & " and tabs."
EndIf
Case > 0: If len(sExclude$) < 13 then
sExclude$ = sExclude$ & "tabs and "
Else sExclude$ = sExclude$ & ", tabs and "
EndIf
End Select
EndIf
Build_sExclude = sExclude$ & sOthers
End Function
'* I can no longer find DV's original version although a faster
' modified version by Andrew Brown (version 2.0.2, Sept. 3, 2003)
' is currently available in the downloadable macro installer at:
'
' However, my tests do not indicate the counts are very accurate.
Игорь Г.
44 сообщения
#14 лет назад
А вот скрипт PHP, написали специально для Вас. Считает без пробелов.
Кидаете в файл *.php и размещаете на хостинге или на Денвере.


<form method=post>
<textarea style="width: 300px; height: 500px;" name="text"></textarea>
<input type="submit" value="OK">
</form>
<?
if($_POST){
$text = str_replace(' ', '', $_POST);
echo ' В тексте ' .strlen($text).' символов';
}

?>