某政府部门将多个小文件保存到一个word文件里。需求是将这个word文件中的多个小文件拆分,并将小文件保存到数据库中(每条记录保存一个小文件,其基本信息包括:文件名、文件日期、文件内容)。该word文件中的多个小文件是以#分隔的,并且,紧接着#的是文件名、文件日期,然后是文件内容,其格式如下:
#
文件名(回车)
文件日期(回车)
文件内容(多行,word格式,可能有表格和图片)
#
文件名(回车)
文件日期(回车)
文件内容(多行,word格式,可能有表格和图片)
#
...
该word文件中的小文件大概有1000多个,由于数量多,手工将其保存到数据库中很麻烦,如何通过程序将其保存到数据库中?请各位高手帮忙!!小弟这里先谢过了!!
#
文件名(回车)
文件日期(回车)
文件内容(多行,word格式,可能有表格和图片)
#
文件名(回车)
文件日期(回车)
文件内容(多行,word格式,可能有表格和图片)
#
...
该word文件中的小文件大概有1000多个,由于数量多,手工将其保存到数据库中很麻烦,如何通过程序将其保存到数据库中?请各位高手帮忙!!小弟这里先谢过了!!
取得它的 document, 然后,可以放到一个memo
然后,一行一行处理,如 :
for I:=0 to (Memo1.Lines.Count-1) div 4 do
begin
if Memo1.Lines[i*4] = '#' then
begin
Memo1.Lines[i*4 + 1];
... end;
end;