M write log to text

之前MWrite logs are in the table andgloble里.I haven't tried to write to the log file.According to the help package, there is a write log method.

Find helpFile类

查帮助MHow to get runningOS

Implement the write log method

/// 写日志到文件中
/// w ##Class(LIS.WS.DHCLISServiceBase).WriteLog("I am Zhang Shan")
/// logStr:log string
/// logpath:日志路径,If it is not given, it will be controlled internally
ClassMethod WriteLog(logStr, logpath)
{
    
	s logStr=$g(logStr)
	s logpath=$g(logpath)
	s IsLinux=1
	i ##class(%SYSTEM.Version).GetOS()="Windows" s IsLinux=0
	//默认路径
	i '$l(logpath) d
	.i IsLinux=0 d
	..s logpath="D:\cachelog\"
	.e  d
	..s logpath="/"
	i '$d(^LogFileIndex) s ^LogFileIndex=0
	s index=$g(^LogFileIndex)
	s logName=logpath_"Log"_index_".txt"
	s file=##class(%File).%New(logName)
	//存在就追加
	i ##class(%File).Exists(logName) d
	.Do file.Open("AWS:/SHARED")
	//不存在就新建
	e  d
	.Do file.Open("WSN:/SHARED")
	//日志头
	s HeadStr=$zd($h,8)_" ["_$zt($p($h,",",2))_"] "
	//写日志
	d file.WriteLine($zcvt(HeadStr_logStr,"O","UTF8"))
	//判断大小
	s fileSize=file.Size
	//If the file is too large, replace it
	i fileSize>(1024*1000) d
	.s ^LogFileIndex=^LogFileIndex+1
	d file.Close()
	q ""
}

测试

/// w ##Class(LIS.WS.DHCLISServiceBase).TT()
ClassMethod TT()
{
    
	f i=1:1:100000000 d
	.d ##Class(LIS.WS.DHCLISServiceBase).WriteLog("I am Zhang Shan"_i)
}