掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
シート内の漢字、ひらがな、カタカナを一気に削除したい (ID:12167)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これはどうでしょうか？ function ExtractNumbers(const Str:string):string; var i,pini,pend:integer; state:Boolean; // true in numbers begin result := ''; state := false; pini := -1; i := 1; repeat if Str[i] in ['0'..'9'] then begin if state then Inc(i) // in numbers .. else begin state := true; // start numbers pini := i; Inc(i); end; end else begin if state then begin state := false; // exit numbers pend := i-1; result := result + Copy(Str,pini,pend-pini+1); end else if Str[i] in LeadBytes then Inc(i,2) else Inc(i); end; until (i > Length(Str)); if state then begin pend := Length(Str); result := result + Copy(Str,pini,pend-pini+1); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.