No subject

[Frank D. Engel, Jr.]

-----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 repeat

   put 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.  <fde101 at fjrhome.net>

$ 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