00019 98/02/27 13:43

CreateSpeechFile:サブルーチン

投稿者：ま神５１号

　　秀Term Evolution ver4.24 からサポートされている、
　　CreateSpeechFile:サブルーチンの呼び出しについて。

　　スクリプトの自動巡回部分と発言ファイル作成部分を
　　独立させたい場合、自動起動するスクリプトの方には

CreateSpeechFile:
　　call SPEECH.HSC
　　return

　　という３行だけ追加しておいて、SPEECH.HSCの方で
　　発言ファイル作成を処理すると便利かもしれません。^^;

00020 98/02/27 14:55

（発言者削除）

投稿者：ま神５１号

00021 98/02/27 16:17

秀TermからWEBブラウザ起動

投稿者：ま神５１号

コメントを投稿する

　　秀Term Evolution ver4.29 からサポートされた
　　state関数を利用して、バックスクロール画面に
　　書かれているURLへアクセスするスクリプトです。
＃　でも、ＩＥでないと上手く起動しないみたい。(^^ゞ

ExecWebBrowser:
　　if( state( "selecting" ) != 1 )
　　　　#mes = "URLを範囲選択してから実行して下さい。"
　　　　error #mes
　　endif
　　##seltopx = state( "seltopx" )
　　##seltopy = state( "seltopy" )
　　##selbottomx = state( "selbottomx" )
　　##selbottomy = state( "selbottomy" )
　　if( ##seltopy == ##selbottomy )
　　　　readbuffer ##seltopy, #line
　　　　#url = part( #line, ##seltopx, ##selbottomx - ##seltopx )
　　else
　　　　##pos = 0
　　　　while( ##pos <= ##seltopy - ##selbottomy )
　　　　　　readbuffer ##seltopy - ##pos, #line[##pos]
　　　　　　##pos = ##pos + 1
　　　　endwhile
　　　　#url = part( #line[0], ##seltopx, 80 )
　　　　##n = 1
　　　　while( ##n < ##pos - 1 )
　　　　　　#url = #url + #line[##n]　　　　　　
　　　　　　##n = ##n + 1
　　　　endwhile
　　　　#url = #url + part( #line[##n], 0, ##selbottomx )
　　endif
　　if( tolower( part( #url, 0, 7 ) ) != "http://" )
　　　　#mes = "選択範囲は有効なURLではないようです。"
　　　　error #mes
　　endif
　　run "start " + #url
　　if( no )
　　　　#mes = "WEBブラウザの起動に失敗しました。"
　　　　error #mes
　　endif
　　return

＃　インデントが一部崩れてしまっていたので修正しました。(__;)

新規に投稿する