'【txtdata.vbs】by.YOS G-spec
'WSHでファイルの保存と読み込みを行うモジュール。
'
'(<job>)
'	<script language="VBScript" src="txtdata.vbs"></script>
'【保存用関数】
'txtsave file[String], data[String]
'txtsave_bool file[String], data[Boolean]
'txtsave_num file[String], data[Number]
'【読込用関数】
'data[String]=txtload(file[String])
'data[Boolean]=txtload_bool(file[String])
'data[Number]=txtload_num(file[String])

sub txtsave(file,data)
	set fso = CreateObject("Scripting.FileSystemObject")
	dim filepath:filepath=fso.BuildPath(Replace(WScript.ScriptFullName,WScript.ScriptName,""),file)
	set stream = fso.OpenTextFile(filepath, 2, True)
	stream.write(data)
	stream.close
	set stream=nothing
end sub
function txtload(file)
	on error resume next
		set fso = CreateObject("Scripting.FileSystemObject")
		dim filepath:filepath=fso.BuildPath(Replace(WScript.ScriptFullName,WScript.ScriptName,""),file)
		set stream = fso.OpenTextFile(filepath, 1)
		dim data:data = stream.readall
		stream.close
		txtload=data
		set stream=nothing
	if err.number <> 0 then
		txtload=""
	end if
	on error goto 0
end function
sub txtsave_bool(file,data)
	txtsave file,cstr(data)
end sub
function txtload_bool(file)
	dim data:data=lcase(txtload(file))
	txtload_bool=not(data="" or data="false")
end function
sub txtsave_num(file,data)
	txtsave file,cstr(data)
end sub
function txtload_num(file)
	txtload_num=cdbl(txtload(file))
end function