Ardışık tüm kopyaları sil

Buna benzeyen bir dosyam var.

Move to 230.00
Hold
Hold
Hold
Hold
Hold
Hold
Move to 00.00
Hold 
Hold 
Hold 
Hold 
Hold 
FooBar
Hold 
Spam
Hold

Bunun gibi görünmesini istiyorum:

Move to 230.00
Hold
Move to 00.00
Hold 
FooBar
Hold
Spam
Hold

Eminim vim'in bunu hızlı bir şekilde yapmasının bir yolu olmalı, ama kafamı nasıl yapacağımı tam olarak sayamıyorum. Bu makroların gücünün ötesinde mi ve vimscript'e mi ihtiyaç duyuyor?

Ayrıca, her bir "Muhafaza" bloğuna aynı makroyu uygulamak zorunda kalırsam sorun olmaz. Her ne kadar harika olsa da, tüm dosyayı alan tek bir makro olması gerekmez.

Aşağıdaki komutun çalışması gerektiğini düşünüyorum:

 :%s/^\(.*\)\(\n\1\)\+$/\1/

Açıklama:

Biz değişime bütün dosya üzerinde ikame komutunu kullanın patterniçine string:

:%s/pattern/string/

İşte patternolan ^\(.*\)\(\n\1\)\+$ve stringolduğunu \1.

pattern şu şekilde parçalanabilir:

^\(subpattern1\)\(subpattern2\)\+$

^ve $sırasıyla bir satır başı ve bir satır sonu eşleşir.

\(ve daha sonra özel numarayla başvurabilmemiz \)için kuşatmak için kullanılır . Ayrıca , niceleyici ile 1 veya daha fazla kez tekrarlayabilmemiz için kuşatmak için kullanılırlar .subpattern1\1
subpattern2\+

subpattern1olan .*
.yeni satır hariç herhangi bir karakter eşleşen meta karakterdir ve *son karaktere 0, 1 veya daha fazla kez eşleşen bir miktar belirleyici olduğunu.
Dolayısıyla, .*yeni satır içermeyen herhangi bir metni eşleştirir.

subpattern2olan \n\1
\nyeni bir satır eşleşir ve \1ilk iç eşleşti aynı metinle eşleşen \(, \)burada hangi subpattern1.

Bu patternşekilde şu şekilde okunabilir:
satırın başlangıcı ( ^) ve ardından yeni satır içermeyen herhangi bir metin ( .*) ve ardından yeni satır ( \n), sonra aynı metin ( \1), sonuncusu bir veya daha fazla kez tekrarlanır ( \+) ve nihayet satır sonu ( $) .

Her yerde patterneşleşen (aynı çizgiler bir blok) olup, ikame komutu ile değiştirir stringburada hangi \1(bloğun ilk çizgi).

Dosyanızda hiçbir şeyi değiştirmeden hangi satır bloklarının etkileneceğini görmek istiyorsanız, hlsearchseçeneği etkinleştirebilir nve komutun sonuna ikame bayrağını ekleyebilirsiniz :

:%s/^\(.*\)\(\n\1\)\+$/\1/n

Daha ayrıntılı denetim için, cbunun yerine ikame bayrağını ekleyerek her bir satır bloğunu değiştirmeden önce bir onay isteyebilirsiniz :

:%s/^\(.*\)\(\n\1\)\+$/\1/c

İkame komut okuma hakkında daha fazla bilgi için :help :s,
ikame Bayraklar için :help s_flags,
çeşitli meta ve nicelik okumak için :help pattern-atoms,
ve için vim normal ifadeler okumak bu .

Düzenleme: Joker$ , sonuna bir ekleyerek komuttaki bir sorunu düzeltti pattern.

Ayrıca BloodGain aynı komutun daha kısa ve daha okunabilir bir versiyonuna sahiptir.

Takip etmeyi dene:

:%s;\v^(.*)(\n\1)+$;\1;

Olduğu gibi Saginaw cevabı yerine komutunu: Bu Vim'ın kullanır. Bununla birlikte, okunabilirliği artırmak için birkaç ek özellikten yararlanır:

1. Vim bize ters eğik çizgi dışında herhangi bir alfanümerik olmayan ASCII karakter kullanın (sağlar \ ), çift tırnak ( " () veya boru | (. İşte maç / değiştirme / bayraklar metni bölmek için, ben seçilmiş noktalı virgül) ; ama sen yapabilirsin) Başka birini seç.
2. Vim, normal ifadeler için "sihirli" ayarlar sağlar, böylece karakterler ters eğik çizgi kaçışı yerine özel anlamları için yorumlanır. Bu, ayrıntı düzeyini azaltmak için yararlıdır ve "anmajik" varsayılandan daha tutarlıdır. İle başlayan \v"çok sihirli" vasıtasıyla veya dışında tüm karakterler alfanümerik ( A-z0-9 ) ve alt çizgi ( _ ) özel bir anlamı vardır.

Bileşenlerin anlamı:

tüm dosya için %

s yerine

; yedek dizeye başla

\ v "çok büyü"

^ satır başı

(. *) Herhangi bir karakterin 0 veya daha fazlası (grup 1)

(\ n \ 1) + yeni satırın ardından (grup 1 eşleşme metni), 1 veya daha fazla kez (grup 2)

$ satır sonu (veya bu durumda, sonraki karakterin yeni satır olması gerektiğini düşünün )

; dizeyi değiştirmeye başla

\ 1 grup 1 eşleşme metni

; komutun sonu veya bayrakların başlatılması

Sadece TÜM bitişik özdeş çizgileri kaldırmak Holdistiyorsanız, bunu harici bir filtreyle içinden kolayca yapabilirsiniz vim:

:%!uniq (bir Unix ortamında).

Doğrudan yapmak istiyorsanız vim, aslında çok zor. Bir yol olduğunu düşünüyorum, ancak genel durum için% 100 işlevsel hale getirmek çok zor ve henüz tüm hataları çözmedim.

Ancak, bu özel durum için, yinelenmeyen bir sonraki satırın aynı karakterle başlamadığını görsel olarak görebildiğiniz için şunları kullanabilirsiniz:

:+,./^[^H]/-d

+Mevcut hat sonra çizgi anlamına gelmektedir. . mevcut satırı belirtir. /^[^H]/-(Daha önce çizgi anlamına -H. ile başlamaz sonraki satıra)

Sonra d silinir.

Vim tabanlı bir cevap:

:%s/\(^.*\n\)\1\{1,}/\1

= Her satırı ve ardından en az bir kez aynı satırla değiştirin.

Bir tane daha, Vim 7.4.218 veya üstü varsayıldığında:

function! s:Uniq(line1, line2)
    let cursor = getcurpos()
    let lines = uniq(getline(a:line1, a:line2))
    if setline(a:line1, lines) == 0 && len(lines) <= a:line2 - a:line1
        silent execute (a:line1 + len(lines)) . ',' . a:line2 . 'd _'
    endif
    call setpos('.', cursor)
endfunction

command! -range=% Uniq call <SID>Uniq(<line1>, <line2>)

Yine de bu, diğer çözümlerden daha iyi değildir.

İşte Preben Gulberg ve Piet Delport'un eski bir (2003) vimine (golf) dayanan bir çözüm .

• Kökleri yatıyor %g/^\v(.*)\n\1$/d
• Diğer çözümlerden farklı olarak , bir işlev içine kapsüllenmiştir , bu nedenle arama kaydını veya adsız kaydı değiştirmez.
• Ayrıca, kullanımını basitleştirmek için bir komuta dahil edilmiştir:
  • :Uniq(eşdeğer :%Uniq),
  • :1,Uniq (arabelleğin başlangıcından geçerli satıra kadar),
  • çizgileri görsel olarak seç + vur :Uniq<cr>(vim tarafından genişletildi :'<,'>Uniq)
  • vb ( :h range)

İşte kod:

command! -range=% -nargs=0 Uniq <line1>,<line2>call s:EmuleUniq()

function! s:EmuleUniq() range
  let l1 = a:firstline
  let l2 = a:lastline
  if l1 < l2
    " Note the "-" to avoid spilling over the end of the range
    " Note also the use of ":delete", along with the black hole register "_"
    silent exe l1.','l2.'-g/^\(.*\)\n\1$/d _'

    call histdel('search', -1)          " necessary
    " let @/ = histget('search', -1)    " useless within a function
  endif
endfunction

Not: ilk denemeleri:

" Version1 from: Preben 'Peppe' Guldberg <peppe {at} xs4all {dot} nl>
" silent exe l1 . ',' . (l2 - 1) . 's/^\(.*\)\%(\n\%<' . (l2 + 1)
      " \ . 'l\1$\)\+/\1/e'

" Version from: Piet Delport <pjd {at} 303.za {dot} net>
" silent exe l1.','l2.'g/^\%<'.l2.'l\(.*\)\n\1$/d'