Implement function:
Function ischarsinbag (S, BAG)
{
VAR I, C;
For (i = 0; i
{
C = S.Charat (i); // character in string S
IF (Bag.indexOf (C)> -1)
Return C;
}
""; "
}
Check function:
Function ischinese (s)
{
Var errorchar;
Var badchar = "Abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789> <, <> {}? / = | // '/": ~! # $% () `";
ErrorChar = ischarsinbag (s, badchar)
IF (Errorchar! = "")
{
Report = report "Please re-enter Chinese / N";
Return False;
}
Return True;
}
