dim time,str_out
repeat
sleep(1)
time=time+1
fukidasi("ウインドウ選択及びフォーカスを当ててください<#CR>残り"+(5-time)+"秒")
until time=5　//この間にウインドウ選択及びフォーカス当てる
id=getid(GET_FROMPOINT_WIN)
sckey(id,VK_CTRL,VK_C)
str=getstr(0)
cr=chr(10)+chr(13)+chr(10)
str=chgmoj(str,cr,"</tr><tr><td>")
repeat
str_out=str_out+Token("<#CR>",str, TRUE)
str_out=str_out+"</td><#CR><td>"
until str=""
str=str_out+"</tr><#CR></table>"
str=chgmoj(str,"<td></tr>","</tr>")
str=chgmoj(str,"</tr><tr><td>","</tr><#CR><tr><#CR><td>")
str="<table><#CR><tr><#CR><td>"+str
//str=chgmoj(str,chr(13),"") //自動改行のブログ等で
//str=chgmoj(str,chr(10),"") //改行不要の場合は”//”をはずしてください。
sendstr(0,str)
sckey(id,VK_CTRL,VK_V)