盒子论坛 v2.1

现我有aa.txt，里面内容是：
“xxx学生，你的得分如下：
选择题:25
判断题:20
操作题:30”
现在我只要里面的25，20，30放入form上的某一文本框内
该怎么写这段程序呢？

----------------------------------------------
因为笨，所以问！

作者：

zxdcj (月下舞者)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 8:08:03

1楼：

先得到字串(S)长度,然后只要S[8]及以后的
----------------------------------------------
-

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 9:01:46

2楼：

那如果是下面文本文件，我只要里面成绩的分数，该如何是好呢？
（每个文本文件都是这个形式的，能不能直接放入数据库中，如行，又该怎么编程）

[Exam_Info]
考试级别=二级
考生编号=232043040005
考生姓名=俞丹
考生性别=女
考生生日=1988年11月
考生学校=实验中学
考试开始时间=16:31:59
考试结束时间=17:00:19
考试时间=28:25

[Single]
成绩=12
试题编号=(91,92,93,94,95,96,97,98,99,100)
成绩详情=0,0,2,2,0,0,2,2,2,2
标准答案=4,1,1,3,2,2,2,2,4,4
选择答案=3,4,1,3,1,4,2,2,4,4

[RightNo]
成绩=6
试题编号=(46,47,48,49,50)
成绩详情=0,2,2,2,0
标准答案=2,2,2,1,2
选择答案=1,2,2,1,1

[Windows]
试题编号=10
成绩=15
成绩详情=3,3,3,3,3

[Email]
试题编号=10
成绩=13.125
成绩详情=2,2,1,2

[Word]
试题编号=10
成绩=23
成绩详情=6,4,8,5

[PowerPoint]
试题编号=10
成绩=15
成绩详情=3,5,7

[Score]
考试成绩=84.125

----------------------------------------------
因为笨，所以问！

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 10:50:21

3楼：

各位高手，救救我吧！
----------------------------------------------
因为笨，所以问！

作者：

txj2k1 (txj2k1)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 23:01:44

4楼：

读ini文件
----------------------------------------------
-

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 23:05:40

4楼：

这个问题真的这么难吗？
我不信！
----------------------------------------------
因为笨，所以问！

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 23:09:09

5楼：

txj2k1大哥
能不能具体一点
来段程序行不行啊！
----------------------------------------------
因为笨，所以问！

作者：

txj2k1 (txj2k1)	★☆☆☆☆	-
	盒子活跃会员

2004/4/19 23:59:39

6楼：

不知你要读的是一个分数还是全部分数，下面是读 ini 文件的办法
fs:=inifile.Readinteger('RightNo','成绩',0);

----------------------------------------------
-

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/4/20 10:55:26

7楼：

老大，还是不行
----------------------------------------------
因为笨，所以问！

作者：

shaoyy (远洋)	★☆☆☆☆	-
	盒子活跃会员

2004/4/20 11:40:14

8楼：

完全偷懒是不可能的，做一下简的字符分析：

var
  st: TStrings;
  n1, n2, n3, i, p: integer;
begin
  st := TStringList.Create;
  st.LoadFromFile('c:\aa.txt');

  if st.Count >0 then
  begin
    p := pos(':', st[0]);
    if p >0 then
     n1 := strtoint(copy(st[0], p+1, 255));    //第一个值
  end;

  if st.Count >1 then
  begin
    p := pos(':', st[1]);
    if p >0 then
     n2 := strtoint(copy(st[1], p+1, 255));    //第二个值
  end;

  if st.Count >2 then
  begin
    p := pos(':', st[2]);
    if p >0 then
     n3 := strtoint(copy(st[2], p+1, 255));    //第三个值
  end;

  st.Free;
end;
----------------------------------------------
www.acreport.com

信息

登陆以后才能回复