長さ0文字対策してなかったので直した DEF TRIM(S$) WHILE LEN(S$)>0 IF S$[0]!=" " THEN BREAK S$=RIGHT$(S$,LEN(S$)-1) WEND WHILE LEN(S$)>0 IF S$[LEN(S$)-1]!=" " THEN BREAK S$=LEFT$(S$,LEN(S$)-1) WEND RETURN S$ END