请教，怎样读取和修改、创建文本文件中的内容。

[ldf0531]

各位高手，本人想实现一个功能，即用户可以指定SQLSERVER服务器的地址。给用户提供一个菜单，用户可以选择设置服务器IP，根据用户指定的ip更新记录ip的文本文件的内容，然后在连接数据库的时候根据文本文件中的内容连接数据库。（用户不更改ip，则使用用户上次使用时使用的ip或者默认设置的ip）。请教各位高手，怎样在pb中判断文本文件是否存在，怎样建立、打开、修改、读取一个文本文件的内容？望不吝赐教。或者有相似的例子也好，谢谢。

[klbt]

fileexists
fileopen
fileread
filewrite
filewrite
fileclose
......

• 打赏
• 举报

回复 赞

[sxyc24]

用SetProfileString()

• 打赏
• 举报

回复 赞

[jingerandy]

if FileExists("filename") then
messagebox("提示","文件存在")
else
messagebox("提示","文件不存在")
end if
//删除
FileDelete("filename")
//打开文件
integer fn
fn = FileOpen(FOR_STR,LineMode!, Write!, LockWrite!, Append!)
//响文件写入"write_str"
filewrite(fn,"write_str")
//关闭文件
fileclose(fn)
例子:
//gs_apppath为当前路径
if FileExists(gs_apppath+"\舱单\E"+ls_no+"A") then FileDelete(str_sys.gs_apppath+"\舱单\EA")
fn = FileOpen(gs_apppath+"\舱单\EA',LineMode!, Write!, LockWrite!, Append!)
filewrite(fn,'NEWCTEXT,IFC:ZH,CUSTOM;')
fileclose(fn)

• 打赏
• 举报

回复 赞