逐行读取得时候,中间有一行出现问题(其他行没问题)。提示“error calling pb system function memroy is not enough!"
工具+系统:pb10+mssql,xp
...全文
8607打赏收藏
filereadEX逐行读取文件时候,出现警告pb调用内部系统函数内存不够。
filereadEX(ll_file,str_marc),第一个参数是文件号(long),第二个参数是string类型。 逐行读取得时候,中间有一行出现问题(其他行没问题)。提示“error calling pb system function memroy is not enough!" 工具+系统:pb10+mssql,xp
00962nam0 2200265 450 00100130000000500170001301000350003010000410006510100130010610200150011910500180013410600060015220000790015821000310023721500250026830600520029333001410034551000280048654000340051460600400054869000120058870100490060070200260064980100210067501200602088020060314151607.0 a7-110-06206-6b精装dCNY390.00 a20060314d2006 em y0chiy0121 ea1 achiceng aCNb110000 aa z 001yy ar1 a彩图世界科技史ACai Tu Shi Jie Ke Ji Shif(英)彼得·惠特菲尔德著g繁奕祖译 a北京c科学普及出版社d2006 a2册(716页)c图d28cm a本书由英国Compendium Publishing Limited授权出版 a本书系统地展现了在人类几千年的历史进程中科技发展的主体脉胳,介绍了各个历史阶段科技创新和发现的代表人物及著名科学家的创新思维和发现过程。1 aHistory of Sciencezeng1 a世界科技史AShi Jie Ke Ji Shi0 a自然科学史AZi Ran Ke Xue Shiy世界 aN091v4 1c(英)a惠特菲尔德AHui Te Fei Er Deb彼得4著 0a繁奕祖AFan Yi Zu4译 0aCNbJGc20060314
IF flen > 32765 THEN
li_FileNum = FileOpen(str_pathname,LineMode!)
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
Bolb[0]= string(loops) //文件所需最大数组数
FOR i = 1 to loops
FileRead(li_FileNum, Bolb[i]) //按行读取
NEXT
ELSE //当文件长度小于32765时,采用 StreamMode
li_FileNum =Fileopen(str_pathname,StreamMode!)
loops = 1
END IF
FileClose(li_FileNum)