FORMAT "0000年00月00日" /* 文字列書式設定 DT$=HEX$(DATE(0)) /* 年月日文字列取得 FORMAT "00時00分00秒" /* 文字列書式設定 TM$=HEX$(TIME(0)) /* 時分秒文字列取得 PR "(1)" DT$ TM$ /* 表示
*RUN結果 (1) 2007年11月07日 12時34分00秒
-------------------- ・数値文字列変換例 FORMATで文字列の書式を設定して変換サブルーチンをコールしています。
v1=123 : v2=-123 /* 数値変数 FORMAT "000" /* 符号無し 3桁 GOSUB *num2str 1 FORMAT "0000" /* 符号無し 4桁 GOSUB *num2str 2 FORMAT "000.0" /* 符号無し少数点以下1桁 GOSUB *num2str 3 FORMAT "s000" /* +-符号有り GOSUB *num2str 4 FORMAT "S000" /* -符号有り、+はスペース GOSUB *num2str 5 FORMAT "" /* 初期値に戻す GOSUB *num2str 6 END *num2str _VAR n_ ds1$=STR$(v1) /* 数値→DEC文字列 ds2$=STR$(v2) hs$=HEX$(v1) /* 数値→HEX文字列 PR n_ ":" ds1$ ds2$ hs$ /* 表示 RETURN
実行結果 RUN 1 : 123 123 07B 2 : 0123 0123 007B 3 : 012.3 012.3 007.B 4 : +123 -123 {07B 5 : 123 -123 {07B 6 : 123 -123 0000007B #
|