計算フィールドを2個作ります。
1個目 [txt]を
While (
[
t0 = txt ;
t1 = "0123456789" ;
t9 = ¶ ;
i = Length ( t0 )
] ;
i ;
[
ti = Middle ( t0 ; i ; 1 ) ;
t0 = Replace ( t0 ; i ; 1 ; Case ( Filter ( ti ; t1 ) = ti ; ti ; t9 ) ) ;
i = i - 1
] ;
t0
)
として、半角の数字のみを改行区切りで抽出しておき、2個目に
While (
[
t0 = txt0 ;
i = ValueCount ( t0 ) ;
t9 = ""
] ;
i ;
[
t1 = GetValue ( t0 ; i ) ;
t9 = List ( t9 ; Case ( Length ( t1 ) = 9 ; t1 ) ) ;
i = i - 1
] ;
t9
)
とすれば求められます。
1こにまとめてしまうこともできます。