last update: Mar. 16 1997

音声をランダムに再生するツール (REXX)

今回も直接書いてしまいます (^_^;) んで, ＨＴＭＬのソースから切り出すなり, 自分の手で打ち込むなりしてください.

/*
  random sound play RNDPLAY.CMD
  copyright(c) ark@dan.wind.ne.jp
*/

arg deffile

if deffile = '' then do
  say 'definition file required'
  exit
end

filenum = 0
do while lines(deffile) = 1
  fname = linein(deffile)
  if length(fname) = 0     then iterate
  if left(fname, 1) = ';'  then iterate
  filenum = filenum + 1
  files.filenum = fname
  files.0 = filenum
end

num = random(1, files.0)

rc = RxFuncAdd('mciRxInit','MCIAPI','mciRxInit')
InitRC = mciRxInit()
MciCmd = 'play' files.num 'wait'
MacRC = mciRxSendString(MciCmd, 'RetSt', '0', '0')
ExitRC = mciRxExit()

別ファイルに再生する音声ファイルを書いておき, 実行時にそのファイルをコマンドラインで指定します. プログラムを実行すると, ファイルに書かれたファイルからランダムに音声ファイルを選んで再生します.
なお, 手ぬき度１００％のため (^_^;) , 途中でエラーになっても一切メッセージを出しませんので, あしからず.

音声指定ファイルの例 ; セミコロンで始まる行はコメントです
c:\Voice\TT22\tt20001a.wav
c:\Voice\TT22\tt30001a.wav
c:\Voice\TT22\tt30003a.wav
c:\Voice\TT22\tt30005a.wav
c:\Voice\Koshiki\ohayou.wav
c:\Voice\Koshiki\ganbatte.wav
c:\Voice\Koshiki\hajime.wav
c:\Voice\Koshiki\konbanwa.wav
c:\Voice\Koshiki\oshigoto.wav