blob: 21d7e709af7e1b49a118c2522d66df53bba4108d (
plain)
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
|
<?php
function structure_change($keyval)
{
//$dir="./data/";
$dir="/tmp/bnw/";
$matfile=$dir.$keyval."varname.txt";
$namelist=file_get_contents("$matfile");
$matfilestruct=$dir.$keyval."structure_input.txt";
$list=file_get_contents("$matfilestruct");
$ft=$dir.$keyval."structure_input_new.txt";
$fp = fopen("$ft","w");
$str_arrname=array();
$str_arrname=explode("\n",$namelist);
$dataname=array();
$dataname=explode("\t",$str_arrname[0]);
$arrname=array();
$arrname=explode("\n",$list);
$cell_val=array();
$data_cell=array();
$name=explode("\t",$arrname[0]);
$i=0;
foreach($name as $name_cell)
{
$cell_val[$i]=1;
$name_cell=trim($name_cell);
foreach($dataname as $list_name)
{
$list_name=trim($list_name);
if($name_cell==$list_name)
{
//echo $name_cell;
$cell_val[$i]=0;
}
}
$i++;
}
$j=0;
if ($fp !== false) {
for($l=0;$l<=$i;$l++)
{
$line=$arrname[$l];
if($j==0)
{
fwrite($fp,$line);
}
else
{
$data_cell=explode("\t",$line);
for($k=0;$k<$i;$k++)
{
$cell_raw=$data_cell[$k] ?? 0;
$cell=(is_numeric($cell_raw) ? $cell_raw : 0)*$cell_val[$k];
fprintf($fp,"%s\t",$cell);
}
}
fprintf($fp,"\n");
$j++;
}
}
//return $matfilestruct;
}
?>
|
