モジュール:画名説

出典: 謎の百科事典もどき『エンペディア(Enpedia)』
ナビゲーションに移動 検索に移動

この説明文は 『 モジュール:画名説/doc 』 から呼び出されています。

詳細は「Template:画像と名前と説明テーブル」を参照

local p = {}

function p.main( frame )
  local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:画像と名前と説明テーブル', removeBlanks = false})

  local bordercolor = args['bordercolor'] or '';
  if bordercolor == '' then
    bordercolor = '#aaf';
  end

  local name = '';
  local name_tmp = '';
  local file = '';
  local file_tmp = ''; 
  local text = '';
  local text_tmp = '';
  local line = '';
  local temp = '';

  -- 引数を配列に代入してline処理
  for i = 1, 100, 1 do -- 読み込みがなくなったら自動でループ抜ける判定あった気がするんだけど忘れた
    -- 成形行を空にする
    temp = '';

    -- 名称引数を読み込む
    
    name_tmp = '名称' ..i;
    name = args[name_tmp] or '';

    -- nameが空でないときのみ成形行を作る
    if name ~= '' then

      file_tmp = 'ファイル名' ..i
      file = args[file_tmp] or '';

      -- fileが空のとき画像募集中.pngを代入
      if file == '' then
        file = '画像募集中.png';
      end

      text_tmp = '説明' ..i;
      text = args[text_tmp] or '';

      temp = '<tr><td style="width: 150px; text-align: center; border: 2px solid ' ..bordercolor ..'"><div>[[ファイル:' ..file ..'|center|100px]]</div><div style="font-weight: bold;">' ..name ..'</div></td><td style="vertical-align: top; border: 2px solid ' ..bordercolor ..'; padding: 5px;">' ..text ..'</td></tr>';

      -- 成形行の中身をlineの末尾に追加
      line = line ..temp;
    else
      -- 名前欄が空ならループを抜ける
      break
    end

  end

  return '<table>' ..line ..'</table>'

end

return p