log.vbs

来自「IBM 开发的easy cics通讯相关的源代码」· VBS 代码 · 共 26 行

	set oEc = Wscript.CreateObject("EasyCics.App")

	oEc.BeginWrite
	oEc.SetValue "Key", "My key"

	oEc.RsCreate 2
	oEc.RsAddRow
	oEc.RsSetCol 1, "Col 1"
	oEc.RsSetCol 2, "Col 2"
	oEc.RsSaveRow


	oEc.InitLogFile "d:\mylog.txt"

	oEc.WriteLogFileLine "First line:"
	oEc.LogValue "Key"
	oEc.WriteLogFileLine ""
	oEc.RsOpen
	oEc.RsFetchRow
	oEc.RsLogCol 1
	oEc.WriteLogFile ","
	oEc.RsLogCol 2
	oEc.RsClose

	MsgBox "OK"