对文本文件操作，如果根据空格，把相关内容提取出来(50分)

C

cb1997

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-21

• #1

原料名 原料号 原料序号 设定重量(Kg)
膨化豆粕46% 310846 6 50.0
肥乳酸 800500 8 30.0
速美肥（10%） 800241 10 17.5

假如说文本文件像上面一样！
我如何根据空格，来提取里面的内容，导入数据库里呀！

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-21

• #2

readl读取一行，然后extractstrings转出来即可。

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-21

• #3

read一行出来，然后用extractstrings将这一行中的信息解析出来即可。

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-21

• #4

Var
TmTxt :textfile;
tms,tmstr:string[255];
begin
AssignFile(TmTxt,'文本');
While Not Eof(TmTxt) Do
Begin
RadLn(TxtFl,TmS)
TmS:=Trim(TmS);
Repeat
TmPos:=Pos(' ',TmS);
If TmPos<>0 Then
Begin
TmStr:=Copy(TmS,1,TmPos-1);
把TmStr保存到数据库中;
Delete(TmS,1,TmPos);
TmS:=Trim(TmS);
End;
Until TmPos=0;
End;
end;

 

C

cb1997

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-22

• #5

wql:
TmPos:=Pos(' ',TmS);
这句好像不对吧！
TmPos定义成什么类型？

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-22

• #6

tmpos:integer;

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-22

• #7

先声明一个StringList类型的变量MystringList，创建，
把文件一行一行读进来后，赋值给StringListr的变量，再用下面的代码可以很简单的做出来:
MystringList.Delimiter:=' ';
MystringList.DelimitedText:=你读进来的一行东西;

再用一个for循环对MystringList遍历就OK了。
如果不会，就问我要源代码

 

C

cb1997

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-20

• #8

多人接受答案了。