モジュール:USA

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

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

詳細は「Template:USA」を参照

local p = {}

function p.main( frame )
  local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:USA', removeBlanks = false})

  local t0 = '[[ファイル:アメリカ合衆国の旗（国連サイズ）.png|25px|border]] ';

  local tt = args[1] or '';
  if tt == '' then
    return t0 ..'[[アメリカ合衆国]]'
  end

  if tt == '00' or tt == '旗' then
    return t0
  end

  local t1 = mw.ustring.lower(tt);

  local array_state = {
--[[1]]  { 'アラバマ州', 'アラバマ', '01', '1', 'al', 'ala', 'alabama' },
--[[2]]  { 'アラスカ州', 'アラスカ', '02', '2', 'ak', 'alaska' },
--[[3]]  { 'アリゾナ州', 'アリゾナ', '04', '4', 'az', 'ariz', 'arizona' },
--[[4]]  { 'アーカンソー州', 'アーカンソー', '05', '5', 'ar', 'ark', 'arkansas' },
--[[5]]  { 'カリフォルニア州', 'カリフォルニア', '06', '6', 'ca', 'calif', 'california' },
--[[6]]  { 'コロラド州', 'コロラド', '08', '8', 'ca', 'colo', 'colorado' },
--[[7]]  { 'コネチカット州', 'コネチカット', '09', '9', 'ct', 'conn', 'connecticut' },
--[[8]]  { 'デラウェア州', 'デラウェア', '10', 'de', 'del', 'delaware' },
--[[9]]  { 'ワシントンD.C.', 'ワシントンDC', 'コロンビア特別区', '11', 'dc' },
--[[10]] { 'フロリダ州', 'フロリダ', '12', 'fl', 'fla', 'florida' },
--[[11]] { 'ジョージア州', 'ジョージア', '13', 'ga', 'georgia' },
--[[12]] { 'ハワイ州', 'ハワイ', '15', 'hi', 'hawaii' },
--[[13]] { 'アイダホ州', 'アイダホ', '16', 'id', 'idaho' },
--[[14]] { 'イリノイ州', 'イリノイ', '17', 'il', 'ill', 'illinois' },
--[[15]] { 'インディアナ州', 'インディアナ', '18', 'in', 'ind', 'indiana' },
--[[16]] { 'アイオワ州', 'アイオワ', '19', 'ia', 'iowa' },
--[[17]] { 'カンザス州', 'カンザス', '20', 'ks', 'kans', 'kansas' },
--[[18]] { 'ケンタッキー州', 'ケンタッキー', '21', 'ky', 'ken', 'kentucky' },
--[[19]] { 'ルイジアナ州', 'ルイジアナ', '22', 'la', 'louisiana' },
--[[20]] { 'メイン州', 'メーン州', 'メイン', 'メーン', '23', 'me', 'maine' },
--[[21]] { 'メリーランド州', 'メリーランド', '24', 'md', 'maryland' },
--[[22]] { 'マサチューセッツ州', 'マサチューセッツ', '25', 'ma', 'mass', 'massachusetts' },
--[[23]] { 'ミシガン州', 'ミシガン', '26', 'mi', 'mich', 'michigan' },
--[[24]] { 'ミネソタ州', 'ミネソタ', '27', 'mn', 'minn', 'minnesota' },
--[[25]] { 'ミシシッピ州', 'ミシシッピ', '28', 'ms', 'miss', 'mississippi' },
--[[26]] { 'ミズーリ州', 'ミズーリ', '29', 'mo', 'missouri' },
--[[27]] { 'モンタナ州', 'モンタナ', '30', 'mt', 'mont', 'montana' },
--[[28]] { 'ネブラスカ州', 'ネブラスカ', '31', 'ne', 'nebr', 'nebraska' },
--[[29]] { 'ネバダ州', 'ネバダ', '32', 'nv', 'nev', 'nevada' },
--[[30]] { 'ニューハンプシャー州', 'ニューハンプシャー', '33', 'nv', 'new hampshire' },
--[[31]] { 'ニュージャージー州', 'ニュージャージー', '34', 'nj', 'new jersey' },
--[[32]] { 'ニューメキシコ州', 'ニューメキシコ', '35', 'nm', 'n mex', 'new mexico' },
--[[33]] { 'ニューヨーク州', 'ニューヨーク', '36', 'ny', 'n york', 'new york' },
--[[34]] { 'ノースカロライナ州', 'ノースカロライナ', '37', 'nc', 'n car', 'north carolina' },
--[[35]] { 'ノースダコタ州', 'ノースダコタ', '38', 'nd', 'n dak', 'north dakota' },
--[[36]] { 'オハイオ州', 'オハイオ', '39', 'oh', 'ohio' },
--[[37]] { 'オクラホマ州', 'オクラホマ', '40', 'ok', 'okla', 'oklahoma' },
--[[38]] { 'オレゴン州', 'オレゴン', '41', 'or', 'oreg', 'oregon' },
--[[39]] { 'ペンシルベニア州', 'ペンシルベニア', '42', 'pa', 'penn', 'pennsylvania' },
--[[40]] { 'ロードアイランド州', 'ロードアイランド', '44', 'ri', 'rhode island' },
--[[41]] { 'サウスカロライナ州', 'サウスカロライナ', '45', 'sc', 'south carolina' },
--[[42]] { 'サウスダコタ州', 'サウスダコタ', '46', 'sd', 's dak', 'south dakota' },
--[[43]] { 'テネシー州', 'テネシー', '47', 'tn', 'tenn', 'tennessee' },
--[[44]] { 'テキサス州', 'テキサス', '48', 'tx', 'tex', 'texas' },
--[[45]] { 'ユタ州', 'ユタ', '49', 'ut', 'Utah' },
--[[46]] { 'バーモント州', 'バーモント', '50', 'vt', 'vermont' },
--[[47]] { 'バージニア州', 'バージニア', '51', 'va', 'virg', 'virginia' },
--[[48]] { 'ワシントン州', 'ワシントン', '53', 'wa', 'wash', 'washington' },
--[[49]] { 'ウェストバージニア州', 'ウェストバージニア', '54', 'wv', 'w va', 'west virginia' },
--[[50]] { 'ウィスコンシン州', 'ウィスコンシン', '55', 'wi', 'wis', 'wisconsin' },
--[[51]] { 'ワイオミング州', 'ワイオミング', '56', 'wy', 'wyo', 'wyoming' }
  }

  for i = 1, 51 do
    for j = 1, #array_state[i] do
      if t1 == array_state[i][j] then
        return t0 ..'[[' ..array_state[i][1] ..']]'
      end
    end
  end

  local array_is = {
--[[1]]  { 'サモア', 'アメリカ領サモア', '60', 'american samoa' },
--[[2]]  { 'グアム', 'グアム島', '66', 'guam' },
--[[3]]  { '北マリアナ諸島自治連邦区', '北マリアナ諸島', '北マリアナ', '69', 'northern mariana' },
--[[4]]  { 'プエルトリコ自治連邦区', 'プエルトリコ', '72', 'puerto rico' },
--[[5]]  { 'ヴァージン諸島', 'アメリカ領ヴァージン諸島', 'アメリカ領バージン諸島', 'ヴァージン諸島', 'バージン諸島', 'バージン', '78', 'virgin' },
--[[6]]  { '小離島', '合衆国領小離島', 'ミッドウェー環礁', '74' },
--[[7]]  { 'ベーカー島', 'ベーカー', '81', 'baker' },
--[[8]]  { 'ハウランド島', 'ホーランド島', 'ハウランド', 'ホーランド', '84', 'howland' },
--[[9]]  { 'ジャーヴィス島', 'ジャービス島', 'ジャーヴィス', 'ジャービス', '86', 'jarvis' },
--[[10]] { 'ジョンストン環礁', 'ジョンストン島', '67', 'johnston' },
--[[11]] { 'キングマン岩礁', 'キングマン・リーフ', '89', 'kingman' },
--[[12]] { 'ミッドウェー島', 'ミッドウェー', '71', 'midway' },
--[[13]] { 'ナヴァッサ島', 'ナヴァッサ', '76', 'navassa' },
--[[14]] { 'パルミラ環礁', 'パルミラ', '95', 'palmyra' },
--[[15]] { 'ウェーク島', 'ウェーク', '79', 'wake' }
  }

  for k = 1, 15 do
    for m = 1, #array_is[k] do
      if t1 == array_is[k][m] then
        return t0 ..'[[アメリカ合衆国|米領]][[' ..array_is[k][1] ..']]'
      end
    end
  end

  return t0 ..'[[' ..tt ..']]';

end

return p
「https://enpedia.rxy.jp/w/index.php?title=モジュール:USA&oldid=67017」から取得