"VAL".string3 := '';

"VAL".LONG := 0;

#m := LEN("VAL".string1);

#n := LEN("VAL".string2);

FOR #I := 1 TO #m DO

        FOR #j := 1 TO #n DO

                IF "VAL".string1[#I] = "VAL".string2[#j] AND "VAL".string1[#I] <> '' AND "VAL".string2[#j] <> '' THEN

            "VAL".LONG := "VAL".LONG + 1;

            "VAL".string3["VAL".LONG] := "VAL".string1[#I];

        END_IF;

            END_FOR;

 END_FOR;

大概就是这个样子写的吧，作比较，取出，累加