Как посчитать количество уникальных записей за один проход. Уже замучался...

kzru_hunter · 23 Окт 2010

Всё равно способ c Assign намного быстрее любого другого способа :smile:

Нет смысла возиться с другими алгоритмами.

Единственная проблема этого способа, что его надо в отдельной функции реализовывать, чтобы по завершении функции всё, что было создано с помощью Assign, исчезло.

Бывает исключительная ситуация, когда в одной функции создаёшь переменные с помощью Assign, а в другой сверяешь. В этом случае придётся использовать исходный массив, чтобы стереть все переменные в первой функции перед тем, как начать присваивать.

Garrett · 23 Окт 2010

kzru_hunter
У Assign есть флаги! Почитайте. ;)

kzru_hunter · 23 Окт 2010

Garrett сказал(а):
kzru_hunter
У Assign есть флаги! Почитайте. ;)

Всмысле? Читал :smile:

Garrett · 23 Окт 2010

kzru_hunter [?]

Единственная проблема этого способа, что его надо в отдельной функции реализовывать, чтобы по завершении функции всё, что было создано с помощью Assign, исчезло.

Код:

Assign ( "varname", "data" , 1) ; создаст локальные переменные

kzru_hunter · 23 Окт 2010

Garrett сказал(а):
kzru_hunter [?]

Единственная проблема этого способа, что его надо в отдельной функции реализовывать, чтобы по завершении функции всё, что было создано с помощью Assign, исчезло.

Нажмите, чтобы раскрыть...

Код:

Assign ( "varname", "data" , 1) ; создаст локальные переменные

Так я про это и указал, когда писал это предложение, т.к. не получится повторно выполнить этот способ вне функции, т.к. переменные уже будут существовать.

Garrett · 23 Окт 2010

kzru_hunter [?]

не получится повторно выполнить этот способ вне функции, т.к. переменные уже будут существовать.

Код:

_MyFunc()

If Not IsDeclared('a') Then MsgBox(0, Default, "Not found variable $a")

Assign('a', 10)
MsgBox(0, Default, $a)

Func _MyFunc()
    Assign('a', 1, 1)
    MsgBox(0, Default, $a)
EndFunc

Добавлено:
Сообщение автоматически объединено: 23 Окт 2010

Или я вас не так понял?

kzru_hunter · 23 Окт 2010

Я не пойму, к чему всё это? Я что-то не так написал?

Garrett · 23 Окт 2010

kzru_hunter [?]

Я не пойму, к чему всё это? Я что-то не так написал?

Может я чего-то не уловил? ;D
Приведите пример, пожалуйста, к вашим словам:

Бывает исключительная ситуация, когда в одной функции создаёшь переменные с помощью Assign, а в другой сверяешь. В этом случае придётся использовать исходный массив, чтобы стереть все переменные в первой функции перед тем, как начать присваивать.

kzru_hunter · 23 Окт 2010

Например, по нажатию одной кнопки получаешь один список и отображаешь в программе (в добавок заносишь этот список в память с помощью Assign), затем по нажатию другой кнопки нужно получить другой список путём сравнения ещё одного списка с первым списком.

Garrett · 23 Окт 2010

kzru_hunter
То есть одним словом, вы хотите синхронизировать записи двух списков?!

kzru_hunter · 23 Окт 2010

Garrett Нет, не синхронизировать, а отобрать, например, файлы, которых нет в первом списке.

amel27 · 24 Окт 2010

AZJIO

Если переменные существуют, то результат не корректный.

просто нужно добавить к имени уникальный префикс... например, как в исходном варианте kzru_hunter (_ip_), я их убрал намеренно - из соображений производительности

vaf · 25 Окт 2010

А как бы еще этот полученный массив отсортировать по кол-ву повторений IP адресов
_ArraySort вываливается в очень странную ошибку.

Suppir · 31 Окт 2012

Мой вариант. Кажется, очень быстро работает. Причем, строки в файле могут быть любыми.

Код:

$Timer = TimerInit()
$aList = StringSplit(FileRead('IP_List.txt'), @CRLF, 1)
$oDictionary = ObjCreate("Scripting.Dictionary")

;~ считаем, сколько раз повторяются уникальные строки
For $i = 1 To $aList[0]
	$oDictionary.Item ($aList[$i]) = $oDictionary.Item ($aList[$i]) + 1
Next	

ConsoleWrite(TimerDiff($Timer) & @LF)

;~ выводим результат
$out = FileOpen("результат.txt", 2)
For $vKey In $oDictionary
	if $vKey == "" Then
		ContinueLoop
	EndIf	
	FileWriteLine($out, $vKey & " = " & $oDictionary.Item($vKey))
Next

FileClose($out)

Автор темы	Похожие темы	Форум	Ответы	Дата
A	Как посчитать однокоренные слова, на страницах сайта?	Общие вопросы по AutoIt	21	14 Авг 2018
S	Как посчитать повторяющиеся цифр в массивах	Общие вопросы по AutoIt	6	13 Мар 2018
N	Посчитать количество кликов на определенном цвете	Общие вопросы по AutoIt	4	23 Окт 2017
J	Как посчитать количество определенного символа в строке	Общие вопросы по AutoIt	3	11 Май 2016
S	Посчитать количество слов "отмена" на странице.	Автоматизация IE и Web-интерфейса	10	3 Апр 2014

Поиск

Поиск

Как посчитать количество уникальных записей за один проход. Уже замучался...

kzru_hunter

Осваивающий

Garrett

Модератор

kzru_hunter

Осваивающий

Garrett

Модератор

kzru_hunter

Осваивающий

Garrett

Модератор

kzru_hunter

Осваивающий

Garrett

Модератор

kzru_hunter

Осваивающий

Garrett

Модератор

kzru_hunter

Осваивающий

amel27

Продвинутый

vaf

Новичок

Suppir

Продвинутый