>global answertext
>on mouseup
>  fieldcount = 4 --change this to 15, or whatever is the total number 
>of chapters/fields
>  chapterletters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  --enough for 26 chapters
>  answertext = "" --the text that will go into your "answer" member
>  repeat with a = 1 to fieldcount
>    if the text of field a = empty then
>      nothing
>    else
>      put char (value(the text of field a)) of chapterletters into 
>char a of answertext
>    end if
>  end repeat
>  member("answer").text = answertext
>end


Try this instead:

global answertext
on mouseup
  fieldcount = 4 --change this to 15, or whatever is the total number 
of chapters/fields
  chapterletters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  --enough for 26 chapters
  answertext = "" --the text that will go into your "answer" member
  repeat with a = 1 to fieldcount
    if the text of field a = empty then
      nothing
    else
      put char (value(the text of field a)) of chapterletters after answertext
    end if
  end repeat
  member("answer").text = answertext
end

[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi  To post messages to the list,
email [EMAIL PROTECTED]  (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo.  Thanks!]

Reply via email to