> > もう少し具体的に(;´Д`)
> テキスト読み込み→,0,1,1を,0,0,0に置換→終了
> なでしこで作ろうとしたけどヽ(´ー｀)ノさっぱり

perlですまないが

open( my $hf, '<', $ARGV[0] );
my $text = eval { local $/ = undef; <$hf> };
$text =~ s{\Q$ARGV[1]\E}{$ARGV[2]}g;
print $text;

ｺﾏﾝﾄﾞﾗｲﾝからreplace.pl foobar.txt ,0,1,1 ,0,0,0 > replaced.txt
で使えるよ(;´Д`)間違いあるかもしれないけど

参考：2008/03/28(金)05時38分15秒