WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:フォント設定の書き込み場所がわからない

0:[投稿] 駆け出し [MAIL] [2003/01/29 12:01 ][環境:win98 CGI]

サンプルCGIのカスタマイズで、下記のような検索結果出力としていますが、どこで出力データのフォントの設定を書き込めば良いのかがわかりません。お手数ですが、ご回答いただければ幸いです。

(以下内容)
sub makeList
{
    my $bg = '';
    my @lists = ();
    my $i = 0;
    my $j = 0;
    my ($start, $row) = @_;
    my $end;
    
    unless (isNum($start)){ $start = 1; }
    $end = $start + $row - 1;
    if ($end > $hitNum){ $end = $hitNum; }
    push @lists, $start;
    push @lists, $end;
    
    for ($i = $start; $i <= $end; $i++){
        $bg = $htmlColors[$i%2];
        push @lists, "<tr>\n\t<td align='center' ";

        if ($method eq 'OR' && $isgraph){ push @lists, "rowspan='2'"; }

        push @lists, "bg$htmlColors[2]>\n<font $htmlColors[3]  class="textsmall">".$i."</font></td>\n";
        push @lists, "\t<td bg$bg>";
        push @lists, "\t<td bg$bg>$hits[$i - 1][0]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][6]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][3]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][4]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][5]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][8]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][10]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][11]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][12]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][13]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][14]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][15]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][16]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][17]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][18]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][19]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][20]</td>\n";
        push @lists, "\t<td bg$bg>$hits[$i - 1][21]</td>\n";
        push @lists, "</tr>\n";

        if ($method eq 'OR' && $isgraph){
            push @lists, "<tr>\n\t<td bg$bg align='center'>ヒット</td>";
            push @lists, "\t<td bg$bg colspan='6' valign='middle'>";
            push @lists, $graphTop.$graphMid x ($hits[$i - 1][23] - 1).$graphEnd;
            push @lists, " * $hits[$i - 1][23] *</td>\n</tr>\n";
        }
    }
    return @lists;
}
(以上内容)


1:[回答] gun [2003/01/29 13:30 ]

CGIを呼び出した際に出力されるHTML(ブラウザでソース表示)と見比べながら、
フォントを設定したい部分のコードを特定すれば良いのではないかと思います。

それをするにはまだ経験が足りないということならば、
"出力データ"では漠然としているので、
もっと具体的に質問内容を記述してみてください。


2:[完了] 駆け出し [MAIL] [2003/01/29 15:12 ]

こんにちは。早速の回答ありがとうございます。

ご指摘いただいた方法にて、試行錯誤してみたところ、
結果出力ファイルのフォント設定でうまくいきました。

お忙しいところ、本当にありがとうございました。

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World