🚀 go-pugleaf

On Mon, 27 Feb 2006 19:09:36 +0100, Googie <no@spam.org> wrote:

> Wojciech Kocjan wrote:
>> Chyba chodziło o \s - czyli "\\sbb\\s" w tym przypadku :)
>
> Tylko że wtedy zamieni " xx " na "bb" = utnie spacje/taby. Poza tym  
> koctyxa napisał że chodzi też o '()', itp. Z tego na ile znam regexpa w  
> Tcl, to nie ma takiego operatora, który spełniałby te wymogi, ale moge  
> się mylić.

No tak, ale może coś tego typu:

proc escapeRegexp {string} {
     set escape "\[\]\{\}\(\)\\.+-*"
     set rc ""
     foreach char [split $string ""] {
         if {[string first $char $escape] >= 0} {
             append rc \\
         }
         append rc $char
     }
     return $rc
}

set from "xx"
set to "bb"
set text "ala ma xx kota xxy xx"

regsub -all "(^|\\s)[escapeRegexp $from](\\s|\$)" $text "\\1${to}\\2"

Jest też inna możliwość.

set word(xx) bb

set rc ""
foreach {- before word after} [regexp -all -inline \
     "(^|\\s)(\\w*?)(\\s|\$)" $text] {
     catch {set word $replace($word)}
     append rc $before $word $after
}

-- 
WK