function GetResNumber($BoardPath, $BoardID, $ThreadID)
{
$Subject = file_get_contents($BoardPath . "/" . $BoardID . "/subject.txt");
$ArraySubject = explode("\n", $Subject);
$Cnt = count($ArraySubject);
for ($i = 0; $i < $Cnt; $i++) {
$SubjectThreadName = GetDatName($ArraySubject[$i]);
if ($SubjectThreadName === $ThreadID . ".dat") {
$SubjectSplit = SubjectParse($ArraySubject[$i]);
return $SubjectSplit["Res"];
}
}
}
$Out->Set("board_index");
$BoardDiscription = file_get_contents($BoardPath . "/" . $BoardID . "/head.txt");
$ThreadList = "";
$ThreadData = "";
$Subject = file_get_contents($BoardPath . "/" . $BoardID . "/subject.txt", true);
$ArraySubject = explode("\n", $Subject);
$Cnt = count($ArraySubject);
for ($i = 0; $i < $Cnt; $i++) {
$SubjectData = SubjectParse($ArraySubject[$i]);
$ThreadID = str_replace(".dat", "", $SubjectData["Dat"]);
$num = $i + 1;
$ThreadList .= "\n\t\t\t\t\t\t<a href=\"../test/read.cgi/{$BoardID}/{$ThreadID}\" target=\"body\">{$num}:</a>\n";
$ThreadList .= "\n\t\t\t\t\t\t<a href=\"#{$num}\"> {$SubjectData["Title"]} ({$SubjectData["Res"]})</a>\n";
}
for ($i = 0; $i < $Cnt; $i++) {
$SubjectData = SubjectParse($ArraySubject[$i]);
$ThreadID = str_replace(".dat", "", $SubjectData["Dat"]);
$num = $i + 1;
$ThreadData .= <<<EOTS1
\t\t\t\t\t<dl class="thread">
\t\t\t\t\t\t<a name="{$num}"></a>
\t\t\t\t\t\t<b>【{$num}:{$SubjectData["Res"]}】<font size=5 color="#FF0000"> {$SubjectData["Title"]}</font></b>
EOTS1;
$ThreadDat = file_get_contents($BoardPath . "/" . $BoardID . "/dat/" . $ThreadID . ".dat");
$ArrayDats = explode("\n", $ThreadDat);
if ($ResCnt > $SubjectData["Res"]) {
$ResCnt = $SubjectData["Res"];
}
for ($t = 0; $t < $ResCnt; $t++) {
$ResNum = $t + 1;
