Bird-Soft Weblog: テキストの周りに枠を生成するスクリプト(Perl)

テキストファイルを指定すると、そのテキストの周りにテキストで
枠をつけるPerlスクリプトを作成してみました。
（但し、等幅フォントでないと表示がずれます）

最近では需要はあまりないかと思いますが、
メールなど、テキストベースの物を作る際に役に立つと思います。

・使い方
1.「設定」部分を書き換える
　・読み込むディレクトリ、ファイル名
　・結果出力ディレクトリ、ファイル名
2.変換ファイル作成
　・読み込むディレクトリ、ファイル名
　　で指定したファイルに変換したい文字列を書き込む
3.変換スクリプトを実行する
4.結果出力ディレクトリ、ファイル名
　　で指定したファイルに変換後の文字列が出力される

※「設定」の「部品」の部分を変えるといろいろな枠にすることができます。

・実行例：
D:\Data\temp>textConv.pl
書き出したファイル：D:\Data\temp\test_conv.txt

◆サンプル

⇒

↑変換前テキスト　　　　　　　　　⇒　↑変換後テキスト

スクリプトは続きより見てください。

# テキスト変換
# 2008年06月 作成
# テキストの周りに枠を生成するスクリプト

#--------------設定--------------

#読み込むディレクトリ、ファイル名
$rdirname='D:\Data\temp';
$rfilename="test.txt";

#結果出力ディレクトリ、ファイル名
$wdirname='D:\Data\temp';
$wfilename="test_conv.txt";

#横の長さ
$MaxNo=100;

#部品
$T_Block = "─";
$L_Block = "│";
$R_Block = $L_Block;
$B_Block = $T_Block;
$TL_Block = "┌";
$TR_Block = "┐";
$BL_Block = "└";
$BR_Block = "┘";

#--------------------------------

# ファイル読み込み
@loadstr = &load_file($rdirname,$rfilename);

# ファイル書き込み
&write_file($wdirname,$wfilename);

print "書き出したファイル：$wdirname\\$wfilename\n";

#-----------------------------------------------------------
# ファイル読み込み。1行づつの配列を返す(ディレクトリ名,ファイル名)
# 末尾の改行は削除する。
sub load_file() {
	my @loadstr0=();
	open(IN, "<$_[0]\\$_[1]");
	while ( $line = <IN>) {   # ファイルを１行ずつ読み込み、EOFで終了
		#print $line;
		$line =~ s/\n//;  #改行削除
		push(@loadstr0, $line);    #配列の最後に追加
	}
	close(IN);
	return @loadstr0;
}

# ファイル書き込み。(ディレクトリ名,ファイル名)
# @loadstr参照
sub write_file() {
	open(FILE, ">$_[0]\\$_[1]") or die;

	#上側
	print FILE " $TL_Block";
		for($j = ($MaxNo/2) ; $j > 0 ; $j--){
			print FILE "$T_Block";
		}
	print FILE "$TR_Block\n";

	$i = 0;
	foreach $t (@loadstr){    #ファイルへ出力

		#----中身生成-------------
		print FILE " $L_Block$loadstr[$i]";  #始まりと内容

		$strlen1 = length ("$t");
		$loop_count = $MaxNo - $strlen1;
		for($j=$loop_count ; $j > 0 ; $j--){
			print FILE " ";          #スペースで足りない部分を補う
		}
		print FILE "$R_Block\n";		#閉じと改行
		#------------------------
		$i++;
	}

	#下側
	print FILE " $BL_Block";
		for($j = ($MaxNo/2) ; $j > 0 ; $j--){
			print FILE "$B_Block";
		}
	print FILE "$BR_Block\n";

	close(FILE);
}

応援お願いします(人気blogランキングへ)

Bird-Soft Weblog

プログラミング(Perl,C#,HSP,PSoC)、おすすめゲーム、など、趣味についてのんびり更新。

テキストの周りに枠を生成するスクリプト(Perl)

トラックバック

コメントを投稿