PB用数据窗口获取txt文本内容

//文见名和路径名

string is_filename, is_fullname

 int   li_fileid
li_fileid = GetFileOpenName ("Open", is_fullname, is_filename,"txt","Text Files(*.txt),*.txt")
if li_fileid > 0 then
 dw_1.ImportFile(is_fullname）//自定义数据窗口，里面包含一列

else
 messagebox('信息提示','没有指定导入文件!') 
    return  -1 
end if