如何去掉字符窜中的非数字字符 ( 积分: 100 )

N

newsun21cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #1

如何去掉字符窜中的非数字字符，例如‘a,1234m’,最终结果应为'1234'

 

N

newsun21cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #2

如何去掉字符窜中的非数字字符，例如‘a,1234m’,最终结果应为'1234'

 

C

cnkf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #3

你自己寫個函數，然後用StringReplace函數替換非數字字符就可以了。

 

4

41426277

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #4

var
i:integer;
s,s1:string;
begin
s:='a,1234m';
s1:='';
for i:=1 to length(s) do
if s in ['0'..'9'] then
s1:=s1+s;
showmessage(s1);
end;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #5

function CutString(cutStr: string):string;
var
i, iPos: integer;
begin
Result := '' ;
if Trim(cutStr) = '' then exit;
for i := 1 to length(cutStr) do
begin
if not (cutStr in ['0'..'9']) then
cutStr := ' ';
end;
Result := StringReplace(cutStr, ' ', '', [rfReplaceAll]);
end;

 

S

sd_z

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #6

逐个字符判断
function DelChar(AStr : string) : string;
var
i : Integer;
begin
for i:=1 to Length(AStr) do
begin
if AStr in ['0'..'9'] then
Result := Result+AStr;
end;
end;

 

N

newsun21cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #7

多人接受答案了。

 

O

old.BB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #8

for i:=0 to length(s) do if s in ['0'..'9'] then vs := vs + s;