AppleScript 1.6 & random number - Probleme bei records

[Snow]

Hallo Scripter,

in AppleScript 1.6 wurde ja angeblich der Befehl 'random number' verbessert, damit die Zufälligkeit noch größer ist.

Ich habe gerade das Gegenteil bemerkt. In der Tech Info Libraray konnte ich nichts dazu finden.

Wenn ich per Zufall ein Item aus einer Liste wählen lasse, gibt es wirklich keine Probleme.

Erst wenn die Liste 'records' enthält, klappt es mit der Zufälligkeit überhaupt nicht mehr.

Der betreffende Script-Teil sieht so aus:


set AutoListe to { {car:"0", Zeit:"60"}, {car:"1", Zeit:"65"} .... usw.}
set randomNumber to (random number from 1 to 17)
set RandomCar to item randomNumber of AutoListe
set Countdown to (Zeit of RandomCar)


Das genügt eigentlich schon. Soweit ich das sehe, liegt es wirklich daran, dass die Liste Datensätze enthält. Im selben Script habe ich die gleiche Konstruktion noch einmal, nur dass dort die Liste Textwerte enthält. Dort funktioniert die Zufälligkeit auch reibungslos.

Falls das mal jemand testen könnte, wäre ich auf entsprechende Rückmeldungen gespannt.
Gruß
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[macgix]

Absolut korrekt! Folgendes Skript liefert eine Endlosschleife:

repeat

set tResultList to {}

repeat 100 times
set AutoListe to { {car:"0", Zeit:"60"}, {car:"1", Zeit:"65"}, {car:"2", Zeit:"70"}, {car:"3", Zeit:"75"}, {car:"4", Zeit:"80"}, {car:"5", Zeit:"90"}, {car:"6", Zeit:"95"}, {car:"7", Zeit:"100"}, {car:"8", Zeit:"105"}, {car:"9", Zeit:"110"}, {car:"10", Zeit:"115"}, {car:"11", Zeit:"120"} }
set randomNumber to (random number from 1 to 11)
set RandomCar to item randomNumber of AutoListe
set Countdown to (Zeit of RandomCar)
set tResultList to (tResultList & return & Countdown) as text
end repeat

-- FB Search Scripting Addition:

set t60 to FB Search for "60" in tResultList returning the linecount
set t65 to FB Search for "65" in tResultList returning the linecount
set t70 to FB Search for "70" in tResultList returning the linecount
set t75 to FB Search for "75" in tResultList returning the linecount
set t80 to FB Search for "80" in tResultList returning the linecount
set t85 to FB Search for "85" in tResultList returning the linecount
set t90 to FB Search for "90" in tResultList returning the linecount
set t95 to FB Search for "95" in tResultList returning the linecount
set t100 to FB Search for "100" in tResultList returning the linecount
set t105 to FB Search for "105" in tResultList returning the linecount
set t110 to FB Search for "110" in tResultList returning the linecount
set t115 to FB Search for "115" in tResultList returning the linecount
set t120 to FB Search for "120" in tResultList returning the linecount

set tResList to {t60, t65, t70, t75, t80, t85, t90, t95, t100, t115, t120}

if item 6 of tResList != 0 or item 11 of tResList != 0 then exit repeat -- Das passiert nie!

end repeat

! Time for a bug report to Chris Nebel !

I poste das mal im AppleScript's User's Digest...

Thomas


(Achtung! Dieses Forum ändert die erste geschweifte Klammer im Quelltext in eine eckige. Die müsst Ihr ändern bevor das Skript einwandfrei kompiliert.)

Anmerkung von Snow:
Ich habe das Posting korrigiert. Die eckigen Klammern tauchen auf, wenn zwei geschweifte Klammern geschrieben werden. Ich habe ein Leerzeichen dazwischen gesetzt.
_________________
[macgix]

[macgix]

...und "!= " meint "ungeliche" = "ungleich" = "Alt-Gleich"Ö

:)
_________________
[macgix]