初心者のFileMaker pro Q&A (旧掲示板)

kig

Member

空白の除去

はじめまして。
aaa bbb cdefgh ijklm nop
といった文字列があります。

このような文字列の1番目と2番めのスペースを取り除きたい(3番目以降のスペースは取り除かない)のですが、どのようにしたらよいでしょうか?

aaa bbb cdefgh ijklm nop が
aaabbbcdefgh ijklm nop になるようにしたいです。

初歩的な質問で申し訳ございませんが、よろしくお願いいたします。

Hiro

Member

Re: 空白の除去

ループ計算式で１単語づつ連結を精査しながら求める方法。

Let([
   $lst=Substitute(文字列フィールド; [" ";¶]);
   $i=0;
   $res="";
   $fnc=
      "Case($i=ValueCount($lst); $res;
         Let([
            $i=$i+1;
            #itm=GetValue($lst;$i);
            $res=Case($i<4; $res & #itm; $res &Char(32)& #itm)
         ]; Evaluate($fnc))
      )"
];
   Evaluate($fnc)
)

kig

Member

Re: 空白の除去

Hiroさん早速の回答本当にありがとうございます。
試してみたところ希望どおりの動作をしてくれています!

Let関数など使ったことがないので、教えて下さったプログラムを勉強して理解するようにします。
取り急ぎ、深く御礼申しあげます。
たいへんありがとうございます。

kig

Member

Re: 空白の除去

手元にある本を読みながらHiroさんのプログラムを見ていますが、難しくて理解できません。
たいへん申し訳ありませんが、どのような処理をしているのか教えていただくことはできませんか?

Hiro

Member

Re: 空白の除去

ちょうどご近所の スレッド(id=6507) で同じようなループ計算式の説明をしていますので、ご覧なってみてください。

チポ

Member

Re: 空白の除去

もう少し分かりやすい式を

  Replace ( Replace ( テキスト ; Position ( テキスト ; " " ; 1 ; 2 ) ; 1 ; "" ) ; Position ( テキスト ; " " ; 1 ; 1 ) ; 1 ; "" )

2番目と1番目のスペースの位置を求めて、それを消去
しています。

これなら解析もできやすいのでは。

kig

Member

Re: 空白の除去

ありがとうございます。
なんとか理解できました。
今後ともよろしくお願いいたします。