Entfernen von Klammern und Text in Crystal

Question

Ich verwende diesen folgenden Text, um Klammern und Text in den Klammern zu löschen; Ich muss das gesamte Memo-Feld werfen und es stoppt, nachdem es den ersten Satz von Klammern und Text gefunden und gelöscht hat.

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

Irgendwelche Vorschläge ...

Answer 1

Das mit Crystal2008 gut getestet, nicht sicher, welche Version Sie verwenden, wäre es auch einige Fehler müssen Überprüfung nicht übereinstimmen Klammernpaare zu handhaben, aber es kann etwas zu essen anbieten für gedacht:

 

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