Question

pb 将文本框中的内容保存到本地

pb程序 程序输出的内容已经写到文本框中了 现在要求将文本框中的内容保存到本地指定的路径下，并对该文件进行判断，输出的日志达到规定的大小进行删除。

Answer 1

您好~~

例,文本框 mle_1,保存到 d:\temp.txt

//可以这样写保存代码

long   li_num

string ls_ss

li_num = fileopen('d:\temp.txt',linemode!,write!) 

ls_ss = mle_1.text

filewrite(li_num,ls_ss) 

fileclose(li_num) 

//读取文件 
integer li_FileNum 
string  ls_Emp_Input 
long    ll_FLength 
integer i_num
integer i
li_FileNum = FileOpen("d:\temp.txt", StreamMode!, Read! , LockWrite!, Replace!) 
ll_FLength = FileLength("d:\temp.txt") 
st_1.text = string(ll_FLength)
i_num = ceiling(ll_FLength / 32765)
for i = 1 to i_num
   FileRead(li_FileNum, ls_Emp_Input) 
   if i = 1 then 
      mle_1.text  = ls_Emp_Input
   else
      mle_1.text += ls_Emp_Input
   end if
next
FileClose(li_FileNum)

一个小细节，fileread每次操作 32765 个字节， 所以读取超过32765 字节的文件，需要分多次操作，filewrite 也是一样

至于 “并对该文件进行判断，输出的日志达到规定的大小进行删除。”

可以在写之前  FileLength 测试文件大小，然后执行 filedelete 操作

Answer 2

您好~~
例,文本框 mle_1,保存到 d:\temp.txt

//可以这样写保存代码
long li_num
string ls_ss
li_num = fileopen('d:\temp.txt',linemode!,write!)
ls_ss = mle_1.text
filewrite(li_num,ls_ss)
fileclose(li_num)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

//读取文件
integer li_FileNum
string ls_Emp_Input
long ll_FLength
integer i_num
integer i
li_FileNum = FileOpen("d:\temp.txt", StreamMode!, Read! , LockWrite!, Replace!)
ll_FLength = FileLength("d:\temp.txt")
st_1.text = string(ll_FLength)
i_num = ceiling(ll_FLength / 32765)
for i = 1 to i_num
FileRead(li_FileNum, ls_Emp_Input)
if i = 1 then
mle_1.text = ls_Emp_Input
else
mle_1.text += ls_Emp_Input
end if
next
FileClose(li_FileNum)

一个小细节，fileread每次操作 32765 个字节， 所以读取超过32765 字节的文件，需要分多次操作，filewrite 也是一样

至于 “并对该文件进行判断，输出的日志达到规定的大小进行删除。”

可以在写之前 FileLength 测试文件大小，然后执行 filedelete 操作