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

タイトル 十分割ジャンプマクロの更新
投稿日: 2020/10/21(水) 22:51
投稿者konno
 番 号 9864       コメント数 3

#9857 以降で話題にしていた十分割ジャンプマクロの問題点が解消出来たのでアップします。
オリジナルVZでも動作しますが基本的には高橋版系用です。


=== JUMP_10.def === H_oka,DANNY,wanama,konno 100/10分割ジャンプ,行番号付

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

*M

80 [ESC]0 "きっちり十分割ジャンプ:巨大ファイル対応版"
	?.
	n=r,					; ★[ESC]+数字を n に
	(n==0)?>j				; ★[ESC]+0 なら1〜99入力へ
#if tVZ
	n=n*10, pw.1='0', >t			;高橋版以降
#endif
	&s #_ i[, i=ln, 
	(i<0)?{i=(-i/(-i/7))+1,n=(-ln/i)*n, &#J(n) >A}  ;32767行以上に対応
	n=(ln/10)*n, &#J(n) 			;めざら資源の VZ Macro FAQ から
:A	i], &d >q
;17200/17467  和生  RE:RE*4:その3:ファイル十分割地点へジャ;(15) 00/11/16
:j						; ★[ESC]+0 なら1〜99入力 百分割ジャンプ
	&g("",-9) n=r, &Cr (n==-1)?.			;-9:Line No. /[ESC]etc.
	&Sn(pw)(r>2)?{ &s &#J(n) #e &d #m >q.}	;100 以上なら行番号ジャンプ 65534行まで
#ifn tVZ
	&s #_ n=(ln/100)*n, &#J(n) &d >q.	;百分割ジャンプ   VZ Macro FAQ から
#endif
	n=pw.0&$f*10+pw.1&$f,			;n:%
	(pw.1)??pw.1='0',			;着地微調整
:t	p126+wa,				;p:mark0,
	#] &Tz(wa) p..0=ax, p..1=dx,		;ファイルサイズ DANNY
	&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
	(300){ #d (r)?{} (pw.1-pq..133.11)??{} }   ;status chr, kvz,ovz:.11
#else
	(-1){ #d (r)?{} (pw.1-pq..133.10)??{} }   ;status chr, tvz:.10
#endif
	ds],
:q
;	&m("Jump to %d",n) ;&w(40)   ;.
	&m("") 
	&d .

*


このマクロ中で、VZは32767行以上は数値がマイナスになってしまうので
	(i<0)?{i=(-i/(-i/7))+1,n=(-ln/i)*n, &#J(n) >A}  ;32767行以上に対応
の行で 32767行以上に対応させてみたんですが

	i=(-i/(-i/7))+1,

この変な計算は誤差を少なくするための苦肉の策です。(^^;
何かうまいやり方無いですかね。


    - No.9864 一括表示へ   -              [ 返信 ]    [引用無し] pre


- 関連一覧ツリー (先頭の番号をクリックするとツリー全体を一括表示します)
 十分割ジャンプマクロの更新 - 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   暗証キー
    [ページトップへ] [管理用]