PB 如何读取本地TXT文件到多行编辑框中。

将文件以二进制方式存进数据库耐唤。

selectblob data into :lb_filedata

from 表

where filename= '文件贺败名禅亩颤'

using sqlca

if isnull(lb_filedata) then

else

mle_1.text = string(lb_filedata)

end if

//您好，给闹腊竖你个例子

//读取液大d:\temp.txt 加载到listbox:lb_1

integer li_FileNum

string ls_Emp_Input

long ll_re

li_FileNum = FileOpen("局袜d:\temp.txt", linemode!, Read! , LockWrite!, Replace!)

ll_re = FileRead(li_FileNum, ls_Emp_Input)

do while ll_re <>-100

lb_1.additem(ls_Emp_Input+string(ll_re))

ll_re = FileRead(li_FileNum, ls_Emp_Input)

loop

FileClose(li_FileNum)

---