RN = InputBox("ルート要素名は?","LIST"); RW = InputBox("行毎の要素名は?","Row"); yEar = GetYear(); mOnth = GetMonth(); dAte = GetDate(); upd = yEar + "/" + mOnth + "/" + dAte; writeln(""); writeln("<" + RN + " savedate=\"" + upd + "\">"); B = Bottom; R = Right; for( y = 2; y <= B; y++) { Y = y-1; write(" "); writeln("<" + RW + " no=\"" + Y +"\">"); For(x to R) { T = [x,1]; if( pos(T," ") != 0 ) { T = replace(T," ",""); } if([x,y] == "") { write(" "); writeln("<" + T + " />"); } else { str = [x,y]; str = replace(str, "&", "&"); str = replace(str, "<", "<"); str = replace(str, ">", ">"); str = replace(str, "'", "'"); // str = replace(str, "\"", """); // write(" "); writeln("<" + T + ">" + str + ""); } } write(" "); writeln(""); } writeln("");