J[ 00.08.08i. [HTMGET] 00.08.08 混 L=11881 C=0074*Z91,Z92,Z93,Z96,Z94,Z95 V41,V42  ＊Netscape 専用 ＨＴＭＬテ―ブル変換  ＊条件 １テ―ブルデ―タのみ、且つ、１セルが１行に収まってる場合に対応。 ＊ ２行、３行に別れる場合は、フォントを小さくしてコピ―して下さい。  ＊このオ―トが HTMGET.MYX で WFL され、FILEX 登録されていて、 ＊クリップボ―ドに Netscape からのＨＴＭＬデ―タが有る状態で、 ＊RUN:HTMGET です。  ＊尚、V1 は、下の Z97=300: の前に「*」を付け、Z97=100: の前の「＊」を ＊消して下さい。  ＊動作確認 V2.00   Z97=300: ＊32bit版列の可能桁数 * Z97=100: ＊V1 の場合はこちら   SETC:10:3:120:ESC:  ＊マイツ―ルにＨＴＭＬデ―タを取り込む  F:ESC: ＊タイトルを付けるとバグる  CPS:300: ＊Ｖ２ １列の桁数制限以内   CPAST:3::  CPS:P+1:  DIA:  IF Z35>Z97 THEN:  ACCP:マイツ―ル列桁数制限を越えますので、中止します。:?:  ENDIF:   CFA:(Z35-1)::  CF::P: Z91=Z37: ＊Z91 １列目の桁数  SH::C1<>"":::  SV:  ＊列分割桁数の取得  ICS:1:1::  "A"=C1: ＊左からの空白を取る為  CFP:2:1-2:   S::1:2::: ＊左からの空白の少ない順  X:   RVON:RV:RVOFF:  X:   V14=[3,1]:  LEN:V14:Z93=Z0:  Z94=1:  Z95=1: ＊Z95 ＣＦＰ列初期値   FOR Z92=4 TO T1:  V42=[Z92,1]:  LEN:V42:Z96=Z0:   IF Z96""::: ＊ROC 後に出来た空白行抜き  SETX:1:2:2:4:ESC: ＊HS::S で無くなった列の設定  CT:Netscape ＨＴＭＬ変換: ＊ここでないと CF:P で列が消える  CPS:: ＊１頁でも青にならない時が有る  STOP: