'一行マクロ入力＆実行マクロ
'
'
'主な使い道
'1.@@jumpmacro "〜"
'　範囲選択された領域に対して処理を行うマクロの
'　テスト実行
'2.@chardate:@chartime
'　ワンタッチで日付と時刻を入力。
'
'補足
'組み込みプロシジャynを実行するとダイアログで
'実行するかどうか選択できる。
'

proc exec()
	dim file$,dat$
	file$=macrofilename$
	file$=left$(file$,inrstr(file$,"."))
	file$=file$+"dat"
	if dir$(file$)="" then print"一行マクロが存在しません。":end
	@@jumpmacro file$
end proc

proc set()
	dim file$,dat$,flagloop
	file$=macrofilename$
	file$=left$(file$,inrstr(file$,"."))
	file$=file$+"dat"
	if dir$(file$)<>"" then 
		open file$ for input as #1
			lineinput#1,dat$
			lineinput#1,dat$
			lineinput#1,dat$
		close#1
	end if
	stopinputbox TRUE
	do while flagloop=FALSE
	flagloop=TRUE
	dat$=inputbox$("実行するマクロコマンドを入力してください。"+chr$(13)+"ヌル文字を入力した場合は御手軽ダイアログが出ます。",,dat$)
	if dat$="" then
		dim e$[15],tmp
		e$[1]="Cancel"
		e$[2]="現在の日付と時刻を入力"
		e$[3]="特定のマクロを実行"
		e$[4]="特定のマクロを実行(実行するか確認する)"
		tmp=listbox(e$)
		if tmp=2 then dat$="@chardate:@chartime"
		if tmp=3 then dat$="@@jumpmacro ""〜"""
		if tmp=4 then dat$="yn:@@jumpmacro ""〜"""
		flagloop=FALSE
	end if
	loop
	open file$ for output as #1
		print#1,"sub main"
		print#1,"stopinputbox TRUE:@undoblock=TRUE"
		print#1,dat$
		print#1,"@undoblock=FALSE"
		print#1,"end proc"
		print#1,"sub yn"
		if instr(dat$,"""")<>0 then dat$=left$(dat$,instr(dat$,"""")-1)
		print#1,"if msgbox("""+dat$+"""+chr$(13)+""実行しますか?"",MB_YESNO)<>IDYES then end"
		print#1,"end sub"
	close#1
	exec
end proc

proc edit()
	dim file$,dat$
	file$=macrofilename$
	file$=left$(file$,inrstr(file$,"."))
	file$=file$+"dat"
	if dir$(file$)<>"" then 
		call @@openfile(file$)
	else
		print"一行マクロが存在しません。"
	end if
end proc

sub main()
	dim e$[7],ret
	e$[1]="cancel"
	e$[2]="-"
	e$[3]="一行マクロ編集"
	e$[4]="一行マクロをQXで編集"
	e$[5]="-"
	e$[6]="一行マクロ実行"
	ret=popupmenu(e$,0,0)
	if ret=3 then set
	if ret=4 then edit
	if ret=6 then exec
end proc