1,108
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
waterstony 2003-06-13
- 打赏
- 举报
惭愧，第一次用file函数，呵呵
rogery 2003-06-13
- 打赏
- 举报
王小石不愧为高手
汗颜………………
汗颜………………
waterstony 2003-06-13
- 打赏
- 举报
integer li_FileNum
string ls_Bat
long ll_FLength
int li_filereturn
ll_FLength = FileLength("C:\autoexec.001")
li_FileNum = FileOpen("C:\autoexec.001", StreamMode!)
IF ll_FLength < 32767 THEN
FileRead(li_FileNum, ls_Bat)
FileClose(li_FileNum)
ls_Bat = ls_Bat + '~r~nPATH = c:\'//直接加了一个路径，你可以先找到位置，再修改
li_FileNum = FileOpen("C:\autoexec.001", StreamMode!,Write!,LockReadWrite!,Replace!)
li_filereturn = FileWrite(li_FileNum,ls_Bat)
if li_filereturn = -1 then
MessageBox("写入文件失败！","写入文件失败！")
end if
END IF
string ls_Bat
long ll_FLength
int li_filereturn
ll_FLength = FileLength("C:\autoexec.001")
li_FileNum = FileOpen("C:\autoexec.001", StreamMode!)
IF ll_FLength < 32767 THEN
FileRead(li_FileNum, ls_Bat)
FileClose(li_FileNum)
ls_Bat = ls_Bat + '~r~nPATH = c:\'//直接加了一个路径，你可以先找到位置，再修改
li_FileNum = FileOpen("C:\autoexec.001", StreamMode!,Write!,LockReadWrite!,Replace!)
li_filereturn = FileWrite(li_FileNum,ls_Bat)
if li_filereturn = -1 then
MessageBox("写入文件失败！","写入文件失败！")
end if
END IF
YewPu 2003-06-13
- 打赏
- 举报
请再说详细一点吧！
YewPu 2003-06-13
- 打赏
- 举报
王小石，能给出具体的代码吗？
waterstony 2003-06-12
- 打赏
- 举报
可以的，以分号隔开，脚本中用fileread读出来，字符串处理后再filewrite
wangsw 2003-06-12
- 打赏
- 举报
可以的
