| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> perl >> gong neng feng fu de Perl: yong Perl du xie Excel wen jian

gong neng feng fu de Perl: yong Perl du xie Excel wen jian

2008-05-19 06:25:55 编辑來源:互联网 评论
 
 
 
本文为【功能丰富的Perl:用Perl读写Excel文件】的拼音翻译版
  Spreadsheet::WriteExcel he Spreadsheet::ParseExcel
  zai 2000 nian ,Takanori Kawai he John McNamara bian xie chu le Spreadsheet::WriteExcel he Spreadsheet::ParseExcel mo kuai bing jiang ta men zhang tie zai CPAN shang , zhe liang ge mo kuai shi de zai ren he ping tai shang cong Excel wen jian chou qu shu ju cheng wei ke neng ( jin guan bu rong yi )。
  zheng ru wo men zai shao hou jiang kan dao de , ru guo nin zheng zai shi yong Windows,Win32::OLE reng ti gong yi ge geng jian dan 、 geng ke kao de jie jue fang an , bing qie Spreadsheet::WriteExcel mo kuai jian yi shi yong Win32::OLE lai jin xing geng qiang da de shu ju he gong zuo biao cao zong 。Win32::OLE dai you ActiveState Perl gong ju xiang , ke yi yong lai tong guo OLE qu dong xu duo qi ta Windows ying yong cheng xu 。 qing zhu yi , yao shi yong ci mo kuai , nin reng xu yao zai ji qi shang an zhuang he zhu ce yi ge Excel yin qing ( tong chang sui Excel ben shen an zhuang )。
  xu yao jie xi Excel shu ju de ying yong cheng xu shu yi qian ji , dan shi zhe li you ji ge shi li : jiang Excel dao chu dao CSV、 yu cun chu zai gong xiang qu dong qi shang de dian zi biao ge jiao hu 、 jiang jin rong shu ju yi zhi shu ju ku yi bian xing cheng bao gao yi ji zai bu ti gong ren he qi ta ge shi de qing kuang xia fen xi shu ju 。
  yao yan shi zhe li gei chu de shi li , bi xu zai nin de xi tong shang an zhuang Perl 5.6.0。 nin de xi tong zui hao shi zui jin (2000 nian huo yi hou ) de zhu liu UNIX an zhuang (Linux、Solaris he BSD)。 sui ran zhe xie shi li zai yi qian ban ben de Perl he UNXI yi ji qi ta cao zuo xi tong zhong ye ke yi shi yong , dan shi nin ying gai kao lv dao nin jiang mian dui na xie ta men wu fa zuo wei lian xi fa hui zuo yong de qing kuang 。
  Windows shi li : jie xi
  ben jie jin shi yong yu Windows ji qi 。 suo you qi ta ge jie shi yong yu Linux。
  zai jin xing zhi qian , qing an zhuang ActiveState Perl( zhe li shi yong ban ben 628) huo ActiveState Komodo IDE yi bian ji he tiao shi Perl。Komodo wei jia ting yong hu ti gong yi ge mian fei xu ke zheng , nin da gai zai ji fen zhong zhi nei jiu ke yi de dao ta 。( you guan xia zai zhan dian , qing shen yue ben wen hou mian de shen kao zi liao 。)
  shi yong ActiveState PPM ruan jian bao guan li qi an zhuang Spreadsheet::ParseExcel he Spreadsheet::WriteExcel mo kuai shi kun nan de 。PPM mei you li shi ji lu , nan yi she zhi xuan xiang , bang zhu hui gun chu ping mu bing qie que sheng fang shi shi hu lue xiang guan xing er an zhuang 。 nin ke yi cong ming ling xing shu ru “ppm” ran hou fa chu yi xia ming ling lai tiao yong PPM:
  qing dan 1: an zhuang Excel mo kuai de PPM ming ling
  ppm install OLE::Storage_Lite
  ppm install Spreadsheet::ParseExcel
  ppm install Spreadsheet::WriteExcel
  zai zhe zhong qing kuang xia , gai mo kuai de an zhuang jiang shi bai , yin wei IO::Scalar huan bu ke yong , yin ci , nin ke neng xiang fang qi PPM wen ti de cha zhao , er zhuan xiang nei zhi de Win32::OLE mo kuai 。 ran er , zai nin yue du ben wen shi ,ActiveState ke neng yi jing fa bu le gai wen ti de xiu zheng 。
  you le ActiveState de Win32::OLE, nin ke yi shi yong xia mian suo lie de dai ma zhu ge dan yuan di zhuan chu gong zuo biao :
  xia zai win32excel.pl
  qing dan 2:win32excel.pl
  #!/usr/bin/perl -w
  use strict;
  use Win32::OLE qw(in with);
  use Win32::OLE::Const 'Microsoft Excel';
  $Win32::OLE::Warn = 3;
  # die on errors...
  # get already active Excel application or open new
  my $Excel = Win32::OLE-GetActiveObject('Excel.Application')
  || Win32::OLE-new('Excel.Application', 'Quit');
  # open Excel file
  my $Book = $Excel-Workbooks-Open("c:/komodo projects/test.xls");
  # You can dynamically obtain the number of worksheets, rows, and columns
  # through the Excel OLE interface.
  Excel's Visual Basic Editor has more
  # information on the Excel OLE interface.
  Here we just use the first
  # worksheet, rows 1 through 4 and columns 1 through 3.
  # select worksheet number 1 (you can also select a worksheet by name)
  my $Sheet = $Book-Worksheets(1);
  foreach my $row (1..4)
  {
  foreach my $col (1..3)
  {
  # skip empty cells
  next unless defined $Sheet-Cells($row,$col)-{'Value'};
  # print out the contents of a cell
  printf "At ($row, $col) the value is %s and the formula is %s\n",
  $Sheet-Cells($row,$col)-{'Value'},
  $Sheet-Cells($row,$col)-{'Formula'};
  }
  }
  # clean up after ourselves
  $Book-Close;
  qing zhu yi , nin ke yi yong yi xia fang shi hen qing song di wei dan yuan fen pei zhi :
  $sheet-Cells($row, $col)-{'Value'} = 1;
  Linux shi li : jie xi
  ben jie shi yong yu UNIX, te bie shi yong yu Linux。 mei you zai Windows zhong ce shi ta 。
  hen nan gei chu yi ge bi Spreadsheet::ParseExcel mo kuai wen dang zhong suo ti gong de shi li geng hao de Linux jie xi shi li , yin ci wo jiang yan shi na ge shi li , ran hou jie shi qi gong zuo yuan li 。
  xia zai parse-excel.pl
  qing dan 3:parse-excel.pl
  #!/usr/bin/perl -w
  use strict;
  use Spreadsheet::ParseExcel;
  my $oExcel = new Spreadsheet::ParseExcel;
  die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
  my $oBook = $oExcel-Parse($ARGV[0]);
  my($iR, $iC, $oWkS, $oWkC);
  print "FILE
  :", $oBook-{File} , "\n";
  print "COUNT :", $oBook-{SheetCount} , "\n";
  print "AUTHOR:", $oBook-{Author} , "\n"
  if defined $oBook-{Author};
  for(my $iSheet=0; $iSheet {SheetCount} ; $iSheet++)
  {
  $oWkS = $oBook-{Worksheet}[$iSheet];
  print "--------- SHEET:", $oWkS-{Name}, "\n";
  for(my $iR = $oWkS-{MinRow} ;
  defined $oWkS-{MaxRow} && $iR {MaxRow} ;
  $iR++)
  {
  for(my $iC = $oWkS-{MinCol} ;
  defined $oWkS-{MaxCol} && $iC {MaxCol} ;
  $iC++)
  {
  $oWkC = $oWkS-{Cells}[$iR][$iC];
  print "( $iR , $iC ) =", $oWkC-Value, "\n" if($oWkC);
  }
  }
  }
  ci shi li shi yong Excel 97 ce shi de 。 ru guo ta bu neng gong zuo , ze shi zhe jiang ta zhuan huan cheng Excel 97 ge shi 。Spreadsheet::ParseExcel de perldoc ye ye sheng cheng le Excel 95 he 2000 jian rong xing 。
  dian zi biao ge bei jie xi cheng yi ge ming wei $oBook de ding ji dui xiang 。$oBook ju you fu zhu cheng xu de te xing , li ru “File”、“SheetCount” he “Author”。 Spreadsheet::ParseExcel de perldoc ye de gong zuo bao yi jie zhong ji zai le zhe xie te xing 。
  gai gong zuo bao bao han ji ge gong zuo biao : tong guo shi yong gong zuo bao SheetCount te xing die dai ta men 。 mei ge gong zuo biao dou you yi ge MinRow he MinCol yi ji xiang ying de MaxRow he MaxCol te xing , ta men ke yi yong lai que ding gai gong zuo bao ke yi fang wen de fan wei 。Spreadsheet::ParseExcel perldoc ye de gong zuo biao yi jie zhong ji zai le zhe xie te xing 。
  ke yi tong guo Cell te xing cong gong zuo biao huo de dan yuan ; na jiu shi qing dan 3 zhong huo de $oWkC dui xiang de fang shi 。Spreadsheet::ParseExcel de perldoc ye de Cell yi jie zhong ji zai le Cell te xing 。 gen ju wen dang , si hu mei you yi zhong fang shi neng gou huo de te ding dan yuan zhong lie chu de gong shi 。
  Linux shi li : xie ru
  ben jie shi yong yu UNIX, te bie shi yong yu Linux。 mei you zai Windows zhong ce shi ta 。
  Spreadsheet::WriteExcel zai Examples mu lu zhong dai you xu duo shi li jiao ben , tong chang ke yi zai /usr/lib/perl5/site_perl/5.6.0/Spreadsheet/WriteExcel/examples xia zhao dao zhe xie jiao ben 。 ta ke neng bei an zhuang zai qi ta ge chu ; ru guo zhao bu dao na ge mu lu , qing yu nin de ben di Perl guan li yuan lian xi 。
  huai xiao xi shi Spreadsheet::WriteExcel wu fa yong yu xie ru xian you Excel wen jian 。 bi xu zi ji shi yong Spreadsheet::ParseExcel cong xian you Excel wen jian dao ru shu ju 。 hao xiao xi shi Spreadsheet::WriteExcel yu Excel 5 zhi zhi Excel 2000 jian rong 。
  zhe li you yi ge cheng xu , ta yan shi ru he cong yi ge Excel wen jian chou qu 、 xiu gai ( suo you shu zi dou cheng yi 2) shu ju yi ji jiang shu ju xie ru xin de Excel wen jian 。 zhi bao liu shu ju , bu bao liu ge shi he ren he te xing 。 gong shi bei diu qi 。
  xia zai excel-x2.pl
  qing dan 4:excel-x2.pl
  #!/usr/bin/perl -w
  use strict;
  use Spreadsheet::ParseExcel;
  use Spreadsheet::WriteExcel;
  use Data::Dumper;
  # cobbled together from examples for the Spreadsheet::ParseExcel and
  # Spreadsheet::WriteExcel modules
  my $sourcename = shift @ARGV;
  my $destname = shift @ARGV or die "invocation: $0 ";
  my $source_excel = new Spreadsheet::ParseExcel;
  my $source_book = $source_excel-Parse($sourcename)
  or die "Could not open source Excel file $sourcename: $!";
  my $storage_book;
  foreach my $source_sheet_number (0 .. $source_book-{SheetCount}-1)
  {
  my $source_sheet = $source_book-{Worksheet}[$source_sheet_number];
  print "--------- SHEET:", $source_sheet-{Name}, "\n";
  # sanity checking on the source file: rows and columns should be sensible
  next unless defined $source_sheet-{MaxRow};
  next unless $source_sheet-{MinRow}
  【原文】【汉音对照
 
 
 
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

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

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

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

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

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

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

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

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

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

 
 
  Spreadsheet::WriteExcel he Spreadsheet::ParseExcel    zai 2000 nian ,Takanori Kawai he John McNamara bian xie chu le Spreadsheet::WriteExcel he Spreadsheet::ParseExcel mo kuai bing jiang ta men zhang tie zai CPAN shang , zhe liang ge mo kuai shi de zai ren he ping tai shang cong Excel wen jian chou qu shu ju cheng wei ke neng ( jin guan bu rong yi )。    zheng ru wo men zai shao hou jiang kan dao de , ru guo nin zheng zai shi yong Windows,Win32::OLE reng ti gong yi ge geng jian dan 、 geng ke kao de jie jue fang an , bing qie Spreadsheet::WriteExcel mo kuai jian yi shi yong Win32::OLE lai jin xing geng qiang da de shu ju he gong zuo biao cao zong 。Win32::OLE dai you ActiveState Perl gong ju xiang , ke yi yong lai tong guo OLE qu dong xu duo qi ta Windows ying yong cheng xu 。 qing zhu yi , yao shi yong ci mo kuai , nin reng xu yao zai ji qi shang an zhuang he zhu ce yi ge Excel yin qing ( tong chang sui Excel ben shen an zhuang )。    xu yao jie xi Excel shu ju de ying yong cheng xu shu yi qian ji , dan shi zhe li you ji ge shi li : jiang Excel dao chu dao CSV、 yu cun chu zai gong xiang qu dong qi shang de dian zi biao ge jiao hu 、 jiang jin rong shu ju yi zhi shu ju ku yi bian xing cheng bao gao yi ji zai bu ti gong ren he qi ta ge shi de qing kuang xia fen xi shu ju 。    yao yan shi zhe li gei chu de shi li , bi xu zai nin de xi tong shang an zhuang Perl 5.6.0。 nin de xi tong zui hao shi zui jin (2000 nian huo yi hou ) de zhu liu UNIX an zhuang (Linux、Solaris he BSD)。 sui ran zhe xie shi li zai yi qian ban ben de Perl he UNXI yi ji qi ta cao zuo xi tong zhong ye ke yi shi yong , dan shi nin ying gai kao lv dao nin jiang mian dui na xie ta men wu fa zuo wei lian xi fa hui zuo yong de qing kuang 。   Windows shi li : jie xi    ben jie jin shi yong yu Windows ji qi 。 suo you qi ta ge jie shi yong yu Linux。    zai jin xing zhi qian , qing an zhuang ActiveState Perl( zhe li shi yong ban ben 628) huo ActiveState Komodo IDE yi bian ji he tiao shi Perl。Komodo wei jia ting yong hu ti gong yi ge mian fei xu ke zheng , nin da gai zai ji fen zhong zhi nei jiu ke yi de dao ta 。( you guan xia zai zhan dian , qing shen yue ben wen hou mian de shen kao zi liao 。)    shi yong ActiveState PPM ruan jian bao guan li qi an zhuang Spreadsheet::ParseExcel he Spreadsheet::WriteExcel mo kuai shi kun nan de 。PPM mei you li shi ji lu , nan yi she zhi xuan xiang , bang zhu hui gun chu ping mu bing qie que sheng fang shi shi hu lue xiang guan xing er an zhuang 。 nin ke yi cong ming ling xing shu ru “ppm” ran hou fa chu yi xia ming ling lai tiao yong PPM:    qing dan 1: an zhuang Excel mo kuai de PPM ming ling   ppm install OLE::Storage_Lite   ppm install Spreadsheet::ParseExcel   ppm install Spreadsheet::WriteExcel    zai zhe zhong qing kuang xia , gai mo kuai de an zhuang jiang shi bai , yin wei IO::Scalar huan bu ke yong , yin ci , nin ke neng xiang fang qi PPM wen ti de cha zhao , er zhuan xiang nei zhi de Win32::OLE mo kuai 。 ran er , zai nin yue du ben wen shi ,ActiveState ke neng yi jing fa bu le gai wen ti de xiu zheng 。    you le ActiveState de Win32::OLE, nin ke yi shi yong xia mian suo lie de dai ma zhu ge dan yuan di zhuan chu gong zuo biao :    xia zai win32excel.pl    qing dan 2:win32excel.pl   #!/usr/bin/perl -w   use strict;   use Win32::OLE qw(in with);   use Win32::OLE::Const 'Microsoft Excel';   $Win32::OLE::Warn = 3;   # die on errors...   # get already active Excel application or open new   my $Excel = Win32::OLE-GetActiveObject('Excel.Application')   || Win32::OLE-new('Excel.Application', 'Quit');   # open Excel file   my $Book = $Excel-Workbooks-Open("c:/komodo projects/test.xls");   # You can dynamically obtain the number of worksheets, rows, and columns   # through the Excel OLE interface.   Excel's Visual Basic Editor has more   # information on the Excel OLE interface.   Here we just use the first   # worksheet, rows 1 through 4 and columns 1 through 3.   # select worksheet number 1 (you can also select a worksheet by name)   my $Sheet = $Book-Worksheets(1);   foreach my $row (1..4)   {   foreach my $col (1..3)   {   # skip empty cells   next unless defined $Sheet-Cells($row,$col)-{'Value'};   # print out the contents of a cell   printf "At ($row, $col) the value is %s and the formula is %s\n",   $Sheet-Cells($row,$col)-{'Value'},   $Sheet-Cells($row,$col)-{'Formula'};   }   }   # clean up after ourselves   $Book-Close;    qing zhu yi , nin ke yi yong yi xia fang shi hen qing song di wei dan yuan fen pei zhi :   $sheet-Cells($row, $col)-{'Value'} = 1;   Linux shi li : jie xi    ben jie shi yong yu UNIX, te bie shi yong yu Linux。 mei you zai Windows zhong ce shi ta 。    hen nan gei chu yi ge bi Spreadsheet::ParseExcel mo kuai wen dang zhong suo ti gong de shi li geng hao de Linux jie xi shi li , yin ci wo jiang yan shi na ge shi li , ran hou jie shi qi gong zuo yuan li 。    xia zai parse-excel.pl    qing dan 3:parse-excel.pl   #!/usr/bin/perl -w   use strict;   use Spreadsheet::ParseExcel;   my $oExcel = new Spreadsheet::ParseExcel;   die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;   my $oBook = $oExcel-Parse($ARGV[0]);   my($iR, $iC, $oWkS, $oWkC);   print "FILE   :", $oBook-{File} , "\n";   print "COUNT :", $oBook-{SheetCount} , "\n";   print "AUTHOR:", $oBook-{Author} , "\n"   if defined $oBook-{Author};   for(my $iSheet=0; $iSheet {SheetCount} ; $iSheet++)   {   $oWkS = $oBook-{Worksheet}[$iSheet];   print "--------- SHEET:", $oWkS-{Name}, "\n";   for(my $iR = $oWkS-{MinRow} ;   defined $oWkS-{MaxRow} && $iR {MaxRow} ;   $iR++)   {   for(my $iC = $oWkS-{MinCol} ;   defined $oWkS-{MaxCol} && $iC {MaxCol} ;   $iC++)   {   $oWkC = $oWkS-{Cells}[$iR][$iC];   print "( $iR , $iC ) =", $oWkC-Value, "\n" if($oWkC);   }   }   }    ci shi li shi yong Excel 97 ce shi de 。 ru guo ta bu neng gong zuo , ze shi zhe jiang ta zhuan huan cheng Excel 97 ge shi 。Spreadsheet::ParseExcel de perldoc ye ye sheng cheng le Excel 95 he 2000 jian rong xing 。    dian zi biao ge bei jie xi cheng yi ge ming wei $oBook de ding ji dui xiang 。$oBook ju you fu zhu cheng xu de te xing , li ru “File”、“SheetCount” he “Author”。 Spreadsheet::ParseExcel de perldoc ye de gong zuo bao yi jie zhong ji zai le zhe xie te xing 。    gai gong zuo bao bao han ji ge gong zuo biao : tong guo shi yong gong zuo bao SheetCount te xing die dai ta men 。 mei ge gong zuo biao dou you yi ge MinRow he MinCol yi ji xiang ying de MaxRow he MaxCol te xing , ta men ke yi yong lai que ding gai gong zuo bao ke yi fang wen de fan wei 。Spreadsheet::ParseExcel perldoc ye de gong zuo biao yi jie zhong ji zai le zhe xie te xing 。    ke yi tong guo Cell te xing cong gong zuo biao huo de dan yuan ; na jiu shi qing dan 3 zhong huo de $oWkC dui xiang de fang shi 。Spreadsheet::ParseExcel de perldoc ye de Cell yi jie zhong ji zai le Cell te xing 。 gen ju wen dang , si hu mei you yi zhong fang shi neng gou huo de te ding dan yuan zhong lie chu de gong shi 。   Linux shi li : xie ru    ben jie shi yong yu UNIX, te bie shi yong yu Linux。 mei you zai Windows zhong ce shi ta 。   Spreadsheet::WriteExcel zai Examples mu lu zhong dai you xu duo shi li jiao ben , tong chang ke yi zai /usr/lib/perl5/site_perl/5.6.0/Spreadsheet/WriteExcel/examples xia zhao dao zhe xie jiao ben 。 ta ke neng bei an zhuang zai qi ta ge chu ; ru guo zhao bu dao na ge mu lu , qing yu nin de ben di Perl guan li yuan lian xi 。    huai xiao xi shi Spreadsheet::WriteExcel wu fa yong yu xie ru xian you Excel wen jian 。 bi xu zi ji shi yong Spreadsheet::ParseExcel cong xian you Excel wen jian dao ru shu ju 。 hao xiao xi shi Spreadsheet::WriteExcel yu Excel 5 zhi zhi Excel 2000 jian rong 。    zhe li you yi ge cheng xu , ta yan shi ru he cong yi ge Excel wen jian chou qu 、 xiu gai ( suo you shu zi dou cheng yi 2) shu ju yi ji jiang shu ju xie ru xin de Excel wen jian 。 zhi bao liu shu ju , bu bao liu ge shi he ren he te xing 。 gong shi bei diu qi 。    xia zai excel-x2.pl    qing dan 4:excel-x2.pl   #!/usr/bin/perl -w   use strict;   use Spreadsheet::ParseExcel;   use Spreadsheet::WriteExcel;   use Data::Dumper;   # cobbled together from examples for the Spreadsheet::ParseExcel and   # Spreadsheet::WriteExcel modules   my $sourcename = shift @ARGV;   my $destname = shift @ARGV or die "invocation: $0 ";   my $source_excel = new Spreadsheet::ParseExcel;   my $source_book = $source_excel-Parse($sourcename)   or die "Could not open source Excel file $sourcename: $!";   my $storage_book;   foreach my $source_sheet_number (0 .. $source_book-{SheetCount}-1)   {   my $source_sheet = $source_book-{Worksheet}[$source_sheet_number];   print "--------- SHEET:", $source_sheet-{Name}, "\n";   # sanity checking on the source file: rows and columns should be sensible   next unless defined $source_sheet-{MaxRow};   next unless $source_sheet-{MinRow}   
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
清凉一夏_清纯美丽
纯白色小礼服
靓丽可人儿_嘉嘉
我的女神_靓丽女生
主题摄影
贵州,让我欢喜,让我神伤。
莫干山
天平秋色
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有