请问如何将一个大于32k长度的字符串写入到txt文件中？

[ERIC_HSU]

如题，谢谢！

[AFIC]

pb10以上filewritEX，其他看楼上的

[lzuyh]

学习，pb10增加了好多函数？有没有介绍？

[runsoft]

循环分段写入,是一种好方法,同意一楼

[zjoy]

循环分段写入

[一片云888]

string total_blob,path,exe_name
long ll_filelen,li_loops,li_counter,li_FileNum
ll_filelen =len(total_blob)

//判断需要读多少次,才可以将该文件全部读写成功
//在同一时间内,不可以读写大于32K(32765)的文件
IF ll_filelen > 32765 THEN
IF Mod(ll_filelen,32765) = 0 THEN
li_loops = ll_filelen/32765
ELSE
li_loops = (ll_filelen/32765) + 1
END IF
ELSE
li_loops = 1
END IF



//判断文件是否存在
if FileExists(path+exe_name) then
//存在删除
FileDelete(path+exe_name)

end if

li_FileNum = FileOpen(path+exe_name,StreamMode!, Write!, Shared!, Append!)
mle_1.text=mle_1.text+"~r~n正在写入"+path+exe_name+"...."
if li_loops > 1 then
//循环写文件
FOR li_counter = 1 to li_loops

blob_temp=blobmid(total_blob,32765 * (li_counter - 1) + 1,32765)
//gf_msg(1,"li_counter"+string(li_counter)+"ll_filelen"+string(ll_filelen)+"mdi"+string(32765 * (li_loops - 1)+1))
//
//写入文件
FileWrite(li_FileNum, blob_temp)

NEXT

else
FileWrite(li_FileNum, total_blob)

end if