今天终于把字串整理的程序完成了，明天开始清明节放假咯

将res文件夹下面的所有*.r文件的字串名与中文翻译提取出来，每个.r文件对应一张sheet，本文件中的翻译存放在本sheet中。代码很乱，但是很不想改了

经理总是叫我整理字符串，这么多的字串手动拷贝肯定是不行的，VBA也不熟，每次编程都要之前的模板拿来也折腾很久，C又写不出来，好像还是perl好用一点，我要多学点perl。

#!/usr/bin/perl 

use Encode;  
use Spreadsheet::WriteExcel;  
$dir_name = "C:\\Perl\\res\\";
opendir(DIR,$dir_name)   ||   die   "Can 't   open   directory   $dir_name "; 
@dots = readdir(DIR);
print @dots;
$files = @dots;  
 # 创建一个新的EXCEL文件  
 my $workbook = Spreadsheet::WriteExcel->new('test.xls');      
 #  新建一个样式  
 $format = $workbook->add_format(); # Add a format  
 $format->set_bold();#设置字体为粗体  
 $format->set_color('red');#设置单元格前景色为红色  
 $format->set_align('center');#设置单元格居中  
for($index=3;$index<=$files;$index++){
$filename = @dots[$index-1];
#print $filename;
#print "\n";
#print @dots; 
 # 添加一个工作表  
$worksheet = $workbook->add_worksheet($filename);  
$name = join "","C:\\Perl\\res\\",$filename;
open(ResFile,$name) or die"open F error:$!";
$row = 0;
while(defined($line=<ResFile>))
{
@filter = split /resourcedef /,$line;#找到resourcedef 字符串切割
if(@filter == 2)
{
#@filter = split /(\s*= StringT \()|(=StringT \()/,@filter[1];#filter包涵两个字符串，取第二个字串以 = StringT \(切割
@filter = split /(\s*=\s*StringT\s*\()/,@filter[1];#filter包涵两个字符串，取第二个字串以 = StringT \(切割
#print @filter;
chomp @filter;#去掉换行符号
$line=<ResFile>;
$line=<ResFile>;
$line=<ResFile>;
$line=<ResFile>;
$_ = $line;#读取到中文行
s/^\s+"//;#去除开头的空格和制表符以及第一个引号
s/"$//;#去掉末尾的引号
#$string = join "\t",@filter[0],encode("gbk",decode("utf8",$_));#IDS与中文符号以制表符相连，显示在同一行
#print $string;
$worksheet->write($row,0, @filter[0]);
$worksheet->write($row,1, decode('GB2312', encode("gbk",decode("utf8",$_))));#编码方式不对的时候，可能输出空//同下$worksheet->write($row,0,encode("gbk",'星星'));
#$worksheet->write($row,1, encode("gbk",decode("utf8",$_)));
#$ch = join " ","",encode("gbk",decode("utf8",$_));
#$worksheet->write($row,1,"123");
$row++;
}
}


} 
 exit;