取字符的UNICODE值的问题

草肃威

UID: 1155
帖子: 1
积分: 2
在线时间: 10 分钟

1^# 草肃威发表于 2008-10-14 15:25

取字符的UNICODE值的问题

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

[Copy to clipboard] [ - ]

CODE:

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

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

草肃威

UID: 1155
帖子: 1
积分: 2
在线时间: 10 分钟

2^# 草肃威发表于 2008-10-15 17:09

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

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

3^# hitsubunnu 发表于 2008-10-15 17:31

用 Win32::OLE 试试

我没发现乱码问题

草肃威

UID: 1155
帖子: 1
积分: 2
在线时间: 10 分钟

4^# 草肃威发表于 2008-10-15 17:59

我的代码是这样的

[Copy to clipboard] [ - ]

CODE:

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

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

草肃威

UID: 1155
帖子: 1
积分: 2
在线时间: 10 分钟

5^# 草肃威发表于 2008-10-16 17:10

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

草肃威

UID: 1155
帖子: 1
积分: 2
在线时间: 10 分钟

6^# 草肃威发表于 2008-10-17 10:31

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

[Copy to clipboard] [ - ]

CODE:

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

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