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

タイトル 65535行を超える指定行にジャンプするマクロ
投稿日: 2020/11/23(月) 00:10
投稿者konno
 番 号 9927       コメント数 1

#9920 の 行番号取得ルーチンの解析 からヒントを得て
65535行を超える巨大ファイルの指定行にジャンプするマクロが出来ました。
&Ln(p,str) 十進数(ロング)の取得 の使い方、これでいいのかな。


=== jump_L.def === 
;	65535行を超える巨大ファイルの指定行にジャンプ	Ver0.1
;	シフト実行なら現在行の表示
;	使用変数 n,i,j,l,pu,
*m
80^\""?.
	(ks&1)?>C				;シフト実行なら現在行の表示
	&g("",-9) &Ln(pu,pw)			;&Ln(p,str) 十進数(ロング)の取得
	n=r, &Cr (n==-1)?.			;
	n=pu..1, #^				;ファイルの先頭へ
:B	(n>0)?{&#J(-1) #x  n--, }		;65536行ジャンプ
	(ln==0&&n>0)?>B 			;n>0の間繰り返し
	(ln!=0)?{&#J(-1) >C }			;指定行が大きすぎる時は最後まで
	&#J(pu..0) &d pu..2=pu..0,				;余りの行ジャンプ
	&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			;現在位置に戻す
	.


    - No.9927 一括表示へ   -              [ 返信 ]    [引用あり] pre


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