做了一个题库系统，把每个试题内容（含图片，公式等）和难度、区分度、知识点等作为一项写入word中，保存为rtf格式，如何实现这些数据分段保存到数据库呢，急等。。。

Question

做了一个题库系统，把每个试题内容（含图片，公式等）和难度、区分度、知识点等作为一项写入word中，保存为rtf格式，如何实现这些数据分段保存到数据库呢，最好源码.急等... ...
邮箱：[email protected]如下所示文件： ！！！！！（部分字段有可能包含图片、公式等元素）
【导入编码】 100
【题类】 1
【试题类型】2
【知识点】111133
【难度】2
【区分度】3
【认知分类】3
【考试要求】暂无要求
【关键词】钢材
【试题正文】建筑石膏在硬化过程中，体积产生（    ）。  
【A】收缩 
【B】膨胀
【C】不收缩也不膨胀
【D】先膨胀后收缩
【E】
【答案】B
【答案解析】建筑石膏硬化后体积微膨胀（约1%）。硬化物外形饱满，不出现裂纹。所以答案B正确。
【评分标准】无
【建议答题时间】0.5
【建议考试得分】2
【出题人】张三
【出题日期】2007-01-02

Answer 1

如果文档规范的话直接读DOC文档，然后根据【】取字段名以及内容

Answer 2

to hsmserver:
  我打算把试题文档保存到 RxRichEdit 中，然后再保存到数据库，所以保存为rtf格式,
  并且在系统里编辑试题也用RxRichEdit 

Answer 3

var
  word,worddoc,wrange:variant;
begin
  word:=createoleobject('word.application');
  worddoc:=word.documents.open('c:\a.rtf',false);
  worddoc.select;
  wrange:=worddoc.Range;
  wrange.Copy;
  RichEdit1.Text:='';
  RichEdit1.PasteFromClipboard;
end;
然后根据RichEdit1里信息用【】分去吧

Answer 4

导入代码我己经有了，呵呵，不过还是谢谢。  
  opdfile.Filter := 'RTF试题文件 (*.rtf)|*.RTF';
  if opdfile.Execute then
  begin
    GbItemPreview.Caption := '导入试题       ' + opdfile.FileName;
    PerformFileOpen(opdfile.FileName);
    ReItem.ReadOnly := ofReadOnly in opdfile.Options;
  end

Answer 5

我也需要这个，楼主能否把源码发份给我，多谢！
[email protected]

Answer 6

使用rxRichEdit的findtext方法循环查找这些关键字即可。