save不管用？？？

[whlch1212]

我想写菜单file下的save的click的程序：
string docname,named
integer value
long flength
value = GetFileSaveName("选择文件",docname,named)
if value =1 then flength=FileLength(docname)
但是在执行的时候只是可以打开save的界面，而不能进行保存。根本就保存不了
，请问各位这是怎么回事？？？能不能给我提供正确的程序，谢谢！！！解决了一定加分！！

[jlwei888]

GetFileSaveName() 只是显示窗口

int fd
fd = Fileopen(current_file_name,StreamMode!,Write!,LockWrite!,Replace!)
fileWrite (fd,保存文件内容)
fileClose(fd)

[jlwei888]

上面少了一部分代码 ，关健是filewrite()文件写入!
string docname,named
integer value
int fd
long flength
value = GetFileSaveName("选择文件",docname,named)
if value =1 then flength=FileLength(docname)
fd = Fileopen(docname,StreamMode!,Write!,LockWrite!,Replace!)
fileWrite (fd,mle_1.text)\\保存文件内容
fileClose(fd)

[songzj8]

string docname,named
integer value
long flength
value = GetFileSaveName("选择文件",docname,named)
if value =1 then flength=FileLength(docname+"\"+named)
你再试一下

[songzj8]

补充
string docname,named
integer value
long flength
int fd
value = GetFileSaveName("选择文件",docname,named)
if value =1 then flength=FileLength(docname+"\"+named)

fd = Fileopen(docname,StreamMode!,Write!,LockWrite!,Replace!)
fileWrite (fd,mle_1.text)\\保存文件内容
fileClose(fd)

[jlwei888]

楼上竟然和我的一样

另外 dconame 是路径加文件名，已经有文件名了。
flength 只是取得文件大小，用处不大。

[whlch1212]

jlwei888(血仍未冷) ：：：：：
我吧你写的程序写上去，在保存的时候出现了下面的错误：
warning c0014 :undefined variable:mle_1
error c0144:multiple routines named'filewrite'were found that match this set of arguments causing an ambiguous match

我把“filewrite”分开来写“file write”便出现了下面的错误：

error c0001:ILLegal data type:file
我不知道该怎样解决！！！

songzj8(海风) ( ：：：：：：
好像也是不行！！

[songzj8]

不知道你要存什么内容呀

[songzj8]

string docname,named
integer value
long flength
integer fd

value = GetFileSaveName("选择文件",docname,named)
if value =1 then flength=FileLength(docname+"\"+named)

fd = Fileopen(docname+"\"+named,StreamMode!,Write!,LockWrite!,Replace!)
fileWrite (fd,"你要存的内容")\\保存文件内容
fileClose(fd)

[songzj8]

这次一定行

[jlwei888]

fileWrite (fd,mle_1.text)\\保存文件内容

mle_1 只是一个控件，需要替换成你要保存的内容

[whlch1212]

保存的时候是没有出现什么问题，但是问题好事一样的，保存不上呀！！！！
救救我！！！！
我就是简单的建了一个菜单，在file下有new和save两项，new可以用，可是一直都不能保存
怎么办？

[songzj8]

你把new的事件代码发过来

[whlch1212]

file_name="未命名"
win1.title="正在编辑­_"+file_name
win1.mle_1.text=""


在窗口win1上还定义了全局变量和实例变量string file_name="新建文件-未命名"

[wangshenkai]

来.我也来水水....

[lmby]

不好意思，才看到你的消息。

你要保存什么？ 比如你保存'i am which1212'到文件：

二楼的代码就可以了：

string docname,named
integer value
long flength
value = GetFileSaveName("选择文件",docname,named)
if value =1 then flength=FileLength(docname)

integer li_FileNum

li_FileNum = FileOpen( docname, LineMode!, Write!, LockWrite!, append!)//打开文件，后面的枚举变量参见帮助

string ls_content

ls_content = 'i am which1212'

fileWrite( li_fileNum, ls_content )//写文件

fileClose( li_fileNum )//关闭文件

[songzj8]

up
解决了，通知一声呀

[whlch1212]

我要存的是自己在windows窗口建立中的一个多行文本框mle_1的的内容。我建了两项，一项是new
点击他时可以在mle_1中输入一些文本，我要保存的就是就是在此mle_1中输入的文本。
我试了你的程序，他保存的好像就是ls_content = 'i am which1212'中'i am which1212'
不管我在文本框中输入什么，再打开时，它显示的文本都时'i am which1212'.
请在指教！！！！！

[jlwei888]

...
filewrite (li_fileNum, ls_content )
...
如果你要存的是mle_1中的内容，把ls_content 换成mle_1.text
如
filewrite (li_fileNum, mle_1.text )

[lmby]

string ls_content

//ls_content = 'i am which1212'
ls_content = w_name.mle_1.text

fileWrite( li_fileNum, ls_content )//写文件

fileClose( li_fileNum )//关闭文件

[whlch1212]

不好意思！！！！！
我的电脑出了问题才整好，我试了试，真的有效！！！谢谢大家的关心，以后还请多多请教！！！！