Following each name is a list of the things the person is credited with.
The primary item delimiter is "•", and then the person's entries are separated by commas
The Personnel field on one card is this
Jefferson Airplane • Primary Artist
Grace Slick • Keyboards, Organ, Piano, Primary Artist, Recorder, Vocals, Composer
Jack Casady • Fuzz Bass, Primary Artist, Rhythm Guitar, Bass Guitar
Jorma Kaukonen • Guitar (Rhythm), Lead Guitar, Primary Artist, Vocals, Composer
Marty Balin • Album Design, Guitar, Primary Artist, Vocals, Composer
Paul Kantner • Primary Artist, Rhythm Guitar, Vocals, Composer
Spencer Dryden • Percussion, Primary Artist, Drums
Additional personnel
Darby Slick • Composer
David Hassinger • Engineering
Herb Greene • Photography
Jerry Garcia • Guitar
Rick Jarrard • Producer
Skip Spence • Composer
- - - - - END - - - - -
I fill this field when I have copied the album's data from a variety of sources and edited out the duplication in a text-editor.
The field-filling script is as follows
Code: Select all
On mouseUp
if "- - - - - END - - - - -" is not in field "Personnel" then
put the clipboarddata into field "Personnel"
put lineoffset ("Additional personnel", field "Personnel") into Numn
put line 2 to (numn-2) of field "Personnel" into fred
sort lines of fred
put fred into line 2 to (numn-2) of field "Personnel"
put line (numn+1) to -1 of field "Personnel" into fred
sort lines of fred
put fred into line (numn+1) to -1 of field "Personnel"
put "- - - - - END - - - - -" after field "Personnel"
put 0 into maxer
repeat until "[" is not in field "Personnel"
put offset ("[", field "Personnel") into Sta
put offset ("]", field "Personnel") into Sto
delete char sta to sto of field "Personnel"
end repeat
repeat with z = number of chars in field "Personnel" down to 1
if char z of field "Personnel" = " " and char (z-1) of field "Personnel" = " " then delete char z of field "Personnel"
end repeat
repeat with b = 1 to number of lines in field "Personnel"
set itemdelimiter to "•"
if "•" is in line b of field "Personnel" then
put item 2 of line b of field "Personnel" into fred
if last char of fred = " " then delete last char of fred
set itemdelimiter to ","
sort items of fred ascending
set itemdelimiter to "•"
put fred into item 2 of line b of field "Personnel"
end if
repeat with y = 1 to number of words in item 2 of line b of field "Personnel"
if the chartonum of Char 1 of word y of item 2 of line b of field "Personnel" > 96 and the chartonum of Char 1 of word y of item 2 of line b of field "Personnel" < 123 then
put the numtochar of ( the chartonum of Char 1 of word y of item 2 of line b of field "Personnel" - 32) into Char 1 of word y of item 2 of line b of field "Personnel"
end if
end repeat
end repeat
save this stack
end if
end mouseUp
What am I doing wrong?