[HTML] 01.02.28 混 L=9303 C=0080 GOTO *開始: F=1,78,1 ******************************************************************************** * * * MYTOOL -> HTML TABLE CONVERTER Ver 2.01 Programed by Gomi * * * * 1998.02.23 V1.00 Orignal * * 1998.03.07 V1.10 Bug Fix+width % * * 1998.03.15 V1.11 long file * * 2001.02.22 V2.00 MTW+CSS * * 2001.02.28 V2.01 Bugfix+Javascript * ******************************************************************************** *開始 X: Z0=-1:ACCP:このページをHTML化します はい…RET いゝえ…ESC :?: IF Z0<0 THEN:GOTO *終了:ENDIF: IF Z0>0 THEN:GOTO *開始:ENDIF: IF T0=0 THEN:列がありません Put Enter Key :?:GOTO *終了:ENDIF: DIA:Z11=Z35:Z12=Z38+1: IF Z40=0 THEN:計算行がありません Put Enter Key :?:GOTO *終了:ENDIF: SETX:2:Z12:ESC:DL:K:SH::LT<>|:::X: CF:::Z13=(T0+1)*9+Z38:Z15=T0*2+1: SET:1:1:2:80:16:0:ESC: V6="1":FOR Z20=3 TO Z15 STEP 2:V7=Z20:V6=V6+","+V7:NEXT Z20: RESTORE *文頭: CT::V1="

"+V0+"

":V9=""+V0+"": V10="": DATE::V2=V0:TIME:1::V3=V0: V8="": F:KUHAK:4:::―院:"""""":ESC:CFP:1 :1:1:2:1:DC:2: V4=[7,1]:CFP:2:1-2:V5=[6,1]: V11="": V12="
": V13="
": F:HEAD:80::%:%:%:%:%:%:V8:V9:%:V11:V1:%:V10:ESC:SL::W:S1: RESTORE *文末: F:TAIL:80::%:%:V12:%:V13:%:%:ESC:SL::W:S2: X:SHU::=*<*,*>*,*&*,*V4*::Y:$<:"{":$>:"}":$&:|:$V4:':: Z17=Z36: IF Z11>Z13 THEN:Z21=3:GOSUB *変換:Z16=Z0: ELSE:CPS:Z13: DL:A:W:S3:WB:S4:SH:S3-Z0::S3:Z16=Z0: FOR Z21=3 TO Z16:R:SZ21:GOSUB *変換:NEXT Z21: ENDIF: SPUT:S1,3-Z16,2:?*1:2: IF Z17>0 THEN:BEEP:CLS: LOC:07:10:PRINT:HTML文では>,<,&,V4は表示できません: LOC:10:10:PRINT:"とりあえず},{,|,'に変換しています": LOC:13:10:PRINT:あとで実体参照(< > & ")か: LOC:16:10:PRINT:全角の>,<,&,“に直して下さい: ENDIF: *終了 STOP: *変換 DRC:: SHU:::Y:$ :V5:: CF:V6:9:CF:1:8:CF:T:10: SHU:::Y:1:
:$ |:
:T:
:: W:SZ21: RETURN: *文頭 DATA : DATA ,: DATA : DATA : DATA : DATA : DATA ,
: *文末 DATA
,
: DATA 戻る: DATA Gomi's Page: DATA : ******************************************************************************** * Z11 PAGEの桁数 * Z12 F行の次 計算開始行にする * Z13 必要な横幅 * Z15 罫線を引いたときの列数 * Z16 サブページの最終書き込み頁 * Z17 HTML使用不可文字の変換フラグ * Z18 罫線の無いときの列数 * Z20 ループ1 罫線の列 * Z21 ループ2 サブページ * V1 PAGEのタイトル * V2 変換日付 * V3 変換時刻 * V4 ダブルクォーテーション(半角) * V5 全角空白 * V6 罫線の列 * V7 Z21のイメージ * V8 ヘダー 作成年月日/時間 * V9 タイトルHTML文 * V10 タグ CSSにて右寄せ * V11 タグ CSSにてバックグラウンドカラー指定 * V12
タグ CSSにてセンタリング * V13
タグ CSSにて右寄せ ******************************************************************************** * HTMLエディターなどで強制的にコメントタグが書き換わるる場合を除き * オリジナルのコメントタグを削除しないで下さい * 僕のHomePageへのリンクタグは削除してもかまいません * CSS & JavaScript使用の為、ネスケ・IE共 Ver4以上が必要なページとなります * SPUTは2で行っている為に文末にカスが残ります 嫌な方は4にして下さい ********************************************************************************