1,075
社区成员
发帖
与我相关
我的任务
分享
li_fileno = FileOpen(as_filename, StreamMode!, Write!, Shared!, Replace!)
ll_fileptr = FileWrite(li_fileno, ablob)
DO WHILE ll_fileptr < len(ablob) AND Len(ablob) > 0
ablob = BlobMid(ablob, ll_fileptr + 1)
ll_fileptr = FileWrite(li_fileno, ablob)
LOOP
FileClose(li_fileno)