代码如下：int li_filenum,loops,i,j,li_chooseblob tot_b[]long flenstring zdpathli_choose=messagebox("警告","此操作将覆盖当前数据库！是否继续？",exclamation!,okcancel!,2... 展开
代码如下：int li_filenum,loops,i,j,li_chooseblob tot_b[]long flenstring zdpathli_choose=messagebox("警告","此操作将覆盖当前数据库！是否继续？",exclamation!,okcancel!,2)if li_choose=2 then returnend ifhpd_1.position=0hpb_1.visible=truefor j=1 to 1000 hpd_1.position=jnexthpb_1.visible=falsehpd_1.position=0zdpath=string(sle_4.text)if rb_3.checked then li_filenum=fileopen("E:\学习\毕业设计\0681312莫安标毕业设计\"+string(hf_filename),streammode!,read!,lockwrite!) flen=filelength("E:\学习\毕业设计\0681312莫安标毕业设计\"+string(hf_filename)) if flen>32765 then if mod(flen,32765)=0 then loops=flen/32765 else loops=(flen/32765)+1 end if else loops=1end if for i=1 to loops fileread(li_filenum,tot_b[i])nextfileclose(li_filenum)else li_filenum=fileopen(string(zdpath)+string(hf_filename),streammode!,read!,lockwrite!) flen=filelength(string(zdpath)+string(hf_filename)) if flen>32765 then if mod(flen,32765)=0 then loops=flen/32765 else 收起
