今、私はJavaの入門書を読んでいるのですが、サンプルコードを打ち込むとこ
ろで、こういうものにでくわしました。

　JButton btn1= new JButton("Button1");
　JButton btn2= new JButton("Button2");
　JButton btn3= new JButton("Button3");
　JButton btn4= new JButton("Button4");
　JButton btn5= new JButton("Button5");
　JButton btn6= new JButton("Button6");

似たようなコードを6行も打つ場面です。面倒くさくてイヤになりますよね。
そこで私はさっそくQBasicでこんなプログラムを作りました。

CLS
OPEN "javasrc.txt" FOR OUTPUT AS #1
FOR i = 1 TO 6
　PRINT #1, USING "JButton btn#"; i;
　PRINT #1, "= new JButton(" + CHR$(34);
　PRINT #1, USING "Button#"; i;
　PRINT #1, CHR$(34);
　PRINT #1, ");"
NEXT i
PRINT "done"
END

実行すると javasrc.txt という名前のテキストファイルに 上記の6行のコー
ドが出力されるので、あとはそれをエクスプローラーからメモ帳で開いてJava
用のエディターにコピペすればオッケー。 普通はこういう作業はPerlでやる
そうですが、私はまだPerlの本は5ページしか読んでないので、QBasicでちゃ
ちゃっと作って見ました。