角括弧と文字をクリスタルで削除する

Question

次のテキストを使用して角括弧と角かっこを削除しています。私はメモ欄全体を投げたままにしておく必要があり、括弧とテキストの最初のセットを見つけて削除した後に停止します。

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

任意の提案...

Answer 1

これは、あなたが使用しているバージョンを確認してください、Crystal2008とよくないテストされ、それはまた、不一致ブラケットのペアを処理するためにチェックするいくつかのエラーが必要になりますが、それはのためにいくつかの食品を提供することがあります思考：

 

Dim workString as String 
Dim bracketedText as string 

if (InStr({table.col},"[") > 0) then 
    workString = {table.col} 
    while(InStr(workString,"[") > 0) 
    bracketedText = "[" + ExtractString(workString,"[","]") + "]" 
    workString = replace(workString,bracketedText,"") 
    Wend 
    Formula = workString 
else 
    Formula = {table.col} 
End If