如何将文本本件转成mdb数据库？

Question

文本格式如下：
Number : 1 
Title :象蚂蚁一样
Author :李明
Issue : 总第 11期
Provenance :江西
Date :2009.7.6
Nation :中国
Translator :
　　一个人从未坐过飞机。。能否做成包含Number、Title、Author、Issue、Provenance、Date、Nation、Translator等字段的mdb数据库。当然做成SQL数据库也行。最好有代码，谢谢了！

Answer 1

每段格式都一样。包含Number、Title、Author、Issue、Provenance、Date、Nation、Translator

Answer 2

Number : 1 
Title :象蚂蚁一样
Author :
Issue : 总第 11期
Provenance :
Date :
Nation :
Translator :
　　一个人从未坐过飞机。当他坐到飞机里的时候，面孔吓得发白。听到发动机的响声，他紧紧抓住椅子的扶手，闭上眼睛。五分钟时间，他好象过了一个世纪。听不到任何声音后，他才慢慢睁开眼睛，大胆地从窗口向外了望。
　　“真了不起，”他向邻座说，“飞得这样高！您看，这些人全象蚂蚁一样。”
　　“我只能告诉你，”邻座冷冷地说，“这些都是真蚂蚁。飞机还没有起飞呢！”

Number : 2 
Title :太不公平
Author :
Issue : 总第 11期
Provenance :
Date :
Nation :
Translator :
　　有个懒汉，什么事都不肯干，因此，谁都不愿意要他。时间一长，生活过不下去了，只好求别人替他介绍一个最轻松的工作。
　　这人考虑了一下，说：“那你就去看坟地吧！说实在的，没有比这更轻快的了。”
　　懒汉愉快地去了。但没过多久就跑回来，并愤愤不平地说：“我不干了！”
　　“为什么？”
　　“这活儿太不公平了。他们都躺着，却让我一个人站着！”

Number : 3 
Title :天伦四章
Author :Jim Bishop
Issue : 总第 11期
Provenance :
Date :
Nation :美国
Translator :
　　        母子的梦想
　　我母亲和我都是耽于梦想的人。我们常常坐在海滩上，把脚趾插进沉重而潮湿的沙里，看又大又慢有绿有白的碎浪滚滚而来，脑子里尽在遐想。当时我10岁，母亲34岁。我想的是海边有幢房子。母亲想的是钻石耳环。
　　母亲是矮身材，那时胖胖的。容貌端庄秀美，鼻梁笔直，鼻尖微翘。头发古铜色，光可鉴人。我黑发细眼，长的矮，矮到比不上弟弟约翰。我们常常坐下来梦想，一面看约翰和小妹妹阿黛在海滩上赛跑。
　　我梦想的是在防波堤后面有一幢华厦。可以坐在大门口看邮船“艨艟”号、“贝伦加利亚”号、“奥林匹克”号在海上行驶，船上满载逍遥自在、有说有笑的阔客。我憧憬家里仆从如云，他们手托银盘，以巧克力、猪腰糖、冰淇淋侍候我们。
　　母亲并不知道怎样放胆做大梦。她想的是一副每只大约有半克拉钻石的小耳环。耳朵早给外婆穿了孔，她告诉我，有了耳环绝不会丢掉。

Answer 3

玩字符串截取，然后一部分一部分的Append到你的数据库里。

Answer 4

Str:=TstringList.creat;
Str.add('Number : 1')
Asou:=Pchar(Str);
ExtractStrings([':'],[],Asou,Str);
//Str.Strings[0]='Number'
//Str.Strings[1]='1'

Answer 5

呵呵，ExtractStrings是个神奇的函数，但是还是少用比较好。
另，昏倒的话题。
基础的东西，我比较吐血。
你可以看一下
1、TStringList的用法，读取文本，得到一行行内容。
2、Pos，Copy 函数的用法。将那一行行内容拆成你要的结构。
3、数据库是delphi的强项，如果连这个都要说，……你还是找个谁帮你写一下得了。+ Debug 最多不会超过1小时的代码，应该会有人肯的。

Answer 6

是不是只有Translator : 后面的内容有回车？

Answer 7

研究了一天终于有点眉目，但用TStringList还有两个问题：
1、‘Issue : 总第 11期’，第字后面由于有空格，导致11期取不到；
2、Translator 下面是文章的正文，也取不到；请教如何修改，下面是我写的编码：
--------------------------------------
strs:=tstringlist.Create;
  if opendialog1.Execute then
   begin
    if fname='' then
     begin
      fname:=opendialog1.FileName;
     end;
    dbpath:=extractfiledir(fname);
    sname:=copy(opendialog1.FileName,1,18);
   end;
  assignfile(f1,opendialog1.FileName);
  reset(f1);
  listbox1.Items.Clear;
  while not Eof(f1) do
  begin
  readln(f1,s);
  strs.DelimitedText:=s;    if strs[0]='Number' then
        number:=strs[1];
    if strs[0]='Title' then
        title:=strs[1];
    if strs[0]='Author' then
        author:=strs[1];
    if strs[0]='Issue' then
        issue:=strs[1];
    if strs[0]='Provenance' then
        provenance:=strs[1];
    if strs[0]='Date' then
        datet:=strs[1];
    if strs[0]='Nation' then
        nation:=strs[1];
    if strs[0]='Translator' then
        translator:=strs[1];
    if strs[0]='Translator' then
     begin
       adoquery1.SQL.Clear;
       adoquery1.SQL.Append('insert into duzhe3  values ('+quotedstr(number)+','+quotedstr(title)+','+quotedstr(author)+','+quotedstr(issue)+','+quotedstr(provenance)+','+quotedstr(datet)+','+quotedstr(nation)+','+quotedstr(translator)+')');
       adoquery1.ExecSQL;
     end;