Mercurial > hgrepos > hgweb.cgi > skipweb
view archive/program/6hour/hospital_kensaku4.rb @ 3645:d2d89793be14
s/syuzai/shuzai/g completely
author | HIROSE Yuuji <yuuji@koeki-u.ac.jp> |
---|---|
date | Mon, 21 May 2018 10:19:01 +0900 |
parents | program/6hour/hospital_kensaku4.rb@ca7dc3493900 |
children |
line wrap: on
line source
#!/usr/bin/env ruby # coding: euc-jp require 'cgi' # CGI を使いますという宣言 c = CGI.new(:accept_charset => "EUC-JP") # CGI変数は HTML に使用する print "Content-type: text/html; charset=EUC-JP\n\n" # 日本語コードの定義 # CGIスクリプトから受け取った変数の対を、rbで使う変数に代入 chiiki = c["area"] jiyuu = c["word"] jiyuu2 = c["word2"] ka = Array.new ka[0] = c["naika"] ka[1] = c["sinryou"] ka[2] = c["seisin"] ka[3] = c["sinkei"] ka[4] = c["sinkeinaika"] ka[5] = c["kokyu"] ka[6] = c["syouka"] ka[7] = c["ityou"] ka[8] = c["junkan"] ka[9] = c["areru"] ka[10] = c["riumati"] ka[11] = c["syouni"] ka[12] = c["geka"] ka[13] = c["seikeigeka"] ka[14] = c["keisei"] ka[15] = c["biyou"] ka[16] = c["nousinkei"] ka[17] = c["kokyugeka"] ka[18] = c["sinzou"] ka[19] = c["syonigeka"] ka[20] = c["hihu"] ka[21] = c["hinyou"] ka[22] = c["seibyou"] ka[23] = c["koumon"] ka[24] = c["sanhujin"] ka[25] = c["sanka"] ka[26] = c["hujinka"] ka[27] = c["ganka"] ka[28] = c["jibiinkou"] ka[29] = c["kikansyoku"] ka[30] = c["rihabiri"] ka[31] = c["housya"] ka[32] = c["housyasindan"] ka[33] = c["housyatiryou"] ka[34] = c["masui"] ka[35] = c["sika"] ka[36] = c["kyousei"] ka[37] = c["syounisika"] ka[38] = c["sikakouku"] #p chiiki print("<html>\n") # HTMLの規定 print("<head>\n") # HTMLの設定 print("<link rel=\"stylesheet\" type=\"text/css\" href=\"hospitalkensaku.css\">\n") # cssの設定 printf("<title>%sの検索結果</title>\n",chiiki) # <title>の表示 print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン print("</head>\n") # HTMLの設定(閉) print("<body>\n") # HTMLの表示部分 print("<form method=\"POST\" action =\"hospitalkeka.rb\">\n") print("<h2>検索結果<img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></img></h2>\n") # <h1>の表示 print("<div class=\"center\">") printf("<h3>市町村:%s<br>\n",chiiki) # <p>の表示 printf("地域:%s<br>\n",jiyuu) # <p>の表 printf("病院名:%s</h3>\n",jiyuu2) # <p>の表 print("<p>選択した科:\n") for apply in ka printf("%s\n",apply) # <p>の表示 end print("<br><br>情報を見たい病院をチェックして検索ボタンを押して下さい。") print("</p>") if chiiki == "鶴岡市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("turuoka.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "酒田市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd><sub>%s</sub></dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("sakata.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "庄内町" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("syounai.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "三川町" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd><sub>%s</sub></dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("mikawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "遊佐町" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("yuza.dat","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "山形市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("yamagatashi.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "寒河江市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("sagae.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "上山市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("kaminoyama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "村山市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "天童市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("tendo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "東根市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("higasine.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "尾花沢市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("obanazawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "東村山郡" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("h_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "西村山郡" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("n_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "北村山郡" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("k_murayama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "新庄市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("sinjou.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "最上郡" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("mogami.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "米沢市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("yonezawa.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "長井市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("nagai.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "南陽市" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("nanyo.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "東置賜郡" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("h_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end elsif chiiki == "西置賜郡" for apply in ka if apply == "内科" print("<h1>内科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line # $1 = 病院名 # $2 = 住所 # $3 = 電話番号 # $4 = 診断日(午前) # $5 = 診断日(午後) # $6 = 休診日 # $7 = 科 kooumooku = $1 taaguu = $7 juusho = $2 if /:内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>\n") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心療内科" print("<h1>心療内科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心療内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "精神科" print("<h1>精神科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:精神科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経科" print("<h1>神経科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "神経内科" print("<h1>神経内科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:神経内科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器科" print("<h1>呼吸器科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "消化器科" print("<h1>消化器科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:消化器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "胃腸科" print("<h1>胃腸科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:胃腸科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "循環器科" print("<h1>循環器科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:循環器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "アレルギー科" print("<h1>アレルギー科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:アレルギー科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リウマチ科" print("<h1>リウマチ科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リウマチ科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児科" print("<h1>小児科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "外科" print("<h1>外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "整形外科" print("<h1>整形外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:整形外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "形成外科" print("<h1>形成外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:形成外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "美容外科" print("<h1>美容外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:美容外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "脳神経外科" print("<h1>脳神経外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:脳神経外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "呼吸器外科" print("<h1>呼吸器外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:呼吸器外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "心臓血管外科" print("<h1>心臓血管外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:心臓血管外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児外科" print("<h1>小児外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "皮膚科" print("<h1>皮膚科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:皮膚科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "泌尿器科" print("<h1>泌尿器科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:泌尿器科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "性病科" print("<h1>性病科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:性病科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "肛門科" print("<h1>肛門科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:肛門科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産婦人科" print("<h1>産婦人科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "産科" print("<h1>産科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:産科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "婦人科" print("<h1>婦人科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:婦人科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "眼科" print("<h1>眼科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:眼科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "耳鼻いんこう科" print("<h1>耳鼻いんこう科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:耳鼻いんこう科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "気管食道科" print("<h1>気管食道科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:気管食道科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "リハビリテーション科" print("<h1>リハビリテーション科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:リハビリテーション科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線科" print("<h1>放射線科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射診断科" print("<h1>放射診断科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射診断科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "放射線治療科" print("<h1>放射線治療科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:放射線治療科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "麻酔科" print("<h1>麻酔科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:麻酔科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科" print("<h1>歯科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "矯正歯科" print("<h1>矯正歯科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:矯正歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "小児歯科" print("<h1>小児歯科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:小児歯科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end if apply == "歯科口腔外科" print("<h1>歯科口腔外科</h1>") print("<dl>") i = 0 open("n_okitama.txt","r:euc-jp")do |yomu| while line = yomu.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line kooumooku = $1 taaguu = $7 juusho = $2 if /:歯科口腔外科:/e=~taaguu if /#{jiyuu}/=~juusho if /#{jiyuu2}/=~kooumooku printf("<dt><input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s\</dt>\n",kooumooku,juusho,kooumooku) printf("<dd>%s</dd>\n",juusho) print("-----------------------------------------------") print("<br>") i += 1 end end end end end if i == 0 print("<dt>見つかりません。</dt>\n") end end print("</dl>") end end end print("<p>") print("<input type =\"submit\" value= \"検索\">\n") print("</p>\n") print("</div>") print("</form>\n") print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> <a href=\"http://skip.koeki-prj.org/\">SKIP</a>") # 検索画面へのリンクの表示 print("<p>最長 6 時間</p>\n") # <p>の表示 print("</body>\n") # HTMLの表示部分(閉) print("</html>\n") # HTMLの規定(閉)