txt简单写入

/*
 操作日志
*/
string ls_filepath, ls_content
long ll_filenum

if trim(as_content)='' then return
ls_filepath = GetCurrentDirectory()+"\winsock.log"
ll_filenum = FileOpen(ls_filepath, streammode!, write!, shared!, append!)

ls_content = string(today(),'yyyy-mm-dd') + ' ' + string(now(),'hh:mm:ss') + '~r~n~t' + trim(as_content) + '~r~n'

filewrite(ll_filenum, trim(ls_content))
fileclose(ll_filenum)