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

タイトル 65535行を超える行ジャンプマクロ Ver0.2
投稿日: 2020/11/25(水) 01:27
投稿者konno
 番 号 9928    9927 番 konno さんへのコメント    コメント数 1

65535行を超える巨大ファイルの指定行にジャンプ	Ver0.2

通常ジャンプに対応してなかったので★印追加しました。
これで標準の行番号ジャンプと置き換えられるので、起動キーも、^QJ に。
入力窓を[ESC]や[ENTER]で閉じたら現在行表示としました。


=== jump_L.def === 
;	65535行を超える巨大ファイルの指定行にジャンプ	Ver0.1
;	シフト実行なら現在行の表示
;	使用変数 n,i,j,l,pu,
*m
80^QJ""?.
	(ks&1)?>C				;シフト実行なら現在行の表示
	&g("",-9) &Le(pu,0) &Ln(pu,pw)		;&Ln(p,str) 十進数(ロング)の取得
	n=r, &Cr (n==-1)?>C			;★返り値が-1なら現在行の表示
	&s n=pu..1, #^				;ファイルの先頭へ
	(n==0)?>D 				;★65535行以内なら普通にジャンプ
:B	(n>0)?{&#J(-1) #x  n--, }		;65536行ジャンプ
	(ln==0&&n>0)?>B 			;n>0の間繰り返し
	(ln!=0)?{&#J(-1) >C }			;指定行が大きすぎる時は最後まで
:D	&#J(pu..0) pu..2=pu..0,			;余りの行ジャンプ
:E	&d &m("現在%lu行 Ln=%u行 %u",pu..0,pu..1,pu..0,pu..1)	;
	.	;※ ここをコメントにすれば全行数も確認できる
;	&w(60)	;お好みで
:C	&s #M &Le(pu,wa+126)			;現在位置マーク
	#_ n=ln,				;ファイルの最後へ
	&> l=ln,j=i,				;最大行取得
	&>					;現在行取得
	&d &m("最大%,lu行 %d 現在%,lu行 %d Ln?%u",n,j,j,l,i,i,pu..2)
	.
0:	i-,
:A	&#J(1) #e #e (ln<0)?{i++, >A}		;i=65536*i
	&Le(wa+126,pu) #U			;現在位置に戻す
	.

*

2020-11-25	Ver0.2	通常ジャンプに対応してなかったので★印追加
2020-11-23	Ver0.1	&Ln()使用して65535行を超えるジャンプ実現

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


- 関連一覧ツリー (先頭の番号をクリックするとツリー全体を一括表示します)
 65535行を超える指定行にジャンプするマクロ - konno 20/11/23-00:10
  ┗9928.65535行を超える行ジャンプマクロ Ver0.2 - konno 20/11/25-01:27
   ┗9929.Re: 65535行を超える行ジャンプマクロ Ver0.2 - 文太 20/11/25-17:34
    ┗9930.65535行を超える行ジャンプマクロ あむの版 - konno 20/11/25-23:11

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

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