| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> perl >> 功能豐富的Perl:用Perl讀寫Excel文件
 

功能豐富的Perl:用Perl讀寫Excel文件

2008-05-19 06:25:55  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel

  在 2000 年,Takanori Kawai 和 John McNamara 編寫出了 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel 模塊並將它們張貼在 CPAN 上,這兩個模塊使得在任何平台上從 Excel 文件抽取數據成爲可能(盡管不容易)。

  正如我們在稍後將看到的,如果您正在使用 Windows,Win32::OLE 仍提供一個更簡單、更可靠的解決方案,並且 Spreadsheet::WriteExcel 模塊建議使用 Win32::OLE 來進行更強大的數據和工作表操縱。Win32::OLE 帶有 ActiveState Perl 工具箱,可以用來通過 OLE 驅動許多其它 Windows 應用程序。請注意,要使用此模塊,您仍需要在機器上安裝和注冊一個 Excel 引擎(通常隨 Excel 本身安裝)。

  需要解析 Excel 數據的應用程序數以千計,但是這裏有幾個示例:將 Excel 導出到 CSV、與存儲在共享驅動器上的電子表格交互、將金融數據移至數據庫以便形成報告以及在不提供任何其他格式的情況下分析數據。

  要演示這裏給出的示例,必須在您的系統上安裝 Perl 5.6.0。您的系統最好是最近(2000 年或以後)的主流 UNIX 安裝(Linux、Solaris 和 BSD)。雖然這些示例在以前版本的 Perl 和 UNXI 以及其他操作系統中也可以使用,但是您應該考慮到您將面對那些它們無法作爲練習發揮作用的情況。

  Windows 示例:解析

  本節僅適用于 Windows 機器。所有其它各節適用于 Linux。

  在進行之前,請安裝 ActiveState Perl(這裏使用版本 628)或 ActiveState Komodo IDE 以編輯和調試 Perl。Komodo 爲家庭用戶提供一個免費許可證,您大概在幾分鍾之內就可以得到它。(有關下載站點,請參閱本文後面的參考資料。)

  使用 ActiveState PPM 軟件包管理器安裝 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 模塊是困難的。PPM 沒有曆史記錄,難以設置選項,幫助會滾出屏幕並且缺省方式是忽略相關性而安裝。您可以從命令行輸入「ppm」然後發出以下命令來調用 PPM:

  清單 1:安裝 Excel 模塊的 PPM 命令

  ppm install OLE::Storage_Lite

  ppm install Spreadsheet::ParseExcel

  ppm install Spreadsheet::WriteExcel

  在這種情況下,該模塊的安裝將失敗,因爲 IO::Scalar 還不可用,因此,您可能想放棄 PPM 問題的查找,而轉向內置的 Win32::OLE 模塊。然而,在您閱讀本文時,ActiveState 可能已經發布了該問題的修正。

  有了 ActiveState 的 Win32::OLE,您可以使用下面所列的代碼逐個單元地轉儲工作表:

  下載 win32excel.pl

  清單 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;

  請注意,您可以用以下方式很輕松地爲單元分配值:

  $sheet-Cells($row, $col)-{'Value'} = 1;

  Linux 示例:解析

  本節適用于 UNIX,特別適用于 Linux。沒有在 Windows 中測試它。

  很難給出一個比 Spreadsheet::ParseExcel 模塊文檔中所提供的示例更好的 Linux 解析示例,因此我將演示那個示例,然後解釋其工作原理。

  下載 parse-excel.pl

  清單 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);

  }

  }

  }

  此示例是用 Excel 97 測試的。如果它不能工作,則試著將它轉換成 Excel 97 格式。Spreadsheet::ParseExcel 的 perldoc 頁也聲稱了 Excel 95 和 2000 兼容性。

  電子表格被解析成一個名爲 $oBook 的頂級對象。$oBook 具有輔助程序的特性,例如「File」、「SheetCount」和「Author」。 Spreadsheet::ParseExcel 的 perldoc 頁的工作簿一節中記載了這些特性。

  該工作簿包含幾個工作表:通過使用工作簿 SheetCount 特性叠代它們。每個工作表都有一個 MinRow 和 MinCol 以及相應的 MaxRow 和 MaxCol 特性,它們可以用來確定該工作簿可以訪問的範圍。Spreadsheet::ParseExcel perldoc 頁的工作表一節中記載了這些特性。

  可以通過 Cell 特性從工作表獲得單元;那就是清單 3 中獲得 $oWkC 對象的方式。Spreadsheet::ParseExcel 的 perldoc 頁的 Cell 一節中記載了 Cell 特性。根據文檔,似乎沒有一種方式能夠獲得特定單元中列出的公式。

  Linux 示例:寫入

  本節適用于 UNIX,特別適用于 Linux。沒有在 Windows 中測試它。

  Spreadsheet::WriteExcel 在 Examples 目錄中帶有許多示例腳本,通常可以在 /usr/lib/perl5/site_perl/5.6.0/Spreadsheet/WriteExcel/examples 下找到這些腳本。它可能被安裝在其它各處;如果找不到那個目錄,請與您的本地 Perl 管理員聯系。

  壞消息是 Spreadsheet::WriteExcel 無法用于寫入現有 Excel 文件。必須自己使用 Spreadsheet::ParseExcel 從現有 Excel 文件導入數據。好消息是 Spreadsheet::WriteExcel 與 Excel 5 直至 Excel 2000 兼容。

  這裏有一個程序,它演示如何從一個 Excel 文件抽取、修改(所有數字都乘以 2)數據以及將數據寫入新的 Excel 文件。只保留數據,不保留格式和任何特性。公式被丟棄。

  下載 excel-x2.pl

  清單 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}

  
 
 
 
上一篇《功能豐富的Perl:Perl用于實現遺傳算法》
下一篇《功能豐富的Perl:編寫說英語的Perl程序》
 
 
 
 
 
 
日版寵物情人插曲《Winding Road》歌詞

日版寵物情人2017的插曲,很帶節奏感,日語的,女生唱的。 最後聽見是在第8集的時候女主手割傷了,然後男主用嘴幫她吸了一下,插曲就出來了。 歌手:Def...

兄弟共妻,我成了他們夜裏的美食

老鍾家的兩個兒子很特別,就是跟其他的人不太一樣,魔一般的執著。兄弟倆都到了要結婚的年齡了,不管自家老爹怎麽磨破嘴皮子,兄弟倆說不娶就不娶,老父母爲兄弟兩操碎了心...

如何磨出破洞牛仔褲?牛仔褲怎麽剪破洞?

把牛仔褲磨出有線的破洞 1、具體工具就是磨腳石,下面墊一個硬物,然後用磨腳石一直磨一直磨,到把那塊磨薄了,用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...

我就是掃描下圖得到了敬業福和愛國福

先來看下敬業福和愛國福 今年春節,支付寶再次推出了“五福紅包”活動,表示要“把欠大家的敬業福都還給大家”。 今天該活動正式啓動,和去年一樣,需要收集“五福”...

冰箱異味産生的原因和臭味去除的方法

有時候我們打開冰箱就會聞到一股異味,冰箱裏的這種異味是因爲一些物質發出的氣味的混合體,聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。 1、很多人有這種習...

《極品家丁》1-31集大結局分集劇情介紹

簡介 《極品家丁》講述了現代白領林晚榮無意回到古代金陵,並追隨蕭二小姐化名“林三”進入蕭府,不料卻陰差陽錯上演了一出低級家丁拼搏上位的“林三升職記”。...

李溪芮《極品家丁》片尾曲《你就是我最愛的寶寶》歌詞

你就是我最愛的寶寶 - 李溪芮 (電視劇《極品家丁》片尾曲) 作詞:常馨內 作曲:常馨內 你的眉 又鬼馬的挑 你的嘴 又壞壞的笑 上一秒吵鬧 下...

烏梅的功效與作用以及烏梅的食用禁忌有哪些?

烏梅,又稱春梅,中醫認爲,烏梅味酸,性溫,無毒,具有安心、除熱、下氣、祛痰、止渴調中、殺蟲的功效,治肢體痛、肺痨病。烏梅泡水喝能治傷寒煩熱、止吐瀉,與幹姜一起制...

什麽是脂肪粒?如何消除臉部脂肪粒?

什麽是脂肪粒 在我們的臉上總會長一個個像脂肪的小顆粒,弄也弄不掉,而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘,它就是脂肪粒。 脂肪粒雖然也是由油脂...

網絡安全治理:國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰受害者

來源:中國青年報 新的攻擊方法不斷湧現,黑客幾乎永遠占據網絡攻擊的上風,我們不可能通過技術手段杜絕網絡攻擊。國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰...

河南夫妻在溫嶺網絡直播“造人”內容涉黃被刑事拘留

夫妻網絡直播“造人”爆紅   1月9日,溫嶺城北派出所接到南京警方的協查通告,他們近期打掉了一個涉黃直播APP平台。而根據掌握的線索,其中有一對涉案的夫妻主播...

如何防止牆紙老化?牆紙變舊變黃怎麽辦?

如何防止牆紙老化? (1)選擇透氣性好的牆紙 市場上牆紙的材質分無紡布的、木纖維的、PVC的、玻璃纖維基材的、布面的等,相對而言,PVC材質的牆紙最不透氣...

鮮肌之謎非日本生産VS鮮肌之謎假日貨是謠言

觀點一:破日本銷售量的“鮮肌之謎” 非日本生産 近一段時間,淘寶上架了一款名爲“鮮肌之謎的” 鲑魚卵巢美容液,號稱是最近日本的一款推出的全新護膚品,産品本身所...

中國最美古詩詞精選摘抄

系腰裙(北宋詞人 張先) 惜霜蟾照夜雲天,朦胧影、畫勾闌。人情縱似長情月,算一年年。又能得、幾番圓。 欲寄西江題葉字,流不到、五亭前。東池始有荷新綠,尚小如...

關于女人的經典語句

關于女人的經典語句1、【做一個獨立的女人】 思想獨立:有主見、有自己的人生觀、價值觀。有上進心,永遠不放棄自己的理想,做一份自己喜愛的事業,擁有快樂和成就...

未來我們可以和性愛機器人結婚嗎?

你想體驗機器人性愛嗎?你想和性愛機器人結婚嗎?如果你想,機器人有拒絕你的權利嗎? 近日,第二屆“國際人類-機器人性愛研討會”大會在倫敦金史密斯大學落下帷幕。而...

全球最變態的十個地方

10.土耳其地下洞穴城市 變態指數:★★☆☆☆ 這是土耳其卡帕多西亞的一個著名景點,傳說是當年基督教徒們爲了躲避戰爭而在此修建。裏面曾住著20000人,...

科學家稱,人類死亡後意識將在另外一個宇宙中繼續存活

據英國《每日快報》報道,一位科學家兼理論家Robert Lanza博士宣稱,世界上並不存在人類死亡,死亡的只是身體。他認爲我們的意識借助我們體內的能量生存,而且...

《屏裏狐》片頭曲《我愛狐狸精》歌詞是什麽?

《我愛狐狸精》 - 劉馨棋   (電視劇《屏裏狐》主題曲)   作詞:金十三&李旦   作曲:劉嘉   狐狸精 狐狸仙   千年修...

 
 
 
  Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel   在 2000 年,Takanori Kawai 和 John McNamara 編寫出了 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel 模塊並將它們張貼在 CPAN 上,這兩個模塊使得在任何平台上從 Excel 文件抽取數據成爲可能(盡管不容易)。   正如我們在稍後將看到的,如果您正在使用 Windows,Win32::OLE 仍提供一個更簡單、更可靠的解決方案,並且 Spreadsheet::WriteExcel 模塊建議使用 Win32::OLE 來進行更強大的數據和工作表操縱。Win32::OLE 帶有 ActiveState Perl 工具箱,可以用來通過 OLE 驅動許多其它 Windows 應用程序。請注意,要使用此模塊,您仍需要在機器上安裝和注冊一個 Excel 引擎(通常隨 Excel 本身安裝)。   需要解析 Excel 數據的應用程序數以千計,但是這裏有幾個示例:將 Excel 導出到 CSV、與存儲在共享驅動器上的電子表格交互、將金融數據移至數據庫以便形成報告以及在不提供任何其他格式的情況下分析數據。   要演示這裏給出的示例,必須在您的系統上安裝 Perl 5.6.0。您的系統最好是最近(2000 年或以後)的主流 UNIX 安裝(Linux、Solaris 和 BSD)。雖然這些示例在以前版本的 Perl 和 UNXI 以及其他操作系統中也可以使用,但是您應該考慮到您將面對那些它們無法作爲練習發揮作用的情況。   Windows 示例:解析   本節僅適用于 Windows 機器。所有其它各節適用于 Linux。   在進行之前,請安裝 ActiveState Perl(這裏使用版本 628)或 ActiveState Komodo IDE 以編輯和調試 Perl。Komodo 爲家庭用戶提供一個免費許可證,您大概在幾分鍾之內就可以得到它。(有關下載站點,請參閱本文後面的參考資料。)   使用 ActiveState PPM 軟件包管理器安裝 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 模塊是困難的。PPM 沒有曆史記錄,難以設置選項,幫助會滾出屏幕並且缺省方式是忽略相關性而安裝。您可以從命令行輸入「ppm」然後發出以下命令來調用 PPM:   清單 1:安裝 Excel 模塊的 PPM 命令   ppm install OLE::Storage_Lite   ppm install Spreadsheet::ParseExcel   ppm install Spreadsheet::WriteExcel   在這種情況下,該模塊的安裝將失敗,因爲 IO::Scalar 還不可用,因此,您可能想放棄 PPM 問題的查找,而轉向內置的 Win32::OLE 模塊。然而,在您閱讀本文時,ActiveState 可能已經發布了該問題的修正。   有了 ActiveState 的 Win32::OLE,您可以使用下面所列的代碼逐個單元地轉儲工作表:   下載 win32excel.pl   清單 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;   請注意,您可以用以下方式很輕松地爲單元分配值:   $sheet-Cells($row, $col)-{'Value'} = 1;   Linux 示例:解析   本節適用于 UNIX,特別適用于 Linux。沒有在 Windows 中測試它。   很難給出一個比 Spreadsheet::ParseExcel 模塊文檔中所提供的示例更好的 Linux 解析示例,因此我將演示那個示例,然後解釋其工作原理。   下載 parse-excel.pl   清單 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);   }   }   }   此示例是用 Excel 97 測試的。如果它不能工作,則試著將它轉換成 Excel 97 格式。Spreadsheet::ParseExcel 的 perldoc 頁也聲稱了 Excel 95 和 2000 兼容性。   電子表格被解析成一個名爲 $oBook 的頂級對象。$oBook 具有輔助程序的特性,例如「File」、「SheetCount」和「Author」。 Spreadsheet::ParseExcel 的 perldoc 頁的工作簿一節中記載了這些特性。   該工作簿包含幾個工作表:通過使用工作簿 SheetCount 特性叠代它們。每個工作表都有一個 MinRow 和 MinCol 以及相應的 MaxRow 和 MaxCol 特性,它們可以用來確定該工作簿可以訪問的範圍。Spreadsheet::ParseExcel perldoc 頁的工作表一節中記載了這些特性。   可以通過 Cell 特性從工作表獲得單元;那就是清單 3 中獲得 $oWkC 對象的方式。Spreadsheet::ParseExcel 的 perldoc 頁的 Cell 一節中記載了 Cell 特性。根據文檔,似乎沒有一種方式能夠獲得特定單元中列出的公式。   Linux 示例:寫入   本節適用于 UNIX,特別適用于 Linux。沒有在 Windows 中測試它。   Spreadsheet::WriteExcel 在 Examples 目錄中帶有許多示例腳本,通常可以在 /usr/lib/perl5/site_perl/5.6.0/Spreadsheet/WriteExcel/examples 下找到這些腳本。它可能被安裝在其它各處;如果找不到那個目錄,請與您的本地 Perl 管理員聯系。   壞消息是 Spreadsheet::WriteExcel 無法用于寫入現有 Excel 文件。必須自己使用 Spreadsheet::ParseExcel 從現有 Excel 文件導入數據。好消息是 Spreadsheet::WriteExcel 與 Excel 5 直至 Excel 2000 兼容。   這裏有一個程序,它演示如何從一個 Excel 文件抽取、修改(所有數字都乘以 2)數據以及將數據寫入新的 Excel 文件。只保留數據,不保留格式和任何特性。公式被丟棄。   下載 excel-x2.pl   清單 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}   
󰈣󰈤
 
 
 
  免責聲明:本文僅代表作者個人觀點,與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
 
小龍女彤彤之情溢皇都
龔潔
智能手機形象美女
崔潔彤
回家的路上----
中國一站(哈爾濱)
清明植物園的花。
桃花堤印象之豎版
 
>>返回首頁<<
 
 
 
 熱帖排行
 
 
 
 
© 2005- 王朝網路 版權所有