删除Crystal中的括号和文本

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