Here's a way that doesn't need two repeat loops:
function getDupes @pList
repeat for each line L in pList
add 1 to linecount
if checkArray[L] is empty then
put linecount into checkArray[L]
else
if dupeArray[L] is empty then put checkArray[L] into
dupeArray[L]
put comma & linecount after dupeArray[L]
end if
end repeat
combine dupeArray by cr and tab
return dupeArray
end getDupes
best,
Mark
On 9 Jan 2008, at 12:38, Bill Marriott wrote:
Well if *that's* what you want :) Here's the "ideal" format, where
"index1"
is the original index and the subsequent numbers are duplicates.
It's even slightly faster:
on mouseUp
put url "file:D:/desktop/dupeslist.txt" into tList
put the milliseconds into tt
repeat for each line tCheck in tList
add 1 to n
put n & comma after tCheckArray[tCheck]
end repeat
repeat for each key theKey in tCheckArray
if the number of items in tCheckArray[theKey] > 1 then
put theKey & tab & tCheckArray[theKey] after tListResult
put return into char -1 of tListResult
end if
end repeat
put the milliseconds - tt & return & "number of files:" && \\
the number of lines in tList & return & return & tListResult
end mouseUp
"Ian Wood" <[EMAIL PROTECTED]> wrote
in message news:ED3C057D-7C3A-4541-89BD-
[EMAIL PROTECTED]
The absolute *ideal* would be:
checksum tab index1,index2,index3 etc.
However, once I have a list of dupes I have to plug it back into
the DB
to get more info anyway, so the list of checksums by itself also
works.
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
