文档介绍：PB读写TXT文件
可以用读\写ini文件一样的方式,用profilestring()和fileopen()函数来实现.
PB中有这些函数
FileExists ( filename ) 判断文件是否存在
FileRead ( file#, variable ) 读取文件
int filemum
string filedata
filenum = fileopen( 'c:\ ',linemode!,write!)//没有文件的话自动创建
fileread(filenum,filedata)
..
fileclose(filenum)
对我有用[0] 丢个板砖[0] 引用举报管理 TOP 精华推荐:数据窗口有哪些常见问题?使用技巧?
yangxiaowenbing
(xiaobing)
等级:
#4楼得分:0回复于:2004-03-30 13:13:11li_num=fileopen(ls_file,linemode!,write!)
for ll_row=1 to ll_count
filewrite(li_num, "AA ")
next
对我有用[0] 丢个板砖[0] 引用举报管理 TOP 精华推荐:回复:死守pb,死路一条 PB将会带来新的Web开发的狂潮,4GL语言的王者风范唯有PB具备!
yangxiaowenbing
(xiaobing)
等级:
#5楼得分:5回复于:2004-03-30 13:15:33li_num=fileopen(ls_file,linemode!,write!)
for ll_row=1 to ll_count
ls_ss=[ll_row]
filewrite(li_num,ls_ss)
next
fileclose(li_num)
//读取文件
integer li_FileNum
string ls_Emp_Input
long ll_FLength
li_FileNum = FileOpen("e:\", StreamMode!, Read! , LockWrite!, Replace!)
ll_FLength = FileLength("e:\")
IF ll_FLength < 32767 THEN
FileRead(li_FileNum, ls_Emp_Input)
END IF
FileClose(li_FileNum)
//保存到数组
ls_Emp_Input=trim(ls_Emp_Input)
ll_FLength=len(ls_Emp_Input)
string aa[10]
long ll_start,ll_pos,i
ll_start=1
ll_pos=1
i=1
do while ll_FLength>0
ll_pos=pos(ls_Emp_Input,' ',ll_start)
if ll_pos>0 then
aa[i]=mid(ls_Emp_Input,ll_start,ll_pos - ll_start)
i++
ls_Emp_Input=trim(mid(ls_Emp_Input,ll_pos +1))
ll_FLength=len(ls_Emp_Input)
else
aa[i]=ls_Emp_Input
exit
end if
loop
pb函数库之文件操作函数
FileClose()
功能关闭先前用FileOpen()函数打开的文件。
语法FileClose ( fileno )
参数fileno:integer,指定要关闭文件的文件句柄,该句柄使用FileOpen()函数打开文件时得到返回值Integer。函数执行成功时返回1,发生错误时返回-1。如果fileno参数的值为NULL,那么FileClose()函数返回NULL。
--------------------------------------------------------------------------------
FileDelete()
功能删除指定的文件。
语法FileDelete ( filename )
参数filename:string类型,指定要删除文件的文件名,其中可以包含路径返回值Boolean。函数执行成功时返回TRUE,发生错误时返回