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

Alex

Member

１レコードを指定桁、カンマで分割する方法

あるフィールドの１レコードが下記のようになっています。

フィールド0 : AA0001,AA0002,AA03,AB01,AB0002,BB0001,BA0001,CC0002

これを20桁区切りで、かつカンマの間の値が途中で割れないようにレコードを分割して、
別に準備した複数フィールド(MAX５フィールド)に格納したいのですが、
方法が分からず、教えて頂くことは可能でしょうか？

つまりフィールド0のレコードをスクリプトで下記にしたいのです。

フィールド1(20桁まで) : AA0001,AA0002,AA03,
フィールド2(20桁まで) : AB01,AB02,BB0001,
フィールド3(20桁まで) : BA0001,CC0002
フィールド4(20桁まで) : (レコード無し)
フィールド5(20桁まで) : (レコード無し)

フィールド0のレコードが長くて、フィールド5までの20桁に入り切らない場合は、
それ以降の分割レコードは必要としません。

宜しくお願い致します。

himadanee

Guest

Re: １レコードを指定桁、カンマで分割する方法

データの最後はカンマがありませんが、それ以外は（フィールド1のように）末尾のカンマまで必要なんですか？
（カンマを付けると21文字の場合どうするか）

そもそも何のために必要な処理なのか？もっと簡便な方法があるかもしれません。
全部のカンマで分割しないってことは、単なる見た目上の処理のような気がしますが。

Shin

Member

Re: １レコードを指定桁、カンマで分割する方法

フィールド1
Let (
    txt = Left ( フィールド0 ; 20 ) ;
    Case (
        Length ( txt ) = 20 ; Left ( txt ; Position ( txt ; "," ; 20 ; -1 ) ) ;
        txt
    )
)

フィールド2
Let (
    txt = Middle ( フィールド0 ; Length ( フィールド1  ) + 1 ; 20 ) ;
    Case (
        Length ( txt ) = 20 ; Left ( txt ; Position ( txt ; "," ; 20 ; -1 ) ) ;
        txt
    )
)

フィールド3
Let (
    txt = Middle ( フィールド0 ; Length ( フィールド1 & フィールド2  ) + 1 ; 20 ) ;
    Case (
        Length ( txt ) = 20 ; Left ( txt ; Position ( txt ; "," ; 20 ; -1 ) ) ;
        txt
    )
)

フィールド4
Let (
    txt = Middle ( フィールド0 ; Length ( フィールド1 & フィールド2 & フィールド3  ) + 1 ; 20 ) ;
    Case (
        Length ( txt ) = 20 ; Left ( txt ; Position ( txt ; "," ; 20 ; -1 ) ) ;
        txt
    )
)

フィールド5
Let (
    txt = Middle ( フィールド0 ; Length ( フィールド1 & フィールド2 & フィールド3 & フィールド4 ) + 1 ; 20 ) ;
    Case (
        Length ( txt ) = 20 ; Left ( txt ; Position ( txt ; "," ; 20 ; -1 ) ) ;
        txt
    )
)
かな。カスタム関数にすると簡単でしょう。
https://www.dropbox.com/s/g94e98n63b2b3 … 2.zip?dl=0

Last edited by Shin (2023-01-01 16:58:46)

Alex

Member

Re: １レコードを指定桁、カンマで分割する方法

himadaneeさん、返信有難うございます。
これは帳票上に反映させて、レコードが存在しているを知りたいというニーズがありまして、
ご指摘の通り、単なる見た目上の処理なのですが、ただの分割ではなくて、
どうしてもカンマで綺麗に分けて欲しいというところで詰まっていました。

Shinさん、本当に有難うございます。
これが望んでいた形です。
Positionの回数の引数は-1を入れることは全く思いもつきませんでした。
大変助かりました。

Shin

Member

Re: １レコードを指定桁、カンマで分割する方法

Left ( txt ; Position ( txt ; "," ; 1 ; PatternCount ( txt ; "," ) ) )
でもいいはずですよ

himadanee

Guest

Re: １レコードを指定桁、カンマで分割する方法

このデータなら、フィールド幅に合わせて自動的にカンマの後ろで改行されますが...

Alex

Member

Re: １レコードを指定桁、カンマで分割する方法

himadaneeさん、

アドバイス有難うございます。
説明不足でしたが、このフィールド1～5のデータは見た目だけなのですが、
社内の帳票だけでなく、現地の帳票にも反映させるために客先の基幹システムにも送っています。
客先システム側に各20桁制限があるため、これまではただ20桁で分割して送っていたのですが、
新たな社内ニーズのカンマで綺麗に分割するところで詰まっていました。