取字符的UNICODE值的问题

草肃威

我的系统是中文xp,  ActiveState ActivePerl 5.8
从一个excel表中读数据,很多是西欧字符,如Š,unicode编码0x0160
我用下面的代码取这些字符的unicode值

1. 
   
2. $aaa = decode("gb2312", $aaa);
   
3. map {print "&#x",sprintf("%x",$_)}unpack ("U*",$aaa);
   

复制代码

现在问题是有的字符能取出正确的unicode值,但还有很多取到的是0x003f,就是字符(? ),比如上面的Š,unicode是0x0160,但是用这段代码得到的是0x003f
这个是什么原因?怎么解决??

草肃威

我发现问题是能读出excel中的中文字符,但是西文的那些ß之类的字符读出之后就是一个问号?,这些字符都是gb2312中没有编码的字符
各位大侠,你们都是怎么读excel中的这种字符的??

hitsubunnu

用  Win32::OLE  试试

我没发现乱码问题

草肃威

我的代码是这样的

1. 
   
2. $aaa = $sheet->Cells(208,1)->{'Value'};
   
3. $aaa = decode("gb2312", $aaa);
   
4. map {print "", sprintf("%x",$_)}unpack ("U*",$aaa);
   
5. print "$bbb\n";
   

复制代码

这个取中文没问题,但是像ß这样的字符就不行了,老大你试过吗?

草肃威

这个问题还是没有搞定
我怀疑是
$aaa = decode("gb2312", $aaa);
这句中使用的编码不对,但是我试过 "utf8", "iso-8859-1",...
都不行,大侠说说应该怎么写吧...
就是用Win32::OLE取excel中一个单元格中字符的UNICODE编码,这个字符可能是各种西欧字符如希腊字母(中文已经试过没有问题)

草肃威

搞定了
在读excel表的时候加这么一句

1. Win32::OLE->Option(CP => Win32::OLE::CP_UTF8);

复制代码

读出的就直接是unicode的,utf16
参考了
http://www.programmer-club.com/p ... 20=perl&id=2376