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

fpck

Member

リストから0を取り除きたい

いつもお世話になっております。
以下のようなリストから0の行を取り除くにはどのようにすれば良いでしょうか。

0
10
2
3
0
4
0

↓

10
2
3
4

Last edited by fpck (2024-02-09 15:01:17)

チポ

Member

Re: リストから0を取り除きたい

書かれた1行が1レコードで、
対象レコードにしたいのなら、検索するだけでは。

Shin

Member

Re: リストから0を取り除きたい

それが、テキスト列なら、
Subatirut ( text ; "¶0¶" ; "¶" )

チポ

Member

Re: リストから0を取り除きたい

テキスト列ならそれじゃすまないでしょう。

01,002
の様なのがないことを条件にして、

Replace ( Substitute ( ¶ & テキスト ; ["¶０" ; "" ] ; [ "¶¶" ; "¶"] ) ; 1 ; 1 ; "" )

こんなのでは。。

Shin

Member

Re: リストから0を取り除きたい

01  001 などがあってもいい式
Let (
[
   c1 = Char ( 1 ) ;
   c2 = Char ( 2 )
] ;
   Subatirut ( c2 & text & c1;[ ¶ ; c1 & c2 ];[ c2 & "0" & c1 ; "" ];[ c1 & c2 ; ¶ ];[ c1 ; "" ];[ c2 ; "" ])
)

himadanee

Guest

Re: リストから0を取り除きたい

つまり両側に改行を付ければいいわけですよね。置換で０を取り除いて、つけた改行を取る。
Let([
t=List(0;10;0;20;"02";"003";100;1;2);
s= Substitute ( ¶ & t & ¶ ; "¶0¶" ; ¶ )
];
Middle(s;2;Length(s)-2)
)

Shin

Member

Re: リストから0を取り除きたい

himadaneeさん、0,0 となった時に、2番目がとれないです（だから#3がダメ）
Substitute ( ¶ & t & ¶ ;[ "¶0¶" ; ¶ ];[ "¶0¶" ; ¶ ])
だとうまくいくかも

Last edited by Shin (2024-02-14 13:25:06)

fpck

Member

Re: リストから0を取り除きたい

みなさんありがとうございます。
#5でうまくいきました。

himadanee

Guest

Re: リストから0を取り除きたい

ああそっか、区切り文字が兼用されるとだめなんですね。

Shin

Member

Re: リストから0を取り除きたい

#7でも、繰り返しが多いとダメですね

himadanee

Guest

Re: リストから0を取り除きたい

これでいいのかな。一旦改行を2倍にして、元に戻す。削除は前後の区切りごと消すことになる。
＃５は前後を別の文字にしているわけですね。それでMiddleを使わずに済んでますね。

Let([
t=List(0;10;0;0;0;0;20;"02";"003";100;1;2);
t= ¶ & t & ¶ ;
s= Substitute ( t ; [ ¶ ; ¶ & ¶ ] ; [ "¶0¶" ; "" ] ; [ ¶ & ¶ ; ¶ ]  )
];
Middle(s;2;Length(s)-2)
)