Jq 99.12.1519 [HTML2] 00.08.26 混 L=14641 C=0074＊ 1.01 2000/08/23 追加 ＊ 保存ファイル名変更 ＊ 1.02 2000/08/26 整理 ＊ファイル名 HTML2.MYX ＊生成ファイル FRON.MYX（元デ―タ保存用） TEMP\TEMP.HTM（結果ファイル） ＊使用変数 Z91,Z92,Z93,Z94 Z99 ＊設定変更 SETC:10:3:120（ デフォルト SETC:10:1 ） ＊動作確認 マイツ―ル for Windows V1.16 2.00  ＊仕事 マイツ―ル表 → HTML テ―ブル変換 ＊仕様 １行目はタイトルとして扱います。 ＊ 半角カナは無いものとして扱います。 ＊ あればＣＴＰコマンドで、予め全角カナに直して下さい。 ＊その他 表画面の元デ―タは RFL:FRON.MYX で画面に戻せます。    DPOFF:  WFL:FRON.MYX:: ＊念のための保管   SETC:10:3:120:ESC: ＊タグが入らないといけないので   CTP:2:1: ＊タグを入れる為に混在モ―ドへ  DIA:  Z91=Z38: ＊Ｆ行番号の取得  Z92=Z37: ＊使用最終行   IF Z38=0 THEN:GOTO ＊文章:ENDIF: ＊Ｆ行が無い時。  IF T0<=3 THEN: ＊３列以下の時。  DPON:  Z0=1000:  ACCPNUM:[HTML2] 文章…1 表…2 :1:2:1:?:  IF Z0=1 THEN:GOTO ＊文章:ENDIF:  IF Z0=2 THEN:GOTO ＊表:ENDIF:  RFL:FRON.MYX:STOP:  ELSE:GOTO ＊表:  ENDIF:   ＊文章  CPS:P:DIA:Z93=Z35: ＊文字の桁数の取得  IF Z93>100 THEN:  RFL:FRON.MYX:DPON:  ACCP:１行の文字数を１００桁以内にして下さい。:?:  STOP:  ENDIF:  CPS:+4: ＊タグ分を増やす。  CFA:Z93:4:: ＊列を作る  SETX:3:Z92+1:ESC: ＊使用最終行まで計算行に  "
"=CT:  SHU:::Y:$ :　::: ＊半角空白 全角変換   CT::  IL:1:::V0:::  {}:ESC:  IL:8:
::::ESC:  ML:9-11:(T+1):BL:9:  GOTO ＊ファイル変換: ＊文章変換終わり   ＊表  SETX:2:Z91+1:ESC: ＊項目行から計算行に  IF Z92=T1+1 THEN:DL:T1+1:ENDIF: ＊最終罫線削除  DC:K:DL:K: ＊罫線削除   CPS:P:DIA: ＊頁サイズの取得  IF Z35+T0*9+10>900 THEN: ＊結果列数と桁数の計算  RFL:FRON.MYX:DPON:  ACCP:横サイズに T0*9+10 の余裕必要です。:?: ＊マイツ―ルの限界  STOP:  ENDIF:   Z94=T1:  CPS:P+T0*9+10: ＊タグの桁数を確保  SVL:Z91: ＊Ｆ行の保管  IF T1"=C1:  FOR Z99=3 TO T0:  ICS:Z99:9::CZ99+""=CZ99: CFP:2:Z99-(Z99+1):  NEXT Z99:  ICS:(T+1):10::""=CT::   DPON:  V0="ESC":  ACCP:空白を全角に変換します。[ESCキ― …中止] :?:  IF V0="" THEN:SHU:::Y:$ :　:::ENDIF: ＊半角空白 全角変換  ＊タイトル行の処理  DPOFF:  CT::DL:1:  IL:1:::V0:::ESC:  IL:6:

V0

:
:{}: * IL:6:

V0

:
:{
}:  "
":::ESC:  ML:8:H:  ML:8-10:(T+1):  BL:Z91+6: ＊Ｆ行消し * LDL:Z91+6: ＊Ｆ行戻し  ＊ファイル変換  CHKFILE:M: ＊ＨＤＤ確認  STRCPY:ABCDEFGHIJKLMNOPQRSTUVWXYZ:" :":Z37:1:1:"V0":  DPON:  V0=V0+"TEMP\TEMP.HTM": ＊MYTOOLフォルダのTEMP\  SPUT::V0:7:   ACCP:MYTOOLフォルダのTEMPにTEMP.HTM として書き込みました。:?:  STOP: