Dotaz: Vim - smazani vice radku

[tomek]

Dobry den, potreboval bych poradit jak v textu ve vimu vyhledat vsechny radky zacinajici stejnym textem a ty pak - cetne dvou radku nad nimi smazat.

tedy aby z:

123456+

ABA5BAB4AB

B1ABAB3ABA

spatny

BBBBBBBBBB

654321-

AB8AB8AB7B

B1AB1ABA1A

spatny

AAAAAAAAAA

vyhledal a smazal radky s textem spatny+2 radky nad nimi a pak ve vysledku zustalo jen:

123456+

BBBBBBBBBB

654321-

AAAAAAAAAA

Predem dekuji za radu, cely den hledam v manualech a na netu a nevim si rady... tomek

Odpovědi

[Josef Kufner]

Zanči v normálním režimu, na začátku souboru a mačkej:

/^spatny$/
enter
2k3dd

tím jsi smazal první výskyt.

Pro všechny výskyty mačkej:

ggqq/^spatny$/
enter
2k3dd
ESC
:w !grep -e '^spatny$' | wc -l
enter
číslo, které právě vidíš -- nebude vypsáno
@q

[tomek]

Je mozne ve vimu tento postup nejak zahrnout do prikazu ktery by po rourach tento postup vykonal? Ma idea je takova, abych vytvoril skript, ktery vyhleda v textu kod na zaklade ktereho smaze nad sebou (vcetne sebe) bud jednu nebo dve radky, podle pozadovane situce. Vytvorit takovy skript by nemel byt problem, ale myslim ze prave sekvence prikazu pro pohyb v textu (tedy to 2k3dd, dle vyse uvedene rady) neni mozne provest jinde nez v normalnim rezimu vimu... tim padem by to zkolabovalo... Ale treba se pletu. (?)

[Tomáš Honzák]

Coz takhle vylovit ed?

Neco jako

echo "/^spatny
^
^
d
w
q " | ed $filename

[Josef Kufner]

Buď můžeš použít ed a ovládat ho z nějakého scriptu rourou, nebo...

#!/usr/bin/perl

$r1 = '';
$r2 = '';
$buf = 0;

while ($ln = <>) {
	if ($ln =~ /spatny/) {
		$r1 = "";
		$r2 = "";
	} else {
		printf("%s", $r1);
		$r1 = $r2;
		$r2 = $ln;
	}
}
printf("%s", $r1);
printf("%s", $r2);

[tomek]

Jeste musim upresnit, ze konecne reseni bude provozovano v praci pod windows na GVimu, takze s prikazem ed, patrne nemuzu pocitat a jak to je ve windows s perlem to moc netusim (ale pocitam ze bez Bashe se moc nechytnu)... Nevadi, pokud to nejde vyresit samotnym vimem, tak to nechme byt. Kazdopadne dekuji za rady. Pokud by Vas jeste neco napadlo, budu rad za namety. Jeste jenou dik, tomek.

[Václav Bárta]

(viz http://aspn.activestate.com/ASPN/Downloads/ActivePerl/) uměl zatím všechno, co jsem po Perlu na Windows potřeboval...

[Tomáš Honzák]

Jeste musim upresnit, ze konecne reseni bude provozovano v praci pod windows na GVimu

nojo, ale koho to má na abcLINUXU napadnout, žejo

, takze s prikazem ed, patrne nemuzu pocitat a jak to je ve windows s perlem to moc netusim (ale pocitam ze bez Bashe se moc nechytnu)...

Vice nez doporucuju http://www.cygwin.com/ -- bash, ed, cokoliv

[Tom.š Ze.le.in]

:help :normal

[Tom.š Ze.le.in]

:help :normal

[Michal Kubeček]

Místo 2k3dd je jednodušší použít rovnou d2k

[Pavel Kysilka]

%g/\(^.*$<Ctrl+v a pak enter>\)\{2\}^spatny_radek.*$/d

nebo to ctrl+V a pak Enter muze byt jako \n ve zkratce vezmu spatny radek a pridam k nemu dalsi dva radky ^.*$\n .

Zkuste editor vim prakticky II zde na abicku. ozkousejte, ted to pisi z hlavy.

bye gf

[tomek]

Dekuji vsem za rady. Nakonec jsem to - diky vasi pomoci - vyresil prikazem:

%g/spatny1/ :normal 1dk (pro vyhledani a smazani textu "spatny1" + jedna radka nad nim)

a

%g/spatny2/ :normal 2dk (pro vyhledani a smazani textu "spatny2" + dve radky nad nim)

Jeste jednou dik, tomek.