HSPTV!掲示板

bcopy命令等のファイルコピー命令を使ってコピーを行い途中経過（コピー率（％））を表示したいのですが、
できますでしょうか？

bcopyを何回も行っているならできる。
４回なら１回終わったら25%終わったことに。
１回の中での経過率を求めたいのなら、そういう命令を自作すれば？
というか、1回だけならHSPでもまあまあ早いから経過率出すほどでもないだろ。

checkさん
回答ありがとうございます。

＞１回の中での経過率を求めたいのなら、そういう命令を自作すれば？
それを「どのようにすれば良いか」聞きたいのですが・・・
＞というか、1回だけならHSPでもまあまあ早いから経過率出すほどでもないだろ。
巨大ファイル（100-300GB程度）を扱うソフトウェアを開発中なので、必要だと思っております。
・・・かなり大きなファイルなので時間は凄い事になりますが。。

よく調べてないけど、こことか？
http://hspnext.com/hspkura/hspkura04.htm#contents12

・全体のファイルサイズ÷１回当たりの転送サイズ＝ループ回数
・（ループ回数÷１００）×１００＝１ループ辺りの進捗率
・現在の進捗率を初期化

ループ始まり
　　・ファイル転送
　　・現在の進捗率＋＝１ループ辺りの進捗率
　　・経過表示
ループ終わり

・１００％にして進捗表示

大まかにこんな感じ。

だぶん、bloadとbsaveをリピート内で繰返せばいいのではないかと…

1.existで、コピー元のファイルサイズをとっておく
2.コピーに使うバッファメモリのサイズ固定（メモリが少なくても転送できるように）
3.バッファメモリサイズ＊回数
4.コピーしたサイズをファイルサイズで割ってお好きなように加工

たとえば、100MBのファイルを1MBずつbloadとbsaveでリピートを使いコピーして
（1MB*cnt/100MB）*100をリピートごとに更新していく


コピーに使うバッファメモリのサイズ固定転送方法は、
下の一番最後のほうにあるバッファメモリサイズの固定したファイルの転送方法が
使えると思います。

ttp://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200604/06060037.txt

こんな方法ではどうでしょうか？

進行状況の表示が第一の目的じゃないなら、システムに放り投げては？
（時間がかかる場合は、システムの方で進行状況ダイアログが表示される）

SHFileOperation関数
http://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200801/08050033.txt
http://yokohama.cool.ne.jp/chokuto/urawaza/struct/SHFILEOPSTRUCT.html

checkさん、　さん、シモンさん、Kpanさん、
回答ありがとうございます。

＞よく調べてないけど、こことか？
折角探してくれたのにすみません。
私の勉強不足か、あまり分りませんでした。。

＞大まかにこんな感じ。
大体は分りました。ありがとうございます。

＞だぶん、bloadとbsaveをリピート内で繰返せばいいのではないかと…
仰るとおりホームページを見まして、色々してみたのですが、
下のがそのスクリプトです。

#define BUFFERSIZE 1048576;バッファサイズを1MBに指定
#define fn "ファイル名";コピーするファイル名

	sdim buf,BUFFERSIZE;バッファ確保

	exist fn : filesize = strsize;ファイルサイズ取得

	//初回はファイルを作成しないといけない（？）為、ここで処理。（他に良い方法は無いかな？？）
	bload fn,buf,BUFFERSIZE,BUFFERSIZE*cnt;コピー元1ブロック（1MB）初回読み込み
	bsave "[コピー]"+fn+"",buf,BUFFERSIZE;コピー先1ブロック（1MB）初回書き込み

	repeat (filesize/BUFFERSIZE)-1,1

		title "コピー中・・・（"+(cnt+1)+"/"+filesize/BUFFERSIZE+"）"
    	bload fn,buf,BUFFERSIZE,BUFFERSIZE*cnt;コピー元1ブロック（1MB）読み込み
    	bsave "[コピー]"+fn+"",buf,BUFFERSIZE,BUFFERSIZE*cnt;コピー先1ブロック（1MB）書き込み
    	wait 1

	loop

・・・まだコピー率（％）はやってないのですが、
これで求め方と言うか、どうすれば良いかイマイチ分らないのですが、どうすれば良いでしょうか？
また、一応動く形にはしているのですが、スクリプトも結構問題があると思うので、そちらも指摘してもらえると幸いです。

・・・おっとすみません。Kpanさんのアドバイスの返事を書き忘れました。。
＞進行状況の表示が第一の目的じゃないなら、システムに放り投げては？
「ダイアログが出る」と言うのは初耳ですね。。（勉強不足）
えっと、、なるべく独自でやりたいので。。（あとで色々とできるので）

以前、組んだプログラムに同じようなコードがありましたので参考までに。

ちなみに、私はHSPをはじめてまだ４ヶ月ぐらいのうえ、
以下のコードは２ヶ月目くらいのときに組んだので、
うまい方から見ると「おいおい」…というコードかもしれません。

私自身がわかり易いように書いていたので、コード内の変数名もそのままです。

ファイルパスとファイル名は適当に入力して試してみてください。

#define BUFFERSIZE 1048576;バッファサイズを1MBに指定

*onembcopy

	exist FilePath : FileSize = strsize

	if(FileSize < BUFFERSIZE){
		sdim File,FileSize
		bload FilePath,File,FileSize
		bsave NewFilePath,File,FileSize
	}else{
		sdim File,BUFFERSIZE
		sdim MstrSize,64
		MstrSize = FileSize \ BUFFERSIZE
		sdim count,64
		count = (FileSize / BUFFERSIZE)
		bsave NewFilePath,FileSize,0
		repeat
			if(cnt = count){
				sdim File,MstrSize
				bload FilePath,File,MstrSize,BUFFERSIZE*cnt
				bsave NewFilePath,File,MstrSize,BUFFERSIZE*cnt
				break
			}else{
				bload FilePath,File,BUFFERSIZE,BUFFERSIZE*cnt
				bsave NewFilePath,File,BUFFERSIZE,BUFFERSIZE*cnt
			}
			title "コピー中・・・"+int(( BUFFERSIZE*cnt/FileSize )*100)+"％" ;たぶんこんな感じでいいのではないかと
			wait 1
		loop
	}

return

このやり方のコピーは、
条件分けしないとコピー後のファイルサイズが変わってしまうことがあります。

例えば、条件分けしないと100.5MBのファイルをコピーした1MBずつコピーしたときに
出来たファイルが101MBになってしまったりします。


進捗状況をGUI等で表示したいなら、
Kpanさんのページに行ってプログレスバーの情報等を勉強すると早いです。

私もわからなくなると、よくKpanさんのページにお世話になりに行きます。

シモンさん、
回答ありがとうございます。

サンプルスクリプトを、FilePathにコピー元ファイル名、NewFilePathにコピー先ファイル名を入れて動かしてみたのですが、
コピー率（％）がずっと0%のままでした。
どう言う事なんでしょう？

centerさんが上で示されているスクリプトの問題点はシモンさんの言うとおり。
コピー元のファイルサイズがBUFFERSIZEで割り切れない場合は、正確にファイルをコピーできていません。

その点と、スクリプト中の「（他に良い方法は無いかな？？）」の部分を踏まえて
改変してみましたので参考までにどうぞ。
最初の #define がその部分ですが、わからなければあまり気にしなくても良いです。

ちなみにシモンさんのサンプルは％表示の部分において、整数同士を割っているため
％が正しく表示されません。実数への変換( double )が必要です。
下のスクリプトと見比べてみるとわかりやすいと思います。

#define bsave2(%1,%2,%3=64,%4=0) if %4==0 : bsave %1,%2,%3 : else : bsave %1,%2,%3,%4
// ↑ bsaveの第４パラメータが０の時は新規作成するような「bsave2」を定義。

#const BUFFERSIZE 1024*1024		; バッファサイズを1MBに指定
#define fn "ファイル名"	; コピーするファイル名

sdim buf,BUFFERSIZE				; バッファ確保
exist fn : filesize = strsize	; ファイルサイズ取得

nokori = filesize				; この３つの変数に
toWrite = BUFFERSIZE			; 着目すると流れが
offset = 0						; わかりやすいと思います。

repeat
	if nokori < BUFFERSIZE : toWrite = nokori; 最終ブロックのサイズはBUFFERSIZEとは限らない。
	
   	bload fn,buf,toWrite,offset				; コピー元1ブロック読み込み
   	bsave2 fn+"_copied",buf,toWrite,offset	; コピー先1ブロック書き込み

   	nokori -= toWrite						; 書き込んだ分（toWrite）だけ nokori を減らす。
   	offset += toWrite						; 書き込んだ分（toWrite）だけ offset を増やす。
   	
 	title "コピー中・・・（ " + int( 100.0 * ( double(offset) / double(filesize) ) ) + " % ）"
 	
  	if nokori==0 : break					; 残りサイズが０になったらコピー完了。
   	
   	wait 1
loop

＞elfizmさま
ご指摘ありがとうございます。
しばらく前にこの掲示板で実数の計算の質問を見ていたのに頭から抜け落ちていました。

　title "コピー中・・・"+int((double(BUFFERSIZE*cnt)/double(FileSize))*100)+"％"

;100%を出したい場合にはloop外にも　title "コピー終了・・・100％"　を書いた方がいい

初心者の私と違ってうまい方が書かれるコードは違いますね。
こういう風に組むのかととても参考になります。

私のコードは、以前組んだプログラムに使ったもので
コピーした後に元のファイルと同じタイムスタンプを…
それで、作ってみたら…「これ、ファイル同期ソフトじゃないの？」となってしまい
お蔵入りになっていたものでしたので、他の人の役に立ってよかったです。


＞centerさま、
どちらも一つのファイルごとのパーセンテージしか出ません。
つまり、一ファイルごとに0〜100％を繰返します。

なので、フォルダごと等の複数ファイルをコピーするときには、
効率があまりよくない気がしますが、
ファイルリスト等を作ってリピートなどで繰り返し

"現在コピー中のファイル（リピート内ならcnt+1とか）　/ コピーするファイルの数（リストをnotemax等で取得）"

等の表示を付け加えるともっと進捗状況がわかり易くなると思います。
もちろん、もっと効率のいい方法があればその方法がいいのですが…

以上　蛇足でした。