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

yamac

Member

テキストを自動改行したい

はじめまして
テキストフィールドに入力した文字を、計算フィールドに反映させ、一行が、72バイトになるように自動的に改行させる計算式は、ありますでしょうか？

calcer

Guest

Re: テキストを自動改行したい

SJISですか？

qb_dp

Member

Re: テキストを自動改行したい

全角文字を含む場合は、キッチリ、72バイトごとは無理です。

72バイト以下にする場合のスクリプトは、こんな感じ。

変数を設定 [$Val; 値:Substitute ( 自動改行::F1 ; ¶ ; "" )]
変数を設定 [$n; 値:1]
変数を設定 [$MAX; 値:Length ( $Val )]
Loop
Exit Loop If [$n>$MAX]
変数を設定 [$ROW; 値:$ROW & Middle ( $Val ; $n ; 1 )]
変数を設定 [$next; 値:Middle ( $Val ; $n+1 ; 1 )]
変数を設定 [$judge; 値:$ROW & $next]
If [Length ( $judge & Filter ( $judge ; RomanZenkaku ( KanaZenkaku ( $judge ) ) ) ) > 72  or  IsEmpty ( $next )]
変数を設定 [$TEXT; 値:$TEXT & If ( IsEmpty ( $TEXT ); "" ; ¶ ) & $ROW]
変数を設定 [$ROW; 値:""]
End If
変数を設定 [$n; 値:$n+1]
End Loop
フィールド設定 [自動改行::F2; $TEXT]