PB读写TXT文件

PB读写TXT文件

可以用读\写ini文件一样的方式,用profilestring()和fileopen()函数来实现.

PB中有这些函数

FileExists(filename)判断文件是否存在

FileRead(file#,variable)读取文件

int filemum

string filedata

filenum=fileopen('c:\pb.txt',linemode!,write!)//没有文件的话自动创建

fileread(filenum,filedata)

..

fileclose(filenum)

对我有用[0]丢个板砖[0]引用举报管理TOP精华推荐：数据窗口有哪些常见问题？使用技巧？

yangxiaowenbing

(xiaobing)

等级：

#4楼得分：0回复于：2004-03-3013:13:11li_num=fileopen(ls_file,linemode!,write!) for ll_row=1to ll_count

filewrite(li_num,"AA")

next

对我有用[0]丢个板砖[0]引用举报管理TOP精华推荐：回复:死守pb，死路一条PB将会带来新的Web开发的狂潮，4GL语言的王者风范唯有PB具备！yangxiaowenbing

(xiaobing)

等级：

#5楼得分：5回复于：2004-03-3013:15:33li_num=fileopen(ls_file,linemode!,write!) for ll_row=1to ll_count

ls_ss=dw_1.object.aa[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:\aa.txt",StreamMode!,Read!,LockWrite!, Replace!)

ll_FLength=FileLength("e:\aa.txt")

IF ll_FLength<32767THEN

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>0then

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，发生错误时返回FALSE。如果filename参数的值为NULL，那么FileDelete()函数返回NULL。

--------------------------------------------------------------------------------

FileExists()

功能检查指定的文件是否存在。

语法FileExists(filename)

参数filename：string

类型，指定要检查存在性的文件的文件名，其中可以包含路径返回值Boolean。如果指定文件存在时返回TRUE，不存在时返回FALSE。如果filename参数的值为NULL，那么FileExists()函数返回NULL。用法如果filename参数指定的文件被另一个应用加锁锁住，那么FileExists()函数也将返回FALSE。

--------------------------------------------------------------------------------

FileLength()

功能得到指定文件的长度（以字节为单位）。

语法FileLength(filename)

参数filename：string类型，指定要得到其长度的文件的文件名，其中可以包含路径返回值Long。