VBメッソド切り！日本語Regionは使えませんから。残念！なawk script

VBからVB.NETへ移行するとき、イベントの追加等でメソッドのソース上の並び順が変わってしまうんだよな。
動くから問題ないが、差分を出すのが大変だ。
WinMerge等使って差分を出すと、ソースの同期がとれず、差分だらけになってしまう。
そこで、メソッド単位のソース分割だ。

メソッド名、もしくはRegion名毎にソースを分割する。もちろん、その名称をファイル名に使っている。
しかし、分割するソースがUTF-8の為、Region名に日本語を使っていると、作成されるファイル名が化ける。
ま、妥協してくれ。いやなら、nkf32.exeあたりで事前にSJIS化してくれ。

分割したソースをフォルダごとWinMergeに食わせりゃ、OK.。
VB６とVB.NETではメソッド名が変更されたイベントがある。新旧のファイル名をどちらかに合わせてくれ。WinMergeのリスト画面でrenameすると楽だぞ。

ちなみに、コメントアウトしたメソッドも抽出するぞ。親切だろ。

AWKのつぼ

特になし。力技ってヤシだ。

vbcut.bat

@gawk -f vbcut.awk %1

vbcut.awk

BEGIN{ IGNORECASE = 1; FS = "\""; szFILENAME = ""; szFuncChar ="[a-zA-Z0-9_]+" szRegion = "((^#Region)|(^[' ]+#Region))"; szEndRegion = "((^#End Region)|(^[' ]+#End Region))"; szFunction ="^[ \t']*(Public|Private|Protected)([\t ]+|(([\t ]+[a-zA-Z0-9_ ]+)+[\t ]+))(Sub|Function)[ \t]+"; szEndFunction ="^[ \t']*End[\t ]+(Sub|Function)"; nowRegion = "First" sline = 1; outbuf = ""; } { if (szFILENAME != FILENAME){ print FILENAME; szFILENAME = FILENAME; szDir = szFILENAME ".dir"; print("mkdir " szDir ); system("mkdir " szDir ); } sregion = match($0, szRegion); if (sregion){ szFind = substr($0, RSTART, RLENGTH); back=nowRegion; if (match($2, szFuncChar)){ nowRegion = substr($2, RSTART, RLENGTH); } else { nowRegion = $2 } oname=(namespace[back] > 0) ? back "_@" namespace[back] : back; namespace[back] += 1; print "'@@-- "sline "-" NR -1 " " oname outbuf > FILENAME ".dir\\" oname ".txt" outbuf=""; sline = NR; } eregion = match($0, szEndRegion); sfunction = match($0, szFunction); if (sfunction){ szFind = substr($0, RSTART, RLENGTH); szFindFunction = substr($0, length(szFind)); match(szFindFunction, szFuncChar); szFindFunction = substr(szFindFunction, RSTART, RLENGTH); if (match(szFind,"'")){ nowCFunction = szFindFunction; sfunction = 0 ; scfunction = 1; if (length(nowFunction)==0){ if (nowRegion != "First"){ nowRegion=nowCFunction; } } } else { nowFunction = szFindFunction; nowCFunction=""; scFunction = 0; if (nowRegion != "First"){ nowRegion=nowFunction; } } # print $0 } efunction = match($0, szEndFunction); if (efunction){ if (nowRegion == "First"){ back = (length(nowFunction))? nowFunction : nowCFunction; oname=(namespace[back] > 0) ? back "_@" namespace[back] : back; namespace[back] += 1; print "'@@-- "sline "-" NR " " oname outbuf "\n" $0 > FILENAME ".dir\\" oname ".txt" $0=""; outbuf=""; sline = NR +1; } szFind = substr($0, RSTART, RLENGTH); if (match(szFind,"'")){ efunction = 0; ecfunction = 1; } else { ecfunction = 0; } if (nowRegion == "First"){ nowFunction=""; nowCFunction=""; next; } } outbuf = outbuf "\n" $0 #printf("[%s][%s][%s]:%s\n",nowRegion,nowFunction,nowCFunction,$0); if (eregion){ # nowRegion=""; } if (efunction){ nowFunction=""; } if (ecfunction){ nowCFunction=""; } } END{ if (nowRegion == "First"){ back = (length(nowFunction))? nowFunction : nowCFunction; } else { back=nowRegion; } oname=(namespace[back] > 0) ? back "_@" namespace[back] : back; namespace[back] += 1; print "'@@-- "sline "-" NR " " oname outbuf > FILENAME ".dir\\" oname ".txt" }