HSPTV!掲示板

この記事は投稿者により削除されました。
2009/7/12(Sun) 23:50:52

>mes命令を使って.html 出力
とはhtmlを画面上に表示したいということでしょうか？
それとも文字列を.html形式で保存したいということでしょうか？

返信ありがとうございます。

cgi として動かしていますので、 html を画面表示させたいです。

追記です。

上のテスト結果は、私が自分でテストしてみたものですが、
処理時間には、文字列の準備（○○個連結する）時間は入っていません。


１.２.の結果を比較して、改行の度に遅いのかと思ったのですが、
実験結果４を見ると、一概にそうも言えないような気がしています。

#include "d3m.hsp"
	a=""
	repeat 20
		a+="0123456789"
	loop

	time1=d3timer()
	repeat 10
		mes a
	loop
	time2=d3timer()
	mes "かかったじかん："+(time2-time1)

うちだと1って出るんだけど、スレ主は全く違う事をやってるのかしら。

たけっちです。
ここで最後にぷまさんが示されているプログラムを利用して
速度を計測しました。

http://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200707/07090030.txt

１つめのリピートで文字列を作って、２個目で表示させています。

/*** 時間測定用のおまけ st, gt (スタートとゴール の差の時間mSec)***/
#uselib "kernel32"
#func QPFreq "QueryPerformanceFrequency" var
#func QPCount "QueryPerformanceCounter" var
#define st _t= 0.:QPFreq _t : QPCount _t.1
#define gt QPCount _t.2 :title strf("%%.3fmSec", (_t.2-_t.1)*1000/_t)
/******************************************************************/

sdim a, 6000000
sdim result, 6000000


// 変数aのデータ作成
;	a= "01234567\n"
	a= "0123456789"

repeat 10
	poke a, i, a : i+= strsize
loop


st	// 時間計測開始
repeat 10
	mes a
loop
gt	// 時間計測終了

aを10個連結じゃなくてaを512個連結(2の9乗)
20のときで524288(2の19乗)個連結になってます。

ついに指摘が入ったようなので・・・

1回目：a="0123456789"
2回目：a="0123456789"+"0123456789"
3回目：a="01234567890123456789"+"01234567890123456789"
4回目：a="0123456789012345678901234567890123456789"+"0123456789012345678901234567890123456789"
.......

とこうなってたという笑い話

あ、ほんとだ。変数のresult 使うの忘れてました。
ありがとうございます。