今日のテーマ   日々改造 (^_^;)         
[記事リスト(ツリー表示)]  [ 返信 ]   [新着記事] [最新50] [ワード検索] [過去ログ]

タイトル 十分割ジャンプマクロ JUMP10.def Ver0.4
投稿日: 2020/11/08(日) 16:04
投稿者konno
 番 号 9907    9864 番 konno さんへのコメント

現在考えられる範囲ではベストのジャンプマクロが完成しましたのでアップします。
マクロの改造ポイントの説明は、#9906 にあります。


=== JUMP10.def === 
;	 H岡,DANNY,和生,めざら,konno 100/10分割ジャンプ,行番号付
;元ネタ 17079/17177  H岡  その3:ファイル十分割地点へジャンプ ;(15)  00/10/31
;どんな大きなファイルでも、十分の一刻みで、正確に、ファイル内のお望みの地点へ着地してくれます。
;※ 高橋版系以外のVZ は、&Ld の制限で実用ファイルサイズは3.2M までです。
;[ESC]+0 なら1〜99入力 百分割ジャンプ/100 以上なら行番号ジャンプ
;使用している汎用変数:n,p		Ver0.4  2020-11-08

*M

80 [ESC]0 "きっちり十分割ジャンプ:巨大ファイル対応版"
	?.
	n=r,					;[ESC]+数字を n に
	(n==0)?>J				;[ESC]+0 なら1〜99入力へ
	n=n*10, pw.1='0', >T			;1〜9は十分割ジャンプ
:J						;[ESC]+0 なら1〜99入力 百分割ジャンプ
	&g("",-9) n=r, &Cr (n==-1)?.			;-9:Line No. /[ESC]etc.
	&Sn(pw)(r>2)?{ &#J(n)  &d  >q.}		;100 以上なら行番号ジャンプ 65534行まで
	n=pw.0&$f*10+pw.1&$f,			;n:%
	(pw.1)??pw.1='0',			;着地微調整
:T	p126+wa, #]				;p:mark0,wa+126
#if tVZ
	&Tz(wa) p..0=ax, p..1=dx,		;tVZファイルサイズ DANNY
#else						;oVZは3.2Mまで
	&Im(p,0)				;pをクリア
	&s #_ #> &Le(p,wa+82)			;wa+82 + cp-2 = ファイルサイズ
	&Ia(p,cp-2) ax=p..0,dx=p..1, &d		;ロング加算 wa+82=head lptr
	(dx>=$32)?{&m("3.2M サイズオーバーです").} ; 3,276,800以上はoVZ暴走
#endif
	&Id(p,100) &Im(p,n) &Ia(p,r*n/100)	;r:mod revise
	#U (ax+$8000<$80c8 && dx==0)?>q 	;200 byte
:u	ds[+, #]
#if kVZ
	(50){#d (r)?{}(pw.1-pq..133.11)??{}}   ;status chr, kvz,ovz:.11
#else
	(50){#d (r)?{} (pw.1-pq..133.10)??{} }   ;status chr, tvz:.10
#endif
	ds],
:q	&d &m("Jump to %d%",n) ;&w(40)   ;.
;	&m("") 
	.

*


Ver0.4  2020-11-08	H岡さんと和生さんとめざらさんとDANNYさんのマクロを悪魔合体。(^^;
Ver0.3  2020-10-21	32767行以上に対応?  (^^;
Ver0.2  2020-09-00	まぼろし〜? (^^;
Ver0.1  2006-11-09	H岡さんと和生さんとDANNYさんのマクロを悪魔合体。(^^;

    - No.9907 一括表示へ   -   コメント元:9864 一括表示へ  -    [ 返信 ]    [引用無し] pre


- 関連一覧ツリー (先頭の番号をクリックするとツリー全体を一括表示します)
9864.十分割ジャンプマクロの更新 - konno 20/10/21-22:51
  ┣9870.Re: 十分割ジャンプマクロの更新 - としき 20/10/29-19:28
  ┣9873.Re^2: 十分割ジャンプマクロの更新 - めざら 20/11/01-18:53
  ┣9878.Re^3: 十分割ジャンプマクロの更新 - konno 20/11/03-01:42
  ┗9879.Re^4: 十分割ジャンプマクロの更新 - めざら 20/11/03-07:36
   ┗9886.Re^5: 十分割ジャンプマクロの更新 - konno 20/11/04-00:57
    ┗9895.Re^6: 十分割ジャンプマクロの更新 - めざら 20/11/06-22:26
     ┗9896.Re^7: 十分割ジャンプ、ロング計算マクロ - konno 20/11/07-00:46
      ┗9898.Re^8: 十分割ジャンプ、ロング計算マクロ - めざら 20/11/07-08:58
       ┣9902.Re^9: 十分割ジャンプ、ロング計算マクロ - konno 20/11/07-20:56
       ┗9906.十分割ジャンプの完成形のヒントは原点にあった - konno 20/11/08-15:56
        ┗9910.Re: 十分割ジャンプ、1/1000 にしてみたら - konno 20/11/09-20:15
  ┗9881.Re^3: 十分割ジャンプマクロの更新 - としき 20/11/03-13:21
   ┗9885.Re^4: 十分割ジャンプマクロの更新 - めざら 20/11/03-16:05
    ┗9890.Re^5: 十分割ジャンプマクロの更新 - としき 20/11/04-23:29
     ┗9892.Re^6: 十分割ジャンプマクロの更新 - めざら 20/11/06-07:06
      ┗9894.Re^7: 十分割ジャンプマクロの更新 - としき 20/11/06-19:44
       ┗9899.Re^8: 十分割ジャンプマクロの更新 - めざら 20/11/07-09:19
        ┣9901.Re^9: 十分割ジャンプマクロの更新 - としき 20/11/07-11:35
  ┗9876.Re^2: 十分割ジャンプマクロの更新 - konno 20/11/03-01:12
   ┗9882.Re^3: 十分割ジャンプマクロの更新 - としき 20/11/03-13:21
    ┗9891.Re^4: 十分割ジャンプマクロに適した式は? - konno 20/11/06-00:07
     ┗9893.Re^5: 十分割ジャンプマクロに適した式は? - としき 20/11/06-19:44
      ┗9897.Re^6: 十分割ジャンプマクロに適した式は? - konno 20/11/07-01:12
       ┗9900.Re^7: 十分割ジャンプマクロに適した式は? - としき 20/11/07-11:35
        ┗9903.Re^8: 十分割ジャンプマクロに適した式は? - としき 20/11/07-22:46
         ┣9904.Re^9: 十分割ジャンプマクロに適した式は? - konno 20/11/07-23:14
         ┗9908.Re^10: 十分割ジャンプマクロに適した式は? - としき 20/11/08-23:59
          ┗9909.Re^11: 十分割ジャンプマクロに適した式は? - konno 20/11/09-01:41
           ┗9921.Re^12: 十分割ジャンプマクロに適した式は? - としき 20/11/19-23:15
            ┗9923.Re^13: それぞれの事情 - konno 20/11/20-00:12
             ┗9925.Re^14: それぞれの事情 - としき 20/11/20-01:06
              ┗9926.Re^15: それぞれの事情 - konno 20/11/22-23:48
         ┗9905.Re^9: 十分割ジャンプマクロに適した式は? - めざら 20/11/07-23:40
  ┗9907.十分割ジャンプマクロ JUMP10.def Ver0.4 - konno 20/11/08-16:04
  ┗9911.十分割ジャンプ JUMP10.def Ver0.5 - konno 20/11/09-21:15

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)   [引用無し]
おなまえ 
Eメール 
タイトル 
メッセージ auto soft pre(図表、プログラム) ※折り返さずに改行を入れてね
 参照先 
 暗証キー (英数字で8文字以内)
 プレビュー          

- 以下のフォームから自分の投稿記事を修正・削除することができます -
   処理   記事No   暗証キー
    [ページトップへ] [管理用]