文字と数字を分解するには
解決最近、文字リストの高速化についての質問がありますが
その関連でお願いします
StringListにA〜Zの文字と小数点付数字が不規則に入っています
A1.23B-45.6C1000
X0Y0.005B-789.123
のような感じです。
リストの一行毎の処理の中で
各アルファベットに対する数値データの値を代入したいのですが
var Adress:array[0..26] of String;
SS,S:String; //Sはリスト1行分
i,Item:Byte;
For i := 1 To Length(S) do
begin
SS := copy(S, i,1);
if SS='A' then Item=1 〜 SS='Z' then Item=26
else Item=0;
if Item=0 then Adress[Item]:=Adress[Item]+SS
end;
A:=strtofloat(Adress[1]); 〜
Z:=strtofloat(Adress[26]);
のように、１文字毎に調べて変数に加えていく方法で処理しています。
1行にある文字数は最大でも30程度ですが、行数は数十万になる事もあり
出来れば高速に処理したいので、良い方法をお教えください。
必ず、アルファベットと数値の順序であるのであれば、アルファベットの位置を探して、その間を数値として取得します。
それと、変数ごとに切り分けるのも、TStringList.Valuesで代用し、使用するときにStringList.Values['A']というようにします。
それを、次のようなプロシージャに投げてやれば入ります。
ただし、逆順序です^^;
# LastDelimiterを使用しているため
ざっと作ったので、もう少し高速化の余地はあると思います。
procedure ListFromString(lst: TStringList; Text: String);
const
C_ALPHA = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
i, j: Integer;
ParamName, ParamValue: String;
begin
j := StrLen(PChar(Text));
i := LastDelimiter(C_ALPHA, Text);
while i > 0 do
begin
ParamName := Copy(Text, i, 1);
ParamValue := Copy(Text, i+1, j - i);
Lst.Values[UpperCase(ParamName)] := ParamValue;
Text := Copy(Text, 1, i - 1);
j := StrLen(PChar(Text));
i := LastDelimiter(C_ALPHA, Text);
end;
end;
このデータ構造なら一文字ずつスキャンするのは仕方がないですが、
Takuさんのコードで、
> SS := copy(S, i,1);
とcopyで一文字ずつ切り分けてますが、SS := S[i] とインデックスで
アクセスした方が高速です。
> if SS='A' then Item=1 〜 SS='Z' then Item=26
if で何回もチェックするのも効率が悪いです。
SS をChar型にすれば、case文が使えて高速。
>var Adress:array[0..26] of String;
Adress:array['A'..'Z'] of String;
とインデックスをChar型にして、文字で直接アクセスできるように
すると効率がよさそう。
とういようなことを考慮して、
var
Adress:array['A'..'Z'] of String;
procedure ArrayFromString(S: String);
var
SS, Item: Char;
i, j:integer;
begin
Item := S[1];
{ case Item of 'a'..'z': Item := Chr(Ord(Item)-32); end;}
j := 2;
SS := S[j];
for i := 2 to Length(S) do
begin
SS := S[i];
case SS of
'A'..'Z': begin
Adress[Item] := Copy(S, j, i-j);
Item := SS;
j := i+1;
end;
{ 'a'..'z': begin
Values[Item] := StrToFloat(Copy(S, j, i-j));
Item := Chr(Ord(SS)-32);
j := i+1;}
end;
end;
end;
Adress[Item] := Copy(S, j, Length(S) - j);
end;
※コメントの{}を外すと小文字にも対応。
呼び出すときは、
A := strtofloa(Adress['A']);
とします。
サンプルを作って、
にしのさんの方法と比較してみましたが、9倍ほど高速でした。
データ構造を、工夫すればもっと目に見えて速くすることは
できるんですが。。。
にしのさん、hatenaさん 有難うございます
hatenaさんの方法が今のに近いので、早速に書き換えてみましたが
他の条件があるのを忘れていました
A123A456A789 <- 同じアルファベットが複数ある
/X123 <- / * 等の演算子がある
B123(COMENT) <- 数値があるとは限らない
Aが複数ある場合は今でも別の配列に入れていますので問題ないのですが
先頭に / * 等が含まれると範囲外エラーになったり
A〜Zの後にある場合は数値に代入する際エラーになります
これまでは後の処理で、
for i:=0 to 26 do
if Adress[i]<>'' then xxxxx
の所を
if Adress['A']<>'' then xxxxx; 〜 if Adress['Z']<>'' then xxxxx;
の処理に変更したり、関数計算の後、グラフィック表示したりで全体の高速化には
なりませんが、実際に扱うデータで確実に早くなっているのが確認できました
/ * の問題が解決すれば使えそうなので
array['A'..'Z']で '/' '*' '(' を扱う方法をお願いします
>A123A456A789 <- 同じアルファベットが複数ある
>Aが複数ある場合は今でも別の配列に入れていますので問題ないのですが
配列が複数用意してあるのですか。
>/X123 <- / * 等の演算子がある
演算子が合った場合はどうするのでしょう。
>B123(COMENT) <- 数値があるとは限らない
()の部分はコメントして無視すると言うことでしょうか。
その他、配列に入れた後、どのように利用するかなど、ふくめて細かい仕様が
分からないので、なんなんですが、
'A'..'Z'があったら、それ以降の数値は読み込む。
()の間は、読み飛ばす。
それ以外の文字は読み飛ばすという仕様とすると、下記の例になります。
細かい制御が必要なので、Forで回すのはやめて、Whileで回して、
見通しをよくするためにCase文内はサブルーチンにしました。
procedure ArrayFromString;
var
SS, Item: Char;
i, j:integer;
procedure GetValue;
begin
Item := SS;
inc(i);
SS := S[i];
j := i;
if SS = '-' then Inc(i);
while SS in ['.','0'..'9'] do
begin
Inc(i);
SS := S[i];
end;
Adress[Item] := Copy(S, j + 1, i-j);
end;
procedure SkipComment;
begin
Repeat
inc(i);
SS := S[i];
until (SS = ')') or (SS=#0);
end;
begin
i := 1;
j := 1;
SS := S[1];
while true do
begin
case SS of
#0: begin
Adress[Item] := Copy(S, j, i-j);
Break;
end;
'(': SkipComment;
'A'..'Z': GetValue;
else
Inc(i);
SS := S[i];
end;
end;
end;
上記の訂正です。
> procedure GetValue;
> begin
> Item := SS;
> inc(i);
> SS := S[i];
> j := i;
> if SS = '-' then Inc(i);
上の一行を削除して、下記で置き換えて下さい。
if SS = '-' then
begin
Inc(i);
SS := S[i];
end;
hatenaさま 有難うございます
余分なことを書いてしまったようですが、演算子や括弧は無視できます
初めの所の、Item := S[1]; で先頭に/が有った場合
Adress[Item] := Copy(S, j, i-j); の所でエラーになってしまいます
今回のレスを見て
その前に単純に、Itemを検査する事でエラーは回避できる事に気が付きました。
今回の部分の改善で多少ではありますがスピードアップすることが出来ました
拾った数値は、条件分岐データ（整数）、数値データ（浮動小数点）等が
混同しており、以降で各処理をして行きます。
その部分でも、今回頂いたアドバイスが利用出来そうです
大変参考になりました 有難うございました
| ツイート |  |