PB导出 txt文件

[jinxiaorong1]

界面上有一个按钮(b_1)，代码中已取得一段文字(str1)，现在想点击按钮，将这段文字转为txt文件，并保存。
我不想用OLE的那种方法，请问有其它方法实现吗？

[gmb_1984]

如果是指定好的路径那就直接用fileopen()和filewrite()就可以了，
但是如果没有指定,就需要用getfilesavename()来得到存储路径。

[talenter]

对[Quote=引用 4 楼 jinxiaorong1 的回复:]
是不是先用GetFileSaveName()得到路径及文件名
再用Fileopen()，然后再用FileWrite()吗？
FileWrite (fileno , variable ) 中參數 variable 是不是我想轉的字符串 str1 ？
[/Quote]

[xiaoyehua]

有！
请参考fileopen，fileread，filewrite这几个函数及其相关说明。记得按F1

[青锋-SS]

long ll_file
ll_file = fileopen("a.txt",LineMode!,Write!)
if ll_file > 0 then
    filewrite(ll_file,str1)
    fielclose(ll_file)
end if

[永生天地]

OK
[Quote=引用 2 楼 sdhylj 的回复:]
C/C++ codelong ll_file
ll_file = fileopen("a.txt",LineMode!,Write!)
if ll_file > 0 then
filewrite(ll_file,str1)
fielclose(ll_file)
end if
[/Quote]

[jinxiaorong1]

是不是先用GetFileSaveName()得到路径及文件名
再用Fileopen()，然后再用FileWrite()吗？
FileWrite (fileno , variable ) 中參數 variable 是不是我想轉的字符串 str1 ？

[jinxiaorong1]

[Quote=引用 2 楼 sdhylj 的回复:]
C/C++ codelong ll_file
ll_file = fileopen("a.txt",LineMode!,Write!)
if ll_file > 0 then
filewrite(ll_file,str1)
fileclose(ll_file)
end if
[/Quote]

這樣可以了，太感謝啦!!

[jinxiaorong1]

不好意思，分數太少了。。。