VB6のソースを Javaっぽく変換する秀丸マクロ

1 昔むかし、VB6が大流行しました
2 そして、みんな幸せになりましたとさ

昔むかし、VB6が大流行しました

よくある話。

昔むかし、VB6で開発されたアプリがありましたとさ。

さすがにそろそろ使いにくくて我慢できなくなったユーザさんは、Javaに移行することにしました。

そのプロジェクトに居合わせたSE

でも、そのユーザさんは、あまりお金を掛けたくありません。だから、コンバータみたいな便利な変換ツールは買ってもらえませんでした。

可哀想なシンデレラは、来る日も来る日も、VB6の現行ソースを Javaの命令に置き換える作業をしていました。（本当は、ツールを買ったほうが安くあがるのにね）

あまりに機械的な置換作業が続いたので、秀丸マクロを作成してみました。下のソースをテキストファイルで保存して、秀丸マクロとして読み込めば、多分使えます。

というわけで、「なんちゃってVB6からJavaへのコンバータ・マクロ」です。

変換を支援するマクロですよ

当然ですが、変換したJavaっぽいファイルは、そのままじゃ動きません。

単純に、VB6 から Javaに変換する作業のとき、機械的に行える作業をマクロ化してまとめただけですので、ご注意ください。

どんどんやろう

でも、ずいぶん機械的な作業は軽減されるはずです。

愚痴っていても、コードは1行も埋まらない！

さぁ、手を動かそう！（あ、私のことか・・）

そして、みんな幸せになりましたとさ

今はこういう案件は随分少なくなりましたが、これからも、きっと時々こういう案件があるでしょう。　お疲れ様です。

これを使う人の残業時間が、1分でも縮まることを祈ります。じゃ、お先に失礼します〜

gofiletop;
setcompatiblemode 0x0F;
// 単純置換
begingroupundo;
replaceallfast "if " , "if (" , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast "then" , "){" , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast "Else" , "} else {" , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast "end if" , "}" , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast "'" , "// " , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast " True" , " true" , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast " False" , " false" , nohilight;
if( ! result )  beep;
endgroupundo 1;
begingroupundo;
replaceallfast "Not " , "!" , nohilight;
if( ! result )  beep;
endgroupundo 1;

// if文の条件修正
gofiletop;
while(true){
	searchdown"if (";
	if(result){
		selectline;
		replaceallfast " = " , " == " , inselect;
		selectline;
		replaceallfast " And " , " && " , inselect;
		selectline;
		replaceallfast " Or " , " || " , inselect;
		down 1;
	}else{
		break;
	}
}

// Dim String の条件修正
gofiletop;
while(true){
	searchdown "Dim .*As String" , regular, nocasesense, hilight;
	if(result){
		selectline;
		replaceallfast "As String" , ";" , inselect;
		selectline;
		replaceallfast "Dim " , "String " , inselect;
	}else{
		break;
	}
}

// Dim Boolean の条件修正
gofiletop;
while(true){
	searchdown "Dim .*As Boolean" , regular, nocasesense, hilight;
	if(result){
		selectline;
		replaceallfast "As Boolean" , ";" , inselect;
		selectline;
		replaceallfast "Dim " , "boolean " , inselect;
	}else{
		break;
	}
}

// Dim Integer の条件修正
gofiletop;
while(true){
	searchdown "Dim .*As Integer" , regular, nocasesense, hilight;
	if(result){
		selectline;
		replaceallfast "As Integer" , ";" , inselect;
		selectline;
		replaceallfast "Dim " , "int  " , inselect;
	}else{
		break;
	}
}

// Dim Long の条件修正
gofiletop;
while(true){
	searchdown "Dim .*As Long" , regular, nocasesense, hilight;
	if(result){
		selectline;
		replaceallfast "As Long" , ";" , inselect;
		selectline;
		replaceallfast "Dim " , "long  " , inselect;
	}else{
		break;
	}
}

// Dim Single の条件修正
gofiletop;
while(true){
	searchdown "Dim .*As Single" , regular, nocasesense, hilight;
	if(result){
		selectline;
		replaceallfast "As Single" , ";" , inselect;
		selectline;
		replaceallfast "Dim " , "float  " , inselect;
	}else{
		break;
	}
}

// Dim Double の条件修正
gofiletop;
while(true){
	searchdown "Dim .*As Double" , regular, nocasesense, hilight;
	if(result){
		selectline;
		replaceallfast "As Double" , ";" , inselect;
		selectline;
		replaceallfast "Dim " , "double  " , inselect;
	}else{
		break;
	}
}

// 一旦全行にセミコロンを付ける
replaceallfast "\\n" , ";\\n" , regular, nocasesense, nohilight;

// { } の行からは外す
replaceallfast "};\\n" , "}\\n" , regular, nocasesense, nohilight;
replaceallfast "{;\\n" , "{\\n" , regular, nocasesense, nohilight;

// 何もない行からも外す
replaceallfast "^;" , "" , regular, nocasesense, nohilight;

// 二重コメントを除去
replaceallfast "// //" , "//" , regular, nocasesense, nohilight;

// スペースのみの行
replaceallfast "^ *;" , "" , regular, nocasesense, nohilight;

// 二重セミコロンを除去
replaceallfast ";;" , ";" , regular, nocasesense, nohilight;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

gofiletop;

setcompatiblemode 0x0F;

// 単純置換

begingroupundo;

replaceallfast "if " , "if (" , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast "then" , "){" , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast "Else" , "} else {" , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast "end if" , "}" , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast "'" , "// " , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast " True" , " true" , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast " False" , " false" , nohilight;

if( ! result ) beep;

endgroupundo 1;

begingroupundo;

replaceallfast "Not " , "!" , nohilight;

if( ! result ) beep;

endgroupundo 1;

// if文の条件修正

gofiletop;

while(true){

searchdown"if (";

if(result){

selectline;

replaceallfast " = " , " == " , inselect;

selectline;

replaceallfast " And " , " && " , inselect;

selectline;

replaceallfast " Or " , " || " , inselect;

down 1;

}else{

break;

}

// Dim String の条件修正

gofiletop;

while(true){

searchdown "Dim .*As String" , regular, nocasesense, hilight;

if(result){

selectline;

replaceallfast "As String" , ";" , inselect;

selectline;

replaceallfast "Dim " , "String " , inselect;

}else{

break;

}

// Dim Boolean の条件修正

gofiletop;

while(true){

searchdown "Dim .*As Boolean" , regular, nocasesense, hilight;

if(result){

selectline;

replaceallfast "As Boolean" , ";" , inselect;

selectline;

replaceallfast "Dim " , "boolean " , inselect;

}else{

break;

}

// Dim Integer の条件修正

gofiletop;

while(true){

searchdown "Dim .*As Integer" , regular, nocasesense, hilight;

if(result){

selectline;

replaceallfast "As Integer" , ";" , inselect;

selectline;

replaceallfast "Dim " , "int " , inselect;

}else{

break;

}

// Dim Long の条件修正

gofiletop;

while(true){

searchdown "Dim .*As Long" , regular, nocasesense, hilight;

if(result){

selectline;

replaceallfast "As Long" , ";" , inselect;

selectline;

replaceallfast "Dim " , "long " , inselect;

}else{

break;

}

// Dim Single の条件修正

gofiletop;

while(true){

searchdown "Dim .*As Single" , regular, nocasesense, hilight;

if(result){

selectline;

replaceallfast "As Single" , ";" , inselect;

selectline;

replaceallfast "Dim " , "float " , inselect;

}else{

break;

}

// Dim Double の条件修正

gofiletop;

while(true){

searchdown "Dim .*As Double" , regular, nocasesense, hilight;

if(result){

selectline;

replaceallfast "As Double" , ";" , inselect;

selectline;

replaceallfast "Dim " , "double " , inselect;

}else{

break;

}

// 一旦全行にセミコロンを付ける

replaceallfast "\\n" , ";\\n" , regular, nocasesense, nohilight;

// { } の行からは外す

replaceallfast "};\\n" , "}\\n" , regular, nocasesense, nohilight;

replaceallfast "{;\\n" , "{\\n" , regular, nocasesense, nohilight;

// 何もない行からも外す

replaceallfast "^;" , "" , regular, nocasesense, nohilight;

// 二重コメントを除去

replaceallfast "// //" , "//" , regular, nocasesense, nohilight;

// スペースのみの行

replaceallfast "^ *;" , "" , regular, nocasesense, nohilight;

// 二重セミコロンを除去

replaceallfast ";;" , ";" , regular, nocasesense, nohilight;