InDesign居残り補習室

どれだけ勉強しても上達しない管理人の、InDesign備忘録を中心に。たまにブックレビューなども。

スポンサーサイト  --/--/--

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


THE 他力本願!  2006/04/20

他人の他力本願には厳しい私w
やはり、自分には甘い。相当ww

勉強部屋BBSでNo.8778に始まるスレッドの件。
なんだかんだで多くの方の手をわずらわせ、とりあえずひとつの形になったかな、と思うので記録しておく。

結局、perlを使うことに。


環境:WindowsXP pro sp1
   ActivePerl 5.6.1.638 をインストールして動作確認
   Jcode.plについてはhttp://srekcah.org/jcode/を参照


#!/usr/bin/perl -w

use strict;
use File::Basename;

require "./jcode.pl";

foreach my $argv (@ARGV) {

my $fullpath = $argv;
( my $base, my $dir ) = fileparse( $fullpath, '¥.[^¥.]+$' );
my $filename = $base . '.txt';
my $newpath = $dir . '#' . $filename;


my $text = "";
open( IN, $fullpath )
|| die "can't open $fullpath ¥n";
binmode(IN);
read IN, $text, -s $fullpath;
close(IN);


#読み込むファイルはsjis
#このソースファイルはeuc
#&jcode::convert(¥$text, "euc", "sjis");


$text =~ s/([¥d,¥.]+)/<<$1>>/g;
$text =~ s/<<([¥d]{2}|[¥d]{4})>>/$1/g;
$text =~ s/^<<([¥d,¥.]{2,})>>/$1<<>>/;
$text =~ s/<<([¥d,¥.]{2,})>>$/<<>>$1/;
$text =~ s/<<>>/<2002>/g;
$text =~ s/<<([¥d,¥.]+)>>/<2002>$1<2002>/g;
$text =~ s/([¥d])<2002>([!-~])/$1$2/g;
$text =~ s/([!-~])<2002>([¥d])/$1$2/g;


#書き出すファイルはsjis
#&jcode::convert(¥$text, "sjis", "euc");


open FH, ">$newpath";
binmode(FH);
print FH $text;
close FH;
}


これでようやく……。
ドラッグドロップに対応したテキスト変換用スクリプトのテンプレートができた。
スポンサーサイト

最初、入力も出力もSJISでなんとかなんないかなー、と思ってたので、コメント行にSJISの表記を残しっぱなしに(^^;
入力用ファイルをEUC保存し、出力されたファイルをSJISに戻す。
その他いくつか手間をかけてやる必要があったりするけれども……。
そのあたりの省力化はまたいずれ。

Perl 5.8系列だったら、Encode使えるんですけどねー(超簡単)
そろそろ、jcodeは過去の遺産にした方がいいような気がします。

5.8ですね。メモメモ。
いつもありがとうございます^^

コメントの投稿





管理者にだけ表示を許可する

トラックバック

http://kstation2.blog10.fc2.com/tb.php/31-40c9864f

(新しい記事)← 表のトラブル
PDF直接書き出し →(古い記事)

 | HOME | 

カレンダー

04 | 2017/05 | 06
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -

FC2カウンター

2006年3月28日カウント開始

Amazon

FC2 Affiliate

動くPDF

プロフィール

あわせて読みたい

あわせて読みたいブログパーツ

最近の記事

最近のコメント

最近のトラックバック

Lc.ツリーリンク

RSSリンク

直感カテゴリーツリーV1.1

ブログ内検索

ブロとも一覧

marumi

神楽崎 ゆう


■ ブログ名:I'm writing NOVEL

七篠 銀字


■ ブログ名:風と夜空と氷の国

MS


■ ブログ名:へなちょこDTP

桜桃


■ ブログ名:追憶の桜吹雪

瑪瑙 輝遊


■ ブログ名:千里の道も一歩から

magatu


■ ブログ名:unsigned

暁 鷲 (あかつき しゅう)


■ ブログ名:空を裂け!

NewMark

C-Roll


FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。