これらのいずれかを入れ子にする方法はありますか（Crystal Reports）

Question

1つのフィールドに2つの式を使用する必要があります。誰か私はそれらを組み合わせることができますか？

 
stringvar input := {tbl.col}; 
stringvar output := ''; 
numbervar i; 

input := Trim(input); 

for i := 1 to Length(input) Step 1 do 
if not(input[i] in [Chr(13),Chr(10)]) then 
    output := output + input[i];output; 

if right({tbl.col},1) = "]" then 
    left({tbl.col},instr({tbl.col},"[")-1) 
else 
    {tbl.col}; 

私はこのコードを使用したい場合は、任意の提案は、まずホワイトスペース/改行を削除しますか？ // stringvar配列x：= split（{Police.Narrative}、 "]"）; // numbervar i; // numbervar j：= ubound（x）; // stringvar y：= ""; （// y：= y + trim（extractstring（x [i]、 ""、 "["））+ ";" //もしlen（y）> 2ならば // left（y、len（y）-2）;

Answer 1

空白と改行を削除するためにループを実行する代わりに、置換機能を使用する必要があります。