如何将多行字符串（每行字符串以多个，分割）导入一张表中（Sybase）(100分)

P

paulchx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #1

如何将多行字符串（每行字符串以多个，分割）导入一张表中（Sybase）
如：1300777 ，3231431 ，增 值 税 ，564.00 ，60.00 ，
1300888 ，3212332 ，增 值 税 ，654.00 ，70.00 ，
1300999 ，3211332 ，增 值 税 ，8997.00 ，800.00 ，

 

Z

zljzyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #2

可以写一个过程，按“，”和回车符进行分隔，每条记录存入一个临时数组。

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #3

先用TStringList读取，再拆分每个数据项。
如果“,”位置固定，可以安位取值，否则判断以下的位置即可。

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #4

>拆分每个数据项。
如果是英文的','，用TStringList的CommaText读取就可以了。（事先要将空格去掉）

 

J

jiawang_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #5

給我你的郵箱。
我有個相似的程序給你發過去。

 

P

paulchx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #6

My Email:chhx@163.net
请jiawang_fu将东东邮来。

 

J

jiawang_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #7

I have sent you.

 

J

jiawang_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #8

How about now?

 

P

paulchx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #9

jiawang_fu:
你邮来东东不能解压，请重新压一下，再发来。
Thank you.

 

L

lyd_2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #10

请试一试下面的
Procedure ManageStr(S:string;var ResultStr: array of string);
var
i,j :integer;
begin
for i:=0 to 20 do ResultStr:='';
j:=0;
for i:=1 to Length(S) do
if S<>'，' then
ResultStr[j]:=ResultStr[j]+Trim(copy(S,i,1))
else
if S[i+1]<>'，' then j:=j+1;
end;

 

J

jiawang_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #11

I have finish sending.

 

P

paulchx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #12

多人接受答案了。