【结贴】数据类型为二进制流，表现类型为RTF的字段导出EXCEL的问题**

yt_zy

数据类型为二进制流，表现类型为RTF的字段导出EXCEL显示多余的文字，应该如何解决？
例如：{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\lang2052\f0\fs20 JHX0821SSHHP160\fs22\par
}
其实在GRID中显示的只是 JHX0821SSHHP160
说明：版本 3012， 这个JHX0821SSHHP160是通过在字段上点右键－打开－在打开的RTF中输入的

lixy

这个不是多于的文字，是rtf的格式描述字符。rtf表现类型不能自己转成txt格式导出。楼主可以把类型改成文本类型，或者这个字段自己控制导出。看例子。

lixy

1

lixy

2

lixy

3

lixy

资源的表格文档需要重新编辑下，不能直接运行。
看看代码，楼主应该就明白了。这个是针对平台的工作记录导出做的。
其中内容这个字段是rtf的。

yt_zy

PART3下了1％不动了。。。好了，刚下完，看看再说

yt_zy

我看了一下，你们里面好像是把Query1的数据处理到Query2中去是吧，Query1中带有RTX描述字段，你在处理时做了转换，是这样吧？
代码如下：
query1.Execute;
query2.Close;
query2.Open;
DataSetBroker1.dataset.First;
  while not DataSetBroker1.dataset.eof do
  begin
      TBlobFIELD(DataSetBroker1.dataset.FieldbyName('FPostDetail')).SaveToFile('c:\a.rtf');
      RichEdit1.Lines.LoadFromFile('c:\a.rtf');
      RichEdit1.PlainText:=True;
      RichEdit1.Lines.SaveToFile('c:\a.txt');
      memo1.Lines.LoadFromFile('c:\a.txt');
      RichEdit1.PlainText:=false;
      Query2.Append;
      Query2.FieldByName('id').AsString :=DataSetBroker1.dataset.FieldbyName('fid').asstring;
      Query2.FieldByName('nr').AsString:=memo1.Lines.Text;
      memo1.Lines.Clear;
      RichEdit1.Lines.Clear;
      DataSetBroker1.dataset.next;
  end;
  Query2.ApplyUpdates;
  dialogs.ShowMessage('处理完毕!');

lixy

只是处理了rtf的字段，其他的导出的时候，用sql语句关联的。
看打印数据集的sql:
SELECT TBUSINESSDATA.FID, TBUSINESSDATA.FPOSTERNAME, TBUSINESSDATA.FTOPIC, TBUSINESSDATA.FBEGINDATE, TBUSINESSDATA.FENDDATE, GZJLLSB.NR
  FROM TBUSINESSDATA, GZJLLSB
  WHERE TBUSINESSDATA.FID = GZJLLSB.id

yt_zy

嗯。。等我改好过来结贴