カスタマバーコード (ID:28880)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とえあえず
数字だけ抜き出すのは

var  
  A1 : array[0..9] of String =('0','1','2','3','4','5','6','7','8','9');
  A2 : array[0..9] of WideString =('０','１','２','３','４','５','６','７','８','９');
  A3 : array[0..9] of WideString =('〇','一','二','三','四','五','六','七','八','九');

Memo1.Lines.Add(S1); 移行に追加

S3 := '';
      I := 1;
      while I < Length(S) do
      begin
        K  := 0;
        S2 := S1;
        for J:=0 to 9 do
        begin
          K := AnsiPos(A1[J],S1);
          if K = 1 then
          begin
            S3 := S3 + A1[J];
            S2 := Copy(S1,K+1,Length(S1)-K);
          end
          else
          begin
            K := AnsiPos(A2[J],S1);
            if K = 1 then
            begin
              S3 := S3 + A1[J];
              S2 := Copy(S1,K+2,Length(S1)-K-2);
            end
            else
            begin
              K := AnsiPos(A3[J],S1);
              if K = 1 then
              begin
                S3 := S3 + A1[J];
                S2 := Copy(S1,K+2,Length(S1)-K-2);
              end
              else
              begin
                S2 := Copy(S1,2,Length(S1)-1);
              end;
            end;
          end;
        end;
        S1 := S2;
        Inc(I);
      end;

でS3に入りますが・・・・・・

三重県四日市市楠町北五味塚六の七 八幡ビル九号棟一〇二 三宮様方

でやると

三重県四日市市楠町北五味塚
5100103
六の七 八幡ビル九号棟一〇二 三宮様方
67891023

八幡ビルの ８

三宮様方の ３

も当然はいってしまいます

ここの判断は・・・相当めんどくさそうですが（できるのか？）

←解決時は質問者本人がここをチェックしてください。

戻る