基于PB6和ORACLE8开发“劳动信息管理系统”

量text中fn=fileopen(txtname,streammode!)
　　
　　iffn<>-1then
　　
　　fileread(fn,text)
　　
　　fileclose(fn)
　　
　　//将读入的数据流组合成字符串
　　
　　article=string(text)
　　
　　
　　
　　
　　s=len(article)
　　
　　forv=1tos
　　
　　t=pos(article,char(13)+char(10),v)
　　
　　ift>0then
　　
　　article=replace(article,t,2,"")
　　
　　else
　　
　　endif
　　
　　next
　　
　　mle_1.text=article
　　
　　//将处理后的文件c:\ldxx.txt存盘，文件中的回车换行符已全部去掉
　　
　　text1=blob(article)
　　
　　filname="c:\ldxx.txt"
　

《基于PB6和ORACLE8开发“劳动信息管理系统”(第2页)》