程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> JAVA編程 >> 關於JAVA >> java經常使用對象類之Excel操作類及依附包下載

java經常使用對象類之Excel操作類及依附包下載

編輯:關於JAVA

java經常使用對象類之Excel操作類及依附包下載。本站提示廣大學習愛好者:(java經常使用對象類之Excel操作類及依附包下載)文章只能為提供參考,不一定能成為您想要的結果。以下是java經常使用對象類之Excel操作類及依附包下載正文


默許狀況下,很明顯都是用\n來辨別行,\n也被我們稱作為換行符。
當讀取序列時,按行來讀取時,就是以換行符為尺度。

讀取的strawberry1.gb的文件內容以下:
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
///
SOURCE plastid Fragaria vesca subsp. americana

第一個例子:默許情形

#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$record = <DNAFILENAME>;
print $record;


這個就是沒有任何的修改的情形,也就是默許的每次讀取一行,成果以下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012

假如我們對$/的值給轉變一下,依照我們文件的特點,我們先修改為$/=“///\n;


#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="///\n";
$record = <DNAFILENAME>;
print $record;


我們獲得的成果以下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
///

我們可以看到在這裡,這一行是以///為分隔符的,///以上的全部部門都被算作一行。

異樣不只是字符可以作為分隔符,字母也能夠,參加我們以how為分隔符,$/="how\n";


#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="how\n";
$record = <DNAFILENAME>;
print $record;


成果以下:
C:\Documents and Settings\Administrator>f:perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how

C:\Documents and Settings\Administrator>

異樣我們也能夠完整擯棄傳統意義上的行,例如,我們以例子中的第五行的ACCESSION為分隔符:


#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="ACCESSION";
$record = <DNAFILENAME>;
print $record;


成果以下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION
F:\>

再來看一個例子:以/\n為分隔符:


#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="/\n";
$record = <DNAFILENAME>;
print $record;


我們希冀的成果應當是配匹到第四行之前的內容為一行,然則成果能否如斯?
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//

F:\>

為何沒有婚配到第一個/ 呢?

其實這裡/這一行其實不是僅唯一一個/,而是還有其他的成份在這裡,我們把這一行完整刪除,然後從新只輸出一個/,我們再來婚配
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/

F:\>
此次就獲得准確的成果了。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved