1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=x-euc-jp">
<title></title>
</head>
<body bgcolor="#00FFFF">
<pre>Speadsheet::ParseExcel.pm - 0.2405
by 繧ŵ (Hippo2000)
Changes
Υ⥸塼ϡޤСǤ
MicrosoftҤExcelեWindowsʳΥץåȥեǤ
Ф褦ˤ⥸塼Ǥ
ưǧ
DOS/V WindowsNT ver.4.0 Perl5.005
DOS/V TurboLinux ver.6.0 Perl5.005
Sun Sparc Solaris 2.6 Perl5.005
DOS/V Vine Linux 2.0 Perl5.005
Macintosh JPerlFreeBSDǤưƤȤݡȤƤޤ
¾δĶǼ¹Ԥ줿ϡƤ
ưƤưʤƤ⡢Ϥꤤޤ <(__)>
ñʳǧ(testǥ쥯ȥ
sampleǥ쥯ȥ˰ʲΥե뤬äƤޤ
sample.pl ñʥƥȥץȡSpreadsheet::ParseExcel::FmtDefaultѡ
sample_j.pl ñʥƥȥץȡSpreadsheet::ParseExcel::FmtJapanѡɤꤷƽϡ
res_sample sample.plμ¹Է
res_sample_jsample_j.plμ¹Է(euc)
dmpEx.pl : ExcelեƤɽSpreadsheet::ParseExcel::FmtDefaultѡ
dmpExj.pl : ExcelեƤɽSpreadsheet::ParseExcel::FmtJapanѡ
ñˤΥ⥸塼ưǧǤСdmpExj.plˤä
ꤷExcelեƤɽ뤳ȤǤޤ
ex.
# perl -I.. dmpExj.pl Excel/Test97.xls euc
-I..פϡƥǥ쥯ȥˤSpreadsheet::ParseExcel.pmѤ뤿˻ꤷޤ
Excel/Test97.xlsפоݤȤʤե̾
eucפϴϤȤʸɤǤeucsjisjisʤ
Jcode.pmƱǤ
ȡ
OLE::Storage_Liteȡ뤵Ƥɬפޤ
Spreadsheet::ParseExcel::FmtJapanѤ硢Jcode.pmɬפȤޤ¾Υ⥸塼ɬפȤޤ
Spreadsheet::ParseExcel::FmtJapan2Ѥ硢Jcode.pmUnicode::MapɬפȤޤ
PerlɸŪʥȡˤʤޤΥ⥸塼뼫ΤPerlΤߤǺƤΤǡԡǤưޤ</pre>
<pre> perl Makefile.PL
make
make test
make install (rootˤʤäơ
</pre>
<pre>FmtJapan2Τ</pre>
<pre> ¸ʸб뤿FmtJapan20.09Ʊޤ
Ѥ뤿ˤUnicode::Mapȡ뤹ۤʲμ礬ɬפˤʤޤ</pre>
<pre> (1) Ʊ"CP932Excel.map"Ŭڤʥǥ쥯ȥ˥ԡޤ</pre>
<pre> (2) "CP932Excel"ޥå̾Ȥɲä뤿ˡUnicode::MapؤˤREGISTRY˰ʲιԤɲäޤ
mapΥǥ쥯ȥ̾Ŭڤʥǥ쥯ȥ̾ˤƤ</pre>
<pre>name: CP932Excel
srcURL: $SrcUnicode/VENDORS/MICSFT/WINDOWS/CP932.TXT
src: $DestUnicode/VENDORS/MICSFT/WINDOWS/CP932.TXT
map: (ԡΥǥ쥯ȥ)/CP932Excel.map
# Don't remove this line</pre>
<pre>Ȥ
use strict;
use Spreadsheet::ParseExcel;
my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse('Excel/Test97.xls');
#ޤܸбǤ
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtJapan;
my $oExcel = new Spreadsheet::ParseExcel;
my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan->new(Code => 'euc'); #sjisjisʤɤΥ
my $oBook = $oExcel->Parse('Excel/Test97.xls', $oFmtJ);
</pre>
<pre> #μФ
my($iR, $iC, $oWkS, $oWkC);
print "FILE :", $oBook->{File} , "\n";
print "COUNT :", $oBook->{SheetCount} , "\n";
print "AUTHOR:", $oBook->{Author} , "\n";
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
$oWkS = $oBook->{Worksheet}[$iSheet];
print "--------- SHEET:", $oWkS->{Name}, "\n";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
}
}
}
Х</pre>
<pre>ǤäExce97 ǥ٥åѡ åȡפޤ
Hirofumi Morisada˴ադǤ
</pre>
<pre> Excel97/2000¸硢FmtJapanǤϵ¸ʸ()IʤɡˤˤʤäƤޤޤ
FmtJapan2ǤϰбƤĤǤ</pre>
<pre> ޤƥȤȤǤƤޤȤꤢưǤ礦 <(__)>
TurboLinux Version 6ǺƤΤǡ¾δĶǤɤʤΤȤƤⵤ
ʤޤ
SolarisǤưǧƤ餤ޤʤޤԶ礬ꤽǤ
ȡХݡȤԤƤޤ 繧ŵkwitknr@cpn.org
ʤ㤤ʤȡ
ƥȡ
ɥȤ
Ϥؤб (^_^) Spreadsheet::WriteExcelȤäƤΤ
줫ޤ뤴ȰĤƤͤϤޤ(^^)
ռ
Ⱦüʾ֤Ǽռ⤢äΤǤϤޤʲΥץࡢ
⥸塼ͤˤƤޤ
xlHtml
OLE::Storage
herbert (OLE::StorageƱġ
Spreadsheet::WriteExcel
SolarisΥǥХåȻϩवʤСΩޤǤ(cloudy˴ա
ǸˤExcel2000Υեޤ
Hirofumi MorisadaξʸΥХȯ뤳ȤǤޤ
ơExcel97ǥ٥åѡåȡפɤ⤢꤬Ȥޤ
¾ưХݡȤադǤ</pre>
</body>
</html>
|
