请问如何提取文本里的数值并附值给变量？

Question

请问如何从这个文本文件中提取”李强“、”18“、”98“、”85“、”66“ 、”78“、”王府井大厦23号“.....这些数据附值给相应的变量?
A0079.TXT里的内容如下：
【基本情况】
姓名      ：李强       年龄        ：16
家庭住址    ：华兴正街5号        
家庭成员（人数）      ：4   【评语】
    她是某学习辅导班学习成绩优秀的学生，对很多事情感兴趣，好奇心很强，讲话
以及态度等有礼貌而且诚恳。每天都孜孜不倦地学习，即使感冒发烧也不休息，坚持
学习，有一种把事情作完的坚强意志。（学习辅导班老师评语）
    ◆考试成绩◆
───────┬─────────┬─────────┬─────────
              │2003年12月31日    │2003年06月30日    │2003年03月31日    
 考试类别     ├─────┬───┼─────┬───┼─────┬───
              │成绩      │比例% │成绩      │比例% │成绩      │比例% 
───────┼─────┼───┼─────┼───┼─────┼───
 英语         │  72      │ 56.67│  79      │ 57   │  115     │ 24
 语文         │  98      │ 66.67│  89      │ 62   │  79      │ 34     
 数学         │  68      │ 52.22│  72      │ 58   │  92      │ 28     
───────┴─────┴───┴─────┴───┴─────┴───
【鉴定】
对事物能够采取积极的态度，好强，行动上充满热情。有时有高傲、随心所欲做事情
的一面。灵活，对事物变化的适应快。说话声调抑扬清晰。容易有性急的倾向。

Answer 1

1、先定义一个 type Student
                  name as string
                  ...
               end type
2、pos=instr(filecontent,【基本情况】)-1;pos为每条记录的结束,取得记录长度length
3、CurContent=mid(filecontent,Posstart,length)每条记录
3、cField=split(CurContent,"【")
4、for i=lbound(cField) to ubound(cField)
      select case i
          case 1
          ...
      end select
   next
...

Answer 2

//每个文件的格式都是固定的
要自己根据"│"和"Tab"的规律分析：
───────┬─────────┬─────────┬─────────
              │2003年12月31日    │2003年06月30日    │2003年03月31日    
 考试类别     ├─────┬───┼─────┬───┼─────┬───
              │成绩      │比例% │成绩      │比例% │成绩      │比例% 
───────┼─────┼───┼─────┼───┼─────┼───
 英语         │  72      │ 56.67│  79      │ 57   │  115     │ 24
 语文         │  98      │ 66.67│  89      │ 62   │  79      │ 34     
 数学         │  68      │ 52.22│  72      │ 58   │  92      │ 28     
───────┴─────┴───┴─────┴───┴─────┴───
如"72"的posStart 是5（行）* 37(列)+8
。