hur.cn - 华软网

 热门搜索

PB中如何导出数据到.txt文件中

  作者:未知    来源:网络    更新时间:2019/1/5
PB中如何导出数据到.txt资料中
------华软网友回答------
生成WORK按钮代码:
constant integer pplayoutblank=12
oleobject ole_object
ole_object=create oleobject

//连接到powerpoint
if ole_object.connecttonewobject(word.application)<>0 then
   messagebox('OLE毛病','OLE没法连接!')
   return
end if

ole_object.visible=true
long ll_colnum,ll_rownum
constant long wdWord9TableBehavior=1
constant long wdAutoFitFixed=0
constant long wdCell=12
string ls_value
//获得数据窗口数据的列数与行数
ll_colnum=long(dw_1.object.datawindow.column.count)
ll_rownum=dw_1.rowcount()+1
ole_object.Documents.Add()
ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range,ll_rownum,ll_colnum)
string ls_colname
integer i,j
for i=1 to ll_colnum
//获得题目头的名字
    ls_colname=dw_1.describe('#'+string(i)+.name)+_t
    ls_value=dw_1.describe(ls_colname+.text)
    ole_object.selection.Typetext(trim(ls_value))
    ole_object.selection.Moveright(wdcell)
next
dw_1.setredraw(false)
ole_object.selection.Moveleft(wdcell)
for i=2 to ll_rownum
    for j=1 to ll_colnum
        dw_1.scrolltorow(i-1)
        dw_1.setcolumn(j)
        ls_value=dw_1.gettext()
        ole_object.selection.Moveright(wdcell)
        ole_object.selection.Typetext(ls_value)
    next
next
dw_1.setredraw(true)
constant long wdFormatDocument=0
//保存新建的文档
ole_object.ActiveDocument.SaveAs(sample.doc,0,false,,true,,false,false,false,false,false)
//断开OLE连接
ole_object.disconnectobject()
destroy ole_object
------华软网友回复------
楼主给分吧
嘿嘿
------华软网友回复------
在试呢
------华软网友回复------
leyueming(乐业明)    
你QQ或MSN是几多,我加你一下吧,有些地方弄不明白,提醒犯错
------华软网友回复------
saveas试试,可能更简单
------华软网友回复------
我MSN是 jamzheng11@hotmail.com 会做的麻烦加我一下,我现在挺晕的
------华软网友回复------
汗!!!!!
那里提醒犯错啊,上面那个代码写在按钮的clicked事件里
那你试下saveas吧
查一下那个函数的用法就好了
------华软网友回复------
leyueming(乐业明)
提醒是这样的……
warning  c0014:undefined variable:word
error    c0031:syntax error
error    c0031:syntax error
warning  c0014:undefined variable:sample
error    c0031:syntax error
------华软网友回复------
我用 
dw_1.saveas("f:\1.txt",Text!,false)
做出来了
顺随告诉我,怎么给你们加分,^!^
------华软网友回复------
给你们加分怎么出这个提醒?................
"只有未结、非0分贴子才能够结贴给分"      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。