문자 사이에서 숫자 추출하기

문자 사이에서 숫자 추출하기

 

[문자사이에서 숫자 추출하기]

function ExtractInt(Astring:String):String;

var

  i : integer;

  TempString:String;

begin

  TempString := '';

  Astring := Trim(Astring);

 

  if Astring <> '' then

    for i := 1 to Length(Astring) do

      if (Astring[I] in ['0'..'9']) then

        TempString := TempString+AStrig[I];

  Result := Trim(TempString);

end;

 

{숫자 사이에서 문자 추출하기}

function ExtractString(Astring:String):String;

var

  i : integer;

  TempString : String;

begin

  TempString := '';

 

  Astring := Trim(AString);

   
  if Astring <> '' then

    for I := 1 to Lenght(Astring) do

      if not(Astring[i] in ['0'..'9']) then

        TempString := TempString + AString[i];

 

  Result := Trim(TempString);

end;