| ■No9948に返信(グラさんの記事)
> > あ、つまり自分が投稿した内容を20文字投稿内容の場所で
> レスする度に見れるようにしたいんです。
> 現状ですと最初に投稿された方の投稿しか見れないですよね?
つまり、親記事のコメントではなく、
最新レス記事のコメントが表示されるようにしてほしいということですか?
これは結構難しいですね・・・
my %list; #←追加
foreach (0 .. $#lines) {
($namber,$date,$name,$email,$d_may,$comment,$url,
$font,$ico,$type) = split(/<>/,$lines[$_]);
if($type){if($date){$N[$type]++;}
if(!$list{$type}){$list{$type}=$comment;}#←追加
}
else{
if($d_may eq ""){$d_may="無題";}
if($list{$namber}){$comment=$list{$namber};}#←追加
$comment=~ s/<br>//g;
if(length($comment)>$com_max){...}
if($N[$namber] eq ""){$N[$namber]=0;} $Rno++; $PAH=$a_max*$K;
if($PAH < $Rno){$PAL="&page=$PAH$RLB"; $K++;}
#$List.="<a href=\"$CGI?mode=al2&namber=$namber&no=$no\">...\n";
$List.="<a href=\"$CGI?mode=al2&namber=$namber&no=$no\">....";
$list2.="$comment<br>\n";
}
if($Rno >= $KIJI && $KIJI){last;}
}
という感じでどうでしょうか?
この場合ツリー表示にしたときの一番下の記事のコメントが表示されます。
(...は省略)
|