🚀 go-pugleaf

Miszczu wrote:

> Kombinowalem z regsub, ale jakos nie moglem sobie z nim poradzic,
> prosil bym o niepisanie gotowych procedur, tylko o ewentualnie
> podpowiedzenie w ktorym kierunku mam isc.

Jutro, sam muszę to przetestować (rzadko używam [regsub]).

> Co do likwidowania znak po 
> znaku, to tez nie bardzo sie da, bo nie znam z gory wszystkich
> znacznikow :)

Nie. Robisz pętlę dla każdego znaku, w jeden z 2 sposobów:

for {set i 0} {[string index $string $i] != ""} {incr i} {
    set char [string index $string $i]
    #...
}

lub

foreach char [split $string ""] {
    #....
}

(ten split rozdziela wszystko - co jeden znak)

W takiej pętli robisz switcha, dla przypadków "<", ">" i default.
Następnie używasz zmiennej sterującej 'isTag' dając jej wartości 0 lub
1, w zależności od tego czy pętla jest aktualnie w tagu html czy w
zwykłym tekście (a to wykrywasz po znakach < i >). W default
sprawdzasz wartość 'isTag' i w zależności od tego dodajesz bierzący
znak do stringa końcowego, lub nie.

Mam nadzieję że wyjaśniłem zrozumiale.

-- 
Pozdrawiam (Greetings)!
Googie