forked from tiamo/spss
/
test_read.php
92 lines (87 loc) · 1.92 KB
/
test_read.php
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
<?php
header('Content-type:text/html;charset=cp1251');
require 'SPSSReader.php';
$SPSS = new SPSSReader('data.sav');
?>
<!DOCTYPE html>
<h2>Header</h2>
<table border="1" width="100%">
<?php foreach($SPSS->header as $key => $val): ?>
<tr>
<th><?=$key?></th>
<td><?=$val?></td>
</tr>
<?php endforeach; ?>
</table>
<h2>Variables view</h2>
<table border="1" width="100%">
<tr>
<th></th>
<th>Name</th>
<th>Type</th>
<th>Width</th>
<th>Decimals</th>
<th>Label</th>
<th>Values</th>
<th>Missing values</th>
<th>Align</th>
<th>Columns</th>
<th>Measure</th>
</tr>
<?php $i=0; foreach($SPSS->variables as $var): ?>
<?php
if ($var->isExtended) continue; // skip extended vars
$i++;
?>
<tr>
<td><?=$i?></td>
<td><?=isset($SPSS->extendedNames[$var->shortName]) ? $SPSS->extendedNames[$var->shortName] : $var->name?></td>
<td>
<?php
$type = $var->getPrintFormat();
echo $type[0];
?>
</td>
<td><?=$var->getWidth()?></td>
<td><?=$var->getDecimals()?></td>
<td><?=$var->getLabel()?></td>
<td>
<?php
foreach($var->valueLabels as $key => $val) {
echo $key .') '. $val . '<br/>';
}
?>
</td>
<td><?=$var->getMissingLabel()?></td>
<td><?=$var->getAlignmentLabel()?></td>
<td><?=$var->getColumns()?></td>
<td><?=$var->getMeasureLabel()?></td>
</tr>
<?php endforeach; ?>
</table>
<?php
$SPSS->loadData();
?>
<h2>Data view</h2>
<table border="1" width="100%">
<tr>
<th></th>
<?php foreach($SPSS->variables as $var): ?>
<?php
if ($var->isExtended) continue; // skip extended vars
?>
<th><?=$var->name?></th>
<?php endforeach; ?>
</tr>
<?php
for($case=0;$case<$SPSS->header->numberOfCases;$case++) {
echo '<tr>';
echo '<td>'.($case+1).'</td>';
foreach($SPSS->variables as $var) {
if ($var->isExtended) continue; // skip extended vars
echo '<td align="'.$var->getAlignmentLabel().'">'.($var->data[$case]==='NaN'?'.':$var->data[$case]).'</td>';
}
echo '</tr>';
}
?>
</table>