去除字符串不是A-Z和a-z与及0-9的字符..

Question

一个string类型的变量a.在调试看到的值是'LB020'#$F5
如何只保留''中间的内容.

Answer 1

自己写段代码就搞定了
用 in ['a'..'z','Z'..'Z', '0'..'9']判断处理即可

Answer 2

function Getstring(aStr: string): string;
var
  i: integer;
  tempstr: string;
begin
  result:='';
  for i:=1 to length(aStr) do begin
    tempstr:=copy(aStr, i, 1);
    if (tempstr in ['0'..'9', 'a'..'z', 'A'..'Z']) then 
      result:=result+tempstr;    
  end;
end;

Answer 3

但是 length(astr) 返回值是0呀。
无法确定长度

Answer 4

调用此函数前试下用此办法去掉控制元:var
 s: string;
begin
 s:=trim('LB020'#$F5);
 s:=copy(s,1,200);
 s:=Getstring(s);
end;

Answer 5

//去掉后面的
procedure GetString(Var AStr:String);
var
 i,L:Integer;
begin
  L:=Length(AStr);
  for i:=L Downto 1 do
    if Ord (AStr[i])>128 then
      Break
    else
      Delete(AStr,i,1);
end;

Answer 6

for i:=1 to length(aStr) do
  if Not (tempstr in ['0'..'9', 'a'..'z', 'A'..'Z']) then 
    Delete(aStr,i,1);

Answer 7

但是 length(astr) 返回值是0呀。怎么会呢,要不然就是你的astr是空值, Getstring(aStr: string) aStr参数没传过来~~~