| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> perl >> yong Perl lai fen xi bing sheng cheng zhong wen Excel wen jian

yong Perl lai fen xi bing sheng cheng zhong wen Excel wen jian

2008-05-30 23:00:59 编辑來源:互联网 评论
 
 
 
本文为【用Perl来分析并生成中文Excel文件】的拼音翻译版
  zui jin shi yan shi zuo wei zi xue kao shi de kao chang , xu yao zai fu wu qi shang mian wei mei ge xue sheng chuang jian FTP zhang hao , wo ji hua yong Perl lai shi xian de pi chu li chuang jian 。 kao lv dao huo qu de kao chang xue sheng ming dan shi cun chu zai Excel wen jian li mian de , yin ci huan xu yao rang Perl qu fen xi Excel wen jian 。 tong guo google zhao dao yong Spreadsheet::ParseExcel yi ji Spreadsheet::WriteExcel lai du xie Excel。 zai www.cpan.org shang xia zai le xiang ying de Module bing kan le wen dang 、 fan li hou , zhong yu xie chu le yi ge cheng xu ke yi du kao chang xue sheng ming dan , bing sheng cheng mi ma qing dan cun dao ling yi ge Excel wen jian zhong 。
  zhe huan zhi shi di yi bu , gang xie chu lai de cheng xu du Excel wen jian zhong de zhong wen , ye wu fa jiang zhong wen xie ru Excel wen jian : dan yuan ge (Cell) he gong zuo bao (Worksheet) zhong de han zi 。
  zai zhao xiang ying de bang zhu , de zhi ke yi yong Spreadsheet::ParseExcel::FmtUnicode lai chu li Excel wen jian zhong de Unicode zi fu , qi shi yong fang fa ru xia :
  use Spreadsheet::ParseExcel::FmtUnicode;
  my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => CODE);
  my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($ARGV[0], $oFmtJ);
  zhi dao le shi xian de fang fa , dan shi zhe ge CODE de zhi ying gai wei duo shao huan bu zhi dao 。 gang kai shi wo cai ce shi 'GB2312', ke shi bu zhi dao shi na li qi ta shen me di fang cuo le dao zhi bu cheng gong ; hou lai kan dao Manual li ti dao 'GB2312-80', ye shi le yi xia , huan shi bu xing 。 zui hou zhi hao google, fa xian bie ren yong de shi 'CP936', zhe ci jiu cheng gong le 。 dang cheng gong le yi hou zai ba CODE gai hui 'GB2312' ju ran ye ke yi le 。
  xian zai du Excel wen jian yi jing mei you wen ti le , ke shi jin guan zhe xie zhong wen du chu lai le , ke shi zai xie Excel wen jian de shi hou bing wu fa xie ru zhong wen 。
  jie jue fang an jiu zhi you liang zhong le : wang shang sou suo da an ; kan ParseExcel de yuan wen jian ni xiang chu li 。
  shou xian tong guo kan WriteExcel de Manual de zhi ta shi zhi chi xie Unicode zi fu de , qi zhong jiu you yi ge Example shuo ming le tong guo write_unicode() han shu lai xiang dan yuan ge xie ru ri wen Unicode zi fu 。 ke shi Example li mian ti gong de ri wen zi fu chuan shi tong guo pack lai sheng cheng de , ben shen yi jing shi Unicode ge shi de le , er wo men tong chang shi yong de GB2312 de zi fu bu shu yu Unicode zi fu chuan , suo yi mei fa zhi jie xie ru 。 na me ru he zhuan huan ne ?
  tong guo fen xi Spreadsheet::ParseExcel.pm he Spreadsheet::ParseExcel::FmtUnicode.pm fa xian : suo you tong guo ParseExcel cong Excel wen jian zhong fen xi chu lai de zi fu dou shi jing guo han shu TextFmt() ge shi hua guo de , zhe ge han shu de ding yi zai FmtUnicode.pm zhong 。 er TextFmt() gai xin shi tong guo Unicode::Map de from_unicode() han shu lai jiang yi ge unicode zi fu chuan zhuan huan wei fei unicode de zi fu chuan , dang ran zai zhuan huan zhi qian huan zuo le yi ge chu li :s/(.)/\x00$1/sg。
  gen ju zhe ge si lu , jiu zai WriteExcel zhi qian , chuang jian yi ge Unicode::Map dui xiang , ran hou tiao yong dui xiang li de to_unicode han shu jin xing zi fu chuan ge shi zhuan huan , zui hou tiao yong write_unicode han shu jiang zhong wen xie ru dan yuan ge (Cell) zhong 。 xia mian gei chu yi ge jian dan de Example:
  use Unicode::Map();
  my $Map = new Unicode::Map("GB2312");
  $worksheet->write_unicode($iR, 2, $Map->to_unicode(" kao sheng xing ming "))
  dan yuan ge zhong de zhong wen ke yi zheng chang xian shi le , ke shi zai xie gong zuo bao ming cheng de shi hou zhe ge fang fa jiu bu na me guan yong le , xiang $worksheet = $workbook->add_worksheet($Map->to_unicode($name) zhe yang jin xing de hua , jiu hui chan sheng gong zuo bao ming cheng fei fa de cuo wu er tui chu 。 tong yang de fang fa zai set_header() shi ye bu guan yong , jin guan bu hui chu cuo ke shi xian shi de que shi luan ma 。 zai chu li dan yuan ge de shi hou you fen unicode de fang fa he fei unicode de fang fa , wei shen me add_worksheet de shi hou mei you ne ? mo fei yao zi ji qu xie ge han shu huo zhe jia ge shen shu lai kuo zhan ?
  dan yuan ge zhong de zhong wen ke yi zheng chang xian shi le , ke shi zai xie gong zuo bao ming cheng de shi hou zhe ge fang fa jiu bu na me guan yong le , xiang $worksheet = $workbook->add_worksheet($Map->to_unicode($name) zhe yang jin xing de hua , jiu hui chan sheng gong zuo bao ming cheng fei fa de cuo wu er tui chu 。 tong yang de fang fa zai set_header() shi ye bu guan yong , jin guan bu hui chu cuo ke shi xian shi de que shi luan ma 。 zai chu li dan yuan ge de shi hou you fen unicode de fang fa he fei unicode de fang fa , wei shen me add_worksheet de shi hou mei you ne ? mo fei yao zi ji qu xie ge han shu huo zhe jia ge shen shu lai kuo zhan ?
  zai ci jin ru yuan dai ma Spreadsheet::WriteExcel::Workbook.pm, fa xian yuan lai add_worksheet() han shu huan ke yi chuan di yi ge $encoding de shen shu de , ke shi zhe ge shen shu jin yong yu pan duan shu ru de unicode zi fu shi fou fu he chang du yao qiu , bian ma zhuan huan na li qu le ? ru guo shuo yao zi ji qu bu qi de hua gai jia shen me dai ma ne ? bi jiao Spreadsheet::WriteExcel::Worksheet.pm zhong de write()( shi ji shang zui hou tiao yong de shi write_string) he write_unicode() fa xian , hou zhe bi qian zhe duo le xiang ying de zhe me yi duan dai ma >( shuo xiang ying shi you yu yi xie bian liang ming de cha yi , jiang ci dai ma zhi jie tian jia dao qian zhe shi bu neng gong zuo de ):
  # Check for a valid 2-byte char string.
  croak "Uneven number of bytes in Unicode string" if $num_bytes % 2;
  # Change from UTF16 big-endian to little endian
  $str = pack "v*", unpack "n*", $str
  na me ye jiu shi shuo jiang zhe duan dai ma jia ru dao add_worksheet() shi dang de wei zhi jiu ke yi lou ? da an shi ling ren ju sang de 。 wei le cha zhao yuan yin zai ci hui dao Spreadsheet::ParseExcel.pm, cong tiao ru Excel wen jian fen xi Excel wen jian kai shi , kan kan gong zuo bao ming cheng shi ru he de dao de 。
  fen xi dai ma fa xian ,TextFmt() chu li gong zuo bao ming cheng shi shi zhe yang de :$sWsName = $oBook->{FmtClass}->TextFmt($sWsName, 'ucs2')。TextFmt() han shu huan you yi bu fen shi zhen dui Excel wen jian ge bie lei xing de zi fu chuan ( ru header,footer, gong zuo bao ming cheng deng ) bu zuo shang mian ti dao de chu li (s/(.)/\x00$1/sg)。 ke shi zhe ge bu shi guan jian wen ti , bu neng jie shi wei shen me zhi jie zhuang huan wei unicode de zi fu bu neng xie ru 。
  jin yi bu fen xi fa xian , xiang dui yu dan yuan ge de zi fu qi ta de te shu de zi fu zai jin xing TextFmt() ge shi hua zhi qian dou you jin xing lei si _SwapForUnicode(\$sWsName) de tiao yong , ye jiu shi shuo huan you te shu chu li :
  sub _SwapForUnicode(\$)
  {
  my($sObj) = @_;
  #for(my $i = 0; $i for(my $i = 0; $i<(int (length($$sObj) / 2) * 2); $i+=2) {
  my $sIt = substr($$sObj, $i, 1)
  substr($$sObj, $i, 1) = substr($$sObj, $i+1, 1);
  substr($$sObj, $i+1, 1) = $sIt
  }
  }
  gen ju yi shang suo you de fen xi , zui hou de chu le yi ge jie jue fang an :
  my $sWsName = $Map->to_unicode($sWsName);
  &SwapForUnicode(\$name);
  my $worksheet = $workbook->add_worksheet($name, 1);
  zai jing li liang tian de shi bai le yi hou , cheng gong yi wai de jiang lin le , shang mian de dai ma shi ke xing de 。 di yi xing , jiang fei Unicode de zi fu zhuan huan wei Unicode de ; di er xing , bian geng qi cun chu ge shi shi zhi fu he Excel wen jian de yao qiu ; di san xing , tong guo dai shen shu $encoding de tiao yong , zhi xing le xiang dang yu write_unicode() zhong xie ru unicode zi fu de dai ma ( shi shi shang zhe bu fen dai ma suo shuo de zi xing tian jia de bu fen ,NOTE: xiu gai le Module de yuan wen jian ):$name = pack "v*", unpack "n*", $name;
  zui hou shi yu biao ti wu guan de zong jie 。
  Spreadsheet zhe liang ge mo kuai chu li Excel de neng li tai guo du li , er zhe hen nan jie he de hen hao 。 liang ge mo kuai yao me zhi neng du , yao me zhi neng xie , bi xu yao yi ge zhong jian de shu ju cun chu 。
  sui ran shuo ParseExcel shi yong WriteExcel mo kuai xie le yi ge SaveParser, ke ben zhi shang huan shi tong guo yong SaveAS fang fa lai xin jian le yi ge Excel dui xiang bing ba shu ju fu zhi guo qu , bing mei you zhen zheng yi yi shang de “Save”。
  er qie SaveParser huan you yi ge yan chong de wen ti : ta nei bu tong shi shi yong le ParseExcel he WriteExcel de Workbook dui xiang , ke shi que wu fa jiang er zhe tong yi qi lai : liang ge dui xiang zhi xing tong yi gong neng de han shu ming bu tong , ru AddFormat() he add_format(), rang ren hen nan que ding shen me shi hou gai yong shen me ; shen zhi hen duo gong neng han shu mei you ji cheng xia lai , ru keep_leading_zeros(), zhe gei wo xie “000946” dai lai le hen da de ma fan 。
  xi wang yi hou neng gou chu yi ge Module jiang zhe er zhe hen hao de jie he qi lai xin Module。【原文】【汉音对照
 
 
 
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
zui jin shi yan shi zuo wei zi xue kao shi de kao chang , xu yao zai fu wu qi shang mian wei mei ge xue sheng chuang jian FTP zhang hao , wo ji hua yong Perl lai shi xian de pi chu li chuang jian 。 kao lv dao huo qu de kao chang xue sheng ming dan shi cun chu zai Excel wen jian li mian de , yin ci huan xu yao rang Perl qu fen xi Excel wen jian 。 tong guo google zhao dao yong Spreadsheet::ParseExcel yi ji Spreadsheet::WriteExcel lai du xie Excel。 zai www.cpan.org shang xia zai le xiang ying de Module bing kan le wen dang 、 fan li hou , zhong yu xie chu le yi ge cheng xu ke yi du kao chang xue sheng ming dan , bing sheng cheng mi ma qing dan cun dao ling yi ge Excel wen jian zhong 。 zhe huan zhi shi di yi bu , gang xie chu lai de cheng xu du Excel wen jian zhong de zhong wen , ye wu fa jiang zhong wen xie ru Excel wen jian : dan yuan ge (Cell) he gong zuo bao (Worksheet) zhong de han zi 。 zai zhao xiang ying de bang zhu , de zhi ke yi yong Spreadsheet::ParseExcel::FmtUnicode lai chu li Excel wen jian zhong de Unicode zi fu , qi shi yong fang fa ru xia : use Spreadsheet::ParseExcel::FmtUnicode; my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => CODE); my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($ARGV[0], $oFmtJ); zhi dao le shi xian de fang fa , dan shi zhe ge CODE de zhi ying gai wei duo shao huan bu zhi dao 。 gang kai shi wo cai ce shi 'GB2312', ke shi bu zhi dao shi na li qi ta shen me di fang cuo le dao zhi bu cheng gong ; hou lai kan dao Manual li ti dao 'GB2312-80', ye shi le yi xia , huan shi bu xing 。 zui hou zhi hao google, fa xian bie ren yong de shi 'CP936', zhe ci jiu cheng gong le 。 dang cheng gong le yi hou zai ba CODE gai hui 'GB2312' ju ran ye ke yi le 。 xian zai du Excel wen jian yi jing mei you wen ti le , ke shi jin guan zhe xie zhong wen du chu lai le , ke shi zai xie Excel wen jian de shi hou bing wu fa xie ru zhong wen 。 jie jue fang an jiu zhi you liang zhong le : wang shang sou suo da an ; kan ParseExcel de yuan wen jian ni xiang chu li 。 shou xian tong guo kan WriteExcel de Manual de zhi ta shi zhi chi xie Unicode zi fu de , qi zhong jiu you yi ge Example shuo ming le tong guo write_unicode() han shu lai xiang dan yuan ge xie ru ri wen Unicode zi fu 。 ke shi Example li mian ti gong de ri wen zi fu chuan shi tong guo pack lai sheng cheng de , ben shen yi jing shi Unicode ge shi de le , er wo men tong chang shi yong de GB2312 de zi fu bu shu yu Unicode zi fu chuan , suo yi mei fa zhi jie xie ru 。 na me ru he zhuan huan ne ? tong guo fen xi Spreadsheet::ParseExcel.pm he Spreadsheet::ParseExcel::FmtUnicode.pm fa xian : suo you tong guo ParseExcel cong Excel wen jian zhong fen xi chu lai de zi fu dou shi jing guo han shu TextFmt() ge shi hua guo de , zhe ge han shu de ding yi zai FmtUnicode.pm zhong 。 er TextFmt() gai xin shi tong guo Unicode::Map de from_unicode() han shu lai jiang yi ge unicode zi fu chuan zhuan huan wei fei unicode de zi fu chuan , dang ran zai zhuan huan zhi qian huan zuo le yi ge chu li :s/(.)/\x00$1/sg。 gen ju zhe ge si lu , jiu zai WriteExcel zhi qian , chuang jian yi ge Unicode::Map dui xiang , ran hou tiao yong dui xiang li de to_unicode han shu jin xing zi fu chuan ge shi zhuan huan , zui hou tiao yong write_unicode han shu jiang zhong wen xie ru dan yuan ge (Cell) zhong 。 xia mian gei chu yi ge jian dan de Example: use Unicode::Map(); my $Map = new Unicode::Map("GB2312"); $worksheet->write_unicode($iR, 2, $Map->to_unicode(" kao sheng xing ming ")) dan yuan ge zhong de zhong wen ke yi zheng chang xian shi le , ke shi zai xie gong zuo bao ming cheng de shi hou zhe ge fang fa jiu bu na me guan yong le , xiang $worksheet = $workbook->add_worksheet($Map->to_unicode($name) zhe yang jin xing de hua , jiu hui chan sheng gong zuo bao ming cheng fei fa de cuo wu er tui chu 。 tong yang de fang fa zai set_header() shi ye bu guan yong , jin guan bu hui chu cuo ke shi xian shi de que shi luan ma 。 zai chu li dan yuan ge de shi hou you fen unicode de fang fa he fei unicode de fang fa , wei shen me add_worksheet de shi hou mei you ne ? mo fei yao zi ji qu xie ge han shu huo zhe jia ge shen shu lai kuo zhan ? dan yuan ge zhong de zhong wen ke yi zheng chang xian shi le , ke shi zai xie gong zuo bao ming cheng de shi hou zhe ge fang fa jiu bu na me guan yong le , xiang $worksheet = $workbook->add_worksheet($Map->to_unicode($name) zhe yang jin xing de hua , jiu hui chan sheng gong zuo bao ming cheng fei fa de cuo wu er tui chu 。 tong yang de fang fa zai set_header() shi ye bu guan yong , jin guan bu hui chu cuo ke shi xian shi de que shi luan ma 。 zai chu li dan yuan ge de shi hou you fen unicode de fang fa he fei unicode de fang fa , wei shen me add_worksheet de shi hou mei you ne ? mo fei yao zi ji qu xie ge han shu huo zhe jia ge shen shu lai kuo zhan ? zai ci jin ru yuan dai ma Spreadsheet::WriteExcel::Workbook.pm, fa xian yuan lai add_worksheet() han shu huan ke yi chuan di yi ge $encoding de shen shu de , ke shi zhe ge shen shu jin yong yu pan duan shu ru de unicode zi fu shi fou fu he chang du yao qiu , bian ma zhuan huan na li qu le ? ru guo shuo yao zi ji qu bu qi de hua gai jia shen me dai ma ne ? bi jiao Spreadsheet::WriteExcel::Worksheet.pm zhong de write()( shi ji shang zui hou tiao yong de shi write_string) he write_unicode() fa xian , hou zhe bi qian zhe duo le xiang ying de zhe me yi duan dai ma >( shuo xiang ying shi you yu yi xie bian liang ming de cha yi , jiang ci dai ma zhi jie tian jia dao qian zhe shi bu neng gong zuo de ): # Check for a valid 2-byte char string. croak "Uneven number of bytes in Unicode string" if $num_bytes % 2; # Change from UTF16 big-endian to little endian $str = pack "v*", unpack "n*", $str na me ye jiu shi shuo jiang zhe duan dai ma jia ru dao add_worksheet() shi dang de wei zhi jiu ke yi lou ? da an shi ling ren ju sang de 。 wei le cha zhao yuan yin zai ci hui dao Spreadsheet::ParseExcel.pm, cong tiao ru Excel wen jian fen xi Excel wen jian kai shi , kan kan gong zuo bao ming cheng shi ru he de dao de 。 fen xi dai ma fa xian ,TextFmt() chu li gong zuo bao ming cheng shi shi zhe yang de :$sWsName = $oBook->{FmtClass}->TextFmt($sWsName, 'ucs2')。TextFmt() han shu huan you yi bu fen shi zhen dui Excel wen jian ge bie lei xing de zi fu chuan ( ru header,footer, gong zuo bao ming cheng deng ) bu zuo shang mian ti dao de chu li (s/(.)/\x00$1/sg)。 ke shi zhe ge bu shi guan jian wen ti , bu neng jie shi wei shen me zhi jie zhuang huan wei unicode de zi fu bu neng xie ru 。 jin yi bu fen xi fa xian , xiang dui yu dan yuan ge de zi fu qi ta de te shu de zi fu zai jin xing TextFmt() ge shi hua zhi qian dou you jin xing lei si _SwapForUnicode(\$sWsName) de tiao yong , ye jiu shi shuo huan you te shu chu li : sub _SwapForUnicode(\$) { my($sObj) = @_; #for(my $i = 0; $i for(my $i = 0; $i<(int (length($$sObj) / 2) * 2); $i+=2) { my $sIt = substr($$sObj, $i, 1) substr($$sObj, $i, 1) = substr($$sObj, $i+1, 1); substr($$sObj, $i+1, 1) = $sIt } } gen ju yi shang suo you de fen xi , zui hou de chu le yi ge jie jue fang an : my $sWsName = $Map->to_unicode($sWsName); &SwapForUnicode(\$name); my $worksheet = $workbook->add_worksheet($name, 1); zai jing li liang tian de shi bai le yi hou , cheng gong yi wai de jiang lin le , shang mian de dai ma shi ke xing de 。 di yi xing , jiang fei Unicode de zi fu zhuan huan wei Unicode de ; di er xing , bian geng qi cun chu ge shi shi zhi fu he Excel wen jian de yao qiu ; di san xing , tong guo dai shen shu $encoding de tiao yong , zhi xing le xiang dang yu write_unicode() zhong xie ru unicode zi fu de dai ma ( shi shi shang zhe bu fen dai ma suo shuo de zi xing tian jia de bu fen ,NOTE: xiu gai le Module de yuan wen jian ):$name = pack "v*", unpack "n*", $name; zui hou shi yu biao ti wu guan de zong jie 。 Spreadsheet zhe liang ge mo kuai chu li Excel de neng li tai guo du li , er zhe hen nan jie he de hen hao 。 liang ge mo kuai yao me zhi neng du , yao me zhi neng xie , bi xu yao yi ge zhong jian de shu ju cun chu 。 sui ran shuo ParseExcel shi yong WriteExcel mo kuai xie le yi ge SaveParser, ke ben zhi shang huan shi tong guo yong SaveAS fang fa lai xin jian le yi ge Excel dui xiang bing ba shu ju fu zhi guo qu , bing mei you zhen zheng yi yi shang de “Save”。 er qie SaveParser huan you yi ge yan chong de wen ti : ta nei bu tong shi shi yong le ParseExcel he WriteExcel de Workbook dui xiang , ke shi que wu fa jiang er zhe tong yi qi lai : liang ge dui xiang zhi xing tong yi gong neng de han shu ming bu tong , ru AddFormat() he add_format(), rang ren hen nan que ding shen me shi hou gai yong shen me ; shen zhi hen duo gong neng han shu mei you ji cheng xia lai , ru keep_leading_zeros(), zhe gei wo xie “000946” dai lai le hen da de ma fan 。 xi wang yi hou neng gou chu yi ge Module jiang zhe er zhe hen hao de jie he qi lai xin Module。
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
清凉一夏_清纯美丽
纯白色小礼服
靓丽可人儿_嘉嘉
我的女神_靓丽女生
主题摄影
贵州,让我欢喜,让我神伤。
莫干山
天平秋色
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有