お髭処blog

ドイツのものを中心としたボードゲーム・カードゲームのプレイ記録・感想を中心としたブログです。最新のドイツゲームから、紀元前から伝わるゲーム、旧西ドイツ製のレアゲーム、日本伝統の博打まで幅広くプレイしています。

vimbuffer

These are simple tools for Vim/GVim and Windows command. The Original version for UNIX/OS X is written to Software Design magazine October, 2013 by Daichi GOTO ([twitter:@daichigoto], [twitter:@BSDc_teweet]). Use with cat.exe. vbcat.vbs works like UNIX cat command only with pipe.
Vim/GVimWindows で使うのに役立つシンプルなコマンドです。 Software Design 誌 2013年10月号の特集「Vim至上主義」第2章(後藤大地氏著)で 紹介されている、UNIX/OS X 用のシェルスクリプトエイリアスWindows バッチ ファイルに移植したものです。 cat.exe が必要です。EXE ファイルを持ち込むことができない環境用に vbcat.vbs を 作りました。パイプの機能のみ UNIX の cat コマンドのように動作します。
GitHub に最新版があります。

bf.bat

@echo off
if NOT "%HOME%"=="" (
REM Windows XP
cat >"%HOME%\vimfiles\bf"
) else if NOT "%HOMEPATH%"=="" (
REM Windows 7/8
cat >"%HOMEPATH%\vimfiles\bf"
) else (
echo bf.bat error
)

bfcat.bat

@echo off
if NOT "%HOME%"=="" (
REM Windows XP
type "%HOME%\vimfiles\bf"
) else if NOT "%HOMEPATH%"=="" (
REM Windows 7/8
type "%HOMEPATH%\vimfiles\bf"
) else (
echo bfcat.bat error
)

_vimrc

imap <C-b> <ESC>:read ~/vimfiles/bf<CR>i
nmap <C-b> :read ~/vimfiles/bf<CR>
vmap <C-b> :w!~/vimfiles/bf<CR>

vbcat.vbs

Option Explicit

Dim strScriptHost

strScriptHost = LCase(Wscript.FullName) 

If Right(strScriptHost, 11) <> "cscript.exe" Then 
	WScript.Echo "Use with CScript.exe." & vbNewLine _
			& vbNewLine _
			& "Usage:" & vbNewLine _
			& "> cscript //NoLogo " & WScript.ScriptName
	WScript.Quit
End If

Dim StdIn, StdOut
Dim str

Set StdIn = WScript.StdIn
Set StdOut = WScript.StdOut

Do While Not StdIn.AtEndOfStream
     str = StdIn.ReadLine
     StdOut.WriteLine str
Loop

このブログの関連記事

Software Design (ソフトウェア デザイン) 2013年 10月号 [雑誌]

Software Design (ソフトウェア デザイン) 2013年 10月号 [雑誌]

  • 作者:
  • 出版社/メーカー: 技術評論社
  • 発売日: 2013/09/18
  • メディア: 雑誌
Software Design 総集編 【1990~2000】 Software Design 総集編 【2001~2012】 Software Design (ソフトウェア デザイン) 2013年 11月号 [雑誌]