ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽﾉ茨ｿｽｿｽ 2009/06/05(ｿｽｿｽ) 14:17:28

ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽから数ｿｽlｿｽﾌみゑｿｽｿｽｿｽoｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽﾈにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽじでゑｿｽｿｽｿｽｿｽH

GGGG1234HHHｿｽ@ｿｽｿｽ1234ｿｽﾌゑｿｽ

ｿｽﾇやさ 2009/06/05(ｿｽｿｽ) 15:43:31

ｿｽｿｽｿｽｿｽｿｽﾅとゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
Copy('GGGG1234HHH', 5, 4);ｿｽ@ｿｽﾅ　'1234'ｿｽｿｽｿｽﾆゑｿｽｿｽB

ｿｽWｿｽｿｽｿｽﾖ撰ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽH
'+''-'ｿｽﾍどゑｿｽｿｽｿｽﾌ？
ｿｽOｿｽｿｽｿｽ謫ｪｿｽﾌ場合ｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽｿｽﾌ？
ｿｽQｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽﾍ？
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ鼾ｿｽﾍ？
ｿｽｿｽｿｽｿｽｿｽ_ｿｽﾍ？
ｿｽｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇね。

ｿｽｿｽｿｽｿｽｿｽﾉ都ｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽﾅ搾ｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽﾈ？

Manbon 2009/06/05(ｿｽｿｽ) 16:26:03

ｿｽOｿｽ`ｿｽXｿｽﾜででゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋゑｿｽ

procedure TForm1.Button1Click(Sender: TObject);
var
  iw: Word;
  sa1, sa2: AnsiString;
begin
  sa1 := Edit1.Text;
  sa2 := '';
  for iw := 1 to Length(sa1) do begin
    if (Ord(sa1[iw]) >= 48) and (Ord(sa1[iw]) <= 57) then begin
      sa2 := sa2 + sa1[iw];
    end else begin
      if sa2 <> '' then Break;
    end;
  end;

  showmessage(sa2);
end;

QA 2009/06/05(ｿｽｿｽ) 22:43:14

ｿｽ@0ｿｽ`9 ｿｽﾜでゑｿｽｿｽｿｽｿｽｿｽｿｽ轤ｱｿｽｿｽﾈのゑｿｽBｿｽｿｽｿｽｿｽｿｽかゑｿｽPｿｽｿｽｿｽﾉ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾅゑｿｽｿｽB

ｿｽmｿｽﾎ象包ｿｽｿｽｿｽｿｽｿｽn
ｿｽ@ｿｽｿｽｿｽﾜゑｿｽｿｽﾌ噂ｿｽﾉゑｿｽｿｽｿｽDelphi2005ｿｽﾍ起ｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾆで有ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBDelphi2006ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾌ厄ｿｽｿｽﾍ会ｿｽｿｽｿｽｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽBｿｽﾅ新ｿｽﾅゑｿｽ2009ｿｽﾌ起ｿｽｿｽｿｽｿｽｿｽﾔはどゑｿｽﾈゑｿｽﾌなのゑｿｽｿｽうｿｽHｿｽ@ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽProfessionalｿｽﾅゑｿｽ102900ｿｽ‾ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽﾊ］
2005
2006
2009
102900

//ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ得ゑｿｽiDelphi5ｿｽj
function GetNumberStr(const S: string): string;
var
  i, k, L: Integer;
  P   : PChar;
  Temp: TStringList;
begin
  if S = '' then Exit;
  L := Length(S);
  i := 1;
  try
    P := StrAlloc(1000); //ｿｽKｿｽｿｽ^O^; ｿｽﾜゑｿｽｿｽA1000ｿｽｿｽｿｽﾈ擾ｿｽﾌ撰ｿｽｿｽlｿｽﾍめゑｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽ
    Temp := TStringList.Create;
    repeat
      if S[i] in [#$81..#$9F, #$E0..#$FC] then Inc(i,2)
      else
      begin
        if S[i] in ['0'..'9'] then
        begin
          k := 0;
          repeat
            P[k] := S[i];
            Inc(i);   Inc(k);
          until not (S[i] in ['0'..'9']);
          P[k] := #0;    Temp.Add(String(P));
        end
        else
          Inc(i);
      end;
    until i > L;
    Result := Temp.Text;
  finally
    Temp.Free;
    StrDispose(P);
  end;
end;

KHE00221 2009/06/06(ｿｽy) 12:08:35

ｿｽｿｽｿｽｿｽﾈにゴｿｽ`ｿｽｿｽｿｽSｿｽ`ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽﾅよくｿｽﾈゑｿｽｿｽH

function GetNumber(Text: WideString): String;
var
    I: Integer;
begin
    for I:=0 to Length(Text) -1 do
    begin
      if Text[I] in ['0'..'9'] then Result := Result + Text[I];
    end;
end;

moocho 2009/06/06(ｿｽy) 12:30:04

ｿｽｿｽｿｽｿｽARegExprｿｽﾈどの撰ｿｽｿｽKｿｽ¥ｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ

Edit1.Text := ReplaceRegExpr('[^0-9¥n]|^¥n','abc123efg456','',false);

ｿｽDｿｽDｿｽﾌ鯉ｿｽｿｽｿｽ
Edit1.Text ｿｽｿｽ 123456 ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽsｿｽﾅ奇ｿｽｿｽｿｽｿｽI

ｿｽﾉ茨ｿｽｿｽ 2009/06/08(ｿｽｿｽ) 08:55:30

ｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾉ標ｿｽｿｽｿｽﾖ撰ｿｽｿｽﾅはなゑｿｽｿｽﾌでゑｿｽｿｽﾋ。
ｿｽﾝなゑｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ搾ｿｽｿｽｿｽﾄ趣ｿｽｿｽoｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.