-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1
Untested clean-up of that code:
on mouseUp
put empty into sorter -- these two lines are mainly to make me feel a little better,
put empty into sorteddata -- coming from a background in lower-level languages like Pascal
repeat for each line x in field "data"
if word 1 of x = word 1 of line 1 of sorter then
put x & cr after sorter
else
delete the last char of sorter
sort lines of sorter numeric by word 2 of each
put sorter after sorteddata
put x into sorter
end if
end repeatput sorteddata & sorter into field "data" end mouseUp
On Apr 1, 2005, at 12:42 PM, Howard Bornstein wrote:
on mouseUp
put fld "data" into dataholder
put the number of lines of dataholder into linecnt
repeat with i = 1 to linecnt
if word 1 of line i-1 of dataholder <> word 1 of line i of dataholder then
put line i of dataholder&return after sorter
end if
if word 1 of line i+1 of dataholder = word 1 of line i of dataholder then
put line i+1 of dataholder&return after sorter
else
sort lines of sorter numeric by word 2 of each
put sorter after sorteddata
put empty into sorter
end if
end repeat
put sorteddata into fld "data"
end mouseUp
- ----------------------------------------------------------- Frank D. Engel, Jr. <[EMAIL PROTECTED]>
$ ln -s /usr/share/kjvbible /usr/manual
$ true | cat /usr/manual | grep "John 3:16"
John 3:16 For God so loved the world, that he gave his only begotten Son, that whosoever believeth in him should not perish, but have everlasting life.
$
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (Darwin)
iD8DBQFCTYr97aqtWrR9cZoRAg8DAJ9qnmgZgeQspeiVO/Y40Ro1wkOCiwCdHbcQ OezGisPeJtI3l/7b+KN45eA= =3XAX -----END PGP SIGNATURE-----
___________________________________________________________ $0 Web Hosting with up to 200MB web space, 1000 MB Transfer 10 Personalized POP and Web E-mail Accounts, and much more. Signup at www.doteasy.com
_______________________________________________ use-revolution mailing list [email protected] http://lists.runrev.com/mailman/listinfo/use-revolution
