| |
いろいろ親切に教えて頂き、大変感謝しております。
ご指摘の様に、今後はその様にいたします。
ただ、今回の件は、非常に難しく、分かりませんでした。
ご了承ください。
作成していただいたマクロを実行した結果、何も表示されませんでした。
私のミスかもしれません。一度、ご確認お願いします。
それとも、hm v7.07 versionの問題でしょうか？
コード 銘柄 市場 業種 現在値 始値 高値 安値 終値 前日比 騰落率 出来高 回転率
取引時間
1332 日水 東証１ 水産 514 500 520 497 514 +33 +6.86% 10,653,600 3.84% 06/27
15:00
3110 日東紡 東証１ 繊維 242 228 251 226 242 +9 +3.86% 6,588,000 2.66% 06/27
14:59
9113 乾汽船 東証１ 海運 1,654 1,563 1,664 1,563 1,654 +31 +1.91% 1,521,400 5.
17% 06/27 15:00
gofiletop;
setclipboard "";
while(1){
searchdown2 "^([^\\t]+\\t){0}([^\\t]+)(?\\2)", regular;
if(result==false)break;
$code = gettext(foundtopx,foundtopy,foundendx,foundendy);
golinetop2;
searchdown2 "^([^\\t]+\\t){1}([^\\t]+)(?\\2)", regular;
if(result==false)break;
$name = gettext(foundtopx,foundtopy,foundendx,foundendy);
golinetop2;
searchdown2 "^([^\\t]+\\t){5}([^\\t]+)(?\\2)", regular;
if(result==false)break;
$start = gettext(foundtopx,foundtopy,foundendx,foundendy);
call delcomma, $start;
$start = $$return;
golinetop2;
searchdown2 "^([^\\t]+\\t){6}([^\\t]+)(?\\2)", regular;
if(result==false)break;
$high = gettext(foundtopx,foundtopy,foundendx,foundendy);
call delcomma, $high;
$high = $$return;
golinetop2;
searchdown2 "^([^\\t]+\\t){7}([^\\t]+)(?\\2)", regular;
if(result==false)break;
$low = gettext(foundtopx,foundtopy,foundendx,foundendy);
call delcomma, $low;
$low = $$return;
golinetop2;
searchdown2 "^([^\\t]+\\t){8}([^\\t]+)(?\\2)", regular;
if(result==false)break;
$end = gettext(foundtopx,foundtopy,foundendx,foundendy);
call delcomma, $end;
$end = $$return;
if(val($code)==0)continue;
$GRSE = str(((val($end) - val($start)) * 618 + val($start) * 1000 + 500)
/ 1000);
$GRPB = str(((val($high) - val($low)) * 618 + val($low) * 1000 + 500) /
1000);
addclipboard $code + "\t" + $name + "\t" + $GRSE + "\t" + $GRPB
+ "\n";
}
newfile;
paste;
endmacro;
delcomma:
while(1){
#i=strstr($$1,",");
if(#i<0)break;
$$1=leftstr($$1,#i) + rightstr($$1,strlen($$1)-#i-1);
}
return $$1;
|
|