Vim6スクリプトお勉強スレ

1 名前：名無しさん＠お腹いっぱい。 [01/12/17 12:15] みんなでスクリプトを覚えよう 466 名前：名無しさん@Vim%Chalice [03/10/19 23:52] script内で/やGでジャンプしてもjumplistに 履歴が残らないようにする方法ってあるのでしょうか？ scriptユーザが<C-I><C-O>でびっくりしないようにしたいのです。 できれば:Explorerがjumplistを汚さないように修正したいな〜と思いまして。 よろしくおながいします 467 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [03/10/20 00:13] >>466 > script内で/やGでジャンプしてもjumplistに /の代わりにsearch()、Gの代わりにexecute linenum使ってみてください。 468 名前：466@Vim%Chalice [03/10/20 00:25] >>467 おお！早速のお返事ありがとうございます。 あと、もとの場所に戻りたいときhjklで何とかしようと思って↓みたいにしてます。 気分はma, `aなんですが。。。 もっとうまい方法は無いでしょうか？ function! s:Mark() "{{{2        jumplistを汚さないMark&Jump     return s:Cons(line('.'), col('.')) endfunction function! s:Jump(marker) "{{{2  jumplistを汚さないMark&Jump     let l:ml = s:Car(a:marker)     let l:mc = s:Car(Cdr(a:marker))     let l:cl = line('.')     if l:ml < l:cl         let l:vmotion = (l:cl - l:ml) . 'k'     elseif         let l:vmotion = (l:ml - l:cl) . 'j'     else         let l:vmotion = ''     end     exe 'norm 0' . l:vmotion . (l:mc-1) . 'l' endfunction 469 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [03/10/20 00:56] >>468 :help cursor() 470 名前：パパパッチ466@Vim%Chalice mailto:sage [03/10/20 01:19] >>467 おおおお！またまたお返事ありがとうございます。一行になりますた。     function! s:Jump(marker) "{{{2  jumplistを汚さないMark&Jump         call cursor(s:Car(a:marker), s:Car(Cdr(a:marker)))     endfunction てゆーか、漏れの真の要求が分かりますた。 scriptの副作用をユーザに与えたくないのです。 具体的には、こいつらを一発で退避・復帰したいな〜と思ってるのです。     :registers     :jumps     :marks     undobuffer undolevels=-1だとバッファが丸ごと消えちゃうから厳しいです。 :reと:marksはスクリプトで出来そうだけど、:juとundobufferは VIM本体に機能を追加するしかないのかな。。。 :juやundobufferについては     call これよりundobufferに追加しない()     "バッファを編集     call これよりundobufferに追加する() みたいな機能でも充分なんだけど。 「よ〜し、パパパッチ当てちゃうぞー」とか思う人、居ません？ ちなみに、漏れは「よ〜し、パパＣ開発環境作っちゃうぞー」レベルだす。 #質問乱発で失礼しました　＞KoRoNさん 471 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [03/10/24 11:45] >>470 > scriptの副作用をユーザに与えたくないのです。 Chaliceとかイロイロ作っている経験から言いますと…「独立したアプリケーション」 じゃなくて「エディタのスクリプト」なんですから、そういうことに神経使う手間と時 間で別の仕事に取り掛かったほうが良いでしょう。 472 名前：名無しさん@Vim%Chalice [03/10/31 01:02] class ●● {     ... }; をfoldingしたい。 何か良い方法はありますか？ 以下試したこと fdm=markerは正規表現使えなさそうだし， # class定義毎に予め {{{ }}} で囲んであればいいけどそんなのはまず有り得ないので fdm=exprはregion指定ができない？(できるのか？) fdm=syntax で syntax region start="^class" end="^};" しようとしたら $VIMRUNTIME/syntax/cpp.vim の keyword cppStructure に含まれる"class"の方が優先度高くて region の方で class が引っかかってくれなかった cppStructure を clear するか、clear 後にcontains付きで再定義すればOKだったが… # containedの場合は、region側で contains=cppStructure が必要 うーむ。一筋縄で行きそうにない… foldtextとか使えば出来るのかなぁ？(使ったことないから分からない…) 473 名前：472@Vim%Chalice mailto:sage [03/10/31 01:03] × clear 後にcontains付き ○ clear 後にcontained付き 474 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/10/31 08:16] おれはそういうのはexprでやった。 www.vim.org/tips/tip.php?tip_id=523 setl foldexpr=FoldBrace()       setl foldmethod=expr               function! FoldBrace()               if getline(v:lnum) =~ '^class .*{$     return '>1'                         endif                                 if getline(v:lnum) =~ '^};$'           return '<1'                         endif                                 return foldlevel(v:lnum-1)       endfunction                         ~                                   475 名前：名無しさん＠お腹いっぱい。 [03/10/31 20:24] 検索をすると、次に起動したときに、その検索語が色づけされます。 これをキャンセルする、または色づけしないようにするにはどうしたらいいですか？ 476 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/10/31 20:47] >>475 pc.2ch.net/test/read.cgi/unix/1058706125/531-533 スレ違い? 477 名前：475 mailto:sage [03/10/31 22:25] >>476 ｱﾘｶﾞﾄﾝ 478 名前：472 mailto:sage [03/10/31 23:37] >>474 �d! vim online に tips があったんだね 479 名前：472 mailto:sage [03/11/04 03:13] >>474 試してみたんですが、returnする時に'<1'表記するとバグりません？ foldlevelが1のまま0に減らないんですよ… '>1'の方は正しく1になっているようですが… これらを'a1'と's1'に変えるとより分かり易く再現されます。 最初のs1の部分で減らないので、2回目にa1が実行される所でfoldlevelが更に増えて2になります。 ですが、2回目のs1の所まで来ると、一気に0まで戻ります。 vimのfold関係のバグかな？ 480 名前：474 mailto:sage [03/11/04 07:55] >>479 最後の return foldlevel(v:lnum-1)       を return '=' にするとうまくいくかも。 helpにはfoldlevel(v:lnum-1)を使えって書いてあるけど、実際には -1にしかならない。 シングルクウォートがぬけてました。 if getline(v:lnum) =~ '^class .*{$' 481 名前：名無しさん＠お腹いっぱい。 mailto:age [03/11/13 21:19] ChangeLogMemoをVimでお手軽に作れるようにとスクリプトに挑戦してみたけど どーもうまくいかん。normalが未定義と言われ無効な表現と怒られる。 :Changelogでmemo.changelogってーファイルを開いて先頭に整形した 日付とかを入れたい。 どこがどう間違ってるか教えて。以下の関数とかは全部_vimrcに記述している。 ttp://apollo.u-gakugei.ac.jp/~yoshiki/clmemo/cltips.php ここのは試したけど動かせなかった。 command! Changelog :call Chlog() function Chlog() execute ":e c:\Program Files\Vim\memo.changelog" execute "normal gg0" map ,d ggi<CR><CR><ESC>kki<C-R>=strftime(\"%c\")<CR> \ nanasisan <nanasi@2ch.net><ESC>o<CR><TAB>* endfunction 482 名前：481 mailto:age [03/11/14 21:13] いろいろ調べてよーやく望む動作ができるようになったぞい 多分とても原始的な方法。ま、せっかく作ったんで書いとくよ。 " ,d : 時刻と署名を先頭に挿入 " ,n : エントリを追加 " どちらもChangeLogMemo用 map ,d ggi<CR><CR><ESC>kki<C-R>=strftime("%Y-%m-%d(%a) %X")<CR> nanashisan <nanashi@3ch.net><ESC>o<CR><TAB>* map ,n ggo<CR><TAB>* " :Changelog : clmemo.changelogファイルを開くコマンド command! Changelog :call Changelog() function Changelog() let clmemo = $VIM . "\\clmemo.changelog" execute ":e " . clmemo let timestamp = getline("$") let now = strftime("%Y-%m-%d") if (timestamp ==? now) execute "normal " . ",n" else execute "normal " . ",d" endif endfunction 483 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/11/27 16:47] viつかいだして２年ぐらいになるし, そろそろスクリプトも書けなあかんなぁと思ってこのスレを読んでみると, 簡単なことでも四苦八苦する様を見てemacsに移行しようかと 思ってしまった. lispは応用効くし. 484 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/11/27 17:13] その程度の動機でemacsに移行できるならしとけ 485 名前：名無しさん＠お腹いっぱい。 [03/12/02 21:58] 機能多すぎてさ。迷っちゃうわけよ。どの編集方法がもっとも最速か？少ないキータッチで実現できるか？ 入力補完を使用した方が早いのか、画面ないの単語まで移動してコピって作成した方が早いのか？ 迷ってるうちにマウスとキーボードでコピってるヤツの方がサクサクッと仕上げちゃってるわけよ。 編集そのものよりいかにエディタを使いこなすか？にずれちゃってるわけよ。ある程度学習すればリターン の方が大きくなるであろうとは思うのだけれど、なかなかその道が見えてこないわけよ。半年以上はｖｉ 使ってると思われるんだけど、いまだにその辺のエディタと対してスピード変わってねーんじゃねー？ っていう疑いをぬぐい切れぬわけよ。 486 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/12/02 22:04] とりあえず、ここはvim6の、それもスクリプトを専門に扱うスレなので ここはスレ違い。 vi 2nd ttp://pc.2ch.net/test/read.cgi/unix/1020611467/ EmacsとViはどっちが★腐れたエディタ★か ttp://pc.2ch.net/test/read.cgi/unix/987839931/ Vim vs Emacs (Editor War) ttp://pc.2ch.net/test/read.cgi/unix/983911547/ 487 名前：名無しさん＠お腹いっぱい。 [03/12/03 13:03] 485 には vi 使いこなす能力がないっつーことだ 488 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/12/08 17:49] 初めて vim スクリプトを勉強するなら、 eval.txt と usr_41.txt のどっちの方を先に 読んだ方がいいですか? 行数が eval は 41 のほうの 3 倍もあるので、どんな感じなのかと。 489 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [03/12/08 18:19] >>488 他のプログラミング言語に慣れているのであれば、リファレンスマニュアルである eval.txtを必要なところだけかいつまんで読み、差分を理解するようにしたほうが近道 です。そうでないならusr_41.txtを読みながら1つ1つ順番に試した方が早く習得できる でしょう。 490 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/12/08 20:42] >>489 eval を斜め読みしてみます。 491 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/07 15:30] このスレとか:help augroupとか色々なスクリプトとか読んでみたんだけど、 未だにaugroupが何の為にあるのか分からない。 これ使うとどんな嬉しい事があるの? 492 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/07 15:38] スクリプトが自分でインスコしたautocmdだけを綺麗に消せる 493 名前：491 mailto:sage [04/02/07 18:52] なるほど、そういう用途の為にあるのか。 教えてくれてどうもありがとう、>>492さん。 494 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/18 09:08] vimスクリプト開発に便利なコマンドってどんなのがありますか? とりあえず :source ってのは使えそうだけど、Emacs の eval-last-sexp みたいな、カーソル行をコマンドとして解釈して 実行、みたいなのがあると便利なんですが。これ自体スクリプトで 書けそうだけど…。 495 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/18 09:21] >>494 yy:<C-R>" 496 名前：493 mailto:sage [04/02/18 11:15] >>495 おおっ、こりゃ便利です!! ありがとうございます。 ストローク数多くなるけど、^y$:<C-R>" でもイケますね。 (行末の ^M を省くため) 497 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/18 11:29] お気軽スクリプト生成コマンドとしてはq:もあるね。 コマンドラインの履歴を編集してそのままスクリプトに出来る。 498 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/18 13:06] ストローク数だけで言うなら Y:<C-R>"<C-H> 499 名前：493 mailto:sage [04/02/19 09:16] >>497 ときどき :q と間違えて q: を押すと出てきてたのはこれだったのか… vi初心者なもので… これで望みどおりのことができそうです。ありがとうございます! 500 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/19 09:55] そう言えば、ストローク数だけで言うなら Yq:P の方が短いな 501 名前：名無しさん＠お腹いっぱい mailto:sage [04/02/20 21:20] 起動したスクリプトのディレクトリを取得しようとしています。 Chalice.vimをみると、 let s:scriptdir = expand('<sfile>:p:h') というのがあったので、 let s:name = 'ScriptDir' if exists("ScriptDir") finish endif command -nargs=0 ScriptDir :call s:ScriptDir() function! s:ScriptDir() let s:scriptdir = '' let s:scriptdir = expand('<sfile>:p:h') echo "This script is here.: \"" . s:scriptdir ."\"" endfunction などというのをでっち上げ、gvimを立ち上げて:ScriptDirしてみたのですが、ホームディレクトリが表示されます。 なんか大きく勘違いしていると思うのですが、どこで勘違いしているのかわかりません。 ご教示いただければ幸甚です。 よろしくお願いいたします。 502 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [04/02/20 21:45] >>501 let s:scriptdir = expand('<sfile>:p:h') command! -nargs=0 ScriptDir :call s:ScriptDir() function! s:ScriptDir()   echo "This script is here.: \"" . s:scriptdir ."\"" endfunction expand('<sfile>:p:h') が評価されるタイミングが問題です。動作だけから判断する と<sfile>はsource中にしか定義されないようなので、source時に確実に評価される ように気をつける必要があります。 503 名前：名無しさん＠お腹いっぱい mailto:sage [04/02/21 01:33] なるほど。ありがとうございます。 思ったような動作をするようになりました。 504 名前：初心者 [04/02/26 07:50] platexをですね､ :platex % なんて打ったら､コンパイルしてくれるわ dvioutを起動してくれるわ なんていうふうにするには どんなスクリプトをかけばよいのですか？ 505 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/02/26 08:15] >>504 ちょっと違うが。 nnoremap <buffer> <c-m> :!platex %<cr>:sil !xdvi %<.dvi >/dev/null 2>&1 &<cr> 506 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/03/03 09:56] IRC (;´Д`)ﾊｧﾊｧ 507 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/03/07 15:29] VimIRC.vim : An IRC client script vim.sourceforge.net/scripts/script.php?script_id=931 508 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/03/08 13:50] だれか #Vim つくって... 509 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/03/08 16:04] >>508 splitしてるでしょ。確かグローバルには#vimがあったはず。 510 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/03/08 21:03] >>508 どこのネットワークだよ。 WIDE系？freenode？2ch？ 511 名前：名無しさん＠お腹いっぱい。 [04/04/17 20:53] age 512 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/11 13:26] >>507 なんもかんがえずにとりあえず立ち上げてみたら、 いきなりsegmentation fault... うーむ。 513 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/11 13:30] >>512 segfはvimのバグじゃねーか? 514 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/16 15:19] nomagicのときに /. と同様にハイライトさせたいのですが let @/='.' とやってもうまくいきません 何か良い方法はありませんか？ 515 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/16 21:13] >>514 よくわからないけど /\. じゃなくて？ let @/='.' でもうまくいくけど、一回検索しないと反転しないね。そゆこと？ 516 名前：514 mailto:sage [04/05/16 23:24] >>515 set nomagicのときlet @/='.'だと全部が反転しませんか？ .と言う文字を反転させたいんです やりたいことはノーマルモードの*と同じようなことを ビジュアルモードで選択した部分のみをやらせたいんです 現状はこんなコードです function! s:vsearch()   if line("'<")!=line("'>")     execute "normal! *"   else     let bkupreg=@@     silent normal gvy     if @@=~'.*\n'       let @@=strpart(@@,0,strlen(@@)-1)     end     if &magic       let @@=escape(@@,'^$.*~[]\')     else       let @@=escape(@@,'^$\')     end     exe "normal /".@@     let @/=@@     exe "normal n"     let @@=bkupreg   end endfunction vmap * :call <sid>vsearch()<cr> >一回検索しないと反転しないね。そゆこと？ それも悩み所です 517 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [04/05/16 23:49] >>516 こんな感じで let @/ = '\V'.escape(@@, '\') 518 名前：514 mailto:sage [04/05/18 22:48] >>517 お礼が遅くなってすみません おかげさまで友人に見せても 文句の出ない(出ても一蹴できる)程度の 物になりました。 519 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/25 23:17] format.vimにenc=utf8でも禁則処理をして欲しいのでこんな感じにしてみた。 begin 644 format.vim.diff.gz M'XL("/%1LT``"V9O<FUA="YV:6TN9&EF9@#-5-NJTT`4?3Z%_L-JD--K2A+M M%2OHHR(^>`1!I*3IM!E))R69E!XY+Y-7+^`7B(CX'7Z*B&^^^`?.9)KT<EJ? M/.!0FLE>:Z\]>\_.;C0:F(71PN7M%5VTPXC.SRX2@L?N)9P.''MH]X>6W%C6 MG7+)-,T=]A[1&7;Z\K<A-O979D#/:O4ZT.]*2;[W'<B=62Y!KH!PS(=:?TS9 ME#`^C@F+*:<K@A$L12-L2F=J4RXU861_,#8^@<OFB3LG1H'1&2ID36,>UXQ" MNJ#5%>4@;@[*>,8K=^DR$FN]3>`F5'##_'<KTSN3"WB:3/!DR6G(XLQZHI"# M;LNVG$TE,YI.(A[&[HJ,"?/"*65SF<)YOL\IYSM@-<NO6BY55)UVD-&ATO9^ M6#B>*-?J-5/V:,,0'R#>0,P@?(C?$&\AWD&\A[@/\0#B.40$P2%6$&N(UQ"! M3N"H6/H1Z2>DGY%^0?H5Z3>DWY'^0/H3Z2^(AQ"/("X@GBD-U5.V=5O69E!T MU<W7!E=7Q[HGEY#M<[U6_V7YCK9:M]]I=0>=HM<VQ>21C#(G/*",U(RV^I)R MC$[7$O/"(+-#7LD6\WP)2><7DO12U1:JNI[O1@Z+:IY?Q[T1;*>O(2`B/(F8 M\EBZ$:_)9TOIM^#4-84$,='R!=GSM:$8%'(S2YBGOBH]-Y`W2W?@M'JV?3"" M;BZYNSJWOQVW"3V3#"R2@-/))2?:P%2#!14$VYDEXXS9M>/LDOTM.2"*JEU, F]=20/&&&9-.U">RQ,^%;6GC7Z>"L)V])JM1/W\`?NMXJ$GL&```M ` end 520 名前：519 mailto:sage [04/05/26 00:34] 訂正。一文字とるなら " multibyte let str = strpart(str, idx) let len = strlen(nr2char(char2nr(str))) return strpart(str, 0, len) のがカッコええか 521 名前：519 mailto:sage [04/05/26 00:38] すまそ " multibyte return nr2char(char2nr(strpart(str, idx))) これでええやん 522 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [04/05/26 01:34] >>519 ありがとうございます。次のファイルをテストしてみてください。 www.kaoriya.net/testdir/patches-vim/format.vim ちなみにスクリプトで単体の文字を扱う技術はChalice等の開発により無茶苦茶発達 してまして   matchstr(getline("."), ".", col(".") - 1) こんな感じでmatchstrを使うのが定石です。近い将来format.vimも全面的に見直さな ければいけませんな。 523 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/26 08:00] >>522 pc5.2ch.net/test/read.cgi/unix/1073825479/755の修正も お願いします。 524 名前：519 mailto:sage [04/05/26 13:20] >>522 バッチリっス。サンクスコ 525 名前：名無しさん＠お腹いっぱい。 [04/05/27 12:30] タブ押したら半角スペースが4つ分になるようにしたい 526 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/27 13:17] >>525 (・∀・)ｶｴﾚ!! 527 名前：525 [04/05/27 14:53] >>526 帰る 528 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/27 15:26] >>527 乙 529 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/28 07:53] >>525 se expandtab tabstop=4 530 名前：525 mailto:sage [04/05/29 04:58] >>529 帰らなくて良かった 531 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 04:40] hoge.texを編集してるときに :!xdvi % & としたら %はhoge.texを指してしまうわけですが、拡張子を除いた(hogeの)部分だけを表すには どうすればよいでしょうか？ 532 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 08:03] >>531 %< 533 名前：531 mailto:sage [04/05/30 13:28] >>532 ありがとうございました。 534 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 16:53] 起動するときにウインドウを希望の位置に希望の大きさで立ち上げたい 535 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 17:25] >>534 :winp[os] {X} {Y} :win[size] {width} {height} 536 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 19:24] >>535 Thx 胃に空いた穴が塞がりそうです 537 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 19:30] オートインデントは一切半角スペースで構成されるものでお願いしたい 538 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 20:56] >>537 誰に言っているのですか? 539 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 21:02] あなたですよ、m9(・∀・)あなた! 540 名前：538 mailto:sage [04/05/30 21:12] 私は半角スペースでインデントしています。 541 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/30 23:25] >>537 :se expandtab 542 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/31 00:26] スクリプトと関係ない話はvim6本スレでよろしこ 543 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/03 22:21] カーソルの下にある文字列の長さを取得する関数を書いてみた。 function! UnderCursorStringLength() let line = getline(".") let cur = col(".")-1 let l = strlen(line) let backward = strpart(line, 0, cur) let forward = strpart(line, cur, l) let b = strlen(matchstr(backward, ".*\""))-1 let e = cur + match(forward, "\"") echo e-b-1 endfunction 544 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/04 00:11] >>543 解説プリーズ 545 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/05 01:18] カレント行をゲット。 カーソルが何桁目がをゲット。 カーソル位置より前と後にわけて、 前の部分の最後の"をbとする。 後の部分の最初の"をeとする。 長さはe-b-1。 複数行にわたってると無理だし、\のエスケープもわからない。 あんまり信用しないでね。 546 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/05 20:51] 僕は、カーソルの下の文字列を取得する関数を書いて let len = strlen(UnderCursorString()) こんな感じのほうが好みかな。 547 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/06 17:41] " の正規表現は \ を考慮して \(\\\@<!\(\\\\\)*\\\)\@<!" でどうか 548 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/06 21:04] 二つほどお聞きしたいのですが 行頭からカーソル位置を含む位置までの文字列を取得したいとき strpart(getline('.'),0,col('.')) としてみたところカーソル位置が日本語だとうまくいきません。 指定した行を削除したいのですが exec lnum.'d _' としたのですがfoldingされている行だとfoldingごと纏めて消えてしまいます。 何か方法はありませんか？ 549 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/06 21:52] function! DelLine(num)   if &foldenable != 0     set nofoldenable     exec a:num.'d _'     set foldenable   else     exec a:num.'d _'   endif endfunction 縺薙ｓ縺ｪ諢溘§�ｼ� 550 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/06 21:54] 化けた・・・ 最後の行は無視してください 551 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/06 22:12] function! GetPart() let lnum = line('.') let cnum = col('.') let line = getline(lnum) let cur_char = matchstr(line, '.', cnum - 1) let part_len = cnum + strlen(cur_char) - 1 return strpart(line, 0, part_len) " 一行で書くと "return strpart(getline('.'),0,col('.')+strlen(matchstr(getline('.'),'.',col('.')-1)) - 1) endfunction これでどうよ 552 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/06 22:51] >>547 解説プリーズ 553 名前：548 mailto:sage [04/06/07 00:12] >>549 >>551 ナルホド、参考になりました。 foldenableなんて知らなかったし matchstrをそんな風に利用するとは思いつきませんでした。 まだまだ、修行不足ですな、精進します。 554 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [04/06/07 00:21] >>547 \によるエスケープを考慮した""文字列にマッチする正規表現は慣用句でして     /"\(\\.\|[^"]\)*" と書くことが多いです。これは、クォーテーションで始まってクォーテーションで終わ る文字列のうち、エスケープされた文字「\\.」、もしくはクォーテーション以外の文 字「[^"]」のみで構成されるもの、という意味になります。 >>548     echo matchstr(getline('.'), '^.*\%'.col('.').'c.') こんな風にひとつのmatchstr()で行うのが速度面から有利です。わかりやすさであれば 551さんの方法が優れています。 555 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/07 01:50] つまりこういうことか！ "エスケープバージョン function! UnderCursorStringLength()   let line = getline(".")   let cur = col(".")-1   let l = strlen(line)   let backward = strpart(line, 0, cur)   let b = matchend(backward, '.*\\\@<!"')   let str = matchstr(line, '\(\\.\|[^"]\)*', b)   echo strlen(str) endfunction 556 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/07 02:09] ちなみに >>547 の意味は直前に奇数個の \ が存在しない " 557 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/07 11:23] >>555 こうだね !   let b = matchend(backward, '.*\(\\\@<!\(\\\\\)*\\\)\@<!"') 558 名前：KoRoN@Vim%Chalice ◆8XALICEsdk mailto:sage [04/06/07 11:49] >>555 カーソルの下にある特定の正規表現にマッチする文字列を取得する方法はChaliceに含 まれるplugin/alice.vimに含まれるAL_matchstr_undercursor()が参考になります。 > function! AL_matchstr_undercursor(mx) >   let column = col('.') >   let mx = '\m\%<'.(column + 1).'c'.a:mx.'\%>'.column.'c' >   return matchstr(getline('.'), mx) > endfunction この/%cを使う方法であれば、正規表現を前半と後半に分けたためにわかりにくくなっ てしまう、ということを回避できます。   let quoted = AL_matchstr_undercursor('"\(\\.\|[^"]\)*"') 559 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/21 22:27] 質問があります。 VIM上でファイル検索>>リスト出力>>選択>>編集 が行えるようなスクリプトなどはあるでしょうか？ winmanager.vim や explorer.vim　では　subディレクトリまで 検索してくれないので困ってます。タスケテ 560 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/22 04:54] よく分かりませんが > VIM上でファイル検索>>リスト出力 :new | read !find ./ -name "*.txt" or :new | read !dir /s /b "*.txt" > 選択  ご自由に > 編集 :execute 'edit! ' . getline('.') 561 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/22 06:26] >>560 ありがとうございます。 winmanagerみたいなToggle型(?)で実装してるスクリプトがあればうれしかったんですが、 ちょっとがんばって組んでみまふ　ﾉｼ 562 名前：561 mailto:sage [04/06/22 10:20] スクリプト書こうと思ってましたが、mapで済ませてしまいました。 map <F5> :let obufclnline = getline('.')^M^W^W:execute 'e ' . obufclnline^M :new | read !dir /s/b *.txt 等でリストを作成し、2つ以上ウィンドウがあることが 前提の仕様にしてます(´Д⊂グスン （本心は"ウィンドウが無かったら作る"というのをやりたかった) e! にしてないので、安全です^^　もっと良い方法ってありますかね？ 微妙にスレ違いですか…そうでつか　or2゜ 563 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/22 10:46] >>562 ファイル名の上で <C-]> もしくは <C-W><C-]> 564 名前：561 mailto:SAGD [04/06/22 17:54] >>563 ありがとうございます。・゜・(ノ∀`)・゜・。 そんな簡単な方法があったとは… vimは最近始めたのですが、viを長年つかっていた身としてなんか 妙にクヤシクなったので、スクリプト書いてみました。 処女作ですが、みなさんの忌憚の無いつっこみおまちしてます。 command! -nargs=1 Findmode :call s:StartFindMode(<f-args>) function! Findg() let obufclnline = getline('.') if filereadable(obufclnline) normal ^W^W execute 'e ' . obufclnline endif endfunction function! Finding(...) let startcmd = "read !dir /s/b ".a:1 normal 1GdG silent execute startcmd endfunction function! s:FindWindow() nnoremap <buffer> <CR> :call Findg()^M nnoremap <buffer> <ESC> :bd!^M command! -buffer -nargs=1 Finding :silent call Finding(<f-args>) endfunction function! s:StartFindMode(...) let startcmd = "10new __findlist__ | read !dir /s/b ".a:1 silent execute startcmd endfunction au BufEnter __findlist__ call s:FindWindow() 565 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/22 18:02] >>564 :help gf :help :cfile :help :copen :help errorformat 566 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/06/22 22:56] >>565 無駄のない簡潔なメッセージだが何を言いたいのか分からない。 >>564 command! -nargs=1 Findmode :call s:StartFindMode(<f-args>) function! Findg()   let obufclnline = getline('.')   if filereadable(obufclnline)     " ポータビリティーのため     execute 'wincmd w'     execute 'e ' . obufclnline   endif endfunction function! Finding(...)   let startcmd = "read !dir /s/b ".a:1   " 好み。俺はこの方が分かりやすい。   execute '1,$delete _'   silent execute startcmd endfunction

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef