[Архив

amel27 · Отправлено: **13:02, 07-11-2006** | #**451**

Creat0R
просто добавь еще один IF:

Код:

...
For $i=1 To $DupLines [0][0]
	If StringLeft ($DupLines [$i][1], 5) = @TAB & "URL=" Then
		; расчитываем номер строки для удаления
		$delNum = $DupLines [$i][0] - 3
		; отмечаем кандидата на удаление в массиве
		$DelFlags [$delNum] = 1
	EndIf
Next
...

... судя по файлу это больше смахивает на работу с блоками текста, чем просто со строками

Creat0R · Конфигурация компьютера

amel27

Цитата:

просто добавь еще один IF:

Огромное THENX! - Как всё оказывается просто

Цитата:

судя по файлу это больше смахивает на работу с блоками текста, чем просто со строками

Ну да, просто содержимое этого файла, может доходить до 5-ти, а то и 10-ти ТЫСЯЧЬ! строк (иногда и больше) - и это всё закладки в браузере Opera (как избранное у IE), данная функция, позволит удалить в этом файле все дублирующиеся закладки. Просто если удалить у любого такого блока, строчку содержащюю #URL, то после запуска браузера, эта закладка не будет отображаться, и даже более этого, браузер сам всё “поправит” в файле, и “затрёт” оставшиеся строчки, которые для него, как бы являются “мусором”.

amel27 · Отправлено: **02:04, 08-11-2006** | #**453**

Creat0R

Цитата:

если удалить у любого такого блока, строчку содержащюю #URL, то после запуска браузера, эта закладка не будет отображаться, и даже более этого, браузер сам всё “поправит” в файле, и “затрёт” оставшиеся строчки

все это замечательно... но представь, что в блоке поменялись местами две строчки (подправит ли это браузер, это ведь не ошибка?), или в новой версии добавили новый реквизит... работа скрипта будет нарушена. Поэтому более "правильным" представляется следующий алгоритм:
- читаем файл и сразу нумеруем записи по блокам (а не по строкам);
- один из реквизитов (URL) оформляем как ключевой для блока;
- формируем новый файл ссылок (поверх старого), но уже без дублей.

З.Ы. обычно чем "правильней" алгоритм, тем он медленней

Creat0R · Конфигурация компьютера

amel27

Цитата:

представь, что в блоке поменялись местами две строчки (подправит ли это браузер, это ведь не ошибка?)

Именно те строчки, которые в промежутке #URL и URL=ссылка, меняться местами не могут, и вообще, все строчки всегда присутствуют так, как это задуманно браузером, я пробовал убирать строки по разному, но браузер ставил так как ему нужно.

Цитата:

в новой версии добавили новый реквизит

Сомневаюсь я, что разработчики когда либо возьмутся за правку работы с закладками, в браузере и так много чего править нужно, и вещи куда серъёзней чем закладки

(хотя предусмотреть такую функцию, как не позволения добовлять закладки повторно, они конечно должны были).

Цитата:

обычно чем "правильней" алгоритм, тем он медленней

Но мне скорость не очень важна, я конечно буду очень рад если будет более усовершенствованный скрипт

, но так как он выполняется сейчас, меня вполне устраивает. Ещё раз спасибо.

amel27 · Отправлено: **12:28, 08-11-2006** | #**455**

Creat0R

Цитата:

я конечно буду очень рад если будет более усовершенствованный скрипт , но так как он выполняется сейчас, меня вполне устраивает.

другого не будет

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

применительно к твоему скрипту код можно еще укоротить:

Код:

#include <File.au3>

$File = "c:\test.txt"

Dim $FileLines
_FileReadToArray ($file, $FileLines)
; Возвращаем массив из дублирующихся записей
$DupLines = _DupsInArray ($FileLines)
; Страховка от пустого массива если дублей нет
If $DupLines [0][0] >0 Then
	For $i=$DupLines [0][0] To 1 Step -1
		If StringLeft ($DupLines [$i][1],5) = @TAB & "URL=" Then _FileWriteToLine ($File, $DupLines [$i][0] - 3, "", 1)
	Next
EndIf

З.Ы. я ваще нудный...

Creat0R · Конфигурация компьютера

amel27

Цитата:

лучше постановку задачи сделать совместными усилиями.

Ок, буду далее только с открытыми картами появляться

- просто по какой то причине, мне всё время кажется, что этими самыми “сочинениями”, мне удастса лучше объяснить цель моей задачи.

Цитата:

применительно к твоему скрипту код можно еще укоротить:

Спасибо, но как оказалось, ты в каком то смысле был прав

...

Дело вот в чём, браузер не всегда затирает нужные закладки, иногда, если были удалены заглавы (#URL) двух закладок (блоков) идущих подряд, то он удаляет иногда и ту закладку которая идёт выше этих двух. Может всё же как то можно чтобы уже сразу весь блок удалять?

Цитата:

я ваще нудный

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

- и вообще, нет ли такой возможности (может тоже скрипт написать?), чтобы за каждое твоё оставленное сообщение (пусть даже по всему форуму), автоматом оно обозначалось бы как “Полезное сообщение” - оно так и есть

amel27 · Отправлено: **03:54, 09-11-2006** | #**457**

Creat0R

Цитата:

Дело вот в чём, браузер не всегда затирает нужные закладки, иногда, если были удалены заглавы (#URL) двух закладок (блоков) идущих подряд, то он удаляет иногда и ту закладку которая идёт выше этих двух. Может всё же как то можно чтобы уже сразу весь блок удалять?

Сказал же, другого не будет

... Лучше воспользоваться твоим утверждением о фиксированном формате блока и чуть переделать существующий:
1. перенес IF в код функции - это необязательно, но оптимизирует поиск дублей,
2. добавил удаление остальных строк блока (в обратном порядке!).

Код:

#include <File.au3>

$File = "c:\test.txt"

Dim $FileLines
_FileReadToArray ($file, $FileLines)
; Возвращаем массив из дублирующихся записей
$DupLines = _DupURLsInArray ($FileLines)
; Страховка от пустого массива если дублей нет
If $DupLines [0][0] >0 Then
	For $i=$DupLines [0][0] To 1 Step -1
		_FileWriteToLine ($File, $DupLines [$i][0] +3, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +2, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +1, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0]   , "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -1, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -2, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -3, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -4, "", 1)
	Next
EndIf

; Возвращает двумерный массив со счетчиком, содержащий только дубли
Func _DupURLsInArray (ByRef $array)
	Local $i, $i, $res [1][2] = [[0,0]]
	; рабочий массив для отметки обработанных дублей
	Local $flags [$array [0] +1]
	For $i=1 To $array [0]
		If StringLeft ($array [$i],5) = @TAB & "URL=" Then
			For $j=$i+1 To $array [0]
				If $flags [$j] <> 1 Then
					If $array [$i] = $array [$j] Then
						ReDim $res [$res [0][0]+2][2]
						$res [0][0] = $res [0][0] +1
						$res [$res [0][0]][0] = $j
						$res [$res [0][0]][1] = $array [$j]
						$flags [$j] = 1
					EndIf
				EndIf
			Next
		EndIf
	Next
	Return $res
	_ArraySort ($res, 0, 1, 0, 2)
EndFunc

Цитата:

чтобы за каждое твоё оставленное сообщение (пусть даже по всему форуму), автоматом оно обозначалось бы как “Полезное сообщение” - оно так и есть

не переживай - это пройдет...

Creat0R · Конфигурация компьютера

amel27
Тоже есть трабла

.

Оказывается

, иногда некоторых пунктов в этом блоке нету\есть, они не присутствует\присутствуют в том случае, либо, если у закладки нет\есть описании (DESCRIPTION), либо нет\есть код посещения (VISITED=), либо нет\есть код активвности (ACTIVE=). Вот как выглядит самый полный блок (т.е больше этих пунктов нет) :

Код:

#URL
	ID=1
	NAME=AutoIt скрипты .:[общие вопросы]:.
	URL=http://forum.oszone.net/post-508967.html
	CREATED=1163050009
	VISITED=1163050722
	DESCRIPTION=AutoIt скрипты .:[общие вопросы]:.
	ICONFILE=forum.oszone.net.gif
	ACTIVE=YES

А вот как будет выглядеть блок с минимальными пунктами (меньше чем это не может быть) :

Код:

#URL
	ID=21
	NAME=Yahoo!
	URL=http://www.yahoo.com/
	CREATED=1163050735
	ICONFILE=www.yahoo.com.ico

Я бы конечно мог просчитать все варианты, т.е если есть допустим пункт DESCRIPTION=, и нету пункта VISITED=, то делаем одно действие, а если есть первое и нет второго, то делаем другое, и т.д... но это получится слишком громоздко, вот начало этого...

Код:

For $i=$DupLines [0][0] To 1 Step -1
	If StringLeft(FileReadLine($File, $DupLines [$i][0] +3), 13) = @TAB & "DESCRIPTION=" and StringLeft(FileReadLine($File, $DupLines [$i][0] +2), 9) = @TAB & "VISITED=" Then
		_FileWriteToLine ($File, $DupLines [$i][0] +4, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +3, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +2, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +1, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0]   , "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -1, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -2, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -3, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -4, "", 1)
	ElseIf StringLeft(FileReadLine($File, $DupLines [$i][0] +2), 13) = @TAB & "DESCRIPTION=" and StringLeft(FileReadLine($File, $DupLines [$i][0] +5), 8) = @TAB & "ACTIVE="
		_FileWriteToLine ($File, $DupLines [$i][0] +5, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +4 "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +3, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +2, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] +1, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0]   , "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -1, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -2, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -3, "", 1)
		_FileWriteToLine ($File, $DupLines [$i][0] -4, "", 1)
	EndIf
Next

Может есть способ покороче с этим бороться?
Вот на всякий пожарный, прикладываю файл, содержащий дубликаты таких (разных) блоков.

amel27 · Отправлено: **11:57, 09-11-2006** | #**459**

Creat0R

Цитата:

Тоже есть трабла

на то и вышло...

чтобы удалить блок нужно определить его конец и начало:

Код:

#include <File.au3>
#include <Array.au3>

$File = "c:\test.txt"

Dim $FileLines
_FileReadToArray ($file, $FileLines)
; Возвращаем массив из дублирующихся записей
$DupLines = _DupURLsInArray ($FileLines)
; Страховка от пустого массива если дублей нет
If $DupLines [0][0] >0 Then
    For $i=$DupLines [0][0] To 1 Step -1
        ; ищем начало следующего блока
        $iNext = _ArraySearch ($FileLines, "#URL", $DupLines [$i][0])
        ; если не нашли, то конец файла
        If @Error=6 Then $iNext=_FileCountLines ($File) +1
        Do
            $iNext=$iNext-1
            _FileWriteToLine ($File, $iNext, "", 1)
        Until $FileLines [$iNext] = "#URL"
    Next
EndIf

EDIT: исправил ошибку с уловием (выделено красным), спутал с функцией _ArrayBinarySearch

Creat0R · Конфигурация компьютера

amel27
Удаляются не все дублирующиеся блоки

- и как ни странно, не удалился дубль именно закладки этого поста

(эксперементировал на прикреплённом мной раньше файле).