Satırları araya ekleyerek blokları birleştir

Bu satırdan geçmek gibi satırları araya ekleyerek iki metin bloğunu birleştirmenin özel bir yolu var mı:

a1
a2
a3
a4
  b1
  b2
  b3
  b4

Buna:

a1
  b1
a2
  b2
a3
  b3
a4
  b4

birkaç komutla?

EDIT : Sato Katsura'nın çözümünü gerçekten çok seviyorum , işte böyle uyguladım:

function! Interleave()
    " retrieve last selected area position and size
    let start = line(".")
    execute "normal! gvo\<esc>"
    let end = line(".")
    let [start, end] = sort([start, end], "n")
    let size = (end - start + 1) / 2
    " and interleave!
    for i in range(size - 1)
        execute (start + size + i). 'm' .(start + 2 * i)
    endfor
endfunction

" Select your two contiguous, same-sized blocks, and use it to Interleave ;)
vnoremap <pickYourMap> <esc>:call Interleave()<CR>

Bunu yapmanın özel bir yolu yok (bildiğim kadarıyla), ancak evet, birkaç komutla yapılabilir:

function! Interleave(start, end, where)
    if a:start < a:where
        for i in range(0, a:end - a:start)
            execute a:start . 'm' . (a:where + i)
        endfor
    else
        for i in range(a:end - a:start, 0, -1)
            execute a:end . 'm' . (a:where + i)
        endfor
    endif
endfunction

İle çalıştırabilirsiniz :call Interleave(5, 8, 1). İlk parametre ilk satır, ikinci satır son satır ve üçüncü satır nerede taşınacağıdır. Muhtemelen ne yaptığınızı görmek için satır numaralarını açmak istersiniz ( :set number).

Bu blokların örtüşmediğini varsayar. İşlevin nasıl çalıştığını görmek :help :moveve :help range()anlamak.

Muhtemelen iki bloğu almanın daha iyi yolları vardır. İki blok takas etmenize izin verilen bir eklenti var. Eklentinin adını hatırlayamıyorum, ancak yazar (belki de ünlü Dr. Chip?) Bir arayüz bulmaya benden daha fazla düşündürdü. :)

İşte başka bir alternatif:

:g/^a/+4t .
:+,+5d 

Önce 4 satır olan satırları geçerli satırın sonrasına ( :h :t) kopyalayın, ardından ardışık b satırlarını ( :h :d) silin

Daha da iyisi bu komut:

 :g/^a//^\s*b/m .

Yani, her satır için 'b' ile başlayan bir sonraki satırı bulun ve mevcut satırın altına taşıyın.

Makrolar ve işaretlerle biraz eğlenmek istiyorsanız, böyle bir şey deneyebilirsiniz:

• Önce bir işareti (burada koymak aiçeren satırında) a1ilema

• İçeren satıra gidin b1ve ile işaretleyinmb

• İstediğiniz kayıtta (burada kayıt q) bir makro kaydetmeye başlayınqq

• Aşağıdaki makroyu ekleyin: ddmb'apjma'b

• İle makro kaydetmeyi durdur q

• İle gerektiği gibi çok kez çal X@qnerede Xoynamak için zaman sayısıdır.

Makroyu ayrıntılandırmak için:

dd mb 'a p j ma 'b
 |  |  | | |    |
 |  |  | | |    go back to line marked `b`
 |  |  | | |
 |  |  | | move of one line and replace the mark `a`
 |  |  | insert the deleted line under the line marked `a`
 |  |  go to line marked `a`
 |  mark the future line to move with `b`
 delete the line to move

Düzenle Lago-lito'nun yorumlarda belirttiği gibi, bu yöntem işaretlerin ve arabelleklerin üzerine yazacaktır.

• İşaretler için bunun gerçek bir sorun olduğunu düşünmüyorum: Bir arabellekteki 26 işaretin hepsini nadiren kullanıyorum ve bence çoğu zaman 2 ücretsiz işaret bulacak.

• Arabellek için geçici bir değişkene kaydetmek mümkündür: Makroyu :let saveReg=getreg('"')kaydetmeden önce kaydı kaydetmek için kullanın ve eylem tamamlandıktan :call setreg('"', saveReg)sonra kaydı önceki durumuna geri getirmek için kullanın.

Her neyse, bu çözümün sadece hızlı bir çözüm olduğunu ve optimal olmadığını itiraf etmeliyim: Bana göre Christan'ın cevabı en iyisi ve kabul edilmeli çünkü tamponlarla ve işaretlerle uğraşmıyor, kullanıcıyı yaratmaya zorlamıyor bir fonksiyon ve global komutun gücünü gösterir.

Başka bir benzer soru gördüm ve çözüm şunlardan oluşur:

Ortaya bir artı:

Mj

Ve koş:

:,$g/./exe 'm' 2*line('.')-line('$')-1