我没钱给了，但这个问题真的很急，请各位帮忙！！！(0分)

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #1

如何判断查找的是汉字呢？比如说有这样一串数据“87623428364 中国外贸公司 927342034”
我想分割数字与汉字，并且计算他们各自的长度。我应该如何写代码？
请帮帮忙真的很急！！！

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #2

widestring

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #3

proceduredo
It(const s: string;
var a, b: Integer);
var
i: Integer;
begin
a:=0;
b:=0;
for i:=1 to Length(s)do
if Ord(s)<128 then
Inc(a)
else

Inc(b)
end;

 

S

siglex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #4

楼上朋友
汉字是两个字节哈16bit哈！应zaielse
后将I加一哈
同时b应加2哈，不是1哈，不过方法是这样的哈，汉字高八位的是以1XXXXXXXX开头哈

 

S

siglex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #5

如果你用CHAR（）判断可能更好

 

飘

飘_风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #6

取长度的函数已经说过了，另外给 你一个截取函数。
function CutStr(Str:string;Len:integer):string;
var
i,j,k:integer;
begin
k:=0;
i:=1;
while i<=length(Str)do
begin
j:=i;
if Str>#128 then
i:=i+2
else
i:=i+1;
k:=k+1;
if k>Len then
begin
Result:=copy(Str,1,j-1);
exit;
end;
end;
end;

 

W

wdlyc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #7

如果是"87623428364 中国外贸公司 927342034"这样格式的
用pos 函数和copy函数分割更简单

 

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #8

接受答案了.