Can anyone explain me how to shorten the code I use?

Rob Cozens rcozens at pon.net
Wed Mar 15 11:00:51 EST 2006


Hi William,

> if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "1"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"
>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "2"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"
>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "3"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"
>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "4"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"
>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "5"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"
>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "6"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"
>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "7"
>  then answer error "Naam van leerling 1 mag niet leeg zijn!"

Note: the following case

>
>  if the text of field "naam1" is not empty and the selectedtext of
> button "naam1nivo" = "..."
>  then answer error "Niveau van leerling 1 mag niet leeg zijn!"
>

triggers a second action in the else clause below

>  if the text of field "naam1" = empty and the selectedtext of button
> "naam1nivo" = "..."
>  then put "" into tData
>  else put field "naam1" && the selection of button "naam1nivo" &cr 
> into tData
>
> So can anyone help to shorten the code (because I have 25 fields)?
>

on processFields
    put  "Naam van leerling 1 mag niet leeg zijn!" into errorMessage -- 
if "1" is constant
    repeat with x = 1 to 25
        put  ("Naam van leerling"&x&"mag niet leeg zijn!") into 
errorMessage -- if "1" changes
        put ("naam"&x&"nivo") into buttonName
        put (the text of field ("naam"&x) = empty) into emptyField
        get the selectedtext of button buttonName
        if  it "..." then
            if not emptyField then answer error errorMessage
            if emptyField then put "" into tData
            else put field ("naam"&x) && the selection of button 
buttonName &cr into tData
        else if emptyField answer error errorMessage
     end repeat
end processFields

Rob Cozens
CCW, Serendipity Software Company

"And I, which was two fooles, do so grow three;
Who are a little wise, the best fooles bee."

from "The Triple Foole" by John Donne (1572-1631)




More information about the Use-livecode mailing list