hur.cn - 华软网

 热门搜索

求PB怎么往指定目录下的.txt文件里写字符串?急!谢谢

  作者:未知    来源:网络    更新时间:2019/1/25
见题目!!
------华软网友回答------
This statement sets the keyword Title in section Position of file C:\PROFILE.INI to the string MGR:

SetProfileString("C:\PROFILE.INI", &

        "Position", "Title", "MGR")
------华软网友回复------
:)
多看帮助
------华软网友回复------
我的是.txt呀,不是ini!!
------华软网友回复------
fileopn
filewrite
fileclose
好象有这几个函数。
------华软网友回复------
详细要问问楼主想要什么样的写入,如果只是对配置资料的操作SetProfileString就能够了
不过楼上的几个函数基本能够知足所有的情况了
------华软网友回复------
li_FileNum = FileOpen(ls_FileName,LineMode!, Write!,LockWrite!, Append!)
FileWrite ( 。。)
FileClose ( li_FileNum )
------华软网友回复------
// 显示系统毛病信息并写入犯错日志资料
Long ll_row
Int  li_file_no

ll_row = This.InsertRow (0)

This.SetItem (ll_row,"errornum",String(Error.Number)) //毛病代码
This.SetItem (ll_row,"message" ,Error.Text) //毛病信息
This.SetItem (ll_row,"where"  ,Error.WindowMenu) //窗口/菜单
This.SetItem (ll_row,"object"  ,Error.Object) //犯错控件
This.SetItem (ll_row,"event"   ,Error.ObjectEvent) //犯错事件
This.SetItem (ll_row,"line"    ,String(Error.Line)) //犯错行数

//打开系统毛病日志资料
li_file_no = FileOpen("hherp_error.log",LineMode!,Write!,Shared!,Append!)
If li_file_no = 0 Then
MessageBox("犯错信息","不能打开系统犯错日志资料!",Exclamation!)
Else
If FileWrite(li_file_no, "~r~n" + &
"----------------------------------------------------------------" + &
"~r~n" + &
"~r~n 犯错时间 : " + String(Today(),'yyyy-mm-dd') + " " + String(Now())+ &
"~r~n   操作员 : " + gs_user_name + &
"~r~n 毛病代码 : " + String(Error.Number) + &
"~r~n 毛病信息 : " + Error.Text + &
"~r~n 窗口/菜单: " + Error.WindowMenu + &
"~r~n 犯错控件 : " + Error.Object + &
"~r~n 犯错事件 : " + Error.ObjectEvent + &
"~r~n 犯错行数 : " + String(Error.Line) ) <  0 Then
// MessageBox("犯错信息","写系统犯错日志资料犯错!", Exclamation!)
End If
FileClose(li_file_no) //关闭资料
End If
------华软网友回复------
Int  li_file_no

li_file_no = FileOpen("资料名.txt",LineMode!,Write!,Shared!,Append!)
If li_file_no = 0 Then
   MessageBox("犯错信息","不能打开资料!",Exclamation!)
   return
end if
FileWrite(li_file_no , "写入的信息")
FileClose(li_file_no) //关闭资料


------华软网友回复------
li_FileNum = FileOpen("C:\HR\EMP_DATA.TXT", &
LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum, "New Employees")
------华软网友回复------
很多了.
------华软网友回复------
也能够用dw.SaveAs来产生txt资料      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。