Mercurial > hgrepos > hgweb.cgi > skipweb
changeset 1889:32c23e395524
Merged
| author | KAMADA Kei <c110206@f.koeki-u.ac.jp> |
|---|---|
| date | Fri, 15 Feb 2013 14:27:24 +0900 |
| parents | 18671520ac60 (current diff) 2871a3b9273d (diff) |
| children | b5194bbc9fba |
| files | .htaccess .htaccess.orig bus_cgi/.htaccess bus_cgi/bus.rb bus_cgi/bus1.rb bus_cgi/ruru.css bus_cgi/top.html |
| diffstat | 161 files changed, 50397 insertions(+), 327 deletions(-) [+] |
line wrap: on
line diff
--- a/.htaccess Thu Feb 14 21:39:18 2013 +0900 +++ b/.htaccess Fri Feb 15 14:27:24 2013 +0900 @@ -1,4 +1,1 @@ -<<<<<<< local -AddType "text/html; charset=euc-jp" .html======= -AddHandler cgi-script .rb -Options +ExecCGI>>>>>>> other +AddType "text/html; charset=euc-jp" .html
--- a/.htaccess.orig Thu Feb 14 21:39:18 2013 +0900 +++ b/.htaccess.orig Fri Feb 15 14:27:24 2013 +0900 @@ -1,1 +1,4 @@ -AddType "text/html; charset=euc-jp" .html \ No newline at end of file +<<<<<<< local +AddType "text/html; charset=euc-jp" .html======= +AddHandler cgi-script .rb +Options +ExecCGI>>>>>>> other
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/.htaccess Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,2 @@ +AddHandler cgi-script .rb +Options +ExecCGI
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/arerugika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,34 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>アレルギー科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_arerugika.png" width="300" height="90" +alt="アレルギー科"></img> +<br><br> +<table border=1 align=center> + +<tr><th>特長</th> +<th>皮膚科と呼吸科にまたがって、アレルギーだけを扱う</th></tr> + +<tr><th>主な症状</th> +<th>湿疹が出る 肌が痒い</th></tr> + +<tr><th>主な病気</th> +<th>アレルギー性結膜炎 ぜんそく</th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/biyougeka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,34 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>美容外科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_biyougeka.png" width="300" height="90" +alt="美容外科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>眼、鼻、顔面、皮膚などについて、<br> + これに起因する精神的負担の軽減、除去効果も考慮し、<br> + この形状をより美的に形成する</th></tr> + +<tr><th>主な処置</th> +<th>豊胸 美容整形 脂肪吸引 永久脱毛 + </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/ganka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,38 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>眼科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src"=chara_gannka.png" width="300" height="90" +alt="眼科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>目に関する病気の診療</th></tr> + +<tr><th>主な症状</th> +<th>視力が落ちた モノがみえずらい<br> + 視野が狭くなった 充血 乾き 疲れ<br> + 痛み 違和感 まぶたの腫れ + </th></tr> + +<tr><th>主な病気</th> +<th>白内障 ドライアイ 網膜はく離<br> + 緑内障 アレルギー性結膜炎 </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/geka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>外科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_geka.png" width="300" height="90" +alt="外科"></img> +<br><br> +<table border=1 align=center> + +<tr><th>特長</th> +<th>手術によって治療を行う</th></tr> + +<tr><th>主な症状</th> +<th> 外傷 腫瘍 炎症<br> + （体のあらゆる部位・臓器にわたる）<br> + </th></tr> + +<tr><th>主な病気</th> +<th>肝血管腫 漏斗胸 </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/h_murayama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,26 @@ +鈴木医院 山形県東村山郡山辺町山辺1068 0236645345 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:消化器科:胃腸科:泌尿器科: +やまのべ整形外科 山形県東村山郡山辺町山辺1258-13 0236658900 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +和敬会クリニック 山形県東村山郡山辺町山辺265 0236645178 月,火,水,木,金,土 火,水,木,金,土 日,祝 :内科:外科:リハビリテーション科:麻酔科: +伊東医院 山形県東村山郡山辺町山辺310-1 0236645025 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +緑ケ丘歯科クリニック 山形県東村山郡山辺町大字山辺1636-5 0236749041 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +ひでたま胃腸科眼科クリニック 山形県東村山郡山辺町山辺6139-6 0236658876 月,火,木,金,土 月,火,木,金 水,日,祝 :内科:消化器科:胃腸科:眼科: +やまのべ耳鼻咽喉科 山形県東村山郡山辺町大字山辺1115-7 0236658877 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: +内野歯科医院 山形県東村山郡山辺町大字山辺3035-1 0236646411 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +佐藤歯科医院 山形県東村山郡山辺町大字山辺1269-5 0236647984 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科: +高橋歯科医院 山形県東村山郡山辺町大字山辺21-5 0236648217 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: +山辺こどもクリニック 山形県東村山郡山辺町山辺2908-14 0236648488 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +やまのべ藤田クリニック 山形県東村山郡山辺町大塚823-1 0236657003 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:神経内科:脳神経外科:整形外科:リハビリテーション科: +クリニックメルヘン 山形県東村山郡山辺町大寺1152-4 0236670088 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:アレルギー科:脳神経外科:整形外科:リハビリテーション科: +笠原クリニック中診療所 山形県東村山郡山辺町大字大蕨1223 0236662777 不定期 不定期 不定期 :内科: +横山歯科医院 山形県東村山郡山辺町山辺2925-1 0236646000 不定期 不定期 不定期 :歯科: +武田歯科医院 山形県東村山郡山辺町北垣2 0236646005 不定期 不定期 不定期 :歯科: +秋葉医院 山形県東村山郡中山町大字長崎303-8 0236631000 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:消化器科: +至誠堂病院付属中山診療所 山形県東村山郡中山町大字長崎字新町3030-1 0236625011 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:小児科:皮膚科:眼科: +たかはし元気クリニック 山形県東村山郡中山町大字小塩1284-5 0236633575 月,火,水,木,金 月,火,水,木,金 土,日,祝 :整形外科:リウマチ科:リハビリテーション科: +服部内科胃腸科医院 山形県東村山郡中山町大字長崎4170-1 0236622272 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +しぶや歯科医院 山形県東村山郡中山町あおば14-4 0236794862 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +東海林歯科医院 山形県東村山郡中山町大字長崎326 0236622122 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +安藤内科医院 山形県東村山郡中山町長崎1144-1 0236625580 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:消化器科: +大森歯科医院 山形県東村山郡中山町長崎4665-10 0236623335 不定期 不定期 不定期 :歯科: +安達歯科医院 山形県東村山郡中山町長崎3005 0236623535 不定期 不定期 不定期 :歯科: +大坪歯科医院 山形県東村山郡中山町長崎144 0236622121 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/h_okitama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,68 @@ +むらかみ歯科医院 山形県東置賜郡高畠町大字高畠北目2152-85 0238524855 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +千葉歯科医院 山形県東置賜郡高畠町福沢南17-1 0238574618 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:矯正歯科: +石井ファミリークリニック 山形県東置賜郡高畠町大字相森57-13 0238511225 月,火,水,木,金,土 月,火,木,金 日,祝 :小児科:内科:アレルギー科: +高畠歯科クリニック 山形県東置賜郡高畠町大字上平柳2099-2 0238580814 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科: +公立高畠病院 山形県東置賜郡高畠町高畠386 0238521500 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:神経内科:呼吸器科:消化器科:腎臓内科:整形外科:皮膚科:泌尿器科:婦人科:内分泌内科:糖尿病内科:眼科: +宮田医院 山形県東置賜郡高畠町福沢163-1 0238574350 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:婦人科:歯科: +久保田整形外科医院 山形県東置賜郡高畠町大字相森63-1 0238522711 月,火,水,木,金,土 月,火,水,木,金 日,祝 :整形外科: +金子医院 山形県東置賜郡高畠町大字高畠1135-2 0238521100 月,火,水,金,土 月,火,水,金 日,祝 :内科:神経内科:小児科:皮膚科: +いからし内科クリニック 山形県東置賜郡高畠町福沢南11-4 0238575777 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科: +八木歯科医院 山形県東置賜郡高畠町高畠1482 0238520117 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:矯正歯科: +まつはし内科胃腸科クリニック 山形県東置賜郡高畠町大字高畠276-8 0238510630 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:胃腸科: +相田医院 山形県東置賜郡高畠町糠野目1490-1 0238574025 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:精神科: +かすかわ醫院 山形県東置賜郡高畠町大字高畠526-3 0238524288 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:漢方内科:外科:肛門外科: +増渕歯科医院 山形県東置賜郡高畠町827 0238520014 不定期 不定期 不定期 :歯科: +千葉医院 山形県東置賜郡高畠町大字高畠1574 0238520565 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科: +北野歯科医院 山形県東置賜郡高畠町高畠字弥生町414-11 0238524806 不定期 不定期 不定期 :歯科: +桜井英雄歯科診療所 山形県東置賜郡高畠町福沢81-2 0238573211 不定期 不定期 不定期 :歯科: +土屋歯科医院 山形県東置賜郡高畠町高畠字弥生町422-7 0238520464 不定期 不定期 不定期 :歯科: +公立置賜総合病院 山形県東置賜郡川西町大字西大塚2000 0238465000 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:精神科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:腎臓内科:循環器科:心臓血管外科:小児科:整形外科:皮膚科:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科口腔外科:麻酔科: +川西湖山病院 山形県東置賜郡川西町下奥田3796-20 0238542100 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:整形外科: +斎藤内科循環器科クリニック 山形県東置賜郡川西町上小松1068-6 0238465539 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科:小児科: +公立置賜川西診療所 山形県東置賜郡川西町上小松2918-2 0238422151 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:小児科:整形外科:リハビリテーション科: +柄沢医院 山形県東置賜郡川西町大字中小松2215-1 0238422222 月,火,水,木,金,土 月,火,水,木,土 日,祝 :内科:消化器科: +松岸歯科医院 山形県東置賜郡川西町中小松2832-3 0238463563 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科: +舩山歯科医院 山形県東置賜郡川西町上小松3134 0238423057 不定期 不定期 不定期 :歯科: +加藤歯科医院 山形県東置賜郡川西町上小松1468 0238462322 不定期 不定期 不定期 :歯科: +長十歯科医院 山形県東置賜郡川西町上小松1517-2 0238425152 不定期 不定期 不定期 :歯科: +樋口歯科萩生分院 山形県東置賜郡川西町小松1751-3 0238422312 不定期 不定期 不定期 :歯科: +黒沢医院 山形県東置賜郡川西町堀金388 0238422420 不定期 不定期 不定期 :内科:外科:神経科:脳神経外科: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hifuka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,36 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>皮膚科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_hihuka.png" width="300" height="90" +alt="皮膚科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>皮膚・口腔・爪・髪の毛などの疾患を対象として診療する</th></tr> + +<tr><th>主な症状</th> +<th>肌がぶつぶつする 肌荒れ 肌のかゆみ</th></tr> + +<tr><th>主な病気</th> +<th>アトピー性皮膚炎 皮膚炎 あせも + にきび 水虫 + </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/higamurayama_yamanobe.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,26 @@ +鈴木医院 山形県東村山郡山辺町山辺1068 0236645345 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:消化器科:胃腸科:泌尿器科: +やまのべ整形外科 山形県東村山郡山辺町山辺1258-13 0236658900 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +和敬会クリニック 山形県東村山郡山辺町山辺265 0236645178 月,火,水,木,金,土 火,水,木,金,土 日,祝 :内科:外科:リハビリテーション科:麻酔科: +伊東医院 山形県東村山郡山辺町山辺310-1 0236645025 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +緑ケ丘歯科クリニック 山形県東村山郡山辺町大字山辺1636-5 0236749041 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +ひでたま胃腸科眼科クリニック 山形県東村山郡山辺町山辺6139-6 0236658876 月,火,木,金,土 月,火,木,金 水,日,祝 :内科:消化器科:胃腸科:眼科: +やまのべ耳鼻咽喉科 山形県東村山郡山辺町大字山辺1115-7 0236658877 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: +内野歯科医院 山形県東村山郡山辺町大字山辺3035-1 0236646411 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +佐藤歯科医院 山形県東村山郡山辺町大字山辺1269-5 0236647984 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科: +高橋歯科医院 山形県東村山郡山辺町大字山辺21-5 0236648217 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: +山辺こどもクリニック 山形県東村山郡山辺町山辺2908-14 0236648488 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +やまのべ藤田クリニック 山形県東村山郡山辺町大塚823-1 0236657003 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:神経内科:脳神経外科:整形外科:リハビリテーション科: +クリニックメルヘン 山形県東村山郡山辺町大寺1152-4 0236670088 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:アレルギー科:脳神経外科:整形外科:リハビリテーション科: +笠原クリニック中診療所 山形県東村山郡山辺町大字大蕨1223 0236662777 不定期 不定期 不定期 :内科: +横山歯科医院 山形県東村山郡山辺町山辺2925-1 0236646000 不定期 不定期 不定期 :歯科: +武田歯科医院 山形県東村山郡山辺町北垣2 0236646005 不定期 不定期 不定期 :歯科: +秋葉医院 山形県東村山郡中山町大字長崎303-8 0236631000 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:消化器科: +至誠堂病院付属中山診療所 山形県東村山郡中山町大字長崎字新町3030-1 0236625011 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:小児科:皮膚科:眼科: +たかはし元気クリニック 山形県東村山郡中山町大字小塩1284-5 0236633575 月,火,水,木,金 月,火,水,木,金 土,日,祝 :整形外科:リウマチ科:リハビリテーション科: +服部内科胃腸科医院 山形県東村山郡中山町大字長崎4170-1 0236622272 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +しぶや歯科医院 山形県東村山郡中山町あおば14-4 0236794862 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +東海林歯科医院 山形県東村山郡中山町大字長崎326 0236622122 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +安藤内科医院 山形県東村山郡中山町長崎1144-1 0236625580 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:消化器科: +大森歯科医院 山形県東村山郡中山町長崎4665-10 0236623335 不定期 不定期 不定期 :歯科: +安達歯科医院 山形県東村山郡中山町長崎3005 0236623535 不定期 不定期 不定期 :歯科: +大坪歯科医院 山形県東村山郡中山町長崎144 0236622121 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/higasine.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,87 @@ +ひかり皮膚科 山形県東根市さくらんぼ駅前2-13-1 0237431002 月,火,水,金,土 月,火,水,金 木, 日,祝 :皮膚科: + +北村山公立病院 山形県東根市温泉町2丁目15-1 0237422111 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:神経内科:脳神経外科:循環器科:小児科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:麻酔科:乳腺外科: + +奥山歯科医院 山形県東根市東根本丸西3-2-30 0237435272 月,火,水,木,金 月,火,水,金 日,祝 :歯科: + +藤田医院 山形県東根市六田1丁目1-35 0237420256 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: + +北村山在宅診療所 山形県東根市温泉町2丁目5-3 0237410583 不定期 不定期 不定期 :内科: + +山形ロイヤル病院 山形県東根市大森2丁目3-6 0237438080 月,火,水,木,金,土 月,火,水,木,金 日,祝 ;内科;リハビリテーション科; + +海老名歯科医院 山形県東根市さくらんぼ駅前3-10-25 0237434121 月,火,水,金,土 月,火,水,金,土 木,日,祝 :歯科: + +保坂クリニック 山形県東根市さくらんぼ駅前2-7-22 0237411188 月,火,水,金,土 月,火,水,金,土 木,日,祝 :内科:呼吸器科:胃腸科:循環器科:小児科:外科:心臓血管外科: + +山本内科医院 山形県東根市中央4-5-24 0237430180 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:神経内科:胃腸科:循環器科 + +後藤眼科 山形県東根市大森2-1-4 0237437766 月,火,水,木,金,土 月,水,木,金,土 日,祝 :眼科: + +山形泌尿器科東根クリニック 山形県東根市中央4丁目1-29 0237437655 なし 火,木 月,水,金,土,日 :皮膚科:泌尿器科: + +東根歯科 山形県東根市中央南1丁目5-16 0237411966 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: + +金村医院 山形県東根市本丸西4丁目1-24 0237486110 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:アレルギー科:呼吸器科:循環器科:小児科: + +あべ歯科医院 山形県東根市四ツ家1丁目7-6 0237424343 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: + +歯科田原医院 山形県東根市神町中央1丁目11-36 0237483118 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科: + +菅クリニック 山形県東根市東根甲655 0237420055 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :産婦人科: + +江口こども医院 山形県東根市中央2丁目18-1 0237438118 月,火,水,木,金,土 月,火,水,木,金 日,祝 :アレルギー科:小児科:皮膚科: + +大沼医院 山形県東根市神町中央1丁目11-18 0237482830 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:呼吸器科:循環器科:小児科: + +渡辺医院 山形県東根市羽入2821 0237470406 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:皮膚科: + +三浦医院 山形県東根市本丸南1丁目8-2 0237432311 月,火,水,木,金,土 月,火,水,金, 日,祝 :内科: + +佐藤内科胃腸科医院 山形県東根市神町中央1丁目9-35 0237471125 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: + +みのる歯科 山形県東根市さくらんぼ駅前3丁目7-15ジャスコ新東根店2F 0237426471 月,火,水,金,土,日 月,火,水,金,土,日 木,祝 :歯科:矯正歯科: + +東根市休日診療所 山形県東根市中央1丁目5-1 0237432120 日,祝 日,祝 月〜土 :内科:小児科: + +とよたか歯科 山形県東根市蟹沢2221-18 0237411313 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: + +佐藤歯科医院 山形県東根市板垣大通り8 0237491155 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: + +岸歯科医院 山形県東根市神町東1丁目20-28 0237474618 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: + +あんじょう歯科医院 山形県東根市中央2丁目8-16 0237438144 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: + +井川整形外科クリニック 山形県東根市蟹沢2031-1 0237424777 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科: + +安達クリニック 山形県東根市泉郷625-1 0237443777 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:外科:消化器科:皮膚科:リハビリテーション科: + +梅津外科医院 山形県東根市神町東4丁目1-8 0237470101 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:整形外科:皮膚科: + +なりさわ胃腸科内科医院 山形県東根市神町北1丁目3-41 0237473660 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:胃腸科: + +宮崎外科胃腸科クリニック 山形県東根市宮崎1丁目3-30 0237412357 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:胃腸科:肛門科: + +ひがしね耳鼻咽喉科 山形県東根市さくらんぼ駅前2丁目10-27 0237436633 月,火,水,金 月,火,水,金 木,土,日,祝 :アレルギー科:気管食道科:耳鼻いんこう科: + +塩野胃腸科内科医院 山形県東根市東根甲5160-3 0237420395 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:胃腸科:小児科: + +須藤歯科医院 山形県東根市東根本町3-12 0237420030 不定期 不定期 不定期 :歯科: + +工藤医院 山形県東根市大字羽入2098-4 0237473838 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:消化器科:整形外科:肛門科: + +江場歯科医院 山形県東根市東根本町1-11 0237420105 不定期 不定期 不定期 :歯科: + +後藤歯科医院 山形県東根市神町北1丁目1-3 0237470309 不定期 不定期 不定期 :歯科: + +加藤歯科医院 山形県東根市神町南2丁目2-50 0237470648 不定期 不定期 不定期 :歯科: + +柴田内科循環器科クリニック 山形県東根市一本木2丁目4-25 0237423917 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:循環器科: + +つばさ皮膚科 山形県東根市中央3-2-21 0237431241 月,火,水,金,土 月,火,水,金,土 木,日,祝 :皮膚科: + +東根中央整形外科 山形県東根市中央3丁目9-10 0237437711 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :整形外科:リハビリテーション科 + + + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hinyokika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>泌尿器科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_koumonka.png" width="300" height="90" +alt="泌尿器科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>腎臓・膀胱・陰茎・尿管・尿道・精巣・前立腺などに関する診療をする</th></tr> + +<tr><th>主な症状</th> +<th>血尿 高血圧 腰痛 体重減少</th></tr> + +<tr><th>主な病気</th> +<th>腎がん 膀胱がん 腎下垂症 包茎</th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hospital.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,177 @@ +<html> +<html lang="ja"> +<head> +<style type="text/css"> +body{ + background:#87ceeb url("chara2.png") no-repeat fixed right bottom; +} + +img.head:before{ content:url("niko.png")} +img.head:after{ content:url("niko.png")} +div.ue{ + background:#75b4f5; + margin : 3em 10em 3em 10em; + border:dotted#ffff00; + padding : 10px +} +div.shita{ + background:#75b4f5; + margin : 3em 10em 3em 10em; + border:dotted#ffff00; + padding : 10px; +} + +h2:before{content:url("smile.png")} +h4{text-align: center;} + + +</style> + +<title>病院検索</title> +<link rel="shortcut icon" href="smile.png"> +</head> + +<body> + + +<h4><img src="kensakulogo.png" width="500" height="130" alt="ロゴ"></img><img src="chara2.png" width="100" height="130" alt="FUCHO"></img></h4> + + +<div class="ue"> +<h2>診療科検索</h2> + +<form method="POST" action ="./sagasu.rb"> +<h3> +<input type="radio" name="sagashikata" value="症状" checked>症状<br> +<sub>症状からどんな診療科に行けばよいのかを検索できます!</sub><br> +<input type="radio" name="sagashikata" value="診療科名">診療科名<br> +<sub>「この診療科って何を診療するの??どんな診療科なの??」という疑問にお答えします!</sub><h3> +<p><input type ="submit" value= "探す"></p> +</div> +</form> + + +<br><br> + +<div class="shita"> +<form method="POST" action ="./hospital_kensaku4.rb"> +<h2>山形県内の病院検索</h2> +<p>市町村名を選択して下さい。<br> + <select name="area"> + <option> 鶴岡市 + <option> 酒田市 + <option> 庄内町 + <option> 三川町 + <option> 遊佐町 + + <option> 山形市 + <option> 寒河江市 + <option> 上山市 + <option> 村山市 + <option> 天童市 + <option> 東根市 + <option> 尾花沢市 + <option> 東村山郡 + <option> 西村山郡 + <option> 北村山郡 + + <option> 新庄市 + <option> 最上郡 + + <option> 米沢市 + <option> 長井市 + <option> 南陽市 + <option> 東置賜郡 + <option> 西置賜郡 + </select> +</p> + +<p>町村名を入力してください。<br> +<input type="text" name="word" maxlengh="20"> +</p> + +<p>病院名を入力してください。<br> +<input type="text" name="word2" maxlengh="20"> +</p> + + +<p>診療科 を選択してください。(複数可)</p> +<table border=0> +<tr><td><input type="checkbox" name="naika" value="内科">内科</td> +<td><input type="checkbox" name="geka" value="外科">外科</td> +<td><input type="checkbox" name="sinryou" value="心療内科">心療内科</td></tr> + +<tr><td><input type="checkbox" name="seisin" value="精神科">精神科</td> +<td><input type="checkbox" name="sinkei" value="神経科">神経科</td> +<td><input type="checkbox" name="sinkeinaika" value="神経内科">神経内科</td></tr> + +<tr><td><input type="checkbox" name="kokyu" value="呼吸器科">呼吸器科</td> +<td><input type="checkbox" name="syouka" value="消化器科">消化器科</td> +<td><input type="checkbox" name="ityou" value="胃腸科">胃腸科</td> + +<tr><td><input type="checkbox" name="hihu" value="皮膚科">皮膚科</td> +<td><input type="checkbox" name="hinyou" value="泌尿器科">泌尿器科</td> +<td><input type="checkbox" name="junkan" value="循環器科">循環器科</td></tr> + + +<tr><td><input type="checkbox" name="areru" value="アレルギー科">アレルギー科</td> +<td><input type="checkbox" name="riumati" value="リウマチ科">リウマチ科</td> +<td><input type="checkbox" name="syouni" value="小児科">小児科</td></tr> + +<tr><td><input type="checkbox" name="seikeigeka" value="整形外科">整形外科</td> +<td><input type="checkbox" name="keisei" value="形成外科">形成外科</td> +<td><input type="checkbox" name="biyou" value="美容外科">美容外科</td></tr> + +<tr><td><input type="checkbox" name="nousinkei" value="脳神経外科">脳神経外科</td> +<td><input type="checkbox" name="kokyugeka" value="呼吸器外科">呼吸器外科</td> +<td><input type="checkbox" name="sinzou" value="心臓血管外科">心臓血管外科</td></tr> + +<tr><td><input type="checkbox" name="syounigeka" value="小児外科">小児外科</td> +<td><input type="checkbox" name="koumon" value="肛門科">肛門科</td> +<td><input type="checkbox" name="seibyou" value="性病科">性病科</td></tr> + +<tr><td><input type="checkbox" name="sanhujin" value="産婦人科">産婦人科</td> +<td><input type="checkbox" name="sanka" value="産科">産科</td> +<td><input type="checkbox" name="hujinka" value="婦人科">婦人科</td> + + + +<tr><td><input type="checkbox" name="ganka" value="眼科">眼科</td> +<td><input type="checkbox" name="jibiinkou" value="耳鼻いんこう科">耳鼻いんこう科</td> +<td><input type="checkbox" name="kikansyoku" value="気管食道科">気管食道科</td> + +<tr><td><input type="checkbox" name="housya" value="放射線科">放射線科</td> +<td><input type="checkbox" name="housyasindan" value="放射診断科">放射診断科</td> +<td><input type="checkbox" name="housyatiryou" value="放射線治療科">放射線治療科</td> + +<tr><td><input type="checkbox" name="rihabiri" value="リハビリテーション科">リハビリテーション科</td> +<td><input type="checkbox" name="masui" value="麻酔科">麻酔科</td> +<td><input type="checkbox" name="sika" value="歯科">歯科</td></tr> + +<tr><td><input type="checkbox" name="kyousei" value="矯正歯科">矯正歯科</td> +<td><input type="checkbox" name="syounisika" value="小児歯科">小児歯科</td> +<td><input type="checkbox" name="sikakouku" value="歯科口腔外科">歯科口腔外科</td></tr> +</table> + + + +<p> +<input type ="submit" value= "検索"> +</p> + +</form> +</div> +<br> +<div class="ue"> +<h2>プログラムについて</h2> +<p>このプログラムは、〜を基に、東北公益文科大学 最長 6 時間 が作成し + SKIPが改良したものです。<br>このページにおいて提供されているコンテンツに +関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、 +このプログラムはデモ版であり、このページから得られた情報に関しての責任は +一切負いません。</p> +</div> +<br> +<a href="http://skip.koeki-prj.org/">SKIP</a> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hospital_kensaku4.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,26123 @@ +#!/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の規定(閉)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hospitalkeka.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,1108 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +# $KCODE = 'e' # 日本語コードの定義 + +require 'cgi' # CGI を使いますという宣言 +c = CGI.new(:accept_charset => "EUC-JP") # CGI変数は HTML に使用する +print "Content-type: text/html; charset=EUC-JP\n\n" # 日本語コードの定義 + + +# CGIスクリプトから受け取った変数の対を、rbで使う変数に代入 + +choose = c["koumokumei"] + + +#p choose + +if /(\S+):(\S+)/=~choose + # $1 = 病院名 + # $2 = 住所 + na = $1 + ad = $2 +end + +#p na +#p ad + + +print("<html>\n") # HTMLの規定 +print("<head>\n") # HTMLの設定 +print("<link rel=\"stylesheet\" type=\"text/css\" href=\"kensaku2.css\">\n") + # cssの設定 +printf("<title>検索結果 %s</title>\n",na) # <title>の表示 +print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン +print("</head>\n") # HTMLの設定(閉) +print("<body>\n") # HTMLの表示部分 + +print("<h1>検索結果<sub><img class=\"head\" src=\"chara2.png\" width=\"80\" height=\"100\" alt=\"FUCHO\"></img></sub></h1>\n") # <h1>の表示 + +printf("<h2>検索ワード[%s]</h2>\n",na) + +print("<form method=\"POST\" action =\"kuchikomi.rb\">\n") + +hospital = Hash.new + +# データを読みこむ +print("<div class=\"ue\">") +if /鶴岡市/=~ad + +open("turuoka.dat","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /酒田市/=~ad +open("sakata.dat","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /庄内町/=~ad +open("syounai.dat","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /三川町/=~ad +open("mikawa.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /遊佐町/=~ad +open("yuza.dat","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /山形市/=~ad +open("yamagatashi.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /寒河江市/=~ad +open("sagae.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /上山市/=~ad +open("kaminoyama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /村山市/=~ad +open("murayama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /天童市/=~ad +open("tendo.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /東根市/=~ad +open("higasine.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /尾花沢市/=~ad +open("obanazawa.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /東村山郡/=~ad +open("h_murayama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /西村山郡/=~ad +open("n_murayama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /北村山郡/=~ad +open("k_murayama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /新庄市/=~ad +open("sinjou.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /新庄市/=~ad +open("sinjou.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /最上郡/=~ad +open("mogami.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /米沢市/=~ad +open("yonezawa.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /長井市/=~ad +open("nagai.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /南陽市/=~ad +open("nanyo.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /東置賜郡/=~ad +open("h_okitama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +elsif /西置賜郡/=~ad +open("n_okitama.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = 電話番号 + # $4 = 曜日(午前) + # $5 = 曜日(午後) + # $6 = 休診日 + # $7 = 科 + hospital[$1] = $2,$3,$4,$5,$6,$7 + juusho = $2 + + if juusho == ad + print("<table border=1 align=center>\n") + + print("<tr><th><img alt=\"病院アイコン\" heght=\"38\" src=\"hospital.png\" width=\"33\">病院名</th>\n") + printf("<th>%s</th></tr>\n",$1) + + print("<tr><th><img alt=\"住所アイコン\" heght=\"38\" src=\"yubin.png\" width=\"33\">住所</th>\n") + printf("<th>%s</th></tr>\n",$2) + + print("<tr><th><img alt=\"電話アイコン\" heght=\"38\" src=\"telephone.png\" width=\"33\">電話番号</th>\n") + printf("<th>%s</th></tr>\n",$3) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gozen2.png\" width=\"33\">診療日(午前)</th>\n") + printf("<th>%s</th></tr>\n",$4) + + print("<tr><th><img alt=\"時計アイコン\" heght=\"38\" src=\"gogo2.png\" width=\"33\">診療日(午後)</th>\n") + printf("<th>%s</th></tr>\n",$5) + + print("<tr><th><img alt=\"布団アイコン\" heght=\"38\" src=\"huton.png\" width=\"33\">休診日</th>\n") + printf("<th>%s</th></tr>\n",$6) + + print("<tr><th><img alt=\"先生アイコン\" heght=\"38\" src=\"sensei.png\" width=\"33\">診療科</th>\n") + printf("<th>%s</th></tr>\n",$7) + print("</table>\n") + end + end + end +end + +end +print("</div>") + +print("<br><br>") + +print("<h2>くちこみ</h2>") +print("<div class=\"shita\">") +print("<h3>投稿!!</h3>") +print("\n") +printf("<input type=\"hidden\" name=\"byoin\" value=\"%s\" checked>%s\n",choose,na) +print("の情報をいれてください。<br>\n") +print("<textarea name=\"info\" rows=\"3\" cols=\"50\">") +print("ここに入力して下さい。</textarea></p>") + +print("<input type=\"hidden\" name=\"name\" value=\"名前\" checked>名前を記入して下さい。<br>") +print("<input type=\"text\" name=\"toukousya\" maxlengh=\"20\"></p>") + +print("<input type =\"submit\" value= \"投稿\">\n") +print("</form>\n") + + + +print("<h3>閲覧!!</h3>\n") + +#くちこみファイルを読みこむ +ku = Hash.new +i = 0 # kuの番号 +open("kuchi.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /([^,]+),([^,]+),([^,]+),([^,]+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = くちこみ + # $4 = 投稿者 + ku[i] = $1,$2,$3,$4 + end + i += 1 + end +end + +#p ku +#p hospital[na][0] + +#i = 0 +#while ku.length + +j = 0 +for i in ku.keys.sort + if ku[i][1] == hospital[na][0] + printf("・%s 投稿者%sさん<br>\n",ku[i][2],ku[i][3]) + j += 1 + end +end + +if j == 0 +print("まだ投稿されていません。\n") +end +print("</div>\n") + + + +print("<br><br>") + +print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>\n") + +print("<p>最長 6 時間</p>\n") # <p>の表示 + + +print("</body>\n") # HTMLの表示部分(閉) +print("</html>\n") # HTMLの規定(閉)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hospitalkensaku.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,38 @@ + +body{ + background:#87ceeb url("chara2.png") no-repeat fixed right bottom; +} + + + +img.head:before{ content:url("niko.png")} +img.head:after{ content:url("niko.png")} + + + +div.center{ + + background:#75b4f5; + margin : 15%; + border:dotted#ffff00; + padding : 10px +} + +h1:before{content:url("smile.png")} + +h1{color: ffff00; +margin : 1em 1em 0em; +} +h2{color: ffff00; +font-size: 11ex; +text-align: center;} + +dt{font-size: 25px;} +dl{margin : 0em 3em;} + +@media screen { + +table[class~="hyou"] +tr:first-child{align:left;} + +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/hospitalkensaku.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,16588 @@ +#!/usr/bin/env ruby + +$KCODE = 'e' # 日本語コードの定義 + +require 'cgi' # CGI を使いますという宣言 +cgi = CGI.new("html4") # CGI変数は HTML に使用する +print("Content-type: text/html; charset=EUC-JP\n\n") # 日本語コードの定義 + + +# CGIスクリプトから受け取った変数の対を、rbで使う変数に代入 +chiiki = cgi["area"] +jiyuu = cgi["word"] +jiyuu2 = cgi["word2"] + +ka = Array.new + +ka[0] = cgi["naika"] +ka[1] = cgi["sinryou"] +ka[2] = cgi["seisin"] +ka[3] = cgi["sinkei"] +ka[4] = cgi["sinkeinaika"] +ka[5] = cgi["kokyu"] +ka[6] = cgi["syouka"] +ka[7] = cgi["ityou"] +ka[8] = cgi["junkan"] +ka[9] = cgi["areru"] +ka[10] = cgi["riumati"] +ka[11] = cgi["syouni"] +ka[12] = cgi["geka"] +ka[13] = cgi["seikeigeka"] +ka[14] = cgi["keisei"] +ka[15] = cgi["biyou"] +ka[16] = cgi["nousinkei"] +ka[17] = cgi["kokyugeka"] +ka[18] = cgi["sinzou"] +ka[19] = cgi["syonigeka"] +ka[20] = cgi["hihu"] +ka[21] = cgi["hinyou"] +ka[22] = cgi["seibyou"] +ka[23] = cgi["koumon"] +ka[24] = cgi["sanhujin"] +ka[25] = cgi["sanka"] +ka[26] = cgi["hujinka"] +ka[27] = cgi["ganka"] +ka[28] = cgi["jibiinkou"] +ka[29] = cgi["kikansyouku"] +ka[30] = cgi["rihabiri"] +ka[31] = cgi["housya"] +ka[32] = cgi["housyasindan"] +ka[33] = cgi["housyatiryou"] +ka[34] = cgi["masui"] +ka[35] = cgi["sika"] +ka[36] = cgi["kyousei"] +ka[37] = cgi["syounisika"] +ka[38] = cgi["sikakouku"] + + + +#p chiiki + +print("<html>\n") # HTMLの規定 +print("<head>\n") # HTMLの設定 +print("<link rel=\"stylesheet\" type=\"text/css\" href=\"hospitalkensaku.css\">\n") + # cssの設定 +print("<title>タグ検索結果</title>\n") # <title>の表示 +print("</head>\n") # HTMLの設定(閉) +print("<body>\n") # HTMLの表示部分 + +print("<form method=\"POST\" action =\"hospitalkeka.rb\">\n") + +print("<div class=\"center\">") +print("<h1>タグ検索結果</h1>\n") # <h1>の表示 + +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>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + end + + +elsif chiiki == "酒田市" + + for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "消化器科" + print("<h1>消化器科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + end + + +elsif chiiki == "庄内町" + +for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + open("syouani.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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯" + print("<h1>歯</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + end + +elsif chiiki == "三川町" + +for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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>") + end + end + end + end + end + end + print("</dl>") + end + end + +elsif chiiki == "遊佐町" + +for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + end + +elsif chiiki == "山形市" + +for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + open("yamgatashi.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/=~line + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + 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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + end + +elsif chiiki == "寒河江市" + + +elsif chiiki == "上山市" + + + +elsif chiiki == "村山市" + + + +elsif chiiki == "天童市" + + + +elsif chiiki == "東根市" + + + +elsif chiiki == "尾花沢市" + + + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科口腔外科" + print("<h3>歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + end + +elsif chiiki == "東村山群" + +for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + end + +elsif chiiki == "西村山群" + + for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + end + +elsif chiiki == "北村山群" + +for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + end + +elsif chiiki == "新庄市" + +for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科口腔外科科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end +end + +elsif chiiki == "最上群" + +for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + open("mogamai.txt","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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + open("mogamai.txt","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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + +end + + + +elsif chiiki == "米沢市" + + for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "病理診断科" + print("<h3>★病理診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:病理診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "救急科" + print("<h3>★救急科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:救急科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + end + +elsif chiiki == "長井市" + + for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + open("nagai.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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + end + +elsif chiiki == "南陽市" + + for apply in ka + + if apply == "内科" + print("<h3>★内科<\h3>") + 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("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心療内科" + print("<h3>★心療内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心療内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "精神科" + print("<h3>★精神科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:精神科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経科" + print("<h3>★神経科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "神経内科" + print("<h3>★神経内科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:神経内科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器科" + print("<h3>★呼吸器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "消化器科" + print("<h3>★消化器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:消化器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "胃腸科" + print("<h3>★胃腸科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:胃腸科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "循環器科" + print("<h3>★循環器科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:循環器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "アレルギー科" + print("<h3>★アレルギー科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:アレルギー科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リウマチ科" + print("<h3>★リウマチ科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リウマチ科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児科" + print("<h3>★小児科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "外科" + print("<h3>★外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "整形外科" + print("<h3>★整形外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:整形外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "形成外科" + print("<h3>★形成外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:形成外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "美容外科" + print("<h3>★美容外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:美容外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "脳神経外科" + print("<h3>★脳神経外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:脳神経外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "呼吸器外科" + print("<h3>★呼吸器外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:呼吸器外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "心臓血管外科" + print("<h3>★心臓血管外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:心臓血管外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "小児外科" + print("<h3>★小児外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "皮膚科" + print("<h3>★皮膚科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:皮膚科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "泌尿器科" + print("<h3>★泌尿器科<\h3>") + open("nnayo.txt","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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:泌尿器科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "性病科" + print("<h3>★性病科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:性病科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "肛門科" + print("<h3>★肛門科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:肛門科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + + if apply == "産婦人科" + print("<h3>★産婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "産科" + print("<h3>★産科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:産科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "婦人科" + print("<h3>★婦人科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:婦人科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "眼科" + print("<h3>★眼科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if/:眼科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "耳鼻いんこう科" + print("<h3>★耳鼻いんこう科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:耳鼻いんこう科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "気管食道科" + print("<h3>★気管食道科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:気管食道科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "リハビリテーション科" + print("<h3>★リハビリテーション科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:リハビリテーション科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線科" + print("<h3>★放射線科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "放射診断科" + print("<h3>★放射診断科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射診断科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "放射線治療科" + print("<h3>★放射線治療科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:放射線治療科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "麻酔科" + print("<h3>★麻酔科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:麻酔科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "歯科" + print("<h3>★歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + if apply == "矯正歯科" + print("<h3>★矯正歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:矯正歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "小児歯科" + print("<h3>★小児歯科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:小児歯科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + + + if apply == "歯科口腔外科" + print("<h3>★歯科口腔外科<\h3>") + 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 = パスワード + kooumooku = $1 + taaguu = $7 + juusho = $2 + if /:歯科口腔外科:/e=~taaguu + if /#{jiyuu}/=~juusho + if /#{jiyuu2}/=~kooumooku + printf("<input type=\"radio\" name=\"koumokumei\" value=\"%s:%s\">%s:%s\n",kooumooku,juusho,kooumooku,juusho) + print("<br>") + end + end + end + end + end + end + end + end + + +elsif chiiki == "東置賜群" + + for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + end + +elsif chiiki == "西置賜群" + +for apply in ka + + if apply == "内科" + print("<h1>内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>\n") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心療内科" + print("<h1>心療内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "精神科" + print("<h1>精神科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経科" + print("<h1>神経科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "神経内科" + print("<h1>神経内科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "胃腸科" + print("<h1>胃腸科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "循環器科" + print("<h1>循環器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "アレルギー科" + print("<h1>アレルギー科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リウマチ科" + print("<h1>リウマチ科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児科" + print("<h1>小児科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "外科" + print("<h1>外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "整形外科" + print("<h1>整形外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "形成外科" + print("<h1>形成外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "美容外科" + print("<h1>美容外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "脳神経外科" + print("<h1>脳神経外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "呼吸器外科" + print("<h1>呼吸器外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "心臓血管外科" + print("<h1>心臓血管外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児外科" + print("<h1>小児外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "皮膚科" + print("<h1>皮膚科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "泌尿器科" + print("<h1>泌尿器科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "性病科" + print("<h1>性病科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "肛門科" + print("<h1>肛門科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産婦人科" + print("<h1>産婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "産科" + print("<h1>産科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "婦人科" + print("<h1>婦人科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "眼科" + print("<h1>眼科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "耳鼻いんこう科" + print("<h1>耳鼻いんこう科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "気管食道科" + print("<h1>気管食道科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "リハビリテーション科" + print("<h1>リハビリテーション科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線科" + print("<h1>放射線科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射診断科" + print("<h1>放射診断科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "放射線治療科" + print("<h1>放射線治療科</h1>") + print("<dl>") + open("n_okitama.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>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "麻酔科" + print("<h1>麻酔科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科" + print("<h1>歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "矯正歯科" + print("<h1>矯正歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "小児歯科" + print("<h1>小児歯科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + if apply == "歯科口腔外科" + print("<h1>歯科口腔外科</h1>") + print("<dl>") + 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><sub>%s</sub></dd>\n",juusho) + print("-----------------------------------------------") + print("<br>") + end + end + end + end + end + end + print("</dl>") + end + + end + +end +print("<p>") +print("<input type =\"submit\" value= \"検索\">\n") +print("</p>\n") + +print("</form>\n") + +print("<a href=\"http://roy/~c110127/6hour/hospital.html\">検索画面に戻る</a>\n") + # 検索画面へのリンクの表示 + +print("<p>最長 6 時間</p>\n") # <p>の表示 + +print("</div>") + + +print("</body>\n") # HTMLの表示部分(閉) +print("</html>\n") # HTMLの規定(閉)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/ichouka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>胃腸科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_ichouka.png" width="300" height="90" alt="胃腸科"></img> +<br><br> +<table border=1 align=center> + +<tr><th>特長</th> +<th>胃 腸 消化管 肝臓 胆のう すい臓などに関する疾患の診療</th></tr> + +<tr><th>主な症状</th> +<th>胸焼け 胃もたれ 吐き気 食欲不振<br> + 胃痛 腹痛 便秘 下痢 血便<br> + </th></tr> + +<tr><th>主な病気</th> +<th>胃炎 胃潰瘍 ウイルス性胃腸炎 胃がん 大腸炎 など </th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/jibiinkouka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,34 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>耳鼻いんこう科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_jibiinkouka.png" width="300" height="90" +alt="耳鼻いんこう科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>耳・鼻・のど(咽喉)などの他に口腔や食道などの気管も対象として診療している</th></tr> + +<tr><th>主な症状</th> +<th>くしゃみ 鼻づまり 聴力の低下</th></tr> + +<tr><th>主な病気</th> +<th>アレルギー性鼻炎 慢性鼻炎 歯性上顎洞炎 副鼻腔炎 </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/junkankika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,38 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>循環器科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_junkankika.png" width="300" height="90" alt="循環器科"></img> +<br><br> +<table border=1 align=center> + +<tr><th>特長</th> +<th>心臓と血管に関する疾患の診療</th></tr> + +<tr><th>主な症状</th> +<th>安静時・運動時の胸部の痛み<br> + 背中の痛み 動機・息切れ<br> + 脈の乱れ めまい 立ちくらみ + </th></tr> + +<tr><th>主な病気</th> +<th>高血圧 糖尿病<br> + 心筋梗塞 狭心症 不整脈 + </th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/k_murayama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,6 @@ +吾妻クリニック 山形県北村山郡大石田町大字大石田甲93-4 0237352021 月,水,木,金,土,日 月,水,木,金,土 火,祝 :内科:消化器科:小児科:外科:皮膚科:肛門科: +後藤医院 山形県北村山郡大石田町大石田乙94 0237352034 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:婦人科: +石山歯科クリニック 山形県北村山郡大石田町緑町11-1 0237361788 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:小児歯科: +吾妻歯科クリニック 山形県北村山郡大石田町大字大石田乙606 0237356480 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科: +庄司歯科医院 山形県北村山郡大石田町今宿393-62 0237352122 不定期 不定期 不定期 :歯科: +神部歯科医院 山形県北村山郡大石田町大石田丁64 0237352037 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kaminoyama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +阿部歯科医院 山形県上山市旭町3-3-31Yタウン1F 0236723311 月,火,水,木,金,土 月,火,木,金,土 日,祝 :歯科:小児歯科: +吉井内科胃腸科クリニック 山形県上山市金生東1丁目10-15 0236737515 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:胃腸科: +藤倉医院 山形県上山市矢来4-11-46 0236727331 月,火,水,金,土 月,火,水,金,土 木,日,祝 :内科: +金沢医院 山形県上山市旭町1丁目7-17 0236723230 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +温泉診療所 山形県上山市十日町9-2 0236720008 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:胃腸科:肛門科: +原田医院 山形県上山市石崎2丁目1-8 0236721028 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:整形外科:産婦人科:リハビリテーション科: +須田整形外科医院 山形県上山市美咲町1丁目2-18 0236727785 月,火,水,木,金,土 月,火,水,金,土 日,祝 :整形外科: +高橋外科医院 山形県上山市石崎1丁目3-24 236721162 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :外科: +小関・高橋眼科医院 山形県上山市新湯2-25 236720037 月,火,水,木,金,土 月,水,木,金,土 日,祝 :眼科: +青野歯科医院 山形県上山市石崎1丁目2-44 0236732777 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科:小児歯科: +おがた歯科クリニック 山形県上山市南町1-14 236771600 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +八幡堂高橋歯科医院 山形県上山市沢丁3-8 0236736480 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +原田香曽我部医院 山形県上山市栄町2丁目6-1 0236720159 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科:整形外科: +尾上医院 山形県上山市栄町1丁目3-11 0236720018 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +上山小児クリニック 山形県上山市河崎1丁目2-39 0236731680 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +上山病院 山形県上山市金谷字下河原1370 0236722551 月,火,水,木,金,日 月,火,水,木,金 土,祝 :内科:精神科:神経科:心療内科: +山口クリニック 山形県上山市四ツ谷1-6-35 0236770050 不定期 不定期 不定期 :皮膚科:泌尿器科: +高野せきねクリニック 山形県上山市八日町1-1 0236720239 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:外科:消化器科:眼科: +みゆき会病院 山形県上山市弁天2丁目2-11 0236728282 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:整形外科:リハビリテーション科:放射線科:歯科:麻酔科: +御殿湯ひふ科医院 山形県上山市御井戸丁3-3 0236728234 月,火,水,木,金,土 月,火,水,金,土 日,祝 :皮膚科: +田クリニック 山形県上山市金生1丁目15-10 0236728001 月,火,水,金 月,火,水,金, 木,土,日,祝 :整形外科:リハビリテーション科:歯科:矯正歯科:小児歯科: +長岡医院 山形県上山市沢丁9-13 0236720308 月,火,水,金 月,火,水,金 木,土, 日,祝 :内科:循環器科: +北村医院 山形県上山市矢来3丁目7-32-14 0236955000 月,火,水,金 月,火,水,金 木,土, 日,祝 :脳神経外科: +渋谷医院 山形県上山市十日町7-3 0236722501 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +吉田ひろゆき歯科医院 山形県上山市金生西1丁目6-36 0236956480 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +ごとう歯科医院 山形県上山市十日町10-25カミン1F 0236731180 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +山形県立 総合療育訓練センター 山形県上山市河崎3丁目7-1 0236733366 不定期 不定期 不定期 :内科:精神科:小児科:整形外科:泌尿器科:耳鼻いんこう科:リハビリテーション科:歯科: +高橋耳鼻咽喉科医院 山形県上山市十日町9-8 0236720867 月,火,水,木,金,土 月,火,水,金,土 日,祝 :耳鼻いんこう科: +青山医院 山形県上山市八日町4-21 0236727777 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:小児科:婦人科: +矢口歯科医院 山形県上山市鶴脛町1丁目9-15 0236725404 不定期 不定期 不定期 :歯科: +永田歯科医院 山形県上山市元城内3-62 0236720215 不定期 不定期 不定期 :歯科: +十日町高橋歯科医院 山形県上山市十日町5-19 0236734360 不定期 不定期 不定期 :歯科: +小池歯科医院 山形県上山市沢丁9-8 0236720520 不定期 不定期 不定期 :歯科: +石崎歯科クリニック 山形県上山市石崎1丁目7-64 0236723231 不定期 不定期 不定期 :歯科: +梅津歯科医院 山形県上山市十日町2-7 0236720027 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/keiseigeka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,41 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>形成外科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_keiseigeka.png" width="300" height="90" +alt="形成外科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>体表面を中心とするあらゆる先天性・後天性の変形を<br> + 外科的手段などにより正常に近づけ<br> + 患者さんの肉体的・精神的苦痛を取り除く</th></tr> + +<tr><th>主な症状</th> +<th> + 外傷（顔面骨骨折の治療）<br> + 先天異常（口唇裂 多指症 小耳症）<br> + 腫瘍（やけどやけがによる変形・傷跡）<br> + 美容（でべそ わきが） + </th></tr> + +<tr><th>主な病気</th> +<th>陥入爪 眼瞼下垂 脂肪腫 小耳症</th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kensaku2.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,37 @@ + +body{ + background:#87ceeb url("chara2.png") no-repeat fixed right bottom; +} + + +img.head:before{ content:url("niko.png")} +img.head:after{ content:url("niko.png")} + + + +div.ue{ + + background:#75b4f5; + margin : 15%; + border:dotted#ffff00; + padding : 10px +} +div.shita{ + + background:#75b4f5; + margin : 15%; + border:dotted#ffff00; + padding : 10px +} + +h2:before{content:url("smile.png")} +h2{text-align: center;} +h1{color: ffff00; +font-size: 7ex; +text-align: center;} + +table{background-color: white;} + +tr{ +text-align:left; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kikanshokudouka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>気管食道科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_kikanshokudouka.png" width="300" height="90" +alt="気管食道科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>耳鼻咽喉科と呼吸器化との間を埋める<br> + 咽頭や下咽頭 気管支などの診察</th></tr> + +<tr><th>主な症状</th> +<th>長い間咳がとまらない のどの痛み違和感</th></tr> + +<tr><th>主な病気</th> +<th>食道がん アレルギー性気管支炎</th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kitamurayama_ooisida.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,11 @@ +$B8c:J%/%j%K%C%/(B $B;37A8)KLB<;374Bg@PEDD.Bg;zBg@PED9C(B93-4 0237352021 $B7n(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B,$BF|(B $B7n(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B2P(B,$B=K(B :$BFb2J(B:$B>C2=4o2J(B:$B>.;y2J(B:$B302J(B:$BHiIf2J(B:$BfjLg2J(B: + +$B8eF#0e1!(B $B;37A8)KLB<;374Bg@PEDD.Bg@PED25(B94 0237352034 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$BIX?M2J(B: + +$B@P;3;u2J%/%j%K%C%/(B $B;37A8)KLB<;374Bg@PEDD.NPD.(B11-1 0237361788 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$B;u2J(B:$B>.;y;u2J(B: + +$B8c:J;u2J%/%j%K%C%/(B $B;37A8)KLB<;374Bg@PEDD.Bg;zBg@PED25(B606 0237356480 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$B6b(B,$BEZ(B $BF|(B,$B=K(B :$B;u2J(B:$B6:@5;u2J(B: + +$B>1;J;u2J0e1!(B $B;37A8)KLB<;374Bg@PEDD.:#=I(B393-62 0237352122 $BITDj4|(B $BITDj4|(B $BITDj4|(B :$B;u2J(B: + +$B?@It;u2J0e1!(B $B;37A8)KLB<;374Bg@PEDD.Bg@PEDCz(B64 0237352037 $BITDj4|(B $BITDj4|(B $BITDj4|(B :$B;u2J(B:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kokyukika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,36 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>呼吸器科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_kokilyuukika.png" width="300" height="90" alt="呼吸器科"></img></p> +<table border=1 align=center> + +<tr><th>特長</th> +<th>呼吸器(肺、気管、気管支、胸壁など)に関わる疾患のうち、<br> + 内科的治療行う</th></tr> + +<tr><th>主な症状</th> +<th>呼吸が苦しい 咳やたんが多い<br> + 深呼吸すると胸や背中が痛い<br> + </th></tr> + +<tr><th>主な病気</th> +<th>風邪 インフルエンザ 慢性気管支炎<br> + 肺炎 肺梗塞 肺がん など<br> + </th></tr> + + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kuchi.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,68 @@ +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,先生がかっこいいです,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,せんせいがかっこー,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,せんせい,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,せんせいだ,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,せんせい,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,ななんあ,しいな +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,まんががたくさんある,すずき +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,まんががたくさんある,すずき +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,まんががたくさんある,すずき +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,まんががたくさんある,すずき +遠藤医院,山形県鶴岡市板井川字片茎80,まんががたくさんある,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,まんががたくさんある!!,しいな +遠藤医院,山形県鶴岡市板井川字片茎80,ここに入力して下さい。,あああ +川上医院,山形県鶴岡市本町3丁目7-10,ここに入力して下さい。,0000 +遠藤医院:山形県鶴岡市板井川字片茎80,,ここに入力して下さい。,aaa +遠藤医院,山形県鶴岡市板井川字片茎80,ここに入力して下さい。,aaa +遠藤医院,山形県鶴岡市板井川字片茎80,ここに入力して下さい。,aaa +遠藤医院,山形県鶴岡市板井川字片茎80,ここに入力して下さい。,aaa +遠藤医院,山形県鶴岡市板井川字片茎80,若い看護士の方がやさしくてかわいいです,417 +菊池医院,山形県酒田市東泉町2-9-47,鼻水を吸引されるのでこわいですが、先生は面白いです。,鈴木 +日本海総合病院,山形県酒田市あきほ町30,酒田市で大きな病院といったら日本海病院ですね。設備もきれいで中にコンビニやパン屋さんがあって充実してます。ただ待ち時間が予約しても、ちょっと長いので☆4つですね!,たかし +遠藤医院,山形県鶴岡市板井川字片茎80,ふちょうがかっこいいです,ぴーぽー +太田医院,山形県酒田市寿町5-9,保育所が併設されていた気がします。,鈴木 +菊池医院,山形県酒田市東泉町2-9-47,管いれられるのがいたい,鈴木 +青木医院,山形県西村山郡河北町西里539-7,先生がとてもやさしい,きくち +青木医院,山形県西村山郡河北町西里539-7,かっこいい,きくち +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,This hospital is good.,suzuki +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,この病院はよいです,suzuki +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,この病院はよいです,suzuki +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,この病院はよいです,suzuki +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,この病院はよいです,suzuki +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,この病院はよいです,suzuki +歯科家中新町クリニック,山形県鶴岡市家中新町15-39,この病院はよいです,suzuki +きねぶち医院,山形県新庄市十日町2764-1,きれいです,青木さん +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,看護士さんが優しいです。,鈴木 +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,看護士さんが優しいです。,鈴木 +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,看護士さんが優しいです。,鈴木 +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,看護士さんが優しいです。,鈴木 +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,先生が優しいです。,鈴木 +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,先生が優しいです。,鈴木 +板坂胃腸科内科クリニック,山形県山形市江俣4-6-23,こわかった,みほ +小野寺医院,山形県鶴岡市下名川落合228,小学校のときハチにさされて、看護士さんが親身になってくれました。,p +土田医院,山形県新庄市桧町18-2,すてきな病院です,すずきしいな +黒田内科クリニック,山形県山形市七日町4丁目13-33,素敵な病院です,すずき +鈴木外科胃腸科医院,山形県山形市七日町4丁目4-7,おいしゃさんがかっこいい,まどばぁ +桜井医院,山形県酒田市北今町1-35,先生がおもしろい,鈴木 +谷地整形外科クリニック,山形県西村山郡河北町谷地中央4丁目6-6,いたいので★三つです,みずき +日本海総合病院,山形県酒田市あきほ町30,病院内にATMがあって便利です,みずき +中村医院,山形県山形市あかねケ丘1丁目1-1,綺麗な病院です,樋口 +杉山内科クリニック,山形県山形市嶋北1丁目14番3号,綺麗な病院です,ひぐち +今医院,山形県西置賜郡小国町小国小坂町1丁目40,あのときはまじで感謝してます。,見川 +宮原病院,山形県鶴岡市三和町1-53,ああ,6hour +日本海総合病院,山形県酒田市あきほ町30,ぱんやさんのチョコバナナパンが美味でした,しいな +黒谷クリニック,山形県鶴岡市上畑町5-27,良い病院です,6時間 +日本海総合病院,山形県酒田市あきほ町30,パンがおいしいです,6時間 +諸星外科内科クリニック,山形県酒田市ゆたか1丁目5-1,きれいな病院です,しいな +産科・婦人科たんぽぽクリニック,山形県鶴岡市日枝字鳥居上43-1,食事がヘルシーで very good!,yuuji +産科・婦人科たんぽぽクリニック,山形県鶴岡市日枝字鳥居上43-1,となりがおいしいそばやさんなのもめっちゃうれしい!,yuuji +ほんま内科胃腸科医院,山形県酒田市光ケ丘2丁目19-19,いい先生でした,きくち +さかい往診クリニック,山形県酒田市みずほ2丁目20-7,いい先生でした,太朗 +日本海総合病院,山形県酒田市あきほ町30,ここに入力して下さい。,a
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kuchikomi.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,28 @@ + +body{ + background-color:#87ceeb + + +} + + +img.head:before{ content:url("niko.png")} +img.head:after{ content:url("niko.png")} + + + +div.center{ + + background:#75b4f5; + margin : 15%; + border:dotted#ffff00; + padding : 10px +} + +h2:before{content:url("smile.png")} +h1{color: ffff00; +font-size: 7ex; +text-align: center;} +h2{text-align:center;} +h3{text-align:center;} +p{text-align:center;}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/kuchikomi.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,119 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +# $KCODE = 'e' # 日本語コードの定義 + +require 'cgi' # CGI を使いますという宣言 +c = CGI.new(:accept_charset => "EUC-JP") +print("Content-type: text/html; charset=EUC-JP\n\n") # 日本語コードの定義 + + +# CGIスクリプトから受け取った変数の対を、rbで使う変数に代入 + +kuchikomi = c["info"] +hos = c["byoin"] +adress = c["jusho"] +hito = c["toukousya"] + +ku = Hash.new + +jusho = [] +sha = [] +komi = [] + +a = 0 + +if /(\S+):(\S+)/=~hos + # $1 = 病院名 + # $2 = 住所 + name = $1 + adress = $2 +end + +if kuchikomi == "" || hito == "" || /,/=~kuchikomi || /,/=~hito || /^M/=~kuchikomi + + print("<html>\n") # HTMLの規定 + print("<head>\n") # HTMLの設定 + print("<link rel=\"stylesheet\" type=\"text/css\" href=\"kensaku.css\">\n") + # cssの設定 + print("<title>エラー</title>\n") # <title>の表示 + print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン + print("</head>\n") # HTMLの設定(閉) + print("<body>\n") # HTMLの表示部分 + + print("<h1>エラー</h1>\n") + + print("<h2>未入力項目または , を使用している項目があります。<br>登録をやり直して下さい。</h2>\n") + + print("<a href=\"http://roy/~c110127/6hour/hospital.html\">検索画面へ戻る</a>\n") + print("<a href=\"http://roy/~c110067/6hour/kansei.html\">最短0.6秒TOP</a>\n") + print("<a href=\"http://roy/~c110127/6hour/\">最長6時間TOP</a>\n") + # リンクの表示 + + print("<p>最長 6 時間</p>\n") # <p>の表示 + + print("</body>\n") # HTMLの表示部分(閉) + print("</html>\n") # HTMLの規定(閉) + + + + +else # 正常に登録された場合 + open("kuchi.txt","a")do |kaku| + kaku.printf("%s,%s,%s,%s\n",name,adress,kuchikomi,hito) + end + + i = 0 + open("kuchi.txt","r:euc-jp")do |yomu| + while line = yomu.gets + if /([^,]+),([^,]+),([^,]+),([^,]+)/=~line + # $1 = 病院名 + # $2 = 住所 + # $3 = くちこみ + # $4 = 投稿者 + ku[i] = $1,$2,$3,$4 + i += 1 + end + end + end + +# p ku + + print("<html>\n") # HTMLの規定 + print("<head>\n") # HTMLの設定 + print("<link rel=\"stylesheet\" type=\"text/css\" href=\"kuchikomi.css\">\n") + # cssの設定 + print("<title>くちこみ</title>\n") # <title>の表示 + print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン + print("</head>\n") # HTMLの設定(閉) + print("<body>\n") # HTMLの表示部分 + + print("<h1>くちこみ投稿完了<sub><img class=\"head\" src=\"chara2.png\" width=\"80\" height=\"100\" alt=\"FUCHO\"></img></sub></h1>\n") + + +# p ku[13][1] + print("<div class=\"center\">\n") + printf("<h2>%s</h2>\n",name) + print("<h3>くちこみ情報</h3>\n") + print("<p>\n") + for i in ku.keys.sort + if ku[i][1] == adress + printf("・%s 投稿者%sさん<br>\n",ku[i][2],ku[i][3]) + end +# i += 1 + end + + print("</p>\n") + print("</div>\n") + print("<p>") + print("<a href=\"http://roy/~c110127/6hour/hospital.html\">検索画面へ戻る</a>\n") + print("<a href=\"http://roy/~c110067/6hour/kansei.html\">最短0.6秒TOP</a>\n") + print("<a href=\"http://roy/~c110127/6hour/\">最長6時間TOP</a></p>\n") + + + print("<p>最長 6 時間</p>\n") # <p>の表示 + + + print("</body>\n") # HTMLの表示部分(閉) + print("</html>\n") # HTMLの規定(閉) +end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/mikawa.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,4 @@ +みかわキッズクリニック 山形県東田川郡三川町大字猪子字大堰端379-7 0235350666 月,木,金,土,日 月,水,木,金 火,祝 :小児科:アレルギー科: +協立三川診療所 山形県東田川郡三川町横山袖東4-9 0235664770 火,水 火,水 月,木,金,土,日,祝 :内科:整形外科: +三川病院 山形県東田川郡三川町大字横山字堤39番地 0235680150 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:心療内科:精神科:神経科: +三川歯科 山形県東田川郡三川町横山字袖東2-1 0235662800 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/mogami.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,41 @@ +しばた歯科医院 山形県最上郡金山町字羽場922-3 0233643234 月,火,水,木,金,土 月,火,木,金,土 日,祝 :歯科: + +こくぶ歯科医院 山形県最上郡金山町大字金山319 0233643280 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科:矯正歯科: + +町立金山診療所 山形県最上郡金山町大字金山548-2 0233522915 不定期 不定期 不定期 :内科:外科:小児科:整形外科: + +最上町立最上病院 山形県最上郡最上町向町64-3 0233432112 月,火,水,木,金 月,火,水,金 土,日,祝 :内科:外科:整形外科:婦人科:眼科: + +永井医院 山形県最上郡最上町向町536-9 0233461511 月,火,水,木,金,土 月,水,木,金 日,祝 :内科:消化器科:腎臓内科:循環器科:整形外科: + +向町成原歯科医院 山形県最上郡最上町大字向町50-8 0233461405 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科: + +小川歯科医院 山形県最上郡最上町向町595-9 0233432341 不定期 不定期 不定期 :歯科: + +デンタル美光 山形県最上郡舟形町舟形493-9 0233323512 月,火,水,木,金,土 月,火,水,木,金 日,祝 :矯正歯科:歯科:歯科口腔外科:小児歯科: + +舟形診療所 山形県最上郡舟形町舟形365-16 0233323300 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:皮膚科: + +星川医院 山形県最上郡舟形町舟形149 0233322121 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科: + +姉崎外科内科医院 山形県最上郡真室川町新町125-3 0233622030 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:小児科:整形外科:皮膚科: + +姉崎医院 山形県最上郡真室川町大沢813 0233632352 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: + +町立真室川病院 山形県最上郡真室川町新町469-1 0233622211 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:整形外科:耳鼻いんこう科: + +真室川町立釜淵診療所 山形県最上郡真室川町釜渕818-1 0233652235 月,火,水,金 月,木,金 土,日,祝 :内科:整形外科: + +真室歯科医院 山形県最上郡真室川町大字新町92 0233622058 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: + +真室川町立及位診療所 山形県最上郡真室川町大字及位424-19 0233662112 なし 火,水 月,木,金,土,日,祝 :内科: + +伊藤歯科医院 山形県最上郡真室川町新町141 0233622338 不定期 不定期 不定期 :歯科: + +大蔵村診療所 山形県最上郡大蔵村大字清水2325-3 0233752355 月,火,水,木,金 月,火,木,金 土,日,祝 :内科:歯科: + +鮭川歯科診療所 山形県最上郡鮭川村大字佐渡2007-6 0233554189 月,火,水,木,金,土 月,火,木,金,土 日,祝 :歯科: + +佐藤医院 山形県最上郡鮭川村大字佐渡835 0233552606 月,火,水,木,金,土 なし 日,祝 :内科:外科: + +戸沢村中央診療所 山形県最上郡戸沢村古口2664-5 0233723363 月,火,水,木,金,土 月,水,金 日,祝 :内科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/murayama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,49 @@ +たておか小児クリニック 山形県村山市楯岡二日町7-7 0237552960 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科:アレルギー科: + +八鍬医院 山形県村山市楯岡新高田9-24 0237553425 月,火,水,金 月,火,水,金 日,祝 :内科: + +まつき整形外科クリニック 山形県村山市楯岡新町3-34-27 0237558558 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: + +佐藤眼科クリニック 山形県村山市楯岡晦日町5-2 0237557300 月,火,水,木,金,土 月,火,水,金,土 日,祝 :眼科: + +高橋こう美奈子内科クリニック 山形県村山市楯岡新町4丁目9-6 0237530770 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科:糖尿病内科: + +はんだクリニック 山形県村山市楯岡新町2丁目7-17 0237553511 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科:胃腸科:小児科: + +甲州耳鼻咽喉科医院 山形県村山市駅西19-26 0237558733 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: + +小野内科胃腸科クリニック 山形県村山市楯岡五日町14-25 0237525050 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科:胃腸科: + +三浦皮膚科医院 山形県村山市駅西18-2 0237552528 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :皮膚科: + +にっとう歯科医院 山形県村山市大久保甲563-1 0237542548 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科: + +小室医院 山形県村山市本飯田584 0237582014 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:アレルギー科:呼吸器科:小児科: + +鈴木内科医院 山形県村山市楯岡新町3丁目24-3 0237552238 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: + +矢口眼科クリニック 山形県村山市楯岡新町4丁目5-16 0237520140 月,火,水,金 月,火,水,金 日,祝 :眼科: + +羽根田医院 山形県村山市湯野沢1921 0237-54-3888 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:小児科: + +村山市休日診療所 山形県村山市中央1丁目3-6村山市保健センター内 0237552972 日,祝 日,祝 月〜土 :内科:小児科: + +きはら歯科クリニック 山形県村山市楯岡新町4丁目2-29 0237523118 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: + +深瀬歯科医院 山形県村山市中央2丁目9-12 0237553121 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: + +高橋内科神経科医院 山形県村山市楯岡荒町1丁目7-6 0237553435 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:心療内科:精神科:神経科:リハビリテーション科: + +菊地歯科クリニック 山形県村山市楯岡笛田4丁目2-18 0237556700 不定期 不定期 不定期 :歯科: + +板垣歯科医院 山形県村山市楯岡新町1丁目6-25 0237553749 不定期 不定期 不定期 :歯科: + +伊藤歯科医院 山形県村山市楯岡荒町1丁目3-2 0237552509 不定期 不定期 不定期 :歯科: + +田中歯科医院 山形県村山市楯岡楯13-29 0237556798 不定期 不定期 不定期 :歯科: + +仁藤歯科医院 山形県村山市楯岡十日町6-17 0237556681 不定期 不定期 不定期 :歯科: + +松田歯科医院 山形県村山市楯岡新高田9-7 0237555648 不定期 不定期 不定期 :歯科: + +奥山クリニック 山形県村山市駅西19-15 0237520380 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科:リハビリテーション科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/n_murayama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,45 @@ +細谷医院 山形県西村山郡河北町谷地ひな市1-3-5 0237723032 火,水,木,土,日 火,水,木,日 月,祝 :内科:小児科:麻酔科: +齋藤医院 山形県西村山郡河北町谷地所岡39-5 0237722168 月,火,水,木,金,土 なし 日,祝 :内科:外科: +かほく紅花クリニック 山形県西村山郡河北町谷地中央5丁目9-15 0237850350 月,火,水,木,金,土 月,火,水,金 日:祝 :内科:神経内科:脳神経外科: +ひなデンタルクリニック 山形県西村山郡河北町谷地中央2丁目6-12 08008009060 月,火,水,木,金,土 月,火,水,木 日,祝 :歯科: +すみや眼科クリニック 山形県西村山郡河北町谷地中央四丁目5-1 0237770035 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +和田医院 山形県西村山郡河北町谷地甲239 0237722048 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:消化器科: +浅野耳鼻咽喉科医院 山形県西村山郡河北町谷地所岡3丁目2-9 0237723010 月,火,水,木,金,土 月,火,水,木,金 日,祝 :耳鼻いんこう科: +鈴木内科医院 山形県西村山郡河北町谷地中央2丁目6-6 0237733300 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +板坂医院 山形県西村山郡河北町谷地甲217 0237711200 月,火,水,木,金,土 月,火,水,木,金, 日,祝 :内科:外科:呼吸器科:胃腸科:循環器科: +谷地整形外科クリニック 山形県西村山郡河北町谷地中央4丁目6-6 0237711321 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +西里齋藤医院 山形県西村山郡河北町西里750-3 0237733810 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科: +菊地医院 山形県西村山郡河北町溝延274-1 0237723402 なし 月,水,木,金,土 火,日,祝 :内科:胃腸科: +青木医院 山形県西村山郡河北町西里539-7 0237723773 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科:小児科: +工藤内科医院 山形県西村山郡河北町溝延字西浦12-1 0237727221 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科:呼吸器科: +つかさ内科医院 山形県西村山郡河北町谷地字月山堂408-1 0237847300 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +いしざわ皮ふ科クリニック 山形県西村山郡河北町谷地中央5丁目4-1 0237727370 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科: +小林医院 山形県西村山郡河北町谷地中央3丁目9-9 0237711323 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:アレルギー科:小児科:皮膚科 +矢口泌尿器科・内科クリニック 山形県西村山郡河北町谷地中央1丁目3-7 0237733111 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:泌 +尿器科: +やくわ歯科医院 山形県西村山郡河北町谷地字砂田203-5 0237722688 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +はまや歯科医院 山形県西村山郡河北町谷地荒町東1丁目5-7 0237725558 月,火,水,木,金 月,火,水,木,金 日,祝 :歯科: +山形県立河北病院 山形県西村山郡河北町谷地字月山堂111 0237733131 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:神経内科:脳神経外科:呼吸器科:消化器科:腎臓内科:循環器科:小児科:整形外科:皮膚科:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:麻酔科:乳腺外科 +小原病院 山形県西村山郡河北町谷地字月山堂151-1 0237727811 月,火,水 なし 木,金,土,日,祝 :精神科:神経科: +奥山歯科クリニック 山形県西村山郡河北町谷地所岡1丁目4-4 0237733126 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +湯澤歯科医院 山形県西村山郡河北町谷地中央3丁目12-6 0237722223 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +槙歯科クリニック 山形県西村山郡河北町谷地字田中4-4 0237733800 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +佐藤歯科医院 山形県西村山郡河北町谷地甲198六供 0237723539 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +逸見歯科医院 山形県西村山郡河北町西里763-2 0237734182 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +丹野歯科医院 山形県西村山郡河北町溝延326-4 0237734773 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +西川町立病院 山形県西村山郡西川町海味581 0237742211 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:小児科:整形外科: +大沼歯科医院 山形県西村山郡西川町大字海味653 0237744818 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:小児歯科: +阿部医院 山形県西村山郡西川町海味47 0237742306 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:産婦人科: +桜井歯科医院 山形県西村山郡西川町海味6-5 0237744836 月,火,水,木,金 月,火,水,木,金 土,日,祝 :歯科: +宮宿歯科医院 山形県西村山郡朝日町大字宮宿1119-2 0237673195 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +朝日町立病院 山形県西村山郡朝日町大字宮宿843 0237672125 月,火,水,木,金,土 なし 日,祝 :内科:外科:循環器科:整形外科:眼科 +佐野医院 山形県西村山郡朝日町宮宿1084-5 0237672299 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科: +石見歯科医院 山形県西村山郡朝日町宮宿1164-1 0237672042 不定期 不定期 不定期 :歯科: +多田医院 山形県西村山郡朝日町宮宿2305-2 0237672330 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +産婦人科: +奥山医院 山形県西村山郡大江町左沢310 0237622265 月,火,木,金,土 月,火,木,金 水,日,祝 :内科:神経内科:小児科:放射線科: +五十嵐歯科医院 山形県西村山郡大江町左沢396-1 0237624648 月,火,水,木,土 月,火,木,金,土 日,祝 :歯科:小児歯科: +太田歯科 山形県西村山郡大江町左沢887-3 0237622322 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +公平歯科医院 山形県西村山郡大江町左沢548-2 0237622034 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +霞晴堂白田医院 山形県西村山郡大江町左沢1187 0237623155 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科: +佐藤内科医院 山形県西村山郡大江町左沢1700 0237623277 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:消化器科:小児科:放射線科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/n_okitama.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,43 @@ +小国町立病院 山形県西置賜郡小国町あけぼの1丁目1 0238611111 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:小児科:整形外科:婦人科: +今医院 山形県西置賜郡小国町小国小坂町1丁目40 0238625383 月,火,水,木,金 月,火,水,木,金 日,祝 :内科: +田中クリニック 山形県西置賜郡小国町大字小国町170-2 0238610203 月,火,水,木,金,土 月,火,水,木,金 :内科:外科:整形外科: +村上歯科医院 山形県西置賜郡小国町栄町90 0238622452 不定期 不定期 不定期 :歯科: +加藤歯科医院 山形県西置賜郡小国町小国小坂町399 0238622678 不定期 不定期 不定期 :歯科: +五十嵐歯科医院 山形県西置賜郡白鷹町大字荒砥甲955 0238852075 月,火,水,金,土 月,火,水,金,土 木,日,祝 :歯科:矯正歯科:小児歯科: +みゆき整形外科クリニック 山形県西置賜郡白鷹町大字十王5059-13 0238855533 月,火,水,木,金,土 月,火,水,木,金 日,祝 +横沢医院 山形県西置賜郡白鷹町横田尻5379-1 0238872207 月,火,水,木,金,土 月,水,木,土 日,祝 :内科:胃腸科: +新野医院 山形県西置賜郡白鷹町鮎貝1077 0238852263 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:整形外科:リハビリテーション科: +多田医院 山形県西置賜郡白鷹町荒砥甲1055 0238852007 月,火,水,木,金,土 月,火,水,金, 日,祝 :内科:消化器科: + わたなべ歯科医院 山形県西置賜郡白鷹町大字鮎貝153-4 0238851873 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +白鷹町立病院 山形県西置賜郡白鷹町荒砥甲501 0238852155 月,火,水,木,金 なし 土,日,祝 :内科:外科:呼吸器科:整形外科:皮膚科:婦人科:リハビリテーション科: +佐藤歯科医院 山形県西置賜郡白鷹町荒砥乙1018 0238852422 不定期 不定期 不定期 :歯科: +岩崎歯科医院 山形県西置賜郡白鷹町荒砥乙965 0238852003 不定期 不定期 不定期 :歯科: +大森医院 山形県西置賜郡白鷹町荒砥乙3282 0238853636 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:外科:胃腸科:皮膚科:肛門科: +飯豊町国民健康保険診療所 山形県西置賜郡飯豊町大字椿3654-1 0238722300 月,火,水,木,金 月,火,木,金 土,日,祝 :内科:外科:小児科:皮膚科: +さゆり内科・歯科クリニック 山形県西置賜郡飯豊町大字萩生4362 0238863056 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:歯科: +医療法人清和会 寺嶋医院 山形県西置賜郡飯豊町手ノ子1453-1 0238752004 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +飯豊町国保中津川診療所 山形県西置賜郡飯豊町上原622 0238772330 月,水 なし 火,木,金,土,日,祝 :内科: + + + + + + + + + + + + + + + + + + + + + + + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/nagai.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,41 @@ +仁陽堂外田医院 山形県長井市栄町11-17 0238842004 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:消化器科:外科:リハビリテーション科: +村上歯科クリニック 山形県長井市花作町12-8 0238833650 月,火,水,金,土 月,火,水,金,土 木,日,祝 :歯科: +くのもと整形外科クリニック 山形県長井市九野本805-16 0238848880 月,火,水,金,土 月,火,水,金,土 木,日,祝 :整形外科:リハビリテーション科: +松下歯科医院 山形県長井市小出3844-3 0238870878 月,火,水,金,土 月,火,水,金,土 木,日,祝 :歯科:歯科口腔外科: +近藤皮フ科クリニック 山形県長井市高野町1-4-14-1 0238848886 月,火,水,金,土 月,火,水,金,土 木,日,祝 :皮膚科: +梅津医院 山形県長井市大町2-27 0238882078 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:消化器科:循環器科: +前山耳鼻咽喉科クリニック 山形県長井市泉1926-12 0238831187 月,火,水,金 月,火,水,金 木,土,日,祝 :アレルギー科:耳鼻いんこう科: +中村循環器科医院 山形県長井市栄町6-31 0238848077 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:呼吸器科:循環器科: +松下クリニック 山形県長井市本町1丁目9-27-1 0238882538 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:泌尿器科: +伊藤内科クリニック 山形県長井市緑町13-11 0238885566 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:小児科: +阿達医院 山形県長井市あら町6-47 0238882098 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:アレルギー科:リウマチ科: +寺島医院 山形県長井市歌丸1135 0238889406 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科: +三上医院 山形県長井市高野町1丁目6-1 0238883366 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +芳賀医院 山形県長井市四ツ谷1丁目6-27 0238842301 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:小児科:婦人科: +西原歯科医院 山形県長井市台町6-11 0238847722 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科: +はぎの内科医院 山形県長井市東町1-1 0238881789 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +桑島眼科医院 山形県長井市本町2丁目2-12 0238882720 月,火,木,金,土 月,火,金,土 水,日,祝 :眼科: +外田医院 山形県長井市大町8-6 0238842016 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:消化器科: +池田内科医院 山形県長井市台町6-1 0238847333 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +公立置賜長井病院 山形県長井市屋城町2-1 0238842161 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:精神科:呼吸器科:循環器科:整形外科:眼科:耳鼻いんこう科:リハビリテーション科: +吉川記念病院 山形県長井市成田1888-1 0238878000 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:精神科:神経内科:小児科:整形外科:リハビリテーション科: +長井・西置賜休日診療所 山形県長井市ままの上7-10 0238845799 日,祝 日,祝 月,火,水,木,金,土 :内科:外科:小児科: +赤間歯科医院 山形県長井市館町南17-8 0238882218 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +さとう小児科医院 山形県長井市幸町17-27 0238882662 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:アレルギー科:小児科: +齋藤眼科医院 山形県長井市ままの上1-16 0238845811 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +鈴木歯科医院 山形県長井市四ツ谷1丁目3-2 0238846616 不定期 不定期 不定期 :歯科: +サカイ歯科医院 山形県長井市中道1丁目2-2 0238845217 不定期 不定期 不定期 :歯科: +齋藤歯科医院 山形県長井市片田町3-5 0238881827 不定期 不定期 不定期 :歯科: +五十嵐歯科医院 山形県長井市大町7-16 0238882343 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県長井市四ツ谷2丁目4-52 0238840014 不定期 不定期 不定期 :歯科: +寺嶋歯科医院 山形県長井市本町2丁目7-27 0238882903 不定期 不定期 不定期 :歯科: +池田歯科医院 山形県長井市高野町2丁目5-14 0238882826 不定期 不定期 不定期 :歯科: +なかさとこどもクリニック 山形県長井市小出3930-3 0238848778 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +アカシア通り歯科クリニック 山形県長井市舟場21-11 0238831118 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: + + + + + + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/naika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,37 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>内科</title> +</head> +<body> +<div class=\"center\"> + + +<p><img class="head" src="chara_naika.png" width="300" height="90" alt="内科"></img></p> +<table border=1 align=center> + +<tr><th>特長</th> +<th>プライマリーケア（初期診療）の役割を持つ<br> +他の診療科と連携して治療を行うことが多い<br> +高校生以上の大人に対して病気全般や軽度な外傷の診断と手術以外の治療<br> +生活習慣病の改善のための管理や指導も行う +</th></tr> +<tr><th>主な症状</th> +<th>腹痛 頭痛 風邪</th></tr> + +<tr><th>主な病気</th> +<th>風邪 生活習慣病など</th></tr> + +</table> + +</div> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/nanyo.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,44 @@ +佐藤産婦人科医院 山形県南陽市宮内2545 0238472121 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:胃腸科:小児科:肛門科:産婦人科: +安日クリニック 山形県南陽市郡山877-5 0238402240 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:消化器科:胃腸科: +齋藤医院 山形県南陽市三間通280 0238432550 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:小児科: +さとうクリニック 山形県南陽市宮内3500 0238473109 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:胃腸科:肛門科: +さくら歯科クリニック 山形県南陽市赤湯3080-3イオンタウン南陽内 0238278241 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日,祝 なし :歯科:矯正歯科:歯科口腔外科: +板垣歯科クリニック 山形県南陽市郡山615-8 0238503348 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +あかゆ小児クリニック 山形県南陽市椚塚1686-1 0238438220 月,火,水,木,金,土 月,火,水,金 日,祝 :小児科: +加藤整形外科クリニック 山形県南陽市島貫615-9 0238503555 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +本町クリニック 山形県南陽市宮内2620 0238472777 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +齋藤医院 山形県南陽市宮内2963 0238472238 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:小児科:麻酔科: +西山医院 山形県南陽市宮内2779-1 0238472052 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +板垣医院 山形県南陽市宮内587-5 0238472407 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科: +齋藤内科クリニック 山形県南陽市宮内4652-1 0238472411 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +すまいる歯科 山形県南陽市三間通386-2 0238438143 月,火,木,金,土,日 月,火,木,金,土,日 水,祝 :歯科:小児歯科: +いとう歯科クリニック 山形県南陽市郡山中堀1215-12 0238500418 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科: +永山医院 山形県南陽市椚塚1821-2 0238432568 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:糖尿病内科:漢方内科:外科: +後藤医院 山形県南陽市赤湯342 0238432135 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:消化器科: +鈴木内科医院 山形県南陽市宮内4545-2 0238453355 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科:小児科: +南陽検診センター 山形県南陽市三間通466-5 0238436303 不定期 不定期 不定期 :放射線科: +三須小児科内科医院 山形県南陽市宮内2621 0238472071 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:小児科: +南陽市東置賜休日診療所 山形県南陽市椚塚420-7 0238403456 日,祝 なし 月,火,水,木,金,土 :内科:小児科: +トータルヘルスクリニック 山形県南陽市椚塚1180-5 0238403406 月,水,金 なし 火,木,土,日,祝 :内科:心療内科:呼吸器科:歯科: +赤湯駅前クリニック 山形県南陽市三間通126-11 0238437777 月,火,木,金,土 月,火,木,金,土 水,日,祝 :心療内科:精神科:神経科: +鈴木クリニック 山形県南陽市島貫590-15 0238500651 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科:泌尿器科: +小川医院 山形県南陽市郡山1082-10 0238432055 月,火,水,木,金,土 月,火,水,金,土 日,祝 :産婦人科: +公立置賜南陽病院 山形県南陽市宮内1204 0238473000 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:整形外科:泌尿器科:眼科:耳鼻いんこう科:リハビリテーション科: +西山病院 山形県南陽市宮内2779-1 0238472052 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +須藤皮膚科医院 山形県南陽市二色根75 0238434416 月,水,木,金,土 月,水,木,金 火,日,祝 :皮膚科: +大塚医院 山形県南陽市赤湯393 0238403133 月,火,水,木,金,土 月,水,木 日,祝 :内科:外科:胃腸科:肛門科: +坂本歯科医院 山形県南陽市椚塚1867-3 0238436229 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +渡辺整形外科医院 山形県南陽市赤湯346-34 0238432531 月,火,水,木,金,土 月,火,水,木,金 日,祝 :外科:整形外科:リハビリテーション科: +大西眼科 山形県南陽市赤湯2875-1 0238492400 月,火,水,木,金,土 月,木,金 日,祝 :眼科: +茂木医院 山形県南陽市二色根2-1 0238432577 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:小児科: +伊藤歯科医院 山形県南陽市宮内1188-6 0238452030 不定期 不定期 不定期 :歯科: +伊藤歯科医院 山形県南陽市赤湯440 0238432074 不定期 不定期 不定期 :歯科: +桜井歯科医院 山形県南陽市三間通139-5 0238432125 不定期 不定期 不定期 :歯科: +村越歯科医院 山形県南陽市三間通1227 0238403295 不定期 不定期 不定期 :歯科: +黒江歯科医院 山形県南陽市宮内3577 0238472154 不定期 不定期 不定期 :歯科: +齋藤歯科医院 山形県南陽市宮内2945 0238473309 不定期 不定期 不定期 :歯科: +佐藤歯科クリニック 山形県南陽市宮内929-4 0238472888 不定期 不定期 不定期 :歯科: +加藤歯科医院 山形県南陽市宮内3509-1 0238472216 不定期 不定期 不定期 :歯科: +竹田歯科医院 山形県南陽市宮内3430 0238472075 不定期 不定期 不定期 :歯科: +佐藤病院 山形県南陽市椚塚948-1 0238403170 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:心療内科:精神科: +佐藤歯科医院 山形県南陽市二色根74 0238432403 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/nishimurayama_kahoku.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,31 @@ +$B:YC+0e1!(B $B;37A8)@>B<;3742OKLD.C+CO$R$J;T(B1-3-5 0237723032 $B2P(B,$B?e(B,$BLZ(B,$BEZ(B,$BF|(B $B2P(B,$B?e(B,$BLZ(B,$BF|(B $B7n(B,$B=K(B :$BFb2J(B:$B>.;y2J(B:$BKc?l2J(B: +$Bc7F#0e1!(B $B;37A8)@>B<;3742OKLD.C+CO=j2,(B39-5 0237722168 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B$J$7(B $BF|(B,$B=K(B :$BFb2J(B:$B302J(B: +$B$+$[$/9H2V%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B5$BCzL\(B9-15 0237850350 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$B6b(B $BF|(B:$B=K(B :$BFb2J(B:$B?@7PFb2J(B:$BG>?@7P302J(B: +$B$R$J%G%s%?%k%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B2$BCzL\(B6-12 08008009060 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B $BF|(B,$B=K(B :$B;u2J(B: +$B$9$_$d4c2J%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+COCf1{;MCzL\(B5-1 0237770035 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$B6b(B $BF|(B,$B=K(B :$B4c2J(B: +$BOBED0e1!(B $B;37A8)@>B<;3742OKLD.C+CO9C(B239 0237722048 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$B>C2=4o2J(B: +$B@uLn<*I!0v9"2J0e1!(B $B;37A8)@>B<;3742OKLD.C+CO=j2,(B3$BCzL\(B2-9 0237723010 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$B<*I!0v9"2J(B: +$BNkLZFb2J0e1!(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B2$BCzL\(B6-6 0237733300 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $BF|(B,$B=K(B :$BFb2J(B: +$BHD:d0e1!(B $B;37A8)@>B<;3742OKLD.C+CO9C(B217 0237711200 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B, $BF|(B,$B=K(B :$BFb2J(B:$B302J(B:$B8F5[4o2J(B:$B0_D22J(B:$B=[4D4o2J(B: +$BC+CO@07A302J%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B4$BCzL\(B6-6 0237711321 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$B6b(B $BF|(B,$B=K(B :$B@07A302J(B:$B%j%O%S%j%F!<%7%g%s2J(B: +$B@>N$c7F#0e1!(B $B;37A8)@>B<;3742OKLD.@>N$(B750-3 0237733810 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$B>.;y2J(B: +$B5FCO0e1!(B $B;37A8)@>B<;3742OKLD.9B1d(B274-1 0237723402 $B$J$7(B $B7n(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B2P(B,$BF|(B,$B=K(B :$BFb2J(B:$B0_D22J(B: +$B@DLZ0e1!(B $B;37A8)@>B<;3742OKLD.@>N$(B539-7 0237723773 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$B=[4D4o2J(B:$B>.;y2J(B: +$B9)F#Fb2J0e1!(B $B;37A8)@>B<;3742OKLD.9B1d;z@>1:(B12-1 0237727221 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$B=[4D4o2J(B:$B8F5[4o2J(B: +$B$D$+$5Fb2J0e1!(B $B;37A8)@>B<;3742OKLD.C+CO;z7n;3F2(B408-1 0237847300 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B: +$B$$$7$6$oHi$U2J%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B5$BCzL\(B4-1 0237727370 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BHiIf2J(B: +$B>.NS0e1!(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B3$BCzL\(B9-9 0237711323 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$B%"%l%k%.!<2J(B:$B>.;y2J(B:$BHiIf2J(B +$BLp8}HgG"4o2J!&Fb2J%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B1$BCzL\(B3-7 0237733111 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B:$BHg(B +$BG"4o2J(B: +$B$d$/$o;u2J0e1!(B $B;37A8)@>B<;3742OKLD.C+CO;z:=ED(B203-5 0237722688 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$B;u2J(B: +$B$O$^$d;u2J0e1!(B $B;37A8)@>B<;3742OKLD.C+CO9SD.El(B1$BCzL\(B5-7 0237725558 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$B;u2J(B: +$B;37A8)N)2OKLIB1!(B $B;37A8)@>B<;3742OKLD.C+CO;z7n;3F2(B111 +0237733131 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $B$J$7(B $BEZ(B,$BF|(B,$B=K(B :$BFb2J(B:$B7l1UFb2J(B:$B302J(B:$B?@7PFb2J(B:$BG>?@7P302J(B:$B8F5[4o2J(B:$B>C2=4o2J(B:$B?UB!Fb2J(B:$B=[4D4o2J(B:$B>.;y2J(B:$B@07A302J(B:$BHiIf2J(B:$BHgG"4o2J(B:$B;:IX?M2J(B:$BFbJ,HgFb2J(B:$BE|G"IBFb2J(B:$B4c2J(B:$B<*I!$$$s$3$&2J(B:$B%j%O%S%j%F!<%7%g%s2J(B:$BJ|<M@~2J(B:$BKc?l2J(B:$BF}A#302J(B +$B>.86IB1!(B $B;37A8)@>B<;3742OKLD.C+CO;z7n;3F2(B151-1 0237727811 $B7n(B,$B2P(B,$B?e(B $B$J$7(B $BLZ(B,$B6b(B,$BEZ(B,$BF|(B,$B=K(B :$B@:?@2J(B:$B?@7P2J(B: +$B1|;3;u2J%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+CO=j2,(B1$BCzL\(B4-4 0237733126 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$BFb2J(B: +$BEr_7;u2J0e1!(B $B;37A8)@>B<;3742OKLD.C+COCf1{(B3$BCzL\(B12-6 0237722223 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$B;u2J(B: +$BKj;u2J%/%j%K%C%/(B $B;37A8)@>B<;3742OKLD.C+CO;zEDCf(B4-4 0237733800 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B $BF|(B,$B=K(B :$B;u2J(B: +$B:4F#;u2J0e1!(B $B;37A8)@>B<;3742OKLD.C+CO9C(B198$BO;6!(B 0237723539 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $BF|(B,$B=K(B :$B;u2J(B: +$B0o8+;u2J0e1!(B $B;37A8)@>B<;3742OKLD.@>N$(B763-2 0237734182 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $BF|(B,$B=K(B :$B;u2J(B: +$BC0Ln;u2J0e1!(B $B;37A8)@>B<;3742OKLD.9B1d(B326-4 0237734773 $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $B7n(B,$B2P(B,$B?e(B,$BLZ(B,$B6b(B,$BEZ(B $BF|(B,$B=K(B :$B;u2J(B: +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/noushinkeigeka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,41 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>脳神経外科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_nousinkeigeka.png" width="300" height="90" +alt="脳神経外科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>脳・脊髄・末梢神経系や血管・骨・筋肉など<br> + 神経系疾患の中で主に外科的治療の対象になる疾患について診療する</th></tr> + +<tr><th>主な症状</th> +<th>もの忘れ 頭痛 けいれん 言語理解の損失 意識傷害 </th></tr> + +<tr><th>主な病気</th> +<th> くも膜下出血 脳梗塞 脳卒中<br> + 脳腫瘍 椎間板ヘルニア<br> + 頭骸骨骨折 頭蓋内出血<br> + 老化と痴呆（水頭症 脳血流低下など）<br> + 先天奇形<br> + 炎症性疾患（髄膜炎 脳炎 寄生虫） + </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/obanazawa.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,16 @@ +おくやま内科医院 山形県尾花沢市新町中央3-6 0237240980 月,火,水,金,土 月,火,水,金 木,日,祝 :内科: +清治医院 山形県尾花沢市上町6丁目3-15 0237232125 月,火,水,木,金,土 月,火,水,木,金, 日,祝 :内科:消化器科: +尾花沢病院 山形県尾花沢市朧気695-3 0237233637 月,火,水,金,土,日 月,火,水,金,土,日 木,祝 :内科:心療内科:精神科:神経内科:消化器科:リハビリテーション科: +尾花沢市中央診療所 山形県尾花沢市新町3-2-20 0237232010 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:胃腸科:外科:肛門科: +鈴木内科医院 山形県尾花沢市横町1-11-30 0237220375 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科: +星川医院 山形県尾花沢市新町4丁目1-14 0237223030 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:胃腸科:整形外科:リハビリテーション科: +伊藤クリニック 山形県尾花沢市若葉町1丁目3-1 0237233350 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:外科:神経内科: +ゆうき眼科クリニック 山形県尾花沢市上町4丁目7-7 0237241522 月,火,水,木,金,土 月,水,金 日,祝 :眼科: +さかえクリニック 山形県尾花沢市上町1丁目1-8 0237538181 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:皮膚科:泌尿器科:婦人科: +さとう歯科医院 山形県尾花沢市新町中央3-16 0237223131 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科: +おおるいデンタルクリニック 山形県尾花沢市新町1丁目1-1 0237241551 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +菅野歯科医院 山形県尾花沢市梺町2丁目1-5 0237220376 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +熊谷医院 山形県尾花沢市新町4丁目1-31 0237240180 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:胃腸科:放射線科: +大類歯科医院 山形県尾花沢市上町5丁目5-52 0237220030 不定期 不定期 不定期 :歯科: +鈴木歯科 山形県尾花沢市新町1丁目4-25中新田 0237220182 不定期 不定期 不定期 :歯科: +西塚歯科医院 山形県尾花沢市中町1-20 0237220018 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/riumachi.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,42 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>リウマチ科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src"=chara_riumatika.png" width="300" height="90" +alt="リウマチ科"></img> +<br><br> +<table border=1 align=center> + +<p><img class=\"head\" src=\"chara_riumatika.png\" width=\"300\" height=\"90\" alt=\"リウマチ科\"></img></p> +<table border=1> + +<tr><th>特長</th> +<th> </th></tr> + +<tr><th>主な症状</th> +<th>関節やその周囲には腫れや痛みを伴うリウマチを中心とした<br> + 自己免疫疾患の診察・治療 関節が痛く、<br> + 発熱、倦怠感、体重の減少なども伴う + </th></tr> + +<tr><th>主な病気</th> +<th>関節リウマチ 全身性硬化<br> + 血管炎症候群 骨粗しょう症 痛風 + </th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagae.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,48 @@ +国井クリニック 山形県寒河江市中郷字角田1450-1 0237844103 月,火,水,木,金,土 月,火,木,金 日,祝 :産婦人科:内科:小児科: +大原医院 山形県寒河江市西根下堰509 0237868600 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:皮膚科: +田中内科・消化器科クリニック 山形県寒河江市高田1-10-10 0237858700 月,火,水,金,土 月,火,水,金 木,日,祝 :内科:消化器内科: +陵南さとう整形外科 山形県寒河江市内ノ袋1丁目9-6 0237855511 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +折居内科医院 山形県寒河江市落衣前2-1 0237860330 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:神経内科:リハビリテーション科: +佐藤歯科医院 山形県寒河江市島字島東75 0237867201 月,火,水,木,金,土 月,火,木,金,土 日,祝 :歯科:矯正歯科: +さとうクリニック 山形県寒河江市日田字五反204-3 0237833300 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:呼吸器科:消化器科:循環器科: +小松医院 山形県寒河江市本町2-11-43 0237862185 月,火,木,金,土,日 月,火,木,金,土 水,祝 :内科:呼吸器科:消化器科:循環器科: +豊岡整形外科 山形県寒河江市中央1-13-31 0237864331 月,火,木,金,土 月,火,木,金 水,日,祝 :外科:整形外科:リウマチ科:リハビリテーション科: +横山耳鼻咽喉科医院 山形県寒河江市元町1丁目2-1 0237866188 月,火,水,木,金,土 月,火,水,金 日,祝 :耳鼻いんこう科: +国井医院 山形県寒河江市中央1丁目5-27 0237864811 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +西川産婦人科小児科医院 山形県寒河江市寒河江字月越5-2 0237863215 月,火,水,金,土,日 月,火,水,金,土 木,祝 :アレルギー科:小児科:産婦人科: +渡辺外科胃腸科医院 山形県寒河江市寒河江字小和田25-1 0237866408 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:胃腸科: +平野医院 山形県寒河江市小沼町69-1 0237845500 月,火,水,木,金,土 月,火,水,金 日,祝 :皮膚科:泌尿器科: +小関内科胃腸科医院 山形県寒河江市本町2丁目5-20 0237865550 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:胃腸科: +国井デンタルクリニック 山形県寒河江市中郷1446 0237778014 月,火,木,金,土 月,火,木,金,土 水,日,祝 :歯科: +石山歯科 山形県寒河江市丸内1丁目3-14 0237859585 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +卯月歯科クリニック 山形県寒河江市高田2丁目5-10 0237860080 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +大久保歯科医院 山形県寒河江市中央1丁目8-46 0237860710 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科:小児歯科: +あびこ耳鼻咽喉科クリニック 山形県寒河江市南町2丁目1-12 0237863026 月,火,水,木,金,土 月,火,木,金 日,祝 :耳鼻いんこう科: +中正堂高橋医院 山形県寒河江市白岩220 0237871001 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科:眼科: +土田内科医院 山形県寒河江市元町2丁目4-3 0237868282 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +熊坂整形外科医院 山形県寒河江市栄町7-11 0237863101 月,火,木,金,土 月,火,木,金,土 水,日,祝 :整形外科: +あきば医院 山形県寒河江市末広町2-33 0237864395 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:整形外科: +にとう小児科医院 山形県寒河江市元町3丁目8-9 0237845311 月,火,水,木,金,土 月,火,木,金 日,祝 :小児科: +白田整形外科歯科医院 山形県寒河江市西根字石川西269-1 0237842161 月,火,水,木,金,土 月,火,水,木,金 日,祝 :整形外科:歯科: +三浦医院 山形県寒河江市柴橋718-1 0237845600 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科: +寒河江の庄病院 山形県寒河江市島字島東217 0237865560 月,火,木,金,土 なし 水,日,祝 :内科:心療内科:精神科: +鈴木眼科 山形県寒河江市中央1丁目13-35 0237866900 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +鈴木歯科 山形県寒河江市元町3丁目5-23 0237860544 不定期 不定期 不定期 :歯科: +石川歯科医院 山形県寒河江市本町2丁目6-46 0237865222 不定期 不定期 不定期 :歯科: +奥山歯科医院 山形県寒河江市八幡町1-3 0237843275 不定期 不定期 不定期 :歯科: +奥山歯科医院 山形県寒河江市本町3丁目7-9 0237864887 不定期 不定期 不定期 :歯科: +清野歯科医院 山形県寒河江市寒河江字塩水59-6 0237843720 不定期 不定期 不定期 :歯科: +大沼歯科医院 山形県寒河江市中央2丁目7-40 0237865225 不定期 不定期 不定期 :歯科: +鈴木歯科医院 山形県寒河江市白岩30-1 0237871000 不定期 不定期 不定期 :歯科: +高橋歯科 山形県寒河江市若葉町13-14 0237842141 不定期 不定期 不定期 :歯科: +井上歯科医院 山形県寒河江市島字島東238-1 0237868363 不定期 不定期 不定期 :歯科: +土田歯科医院 山形県寒河江市白岩207-3 0237871555 不定期 不定期 不定期 :歯科: +サカエ歯科クリニック 山形県寒河江市栄町2-6 0237866480 不定期 不定期 不定期 :歯科: +伊藤歯科医院 山形県寒河江市元町4丁目4-13 0237861138 不定期 不定期 不定期 :歯科: +尾形歯科医院 山形県寒河江市白岩201 0237871436 不定期 不定期 不定期 :歯科: +菊地歯科医院 山形県寒河江市高松247 0237871050 不定期 不定期 不定期 :歯科: +山形県成人病検査センター 山形県寒河江市六供町2丁目5-13 0237864291 不定期 不定期 不定期 :放射線科: +山崎医院 山形県寒河江市丸内1丁目5-30 0237860005 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:脳神経外科: +武田婦人科・内科医院 山形県寒河江市中央1丁目14-36 0237862641 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:婦人科: +寒河江市立病院 山形県寒河江市寒河江字塩水80 0237862101 月,火,水,木,金 なし 土,日,祝 :内科:外科:神経内科:呼吸器科:消化器科:腎臓内科:循環器科:整形外科:皮膚科:内分泌内科:糖尿病内科:眼科:リハビリテーション科: +陵南眼科クリニック 山形県寒河江市仲谷地2丁目3-6 0237833456 月,火,水,木,金,土 月,火,木,金 日,祝 :眼科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagasu.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,30 @@ + +body{ + background:#87ceeb url("chara2.png") no-repeat fixed right bottom; +} + + + +img.head:before{ content:url("niko.png")} +img.head:after{ content:url("niko.png")} + + + +div.center{ + + background:#75b4f5; + margin : 15%; + border:dotted#ffff00; + padding : 0px 2px 0px 2px +} + +h1{ text-align: center; +font-size: 7ex; +color: ffff00;} +h3{ text-align: center;} +p{ text-align: center;} + +table{ margin : 15%; +} + +th{text-align: left;}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagasu.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,164 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +require 'cgi' # cgiを使う宣言をする +c = CGI.new(:accept_charset => "EUC-JP") +print "Content-type: text/html; charset=EUC-JP\n\n" + +choice = c["sagashikata"] # フォームに記入された変数を + + +if choice == "症状" + +print("<html>\n") +print("<head>\n") +print("<link rel=\"stylesheet\" type=\"text/css\" href=\"sagasu.css\">\n") +print("<title>症状検索</title>\n") # <title>の表示 +print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン +print("<\head>\n") +print("<body>\n") +printf("<h1>症状から検索<sub><img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></sub></h1>") + +print("<form method=\"POST\" action =\"sagasu_shojo.rb\">\n") +print("<div class=\"center\">\n") +printf("<h3>症状を選んで下さい複数の選択も可能です。</h3>\n") + +print("<table border=0>\n") +print("<tr><td><input type=\"checkbox\" name=\"a\" value=\"お腹が痛い\">お腹が痛い</td>\n") +print("<td><input type=\"checkbox\" name=\"b\" value=\"胃がもたれる\">胃がもたれる</td>\n") +print("<td><input type=\"checkbox\" name=\"c\" value=\"食欲がない\">食欲がない</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"d\" value=\"下痢または便秘が続く\">下痢または便秘が続く</th>\n") +print("<td><input type=\"checkbox\" name=\"e\" value=\"頭が痛い\">頭が痛い</td>\n") +print("<td><input type=\"checkbox\" name=\"f\" value=\"熱がある\">熱がある</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"g\" value=\"鼻水が出る\">鼻水が出る</td>\n") +print("<td><input type=\"checkbox\" name=\"h\" value=\"目が痛い・かゆい・充血する\">目が痛い・かゆい・充血する</td>\n") +print("<td><input type=\"checkbox\" name=\"i\" value=\"歯が痛い・しみる\">歯が痛い・しみる</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"j\" value=\"耳が痛い・耳なりがする\">耳が痛い・耳なりがする</td>\n") +print("<td><input type=\"checkbox\" name=\"k\" value=\"喉が痛い・声がでない\">喉が痛い・声がでない</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"n\" value=\"月経不順\">月経不順</td>\n") +print("<td><input type=\"checkbox\" name=\"o\" value=\"咳が止まらない\">咳が止まらない</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"p\" value=\"骨が痛い・折れたようだ\">骨が痛い・折れたようだ</td>\n") +print("<td><input type=\"checkbox\" name=\"l\" value=\"腰が痛い\">腰が痛い</td>\n") +print("<td><input type=\"checkbox\" name=\"m\" value=\"肩が痛い・凝っている\">肩が痛い・凝っている</td></tr>\n") + +print("<tr><th><input type=\"checkbox\" name=\"r\" value=\"豊胸・整形・脂肪吸引・永久脱毛したい\">豊胸・脂肪吸引・脱毛したい</td>\n") +print("<td><input type=\"checkbox\" name=\"z\" value=\"整形したい\">整形したい</td></tr>\n") + +print("<tr><th><input type=\"checkbox\" name=\"s\" value=\"皮膚に火傷をおった\">皮膚に火傷をおった</td>\n") +print("<td><input type=\"checkbox\" name=\"t\" value=\"呼吸が苦しい\">呼吸が苦しい</td></tr>\n") + +print("<tr><th><input type=\"checkbox\" name=\"u\" value=\"幻聴・幻覚・妄想\">幻聴・幻覚・妄想</td>\n") +print("<td><input type=\"checkbox\" name=\"v\" value=\"不安で眠れない\">不安で眠れない</td></tr>\n") + +print("<tr><th><input type=\"checkbox\" name=\"w\" value=\"イライラが続く\">イライラが続く</td>\n") +print("<td><input type=\"checkbox\" name=\"x\" value=\"めまい・立ちくらみ\">めまい・立ちくらみ</td>\n") +print("<td><input type=\"checkbox\" name=\"y\" value=\"物忘れ\">物忘れ</td></tr>\n") +print("</table>\n") + +print("<p>\n") +print("<input type =\"submit\" value=\"検索\">\n") +print("</p>\n") +print("</div>\n") + +print("</form>\n") +print("<p>\n") +print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>\n") +print("最長 6 時間</p>\n") + +print("</body>\n") +print("</html>\n") + + +elsif choice == "診療科名" + +print("<html>\n") +print("<head>\n") +print("<link rel=\"stylesheet\" type=\"text/css\" href=\"sagasu.css\">\n") +print("<title>診療科の検索</title>\n") # <title>の表示 +print("<link rel=\"shortcut icon\" href=\"smile.png\">\n") # アイコン +print("<\head>\n") +print("<body>\n") +printf("<h1>診療科の検索結果<sub><img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></sub></h1>\n") +print("<div class=\"center\">\n") +print("<form method=\"POST\" action =\"sagasu_ka3.rb\">\n") +print("<p>診療科 を選択してください。<br>複数の選択も可能です。</p>\n") + +print("<table border=0>\n") +print("<tr><td><input type=\"checkbox\" name=\"naika\" value=\"内科\">内科</td>\n") +print("<td><input type=\"checkbox\" name=\"geka\" value=\"外科\">外科</td>\n") +print("<td><input type=\"checkbox\" name=\"sinryou\" value=\"心療内科\">心療内科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"seisin\" value=\"精神科\">精神科</td>\n") +print("<td><input type=\"checkbox\" name=\"sinkei\" value=\"神経科\">神経科</td>\n") +print("<td><input type=\"checkbox\" name=\"sinkeinaika\" value=\"精神内科\">神経内科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"kokyu\" value=\"呼吸器科\">呼吸器科</td>\n") +print("<td><input type=\"checkbox\" name=\"syouka\" value=\"消化器科\">消化器科</td>\n") +print("<td><input type=\"checkbox\" name=\"ityou\" value=\"胃腸科\">胃腸科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"hihu\" value=\"皮膚科\">皮膚科</td>\n") +print("<td><input type=\"checkbox\" name=\"hinyou\" value=\"泌尿器科\">泌尿器科</td>\n") +print("<td><input type=\"checkbox\" name=\"junkan\" value=\"循環器科\">循環器科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"areru\" value=\"アレルギー科\">アレルギー科</td>\n") +print("<td><input type=\"checkbox\" name=\"riumati\" value=\"リウマチ科\">リウマチ科</td>\n") +print("<td><input type=\"checkbox\" name=\"syouni\" value=\"小児科\">小児科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"seikeigeka\" value=\"整形外科\">整形外科</td>\n") +print("<td><input type=\"checkbox\" name=\"keisei\" value=\"形成外科\">形成外科</td>\n") +print("<td><input type=\"checkbox\" name=\"biyou\" value=\"美容外科\">美容外科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"nousinkei\" value=\"脳神経外科\">脳神経外科</td>\n") +print("<td><input type=\"checkbox\" name=\"kokyugeka\" value=\"呼吸器外科\">呼吸器外科</td>\n") +print("<td><input type=\"checkbox\" name=\"sinzou\" value=\"心臓血管外科\">心臓血管外科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"syounigeka\" value=\"小児外科\">小児外科</td>\n") +print("<td><input type=\"checkbox\" name=\"koumon\" value=\"肛門科\">肛門科</td>\n") +print("<td><input type=\"checkbox\" name=\"seibyou\" value=\"性病科\">性病科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"sanhujin\" value=\"産婦人科\">産婦人科</td>\n") +print("<td><input type=\"checkbox\" name=\"sanka\" value=\"産科\">産科</td>\n") +print("<td><input type=\"checkbox\" name=\"hujinka\" value=\"婦人科\">婦人科</td></tr>\n") + + + +print("<tr><td><input type=\"checkbox\" name=\"ganka\" value=\"眼科\">眼科</td>\n") +print("<td><input type=\"checkbox\" name=\"jibiinkou\" value=\"耳鼻いんこう科\">耳鼻いんこう科</td>\n") +print("<td><input type=\"checkbox\" name=\"kikansyoku\" value=\"気管食道科\">気管食道科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"rihabiri\" value=\"リハビリテーション科\">リハビリテーション科</td>\n") +print("<td><input type=\"checkbox\" name=\"masui\" value=\"麻酔科\">麻酔科</td>\n") +print("<td><input type=\"checkbox\" name=\"sika\" value=\"歯科\">歯科</td></tr>\n") + +print("<tr><td><input type=\"checkbox\" name=\"housya\" value=\"放射線科\">放射線科</td>\n") +print("<td><input type=\"checkbox\" name=\"housyasindan\" value=\"放射診断科\">放射診断科</td>\n") +print("<td><input type=\"checkbox\" name=\"housyatiryou\" value=\"放射線治療科\">放射線治療科</td></tr>\n") + + +print("<tr><td><input type=\"checkbox\" name=\"kyousei\" value=\"矯正歯科\">矯正歯科</td>\n") +print("<td><input type=\"checkbox\" name=\"syounisika\" value=\"小児歯科\">小児歯科</td>\n") +print("<td><input type=\"checkbox\" name=\"sikakouku\" value=\"歯科口腔外科\">歯科口腔外科</td></tr>\n") + +print("</table>\n") +print("<p>\n") +print("<input type =\"submit\" value=\"検索\">\n") +print("</p>\n") + +print("</form>\n") +print("</div>\n") + + +print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>\n") +# TOPへのリンクの表示 +print("最長 6 時間</p>\n") + +print("</body>\n") +print("</html>\n") +end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagasu_ka.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,33 @@ + +body{ + background-color:#87ceeb + + +} + + +img.head:before{ content:url("niko.png")} +img.head:after{ content:url("niko.png")} + + + +div.center{ + + background:#75b4f5; + margin : 15%; + border:dotted#ffff00; + padding : 10px; +} + +h1{ text-align: center; +font-size: 7ex; +color: ffff00;} +h3{ text-align: center;} +p{ text-align: center;} + + +table{ +background-color:white; +} + +th{text-align: left;}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagasu_ka3.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,725 @@ +#!/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" # 日本語コードの定義 + +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"] + + + + +print("<html>\n") # HTMLの規定 +print("<head>\n") # HTMLの設定 + +print("<link rel=\"stylesheet\" type=\"text/css\" href=\"sagasu_ka.css\">\n") + # cssの設定 +print("<title>診療科の情報</title>\n") # <title>の表示 +print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン +print("</head>\n") # HTMLの設定(閉) +print("<body>\n") # HTMLの表示部分 + +print("<h1>診療科の情報<sub><img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></sub></h1></h1>\n") # <h1>の表示 + +print("<h3>選択した診療科:\n") +for apply in ka + printf("%s\n",apply) # <p>の表示 +end +print("</h3>") + +print("<div class=\"center\">") +for apply in ka + + if apply == "内科" + print("<p><img class=\"head\" src=\"chara_naika.png\" width=\"300\" height=\"90\" alt=\"内科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>プライマリーケア（初期診療）の役割を持つ<br>\n") + print("他の診療科と連携して治療を行うことが多い<br>\n") + print("高校生以上の大人に対して病気全般や軽度な外傷の診断と手術以外の治療<br>\n") + print("生活習慣病の改善のための管理や指導も行う") + print("</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>腹痛 頭痛 風邪</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>風邪 生活習慣病など</th></tr>\n") + + print("</table>\n") + + elsif apply == "心療内科" + print("<p><img class=\"head\" src=\"chara_sinlyounaika.png\" width=\"300\" height=\"90\" alt=\"心療内科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>心身病に関する診療を行う<br>\n") + print("身体疾患の中でも、心理社会的な因子が関与しているもの<br>\n") + print("ただし、精神障害に伴う場合は除外する。 + </th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>腹痛、下痢、便秘、頭痛など<br>\n") + print("ただし、心理社会的な因子が関与する場合") + print("</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>過敏性腸症候群など</th></tr>\n") + + print("</table>\n") + + elsif apply == "精神科" + print("<p><img class=\"head\" src=\"chara_seisinka.png\" width=\"300\" height=\"90\" alt=\"精神科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>精神疾患や心の病気を診療する</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>過度な不安 抑鬱 イライラ<br>\n") + print("幻覚 幻聴 妄想 など</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>統合失調病 アルツハイマー<br>\n") + print("パニック障害 うつ病 ADHD など") + + print("</th></tr>\n") + print("</table>\n") + print("<p>神経科とほぼ同様の診療</p>") + + + elsif apply == "神経科" + print("<p><img class=\"head\" src=\"sinkeika.png\" width=\"300\" height=\"90\" alt=\"神経科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>精神疾患や心の病気を診療する</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>過度な不安 抑鬱 イライラ<br>\n") + print("幻覚 幻聴 妄想 など</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>統合失調病 アルツハイマー<br>\n") + print("パニック障害 うつ病 ADHD など") + print("</th></tr>\n") + print("</table>\n") + print("<p>※精神科とほぼ同様の診療</p>") + + elsif apply == "神経内科" + print("<p><img class=\"head\" src=\"chara_sinkeinaika.png\" width=\"300\" height=\"90\" alt=\"神経内科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>脳神経系の疾患を診療する</th></tr>\n") + + print("<tr><th>主な症状</th> + <th> </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>脳血管障害 パーキンソン病<br>\n + 脳腫瘍など<br>\n + 脳になにかできている病気</th></tr>\n") + + print("</table>\n") + + elsif apply == "呼吸器科" + print("<p><img class=\"head\" src=\"chara_kokilyuukika.png\" width=\"300\" height=\"90\" alt=\"呼吸器科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>呼吸器(肺、気管、気管支、胸壁など)に関わる疾患のうち、<br>\n + 内科的治療行う</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>呼吸が苦しい 咳やたんが多い<br>\n + 深呼吸すると胸や背中が痛い<br>\n + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>風邪 インフルエンザ 慢性気管支炎<br>\n + 肺炎 肺梗塞 肺がん など<br>\n + </th></tr>\n") + + print("</table>\n") + + elsif apply == "消化器科" + print("<p><img class=\"head\" src=\"chara_shoukakika.png\" width=\"300\" height=\"90\" alt=\"消化器科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>消化管 肝臓 胆のう すい臓などの疾患に関する診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>体重減少 胃痛 便秘 下痢 血便<br>\n + 胸焼け 胃もたれ 吐き気 食欲不振<br>\n + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>アルコール性肝炎 逆流性食道炎 腹膜炎 など<br> \n + </th></tr>\n") + + print("</table>\n") + + elsif apply == "胃腸科" + print("<p><img class=\"head\" src=\"chara_ichouka.png\" width=\"300\" height=\"90\" alt=\"胃腸科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>胃 腸 消化管 肝臓 胆のう すい臓などに関する疾患の診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>胸焼け 胃もたれ 吐き気 食欲不振<br>\n + 胃痛 腹痛 便秘 下痢 血便<br>\n + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>胃炎 胃潰瘍 ウイルス性胃腸炎 胃がん 大腸炎 など </th></tr>\n") + + print("</table>\n") + + elsif apply == "循環器科" + print("<p><img class=\"head\" src=\"chara_junkankika.png\" width=\"300\" height=\"90\" alt=\"循環器科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>心臓と血管に関する疾患の診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>安静時・運動時の胸部の痛み<br>\n + 背中の痛み 動機・息切れ<br>\n + 脈の乱れ めまい 立ちくらみ + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>高血圧 糖尿病<br>\n + 心筋梗塞 狭心症 不整脈 + </th></tr>\n") + + print("</table>\n") + + elsif apply == "アレルギー科" + print("<p><img class=\"head\" src=\"chara_arerugika.png\" width=\"300\" height=\"90\" alt=\"アレルギー科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>皮膚科と呼吸科にまたがって、アレルギーだけを扱う</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>湿疹が出る 肌が痒い</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>アレルギー性結膜炎 ぜんそく</th></tr>\n") + + print("</table>\n") + + elsif apply == "リウマチ科" + print("<p><img class=\"head\" src=\"chara_riumatika.png\" width=\"300\" height=\"90\" alt=\"リウマチ科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th> </th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>関節やその周囲には腫れや痛みを伴うリウマチを中心とした<br>\n + 自己免疫疾患の診察・治療 関節が痛く、<br>\n + 発熱、倦怠感、体重の減少なども伴う + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>関節リウマチ 全身性硬化<br>\n + 血管炎症候群 骨粗しょう症 痛風 + </th></tr>\n") + + print("</table>\n") + + elsif apply == "小児科" + print("<p><img class=\"head\" src=\"chara_shounika.png\" width=\"300\" height=\"90\" alt=\"小児科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>こどもの疾患に関して診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>発熱 咳がとまらない 食欲低下<br>\n + 泣き方が弱弱しい 下痢・嘔吐が続く<br>\n + 皮膚や白目が黄色い けいれん + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>小児喘息 咽頭結膜熱 プール熱</th></tr>\n") + + print("</table>\n") + + elsif apply == "外科" + print("<p><img class=\"head\" src=\"chara_geka.png\" width=\"300\" height=\"90\" alt=\"外科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>手術によって治療を行う</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th> 外傷 腫瘍 炎症<br>\n + （体のあらゆる部位・臓器にわたる）<br>\n + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>肝血管腫 漏斗胸 </th></tr>\n") + + print("</table>\n") + + elsif apply == "整形外科" + print("<p><img class=\"head\" src=\"chara_seikeigeka.png\" width=\"300\" height=\"90\" alt=\"整形外科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>骨 筋肉 靭帯 関節に関する疾患の診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th> 肩こり 手のしびれ<br>\n + 首・肩の痛みからの頭痛<br>\n + ぎっくり腰 腰痛<br>\n + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>捻挫 骨折</th></tr>\n") + + print("</table>\n") + + elsif apply == "形成外科" + print("<p><img class=\"head\" src=\"chara_keiseigeka.png\" width=\"300\" height=\"90\" alt=\"形成外科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>体表面を中心とするあらゆる先天性・後天性の変形を<br>\n + 外科的手段などにより正常に近づけ<br>\n + 患者さんの肉体的・精神的苦痛を取り除く</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th> + 外傷（顔面骨骨折の治療）<br>\n + 先天異常（口唇裂 多指症 小耳症）<br>\n + 腫瘍（やけどやけがによる変形・傷跡）<br>\n + 美容（でべそ わきが） + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>陥入爪 眼瞼下垂 脂肪腫 小耳症</th></tr>\n") + + print("</table>\n") + + elsif apply == "美容外科" + print("<p><img class=\"head\" src=\"chara_biyougeka.png\" width=\"300\" height=\"90\" alt=\"美容外科\"></img></p>\n") + + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>眼、鼻、顔面、皮膚などについて、<br>\n + これに起因する精神的負担の軽減、除去効果も考慮し、<br>\n + この形状をより美的に形成する</th></tr>\n") + + print("<tr><th>主な処置</th>\n") + print("<th>豊胸 美容整形 脂肪吸引 永久脱毛 + </th></tr>\n") + + print("</table>\n") + + elsif apply == "脳神経外科" + print("<p><img class=\"head\" src=\"chara_nousinkeigeka.png\" width=\"300\" height=\"90\" alt=\"脳神経外科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>脳・脊髄・末梢神経系や血管・骨・筋肉など<br>\n + 神経系疾患の中で主に外科的治療の対象になる疾患について診療する</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>もの忘れ 頭痛 けいれん 言語理解の損失 意識傷害 </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th> くも膜下出血 脳梗塞 脳卒中<br>\n + 脳腫瘍 椎間板ヘルニア<br>\n + 頭骸骨骨折 頭蓋内出血<br>\n + 老化と痴呆（水頭症 脳血流低下など）<br>\n + 先天奇形<br>\n + 炎症性疾患（髄膜炎 脳炎 寄生虫） + </th></tr>\n") + + print("</table>\n") + + elsif apply == "呼吸器外科" + print("<p><img class=\"head\" src=\"chara_kokilyuukika.png\" width=\"300\" height=\"90\" alt=\"呼吸器外科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>肺・気管・気管支・縦隔・胸壁・横隔膜など呼吸器にかかわる疾患のうち、<br>\n + 外科的治療を必要とするものを対象とする診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>せき たん 胸痛 上腕痛 顔の腫れ</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>肺がん 重症筋無力症 肺気症<br>\n + 胸部外傷 胸腺腫</th></tr>\n") + + print("</table>\n") + + + elsif apply == "皮膚科" + print("<p><img class=\"head\" src=\"chara_hihuka.png\" width=\"300\" height=\"90\" alt=\"皮膚科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>皮膚・口腔・爪・髪の毛などの疾患を対象として診療する</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>肌がぶつぶつする 肌荒れ 肌のかゆみ</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>アトピー性皮膚炎 皮膚炎 あせも + にきび 水虫 + </th></tr>\n") + + print("</table>\n") + + elsif apply == "泌尿器科" + print("<p><img class=\"head\" src=\"chara_hinilyoukika.png\" width=\"300\" height=\"90\" alt=\"泌尿器科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>腎臓・膀胱・陰茎・尿管・尿道・精巣・前立腺などに関する診療をする</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>血尿 高血圧 腰痛 体重減少</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>腎がん 膀胱がん 腎下垂症 包茎</th></tr>\n") + + print("</table>\n") + + elsif apply == "性病科" + print("<p><img class=\"head\" src=\"chara_seibyouka.png\" width=\"300\" height=\"90\" alt=\"性病科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>性行為によって感染する性行為感染症に関する診療をする</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>月経がこない 腹部の痛み<br>\n + 陰部に硬結があらわれる<br>\n + おりものが多い + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>淋病、梅毒、性器ヘルペス<br>\n + 尖圭コンジローマ、クラミジア感染症<br>\n + </th></tr>\n") + + print("</table>\n") + + elsif apply == "肛門科" + print("<p><img class=\"head\" src=\"chara_koumonka.png\" width=\"300\" height=\"90\" alt=\"肛門科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>イボ痔や切れ痔、脱肛などの肛門の病気に関する診療<br>\n + 出血などがある場合には、大腸も含めた下部消化管の診察や検査も行う + </th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>おしりのかゆみ 痛み 出血 </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>いぼ痔 肛門脱 ヘルニア</th></tr>\n") + + print("</table>\n") + + elsif apply == "産婦人科" + print("<p><img class=\"head\" src=\"chara_sanhujinka.png\" width=\"300\" height=\"90\" alt=\"産婦人科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>産科と婦人科の2つを併合したもの。<br>\n + 妊娠 分娩 産後ケア<br>\n + 生理不順 更年期<br>\n + 卵巣・卵管・子宮などに起因する病気 + </th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>子宮からの出血 下腹痛 腰痛 </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th> 更年期障害 悪性腫瘍 性感染症 切迫流産 早産 妊娠中毒症 前置胎盤</th></tr>\n") + + print("</table>\n") + + elsif apply == "産科" + print("<p><img class=\"head\" src=\"chara_sanka.png\" width=\"300\" height=\"90\" alt=\"産科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>妊娠から出産までを扱う<br>\n + 妊娠 流産 子宮外妊娠 切迫早産などの処置も行う + </th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>子宮からの出血 下腹痛 腰痛 </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>切迫流産 早産 妊娠中毒症 前置胎盤</th></tr>\n") + + print("</table>\n") + + elsif apply == "婦人科" + print("<p><img class=\"head\" src=\"chara_huzinka.png\" width=\"300\" height=\"90\" alt=\"婦人科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>卵巣・卵管・子宮などに起因する病気に関する診療<br>\n + 生理不順や更年期など年齢とともに訪れる女性特有の病気に関する診療も行う<br>\n + </th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>月経異常 不正出血 尿失禁 + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>更年期障害 悪性腫瘍 性感染症</th></tr>\n") + + print("</table>\n") + + elsif apply == "眼科" + print("<p><img class=\"head\" src=\"chara_ganka.png\" width=\"300\" height=\"90\" alt=\"眼科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>目に関する病気の診療</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>視力が落ちた モノがみえずらい<br>\n + 視野が狭くなった 充血 乾き 疲れ<br>\n + 痛み 違和感 まぶたの腫れ + </th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>白内障 ドライアイ 網膜はく離<br>\n + 緑内障 アレルギー性結膜炎 </th></tr>\n") + + print("</table>\n") + + elsif apply == "耳鼻いんこう科" + print("<p><img class=\"head\" src=\"chara_jibiinkouka.png\" width=\"300\" height=\"90\" alt=\"耳鼻いんこう科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>耳・鼻・のど(咽喉)などの他に口腔や食道などの気管も対象として診療している</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>くしゃみ 鼻づまり 聴力の低下</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>アレルギー性鼻炎 慢性鼻炎 歯性上顎洞炎 副鼻腔炎 </th></tr>\n") + + print("</table>\n") + + elsif apply == "気管食道科" + print("<p><img class=\"head\" src=\"chara_kikanshokudouka.png\" width=\"300\" height=\"90\" alt=\"気管食道科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>耳鼻咽喉科と呼吸器化との間を埋める<br>\n + 咽頭や下咽頭 気管支などの診察</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>長い間咳がとまらない のどの痛み違和感</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>食道がん アレルギー性気管支炎</th></tr>\n") + + print("</table>\n") + + elsif apply == "リハビリテーション科" + + print("<table border=1 align=center>\n") + print("<p><img class=\"head\" src=\"chara_rihabirika.png\" width=\"300\" height=\"90\" alt=\"リハビリテーション科\"></img></p>\n") + print("<tr><th>特長</th>\n") + print("<th>病気やけがにより運動機能障害をもった人を対象とし<br>\n + 医学的治療や訓練を実施</th></tr>\n") + + print("<tr><th>主な療法</th>\n") + print("<th>運動療法 物理療法 作業療法<br>\n + 言語療法 装備療法 薬物療法</th></tr>\n") + + print("</table>\n") + + elsif apply == "放射線科" + print("<p><img class=\"head\" src=\"chara_housilyasenka.png\" width=\"300\" height=\"90\" alt=\"放射線科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>診断と治療が放射線または画像を用いて行われる診療科</th></tr>\n") + + print("<tr><th>主な診断方法</th>\n") + print("<th>＜画像による診断＞<br>\n + ・X線による検査 ・CT（コンピュータ断面撮影）検査<br>\n + ・MRI（磁気共鳴画像診断装置）検査 ・超電波検査・マンモグラフィ検査<br>\n + ＜放射線による治療＞<br>\n + 悪性腫瘍などに放射線を幹部に照射し、腫瘍細胞を死滅させる方法。<br>\n + ・IVR（画像支援治療）</th></tr>\n") + print("</table>\n") + + elsif apply == "放射診断科" + print("<p><img class=\"head\" src=\"chara_houshasindanka.png\" width=\"300\" height=\"90\" alt=\"放射診断科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>他科からの依頼によりCT、MRT、超音波、消化管造影などの検査、診断などを行う</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>足が痛い 冷え症 など</th></tr>\n") + + print("<tr><th>対象疾患</th>\n") + print("<th>画像診断に関しては産科、循環科をのぞく全科を対象</th></tr>\n") + + print("</table>\n") + + elsif apply == "放射線治療科" + print("<p><img class=\"head\" src=\"chara_houshasentiryouka.png\" width=\"300\" height=\"90\" alt=\"放射線治療科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>CT、MRT、超音波、消化管造影などの検査、診断などを行う</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>足が痛い 冷え症 など</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th> </th></tr>\n") + + print("</table>\n") + + + + elsif apply == "麻酔科" + print("<p><img class=\"head\" src=\"chara_masuika.png\" width=\"300\" height=\"90\" alt=\"麻酔科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>麻酔によって手術における痛みや恐怖を緩和軽減</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>痛みを伴う疾患に対して、その痛みを緩和させるための治療を行う</th></tr>\n") + + print("</table>\n") + + elsif apply == "歯科" + print("<p><img class=\"head\" src=\"chara_sika.png\" width=\"300\" height=\"90\" alt=\"歯科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>虫歯や歯並びの治療から歯茎の治療まで行う</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>歯の痛み 歯がしみる</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>虫歯 知覚過敏 歯周病 歯肉炎 </th></tr>\n") + + print("</table>\n") + + elsif apply == "矯正歯科" + print("<p><img class=\"head\" src=\"chara_kilyouseisika.png\" width=\"300\" height=\"90\" alt=\"矯正歯科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>出っ歯や歯並びなどを矯正し噛み合わせをしっかりとさせる</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>出っ歯 八重歯 親知らず 歯並び </th></tr>\n") + + print("</table>\n") + + elsif apply == "小児歯科" + print("<p><img class=\"head\" src=\"chara_shounisika.png\" width=\"300\" height=\"90\" alt=\"小児歯科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>虫歯の治療だけでなく、予防、健康なお口の状態に育てる</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>歯の痛み 腫れ 炎症</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>虫歯 乳歯のはえかわり など</th></tr>\n") + + print("</table>\n") + + elsif apply == "歯科口腔外科" + print("<p><img class=\"head\" src=\"chara_sikakoukuuka.png\" width=\"300\" height=\"90\" alt=\"歯科口腔科\"></img></p>\n") + print("<table border=1 align=center>\n") + + print("<tr><th>特長</th>\n") + print("<th>虫歯などの歯科的な疾患だけでなく口腔外科疾患では<br>\n + 病巣感染の原因除去などの口腔ケアも行っています。</th></tr>\n") + + print("<tr><th>主な症状</th>\n") + print("<th>歯の痛み 口内炎</th></tr>\n") + + print("<tr><th>主な病気</th>\n") + print("<th>舌癌 口腔底癌 エナメル上皮腫 唇顎口蓋裂 </th></tr>\n") + + print("</table>\n") + + end + +end +print("</div>") + +print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>") +# TOPへのリンクの表示 + +print("</body>\n") +print("</html>\n")
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagasu_shojo.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,22 @@ + +body{ + background:#87ceeb url("chara2.png") no-repeat fixed right bottom; +} + + + +div.center{ + + background:#75b4f5; + margin : 3em 10em 3em 10em; + border:dotted#ffff00; + padding : 10px +} + +h1{ text-align: center; +color: ffff00; +font-size: 7ex;} +h2{ text-align: center;} +h3{ text-align: center;} +p{ text-align: center;} +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sagasu_shojo.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,278 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +require 'cgi' # cgiを使う宣言をする +c = CGI.new(:accept_charset => "EUC-JP") +print("Content-type: text/html; charset=EUC-jp\n\n") + +shojo = Array.new + +shojo[0] = c["a"] #お腹が痛い +shojo[1] = c["b"] #胃がもたれる +shojo[2] = c["c"] #食欲がない +shojo[3] = c["d"] #下痢または便秘が続く +shojo[4] = c["e"] #頭が痛い +shojo[5] = c["f"] #熱がある +shojo[6] = c["g"] #鼻水が出る +shojo[7] = c["h"] #目が痛い・かゆい・充血す +shojo[8] = c["i"] #歯が痛い・しみる +shojo[9] = c["j"] #聴こえにくい・耳なりがする +shojo[10] = c["k"] #喉が痛い・声がでない +shojo[11] = c["l"] #腰が痛い +shojo[12] = c["m"] #肩が痛い・凝っている +shojo[13] = c["n"] #月経不順 +shojo[14] = c["o"] #咳が止まらない +shojo[15] = c["p"] #骨が痛い・折れたようだ +shojo[16] = c["r"] #豊胸・整形・脂肪吸引・永久脱毛したい +shojo[17] = c["s"] #顏に火傷をおった +shojo[18] = c["t"] #呼吸が苦しい +shojo[19] = c["u"] #幻聴・幻覚・妄想 +shojo[20] = c["v"] #不安で眠れない +shojo[21] = c["w"] #イライラが続く +shojo[22] = c["x"] #目まい・立ちくらみ +shojo[23] = c["y"] #物忘れ +shojo[24] = c["z"] #整形したい + + +print("<html>\n") # HTMLの規定 +print("<head>\n") # HTMLの設定 + +print("<link rel=\"stylesheet\" type=\"text/css\" href=\"sagasu_shojo.css\">\n") + # cssの設定 +print("<title>症状の情報</title>\n") # <title>の表示 +print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン +print("</head>\n") # HTMLの設定(閉) +print("<body>\n") # HTMLの表示部分 + +print("<h1>症状別 診療科<sub><img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></img></sub></h1>\n") # <h1>の表示 + +print("<h3>選択した症状:\n") +for apply in shojo + printf("%s\n",apply) # <p>の表示 +end +print("</h3>") +print("<div class=\"center\">") + +for apply in shojo + + if apply == "お腹が痛い" + print("<p><img class=\"head\" src=\"chara_onaka.png\" width=\"250\" height=\"70\" alt=\"お腹が痛い\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>風邪・原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 心理的要因が考えられる場合…<a href=\"http://skip.koeki-prj.org/h6hour/sinryonaika.html\">心療内科</a><br>\n + 子ども(15歳くらいまで)である場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n + 女性で腹部下部が痛む場合…<a href=\"http://skip.koeki-prj.org/6hour/sanfujinka.html\">産婦人科</a><br>\n + </p>\n") + + elsif apply == "胃がもたれる" + print("<p><img class=\"head\" src=\"chara_iga.png\" width=\"250\" height=\"70\" alt=\"胃がもたれる\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 吐き気や胸焼けを伴う場合…<a href=\"http://skip.koeki-prj.org/6hour/ichouka.html\">胃腸科</a><br>\n + </p>\n") + + + elsif apply == "食欲がない" + print("<p><img class=\"head\" src=\"chara_syokuyoku.png\" width=\"250\" height=\"70\" alt=\"食欲がない\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 鎮痛剤を常時服用している場合…<a href=\"http://skip.koeki-prj.org/6hour/ichouka.html\">胃腸科</a><br>\n + 原因が精神的なものだと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/sinryonaika.html\">心療内科</a><br>\n + 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n + </p>\n") + + + elsif apply == "下痢または便秘が続く" + print("<p><img class=\"head\" src=\"chara_benpi.png\" width=\"250\" height=\"70\" alt=\"下痢または便秘が続く\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>あまりいきまなくても動悸がする場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 下痢によって全身に倦怠感を感じる場合…<a href=\"http://skip.koeki-prj.org/6hour/shoukakika.html\">消化器科</a><br>\n + 原因が精神的なものだと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/sinryonaika.html\">心療内科</a><br>\n + 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n + </p>\n") + + + elsif apply == "頭が痛い" + print("<p><img class=\"head\" src=\"chara_zutsu.png\" width=\"250\" height=\"70\" alt=\"頭が痛い\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n + 睡眠中に激しい痛みが短時間出現する場合…<a href=\"http://skip.koeki-prj.org/6hour/noushinkeigeka.html\">脳神経外科</a><br>\n + </p>\n") + + + elsif apply == "熱がある" + print("<p><img class=\"head\" src=\"chara_natsu.png\" width=\"250\" height=\"70\" alt=\"熱がある\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n + </p>\n") + + + elsif apply == "鼻水が出る" + print("<p><img class=\"head\" src=\"chara_hanamizu.png\" width=\"250\" height=\"70\" alt=\"鼻水が出る\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>") + print("<p>発熱を伴うなど、原因が風邪などと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 原因がアレルギー等だと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/jibiinkouka.html\">耳鼻咽喉科</a><br>\n + 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n + </p>\n") + + + elsif apply == "目が痛い・かゆい・充血する" + print("<p><img class=\"head\" src=\"chara_me.png\" width=\"250\" height=\"70\" alt=\"目が痛い・かゆい・充血する\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>目が赤くなった場合…<a href=\"http://skip.koeki-prj.org/6hour/ganka.html\">眼科</a><br>\n + </p>\n") + + + elsif apply == "歯が痛い・しみる" + print("<p><img class=\"head\" src=\"chara_ha.png\" width=\"250\" height=\"70\" alt=\"歯が痛い・しみる\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>矯正歯科(症状の原因が歯並びや出っ歯、親知らずの場合…<a href=\"http://skip.koeki-prj.org/6hour/shika.html\">歯科</a><br>\n + 小児歯科(子どもの虫歯の治療の場合、また予防をしたい場合…<a href=\"http://skip.koeki-prj.org/6hour/shounishika.html\">小児科歯科</a><br>\n + 歯科口腔科(虫歯、または病感染の原因除去をしたい場合…<a href=\"http://skip.koeki-prj.org/6hour/shikakoukuuka.html\">歯科口腔科</a><br>\n + </p>\n") + + + elsif apply == "耳が痛い・耳なりがする" + print("<p><img class=\"head\" src=\"chara_mimi.png\" width=\"250\" height=\"70\" alt=\"耳が痛い・耳なりがする\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>中耳炎や聴力の低下など、耳に疾患があると考えられる場合…<a href=\"http://skip.koeki-prj.org/6hour/jibiinkouka.html\">耳鼻いんこう科</a><br>\n + 原因が精神的な疾患であると考えられる場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n + </p>\n") + + + elsif apply == "喉が痛い・声がでない" + print("<p><img class=\"head\" src=\"chara_nodo.png\" width=\"250\" height=\"70\" alt=\"喉が痛い・声がでない\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因が精神的な疾患であると考えられる場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n + </p>\n") + + + elsif apply == "腰が痛い" + print("<p><img class=\"head\" src=\"chara_koshi.png\" width=\"250\" height=\"70\" alt=\"腰が痛い\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>ぎっくり腰の場合…<a href=\"http://skip.koeki-prj.org/6hour/seikeigeka.html\">整形外科</a><br>\n + 女性の場合…<a href=\"http://skip.koeki-prj.org/6hour/sanfujinka.html\">産婦人科</a><br>\n + 下腹部や腰のあたりに猛烈な痛みを感じる場合…<a href=\"http://skip.koeki-prj.org/6hour/hinyokika.html\">泌尿器科</a><br>\n + </p>\n") + + + elsif apply == "肩が痛い・凝っている" + print("<p><img class=\"head\" src=\"chara_kata.png\" width=\"250\" height=\"70\" alt=\"肩が痛い・凝っている\"></img></p>\n") + print("<p>-----おすすめの診療科-----</h3>\n") + print("<p>肩こりが酷い…<a href=\"http://skip.koeki-prj.org/6hour/seikeigeka.html\">整形外科</a><br>\n + </p>\n") + + + elsif apply == "月経不順" + print("<p><img class=\"head\" src=\"chara_gekkei.png\" width=\"250\" height=\"70\" alt=\"月経不順\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因不明の場合…<a href=\"http://skip.koeki-prj.org/6hour/sanfujinka.html\">産婦人科</a><br>\n + 妊娠を疑う場合…<a href=\"http://skip.koeki-prj.org/6hour/sanka.html\">産科</a><br>\n + 妊娠は疑えない場合…<a href=\"http://skip.koeki-prj.org/6hour/fujinka.html\">婦人科</a><br>\n + 全身に赤い斑点が表れた場合…<a href=\"http://skip.koeki-prj.org/6hour/seibyoka.html\">性病科</a><br>\n + </p>\n") + + + elsif apply == "咳が止まらない" + print("<p><img class=\"head\" src=\"chara_seki.png\" width=\"250\" height=\"70\" alt=\"咳が止まらない\"></img></p>\n") + print("<p>-----おすすめの診療科-----</p>") + print("<p>喉が痛い…耳鼻いんこう科<br>\n + 痰に血が混じっている場合…<a href=\"http://skip.koeki-prj.org/6hour/kikanshokudouka.html\">気管食道科</a><br>\n + 息がぜーぜーする場合…<a href=\"http://skip.koeki-prj.org/6hour/kokyukika.html\">呼吸器科</a><br>\n + 急な発熱がある場合…<a href=\"http://skip.koeki-prj.org/6hour/arerugika.html\">アレルギー科</a><br>\n + </p>\n") + + + elsif apply == "骨が痛い・折れたようだ" + print("<p><img class=\"head\" src=\"chara_koshi.png\" width=\"250\" height=\"70\" alt=\"骨が痛い・折れたようだ\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>骨折…<a href=\"http://skip.koeki-prj.org/6hour/seikeigeka.html\">整形外科</a><br>\n + 関節が痛い…<a href=\"http://skip.koeki-prj.org/6hour/riumachika.html\">リウマチ科</a><br>\n + </p>\n") + + elsif apply == "豊胸・整形・脂肪吸引・永久脱毛したい" + print("<p><img class=\"head\" src=\"chara_houkyo.png\" width=\"250\" height=\"70\" alt=\"豊胸・整形・脂肪吸引・永久脱毛したい\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>美容目的の場合…<a href=\"http://skip.koeki-prj.org/6hour/biyougeka.html\">美容外科</a><br>\n + </p>\n") + + + elsif apply == "皮膚に火傷をおった" + print("<p><img class=\"head\" src=\"chara_yakedo.png\" width=\"250\" height=\"70\" alt=\"皮膚に火傷をおった\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>火傷の症状が重度な場合…<a href=\"http://skip.koeki-prj.org/6hour/keiseigeka.html\">形成外科</a><br>\n + 軽度の火傷の場合…<a href=\"http://skip.koeki-prj.org/6hour/hifuka.html\">皮膚科</a><br>\n + 火傷の治療に対し、手術が必要な場合…<a href=\"http://skip.koeki-prj.org/6hour/geka.html\">外科</a><br>\n + </p>\n") + + + elsif apply == "呼吸が苦しい" + print("<p><img class=\"head\" src=\"chara_kokyu.png\" width=\"250\" height=\"70\" alt=\"呼吸が苦しい\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>風邪かなと思った場合…<a href=\"http://skip.koeki-prj.org/6hour/kokyukika.html\">呼吸器科</a><br>\n + </p>\n") + + + elsif apply == "幻聴・幻覚・妄想" + print("<p><img class=\"head\" src=\"chara_genkaku.png\" width=\"250\" height=\"70\" alt=\"幻聴・幻覚・妄想\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>不安からもたらすもの…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n + ストレスと関連がある場合…<a href=\"http://skip.koeki-prj.org/6hour/shinkeinaika.html\">神経内科</a><br>\n + </p>\n") + + + elsif apply == "不安で眠れない" + print("<p><img class=\"head\" src=\"chara_fuan.png\" width=\"250\" height=\"70\" alt=\"不安で眠れない\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>幻覚や妄想からくる不安の場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n + ストレスからくる場合…<a href=\"http://skip.koeki-prj.org/6hour/sinryonaika.html\">心療内科</a><br>\n + ※どちらもほぼ同じ診察<br>\n + </p>\n") + + + elsif apply == "イライラが続く" + print("<p><img class=\"head\" src=\"chara_ira.png\" width=\"250\" height=\"70\" alt=\"イライラが続く\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>幻覚や妄想からくる場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n + 生活が不摂生な人の場合…<a href=\"http://skip.koeki-prj.org/6hour/shinkeinaika.html\">神経内科</a><br>\n + </p>\n") + + + elsif apply == "めまい・立ちくらみ" + print("<p><img class=\"head\" src=\"chara_memai.png\" width=\"250\" height=\"70\" alt=\"めまい・立ちくらみ\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n + 目眩によって意識を失った事がある場合…<a href=\"http://skip.koeki-prj.org/6hour/junkankika.html\">循環器科</a><br>\n + </p>\n") + + + elsif apply == "物忘れ" + print("<p><img src=\"chara_monoasure.png\" width=\"250\" height=\"70\" alt=\"物忘れ\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>\n") + print("<p>患者が高齢者の場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n + しびれがある場合…<a href=\"http://skip.koeki-prj.org/6hour/noushinkeigeka.html\">脳神経外科</a><br>\n + </p>\n") + + + elsif apply == "整形したい" + print("<p><img src=\"chara_seikei.png\" width=\"250\" height=\"70\" alt=\"整形したい\"></img></p>\n") + print("<h3>-----おすすめの診療科-----</h3>") + print("<p>傷や火傷を直したい場合…<a href=\"http://skip.koeki-prj.org/6hour/keiseigeka.html\">形成外科</a><br>\n + 美容目的の場合…<a href=\"http://skip.koeki-prj.org/6hour/biyougeka.html\">美容外科</a><br>\n + </p>\n") + + + + end + +end +print("</div>") +print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>\n") +# TOPへのリンクの表示 +print("<p>最長 6 時間</p>\n") + +print("</body>\n") +print("</html>\n")
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sakata.dat Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,140 @@ +のざきヒフ科クリニック 山形県酒田市中町2丁目6-20 0234220104 月,水,金,土,日 月,火,水,金,土 木,祝 :皮膚科: +山本医院 山形県酒田市新井田町15-3 0234241800 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科:肛門科: +おりい歯科 山形県酒田市東両羽町121-1 0234264360 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +折居医院 山形県酒田市本町3丁目8-11 0234262828 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :外科:消化器科:胃腸科: +まつざわ眼科 山形県酒田市亀ケ崎1丁目10-1 0234220235 月,火,水,木,金 月,水,金 日,祝 :眼科: +本間病院 山形県酒田市中町3丁目5-23 0234222556 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:泌尿器科: +くろき脳神経クリニック 山形県酒田市富士見町3-2-3 0234317151 月,火,水,木,金,土 月,火,水,金,土 日,祝 :脳神経外科:神経内科:リハビリテーション科: +石沢内科胃腸科医院 山形県酒田市亀ケ崎2丁目2-57 0234216110 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科: +内科眼科海野医院 山形県酒田市中央西町4-4 0234221833 月,火,水,木,金,土 月,火,水,木,金 日,祝 :眼科:内科: +本間医院 山形県酒田市若浜町14-1 0234223324 月,火,水,木,金,土 月,火,水,木,金 日,祝 :耳鼻いんこう科:気管食道科: +健生ふれあいクリニック 山形県酒田市泉町1-16 0234336333 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科:神経内科: +菊池医院 山形県酒田市東泉町2-9-47 0234222121 土 月,火,水,木,金 日,祝 :気管食道科:耳鼻いんこう科:麻酔科: +池田内科医院 山形県酒田市広野字大渕54 0234922210 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +池田内科医院浜中診療所 山形県酒田市浜中上村372-10 0234911211 なし 月,火,水,木,金,土 日,祝 :内科: +とがし歯科クリニック 山形県酒田市錦町5丁目32-663 0234411662 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +のぞみ診療所 山形県酒田市中町3丁目4-12 0234237771 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:泌尿器科: +日吉歯科診療所 山形県酒田市日吉町2丁目1-16 0234221837 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科:矯正歯科:小児歯科: +丸藤歯科医院 山形県酒田市日吉町1丁目2-11 0234223296 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +おおたきこどもクリニック 山形県酒田市東泉町5丁目8-2 0234233212 月,火,水,金,土 月,火,水,木,金 日,祝 :アレルギー科:歯科: +さとう内科クリニック 山形県酒田市東泉町1丁目12-50 0234210155 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: +島貫小児科医院 山形県酒田市あきほ町658-4 0234216220 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +影沢内科医院 山形県酒田市砂越粕町100 0234523933 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:消化器科: +上田診療所 山形県酒田市上野曽根字上中割73 0234273306 月,火,水,木,金,土 月,火,水,木,金 日,祝 :外科:胃腸科:肛門科: +酒井医院 山形県酒田市相生町2丁目5-40 0234243135 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +サイトー内科 山形県酒田市一番町9-9 0234237718 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:呼吸器科:消化器科:小児科: +丸岡医院 山形県酒田市松原南15-1 0234238166 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:消化器科:循環器科: +こども医院さいとう 山形県酒田市松原南11-21 0234267878 月,火,水,金 月,火,水,金 木,土,日,祝 :アレルギー科:小児科: +矢島医院 山形県酒田市高見台1丁目13-14 0234313231 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:胃腸科: +村山医院 山形県酒田市東栄町7-11 0234235131 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科: +石川整形外科医院 山形県酒田市本町2丁目1-36 0234227207 月,火,水,木,金,土 月,火,水,木,金 日,祝 :整形外科: +本間医院 山形県酒田市南千日町10-48 0234221093 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:婦人科: +松浦内科医院 山形県酒田市こあら2丁目3-9 0234226320 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +加納医院 山形県酒田市日吉町1丁目6-25 0234221195 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:消化器科: +岡本医院 山形県酒田市漆曽根字腰廻166 0234252203 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科: +さかい往診クリニック 山形県酒田市みずほ2丁目20-7 0234288682 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科: +さくらこころのクリニック 山形県酒田市東大町2丁目6-4 0234210148 月,火,水,木,金,土 月,水,木,金 日,祝 :診療内科:神経科: +浅野内科クリニック 山形県酒田市あきほ町653-9 0234221880 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:呼吸器科:消化器科:胃腸科:循環器科: +石塚歯科医院 山形県酒田市浜田2丁目6-10 0234236617 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:小児歯科: +いくま内科胃腸科クリニック 山形県酒田市錦町5-32-698 0234411855 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科: +桜井歯科医院 山形県酒田市東大町3丁目40-9 0234248211 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科: +土門歯科医院 山形県酒田市泉町11-23 0234351866 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +林歯科医院 山形県酒田市富士見町1丁目10-8 0234262542 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +土門歯科医院 山形県酒田市亀ケ崎5丁目7-5 0234268282 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +あべ歯科医院 山形県酒田市ゆたか1丁目16-11 0234331182 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +石川歯科診療所 山形県酒田市駅東2丁目6-13 0234224182 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +西尾医院 山形県酒田市亀ケ崎2-4-12 0234226688 月,火,水,木,金,土 月,火,木,金,土 日,祝 :皮膚科:泌尿器科: +庄内検診センター 山形県酒田市東町1丁目23-1 0234261882 不定期 不定期 不定期 :放射線科: +休日診療所 山形県酒田市船場町2丁目1-31 0234215225 日,祝 日,祝 月,火,水,木,金,土 :内科:外科:小児科: +大井医院 山形県酒田市亀ケ崎4丁目5-46 0234261122 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:外科:胃腸科:肛門科: +渡邊クリニック 山形県酒田市亀ケ崎3丁目2-1 0234216211 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:胃腸科:肛門科: +山原整形外科クリニック 山形県酒田市大宮一貫野82 0234257150 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +安孫子皮ふ科 山形県酒田市亀ケ崎7丁目1-5 0234215757 月,火,水,金 なし 木,土,日,祝 :皮膚科: +青木皮膚科医院 山形県酒田市ゆたか2丁目1-11 0234341241 月,火,水,木,金,土 月,火,木,金,土 日,祝 :皮膚科: +地見興屋診療所 山形県酒田市地見興屋字前割7-2 0234622047 不定期 不定期 不定期 :内科:小児科: +ほんま内科胃腸科医院 山形県酒田市光ケ丘2丁目19-19 0234330738 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科: +かめがさき整形外科 山形県酒田市亀ケ崎3丁目2-13 0234248855 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +こあら歯科クリニック 山形県酒田市こあら2丁目5-4 0234430310 月,火,木,金,土,日 月,火,木,金,土 水,祝 :歯科: +あしたばクリニック 山形県酒田市曙町2丁目18-6 0234212230 月,火,木,金,土 月,火,木,金,土 水,日,祝 :内科: +河合眼科医院 山形県酒田市東泉町2丁目9-3 0234237222 月,火,水,木,金,土 月,火,水,木,金 日,祝 :眼科: +土田歯科医院 山形県酒田市亀ケ崎5丁目7-5 0234268282 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +佐々木歯科医院 山形県酒田市北新町1丁目8-3 0234221588 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +今野医院 山形県酒田市中町3丁目3-26 0234220284 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科: +八幡病院 山形県酒田市小泉字前田37 0234643311 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:リハビリテーション科: +長島整形外科クリニック 山形県酒田市駅東2丁目4-8 0234258208 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +健康保険松山診療所 山形県酒田市西田8-1 0234622032 月,水,木,金 月,水,木,金 火,土,日,祝 :内科:外科: +高木整形外科クリニック 山形県酒田市亀ケ崎7丁目1-30 0234232300 月,火,水,木,金,土 月,火,水,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +池田外科胃腸科医院 山形県酒田市上安町1丁目80-28 0234273563 月,火,水,木,金,土 月,火,木,金 日,祝 :外科:胃腸科:皮膚科:肛門科: +大山内科循環器科クリニック 山形県酒田市亀ケ崎3丁目8-11 0234247776 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +竹内医院 山形県酒田市幸町2丁目6-6 0234227230 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:診療内科:神経科: +尾形内科胃腸科医院 山形県酒田市みずほ1丁目2-28 0234266800 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +菅原内科胃腸科医院 山形県酒田市北新橋1丁目13-5 0234261717 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科: +江部耳鼻咽喉科医院 山形県酒田市新井田町1-37 0234243387 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :耳鼻いんこう科: +高橋眼科医院 山形県酒田市住吉町11-27 0234333881 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :眼科: +石黒内科医院 山形県酒田市東中の口町3-2 0234222720 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +真田医院 山形県酒田市浜田1丁目7-56 0234263360 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:胃腸科: +杉山小児科 山形県酒田市本町3丁目11-39 0234247366 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +菅原外科内科医院 山形県酒田市東大町1丁目10-6 0234260500 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:小児科:皮膚科: +さとう眼科クリニック 山形県酒田市亀ケ崎5丁目5-22 0234228224 月,火,水,木,金,土 月,水,金,土 日,祝 :眼科: +まこと眼科 山形県酒田市一番町3-24 0234263721 月,火,水,金 水,金 日,祝 :眼科: +小澤内科医院 山形県酒田市山居町2丁目4-18 0234263737 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +守川整形外科医院 山形県酒田市幸町1丁目13-24 0234247227 月,火,水,木,金,土 月,火,水,木,金 日,祝 :整形外科: +小松医院 山形県酒田市泉町3-17 0234333427 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科: +萩原耳鼻咽喉科医院 山形県酒田市駅東2丁目4-13 0234227770 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :耳鼻いんこう科: +あいおい皮膚科クリニック 山形県酒田市相生町2丁目5-35 0234242220 月,火,水,木,金 月,火,水,木,金 土,日,祝 :皮膚科: +吉田医院 山形県酒田市本町1丁目2-6 0234220735 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:消化器科:循環器科: +鬼海小児科医院 山形県酒田市大町10-62 0234245018 月,火,水,木,金,土 月,火,木,金,土 日,祝 :小児科: +佐藤整形外科医院 山形県酒田市寿町1-38 0234241822 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科: +さとう小児科医院 山形県酒田市新井田町1-3 0234267722 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :アレルギー科:小児科: +近藤内科循環器クリニック 山形県酒田市相生町1丁目6-25 0234232002 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:呼吸器科:消化器科:循環器科:小児科: +みすみ小児科 山形県酒田市砂越字楯之内44-1 0234523614 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +岡田内科循環器科クリニック 山形県酒田市東大町3-38-3 0234213715 月,火,水,木,金,土 月,水,木,金,土 日,祝 :内科:循環器科: +五十嵐歯科医院 山形県酒田市本町48-11 0234622011 不定期 不定期 不定期 :歯科: +大井歯科医院 山形県酒田市本楯字前田50-6 0234282127 不定期 不定期 不定期 :歯科: +宮部内科医院 山形県酒田市本町1-5-13 0234226660 土,日 月,火,水,木,金,土 祝 :内科:精神科:整形外科:皮膚科: +ホワイト歯科医院 山形県酒田市東泉町6丁目1-13 0234227977 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +岡野歯科医院 山形県酒田市御成町3-37 0234232208 不定期 不定期 不定期 :歯科: +九木原歯科診療所 山形県酒田市宮野浦1丁目2-1 0234315311 不定期 不定期 不定期 :歯科: +佐々木歯科医院 山形県酒田市中町1丁目1-18 0234220189 不定期 不定期 不定期 :歯科: +齋藤歯科医院 山形県酒田市飛鳥字契約場44-5 0234523232 不定期 不定期 不定期 :歯科: +東平田診療所 山形県酒田市生石字矢口1 0234942351 不定期 不定期 不定期 :内科:外科:小児科: +諸星外科内科クリニック 山形県酒田市ゆたか1丁目5-1 0234342888 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:外科: +ぷらす矯正歯科 山形県酒田市中央西町1-60 0234261588 月,火,水,金 月,火,水,金 木,土,日,祝 :矯正歯科: +白戸歯科医院 山形県酒田市飛鳥字大道端148-2 0234523011 不定期 不定期 不定期 :歯科: +市川歯科医院 山形県酒田市飛鳥字堂之後106-1 0234522030 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県酒田市内町47-1 0234622023 不定期 不定期 不定期 :歯科: +佐藤歯科医院 山形県酒田市観音寺字町後7-14 0234644077 不定期 不定期 不定期 :歯科: +大町歯科診療所 山形県酒田市東大町1丁目13-18 0234242938 不定期 不定期 不定期 :歯科: +冨樫歯科医院 山形県酒田市日吉町1丁目1-27 0234220111 不定期 不定期 不定期 :歯科: +鈴木歯科医院 山形県酒田市北今町1-2 0234221275 不定期 不定期 不定期 :歯科: +本間歯科医院 山形県酒田市中町3丁目7-18 0234220577 不定期 不定期 不定期 :歯科: +タクミ歯科医院 山形県酒田市中町2丁目2-12 0234221828 不定期 不定期 不定期 :歯科: +村岡歯科医院 山形県酒田市中町1丁目6-2 0234221112 不定期 不定期 不定期 :歯科: +加藤歯科医院 山形県酒田市大町17 0234266767 不定期 不定期 不定期 :歯科: +亀ヶ崎歯科医院 山形県酒田市亀ケ崎2丁目4-30 0234245560 不定期 不定期 不定期 :歯科: +山蔦歯科医院 山形県酒田市千石町2丁目15-31 0234237602 不定期 不定期 不定期 :歯科: +泉歯科診療所 山形県酒田市東泉町2丁目17-30 0234240648 不定期 不定期 不定期 :歯科: +高見台歯科診療所 山形県酒田市高見台1丁目16-1 0234311828 不定期 不定期 不定期 :歯科: +澤田歯科医院 山形県酒田市相生町1丁目4-30 0234264448 不定期 不定期 不定期 :歯科: +池田歯科医院 山形県酒田市新井田町1-8 0234245240 不定期 不定期 不定期 :歯科: +ヤマニ歯科医院 山形県酒田市上本町5-24 0234223608 不定期 不定期 不定期 :歯科: +ヨシコ歯科医院 山形県酒田市山居町1丁目3-31 0234227201 不定期 不定期 不定期 :歯科: +寿デンタルクリニック 山形県酒田市幸町1丁目5-2 0234247209 不定期 不定期 不定期 :歯科: +五十嵐歯科医院 山形県酒田市亀ケ崎4丁目5-50 0234232382 不定期 不定期 不定期 :歯科: +小松歯科医院 山形県酒田市栄町2-5 0234262340 不定期 不定期 不定期 :歯科: +萬年歯科医院 山形県酒田市相生町1丁目5-14 0234260896 不定期 不定期 不定期 :歯科: +内科・循環器科ほんまクリニック 山形県酒田市新橋1丁目14-10 0234216055 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科: +太田医院 山形県酒田市寿町5-9 0234220465 月,火,水,木,金,土 月,火,木,金 日,祝 :小児科:産婦人科: +日本海総合病院 山形県酒田市あきほ町30 0234262001 月,火,水,木,金 なし 土,日,祝 :内科:外科:精神科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:腎臓内科:循環器科:心臓血管外科:小児科:小児外科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:内分泌内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科口腔外科:麻酔科:乳腺外科 +斉藤クリニック 山形県酒田市あきほ町654-8 0234225331 不定期 不定期 不定期 :内科:心療内科:精神科:神経科: +きれん耳鼻咽喉科医院 山形県酒田市あきほ町659-1 0234212085 月,火,水,木,金,土 月,火,木,金 日,祝 :耳鼻いんこう科: +冨樫内科医院 山形県酒田市本町3丁目10-5 0234262655 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +森産婦人科医院 山形県酒田市幸町1丁目11-20 0234262351 月,火,水,木,金,土 月,火,木,金 日,祝 :婦人科: +佐藤循環器科内科 山形県酒田市亀ケ崎2丁目4-13 0234260909 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:呼吸器科:胃腸科:循環器科: +水戸部クリニック 山形県酒田市駅東2丁目3-4 0234213620 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:皮膚科:泌尿器科: +村上医院 山形県酒田市中町1丁目13-11 0234220118 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +斎藤医院 山形県酒田市相生町1丁目5-10 0234220216 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科: +市立酒田病院飛島診療所 山形県酒田市飛島字勝浦甲66 0234952021 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科: +桜井医院 山形県酒田市北今町1-35 0234220373 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科: +酒田東病院 山形県酒田市こあら3-5-2 0234229611 月,火,水,木,金,土 なし 第1・3土曜,日,祝 :精神科:神経科: +山容病院 山形県酒田市高砂2丁目1-64 0234333355 月,火,水,木,金,土 なし 日,祝 :精神科:神経科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sanfujinka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,38 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>産婦人科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_sanhujinka.png" width="300" height="90" +alt="産婦人科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>産科と婦人科の2つを併合したもの。<br> + 妊娠 分娩 産後ケア<br> + 生理不順 更年期<br> + 卵巣・卵管・子宮などに起因する病気 + </th></tr> + +<tr><th>主な症状</th> +<th>子宮からの出血 下腹痛 腰痛 </th></tr> + +<tr><th>主な病気</th> +<th> 更年期障害 悪性腫瘍 性感染症 切迫流産 早産 妊娠中毒症 前置胎盤</th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/seibyoka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,39 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>性病科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_seibyouka.png" width="300" height="90" +alt="性病科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>性行為によって感染する性行為感染症に関する診療をする</th></tr> + +<tr><th>主な症状</th> +<th>月経がこない 腹部の痛み<br> + 陰部に硬結があらわれる<br> + おりものが多い + </th></tr> + +<tr><th>主な病気</th> +<th>淋病、梅毒、性器ヘルペス<br> + 尖圭コンジローマ、クラミジア感染症<br> + </th></tr> + + </table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/seikeigeka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>整形外科</title> +</head> +<body> +<div class=\"center\"> + +<p><img src="chara_seikeigeka.png" width="300" height="90" +alt="整形外科"></img> +<br><br> +<table border=1 align=center> + +<tr><th>特長</th> +<th>手術によって治療を行う</th></tr> + +<tr><th>主な症状</th> +<th> 外傷 腫瘍 炎症<br> + （体のあらゆる部位・臓器にわたる）<br> + </th></tr> + +<tr><th>主な病気</th> +<th>肝血管腫 漏斗胸 </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/seishinka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,37 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>精神科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_seisinka.png" width="300" height="90"alt="精神科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>精神疾患や心の病気を診療する</th></tr> + +<tr><th>主な症状</th> +<th>過度な不安 抑鬱 イライラ<br> +幻覚 幻聴 妄想 など</th></tr> + +<tr><th>主な病気</th> +<th>統合失調病 アルツハイマー<br> +パニック障害 うつ病 ADHD など + +</th></tr> +</table> +※神経科とほぼ同様の診療</p> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/shika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,34 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>歯科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_sika.png" width="300" height="90" +alt="歯科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>虫歯や歯並びの治療から歯茎の治療まで行う</th></tr> + +<tr><th>主な症状</th> +<th>歯の痛み 歯がしみる</th></tr> + +<tr><th>主な病気</th> +<th>虫歯 知覚過敏 歯周病 歯肉炎 </th></tr> + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/shikakoukuuka.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,39 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>歯科口腔科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_sikakoukuuka.png" width="300" height="90" +alt="歯科口腔科"></img> +<br><br> + +<table border=1 align=center> + +<tr><th>特長</th> +<th>虫歯などの歯科的な疾患だけでなく口腔外科疾患では<br> + 病巣感染の原因除去などの口腔ケアも行っています。</th></tr> + +<tr><th>主な症状</th> +<th>歯の痛み 口内炎</th></tr> + +<tr><th>主な病気</th> +<th>舌癌 口腔底癌 エナメル上皮腫 唇顎口蓋裂 </th></tr> + +</table> + + + +</table> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/shinkeinaika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>神経内科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_sinkeinaika.png" width="300" height="90" alt="神経内科"></img></p> +<table border=1 align=center> + +<tr><th>特長</th> +<th>脳神経系の疾患を診療する</th></tr> + +<tr><th>主な症状</th> + <th> </th></tr> + +<tr><th>主な病気</th> +<th>脳血管障害 パーキンソン病<br> + 脳腫瘍など<br> + 脳になにかできている病気</th></tr> + +</table> + + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/shonika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,37 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>小児科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_shounika.png" width="300" height="90" +alt="小児科"></img> +<br><br> +<table border=1 align=center> + +<tr><th>特長</th> +<th>こどもの疾患に関して診療</th></tr> + +<tr><th>主な症状</th> +<th>発熱 咳がとまらない 食欲低下<br> + 泣き方が弱弱しい 下痢・嘔吐が続く<br> + 皮膚や白目が黄色い けいれん + </th></tr> + +<tr><th>主な病気</th> +<th>小児喘息 咽頭結膜熱 プール熱</th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/shoukakika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,37 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>消化器科</title> +</head> +<body> + +<img class="head" src="chara_shoukakika.png" width="300" height="90"alt="消化器科"></img> +<table border=1 align=center> +<br><br> + +<table border=1> + +<tr><th>特長</th> +<th>消化管 肝臓 胆のう すい臓などの疾患に関する診療</th></tr> + +<tr><th>主な症状</th> +<th>体重減少 胃痛 便秘 下痢 血便<br> + 胸焼け 胃もたれ 吐き気 食欲不振<br> + </th></tr> + +<tr><th>主な病気</th> +<th>アルコール性肝炎 逆流性食道炎 腹膜炎 など<br> + </th></tr> + +</table> + + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sinjou.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,59 @@ +廣野医院 山形県新庄市下金沢町5-33 0233226050 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:神経科:循環器科:小児科: +きねぶち医院 山形県新庄市十日町2764-1 0233235866 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:外科:胃腸科:小児科: +おんみょうじ歯科医院 山形県新庄市本町4-43 0233220893 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科: +こくの医院 山形県新庄市大字泉田10-1 0233252501 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:消化器科: +沓沢内科医院 山形県新庄市本町5-12 0233225555 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +丸橋内科クリニック 山形県新庄市栄町6-1 0233280840 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +新庄井出眼科医院 山形県新庄市沖の町5-7丸井ビル 0233233959 月,火,水,金 月,火,水 木,土 日,祝 :眼科: +田中内科胃腸科医院 山形県新庄市鉄砲町7-6 0233226058 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科: +山科内科医院 山形県新庄市小田島町5-33 0233233770 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科:循環器科: +青葉歯科医院 山形県新庄市末広町14-61 0233227756 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +たけし歯科クリニック 山形県新庄市桧町21-3 0233280303 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +木歯科医院 山形県新庄市鉄砲町10-22 0233238888 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +渡部外科胃腸科医院 山形県新庄市五日町720-2 0233221070 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :外科:胃腸科:肛門科: +門脇医院 山形県新庄市常葉町5-6 0233227552 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:精神科:神経科:小児科: +斎藤医院 山形県新庄市沖の町5-50 0233222035 月,火,水,木,金,土 月,火,木,金,土 日,祝 :外科: +新庄整形外科医院 山形県新庄市城西町4-32 0233230287 月,火,水,金,土,日 月,火,水,金,土,日 木,祝 :整形外科: +鈴木整形外科医院 山形県新庄市金沢2394-1 0233225532 月,火,水,木,金,土 月,火,水,木,金 日,祝 :整形外科: +三條クリニック 山形県新庄市桧町10-7 0233228733 月,火,水,金 月,火,水,金 木,土,日,祝 :皮膚科:泌尿器科: +ふくい整形外科 山形県新庄市松本492 0233233128 月,火,水,木,金,土 月,火,木,金,土 日,祝 :整形外科: +須藤医院 山形県新庄市沖の町10-22 0233222059 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科: +阿部内科循環器科クリニック 山形県新庄市泉田465 0233242020 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:循環器科: +伊藤歯科医院 山形県新庄市泉田村東2 0233253225 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +小内医院 山形県新庄市鉄砲町7-28 0233222036 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:胃腸科:肛門科: +佐々木内科医院 山形県新庄市大町18-15 0233222055 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:小児科: +三條医院 山形県新庄市大手町5-11 0233224053 月,火,水,金,土,日 月,火,水,金 木,祝 :内科:心療内科:小児科:婦人科: +新庄徳洲会病院 山形県新庄市鳥越字駒場4623 0233233434 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:神経外科:循環器科:整形外科:泌尿器科:耳鼻いんこう科:リハビリテーション科:歯科口腔外科:麻酔科: +山形泌尿器科新庄クリニック 山形県新庄市末広町8-23 0233280277 不定期 不定期 不定期 :泌尿器科: +東山内科クリニック 山形県新庄市東谷地田町2-6 0233281080 月,火,水,木,金,土,日 月,火,水,金 祝 :内科:消化器科:小児科: +最上検診センター 山形県新庄市大手町2丁目49 0233233411 不定期 不定期 不定期 :放射線科: +安孫子産婦人科医院 山形県新庄市千門町6-5 0233233800 月,火,水,金,土,日 月,火,水,金,土,日 木,祝 :小児科:産婦人科: +みちのく政宗デンタルクリニック新庄診療所 山形県新庄市五日町字清水川1292-1 0233320755 月,火,水,木,金,土,日 月,火,水,木,金,土,日 祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +栄町耳鼻咽喉科クリニック 山形県新庄市栄町6-6 0233299133 月,火,木,金,土 月,火,木,金,土 水,日,祝 :耳鼻いんこう科: +よしだ耳鼻咽喉科クリニック 山形県新庄市桧町21-2 0233234133 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: +東山内科クリニック分院・こらっせ診療所 山形県新庄市本町4-33こらっせ新庄2階 0233320110 不定期 不定期 不定期 :内科:小児科: +新庄市夜間休日診療所 山形県新庄市堀端町3丁目33保健センター内 0233296300 日,祝 月,火,水,木,金,土 なし :内科:小児科: +若狭眼科 山形県新庄市金沢2882-1 0233236888 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +後藤耳鼻咽喉科医院 山形県新庄市大手町2-79 0233221565 月,火,水,木,金,土 月,火,水,木,金 日,祝 :耳鼻いんこう科: +愛歯科かとうクリニック 山形県新庄市五日町225-12 0233288020 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +荒木歯科医院 山形県新庄市城西町5-16 0233294618 月,火,水,金,土,日 月,火,水,金,土 木,祝 :歯科: +グリーン歯科医院 山形県新庄市金沢1572-12 0233222796 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科: +かきざき歯科医院 山形県新庄市鉄砲町2-6 0233238218 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +新庄明和病院 山形県新庄市福田806 0233-22-2047 月,火,水,木, なし 土,日,祝 :内科:精神科:神経科: +山形県立新庄病院 山形県新庄市若葉町12-55 33225525 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器外科:消化器科:腎臓内科:循環器科:小児科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:麻酔科: +東山整形外科クリニック 山形県新庄市東谷地田町5-7 0233288655 月,火,水,木,金,土 月,火,水,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +山口皮膚科診療所 山形県新庄市堀端町7-78 0233234141 月,火,水,木,金,土 月,火,水,金 日,祝 :皮膚科: +土田医院 山形県新庄市桧町18-2 0233237011 月,火,木,金,土,日 月,火,木,金,土,日 水,祝 :内科:胃腸科:小児科: +中村歯科医院 山形県新庄市大手町5-13 0233220603 不定期 不定期 不定期 :歯科: +三條歯科医院 山形県新庄市万場町5-14 0233233738 不定期 不定期 不定期 :歯科: +上嶋歯科医院 山形県新庄市末広町2-24 0233221270 不定期 不定期 不定期 :歯科: +佐々木歯科医院 山形県新庄市鉄砲町1-2 0233221077 不定期 不定期 不定期 :歯科: +三浦歯科医院 山形県新庄市北町3-22 0233234182 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県新庄市東谷地田町10-3 0233232424 不定期 不定期 不定期 :歯科: +志賀歯科医院 山形県新庄市小田島町3-57 0233223719 不定期 不定期 不定期 :歯科: +沼沢歯科医院 山形県新庄市住吉町3-5 0233224175 不定期 不定期 不定期 :歯科: +愛育歯科矯正クリニック 山形県新庄市沖の町8-13 0233221470 不定期 不定期 不定期 :歯科:矯正歯科: +伊藤歯科診療所 山形県新庄市大手町1-16 0233220448 不定期 不定期 不定期 :歯科: +門脇歯科医院 山形県新庄市若葉町17-17 0233220636 不定期 不定期 不定期 :歯科: +五十嵐歯科医院 山形県新庄市本町5-15 0233224143 不定期 不定期 不定期 :歯科: +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/sinryonaika.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,39 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>心療内科</title> +</head> +<body> +<div class=\"center\"> + +<p><img class="head" src="chara_sinlyounaika.png" width="300" height="90" alt=\"心療内科\"></img> +<table border=1 align=center> +<br><br> + + +<tr><th>特長</th> +<th>心身病に関する診療を行う<br> +身体疾患の中でも、心理社会的な因子が関与しているもの<br> + ただし、精神障害に伴う場合は除外する。 + </th></tr> + +<tr><th>主な症状</th> +<th>腹痛、下痢、便秘、頭痛など<br> +ただし、心理社会的な因子が関与する場合 +</th></tr> + +<tr><th>主な病気</th> +<th>過敏性腸症候群など</th></tr> + +</table> +</p> + +<p> +<a href="http://roy/~c110127/6hour/hospital.html">検索画面へ戻る</a><br> +<a href="http://roy/~c110067/6hour/kansei.html">最短0.6秒TOP</a><br> +<a href="http://roy/~c110127/6hour/">最長 6 時間TOP</a><br> +最長6時間 +</p> + +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/syounai.dat Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,18 @@ +かとう医院 山形県東田川郡庄内町余目町15-1 0234433032 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +菅原医院 山形県東田川郡庄内町余目町265 0234433010 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科: +局山堂山蔦歯科医院 山形県東田川郡庄内町余目字三人谷地17 0234432107 月,火,水,木,金,土 月,火,木,金,土 日,祝 :歯科: +原田歯科 山形県東田川郡庄内町廿六木字三百地20-5 0234-42-2255 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +成澤医院木の沢分院 山形県東田川郡庄内町肝煎字家ノ前14-1 0234592230 なし 月,火,水,木,金 土,日,祝 :内科:消化器科: +奥山医院 山形県東田川郡庄内町狩川小野里117 0234562013 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:消化器科:循環器科:肛門科: +阿部内科胃腸科医院 山形県東田川郡庄内町南野字南浦95-1 0234442121 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:胃腸科: +あまるめ耳鼻咽喉科クリニック 山形県東田川郡庄内町余目字土堤下19-3 0234451033 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :耳鼻いんこう科: +庄内余目病院 山形県東田川郡庄内町松陽1丁目1-1 0234433434 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:診療内科:精神科:神経内科:脳神経外科:呼吸器科:気管食道科:消化器科:循環器科:心臓血管外科:整形外科:皮膚科:泌尿器科:肛門科:婦人科:リハビリテーション科:放射線科:歯科口腔外科:麻酔科: +余目診療所 山形県東田川郡庄内町前田野目前割149 0234442202 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +太田デンタルクリニック 山形県東田川郡庄内町余目字猿田88-6 0234433344 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科: +南野歯科医院 山形県東田川郡庄内町南野字北野18-1 0234442118 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +奥山歯科診療所 山形県東田川郡庄内町狩川字楯下114-1 0234562336 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +齋藤整形外科医院 山形県東田川郡庄内町余目町17-1 0234423223 月,火,水,木,金,土 月,火,水,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +成澤医院 山形県東田川郡庄内町清川字腹巻野45-1 0234572030 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:胃腸科: +齋藤歯科医院 山形県東田川郡庄内町余目字三人谷地156 0234433330 不定期 不定期 不定期 :歯科: +太田歯科駅前クリニック 山形県東田川郡庄内町余目字上朝丸161-8 0234432624 不定期 不定期 不定期 :歯科: +石川歯科医院 山形県東田川郡庄内町狩川字阿古屋127 0234562071 不定期 不定期 不定期 :歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/tendo.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,73 @@ +福田歯科クリニック 山形県天童市東久野本1丁目6-33 0236513966 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日 なし :歯科:矯正歯科:小児歯科:歯科口腔外科: +小幅皮膚科医院 山形県天童市交り江3丁目9-1 0236531781 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:アレルギー科:外科:小児科:皮膚科: +天童温泉矢吹クリニック 山形県天童市山元中鍬ノ町土地区画整理事業第18街区 0236569811 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:消化器科: +大河原歯科医院 山形県天童市老野森3丁目8-2 0236532206 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +けい歯科・矯正歯科クリニック 山形県天童市鎌田1丁目10-1千恵ビル3F 0236514618 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:矯正歯科:小児歯科: +神村内科医院 山形県天童市鍬ノ町22-2 0236540300 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +天童温泉篠田病院 山形県天童市鎌田1丁目7-1 0236535711 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:精神科:脳神経外科:消化器科:循環器科:小児科:整形外科:泌尿器科:婦人科:耳鼻いんこう科:歯科:歯科口腔外科: +吉岡病院 山形県天童市東本町3丁目5-21 0236541188 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:リウマチ科:脳神経外科:整形外科:リハビリテーション科:麻酔科: +大野胃腸内科医院 山形県天童市久野本1056-3 0236568522 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: +さいとう内科胃腸科クリニック 山形県天童市南町2-10-5 0236586622 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科:神経内科: +秋野病院 山形県天童市大字久野本362-1 0236535725 月,火,水,木,金,土 なし 日,祝 :神経科:精神科:心療内科:内科: +宮脇医院 山形県天童市東本町三丁目4-13 0236535005 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:消化器科:循環器科:婦人科: +家坂小児科医院 山形県天童市東本町1-6-22 0236543535 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +菅原内科胃腸科医院 山形県天童市東長岡2丁目1-1 0236554180 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:消化器科:胃腸科: +鞍掛胃腸科内科医院 山形県天童市東本町1丁目6-20 0236532603 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +大竹内科呼吸科医院 山形県天童市老野森1丁目5-1 0236513911 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:呼吸器科: +高橋整形外科医院 山形県天童市久野本3丁目19-26 0236533282 月,火,水,木,金,土 月,火,水,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +平野クリニック 山形県天童市老野森1丁目15-8 0236531488 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科:泌尿器科: +芳賀心療内科神経科クリニック 山形県天童市田鶴町4丁目2-53 0236543800 月,火,水,木,金,土 月,火,木,金 日,祝 :心療内科:精神科:神経科: +木村医院 山形県天童市三日町2丁目6-16 0236532136 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:婦人科: +干布後藤医院 山形県天童市干布403-2 0236544701 月,火,水,木,金,土 月,水,木,金 日,祝 :内科:アレルギー科:神経科:呼吸器科:小児科: +こんの歯科医院 山形県天童市乱川2丁目6-20 0236588080 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +ひしがたに小児科 山形県天童市南町3丁目1-24 0236511555 月,火,水,木,金,土 月,水,木,金 日,祝 :小児科: +やまもと整形外科医院 山形県天童市駅西2丁目8-25 0236512010 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +中橋医院 山形県天童市老野森3丁目16-14 0236534885 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科: +優歯科クリニック 山形県天童市北久野本5丁目1-8 0236588215 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科: +もてき歯科クリニック 山形県天童市東本町1丁目1-14 0236522118 月,火,木,金,土 月,火,木,金,土 水,日,祝 :歯科:小児歯科: +さいとう歯科医院 山形県天童市高擶南2295-2 0236557997 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科: +かねこ歯科医院 山形県天童市南町2丁目7-8 0236522202 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +岸歯科クリニック 山形県天童市中里6丁目5-34 0236556105 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +永澤歯科医院 山形県天童市長岡北3丁目5-42 0236556133 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +大江歯科医院 山形県天童市東久野本2丁目11番10号 0236545560 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: +いがらしクリニック 山形県天童市東長岡2丁目8-8 0236581123 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科: +瑞穂医院 山形県天童市高擶941-2 0236584311 月,火,水,木,金,土 月,火,水,木,金 日,祝 :外科:整形外科:リハビリテーション科: +おおやま皮膚科 山形県天童市南町3丁目1-18 0236511241 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科:アレルギー科: +塩野医院 山形県天童市乱川3丁目2-10 0236512211 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:リウマチ科:胃腸科:整形外科: +水戸外科医院 山形県天童市北久野本1丁目6-38 0236535321 月,水,木,金,土,日 月,水,金,土 火,祝 :内科:外科:消化器科:胃腸科:皮膚科:肛門科: +目黒クリニック循環器内科 山形県天童市糠塚1丁目4-1 0236531688 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科: +武田耳鼻咽喉科 山形県天童市老野森2丁目15-18 0236522233 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: +真田眼科医院 山形県天童市三日町2丁目6-1 0236532017 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +奥山こども医院 山形県天童市北久野本1丁目12-27 0236587677 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +高橋眼科医院 山形県天童市長岡7023-655-2053 月,火,水,木,金,土 月,水,金 +日,祝 :眼科: +児玉整形外科クリニック 山形県天童市泉町1丁目1-23 0236548833 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :リウマチ科:整形外科: +おおもり眼科医院 山形県天童市柏木町1丁目10-36 0236530341 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +安部内科胃腸科医院 山形県天童市久野本3丁目1-27 0236541581 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:消化器科:胃腸科: +安耳鼻咽喉医院 山形県天童市東本町3丁目6-12 0236543080 月,火,水,木,金,土 月,火,水,木,金 日,祝 :呼吸器科:耳鼻いんこう科: +松田医院 山形県天童市山口1913-2 0236562110 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +さとうウィメンズクリニック 山形県天童市南小畑4丁目1-1 0236521117 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科:産婦人科:歯科: +天童市民病院 山形県天童市駅西5丁目2-1 0236542511 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:脳神経外科:小児科:整形外科:皮膚科:産婦人科: +さとう医院 山形県天童市駅西2-5-20 0236542511 月,火,水,金,土 月,火,水,金,土 木,日,祝 :内科:胃腸科: +整形外科増子 山形県天童市南町3丁目14-27 0236793371 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +阿部歯科医院 山形県天童市小関1丁目1-3 0236543434 不定期 不定期 不定期 :歯科: +大浪歯科医院 山形県天童市三日町2丁目6-5 0236532042 不定期 不定期 不定期 :歯科: +愛歯科医院 山形県天童市東本町3丁目6-33 0236541433不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +冨樫歯科医院 山形県天童市久野本4丁目14-30 0236548211 不定期 不定期 不定期 :歯科: +片山歯科医院 山形県天童市久野本3丁目16-13 0236541886 不定期 不定期 不定期 :歯科: +柴崎歯科医院 山形県天童市久野本2丁目7-11 0236541812 不定期 不定期 不定期 :歯科: +奥山歯科医院 山形県天童市久野本1丁目7-8 0236532836 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県天童市鎌田本町2丁目6-22 0236546644 不定期 不定期 不定期 :歯科: +林歯科医院 山形県天童市田鶴町1丁目6-32 0236532123 不定期 不定期 不定期 :歯科: +熊沢歯科医院 山形県天童市小路2丁目3-16 0236532121 不定期 不定期 不定期 :歯科: +熊沢歯科医院泉町クリニック 山形県天童市泉町1丁目6-3 0236546480 不定期 不定期 不定期 :歯科: +クリニックあこがれ 山形県天童市荒谷1973-884 0236523281 月,火,水,木,金 なし 土,日,祝 :内科:精神科:神経内科:整形外科:リハビリテーション科: +内科・胃腸科高橋医院 山形県天童市東本町1丁目1-32 0236535664 月,火,水,金,土 月,火,水,金,土 木,日,祝 :内科:胃腸科: +藤山医院 山形県天童市荒谷91 0236532897 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:婦人科: +工藤内科医院 山形県天童市南町2丁目6-3 0236545854 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: +三條外科胃腸科医院 山形県天童市五日町1丁目3-7 0236542836 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科:肛門科: +高橋眼科医院 山形県天童市長岡7 0236552053 月,火,水,木,金,土 月,水,金 日,祝 :眼科: +菅野馨眼科 山形県天童市本町2丁目1-1 0236531103 月,水,木,金,土 月,火,水,木,金 日,祝 :眼科: +あきば歯科医院 山形県天童市南町2丁目14-35 0236521555 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科: +みゆき歯科医院 山形県天童市老野森3丁目22-19 0236544748 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +いがらし矯正歯科クリニック 山形県天童市駅西3丁目12-1 0236548741 月,火,水,金 月,火,水,金 木,土,日,祝 :矯正歯科:
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/turuoka.dat Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,160 @@ +宝田整形外科クリニック 山形県鶴岡市宝田1-9-80 0120915608 月,火,水,木,金 月,火,木,金 祝,年末年始,お盆 :整形外科:リハビリテーション科:リウマチ科: +さとう整形外科クリニック 山形県鶴岡市城北町26-10 0235222333 月,火,水,木,金,土 月,火,水,金 日,祝,年末年始,お盆 :整形外科:リハビリテーション科: +今立小児科院 山形県鶴岡市鳥居町2-30 0235243377 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +山形県立鶴岡病院 山形県鶴岡市高坂字堰下28 0235222690 月,水,金 火,木 土,日,祝 :心療内科:精神科:小児科: +宮原病院 山形県鶴岡市三和町1-53 0235233311 月,火,水,金,土 月,火,木,金 日,祝 :内科:外科:呼吸器科:消化器科:循環器科: +桂医院 山形県鶴岡市桂荒俣下桂105-2 0235573303 月,火,水,木,金 月,火,水,木,金 日,祝 :内科:消化器科: +荻原医院 山形県鶴岡市切添町21-2 0235253131 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:整形外科: +中鉢医院 山形県鶴岡市双葉町6-13 0235236161 月,火,金,土,日 月,火,金,土,日 水,木,祝 :精神科: +藤吉内科医院 山形県鶴岡市山王町14-15 0235230072 月,火,水,木,金 月,火,木,金 日,祝 :内科:心療内科:呼吸器科:消化器科:循環器科:放射線科: +庄内医療生活協同組合鶴岡協立病院 山形県鶴岡市文園町9-34 0235236060 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:心臓血管外科:小児科:整形外科:皮膚科:泌尿器科:産婦人科:リハビリテーション科:放射線科: +富樫歯科医院 山形県鶴岡市大山3丁目10-6 0235334618 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:小児歯科:歯科口腔外科: +庄内医療生活協同組合鶴岡協立リハビリテーション病院 山形県鶴岡市上山添字神明前38 0235787511 月,火,水,木,金 なし 土,日,祝 ::内科:神経内科:リハビリテーション科: +医療法人栄和会斎藤胃腸クリニック 山形県鶴岡市本町2丁目2-35 0235247551 月,火,水,木,金 月,水,木,金 土,日,祝 :内科:外科:胃腸科: +乙黒医院 山形県鶴岡市桜新町3-22 0235261011 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:外科: +いとうクリニック 山形県鶴岡市日出1丁目17-8 0235223200 月,火,水,金 月,火,水,金 土,日,祝 :耳鼻いんこう科: +いずみまちクリニック 山形県鶴岡市泉町8-66 0235235731 月,火,水,木,金,土 月,火,水,木,金 :整形外科:リウマチ科:リハビリテーション科: +志田整形外科医院 山形県鶴岡市みどり町18-5 0235228070 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +佐藤医院 山形県鶴岡市羽黒町野荒町街道上6-2 0235622130 月,火,水,木,金,土 月,火,木,金, 日,祝 :内科: +庄内医療生活協同組合鶴岡協立病院附属クリニック 0235281830 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:血液内科:呼吸器科:消化器科:腎臓内科循環器科:心臓血管外科:小児科:内分泌内科: +茅原クリニック 山形県鶴岡市茅原町26-23 0235228777 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:小児科:リハビリテーション科: +産婦人科小児科三井病院 山形県鶴岡市美咲町28-1 0235223290 月,火,水,木,金,土 月,火,水,金, 日,祝 :小児科:産婦人科: +鶴岡地区医師会鶴岡市立湯田川温泉リハビリテーション病院 山形県鶴岡市湯田川字中田35-10 0235385151 月,火,水,木,金 なし 土,日,祝 :内科:リハビリテーション科: +満天クリニック 山形県鶴岡市のぞみ町5番17号 0235253222 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:心臓血管内科:血管外科:胸部外科: +庄内医療生活協同組合協立歯科クリニック 山形県鶴岡市日枝字海老島159-1 0235259630 火,木,金,土 火,木,土 月,日,祝 :歯科: +三浦クリニック 山形県鶴岡市美咲町27-3 0235297277 月,火,水,木,金 月,火,水,金,土 日,祝 :泌尿器科: +社団愛康会こばやしクリニック 山形県鶴岡市藤浪4丁目111-2 0235645355 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:アレルギー科:外科:脳神経外科:皮膚科:泌尿器科:リハビリテーション科: +ふじしま歯科医院 山形県鶴岡市藤浪4丁目103-6 0235646178 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:小児歯科: +五十嵐歯科医院 山形県鶴岡市睦町17-5 0 235252655 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +大井歯科医院 山形県鶴岡市本町1丁目4-8 0235220344 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:矯正歯科:小児歯科: +佐藤診療所山戸出張所 山形県鶴岡市山五十川乙225-2 0235452172 なし 火 月,水,木,金,土,日,祝 :内科:小児科: +渡部泌尿器科内科医院 山形県鶴岡市本町2丁目16-4 0235220461 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:泌尿器科: +腰越クリニック 山形県鶴岡市美咲町25-16 0235291310 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:心療内科:神経科: +犬塚医院 山形県鶴岡市本町2丁目11-15 0235220283 水,祝 なし 月,火,木,土,日 :内科:循環器科: +佐久間医院 山形県鶴岡市西荒屋字川原田98 0235572123 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:消化器科:小児科: +三浦産婦人科医院 山形県鶴岡市朝暘町4-10 0235220228 月,火,水,木,金,土 月,火,木,金 日,祝 :産婦人科: +産科・婦人科たんぽぽクリニック 山形県鶴岡市日枝字鳥居上43-1 0235256000 月,火,水,木,金,土 月,水,木,金,土 日,祝 :産婦人科: +中村整形外科医院 山形県鶴岡市ほなみ町5-30 0235253811 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:リウマチ科:整形外科:リハビリテーション科: +三原皮膚科 山形県鶴岡市錦町17-3 0235228131 月,火,木,金,土 月,火,木,金,土 水,日,祝 :内科:皮膚科: +斎藤内科医院 山形県鶴岡市本町2丁目6-30 0235223076 木 月,火,水,金,土 日,祝 :内科: +中目内科胃腸科医院 山形県鶴岡市昭和町10-5 0235252011 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科:循環器科:小児科:皮膚科: +すこやかレディースクリニック 山形県鶴岡市東原町19-27 0235228418 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:神経科:産婦 +人科: +黒谷クリニック 山形県鶴岡市上畑町5-27 0235224182 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科: +阿部医院 山形県鶴岡市湯温海甲122-1 0235432041 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +佐藤診療所 山形県鶴岡市湯温海甲127-1 0235432037 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:消化器科:小児科: +佐久間医院 山形県鶴岡市湯温海字湯之尻122-21 0235433146 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +小野寺医院 山形県鶴岡市下名川落合228 0235533115 月,火,水,木,金,土 月,火,水,金, 日,祝 :内科: +丸岡真柄医院 山形県鶴岡市丸岡町の内291-40 0235575110 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +佐藤医院 山形県鶴岡市羽黒町黒瀬黒瀬116 0235622755 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +わかな内科医院 山形県鶴岡市家中新町11-41 0235252585 月,火,木,金,土 月,火,木,金,土 水,日,祝 :内科: +おかべ内科胃腸科医院 山形県鶴岡市平成町11-18 0235331322 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +こどもクリニックすずき 山形県鶴岡市切添町16-15 0235233288 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +岡田医院 山形県鶴岡市日吉町11-14 0235221442 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:呼吸器科:消 +化器科:循環器科: +スズキ内科クリニック 山形県鶴岡市若葉町25-15 0235247322 月,火,木,金,土 月,火,水,木,金,土 水,日,祝 :内科:胃腸科: +石田内科医院 山形県鶴岡市文園町1-52 0235230002 月,火,木,金,土 月,火,木,金, 日,祝 :内科:胃腸科: +池田内科医院 山形県鶴岡市本町3丁目17-17 0235236166 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +林医院 山形県鶴岡市湯野浜1丁目5-43 0235752010 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科:武田医院 山形県鶴岡市東新斎町14-8 0235251114 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:心療内科:精神科: +鶴岡市休日歯科診療所 山形県鶴岡市泉町5-30鶴岡市総合保健福祉センター「にこふる」内 0235230372 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +はらだこども医院 山形県鶴岡市西新斎町3-7 0235248488 月,火,水,木,金,土 月,火,水,金 日,祝 :アレルギー科:小児科: +ほんま歯科クリニック 山形県鶴岡市羽黒町押口川端42-39 0235640348 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: +よこやま皮膚科医院 山形県鶴岡市美咲町25-12 0235295260 月,火,水,金 月,火,水,金 木,土,日,祝 :皮膚科: +よしずみ歯科医院 山形県鶴岡市長者町4-10 0235281155 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +鶴岡市国民健康保険上田沢診療所 山形県鶴岡市上田沢下中島25 0235552111 なし 月,水 火,木,土,日,祝 :内科: +後藤内科医院 山形県鶴岡市美原町30-65 0235246155 月,火,水,木,金,土 月,火,金, 日,祝 :内科: +鶴岡市休日夜間診療所 山形県鶴岡市泉町5-30 0235235678 日,祝 月,火,水,木,金,土 年末年始 :内科:外科:小児 +科: +高橋クリニック 山形県鶴岡市ほなみ町7-11 0235339777 月,火,水,木,金,土 月,火,水,金, 日,祝 :内科:外科:小児科: +長岡歯科クリニック 山形県鶴岡市大宝寺字日本国378-38 0235350801 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:小児歯科:歯科口腔外科: +石井歯科医院 山形県鶴岡市美咲町24-5 0235282536 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:小児歯科: +須田内科クリニック 山形県鶴岡市宝田1丁目9-86 0235267555 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +すずき整形外科 山形県鶴岡市藤島字笹花42-34 0235646161 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科:リハ +ビリテーション科: +さいとうクリニック 山形県鶴岡市辻興屋字三丁場23-4 0235685815 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +おのこども診療所 山形県鶴岡市桜新町12-1 0235283001 月,火,水,木,金,土 月,火,木,金,土 日,祝 :アレルギー科:小児科: +さいとう歯科医院 山形県鶴岡市上山添字神明前137 0235574184 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +佐藤歯科医院 山形県鶴岡市下山添字中通44-8 0235575518 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +あかざわ歯科医院 山形県鶴岡市青柳町42-3 0235256480 月,火,水,木,金,土 月,火,木,金,土 日,祝 :歯科: +大沼歯科医院 山形県鶴岡市切添町22-56 0235258148 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +澤田歯科医院 山形県鶴岡市みどり町32-58 0235251444 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科: +武田歯科医院 山形県鶴岡市茅原町28-15 0235250780 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +美原歯科医院 山形県鶴岡市美原町5丁目41 0235251518 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +石田歯科医院 山形県鶴岡市桜新町3-17 0235252631 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +大平歯科医院 山形県鶴岡市三瀬字宮ノ前18-2 0235732226 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:歯科口腔外科: +清野歯科医院 山形県鶴岡市睦町6-11 0235240808 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:小児歯科: +岡部歯科診療所 山形県鶴岡市本町3丁目13-23 0235220572 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科: +桜井歯科医院 山形県鶴岡市大山2丁目19-11 0235332341 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +谷家歯科 山形県鶴岡市日吉町11-21 0235228312 木,金,土 木,金 月,火,水,日,祝 :歯科: +いでは診療所 山形県鶴岡市羽黒町荒川字谷地堰 0235623789 月,火,水,木,金,土 月,火,木,金, 日,祝 :内科:循環器科: +鶴岡市国民健康保険大網診療所 山形県鶴岡市大網字興屋69-1 0235546005 なし 月,水 火,木,金,土,日,祝 :内科:小児科: +五十嵐ハートクリニック 山形県鶴岡市美咲町24-8 0235297665 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:循環器科: +佐藤診療所 山形県鶴岡市鼠ケ関乙49 0235442125 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +真柄医院 山形県鶴岡市下名川字落合138 0235532132 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科:眼科: +土田内科医院 山形県鶴岡市板井川字片茎75 0235575100 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +石橋内科胃腸科医院 山形県鶴岡市藤島字笹花48-15 0235642000 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科: +黒羽根整形外科 山形県鶴岡市城南町6-67 0235249680 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビ +リテーション科: +奥山皮フ科 山形県鶴岡市鳥居町21-11メゾン鳥居101号 0235257971 月,火,木,金,土 月,火,木,金,土 水,日,祝 :皮膚科: +さくまクリニック 山形県鶴岡市湯田川字中田8-3 0235354455 月,火,木,金,土 月,火,金,土 日,祝 :内科:胃腸科:麻酔科: +美咲クリニック 山形県鶴岡市美咲町25-3 0235237633 月,火,水,木,金,土 月,火,水,金,土 日,祝 :リウマチ科:整形外科:形成外科:リハビリテーション科: +中里医院 山形県鶴岡市大山2丁目23-5 0235332142 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科: +伊藤耳鼻咽喉科医院 山形県鶴岡市馬場町7-39 0235222095 月,火,水,木,金,土 月,火,水,金 日,祝 :耳鼻いんこう科: +黒沢眼科医院 山形県鶴岡市昭和町10-20 0235249638 月,火,水,木,金,土 月,火,木,金,土 日,祝 :眼科: +協立大山診療所 山形県鶴岡市大山2丁目26-3 0235331165 月,火,木 月,火,水,金 土,日,祝 :内科:小児科:整形外科: +皮膚科: +上野整形外科 山形県鶴岡市日吉町10-43 0235257676 月,火,水,木,金,土 月,火,水,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +木根淵医院 山形県鶴岡市本町1丁目6-34 0235220308 月,火,木,金,土 月,火,木,金,土 水,日,祝 :皮膚科:泌尿器科: +島眼科医院 山形県鶴岡市本町2丁目3-9 0235224686 月,火,水,金,土,日 月,火,水,金,土 木,祝 :眼科: +中村内科胃腸科医院 山形県鶴岡市新海町14-20 0235257800 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科:小児科: +川上医院 山形県鶴岡市本町3丁目7-10 0235223050 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:小児科: +真島医院 山形県鶴岡市山王町3-29 0235256666 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:消化器外科:小児科:肛門科: +齋藤医院 山形県鶴岡市加茂加茂177 0235333030 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +豊浦クリニック 山形県鶴岡市三瀬87 0235732799 不定期 不定期 不定期 :内科:呼吸器科:消化器科:循環器科: +福原医院 山形県鶴岡市本町2丁目2-45 0235227714 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科:眼科: +石原小児科医院 山形県鶴岡市上畑町3-23 0235248213 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +本田耳鼻咽喉科医院 山形県鶴岡市新海町13-24 0235251133 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:気管食道科: +耳鼻いんこう科: +本田耳鼻咽喉科医院 山形県鶴岡市新海町13-24 0235251133 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:気管食道科:耳鼻いんこう科: 滝沢眼科 山形県鶴岡市本町3丁目7-65 0235252533 月,火,水,木,金,土 月,火,水,金,土 :眼科: +内科消化器科福島クリニック 山形県鶴岡市由良3丁目1-43 0235732573 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科: +鶴岡市立荘内病院 山形県鶴岡市泉町4-20 0235265111 月,火,水,木,金 なし 土,日,祝 :内科:外科:精神科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:循環器科:心臓血管外科:小児科:小児外科:整形外科:形成外科:皮膚科,:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科口腔外科:麻酔科: +わだ内科医院 山形県鶴岡市下川字七窪2-1198 0235760011 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:呼吸器科:循環器科:小児科:アレルギー科: +小真木原クリニック 山形県鶴岡市日枝字小真木原116-3 0235267373 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:脳神経外科: +おおかつ眼科 山形県鶴岡市錦町20 0235296230 月,水,木,金,土 月,木,金 日,祝 :眼科: +遠藤医院 山形県鶴岡市板井川字片茎80 0235572126 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科:外科:整形外科:麻酔科: +山王中央クリニック 山形県鶴岡市山王町14-15 0235253771 月,火,水,木,金,土 月,火,木,金,土 日,祝 :心療内科: +石黒歯科医院 山形県鶴岡市本町1丁目5-25 0235220509 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +池上歯科医院 山形県鶴岡市日吉町8-4 0235221383 不定期 不定期 不定期 :歯科: +文園矯正歯科 山形県鶴岡市文園町3-6 0235258118 月,火,水,金 月,火,水,金 木,土,日,祝 :矯正歯科:小児歯科: +サトウ歯科 山形県鶴岡市山王町7-21 0235220810 不定期 不定期 不定期 :歯科: +鼠ケ関歯科医院 山形県鶴岡市鼠ケ関乙136-3 0235442200 不定期 不定期 不定期 :歯科: +寺尾歯科医院 山形県鶴岡市湯温海甲228 0235432039 不定期 不定期 不定期 :歯科: +赤沢歯科診療所 山形県鶴岡市熊出字東村5 0235532027 不定期 不定期 不定期 :歯科: +佐久間歯科医院 山形県鶴岡市西荒屋字川原田227 0235572179 不定期 不定期 不定期 :歯科: +林歯科医院 山形県鶴岡市羽黒町黒瀬字黒瀬163 0235622159 不定期 不定期 不定期 :歯科: +常世歯科医院 山形県鶴岡市藤島字笹花42-57 0235642500 不定期 不定期 不定期 :歯科: +小林歯科医院 山形県鶴岡市本町1丁目6-29 0235220088 不定期 不定期 不定期 :歯科: +白幡歯科医院 山形県鶴岡市淀川町19-7 0235234180 不定期 不定期 不定期 :歯科: +前田歯科医院 山形県鶴岡市淀川町7-11 0235248085 不定期 不定期 不定期 :歯科: +石黒歯科矯正歯科医院 山形県鶴岡市本町1丁目5-25 0235248111 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科: +迎田歯科医院 山形県鶴岡市本町2丁目14-25 0235220027 不定期 不定期 不定期 :歯科: +石黒歯科医院 山形県鶴岡市日吉町8-6 0235220436 不定期 不定期 不定期 :歯科: +榎本歯科医院 山形県鶴岡市宝町10-21 0235225509 不定期 不定期 不定期 :歯科: +歯科家中新町クリニック 山形県鶴岡市家中新町15-39 0235245151 不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +荻原歯科診療所 山形県鶴岡市馬場町7-15 0235221497 不定期 不定期 不定期 :歯科: +伊藤歯科医院 山形県鶴岡市東原町10-24 0235252811 不定期 不定期 不定期 :歯科: +堀川歯科医院 山形県鶴岡市美原町13-26 0235251220 不定期 不定期 不定期 :歯科: +毛呂歯科医院 山形県鶴岡市泉町8-14 0235221117 不定期 不定期 不定期 :歯科: +平林歯科医院 山形県鶴岡市神明町7-32 0235220769 不定期 不定期 不定期 :歯科: +今井歯科医院 山形県鶴岡市新海町11-33 0235252080 不定期 不定期 不定期 :歯科: +小笠原歯科医院 山形県鶴岡市錦町16-10 0235252361 不定期 不定期 不定期 :歯科: + + + + + + + + + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/yamagatashi.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,509 @@ + +荒井小児科医院 山形県山形市久保田1-4-27 なし 月,火,水,木,金,土 月,火,木,金,土 日,祝 :小児科:呼吸器科:アレルギー科: +芳賀小児クリニック 山形県山形市城西町2-3-15 0236456660 月,火,水,木,金,土 月,火,木,金 日,祝 :小児科: +かんの眼科 山形県山形市吉原2-10-5 0236748513 月,火,水,木,金,土 月,火,水,木,金 日,祝 :眼科: +冨田歯科医院 山形県山形市香澄町2-2-1 0236224184 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科:矯正歯科:小児歯科: +山形市医師会休日診療所 山形県山形市香澄町2丁目9-39 0236359955 日,祝 月,火,水,木,金,土 年末年始 :内科:外科:小児科: +かわしま内科循環器科クリニック 山形県山形市城西町5丁目29-22 0236467220 月,火,水,木,金,土 月,水,木,金 日,祝 :内科:呼吸器科:循環器科: +若宮病院 山形県山形市吉原2丁目15-3 0236438222 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:心療内科:精神科: +小白川至誠堂病院 山形県山形市東原町1丁目12-26 0236416075 月,火,水,木,金,土 なし 日,祝 :内科:外科:脳神経外科:呼吸器科:消化器外科:消化器科:循環器科:心臓血管外科:肛門科:リハビリテーション科,麻酔科:乳腺外科: +中川医院 山形県山形市漆山2932 0236847601 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:小児科:婦人 +科: +山形病院 山形県山形市行才126-2 0236845566 月,火,水,木,金 なし 土,日,祝 :内科:精神科:神経内科:呼吸器科:消化器科:循環器科:小児科:整形外科:皮膚科:糖尿病内科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科: +ひのき町歯科 山形県山形市桧町2丁目11-22 0236666818 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科:歯科口腔外科: +あかねヶ丘えんどう耳鼻咽喉科 山形県山形市上町4-14-20 0236457070 月,火,木,金,土 月,火,水,木,金 日,祝 :アレルギー科:気管食道科: +耳鼻いんこう科: +高木歯科医院 浜崎診療室 山形県山形市風間1361-1 0236276480 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:小児歯科: +至誠堂とかみクリニック 山形県山形市富神前48-5 0236465588 月,火,木,金,土 月,火,金 水,日,祝 :内科: +わかばクリニック 山形県山形市旅篭町1丁目7-23 0236343460 月,火,水,木,金 なし 土,日,祝 :内科:麻酔科: +山口ハートクリニック 山形県山形市花楯2丁目50-3 0236152215 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:呼吸器科:循環器科 +山形県立中央病院 山形県山形市青柳1800 0236852626 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:心療内科:精神科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:腎臓内科:循環器科:心臓血管外科:小児科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科口腔外科:麻酔科:乳腺外科: +山形大学医学部附属病院 山形県山形市飯田西2丁目2-2 0236331122 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:精神科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器外科:消化器科:腎臓内科:循環器科:心臓血管外科:小児科:小児外科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:放射線科:歯科口腔外科:麻酔科:乳腺外科: +こころのクリニック山形 山形県山形市江俣4丁目18-26 0236816226 月,火,木,金,土,日 月,火,木,金,土,日 水,祝 :内科:心療内科:精神科:神経科: +こにだ高橋クリニック 山形県山形市小荷駄町12-32 0236330602 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:呼吸器科:循環器科: +東北中央病院 山形県山形市和合町3丁目2-5 0236235111 月,火,水,木,金 なし 土,日,祝 :内科:外科:呼吸器科:消化器科:循環器科:整形外科:泌尿器科:産婦人科:内分泌内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科:麻酔科:乳腺外科: +山形徳洲会病院 山形県山形市清住町2丁目3-51 0236473434 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:神経内科:脳神経外科:消化器科:循環器科:小児科:整形外科:皮膚科:泌尿器科:婦人科:リハビリテーション科:放射線科:歯科口腔外科: +篠田総合病院 山形県山形市桜町2-68 0236231711 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:外科:心療内科:精神科:神経内科:脳神経外科:呼吸器科:消化器科:循環器科:小児科:整形外科:皮膚科:泌尿器科:婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科口腔外科:麻酔科: +南原耳鼻咽喉科医院 山形県山形市南原町3-19-26 0236324133 月,火,水,金,土 月,火,水,金,土 木,日,祝 :耳鼻いんこう科: +蔵王温泉クリニック 山形県山形市蔵王温泉川前903-6 0236949100 土 土 月,火,水,木,金,日,祝 :整形外科: +ブラッサム美容皮膚クリニック 山形県山形市緑町4丁目10-3ファートンビル2FB 0236320909 火,水,木,金,土 火,水,木,金,土 月,日,祝 :美容外科:形成外科:皮膚科: +あきらデンタルクリニック 山形県山形市馬見ケ崎1丁目6-3 0236826480 月,火,水,木,金,土 月,火,水,木 日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +南館クリニック 山形県山形市南館4丁目1-45 0236477555 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:整形外科:糖尿病内科: +杉山内科クリニック 山形県山形市嶋北1丁目14番3号 0236821277 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:内分泌内科:糖尿病内科: +さいとう泌尿器科皮膚科 山形県山形市あかねケ丘2丁目10-58 0236457080 月,火,水,木,金,土 月,火,木,金,土 日,祝 :皮膚科:泌尿器科: +至誠堂総合病院 山形県山形市桜町7-44 0236227181 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:神経内科:呼吸器科:循環器科:小児科:整形外科:皮膚科:婦人科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科: +林内科・レディースクリニック 山形県山形市成沢西2丁目1-21 0236888781 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:循環器科:婦人科: +済生会山形済生病院 山形県山形市沖町79-1 0236821111 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:血液内科:リウマチ科:外科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:腎臓内科:循環器科:心臓血管外科:小児科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:麻酔科:乳腺外科: +池田小児科クリニック 山形県山形市松原311-1 0236668220 月,火,木,金,土 月,火,木,金,土 水,日,祝 :小児科: +小松歯科医院 山形県山形市あこや町3丁目9-10 0236322433 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +ざおう整形外科クリニック 山形県山形市蔵王半郷字西ノ宮244-1 0236888891 月,火,水,木,金,土 月,火,水,金,土 日,祝 :整形外科:リハビリテーション科: +平本整形外科 山形県山形市千石65 0236856322 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +耳鼻咽喉科多田医院 山形県山形市七日町3-2-8 0236410672 月,火,水,木,金,土 月,火,水,金 日,祝 :耳鼻いんこう科: +殿岡内科医院 山形県山形市中桜田3-2-17 0236257200 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +武田眼科医院 山形県山形市十日町1丁目3-37 0236233455 月,火,水,木,金,土 月,火,水,木,金 日,祝 :眼科: +設楽整形外科医院 山形県山形市桧町2丁目6-27 0236811123 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +長谷川医院 山形県山形市印役町2-1-2 0236317874 月,火,水,金,土 月,火,水,金, 木,日,祝 :内科: +東海林皮ふ科医院 山形県山形市桧町2-5-13 0236811281 月,火,水,金,土 月,火,水,金,土 木,日,祝 :皮膚科: +わたなべ耳鼻咽喉科クリニック 山形県山形市城西町4-5-19 0236464133 月,火,水,金,土 月,火,水,金,土 木,日,祝 :耳鼻いんこう科:アレルギー科: +さがえ整形外科クリニック 山形県山形市あこや町2-2-23 0236318336 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +二瓶内科クリニック 山形県山形市宮町1-5-23 0236263020 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:消化器科:神経内科:小児科: +江俣ささはら歯科クリニック 山形県山形市江俣1-10-10 0236818884 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +いなむら耳鼻咽喉科クリニック 山形県山形市篭田3-1-2 0236433344 月,火,水,金,土 月,火,水,金,土 木,日,祝 :耳鼻いんこう科: +松本内科クリニック 山形県山形市双葉町2丁目1-22 0236765566 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:内分泌内科:糖尿病内科: +錦町冨田歯科医院 山形県山形市錦町15-37 0236231184 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:小児歯科: +くわぞえ整形外科クリニック 山形県山形市花楯2-7-6 0236276222 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科: +あこや町ゆうきデンタルクリニック 山形県山形市あこや町1丁目2-15 0120648045 月,火,木,金,土,日 月,火,木,金 水,祝 :歯科:小児歯科: +佐藤小児科医院 山形県山形市小白川町3-9-15 0236251520 月,火,水,木,金,土 月,火,水,金 第3土,日,祝 :小児科: +小松医院 山形県山形市長町1-4-1 0236841360 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:小児科:精神科:心療内科: +鈴木クリニック 山形県山形市桧町4-6-16 0236818011 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:外科:胃腸科:肛門科: +桃井整形外科 山形県山形市緑町4-14-8 0236157115 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +板坂胃腸科内科クリニック 山形県山形市江俣4-6-23 0236822121 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:胃腸科:循環器科: +小倉歯科医院 山形県山形市元木2-10-10 0236336480 月,火,木,金,土 月,火,木,金,土 水,日,祝 :歯科: +山形県結核成人病予防協会山形検診センター 山形県山形市蔵王成沢字向久保田 0236886511 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :放射線科: +田中利治皮フ科 山形県山形市篭田1丁目14-30 0236478778 月,火,水,金 月,火,水,金 木,日,祝 :皮膚科: +横田耳鼻咽喉科医院 山形県山形市桜田東2-10-40 0236298585 月,火,水,金,土 月,火,水,金,土 木,日,祝 :耳鼻いんこう科: +平林耳鼻科皮膚科医院 山形県山形市成沢西2-9-3 0236953010 月,火,木,金,土 月,火,木,金,土 水,日,祝 :皮膚科:耳鼻いんこう科:気管食道科: +高柳整形外科クリニック 山形県山形市十日町3丁目4-20 0236317267 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +あさひ町榊原耳鼻咽喉科医院 山形県山形市あさひ町7-25 0236281711 月,火,木,金,土 月,火,木,金,土 水,日,祝 :耳鼻いんこう科: +土屋眼科医院 山形県山形市七日町3丁目5-7 0236313005 月,火,水,金 月,水,金 木,土,日,祝 :眼科: +和田内科クリニック 山形県山形市桜田東2丁目10-37 0236343300 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:呼吸器科:消化器科:循環器科:糖尿病内科: +皮ふ科桜井医院 山形県山形市桜田東1丁目14-22 0236251241 月,火,水,木,金,土 月,火,水,金,土 日,祝 :皮膚科: +山形泌尿器科クリニック 山形県山形市南四番町3-6 0236255515 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:皮膚科:泌尿器科: +阿部クリニック 山形県山形市桜田西4丁目3-4 0236241125 月,火,木,金,土 なし 水,日,祝 :内科:心療内科:精神科:神経科:リハビリテーション科: +長嶋医院 山形県山形市小姓町3-10 0236414166 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:胃腸科: +ねもとクリニック 山形県山形市小白川町4丁目8-13 0236285656 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:循環器科:心臓血管外科: +田中皮膚科医院 山形県山形市春日町2-26 0236451235 月,火,水,金 月,火,水,金 木,土,日,祝 :皮膚科: +羽根田産婦人科クリニック 山形県山形市寿町19-1 0236223507 月,火,水,木,金,土 月,火,水,金 日,祝 :産婦人科: +大沼産婦人科医院 山形県山形市十日町1丁目3-26 0236220243 月,火,水,木,金,土 月,火,木,金,土 日,祝 :産婦人科: +武田内科胃腸科医院 山形県山形市鈴川町3丁目15-61 0236280508 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:胃腸科:リハビリテーション科: +矢尾板医院 山形県山形市十日町1-2-29 0236222406 月,火,木,金,土 月,火,木,金,土 水,日,祝 :内科:循環器科: +十日町ようこクリニック 山形県山形市十日町3丁目2-8クレス十日町1階 0236239200 月,火,水,金, 月,火,金, 木,土,日,祝 :内科: +東北支部山形健診センター 山形県山形市西崎49-6 0236436778 不定期 不定期 不定期 :内科: +あやこ歯科医院 山形県山形市内表東291-1 0236828241 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科:小児歯科: +大泉歯科クリニック 山形県山形市城西町5丁目29-11 0236667340 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:小児歯科:歯科口腔外科: +レディースクリニック高山 山形県山形市嶋北1丁目14-13 0236740815 月,火,水,木,金,土 月,火,木,金 日,祝 :婦人科: +東京メンズクリニック山形院 山形県山形市七日町2丁目1-6イイナスビルB-202 0120358958 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日,祝 不定期 :形成外科:美容外科:皮膚科:泌尿器科:性病科: +ミクモクリニック山形院 山形県山形市本町1丁目3-14牧谷ビル3F 0236223318 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日,祝 不定期 :形成外科:美容外科:皮膚科:歯科: +ふじもり形成外科クリニック 山形県山形市十日町4丁目7-23メディカルプラザ十日町2F 0236255880 月,火,水,金 月,火,水,金 木,土,日,祝 :形成外科:美容外科: +東京美容外科 山形院山形県山形市七日町2丁目1-6イイナスビルB-202 0120658958 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日,祝 不定期 :形成外科:美容外科:皮膚科: +タクヤデンタルクリニック 山形県山形市島13ヨークタウン嶋内 0236814182 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日,祝 不定期 :歯科:矯正歯科: +ヒッポメンタルクリニック 山形県山形市南栄町2丁目14-6 0236794303 月,火,水,木,金 火,木,金 土,日,祝 :精神科: +山形県職員診療所 山形県山形市松波2丁目8-1 0236303004 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科: +小川クリニック 山形県山形市落合町528-5 0236341024 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +山形市医師会健診センター 山形県山形市深町1-7-57 0236457222 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +斯波医院 山形県山形市宮町5丁目4-28 0236220022 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:アレルギー科:外科:呼吸器科: +山形市夜間急病診療所 山形県山形市緑町1丁目1-21 0236415555 月,火,水,木,金,土,日,祝 月,火,水,木,金,土,日,祝 +なし :内科:小児科: +斎藤内科医院 山形県山形市小白川町1丁目6-13 0236233566 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:循環器科: +江良歯科医院 山形県山形市落合町字二口203-1 0236421184 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +さくま歯科医院 山形県山形市七日町4丁目4-39 0236274618 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +あいおい歯科クリニック 山形県山形市相生町6-37 0236354618 月,火,水,金,土,日 月,火,水,金,土,日 木,祝 :歯科:矯正歯科: +さなだ歯科クリニック 山形県山形市香澄町2丁目11-8 0236413748 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:小児歯科: +しのだ歯科医院 山形県山形市久保田1丁目8-14-2 0236475022 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科:矯正歯科: +DENTALANDこばやし歯科 山形県山形市桜田南13-20 0236296480 月,火,木,金,土 月,火,木,金,土 水,日,祝 :歯科: +新田歯科医院/山形矯正インプラントオフィス・CT画像センター 山形県山形市片谷地399-8 0236891145 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +前田歯科医院 山形県山形市桧町3丁目1-43 0236840210 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +さとみ矯正歯科クリニック 山形県山形市香澄町2丁目9-19 0236329553 火,水,金,土,日 火,水,金,土,日 月,木,祝 :矯正歯科: +高木歯科医院香澄町診療室 山形県山形市香澄町2丁目3-32山交ビルアネツクス4F 0236255825 月,火,水,木,金 月,火,水,木,金 土,日,祝:歯科:歯科口腔外科: +冨田歯科医院 山形県山形市西見田1 0236445757 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +太田歯科医院 山形県山形市深町2丁目4-14-2 0236448686 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科:小児歯科: +中村矯正歯科クリニック 山形県山形市香澄町2丁目8-17 0236415880 月,火,水,金,土 月,火,水,金,土 日,祝 :矯正歯科: +南沼原内科クリニック 山形県山形市松栄1丁目1-53 0236461661 月,火,水,金,土 月,火,水,土 日,祝 :内科:神経内科: +七日町メンタルクリニック 山形県山形市七日町1丁目4-31山形ワシントンホテル1階 0236258887 火,水,木,金 火,水,木,金 月,土,日,祝 :心療内科:精神科: +かつうら小児科 山形県山形市あさひ町15-15 0236427222 月,火,水,木,金,土 月,火,木,金 日,祝 :アレルギー科:小児科: +大畠整形外科医院 山形県山形市鈴川町3丁目15-64 0236353900 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +吉川皮ふ科クリニック 山形県山形市富の中4丁目1-12 0236475880 月,火,水,木,金,土 月,火,水,金 日,祝 :皮膚科: +西條クリニック 山形県山形市あこや町3丁目12-15 0236423332 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:整形外科:肛門科:リハビリテーション科: +白壁内科クリニック 山形県山形市陣場1丁目9-21 0236828811 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科: +佐々木医院 山形県山形市肴町3-34 0236434703 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:胃腸科: +高橋胃腸科内科医院古館診療所 山形県山形市古館1560-2 0236432150 なし 月,水,木,金 火,土,日,祝 :内科:胃腸科: +明石医院 山形県山形市旅篭町1丁目9-22 0236227621 月,火,水,木,金,土 月,火,木,金,土 日,祝 :皮膚科: +井出眼科病院(山形本院) 山形県山形市香澄町3丁目6-13 0236413111 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +さいとう矯正歯科 山形県山形市成沢西1丁目5-29 0236888887 火,水,金,土,日 火,水,金,土,日 月,木,祝 :矯正歯科:橘医院 山形県山形市西田4丁目9-16 0236454265 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:胃腸科:循環器科:小児科: +ファミリークリニックやざわ 山形県山形市青柳1544-5 0236875222 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :皮膚科:泌尿器科: +木の実町診療所 山形県山形市木の実町9-52木の実マンション205 0236150018 月,火,水,木,金,土 月,火,木,金 日,祝 :心療内科:神経科: +やさく医院 山形県山形市成沢西5丁目6-22 0236881771 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:胃腸科:肛門科:リハビリテーション科: +こまつ整形外科クリニック 山形県山形市富の中4丁目4-21 0236473882 月,火,水,木,金,土 月,火,水,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +さとこ女性クリニック 山形県山形市五十鈴1丁目2-17 0236153105 月,火,水,金,土 月,火,水,金 木,日,祝 :内科:婦人科: +みさわクリニック 山形県山形市城南町3丁目5-28 0236473301 月,火,水,木,金,土 月,火,水,金, 日,祝 :内科:消化器科:胃腸科: +相馬脳神経クリニック 山形県山形市松波1丁目11-35 0236342111 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:神経内科:脳神経外科:リハビリテーション科: +ほんまこどもクリニック 山形県山形市若宮1丁目11-33 0236465533 月,火,水,木,金,土 月,火,木,金 日,祝 :小児科: +セントラルクリニック 山形県山形市吉原3丁目10-17 0236473837 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:小児科:婦人科:歯科:小児歯科: +やまかわ整形外科 山形県山形市瀬波1丁目6-10 0236823323 月,火,水,金 月,火,水,金 木,土,日,祝 :整形外科:リハビリテーション科:麻酔科: +石郷岡クリニック 山形県山形市双葉町1丁目4-6 0236470050 月,火,水,木,金,土 月,火,水,木,金 日,祝 :皮膚科:泌尿器科: +耳鼻咽喉科・アレルギー科深瀬医院 山形県山形市七日町2丁目7-30 0236312533 月,火,水,木,金,土 月,火,水,金,土 :アレルギー科:耳鼻いんこう科: +小松胃腸科内科クリニック 山形県山形市吉原2-4-19 0236473131 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科:胃腸科: +中村医院 山形県山形市あかねケ丘1丁目1-1 0236465161 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科: +池澤内科クリニック 山形県山形市松山1丁目1-105 0236266266 月,火,水,木,金,土 なし 日,祝 :内科: +小白川整形外科クリニック 山形県山形市小白川町2丁目3-1フローラさいせい1F 0236262881 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +横山小児科医院 山形県山形市荒楯町2丁目20-21 0236228822 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +おかべクリニック 山形県山形市長谷堂4464 0236888733 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:胃腸科:皮膚科:肛門科:リハビリテーション科: +いそだ医院 山形県山形市漆山2573-1 0236821522 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:循環器科:肛門科:リハビリテーション科: +篭田神経クリニック 山形県山形市篭田3丁目8-13 0236445001 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:精神科:神経科:神経内科:放射線科: +高橋外科内科医院 山形県山形市大森1075-2 0236862055 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:皮膚科:泌尿器科: +まつだクリニック 山形県山形市桧町3丁目8-32 0236823136 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:循環器科: +やまがた保健生活協同組合しろにし診療所 山形県山形市城西町4丁目27-25 0236432017 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +もんま内科皮ふ科医院 山形県山形市小立2丁目7-20 0236258811 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:消化器科:皮膚科: +若杉内科医院 山形県山形市荒楯町1丁目7-19 0236262323 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +吉村医院 山形県山形市小姓町1-34 0236263701 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:胃腸科:肛門科: +鶴宮小児科医院 山形県山形市東原町3丁目10-7 0236326677 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科: +土田小児科医院 山形県山形市長町2丁目3-6 0236848077 月,火,水,木,金,土 月,火,水,金 日,祝 :小児科: +ときめき形成外科 山形県山形市大野目2丁目2-33 0236351800 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :整形外科:形成外科:皮膚科: +城西医院 山形県山形市春日町13-27 0236440276 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:呼吸器科:消化器科:循環器科: +早坂内科循環器科医院 山形県山形市あかねケ丘2丁目10-2 0236452223 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:呼吸器科:循環器科: +大泉胃腸科内科クリニック 山形県山形市城西町5丁目21-15 0236439021 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:胃腸科: +佐藤眼科医院 山形県山形市美畑町11-11 0236223711 月,火,水,木,金 月,水,木,土 日,祝 :眼科: +大島医院 山形県山形市桜田西4丁目3-26 0236416419 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:神経内科:整形外科:リハビリテーション科: +武田整形外科クリニック 山形県山形市山家町2丁目6-6 0236317322 月,火,水,木,金,土 月,火,水,木,金 日,祝 :整形外科: +伊藤泌尿器科クリニック 山形県山形市五十鈴1丁目1-28 0236151150 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科:泌尿器科: +山田菊地医院 山形県山形市西田2丁目1-27 0236435500 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:外科:神経内科:脳神経外科:整形外科:リハビリテーション科: +柘植医院 山形県山形市香澄町1丁目11-15 0236311131 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:胃腸科:肛門科:放射線科: +横山病院 山形県山形市十日町3丁目6-48 0236223415 月,火,水,金,土,日 月,火,水,金,土 木,祝 :産婦人科:高橋胃腸科内科医院飯塚診療所 山形県山形市飯塚町字中道北448-3 0236435575 月,水,木,金,土 なし 火,日,祝 :内科:胃腸科: +島崎クリニック 山形県山形市城西町5丁目3-5 0236456162 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:循環器科:皮膚科: +篠原神経・心療内科クリニック 山形県山形市元木3丁目2-5 0236341230 月,火,水,木,金,土 月,火,木,金 日,祝 :心療内科:精神科:神経科: +中井こども医院 山形県山形市花楯1丁目16-11 0236257171 月,火,水,木,金,土 月,火,水,木,金 日,祝 :アレルギー科:小児科: +メイプル歯科クリニック 山形県山形市若宮3-7-8ジャスコ山形南店2F 0236461370 月,火,木,金,土,日 月,火,木,金,土,日 水,祝 :歯科:小児歯科: +芳賀胃腸科内科クリニック 山形県山形市あこや町2-15-1 0236248686 月,火,水,木,金,土 月,火,木,金 日,祝 :胃腸科:消化器科:内科: +山形市歯科医師会休日救急歯科診療所 山形県山形市香澄町二丁目9-39 0236299988 日,祝 日,祝 月,火,水,木,金,土,お盆, 年末年始 :歯科: +矢吹嶋クリニック 山形県山形市嶋北4丁目5-5 0236828566 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:心療内科:腎臓内科: +小関皮ふ科眼科クリニック 山形県山形市あこや町2丁目2-15 0236325678 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科:眼科: +とくなが整形外科医院 山形県山形市木の実町10-17 0236243300 月,火,水,木,金,土 月,火,木,金 日,祝 :リウマチ科:整形外科: +山形厚生病院 山形県山形市菅沢字鬼越255 0236458118 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:精神科:リハビリテーション科: +内藤医院 山形県山形市鉄砲町1丁目4-20 0236241500 月,火,水,木,金,土 月,火,水,金,土 日,祝 :外科:眼科: +元木阿部内科医院 山形県山形市南二番町7-1 0236331509 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科: +芳賀医院 山形県山形市南館3丁目4-3 0236439065 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科: +斎藤医院 山形県山形市蔵王半郷256-7 0236882033 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +斎藤皮膚科医院 山形県山形市十日町4丁目1-41 0236313388 月,火,水,金 月,火,水,金 木,土,日,祝 :皮膚科: +緑町関口クリニック 山形県山形市緑町1丁目7-16 0236330030 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:神経内科:脳神経外科:リハビリテーション科: +門間医院 山形県山形市瀬波3丁目5-20 0236818741 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +阿部外科胃腸科医院 山形県山形市八日町2丁目1-15 0236312263 月,火,水,木,金,土 月,火,木,金 日,祝 :外科:胃腸科: +ともおか整形外科 山形県山形市元木2丁目8-8 0236343355 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +安孫子内科医院 山形県山形市風間1145 0236862388 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +山口内科医院 山形県山形市松波4丁目2-23 0236316231 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +堺内科胃腸科医院 山形県山形市小白川町2丁目1-65 0236418379 月,火,水,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +伊沢内科胃腸科医院 山形県山形市下東山4319-1 0236862816 月,火,水 月,火,水 木,金,土,日,祝 :内科:胃腸科: +なわの内科医院 山形県山形市七日町3丁目5-1 0236320120 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科:皮膚科: +城南胃腸科内科医院 山形県山形市若葉町5-13 0236414617 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:消化器科:小児科: +森整形外科医院 山形県山形市桜町2-46 0236312777 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :整形外科: +金谷医院 山形県山形市東原町4丁目16-25 0236330888 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科: +小田消化器科内科クリニック 山形県山形市片谷地121-12 0236891077 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科: +大野目クリニック 山形県山形市大野目3丁目6-22 0236258611 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:循環器科: +千歳篠田病院 山形県山形市長町2丁目10-56 0236845331 月,火,水,木,金,土 なし 日,祝 :内科:心療内科:精神科: +黒田内科クリニック 山形県山形市七日町4丁目13-33 0236253081 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:呼吸器科:循環器科: +村田内科医院 山形県山形市十日町4丁目7-23メディカルプラザ十日町3階3号室 0236335580 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: +たちばな歯科クリニック 山形県山形市西田3丁目11-23 0236460648 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +いがらし内科循環器科クリニック 山形県山形市銅町2丁目24-5 0236156050 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:循環器科: +政木医院 山形県山形市江南3丁目5-19 0236841159 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:皮膚科:泌尿器科: +中村内科呼吸器科胃腸科医院 山形県山形市漆山785-3 0236863515 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:呼吸器科:胃腸科: +勝島小児科医院 山形県山形市南館4丁目4-12 0236430123 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +中島眼科医院 山形県山形市春日町8-30 0236435515 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +大竹耳鼻咽喉科気管食道科医院 山形県山形市南三番町7-17 0236332571 月,火,水,金 月,火,水,金 木,土,日,祝 :気管食道科:耳鼻いんこう科: +三條クリニック 山形県山形市寿町14-3 0236355566 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:胃腸科:肛門科: +大野目耳鼻科 山形県山形市大野目2丁目2-37 0236354187 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: +もとさわ歯科 山形県山形市長谷堂4442 0236882201 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +すまいる歯科 山形県山形市城西町2丁目10-15 0236476323 月,火,水,木,金,土 月,火,水,金 日,祝 :歯科: +竹田歯科医院 山形県山形市花楯2丁目1-40 0236153323 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +楡の木歯科医院 山形県山形市宮町4丁目6-6 0236156874 月,火,木,金,土 月,火,木,金,土 水,日,祝 :歯科:歯科口腔外科: +やまだ歯科医院 山形県山形市成沢西2丁目9-14 0236954182 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +布施歯科医院 山形県山形市蔵王半郷字松尾川113-7 0236888180 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +大森歯科医院 山形県山形市大森1063 0236863771 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +青木歯科医院 山形県山形市富の中4丁目6-35 0236472250 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +安田歯科医院 山形県山形市青田1丁目1-15 0236416695 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: +坂田歯科医院 山形県山形市小姓町4-10 0236310317 月,火,水,木,金,土 月,火,木,金 日,祝 :歯科: +有泉歯科医院 山形県山形市南原町3丁目14-20 0236262772 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +斎藤歯科医院 山形県山形市十日町4丁目2-1 0236324912 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科:小児歯科: +笹原歯科 山形県山形市五十鈴3丁目9-23 0236318101 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +宮川整形外科クリニック 山形県山形市宮町2丁目1-34 0236236110 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +前田クリニック 山形県山形市末広町15-8 0236221114 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:リハビリテーション科: +橋本こどもクリニック 山形県山形市瀬波1丁目1-36 0236814800 月,火,水,木,金,土 月,火,木,金 日,祝 :小児科: +沢村クリニック 山形県山形市東原町4丁目16-7 0236333670 月,火,水,木,金,土 月,火,木,金 日,祝 :皮膚科:泌尿器科: +山口内科クリニック 山形県山形市七日町5丁目12-14 0236227151 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:循環器科: +吉原眼科 山形県山形市西田2丁目3-3 0236468805 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +矢吹病院 山形県山形市本町1丁目6-17 0236417330 月,火,水,木,金 月,木 土,日,祝 :内科:外科:呼吸器科:消化器科:腎臓内科:整形外科: +金井たかはし眼科 山形県山形市瀬波1丁目6-15 0236810090 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +山形市立病院済生館 山形県山形市七日町1丁目3-26 0236255555 月,火,水,木,金 なし 土,日,祝 :内科:血液内科:外科:心療内科:精神科:神経内科:脳神経外科:呼吸器科:消化器科:腎臓内科:循環器科:小児科:整形外科:皮膚科:泌尿器科:産婦人科:内分泌内科:糖尿病内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:歯科:歯科口腔外科:麻酔科:乳腺外科: +真理子レディースクリニック 山形県山形市小姓町6-35 0236320666 月,火,水,木,金,土 月,火,水,金 日,祝 :婦人科: +消化器科内科井上クリニック 山形県山形市北町3丁目7-1 0236816080 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:消化器科: +あかねケ丘佐藤小児科 山形県山形市あかねケ丘2丁目10-54 0236474011 月,火,水,木,金,土 月,火,水,金 日,祝 :小児科: +ごとう医院 山形県山形市東青田3丁目11-10 0236265515 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:アレルギー科:消化器科: +荒井医院 山形県山形市松原406 0236882002 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +鈴木外科胃腸科医院 山形県山形市七日町4丁目4-7 0236231966 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:外科:胃腸科:整形外科:肛門科: +後藤内科胃腸科医院 山形県山形市美畑町12-33 0236415820 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +佐藤整形外科クリニック 山形県山形市小立3丁目13-25 0236265000 月,火,水,金 月,火,水,金 木,土,日,祝 :整形外科:リハビリテーション科: +笠島耳鼻咽喉科医院 山形県山形市美畑町12-28 0236232763 月,火,水,木,金,土 月,火,水,木,土 日,祝 :耳鼻いんこう科: +芳川小児科医院 山形県山形市元木2丁目6-13 0236257700 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +有海外科胃腸科医院 山形県山形市小白川町5丁目6-30 0236310851 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:消化器科:胃腸科:肛門科: +濱井眼科 山形県山形市南原町2丁目7-44 0236255077 月,火,水,木,金,土 月,火,水,木,金 日,祝 :眼科: +小松眼科医院 山形県山形市元木2丁目13-5 0236413811 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +長井内科医院 山形県山形市春日町10-31 0236438219 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科:放射線科: +竹本眼科医院 山形県山形市上町4丁目7-29 0236451260 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +桧町鈴木耳鼻咽喉科 山形県山形市桧町2丁目6-19 0236813387 月,火,水,金 月,火,水,金 木,土,日,祝 :耳鼻いんこう科: +玉井眼科医院 山形県山形市松波1丁目5-8 0236242002 月,火,水,木,金,土 月,火,水,金 日,祝 :眼科: +内ケ崎内科精神科医院 山形県山形市幸町12-50 0236240547 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:精神科:神経科: +佐藤清医院 山形県山形市五十鈴1丁目6-56 0236267275 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:神経内科:脳神経外科:循環器科: +佐山クリニック 山形県山形市双葉町2丁目3-3 0236437777 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:胃腸科:麻酔科: +佐々木医院 山形県山形市印役町2丁目1-44 0236224690 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科: +高橋クリニック 山形県山形市上町3丁目6-41 0236448601 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:リウマチ科:外科:胃腸科:整形外科: +加賀山医院 山形県山形市南一番町5-26 0236311171 月,水 なし 火,木,金,土,日,祝 :内科:整形外科: +笠原整形外科 山形県山形市久保田1丁目8-21 0236451567 月,火,水,木,金,土 月,火,水,金 日,祝 :整形外科:リハビリテーション科: +奥山内科胃腸科クリニック 山形県山形市深町3丁目1-20 0236463223 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +岸内科小児科医院 山形県山形市城西町1丁目4-16 0236443750 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:小児科: +長岡医院 山形県山形市七日町4丁目5-20 0236221191 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:呼吸器科:消化器科:胃腸科:循環器科:整形外科:リハビリテーション科: +音山医院 山形県山形市三日町1丁目2-7 0236314190 月,火,水,金 月,火,水,金 木,土,日,祝 :皮膚科:泌尿器科: +吉池小児科皮膚科医院 山形県山形市十日町2丁目4-16 0236222606 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :小児科:皮膚科: +オーヌマ眼科 山形県山形市鈴川町3丁目8-10 0236347113 月,火,水,木,金,土 月,火,木,金 日,祝 :眼科: +ひのき町小松眼科 山形県山形市桧町2丁目6-4 0236818668 月,火,水,金 月,火,水,金 木,土,日,祝 :眼科: +あかねケ丘整形外科医院 山形県山形市あかねケ丘2丁目10-3 0236457380 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科:リハビリテーション科: +奥山眼科 山形県山形市七日町2丁目1-3 0236425211 月,水,木,金,土,日 月,水,木,金,土,日 火,祝 :眼科: +大内外科医院 山形県山形市宮町2丁目6-13 0236416867 月,火,水,金 月 木,土,日,祝 :内科:外科: +近岡小児科医院 山形県山形市桧町3丁目7-25 0236841300 月,火,水,木,金,土 月,火,水,金,土 日,祝 :小児科: +菅野内科医院 山形県山形市旭が丘2-34 0236241233 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:循環器科: +深瀬内科医院 山形県山形市落合町195-3 0236317010 月,火,水,木,金,土 月,火,木,金,土 日,祝 :内科:胃腸科:循環器科: +小松内科医院 山形県山形市元木2丁目13-8 0236345500 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:呼吸器科:消化器科:循環器科: +大内内科胃腸科医院 山形県山形市下条町2丁目1-20 0236453032 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +大道寺内科医院 山形県山形市上町3-11-4 0236447555 月,火,水,金,土 月,火,水,金,土 木,日,祝 :内科:循環器科: +西バイパスひとみ整形外科 山形県山形市砂塚12-8 0236441200 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科: +さかした歯科医院 山形県山形市南原町3-3-1 0236418888 月,火,水,金,土 月,火,水,金,土 木,第2土,日,祝 :歯科: +べにばな内科クリニック 山形県山形市成沢西4-11-32 0236883511 月,火,水,木,金,土 月,水,木,金 日,祝 :内科:消化器内科:呼吸器内科:腫瘍内科:心療内科:漢方内科: +川越医院 山形県山形市宮町1-3-36 0236416467 月,火,水,木,金,土 月,火,水,木,金 日,祝 :産婦人科:内科:消化器内科:小児科: +五十嵐歯科クリニック 山形県山形市城西町4丁目20-24 0236457171 不定期 不定期 不定期 :歯科: +斉藤憲歯科医院 山形県山形市十日町4丁目1-40 0236338020 不定期 不定期 不定期 :歯科: +高田歯科クリニック 山形県山形市鉄砲町1丁目5-9 0236263555 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +伊藤歯科医院 山形県山形市宮町5丁目10-42 0236224140 不定期 不定期 不定期 :歯科: +西村歯科医院 山形県山形市十日町3丁目1-41 0236332705 不定期 不定期 不定期 :歯科: +アルファ矯正歯科 山形県山形市香澄町3丁目1-7朝日生命ビル3F 0236242328 不定期 不定期 不定期 :歯科:矯正歯科: +細谷歯科医院 山形県山形市十日町3丁目10-28 0236322777 不定期 不定期 不定期 :歯科: +渡辺歯科医院 山形県山形市双月町2丁目3-7 0236331717 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +高橋歯科医院 山形県山形市東原町2丁目5-12 0236333447 不定期 不定期 不定期 :歯科: +鹿野歯科医院 山形県山形市大野目2丁目4-10-3 0236316868 不定期 不定期 不定期 :歯科: +庄司歯科医院 山形県山形市富の中1丁目12-1 0236443811 不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +緑町斎藤歯科 山形県山形市緑町2丁目12-36 0236220303 不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +中川メンタルクリニック 山形県山形市十日町3丁目1-40 0236327333 月,火,水 月,火,水 木,金,土,日,祝 :精神科: +くつざわ歯科医院 山形県山形市成沢西5丁目5-15 0236890648 不定期 不定期 不定期 :歯科: +遠藤歯科医院 山形県山形市若宮1丁目6-20 0236858338 不定期 不定期 不定期 :歯科: +成原歯科医院 山形県山形市陣場新田字日渡579-3 0236849944 不定期 不定期 不定期 :歯科: +あさの歯科クリニック 山形県山形市馬見ケ崎2丁目11-20 0236814618 不定期 不定期 不定期 :歯科: +あかねケ丘斎藤歯科医院 山形県山形市あかねケ丘2丁目15-50 0236455155 不定期 不定期 不定期 :歯科: +沼澤歯科医院 山形県山形市錦町11-15 0236355454 不定期 不定期 不定期 :歯科: +寺嶋歯科医院 山形県山形市東山形1丁目1-8 0236351766 不定期 不定期 不定期 :歯科: +はらだ歯科クリニック 山形県山形市桜田西2丁目6-8プラザ桜田1F東 0236351180 不定期 不定期 不定期 :歯科: +久米井歯科医院 山形県山形市東青田1丁目12-5 0236343611 不定期 不定期 不定期 :歯科: +鈴木歯科医院 山形県山形市東原町4丁目7-4 0236338241 不定期 不定期 不定期 :歯科: +東原はしもと歯科 山形県山形市東原町3丁目3-43 0236335454 不定期 不定期 不定期 :歯科: +長岡歯科医院 山形県山形市小白川町1丁目2-8 0236318668 不定期 不定期 不定期 :歯科: +鈴木歯科クリニック 山形県山形市南栄町1丁目3-33 0236261855 不定期 不定期 不定期 :歯科: +大滝歯科医院 山形県山形市青田4丁目9-26 0236254182 不定期 不定期 不定期 :歯科: +はやかわ歯科クリニック 山形県山形市南三番町7-15 0236248241 不定期 不定期 不定期 :歯科: +ソフィア歯科 山形県山形市松見町5-5 0236245630 不定期 不定期 不定期 :矯正歯科: +きくち歯科クリニック 山形県山形市桜田東1丁目4-1 0236244611 不定期 不定期 不定期 :歯科: +峯田歯科医院 山形県山形市宮町4丁目16-22 0236244115 不定期 不定期 不定期 :歯科: +五十鈴歯科診療所 山形県山形市五十鈴3丁目2-15 0236241000 不定期 不定期 不定期 :歯科: +深瀬歯科医院 山形県山形市鈴川町3丁目1-3 0236233718 不定期 不定期 不定期 :歯科: +東青田デンタルクリニック 山形県山形市東青田3丁目7-20 0236228148 不定期 不定期 不定期 :歯科: +高田歯科医院 山形県山形市六日町1-3 0236221958 不定期 不定期 不定期 :歯科: +逸見歯科医院 山形県山形市清住町1丁目2-31 0236451548 不定期 不定期 不定期 :歯科: +大槻歯科医院 山形県山形市寿町5-11 0236331533 不定期 不定期 不定期 :歯科: +小関歯科医院 山形県山形市本町2丁目3-32 0236411742 不定期 不定期 不定期 :歯科: +橋本歯科医院 山形県山形市六日町5-28 0236413515 不定期 不定期 不定期 :歯科: +後藤歯科医院 山形県山形市緑町1丁目7-9 0236220829 不定期 不定期 不定期 :歯科: +ゴトウ歯科 山形県山形市旅篭町3丁目5-4 0236421818 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科: +成原歯科 山形県山形市旅篭町1丁目3-22 0236225602 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +沼木歯科 山形県山形市明神前32-4 0236431510 不定期 不定期 不定期 :歯科: +池野歯科医院 山形県山形市千歳2丁目15-4 0236817171 不定期 不定期 不定期 :歯科:小児歯科: +五十嵐歯科医院 山形県山形市本町1丁目7-31 0236331377 月,火,水,金,土 月,火,水,金,土 木,日,祝 :歯科:小児歯科: +豊田歯科医院 山形県山形市本町1丁目4-26 0236223837 不定期 不定期 不定期 :歯科: +今野歯科医院 山形県山形市北山形1丁目2-15 0236454521 不定期 不定期 不定期 :歯科: +永田歯科医院 山形県山形市松原303-10 0236882230 不定期 不定期 不定期 :歯科: +橋本歯科医院 山形県山形市緑町1丁目9-24 0236230476 不定期 不定期 不定期 :歯科: +大沼歯科医院 山形県山形市長町2丁目4-12 0236846510 不定期 不定期 不定期 :歯科: +小屋歯科医院 山形県山形市鉄砲町1丁目4-34 0236413433 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県山形市東青田5丁目1-16 0236230318 不定期 不定期 不定期 :歯科: +国井歯科医院 山形県山形市白山3丁目4-8 0236327749 不定期 不定期 不定期 :歯科: +小松歯科医院 山形県山形市双葉町2丁目6-15 0236438771 不定期 不定期 不定期 :歯科: +森谷歯科医院 山形県山形市南四番町2-12 0236311148 不定期 不定期 不定期 :歯科: +東海林歯科医院 山形県山形市八日町1丁目2-22 0236223648 不定期 不定期 不定期 :歯科: +佐々木歯科医院 山形県山形市松原137-13 0236888148 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県山形市漆山1098-1 0236862246 不定期 不定期 不定期 :歯科: +宮田歯科医院 山形県山形市西田2丁目1-8 0236448825 不定期 不定期 不定期 :歯科: +神尾歯科医院 山形県山形市西田1丁目1-42 0236433332 不定期 不定期 不定期 :歯科: +林歯科医院 山形県山形市桧町4丁目3-12 0236843744 不定期 不定期 不定期 :歯科: +三浦歯科医院 山形県山形市南館1丁目9-8阿部ビル内 0236452733 不定期 不定期 不定期 :歯科: +後藤歯科医院 山形県山形市上町1丁目13-13 0236441814 不定期 不定期 不定期 :歯科:小児歯科: +鈴木歯科医院 山形県山形市城北町2丁目2-18 0236431818 不定期 不定期 不定期 :歯科: +コスモ歯科クリニック城西 山形県山形市城西町5丁目3-1 0236441188 不定期 不定期 不定期 :歯科: +佐藤歯科医院 山形県山形市城西町2丁目1-5 0236455555 不定期 不定期 不定期 :歯科: +牧野歯科医院 山形県山形市五日町7-10 0236453772 不定期 不定期 不定期 :歯科: +藤原歯科医院 山形県山形市松波4丁目5-14 0236244515 不定期 不定期 不定期 :歯科: +日下部歯科医院 山形県山形市小白川町5丁目3-17 0236240077 不定期 不定期 不定期 :歯科: +小白川加藤歯科 山形県山形市小白川町2丁目2-12 0236245500 不定期 不定期 不定期 :歯科: +成瀬歯科医院 山形県山形市松波2丁目1-25 0236252525 不定期 不定期 不定期 :歯科: +小林矯正歯科医院 山形県山形市七日町1丁目4-59小林ビル1階 0236256989 月,火,水,金 月,火,水,金 木,土,日,祝 :矯正歯科: +小林歯科医院 山形県山形市十日町3丁目2-45 0236328089 不定期 不定期 不定期 :歯科: +森歯科医院 山形県山形市七日町1丁目2-42TAN6スクエアビル3F 0236254060 不定期 不定期 不定期 :歯科: +小林歯科医院 山形県山形市七日町1丁目4-59 0236223536 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +橋本歯科医院 山形県山形市寿町14-29 0236223332 不定期 不定期 不定期 :歯科:小児歯科: +原歯科医院 山形県山形市十日町2丁目1-20 0236223898 不定期 不定期 不定期 :歯科: +ホワイト歯科 山形県山形市桜田西2丁目7-19 0236314088 不定期 不定期 不定期 :歯科: +桜田斎藤歯科医院 山形県山形市桜田東4丁目8-41山相銀行桜田支店2階 0236412048 不定期 不定期 不定期 :歯科:小児歯科: +長崎歯科医院 山形県山形市宮町1丁目10 0236328814 不定期 不定期 不定期 :歯科: +穂積歯科医院 山形県山形市香澄町2丁目3-35 0236324865 不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +徳光歯科医院 山形県山形市久保田2丁目9-26 0236455016 不定期 不定期 不定期 :歯科: +矢萩歯科医院 山形県山形市江南1丁目2-8 0236818429 不定期 不定期 不定期 :歯科: +相馬歯科医院 山形県山形市元木1丁目10-62 0236416080 不定期 不定期 不定期 :歯科: +岩沼歯科医院 山形県山形市香澄町3丁目2-1山交ビル 0236417742 不定期 不定期 不定期 :歯科: +佐藤歯科医院 山形県山形市あこや町2丁目15-6 0236415801 不定期 不定期 不定期 :歯科: +貝和歯科医院 山形県山形市あかねケ丘1丁目1-4 0236441730 不定期 不定期 不定期 :歯科: +さとう歯科 山形県山形市瀬波1丁目7-18 0236845328 不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +さくら歯科クリニック 山形県山形市あこや町2丁目13-12コーポ桜井1F 0236340018 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +清水歯科医院 山形県山形市江俣4丁目11-20 0236846470 不定期 不定期 不定期 :歯科: +橋本歯科医院 山形県山形市あさひ町7-21 0236327416 不定期 不定期 不定期 :歯科: +堀歯科医院 山形県山形市下条町2丁目4-13 0236451234 不定期 不定期 不定期 :歯科:小児歯科: +加藤歯科医院 山形県山形市花楯1丁目21-3 0236243456 不定期 不定期 不定期 :歯科: +橋本歯科医院 山形県山形市宮町4丁目24-12 0236225868 不定期 不定期 不定期 :歯科: +結城歯科医院 山形県山形市久保田3丁目7-28 0236453225 不定期 不定期 不定期 :歯科:歯科:小児歯科: +わだ心療内科クリニック 山形県山形市小白川町1丁目16-33 0236240246 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :心療内科:精神科: +堀米医院 山形県山形市木の実町7-4 0236323939 月,火,水,木,金,土 月,火,水,木,金 日,祝 :皮膚科:泌尿器科: +ゆうき整形外科 山形県山形市南原町1丁目25-20 0236345111 月,火,水,木,金,第1第3土 月,火,水,木,金 日,祝 :整形外科:リハビリテーション科: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +----Next_Part(Fri_Jan_20_23_32_27_2012_901)----
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/yonezawa.txt Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,137 @@ +ごとう整形外科クリニック 山形県米沢市花沢町2687-1 0238215103 月,火,水,金 月,火,水,金 木,土,日,祝 :リウマチ科:整形外科:リハビリテーション科: +米沢病院 山形県米沢市三沢26100-1 0238223210 月,火,水,木,金 なし 土,日,祝 :内科:神経内科:脳神経外科:循環器科:小児科:整形外科:放射線科: +ナルシマエンシンリョウジョ 山形県米沢市広幡町成島2107-48 0238372355 不定期 不定期 不定期 :内科: +米沢市立病院 山形県米沢市相生町6-36 0238222450 月,火,水,木,金 なし 土,日,祝 :内科:外科:精神科:神経科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:腎臓内科:循環器科:心臓血管外科:小児科:整形外科:形成外科:皮膚科:泌尿器科:産婦人科:内分泌内科:眼科:耳鼻いんこう科:リハビリテーション科:放射線科:麻酔科:乳腺外科: +三友堂病院 山形県米沢市中央6丁目1-219 0238243700 月,火,水,木,金 なし 土,日,祝 :内科:アレルギー科:外科:神経内科:脳神経外科:呼吸器科:呼吸器外科:消化器科:循環器科:心臓血管外科:整形外科:泌尿器科:婦人科:糖尿病内科:眼科:リハビリテーション科:放射線科:麻酔科:乳腺外科: +三友堂リハビリセンター 山形県米沢市成島町3丁目2-90 0238218100 不定期 不定期 不定期 :内科:神経内科:リハビリテーション科: +さくらクリニック 山形県米沢市塩井町塩野1495-5 0238261087 月,火,水,木,金,土 月,火,木,金 日,祝 :産婦人科: +春日皮フ科 山形県米沢市春日2丁目3-50 0238235700 月,火,水,金,土 月,火,水,金,土 木,日,祝 :皮膚科: +古川医院 山形県米沢市金池二丁目6-35 0238211060 月,火,水,木,金,土 月,火,木,金 第1水曜,日,祝 :内科:消化器科:小児科: +酒井耳鼻咽喉科医院 山形県米沢市木場町3-8 0238233341 月,火,木,金,土 月,火,木,金,土 水,日,祝 :耳鼻いんこう科: +羅内科循環器科医院 山形県米沢市通町4-7-27 0238262345 月,火,水,金,土 月,火,水,金 木,日,祝 :内科:循環器科: +大道寺医院 山形県米沢市東3-1-45-5 0238215353 月,火,水,木,金,土 月,火,水,金,土 日,祝 :内科:消化器内科:胃腸内科:外科: +米沢検診センター 山形県米沢市西大通1丁目5-66 0238218811 不定期 不定期 不定期 :放射線科: +舟山病院 山形県米沢市駅前2丁目4-8 0238234435 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:呼吸器科:消化器科:循環器科:小児科:整形外科:婦人科:眼科:リハビリテーション科:乳腺外科: +花沢アイクリニック 山形県米沢市花沢町2695-1 0238400606 月,火,水,木,金,土 月,火,木,金,土 日,祝 :眼科: +米沢市平日夜間・休日診療所 山形県米沢市西大通1丁目5-60 0238229922 日,祝 月,火,水,木,金 日 :内科:小児科: +ながまち歯科医院 山形県米沢市春日2丁目13-3 0238225118 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +米沢駅前クリニック 山形県米沢市下花沢2丁目7-20 0238265810 月,火,水,木,金,土 なし 日,祝 :心療内科:精神科:神経科: +中山胃腸科内科医院 山形県米沢市丸の内2丁目2-53 0238213208 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:胃腸科: +明星歯科医院 山形県米沢市金池5丁目11-62 0238265255 月,火,水,金,土 月,火,水,金,土 木,日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +神尾胃腸科 山形県米沢市城西3丁目2-5 0238221010 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +くまの医院 山形県米沢市門東町1丁目4-4 0238226000 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: +中川デンタルクリニック 山形県米沢市窪田町窪田203-3 0238373311 火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:小児科歯科: +レインボー歯科医院 山形県米沢市下花沢2丁目7-32-6 0238261182 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科: +小児科入間田医院 山形県米沢市中央6丁目1-25 0238231629 月,火,水,木,金,土 月,火,水,木,金 日,祝 :小児科: +内科島津医院 山形県米沢市中央4丁目8-47 0238232136 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +金池クリニック 山形県米沢市金池3丁目2-31 0238223666 月,火,水,金 月,火,水,金 木,土,日,祝 :気管食道科:小児科:耳鼻いんこう科: +齋藤医院 山形県米沢市駅前4丁目3-35 0238222021 月,火,水,木,金,土 月,火,水,金 日,祝 :外科:泌尿器科: +万世歯科クリニック 山形県米沢市万世町桑山4619 0238280820 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科:小児歯科:歯科口腔外科: +万世福祉の里診療所 山形県米沢市万世町梓山5494-1 0238285188 不定期 不定期 不定期 :内科:精神科:歯科: +村山歯科医院 山形県米沢市通町6丁目11-10 0238238640 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +春日歯科医院 山形県米沢市春日2丁目4-59 0238223030 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科: +わたなべ矯正歯科医院 山形県米沢市中央7丁目5-3-2 0238267373 火,水,金,土,日 火,水,金,土,日 月,木,祝 :矯正歯科: +よねざわ歯科医院 山形県米沢市松が岬2丁目1-53 0238224182 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +つばさデンタルクリニック 山形県米沢市御廟2丁目3-33 0238260118 月,火,水,金 月,火,水,金 木,土,日,祝 :歯科:矯正歯科:小児歯科:歯科口腔外科: +かとう整形外科クリニック 山形県米沢市御廟3丁目2-10 0238247001 月,火,水,木,金,土 月,火,水,金,土 日,祝 :リウマチ科:整形外科:リハビリテーション科: +いまい医院 山形県米沢市花沢町2695-5 0238221867 月,火,水,木,金,土 月,火,水,木,土 日,祝 :内科:外科: +前田整形外科クリニック 山形県米沢市春日2丁目6-51 0238268415 月,火,水,木,金,土 月,火,木,金 日,祝 :整形外科: +たかだ内科 山形県米沢市万世町金谷666 0238269337 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:呼吸器科:循環器科: +田中クリニック 山形県米沢市川井2356-1 0238283505 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:消化器科:小児科:肛門科: +石山内科クリニック 山形県米沢市太田町5丁目1530-67 0238392020 月,火,水,木,金,土 月,火,木,金 日,祝 :内科: +庄司眼科クリニック 山形県米沢市徳町4-47 0238261556 月,火,水,木,金,土 月,水,木,土 日,祝 :眼科: +さの医院 山形県米沢市中央3丁目4-36 0238261020 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:消化器科: +こせき小児科 山形県米沢市大町4丁目4-14 0238218787 月,火,木,金,土 月,火,水,木,金,土 水,日,祝 :小児科: +早川小児科医院 山形県米沢市成島町1丁目5-16 0238222107 月,火,水,木,金,土 月,火,水,金,土 日,祝 :小児科: +麻生皮膚科クリニック 山形県米沢市金池2丁目2-10 0238238211 月,火,木,金,土 月,火,木,土 水,日,祝 :皮膚科: +平井医院 山形県米沢市舘山4丁目3-18 0238230464 月,火,水,金,土,日 月,水,木,金,土 木,祝 :内科:外科:泌尿器科: +高橋胃腸科外科医院 山形県米沢市西大通1丁目6-87 0238230620 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:外科:胃腸科:肛門科: +すだ記念整形外科 山形県米沢市金池5丁目9-18 0238262700 月,火,水,木,金,土 月,火,水,金 日,祝 :リウマチ科:整形外科:リハビリテーション科: +産科・婦人科島貫医院 山形県米沢市丸の内2丁目3-3 0238231776 月,火,金,土 月,火,金,土 水,木,日,祝 :産婦人科: +内科消化器科石橋医院 山形県米沢市信夫町5-19 0238230328 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科:胃腸科:小児科: +中條医院 山形県米沢市中央5丁目2-43 0238232070 月,火,水,金 月,火,水,金 木,土,日,祝 :内科:外科:胃腸科:耳鼻いんこう科:リハビリテーション科:放射線科: +島田皮膚科医院 山形県米沢市林泉寺2丁目4-1 0238224112 月,火,水,金 月,火,水,金 木,土,日,祝 :皮膚科: +堀内胃腸科肛門科医院 山形県米沢市大町3丁目6-8 0238222210 月,火,水,木,金,土 月,火,水,金,土 日,祝 :外科:消化器科:胃腸科:肛門科: +齋藤内科医院 山形県米沢市桜木町1-70 0238223600 月,火,水,木,金,土 月,火,水,金 日,祝 :内科: +大辻外科胃腸科 山形県米沢市中央1丁目2-10 0238212242 月,火,水,木,金,土 月,火,水,木,金 日,祝 :外科:胃腸科: +くぼた診療所 山形県米沢市窪田町窪田1306-1 0238376151 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科: +メディカルプラザ山口医院 山形県米沢市川井小路1-3 0238243311 月,火,水,木,金,土 月,水,金 日,祝 :内科:外科:神経内科:脳神経外科:胃腸科:整形外科:皮膚科:肛門科: +しおいクリニック 山形県米沢市塩井町塩野2057 0238212276 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:外科:胃腸科:整形外科:皮膚科: +松田外科医院 山形県米沢市城西4丁目4-25 0238211155 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :外科:胃腸科:整形外科:肛門科:麻酔科: +もり医院 山形県米沢市成島町2丁目1-35 0238232471 月,火,木,金,土,日 月,火,木,金,土 水,祝 :内科:外科:消化器科:整形外科:肛門科: +出羽内科 山形県米沢市東1丁目3-21 0238245851 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:循環器科: +ささきクリニック 山形県米沢市中央3丁目1-24 0238241221 月,火,木 月,火,木 水,金,土,日,祝 :内科:神経科: +消化器内科遠藤一平医院 山形県米沢市中央4丁目7-26 0238213161 月,火,水,木,金,土 月,火,木,金 日,祝 :内科:消化器科:胃腸科: +内科胃腸科小林医院 山形県米沢市中央7丁目1-30 0238218181 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:胃腸科: +よねざわ眼科 山形県米沢市中央3丁目3-2 0238242500 月,火,水,木,金,土 月,火,水,金,土 日,祝 :眼科: +泉町クリニック 山形県米沢市泉町2丁目3-10 0238382998 月,火,水,金 月,火,水,金 木,土,日,祝 :心療内科:神経内科: +笹井内科クリニック 山形県米沢市堀川町4-41 0238225221 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :内科:呼吸器科:循環器科: +りんせんじ歯科 山形県米沢市林泉寺2丁目2-23-1 0238216487 月,火,水,木,金,土 月,火,水,木,金 日,祝 :歯科: +東條歯科医院 山形県米沢市門東町3丁目3-39 0238230068 不定期 不定期 不定期 :歯科: +平間歯科医院 山形県米沢市城西4丁目1-26 0238238148 不定期 不定期 不定期 :歯科: +三條歯科医院 山形県米沢市城南1丁目5-14 0238232206 不定期 不定期 不定期 :歯科: +渡部歯科医院 山形県米沢市城北1丁目2-13 0238211610 不定期 不定期 不定期 :歯科: +林歯科医院 山形県米沢市駅前2丁目1-30 0238228148 不定期 不定期 不定期 :歯科: +山崎歯科医院 山形県米沢市金池1丁目5-28 0238216480 不定期 不定期 不定期 :歯科: +足立歯科医院 山形県米沢市金池3丁目2-14 0238234182 不定期 不定期 不定期 :歯科: +笹生歯科医院 山形県米沢市桜木町1-53 0238210331 不定期 不定期 不定期 :歯科: +鈴木歯科医院 山形県米沢市丸の内1丁目1-81 0238230370 不定期 不定期 不定期 :歯科: +長谷部歯科医院 山形県米沢市春日5丁目2-45 0238228110 不定期 不定期 不定期 :歯科: +近野矯正歯科 山形県米沢市門東町2丁目8-12 0238231187 不定期 不定期 不定期 :歯科:矯正歯科: +金子歯科医院 山形県米沢市城北1丁目2-23 0238230909 不定期 不定期 不定期 :歯科: +中條歯科医院 山形県米沢市中央5丁目2-43 0238242085 不定期 不定期 不定期 :歯科: +あさひ歯科医院 山形県米沢市相生町7-61 0238240118 不定期 不定期 不定期 :歯科: +五十嵐歯科医院 山形県米沢市大町3丁目1-22 0238221121 不定期 不定期 不定期 :歯科: +伊藤歯科医院 山形県米沢市大町3丁目5-32 0238231538 不定期 不定期 不定期 :歯科: +中川歯科医院 山形県米沢市中央1丁目3-23 0238232062 不定期 不定期 不定期 :歯科:矯正歯科:小児歯科: +仁科歯科医院 山形県米沢市中央6丁目1-218 0238215838 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県米沢市直江町6-3 0238238888 不定期 不定期 不定期 :歯科: +漆山歯科医院 山形県米沢市東3丁目6-35 0238234840 不定期 不定期 不定期 :歯科: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/6hour/yuza.dat Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,10 @@ +遊佐病院 山形県飽海郡遊佐町遊佐字石田7 0234722522 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:外科:小児科:産婦人科:リハビリテーション科: +佐々木歯科医院 山形県飽海郡遊佐町遊佐字鶴田47-10 0234722715 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :歯科:矯正歯科: +村上医院 山形県飽海郡遊佐町吉出字野添163 0234722003 月,火,水,木,金,土 月,火,水,木,金,土 日,祝 :婦人科: +菅原医院 山形県飽海郡遊佐町北目字菅野谷地102 0234772507 月,火,水,木,金,土 月,火,水,木,金 日,祝 :内科:小児科:麻酔科: +土門医院 山形県飽海郡遊佐町庄泉字開元65 0234762325 月,火,水,木,金,土 月,火,水,金 日,祝 :内科:泌尿器科: +大瀧歯科医院 山形県飽海郡遊佐町遊佐字高砂47 0234722199 月,火,水,木,金,土 月,火,水,金,土 日,祝 :歯科: +大綱歯科医院 山形県飽海郡遊佐町遊佐字京田18-9 0234722132 不定期 不定期 不定期 :歯科: +高橋歯科医院 山形県飽海郡遊佐町吹浦字苗代61-1 0234773229 不定期 不定期 不定期 :歯科: +土門歯科医院 山形県飽海郡遊佐町遊佐字前田4-9 0234724533 不定期 不定期 不定期 :歯科: +遠田医院 山形県飽海郡遊佐町遊佐字舞鶴21-7 0234722148 不定期 不定期 不定期 :外科:
--- a/bus_cgi/.htaccess Thu Feb 14 21:39:18 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ - -AddHandler cgi-script .rb -Options +ExecCGI
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/bus.css Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,29 @@ +body {color: #ff0047; margin: 10%;} + +p { color: maroon; + text-align: left;} + +h1 { color: saddlebrown; + text-align: center; + background: #c5f7db; } + +h2 { color: hotpink; + text-align: left;} + +h3 { color: orange; + text-align: left;} + +h4 { color: dodgerblue;} + +hr { color: sienna; } + +td { color: limegreen;} + +ul {list-style: square;} + +div.rosen +div.rosen li {color: #ff0047;} +div.rosen li+li {color: #ffa3ff;} +div.rosen li+li+li {color: #33d747;} +div.rosen li+li+li+li {color: #0000e0;} +div.rosen li+li+li+li+li {color: #ffd700;}
--- a/bus_cgi/bus.rb Thu Feb 14 21:39:18 2013 +0900 +++ b/bus_cgi/bus.rb Fri Feb 15 14:27:24 2013 +0900 @@ -2,94 +2,123 @@ #coding: euc-jp require 'cgi' + cgi = CGI.new(:accept_charset => "EUC-JP") print("Content-type: text/html; charset=EUC-JP\n\n") -bus = Hash.new # bus という hash を作成 +bus = Hash.new + +direc = cgi["direc"] +dep = cgi["dep"] +arr = cgi["arr"] +hour = cgi["hour"] +min = cgi["min"] +which = cgi["which"] -a = 0 # a という変数を使用 初期値は 0 - -def pattern(zikan,a,busstop,arr,dep,bus) # 定義 引数を()内に入れる +if direc == "e" + open("zikoku1.txt","r:euc-jp") do |zikoku| + while line = zikoku.gets + if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line + bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, + $6.to_s,$7.to_s,$8.to_s,$9.to_s] + end + end + end - while true # 繰り返し - if a >= 8 # a が 8 以上になったら 以下のプログラムを実行 - printf("\n+------------------------------------+\n") # 表示 - printf(" 乗車 %18s %6d\n",busstop[dep],bus[busstop[dep]][a]) - printf(" 下車 %18s %6d",busstop[arr],bus[busstop[arr]][a]) - printf("\n+------------------------------------+\n") - break # 繰り返しから抜ける - - elsif zikan > bus[busstop[arr]][a] && zikan < bus[busstop[arr]][a + 1] - # zikan で入力された時間が bus[busstop[arr]][a] の時間 〜 bus[busstop[arr]][a+1] の時間の間であれば 以下のプログラムを実行 - printf("\n+------------------------------------+\n") - printf(" 乗車 %18s %6d\n",busstop[dep],bus[busstop[dep]][a]) - printf(" 下車 %18s %6d",busstop[arr],bus[busstop[arr]][a]) - printf("\n+------------------------------------+\n") - break - - else # その他なら - a += 1 - +elsif direc == "k" + open("zikoku2.txt","r:euc-jp") do |zikoku| + while line = zikoku.gets + if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line + bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, + $6.to_s,$7.to_s,$8.to_s,$9.to_s] + end end end end -print("\nるんるんバスでお出かけしよう♪\nバス時刻を調べます。\n\n 1 駅方面 2 かんぽの郷方面\n\n●どっち方面に向かいますか? → ") +time = hour + min -houkou = gets.chomp!.to_i # 方向の選択 +# p time -if houkou == 1 # 駅方面に向かう場合 - - open("/home/irhome/c110/c110188/Ruby/zikoku1.txt","r") do |zikoku| - # 時刻表が入力されているtxtファイルを読み込む - while line = zikoku.gets - if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line - # 時間を正規表現で取り出し line に入れ込む - bus[$10.to_s] = [$1.to_i,$2.to_i,$3.to_i,$4.to_i,$5.to_i, - $6.to_i,$7.to_i,$8.to_i,$9.to_i] - # 後方参照で hash に入れ込む - end +print("<html>\n") +print("<head>\n") +print("<title>結果</title>\n") +print("</head>\n") +print("<body>\n") +print("<link rel=\"stylesheet\" href=\"bus.css\" type=\"text/css\">\n") +print("<h1>検索結果</h1><br>\n") +print("<img src=\"bus.png\" align=\"right\">") +a = 0 +if which == "t" + while true + if time.to_i < bus[arr][0].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][8] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][8] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + elsif a >= 8 || time.to_i > bus[arr][a].to_i && time.to_i < bus[arr][a+1].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][a] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][a] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + else + a += 1 end end - - busstop = ["かんぽの郷","出羽遊心館・美術館","工業団地前","土門拳記念館","大学前","市営体育館前","山居町東","二番町","中町西","文化センター","八雲神社前","酒田駅正面口"] - # hash の key をいちいち入力しなくても 数字で指定できるように - - print("\n出発するバス停と到着するバス停を選択します。\n\n+------------------------------+\n 0 かんぽの郷\n 1 出羽遊心館・美術館\n 2 工業団地前\n 3 土門拳記念館\n 4 大学前\n 5 市営体育館前\n 6 山居町東\n 7 二番町\n 8 中町西\n 9 文化センター\n 10 八雲神社前\n 11 酒田駅正面口\n+------------------------------+\n\n●何番のバス停で乗車しますか? → ") - dep = gets.chomp!.to_i # 乗車するバス停を選択 - - print("●何番のバス停で下車しますか? → ") - arr = gets.chomp!.to_i # 下車するバス停を選択 - - print("何時までに到着したいですか?\n 数字4桁で入力してね!\n 例)午前9時→0900 午後1時半→1\ -330 午後7時28分→1928\n ●例を参考に時刻を入力してね → ") - zikan = gets.chomp!.to_i # 到着したい時刻を入力 - - pattern(zikan,a,busstop,arr,dep,bus) # def を呼び出す - -elsif houkou == 2 # かんぽの郷方面に向かう場合 以下 上とだいたい同じ - - open("/home/irhome/c110/c110188/Ruby/zikoku2.txt","r") do |zikoku| - while line = zikoku.gets - if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line - bus[$10.to_s] = [$1.to_i,$2.to_i,$3.to_i,$4.to_i,$5.to_i, - $6.to_i,$7.to_i,$8.to_i,$9.to_i] - end +elsif which == "s" + while true + if time.to_i < bus[dep][0].to_i || time.to_i > bus[dep][8].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][0] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][0] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + elsif time.to_i > bus[dep][a].to_i && time.to_i < bus[dep][a+1].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][a+1] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][a+1] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + else + a += 1 end end - - busstop = ["酒田駅正面口","八雲神社前","文化センター","中町西","二番町","山居町","東市営体育館前","大学前","土門拳記念館","工業団地前","出羽遊心館・美術館","かんぽの郷"] - - print("\n出発するバス停と到着するバス停を選択します。\n\n+------------------------------+\n 0 酒田駅正面口\n 1 八雲神社前\n 2 文化センター\n 3 中町西\n 4 二番町\n 5 山居町東\n 6 市営体育館前\n 7 大学前\n 8 土門拳記念館\n 9 工業団地前\n 10 出羽遊心館・美術館\n 11 かんぽの郷\n+------------------------------+\n\n●何番のバス停で乗車しますか? → ") - dep = gets.chomp!.to_i - - print("●何番のバス停で下車しますか? → ") - arr = gets.chomp!.to_i - - print("何時までに到着したいですか?\n 数字4桁で入力してね!\n 例)午前9時→0900 午後1時半→1\ -330 午後7時28分→1928\n ●例を参考に時刻を入力してね → ") - zikan = gets.chomp!.to_i - - pattern(zikan,a,busstop,arr,dep,bus) - end +print("<a href=\"http://skip.koeki-prj.org/bus_cgi/home.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>") +print("</body>\n") +print("</html>\n")
--- a/bus_cgi/bus1.rb Thu Feb 14 21:39:18 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,118 +0,0 @@ -#!/usr/bin/env ruby19 -#coding: euc-jp - -require 'cgi' - -cgi = CGI.new(:accept_charset => "EUC-JP") -print("Content-type: text/html; charset=EUC-JP\n\n") - -bus = Hash.new - -direc = cgi["direc"] -dep = cgi["dep"] -arr = cgi["arr"] -hour = cgi["hour"] -min = cgi["min"] -which = cgi["which"] - -if direc == "e" - open("zikoku1.txt","r:euc-jp") do |zikoku| - while line = zikoku.gets - if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line - bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, - $6.to_s,$7.to_s,$8.to_s,$9.to_s] - end - end - end - -elsif direc == "k" - open("zikoku2.txt","r:euc-jp") do |zikoku| - while line = zikoku.gets - if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line - bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, - $6.to_s,$7.to_s,$8.to_s,$9.to_s] - end - end - end -end - -time = hour + min - -# p time -# p bus - -print("<html>\n") -print("<head>\n") -print("<title>酒田市福祉乗合バス時刻検索結果</title>\n") -print("</head>\n") -print("<body>\n") -print("<link rel=\"stylesheet\" href=\"ruru.css\" type=\"text/css\">\n") -print("<h1>酒田駅大学線バス時刻検索</h1>\n") -print("<img src=\"bus.png\" align=\"right\">") -print("<br><h2>検索結果</h2>") - -a = 0 -if which == "t" - while true - if time.to_i < bus[arr][0].to_i - if /(\S\S)(\S\S)/ =~ bus[dep][8] - dhour = $1 - dmin = $2 - end - if /(\S\S)(\S\S)/ =~ bus[arr][8] - ahour = $1 - amin = $2 - end - printf("<p>出発＊ %s %s:%s\n</p>\n",dep ,dhour, dmin) - printf("<p>到着＊ %s %s:%s\n</p>\n",arr ,ahour, amin) - break - elsif a >= 8 || time.to_i > bus[arr][a].to_i && time.to_i < bus[arr][a+1].to_i - if /(\S\S)(\S\S)/ =~ bus[dep][a] - dhour = $1 - dmin = $2 - end - if /(\S\S)(\S\S)/ =~ bus[arr][a] - ahour = $1 - amin = $2 - end - printf("<p>出発＊ %s %s:%s\n</p>\n",dep ,dhour, dmin) - printf("<p>到着＊ %s %s:%s\n</p>\n",arr ,ahour, amin) - break - else - a += 1 - end - end -elsif which == "s" - while true - if time.to_i < bus[dep][0].to_i || time.to_i > bus[dep][8].to_i - if /(\S\S)(\S\S)/ =~ bus[dep][0] - dhour = $1 - dmin = $2 - end - if /(\S\S)(\S\S)/ =~ bus[arr][0] - ahour = $1 - amin = $2 - end - printf("<p>出発＊ %s %s:%s\n</p>\n",dep ,dhour, dmin) - printf("<p>到着＊ %s %s:%s\n</p>\n",arr ,ahour, amin) - break - elsif time.to_i > bus[dep][a].to_i && time.to_i < bus[dep][a+1].to_i - if /(\S\S)(\S\S)/ =~ bus[dep][a+1] - dhour = $1 - dmin = $2 - end - if /(\S\S)(\S\S)/ =~ bus[arr][a+1] - ahour = $1 - amin = $2 - end - printf("<p>出発＊ %s %s:%s\n</p>\n",dep ,dhour, dmin) - printf("<p>到着＊ %s %s:%s\n</p>\n",arr ,ahour, amin) - break - else - a += 1 - end - end -end -print("<a href=\"http://skip.koeki-prj.org/bus_cgi/top.html\">戻る</a>\n") -print("</body>\n") -print("</html>\n")
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/daigaku.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,107 @@ +<html> +<html lang="ja"> +<head> +<title>るんるんバス時刻検索</title> +<style type="text/css"> +</style> +<link rel="stylesheet" type="text/css" href="bus.css"> +</head> + +<body> +<form method="POST" action="./daigaku.rb"> + +<h1>酒田駅大学線バス時刻検索</h1> +<br> +<h2>路線図</h2> +<p>作成中です・・・</p> +<br> +<h2>時刻検索</h2> +<img src="bus.png" align="right"> +<p><input type="radio" name="direc" value="e" checked>駅方面 +<input type="radio" name="direc" value="k">かんぽの郷方面</p> +<p>出発＊ +<select name="dep"> + <option> かんぽの郷 + <option> 出羽遊心館・美術館 + <option> 工業団地前 + <option> 土門拳記念館 + <option> 大学前 + <option> 市営体育館前 + <option> 山居町東 + <option> 二番町 + <option> 中町西 + <option> 文化センター前 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select></p> + +<p>到着＊ +<select name="arr"> + <option> かんぽの郷 + <option> 出羽遊心館・美術館 + <option> 工業団地前 + <option> 土門拳記念館 + <option> 大学前 + <option> 市営体育館前 + <option> 山居町東 + <option> 二番町 + <option> 中町西 + <option> 文化センター前 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select> </p> + +<p>時刻＊ +<select name="hour"> + <option> 6 + <option> 7 + <option> 8 + <option> 9 + <option> 10 + <option> 11 + <option> 12 + <option> 13 + <option> 14 + <option> 15 + <option> 16 + <option> 17 + <option> 18 + <option> 19 + <option> 20 + <option> 21 +</select> : +<select name="min"> + <option> 00 + <option> 05 + <option> 10 + <option> 15 + <option> 20 + <option> 25 + <option> 30 + <option> 35 + <option> 40 + <option> 45 + <option> 50 + <option> 55 +</select> +<input type="radio" name="which" value="s">出発 +<input type="radio" name="which" value="t" checked>到着<br> +</p> + +<p> +<input type="submit" value="けんさく!"> +<input type="reset" value="リセット"> +</p> +</form> +<br> +<h2>プログラムに関して</h2> +<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学 +SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに +関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、 +このプログラムはデモ版であり、このページから得られた情報に関しての責任は +一切負いません。</p> +<br> +<a href="http://skip.koeki-prj.org/bus_cgi/home.html">戻る</a> +<a href="http://skip.koeki-prj.org/">SKIP</a> +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/daigaku.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,124 @@ +#!/usr/koeki/bin/ruby +#coding: euc-jp + +require 'cgi' + +cgi = CGI.new(:accept_charset => "EUC-JP") +print("Content-type: text/html; charset=EUC-JP\n\n") + +bus = Hash.new + +direc = cgi["direc"] +dep = cgi["dep"] +arr = cgi["arr"] +hour = cgi["hour"] +min = cgi["min"] +which = cgi["which"] + +if direc == "e" + open("zikoku1.txt","r:euc-jp") do |zikoku| + while line = zikoku.gets + if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line + bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, + $6.to_s,$7.to_s,$8.to_s,$9.to_s] + end + end + end + +elsif direc == "k" + open("zikoku2.txt","r:euc-jp") do |zikoku| + while line = zikoku.gets + if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line + bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, + $6.to_s,$7.to_s,$8.to_s,$9.to_s] + end + end + end +end + +time = hour + min + +# p time + +print("<html>\n") +print("<head>\n") +print("<title>結果</title>\n") +print("</head>\n") +print("<body>\n") +print("<link rel=\"stylesheet\" href=\"bus.css\" type=\"text/css\">\n") +print("<h1>検索結果</h1><br>\n") +print("<img src=\"bus.png\" align=\"right\">") +a = 0 +if which == "t" + while true + if time.to_i < bus[arr][0].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][8] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][8] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + elsif a >= 8 || time.to_i > bus[arr][a].to_i && time.to_i < bus[arr][a+1].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][a] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][a] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + else + a += 1 + end + end +elsif which == "s" + while true + if time.to_i < bus[dep][0].to_i || time.to_i > bus[dep][8].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][0] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][0] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + elsif time.to_i > bus[dep][a].to_i && time.to_i < bus[dep][a+1].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][a+1] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][a+1] + ahour = $1 + amin = $2 + end + print("<h2>乗車</h2>") + printf("<p> %s %s:%s\n</p>\n",dep ,dhour, dmin) + print("<h2>降車</h2>") + printf("<p> %s %s:%s\n</p>\n",arr ,ahour, amin) + break + else + a += 1 + end + end +end +print("<br><a href=\"http://skip.koeki-prj.org/bus_cgi/home.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>") +print("</body>\n") +print("</html>\n")
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/home.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,34 @@ +<html> +<html lang="ja"> +<head> +<title>るんるんバス時刻検索</title> +<style type="text/css"> +</style> +<link rel="stylesheet" type="text/css" href="bus.css"> +</head> + +<body> +<h1>酒田市福祉乗合バス時刻検索</h1> +<br> +<h2>路線図</h2> +<div align="center"> +<img src="rosenzu.png" width="600" height="350"> +</div> +<br> +<h2>路線一覧</h2> +<ul> +<div class="rosen"> +<li><p><a href="shinai.html">市内循環線</a> ... 毎日運行</p></li> +<li><p><a href="daigaku.html">酒田駅大学線</a> ... 毎日運行</p></li> +<li><p><a href="kominato.html">古湊砂越駅線</a> ... 月・水・金曜日運行</p></li> +<li><p><a href="yahata.html">八幡日本海総合病院</a> ... 火・木・土曜日運行</p></li> +<li><p><a href="kanpo.html">酒田駅かんぽ線</a> ... 火・木・土曜日運行</p></li> +</ul> +</div> +<br> +<h2>プログラムに関して</h2> +<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、このプログラムはデモ版であり、このページから得られた情報に関しての責任は一切負いません。</p> +<br> +<a href="http://skip.koeki-prj.org/">SKIP</a> +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/kanpo.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,101 @@ +<html> +<html lang="ja"> +<head> +<title>るんるんバス時刻検索</title> +<style type="text/css"> +</style> +<link rel="stylesheet" type="text/css" href="bus.css"> +</head> + +<body> +<form method="POST" action="./bus.rb"> + +<h1>酒田駅かんぽ線バス時刻検索</h1> +<br> +<h2>路線図</h2> +<p>作成中です・・・</p> +<br> +<h2>時刻検索</h2> +<img src="bus.png" align="right"> +<p><input type="radio" name="direc" value="e" checked>悠々の杜温泉方面 +<input type="radio" name="direc" value="k">古湊方面</p> +<p>出発＊ +<select name="dep"> + <option> 古湊 + <option> 高砂 + <option> 山容病院前 + <option> 光ヶ丘4丁目 + <option> 陸上競技場前 + <option> 陸上競技場脇 + <option> 光ヶ丘2丁目 + <option> 南新町2丁目 + <option> 北新町2丁目 + <option> 日吉町1丁目 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select></p> + +<p>到着＊ +<select name="arr"> + <option> かんぽの郷 + <option> 出羽遊心館・美術館 + <option> 工業団地前 + <option> 土門拳記念館 + <option> 大学前 + <option> 市営体育館前 + <option> 山居町東 + <option> 二番町 + <option> 中町西 + <option> 文化センター前 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select> </p> + +<p>時刻＊ +<select name="hour"> + <option> 6 + <option> 7 + <option> 8 + <option> 9 + <option> 10 + <option> 11 + <option> 12 + <option> 13 + <option> 14 + <option> 15 + <option> 16 + <option> 17 + <option> 18 + <option> 19 + <option> 20 + <option> 21 + <option> 22 +</select> : +<select name="min"> + <option> 00 + <option> 05 + <option> 10 + <option> 15 + <option> 20 + <option> 25 + <option> 30 + <option> 35 + <option> 40 + <option> 45 + <option> 50 + <option> 55 +</select> +<input type="radio" name="which" value="s">出発 +<input type="radio" name="which" value="t" checked>到着 +</p> + +<p> +<input type="submit" value="けんさく!"> +<input type="reset" value="リセット"> +</p> +</form> +<br> +<h2>プログラムに関して</h2> +<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、このプログラムはデモ版であり、このページから得られた情報に関しての責任は一切負いません。</p> +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/kominato.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,101 @@ +<html> +<html lang="ja"> +<head> +<title>るんるんバス時刻検索</title> +<style type="text/css"> +</style> +<link rel="stylesheet" type="text/css" href="bus.css"> +</head> + +<body> +<form method="POST" action="./bus.rb"> + +<h1>古湊砂越駅線バス時刻検索</h1> +<br> +<h2>路線図</h2> +<p>作成中です・・・</p> +<br> +<h2>時刻検索</h2> +<img src="bus.png" align="right"> +<p><input type="radio" name="direc" value="e" checked>悠々の杜温泉方面 +<input type="radio" name="direc" value="k">古湊方面</p> +<p>出発＊ +<select name="dep"> + <option> 古湊 + <option> 高砂 + <option> 山容病院前 + <option> 光ヶ丘4丁目 + <option> 陸上競技場前 + <option> 陸上競技場脇 + <option> 光ヶ丘2丁目 + <option> 南新町2丁目 + <option> 北新町2丁目 + <option> 日吉町1丁目 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select></p> + +<p>到着＊ +<select name="arr"> + <option> かんぽの郷 + <option> 出羽遊心館・美術館 + <option> 工業団地前 + <option> 土門拳記念館 + <option> 大学前 + <option> 市営体育館前 + <option> 山居町東 + <option> 二番町 + <option> 中町西 + <option> 文化センター前 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select> </p> + +<p>時刻＊ +<select name="hour"> + <option> 6 + <option> 7 + <option> 8 + <option> 9 + <option> 10 + <option> 11 + <option> 12 + <option> 13 + <option> 14 + <option> 15 + <option> 16 + <option> 17 + <option> 18 + <option> 19 + <option> 20 + <option> 21 + <option> 22 +</select> : +<select name="min"> + <option> 00 + <option> 05 + <option> 10 + <option> 15 + <option> 20 + <option> 25 + <option> 30 + <option> 35 + <option> 40 + <option> 45 + <option> 50 + <option> 55 +</select> +<input type="radio" name="which" value="s">出発 +<input type="radio" name="which" value="t" checked>到着 +</p> + +<p> +<input type="submit" value="けんさく!"> +<input type="reset" value="リセット"> +</p> +</form> +<br> +<h2>プログラムに関して</h2> +<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、このプログラムはデモ版であり、このページから得られた情報に関しての責任は一切負いません。</p> +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/rosen.obj Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,581 @@ +%TGIF 4.2.5 +state(0,37,100.000,0,0,1,4,1,206,1,1,0,0,0,1,1,0,'Ryumin-Light-EUC-H',0,103680,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408,1,0,2880,0). +% +% @(#)$Header$ +% %W% +% +unit("1 pixel/pixel"). +color_info(217,65535,0,[ + "#000000", 0, 0, 0, 0, 0, 0, 1, + "#000047", 0, 0, 18247, 0, 0, 18176, 1, + "#005b00", 0, 23387, 0, 0, 23296, 0, 1, + "#330000", 13107, 0, 0, 13056, 0, 0, 1, + "#000084", 0, 0, 33924, 0, 0, 33792, 1, + "#005b47", 0, 23387, 18247, 0, 23296, 18176, 1, + "#00a300", 0, 41891, 0, 0, 41728, 0, 1, + "#330047", 13107, 0, 18247, 13056, 0, 18176, 1, + "#335b00", 13107, 23387, 0, 13056, 23296, 0, 1, + "#660000", 26214, 0, 0, 26112, 0, 0, 1, + "#0000b8", 0, 0, 47288, 0, 0, 47104, 1, + "#005b84", 0, 23387, 33924, 0, 23296, 33792, 1, + "#00a347", 0, 41891, 18247, 0, 41728, 18176, 1, + "#00d700", 0, 55255, 0, 0, 55040, 0, 1, + "#330084", 13107, 0, 33924, 13056, 0, 33792, 1, + "#335b47", 13107, 23387, 18247, 13056, 23296, 18176, 1, + "#33a300", 13107, 41891, 0, 13056, 41728, 0, 1, + "#660047", 26214, 0, 18247, 26112, 0, 18176, 1, + "#665b00", 26214, 23387, 0, 26112, 23296, 0, 1, + "#990000", 39321, 0, 0, 39168, 0, 0, 1, + "#0000e0", 0, 0, 57568, 0, 0, 57344, 1, + "#005bb8", 0, 23387, 47288, 0, 23296, 47104, 1, + "#00a384", 0, 41891, 33924, 0, 41728, 33792, 1, + "#00d747", 0, 55255, 18247, 0, 55040, 18176, 1, + "#00f500", 0, 62965, 0, 0, 62720, 0, 1, + "#3300b8", 13107, 0, 47288, 13056, 0, 47104, 1, + "#335b84", 13107, 23387, 33924, 13056, 23296, 33792, 1, + "#33a347", 13107, 41891, 18247, 13056, 41728, 18176, 1, + "#33d700", 13107, 55255, 0, 13056, 55040, 0, 1, + "#660084", 26214, 0, 33924, 26112, 0, 33792, 1, + "#665b47", 26214, 23387, 18247, 26112, 23296, 18176, 1, + "#66a300", 26214, 41891, 0, 26112, 41728, 0, 1, + "#990047", 39321, 0, 18247, 39168, 0, 18176, 1, + "#995b00", 39321, 23387, 0, 39168, 23296, 0, 1, + "#cc0000", 52428, 0, 0, 52224, 0, 0, 1, + "#0000ff", 0, 0, 65535, 0, 0, 65280, 1, + "#005be0", 0, 23387, 57568, 0, 23296, 57344, 1, + "#00a3b8", 0, 41891, 47288, 0, 41728, 47104, 1, + "#00d784", 0, 55255, 33924, 0, 55040, 33792, 1, + "#00f547", 0, 62965, 18247, 0, 62720, 18176, 1, + "#00ff00", 0, 65535, 0, 0, 65280, 0, 1, + "#3300e0", 13107, 0, 57568, 13056, 0, 57344, 1, + "#335bb8", 13107, 23387, 47288, 13056, 23296, 47104, 1, + "#33a384", 13107, 41891, 33924, 13056, 41728, 33792, 1, + "#33d747", 13107, 55255, 18247, 13056, 55040, 18176, 1, + "#33f500", 13107, 62965, 0, 13056, 62720, 0, 1, + "#6600b8", 26214, 0, 47288, 26112, 0, 47104, 1, + "#665b84", 26214, 23387, 33924, 26112, 23296, 33792, 1, + "#66a347", 26214, 41891, 18247, 26112, 41728, 18176, 1, + "#66d700", 26214, 55255, 0, 26112, 55040, 0, 1, + "#990084", 39321, 0, 33924, 39168, 0, 33792, 1, + "#995b47", 39321, 23387, 18247, 39168, 23296, 18176, 1, + "#99a300", 39321, 41891, 0, 39168, 41728, 0, 1, + "#cc0047", 52428, 0, 18247, 52224, 0, 18176, 1, + "#cc5b00", 52428, 23387, 0, 52224, 23296, 0, 1, + "#ff0000", 65535, 0, 0, 65280, 0, 0, 1, + "#005bff", 0, 23387, 65535, 0, 23296, 65280, 1, + "#00a3e0", 0, 41891, 57568, 0, 41728, 57344, 1, + "#00d7b8", 0, 55255, 47288, 0, 55040, 47104, 1, + "#00f584", 0, 62965, 33924, 0, 62720, 33792, 1, + "#00ff47", 0, 65535, 18247, 0, 65280, 18176, 1, + "#3300ff", 13107, 0, 65535, 13056, 0, 65280, 1, + "#335be0", 13107, 23387, 57568, 13056, 23296, 57344, 1, + "#33a3b8", 13107, 41891, 47288, 13056, 41728, 47104, 1, + "#33d784", 13107, 55255, 33924, 13056, 55040, 33792, 1, + "#33f547", 13107, 62965, 18247, 13056, 62720, 18176, 1, + "#33ff00", 13107, 65535, 0, 13056, 65280, 0, 1, + "#6600e0", 26214, 0, 57568, 26112, 0, 57344, 1, + "#665bb8", 26214, 23387, 47288, 26112, 23296, 47104, 1, + "#66a384", 26214, 41891, 33924, 26112, 41728, 33792, 1, + "#66d747", 26214, 55255, 18247, 26112, 55040, 18176, 1, + "#66f500", 26214, 62965, 0, 26112, 62720, 0, 1, + "#9900b8", 39321, 0, 47288, 39168, 0, 47104, 1, + "#995b84", 39321, 23387, 33924, 39168, 23296, 33792, 1, + "#99a347", 39321, 41891, 18247, 39168, 41728, 18176, 1, + "#99d700", 39321, 55255, 0, 39168, 55040, 0, 1, + "#cc0084", 52428, 0, 33924, 52224, 0, 33792, 1, + "#cc5b47", 52428, 23387, 18247, 52224, 23296, 18176, 1, + "#cca300", 52428, 41891, 0, 52224, 41728, 0, 1, + "#ff0047", 65535, 0, 18247, 65280, 0, 18176, 1, + "#ff5b00", 65535, 23387, 0, 65280, 23296, 0, 1, + "#00a3ff", 0, 41891, 65535, 0, 41728, 65280, 1, + "#00d7e0", 0, 55255, 57568, 0, 55040, 57344, 1, + "#00f5b8", 0, 62965, 47288, 0, 62720, 47104, 1, + "#00ff84", 0, 65535, 33924, 0, 65280, 33792, 1, + "#335bff", 13107, 23387, 65535, 13056, 23296, 65280, 1, + "#33a3e0", 13107, 41891, 57568, 13056, 41728, 57344, 1, + "#33d7b8", 13107, 55255, 47288, 13056, 55040, 47104, 1, + "#33f584", 13107, 62965, 33924, 13056, 62720, 33792, 1, + "#33ff47", 13107, 65535, 18247, 13056, 65280, 18176, 1, + "#6600ff", 26214, 0, 65535, 26112, 0, 65280, 1, + "#665be0", 26214, 23387, 57568, 26112, 23296, 57344, 1, + "#66a3b8", 26214, 41891, 47288, 26112, 41728, 47104, 1, + "#66d784", 26214, 55255, 33924, 26112, 55040, 33792, 1, + "#66f547", 26214, 62965, 18247, 26112, 62720, 18176, 1, + "#66ff00", 26214, 65535, 0, 26112, 65280, 0, 1, + "#9900e0", 39321, 0, 57568, 39168, 0, 57344, 1, + "#995bb8", 39321, 23387, 47288, 39168, 23296, 47104, 1, + "#99a384", 39321, 41891, 33924, 39168, 41728, 33792, 1, + "#99d747", 39321, 55255, 18247, 39168, 55040, 18176, 1, + "#99f500", 39321, 62965, 0, 39168, 62720, 0, 1, + "#cc00b8", 52428, 0, 47288, 52224, 0, 47104, 1, + "#cc5b84", 52428, 23387, 33924, 52224, 23296, 33792, 1, + "#cca347", 52428, 41891, 18247, 52224, 41728, 18176, 1, + "#ccd700", 52428, 55255, 0, 52224, 55040, 0, 1, + "#ff0084", 65535, 0, 33924, 65280, 0, 33792, 1, + "#ff5b47", 65535, 23387, 18247, 65280, 23296, 18176, 1, + "#ffa300", 65535, 41891, 0, 65280, 41728, 0, 1, + "#00d7ff", 0, 55255, 65535, 0, 55040, 65280, 1, + "#00f5e0", 0, 62965, 57568, 0, 62720, 57344, 1, + "#00ffb8", 0, 65535, 47288, 0, 65280, 47104, 1, + "#33a3ff", 13107, 41891, 65535, 13056, 41728, 65280, 1, + "#33d7e0", 13107, 55255, 57568, 13056, 55040, 57344, 1, + "#33f5b8", 13107, 62965, 47288, 13056, 62720, 47104, 1, + "#33ff84", 13107, 65535, 33924, 13056, 65280, 33792, 1, + "#665bff", 26214, 23387, 65535, 26112, 23296, 65280, 1, + "#66a3e0", 26214, 41891, 57568, 26112, 41728, 57344, 1, + "#66d7b8", 26214, 55255, 47288, 26112, 55040, 47104, 1, + "#66f584", 26214, 62965, 33924, 26112, 62720, 33792, 1, + "#66ff47", 26214, 65535, 18247, 26112, 65280, 18176, 1, + "#9900ff", 39321, 0, 65535, 39168, 0, 65280, 1, + "#995be0", 39321, 23387, 57568, 39168, 23296, 57344, 1, + "#99a3b8", 39321, 41891, 47288, 39168, 41728, 47104, 1, + "#99d784", 39321, 55255, 33924, 39168, 55040, 33792, 1, + "#99f547", 39321, 62965, 18247, 39168, 62720, 18176, 1, + "#99ff00", 39321, 65535, 0, 39168, 65280, 0, 1, + "#cc00e0", 52428, 0, 57568, 52224, 0, 57344, 1, + "#cc5bb8", 52428, 23387, 47288, 52224, 23296, 47104, 1, + "#cca384", 52428, 41891, 33924, 52224, 41728, 33792, 1, + "#ccd747", 52428, 55255, 18247, 52224, 55040, 18176, 1, + "#ccf500", 52428, 62965, 0, 52224, 62720, 0, 1, + "#ff00b8", 65535, 0, 47288, 65280, 0, 47104, 1, + "#ff5b84", 65535, 23387, 33924, 65280, 23296, 33792, 1, + "#ffa347", 65535, 41891, 18247, 65280, 41728, 18176, 1, + "#ffd700", 65535, 55255, 0, 65280, 55040, 0, 1, + "#00f5ff", 0, 62965, 65535, 0, 62720, 65280, 1, + "#00ffe0", 0, 65535, 57568, 0, 65280, 57344, 1, + "#33d7ff", 13107, 55255, 65535, 13056, 55040, 65280, 1, + "#33f5e0", 13107, 62965, 57568, 13056, 62720, 57344, 1, + "#33ffb8", 13107, 65535, 47288, 13056, 65280, 47104, 1, + "#66a3ff", 26214, 41891, 65535, 26112, 41728, 65280, 1, + "#66d7e0", 26214, 55255, 57568, 26112, 55040, 57344, 1, + "#66f5b8", 26214, 62965, 47288, 26112, 62720, 47104, 1, + "#66ff84", 26214, 65535, 33924, 26112, 65280, 33792, 1, + "#995bff", 39321, 23387, 65535, 39168, 23296, 65280, 1, + "#99a3e0", 39321, 41891, 57568, 39168, 41728, 57344, 1, + "#99d7b8", 39321, 55255, 47288, 39168, 55040, 47104, 1, + "#99f584", 39321, 62965, 33924, 39168, 62720, 33792, 1, + "#99ff47", 39321, 65535, 18247, 39168, 65280, 18176, 1, + "#cc00ff", 52428, 0, 65535, 52224, 0, 65280, 1, + "#cc5be0", 52428, 23387, 57568, 52224, 23296, 57344, 1, + "#cca3b8", 52428, 41891, 47288, 52224, 41728, 47104, 1, + "#ccd784", 52428, 55255, 33924, 52224, 55040, 33792, 1, + "#ccf547", 52428, 62965, 18247, 52224, 62720, 18176, 1, + "#ccff00", 52428, 65535, 0, 52224, 65280, 0, 1, + "#ff00e0", 65535, 0, 57568, 65280, 0, 57344, 1, + "#ff5bb8", 65535, 23387, 47288, 65280, 23296, 47104, 1, + "#ffa384", 65535, 41891, 33924, 65280, 41728, 33792, 1, + "#ffd747", 65535, 55255, 18247, 65280, 55040, 18176, 1, + "#fff500", 65535, 62965, 0, 65280, 62720, 0, 1, + "#00ffff", 0, 65535, 65535, 0, 65280, 65280, 1, + "#33f5ff", 13107, 62965, 65535, 13056, 62720, 65280, 1, + "#33ffe0", 13107, 65535, 57568, 13056, 65280, 57344, 1, + "#66d7ff", 26214, 55255, 65535, 26112, 55040, 65280, 1, + "#66f5e0", 26214, 62965, 57568, 26112, 62720, 57344, 1, + "#66ffb8", 26214, 65535, 47288, 26112, 65280, 47104, 1, + "#99a3ff", 39321, 41891, 65535, 39168, 41728, 65280, 1, + "#99d7e0", 39321, 55255, 57568, 39168, 55040, 57344, 1, + "#99f5b8", 39321, 62965, 47288, 39168, 62720, 47104, 1, + "#99ff84", 39321, 65535, 33924, 39168, 65280, 33792, 1, + "#cc5bff", 52428, 23387, 65535, 52224, 23296, 65280, 1, + "#cca3e0", 52428, 41891, 57568, 52224, 41728, 57344, 1, + "#ccd7b8", 52428, 55255, 47288, 52224, 55040, 47104, 1, + "#ccf584", 52428, 62965, 33924, 52224, 62720, 33792, 1, + "#ccff47", 52428, 65535, 18247, 52224, 65280, 18176, 1, + "#ff00ff", 65535, 0, 65535, 65280, 0, 65280, 1, + "#ff5be0", 65535, 23387, 57568, 65280, 23296, 57344, 1, + "#ffa3b8", 65535, 41891, 47288, 65280, 41728, 47104, 1, + "#ffd784", 65535, 55255, 33924, 65280, 55040, 33792, 1, + "#fff547", 65535, 62965, 18247, 65280, 62720, 18176, 1, + "#ffff00", 65535, 65535, 0, 65280, 65280, 0, 1, + "#33ffff", 13107, 65535, 65535, 13056, 65280, 65280, 1, + "#66f5ff", 26214, 62965, 65535, 26112, 62720, 65280, 1, + "#66ffe0", 26214, 65535, 57568, 26112, 65280, 57344, 1, + "#99d7ff", 39321, 55255, 65535, 39168, 55040, 65280, 1, + "#99f5e0", 39321, 62965, 57568, 39168, 62720, 57344, 1, + "#99ffb8", 39321, 65535, 47288, 39168, 65280, 47104, 1, + "#cca3ff", 52428, 41891, 65535, 52224, 41728, 65280, 1, + "#ccd7e0", 52428, 55255, 57568, 52224, 55040, 57344, 1, + "#ccf5b8", 52428, 62965, 47288, 52224, 62720, 47104, 1, + "#ccff84", 52428, 65535, 33924, 52224, 65280, 33792, 1, + "#ff5bff", 65535, 23387, 65535, 65280, 23296, 65280, 1, + "#ffa3e0", 65535, 41891, 57568, 65280, 41728, 57344, 1, + "#ffd7b8", 65535, 55255, 47288, 65280, 55040, 47104, 1, + "#fff584", 65535, 62965, 33924, 65280, 62720, 33792, 1, + "#ffff47", 65535, 65535, 18247, 65280, 65280, 18176, 1, + "#66ffff", 26214, 65535, 65535, 26112, 65280, 65280, 1, + "#99f5ff", 39321, 62965, 65535, 39168, 62720, 65280, 1, + "#99ffe0", 39321, 65535, 57568, 39168, 65280, 57344, 1, + "#ccd7ff", 52428, 55255, 65535, 52224, 55040, 65280, 1, + "#ccf5e0", 52428, 62965, 57568, 52224, 62720, 57344, 1, + "#ccffb8", 52428, 65535, 47288, 52224, 65280, 47104, 1, + "#ffa3ff", 65535, 41891, 65535, 65280, 41728, 65280, 1, + "#ffd7e0", 65535, 55255, 57568, 65280, 55040, 57344, 1, + "#fff5b8", 65535, 62965, 47288, 65280, 62720, 47104, 1, + "#ffff84", 65535, 65535, 33924, 65280, 65280, 33792, 1, + "#99ffff", 39321, 65535, 65535, 39168, 65280, 65280, 1, + "#ccf5ff", 52428, 62965, 65535, 52224, 62720, 65280, 1, + "#ccffe0", 52428, 65535, 57568, 52224, 65280, 57344, 1, + "#ffd7ff", 65535, 55255, 65535, 65280, 55040, 65280, 1, + "#fff5e0", 65535, 62965, 57568, 65280, 62720, 57344, 1, + "#ffffb8", 65535, 65535, 47288, 65280, 65280, 47104, 1, + "#ccffff", 52428, 65535, 65535, 52224, 65280, 65280, 1, + "#fff5ff", 65535, 62965, 65535, 65280, 62720, 65280, 1, + "#ffffe0", 65535, 65535, 57568, 65280, 65280, 57344, 1, + "#ffffff", 65535, 65535, 65535, 65280, 65280, 65280, 1, + "white", 65535, 65535, 65535, 65535, 65535, 65535, 1 +]). +script_frac("0.6"). +fg_bg_colors('#99ffff','white'). +dont_reencode("FFDingbests:ZapfDingbats"). +objshadow_info('#c0c0c0',2,2). +rotate_pivot(0,1,276,236). +spline_tightness(1). +page(1,"",1,''). +poly('#00d700','',22,[ + 272,372,272,412,236,412,236,436,276,476,644,476,644,484,644,436, + 896,436,896,488,920,488,920,472,940,472,940,448,964,448,968,460, + 988,460,992,424,1004,420,1012,444,1028,448,1032,428],0,5,1,155,0,0,0,0,0,0,0,'5',0,0, + "000000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +box('#99ffff','',128,496,1020,512,1,1,1,0,0,0,0,0,0,'1',0,[ +]). +box('#ccd7e0','',816,256,832,576,1,1,1,6,0,0,0,0,0,'1',0,[ +]). +box('#ccd7e0','',760,125,831,270,1,1,1,48,0,0,0,1,0,'1',0,[ + 816,113,816,113,832,241,896.269,-530.759,443.511,1072.58,-56,20],[ +]). +poly('#000000','',11,[ + 808,136,792,136,680,176,608,216,600,264,636,328,696,336,828,340, + 880,352,908,360,952,364],0,7,1,62,1,0,3,0,0,0,0,'7',0,0, + "7fc","",[ + 0,22,9,0,'22','9','0'],[0,22,9,0,'22','9','0'],[ +]). +group([ +poly('#000000','',4,[ + 808,488,816,496,816,512,808,520],0,2,1,119,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]), +poly('#000000','',4,[ + 840,488,832,496,832,512,840,520],0,2,1,125,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]) +], +130,0,0,[ +]). +group([ +poly('#000000','',4,[ + 228,488,236,496,236,512,228,520],0,2,1,132,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]), +poly('#000000','',4,[ + 260,488,252,496,252,512,260,520],0,2,1,133,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]) +], +131,0,0,[ +]). +poly('#0000e0','',5,[ + 844,256,872,148,896,148,896,156,916,156],0,5,1,138,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#0000e0','',11,[ + 276,376,384,376,384,396,544,396,544,376,640,376,640,448,448,448, + 448,480,640,480,640,448],0,5,1,140,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#0000e0','',3,[ + 640,408,896,408,896,448],0,5,1,141,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#00d700','',13,[ + 260,340,236,340,236,320,256,320,256,288,212,288,212,308,236,308, + 236,320,128,320,128,272,212,272,212,224],0,5,1,154,0,0,0,0,0,0,0,'5',0,0, + "0000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ff0047','',13,[ + 260,336,240,336,240,304,216,304,216,272,240,272,252,248,280,248, + 280,264,704,264,704,240,640,240,640,296],0,5,1,168,0,0,0,0,0,0,0,'5',0,0, + "0000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ff0047','',3,[ + 640,296,704,296,704,344],0,5,1,182,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ff0047','',6,[ + 704,344,624,344,624,324,516,324,516,356,280,356],0,5,1,206,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ff0047','',9,[ + 284,368,736,368,736,484,892,484,892,432,644,432,644,472,276,472, + 276,372],0,5,1,232,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffa3ff','',10,[ + 276,372,476,372,476,424,208,424,208,456,244,456,244,576,176,576, + 176,528,244,528],0,5,1,246,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffa3ff','',4,[ + 244,552,512,552,512,576,384,576],0,5,1,275,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffa3ff','',2,[ + 260,320,260,340],0,5,1,280,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffa3ff','',2,[ + 260,320,608,320],0,5,1,281,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',4,[ + 384,572,448,572,448,548,248,548],0,5,1,300,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',5,[ + 248,524,248,580,172,580,172,524,248,524],0,5,1,301,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',14,[ + 448,548,544,548,544,520,704,520,704,576,824,576,824,484,824,480, + 888,480,888,440,856,448,648,468,280,468,280,428],0,5,1,302,0,0,0,0,0,0,0,'5',0,0, + "0000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',9,[ + 280,428,480,428,480,400,196,400,168,448,136,448,136,424,168,424, + 168,448],0,5,1,304,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',2,[ + 260,380,260,400],0,5,1,319,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',11,[ + 288,360,708,360,708,296,824,296,824,264,708,264,708,224,656,176, + 516,176,516,280,612,320],0,5,1,339,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ffd700','',5,[ + 824,264,864,264,864,288,844,288,844,264],0,5,1,344,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#0000e0','',6,[ + 284,352,512,352,512,268,824,268,824,256,844,256],0,5,1,136,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +oval('#000000','',246,338,286,378,2,5,1,100,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',609,315,639,345,2,5,1,210,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',633,463,655,485,2,5,1,228,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',885,443,907,465,2,5,1,211,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',389,539,411,561,2,5,1,278,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',361,563,383,585,2,5,1,277,0,0,0,0,0,'5',0,[ +]). +text('#ffd700',204,124,1,0,1,69,26,363,20,6,0,0,0,0,-65534,69,26,-9,0,"",0,0,0,0,144,'',[ +minilines(69,26,-9,0,0,0,0,[ +mini_line(69,20,6,-9,0,0,[ +str_block(0,69,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,69,20,6,-9,0,0,1,1,0,0, + "\272\307\276\345\300\356")]) +]) +])]). +box('#ccd7ff','',132,168,192,184,1,1,1,392,0,0,0,0,0,'1',0,[ +]). +text('#000000',204,164,1,0,1,103,26,400,20,6,2,0,0,0,-65534,103,26,-9,0,"",0,0,0,0,184,'',[ +minilines(103,26,-9,0,0,0,0,[ +mini_line(103,20,6,-9,0,0,[ +str_block(0,46,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,46,20,6,-9,0,0,1,1,0,0, + "\271\361\306\273")]), +str_block(0,11,19,6,0,-1,0,0,0,[ +str_seg('#000000','Times-Roman',0,126720,11,19,6,0,-1,0,0,1,0,0, + "7")]), +str_block(0,46,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,46,20,6,-9,0,0,1,1,0,0, + "\271\346\300\376")]) +]) +])]). +oval('#000000','',917,147,939,169,2,5,1,407,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',1017,407,1039,429,2,5,1,408,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',201,203,223,225,2,5,1,409,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',501,291,523,313,2,5,1,411,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',533,283,555,305,2,5,1,412,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',125,431,147,453,2,5,1,413,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',473,539,495,561,2,5,1,414,0,0,0,0,0,'5',0,[ +]). +oval('#000000','',373,411,395,433,2,5,1,415,0,0,0,0,0,'5',0,[ +]). +text('#000000',140,347,1,0,1,100,22,433,16,5,2,0,0,0,-65534,100,22,-8,0,"",0,0,0,0,364,'',[ +minilines(100,22,-8,0,0,0,0,[ +mini_line(100,17,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\303\346\304\256\300\276")]), +str_block(0,5,17,4,0,0,0,0,0,[ +str_seg('#000000','Times-Roman',0,103680,5,17,4,0,0,0,0,1,0,0, + "/")]), +str_block(0,38,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,38,16,5,-8,0,0,1,1,0,0, + "\303\346\304\256")]) +]) +])]). +text('#000000',236,204,1,0,1,38,21,440,16,5,2,0,0,0,-65534,38,21,-8,0,"",0,0,0,0,220,'',[ +minilines(38,21,-8,0,0,0,0,[ +mini_line(38,16,5,-8,0,0,[ +str_block(0,38,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,38,16,5,-8,0,0,1,1,0,0, + "\270\305\314\253")]) +]) +])]). +text('#000000',380,292,1,0,1,114,21,444,16,5,2,0,0,0,-65534,114,21,-8,0,"",0,0,0,0,308,'',[ +minilines(114,21,-8,0,0,0,0,[ +mini_line(114,16,5,-8,0,0,[ +str_block(0,114,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,114,16,5,-8,0,0,1,1,0,0, + "\313\334\264\326\310\376\275\321\264\333\301\260")]) +]) +])]). +text('#000000',336,236,1,0,1,171,21,448,16,5,2,0,0,0,-65534,171,21,-8,0,"",0,0,0,0,252,'',[ +minilines(171,21,-8,0,0,0,0,[ +mini_line(171,16,5,-8,0,0,[ +str_block(0,171,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,171,16,5,-8,0,0,1,1,0,0, + "\276\261\270\362\245\320\245\271\245\277\241\274\245\337\245\312\245\353")]) +]) +])]). +text('#000000',528,332,1,0,1,76,21,451,16,5,2,0,0,0,-65534,76,21,-8,0,"",0,0,0,0,348,'',[ +minilines(76,21,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\274\362\305\304\261\330\301\260")]) +]) +])]). +text('#000000',348,436,1,0,1,76,21,453,16,5,2,0,0,0,-65534,76,21,-8,0,"",0,0,0,0,452,'',[ +minilines(76,21,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\273\263\265\357\304\256\305\354")]) +]) +])]). +text('#000000',124,456,2,0,1,76,42,457,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,472,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\274\362\305\304\263\244\301\257")]) +]), +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\273\324\276\354\301\260")]) +]) +])]). +text('#000000',260,564,1,0,1,95,21,465,16,5,2,0,0,0,-65534,95,21,-8,0,"",0,0,0,0,580,'',[ +minilines(95,21,-8,0,0,0,0,[ +mini_line(95,16,5,-8,0,0,[ +str_block(0,95,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,95,16,5,-8,0,0,1,1,0,0, + "\244\253\244\363\244\335\244\316\275\311")]) +]) +])]). +text('#000000',364,516,1,0,1,57,21,467,16,5,2,0,0,0,-65534,57,21,-8,0,"",0,0,0,0,532,'',[ +minilines(57,21,-8,0,0,0,0,[ +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\302\347\263\330\301\260")]) +]) +])]). +text('#000000',428,516,1,0,1,114,21,475,16,5,2,0,0,0,-65534,114,21,-8,0,"",0,0,0,0,532,'',[ +minilines(114,21,-8,0,0,0,0,[ +mini_line(114,16,5,-8,0,0,[ +str_block(0,114,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,114,16,5,-8,0,0,1,1,0,0, + "\305\332\314\347\267\375\265\255\307\260\264\333")]) +]) +])]). +text('#000000',580,488,1,0,1,133,21,477,16,5,2,0,0,0,-65534,133,21,-8,0,"",0,0,0,0,504,'',[ +minilines(133,21,-8,0,0,0,0,[ +mini_line(133,16,5,-8,0,0,[ +str_block(0,133,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,133,16,5,-8,0,0,1,1,0,0, + "\265\265\245\366\272\352\315\271\312\330\266\311\301\260")]) +]) +])]). +text('#000000',908,400,2,0,1,76,42,483,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,416,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\306\374\313\334\263\244")]) +]), +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\301\355\271\347\311\302\261\241")]) +]) +])]). +text('#000000',976,360,2,0,1,76,42,489,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,376,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\315\252\241\271\244\316\305\316")]) +]), +mini_line(38,16,5,-8,0,0,[ +str_block(0,38,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,38,16,5,-8,0,0,1,1,0,0, + "\262\271\300\364")]) +]) +])]). +text('#000000',884,172,2,0,1,76,42,500,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,188,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\310\254\310\250\301\355\271\347")]) +]), +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\273\331\275\352\301\260")]) +]) +])]). +box('#99ffff','',132,128,192,144,1,1,1,506,0,0,0,0,0,'1',0,[ +]).
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/rosenzu.obj Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,611 @@ +%TGIF 4.1.45 +state(0,37,100.000,0,0,0,4,1,0,1,1,6,0,0,0,1,0,'Ryumin-Light-EUC-H',0,126720,0,2,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408,1,0,2880,0). +% +% @(#)$Header$ +% %W% +% +unit("1 pixel/pixel"). +color_info(217,65535,0,[ + "#000000", 0, 0, 0, 0, 0, 0, 1, + "#000047", 0, 0, 18247, 0, 0, 18176, 1, + "#005b00", 0, 23387, 0, 0, 23296, 0, 1, + "#330000", 13107, 0, 0, 13056, 0, 0, 1, + "#000084", 0, 0, 33924, 0, 0, 33792, 1, + "#005b47", 0, 23387, 18247, 0, 23296, 18176, 1, + "#00a300", 0, 41891, 0, 0, 41728, 0, 1, + "#330047", 13107, 0, 18247, 13056, 0, 18176, 1, + "#335b00", 13107, 23387, 0, 13056, 23296, 0, 1, + "#660000", 26214, 0, 0, 26112, 0, 0, 1, + "#0000b8", 0, 0, 47288, 0, 0, 47104, 1, + "#005b84", 0, 23387, 33924, 0, 23296, 33792, 1, + "#00a347", 0, 41891, 18247, 0, 41728, 18176, 1, + "#00d700", 0, 55255, 0, 0, 55040, 0, 1, + "#330084", 13107, 0, 33924, 13056, 0, 33792, 1, + "#335b47", 13107, 23387, 18247, 13056, 23296, 18176, 1, + "#33a300", 13107, 41891, 0, 13056, 41728, 0, 1, + "#660047", 26214, 0, 18247, 26112, 0, 18176, 1, + "#665b00", 26214, 23387, 0, 26112, 23296, 0, 1, + "#990000", 39321, 0, 0, 39168, 0, 0, 1, + "#0000e0", 0, 0, 57568, 0, 0, 57344, 1, + "#005bb8", 0, 23387, 47288, 0, 23296, 47104, 1, + "#00a384", 0, 41891, 33924, 0, 41728, 33792, 1, + "#00d747", 0, 55255, 18247, 0, 55040, 18176, 1, + "#00f500", 0, 62965, 0, 0, 62720, 0, 1, + "#3300b8", 13107, 0, 47288, 13056, 0, 47104, 1, + "#335b84", 13107, 23387, 33924, 13056, 23296, 33792, 1, + "#33a347", 13107, 41891, 18247, 13056, 41728, 18176, 1, + "#33d700", 13107, 55255, 0, 13056, 55040, 0, 1, + "#660084", 26214, 0, 33924, 26112, 0, 33792, 1, + "#665b47", 26214, 23387, 18247, 26112, 23296, 18176, 1, + "#66a300", 26214, 41891, 0, 26112, 41728, 0, 1, + "#990047", 39321, 0, 18247, 39168, 0, 18176, 1, + "#995b00", 39321, 23387, 0, 39168, 23296, 0, 1, + "#cc0000", 52428, 0, 0, 52224, 0, 0, 1, + "#0000ff", 0, 0, 65535, 0, 0, 65280, 1, + "#005be0", 0, 23387, 57568, 0, 23296, 57344, 1, + "#00a3b8", 0, 41891, 47288, 0, 41728, 47104, 1, + "#00d784", 0, 55255, 33924, 0, 55040, 33792, 1, + "#00f547", 0, 62965, 18247, 0, 62720, 18176, 1, + "#00ff00", 0, 65535, 0, 0, 65280, 0, 1, + "#3300e0", 13107, 0, 57568, 13056, 0, 57344, 1, + "#335bb8", 13107, 23387, 47288, 13056, 23296, 47104, 1, + "#33a384", 13107, 41891, 33924, 13056, 41728, 33792, 1, + "#33d747", 13107, 55255, 18247, 13056, 55040, 18176, 1, + "#33f500", 13107, 62965, 0, 13056, 62720, 0, 1, + "#6600b8", 26214, 0, 47288, 26112, 0, 47104, 1, + "#665b84", 26214, 23387, 33924, 26112, 23296, 33792, 1, + "#66a347", 26214, 41891, 18247, 26112, 41728, 18176, 1, + "#66d700", 26214, 55255, 0, 26112, 55040, 0, 1, + "#990084", 39321, 0, 33924, 39168, 0, 33792, 1, + "#995b47", 39321, 23387, 18247, 39168, 23296, 18176, 1, + "#99a300", 39321, 41891, 0, 39168, 41728, 0, 1, + "#cc0047", 52428, 0, 18247, 52224, 0, 18176, 1, + "#cc5b00", 52428, 23387, 0, 52224, 23296, 0, 1, + "#ff0000", 65535, 0, 0, 65280, 0, 0, 1, + "#005bff", 0, 23387, 65535, 0, 23296, 65280, 1, + "#00a3e0", 0, 41891, 57568, 0, 41728, 57344, 1, + "#00d7b8", 0, 55255, 47288, 0, 55040, 47104, 1, + "#00f584", 0, 62965, 33924, 0, 62720, 33792, 1, + "#00ff47", 0, 65535, 18247, 0, 65280, 18176, 1, + "#3300ff", 13107, 0, 65535, 13056, 0, 65280, 1, + "#335be0", 13107, 23387, 57568, 13056, 23296, 57344, 1, + "#33a3b8", 13107, 41891, 47288, 13056, 41728, 47104, 1, + "#33d784", 13107, 55255, 33924, 13056, 55040, 33792, 1, + "#33f547", 13107, 62965, 18247, 13056, 62720, 18176, 1, + "#33ff00", 13107, 65535, 0, 13056, 65280, 0, 1, + "#6600e0", 26214, 0, 57568, 26112, 0, 57344, 1, + "#665bb8", 26214, 23387, 47288, 26112, 23296, 47104, 1, + "#66a384", 26214, 41891, 33924, 26112, 41728, 33792, 1, + "#66d747", 26214, 55255, 18247, 26112, 55040, 18176, 1, + "#66f500", 26214, 62965, 0, 26112, 62720, 0, 1, + "#9900b8", 39321, 0, 47288, 39168, 0, 47104, 1, + "#995b84", 39321, 23387, 33924, 39168, 23296, 33792, 1, + "#99a347", 39321, 41891, 18247, 39168, 41728, 18176, 1, + "#99d700", 39321, 55255, 0, 39168, 55040, 0, 1, + "#cc0084", 52428, 0, 33924, 52224, 0, 33792, 1, + "#cc5b47", 52428, 23387, 18247, 52224, 23296, 18176, 1, + "#cca300", 52428, 41891, 0, 52224, 41728, 0, 1, + "#ff0047", 65535, 0, 18247, 65280, 0, 18176, 1, + "#ff5b00", 65535, 23387, 0, 65280, 23296, 0, 1, + "#00a3ff", 0, 41891, 65535, 0, 41728, 65280, 1, + "#00d7e0", 0, 55255, 57568, 0, 55040, 57344, 1, + "#00f5b8", 0, 62965, 47288, 0, 62720, 47104, 1, + "#00ff84", 0, 65535, 33924, 0, 65280, 33792, 1, + "#335bff", 13107, 23387, 65535, 13056, 23296, 65280, 1, + "#33a3e0", 13107, 41891, 57568, 13056, 41728, 57344, 1, + "#33d7b8", 13107, 55255, 47288, 13056, 55040, 47104, 1, + "#33f584", 13107, 62965, 33924, 13056, 62720, 33792, 1, + "#33ff47", 13107, 65535, 18247, 13056, 65280, 18176, 1, + "#6600ff", 26214, 0, 65535, 26112, 0, 65280, 1, + "#665be0", 26214, 23387, 57568, 26112, 23296, 57344, 1, + "#66a3b8", 26214, 41891, 47288, 26112, 41728, 47104, 1, + "#66d784", 26214, 55255, 33924, 26112, 55040, 33792, 1, + "#66f547", 26214, 62965, 18247, 26112, 62720, 18176, 1, + "#66ff00", 26214, 65535, 0, 26112, 65280, 0, 1, + "#9900e0", 39321, 0, 57568, 39168, 0, 57344, 1, + "#995bb8", 39321, 23387, 47288, 39168, 23296, 47104, 1, + "#99a384", 39321, 41891, 33924, 39168, 41728, 33792, 1, + "#99d747", 39321, 55255, 18247, 39168, 55040, 18176, 1, + "#99f500", 39321, 62965, 0, 39168, 62720, 0, 1, + "#cc00b8", 52428, 0, 47288, 52224, 0, 47104, 1, + "#cc5b84", 52428, 23387, 33924, 52224, 23296, 33792, 1, + "#cca347", 52428, 41891, 18247, 52224, 41728, 18176, 1, + "#ccd700", 52428, 55255, 0, 52224, 55040, 0, 1, + "#ff0084", 65535, 0, 33924, 65280, 0, 33792, 1, + "#ff5b47", 65535, 23387, 18247, 65280, 23296, 18176, 1, + "#ffa300", 65535, 41891, 0, 65280, 41728, 0, 1, + "#00d7ff", 0, 55255, 65535, 0, 55040, 65280, 1, + "#00f5e0", 0, 62965, 57568, 0, 62720, 57344, 1, + "#00ffb8", 0, 65535, 47288, 0, 65280, 47104, 1, + "#33a3ff", 13107, 41891, 65535, 13056, 41728, 65280, 1, + "#33d7e0", 13107, 55255, 57568, 13056, 55040, 57344, 1, + "#33f5b8", 13107, 62965, 47288, 13056, 62720, 47104, 1, + "#33ff84", 13107, 65535, 33924, 13056, 65280, 33792, 1, + "#665bff", 26214, 23387, 65535, 26112, 23296, 65280, 1, + "#66a3e0", 26214, 41891, 57568, 26112, 41728, 57344, 1, + "#66d7b8", 26214, 55255, 47288, 26112, 55040, 47104, 1, + "#66f584", 26214, 62965, 33924, 26112, 62720, 33792, 1, + "#66ff47", 26214, 65535, 18247, 26112, 65280, 18176, 1, + "#9900ff", 39321, 0, 65535, 39168, 0, 65280, 1, + "#995be0", 39321, 23387, 57568, 39168, 23296, 57344, 1, + "#99a3b8", 39321, 41891, 47288, 39168, 41728, 47104, 1, + "#99d784", 39321, 55255, 33924, 39168, 55040, 33792, 1, + "#99f547", 39321, 62965, 18247, 39168, 62720, 18176, 1, + "#99ff00", 39321, 65535, 0, 39168, 65280, 0, 1, + "#cc00e0", 52428, 0, 57568, 52224, 0, 57344, 1, + "#cc5bb8", 52428, 23387, 47288, 52224, 23296, 47104, 1, + "#cca384", 52428, 41891, 33924, 52224, 41728, 33792, 1, + "#ccd747", 52428, 55255, 18247, 52224, 55040, 18176, 1, + "#ccf500", 52428, 62965, 0, 52224, 62720, 0, 1, + "#ff00b8", 65535, 0, 47288, 65280, 0, 47104, 1, + "#ff5b84", 65535, 23387, 33924, 65280, 23296, 33792, 1, + "#ffa347", 65535, 41891, 18247, 65280, 41728, 18176, 1, + "#ffd700", 65535, 55255, 0, 65280, 55040, 0, 1, + "#00f5ff", 0, 62965, 65535, 0, 62720, 65280, 1, + "#00ffe0", 0, 65535, 57568, 0, 65280, 57344, 1, + "#33d7ff", 13107, 55255, 65535, 13056, 55040, 65280, 1, + "#33f5e0", 13107, 62965, 57568, 13056, 62720, 57344, 1, + "#33ffb8", 13107, 65535, 47288, 13056, 65280, 47104, 1, + "#66a3ff", 26214, 41891, 65535, 26112, 41728, 65280, 1, + "#66d7e0", 26214, 55255, 57568, 26112, 55040, 57344, 1, + "#66f5b8", 26214, 62965, 47288, 26112, 62720, 47104, 1, + "#66ff84", 26214, 65535, 33924, 26112, 65280, 33792, 1, + "#995bff", 39321, 23387, 65535, 39168, 23296, 65280, 1, + "#99a3e0", 39321, 41891, 57568, 39168, 41728, 57344, 1, + "#99d7b8", 39321, 55255, 47288, 39168, 55040, 47104, 1, + "#99f584", 39321, 62965, 33924, 39168, 62720, 33792, 1, + "#99ff47", 39321, 65535, 18247, 39168, 65280, 18176, 1, + "#cc00ff", 52428, 0, 65535, 52224, 0, 65280, 1, + "#cc5be0", 52428, 23387, 57568, 52224, 23296, 57344, 1, + "#cca3b8", 52428, 41891, 47288, 52224, 41728, 47104, 1, + "#ccd784", 52428, 55255, 33924, 52224, 55040, 33792, 1, + "#ccf547", 52428, 62965, 18247, 52224, 62720, 18176, 1, + "#ccff00", 52428, 65535, 0, 52224, 65280, 0, 1, + "#ff00e0", 65535, 0, 57568, 65280, 0, 57344, 1, + "#ff5bb8", 65535, 23387, 47288, 65280, 23296, 47104, 1, + "#ffa384", 65535, 41891, 33924, 65280, 41728, 33792, 1, + "#ffd747", 65535, 55255, 18247, 65280, 55040, 18176, 1, + "#fff500", 65535, 62965, 0, 65280, 62720, 0, 1, + "#00ffff", 0, 65535, 65535, 0, 65280, 65280, 1, + "#33f5ff", 13107, 62965, 65535, 13056, 62720, 65280, 1, + "#33ffe0", 13107, 65535, 57568, 13056, 65280, 57344, 1, + "#66d7ff", 26214, 55255, 65535, 26112, 55040, 65280, 1, + "#66f5e0", 26214, 62965, 57568, 26112, 62720, 57344, 1, + "#66ffb8", 26214, 65535, 47288, 26112, 65280, 47104, 1, + "#99a3ff", 39321, 41891, 65535, 39168, 41728, 65280, 1, + "#99d7e0", 39321, 55255, 57568, 39168, 55040, 57344, 1, + "#99f5b8", 39321, 62965, 47288, 39168, 62720, 47104, 1, + "#99ff84", 39321, 65535, 33924, 39168, 65280, 33792, 1, + "#cc5bff", 52428, 23387, 65535, 52224, 23296, 65280, 1, + "#cca3e0", 52428, 41891, 57568, 52224, 41728, 57344, 1, + "#ccd7b8", 52428, 55255, 47288, 52224, 55040, 47104, 1, + "#ccf584", 52428, 62965, 33924, 52224, 62720, 33792, 1, + "#ccff47", 52428, 65535, 18247, 52224, 65280, 18176, 1, + "#ff00ff", 65535, 0, 65535, 65280, 0, 65280, 1, + "#ff5be0", 65535, 23387, 57568, 65280, 23296, 57344, 1, + "#ffa3b8", 65535, 41891, 47288, 65280, 41728, 47104, 1, + "#ffd784", 65535, 55255, 33924, 65280, 55040, 33792, 1, + "#fff547", 65535, 62965, 18247, 65280, 62720, 18176, 1, + "#ffff00", 65535, 65535, 0, 65280, 65280, 0, 1, + "#33ffff", 13107, 65535, 65535, 13056, 65280, 65280, 1, + "#66f5ff", 26214, 62965, 65535, 26112, 62720, 65280, 1, + "#66ffe0", 26214, 65535, 57568, 26112, 65280, 57344, 1, + "#99d7ff", 39321, 55255, 65535, 39168, 55040, 65280, 1, + "#99f5e0", 39321, 62965, 57568, 39168, 62720, 57344, 1, + "#99ffb8", 39321, 65535, 47288, 39168, 65280, 47104, 1, + "#cca3ff", 52428, 41891, 65535, 52224, 41728, 65280, 1, + "#ccd7e0", 52428, 55255, 57568, 52224, 55040, 57344, 1, + "#ccf5b8", 52428, 62965, 47288, 52224, 62720, 47104, 1, + "#ccff84", 52428, 65535, 33924, 52224, 65280, 33792, 1, + "#ff5bff", 65535, 23387, 65535, 65280, 23296, 65280, 1, + "#ffa3e0", 65535, 41891, 57568, 65280, 41728, 57344, 1, + "#ffd7b8", 65535, 55255, 47288, 65280, 55040, 47104, 1, + "#fff584", 65535, 62965, 33924, 65280, 62720, 33792, 1, + "#ffff47", 65535, 65535, 18247, 65280, 65280, 18176, 1, + "#66ffff", 26214, 65535, 65535, 26112, 65280, 65280, 1, + "#99f5ff", 39321, 62965, 65535, 39168, 62720, 65280, 1, + "#99ffe0", 39321, 65535, 57568, 39168, 65280, 57344, 1, + "#ccd7ff", 52428, 55255, 65535, 52224, 55040, 65280, 1, + "#ccf5e0", 52428, 62965, 57568, 52224, 62720, 57344, 1, + "#ccffb8", 52428, 65535, 47288, 52224, 65280, 47104, 1, + "#ffa3ff", 65535, 41891, 65535, 65280, 41728, 65280, 1, + "#ffd7e0", 65535, 55255, 57568, 65280, 55040, 57344, 1, + "#fff5b8", 65535, 62965, 47288, 65280, 62720, 47104, 1, + "#ffff84", 65535, 65535, 33924, 65280, 65280, 33792, 1, + "#99ffff", 39321, 65535, 65535, 39168, 65280, 65280, 1, + "#ccf5ff", 52428, 62965, 65535, 52224, 62720, 65280, 1, + "#ccffe0", 52428, 65535, 57568, 52224, 65280, 57344, 1, + "#ffd7ff", 65535, 55255, 65535, 65280, 55040, 65280, 1, + "#fff5e0", 65535, 62965, 57568, 65280, 62720, 57344, 1, + "#ffffb8", 65535, 65535, 47288, 65280, 65280, 47104, 1, + "#ccffff", 52428, 65535, 65535, 52224, 65280, 65280, 1, + "#fff5ff", 65535, 62965, 65535, 65280, 62720, 65280, 1, + "#ffffe0", 65535, 65535, 57568, 65280, 65280, 57344, 1, + "#ffffff", 65535, 65535, 65535, 65280, 65280, 65280, 1, + "white", 65535, 65535, 65535, 65535, 65535, 65535, 1 +]). +script_frac("0.6"). +fg_bg_colors('#000000','white'). +dont_reencode("FFDingbests:ZapfDingbats"). +objshadow_info('#c0c0c0',2,2). +page(1,"",1,''). +group([ +poly('#00d700','',22,[ + 256,380,256,420,220,420,220,444,260,484,628,484,628,492,628,444, + 880,444,880,496,904,496,904,480,924,480,924,456,948,456,952,468, + 972,468,976,432,988,428,996,452,1012,456,1016,436],0,5,1,703,0,0,0,0,0,0,0,'5',0,0, + "000000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +box('#99ffff','',112,504,1004,520,1,1,1,702,0,0,0,0,0,'1',0,[ +]), +box('#ccd7e0','',800,264,816,584,1,1,1,701,0,0,0,0,0,'1',0,[ +]), +box('#ccd7e0','',744,133,815,278,1,1,1,700,0,0,0,1,0,'1',0,[ + 800,121,800,121,816,249,896.269,-530.759,443.511,1072.58,-56,20],[ +]), +poly('#000000','',11,[ + 792,144,776,144,664,184,592,224,584,272,620,336,680,344,812,348, + 864,360,892,368,936,372],0,7,1,699,1,0,3,0,0,0,0,'7',0,0, + "7fc","",[ + 0,22,9,0,'22','9','0'],[0,22,9,0,'22','9','0'],[ +]), +group([ +poly('#000000','',4,[ + 792,496,800,504,800,520,792,528],0,2,1,698,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]), +poly('#000000','',4,[ + 824,496,816,504,816,520,824,528],0,2,1,697,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]) +], +696,0,0,[ +]), +group([ +poly('#000000','',4,[ + 212,496,220,504,220,520,212,528],0,2,1,695,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]), +poly('#000000','',4,[ + 244,496,236,504,236,520,244,528],0,2,1,694,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]) +], +693,0,0,[ +]), +poly('#0000e0','',5,[ + 828,264,856,156,880,156,880,164,900,164],0,5,1,692,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#0000e0','',11,[ + 260,384,368,384,368,404,528,404,528,384,624,384,624,456,432,456, + 432,488,624,488,624,456],0,5,1,691,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#0000e0','',3,[ + 624,416,880,416,880,456],0,5,1,690,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#00d700','',13,[ + 244,348,220,348,220,328,240,328,240,296,196,296,196,316,220,316, + 220,328,112,328,112,280,196,280,196,232],0,5,1,689,0,0,0,0,0,0,0,'5',0,0, + "0000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ff0047','',13,[ + 244,344,224,344,224,312,200,312,200,280,224,280,236,256,264,256, + 264,272,688,272,688,248,624,248,624,304],0,5,1,688,0,0,0,0,0,0,0,'5',0,0, + "0000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ff0047','',3,[ + 624,304,688,304,688,352],0,5,1,687,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ff0047','',6,[ + 688,352,608,352,608,332,500,332,500,364,264,364],0,5,1,686,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ff0047','',9,[ + 268,376,720,376,720,492,876,492,876,440,628,440,628,480,260,480, + 260,380],0,5,1,685,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffa3ff','',10,[ + 260,380,460,380,460,432,192,432,192,464,228,464,228,584,160,584, + 160,536,228,536],0,5,1,684,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffa3ff','',4,[ + 228,560,496,560,496,584,368,584],0,5,1,683,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffa3ff','',2,[ + 244,328,244,348],0,5,1,682,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffa3ff','',2,[ + 244,328,592,328],0,5,1,681,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',4,[ + 368,580,432,580,432,556,232,556],0,5,1,680,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',5,[ + 232,532,232,588,156,588,156,532,232,532],0,5,1,679,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',14,[ + 432,556,528,556,528,528,688,528,688,584,808,584,808,492,808,488, + 872,488,872,448,840,456,632,476,264,476,264,436],0,5,1,678,0,0,0,0,0,0,0,'5',0,0, + "0000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',9,[ + 264,436,464,436,464,408,180,408,152,456,120,456,120,432,152,432, + 152,456],0,5,1,677,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',2,[ + 244,388,244,408],0,5,1,676,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',11,[ + 272,368,692,368,692,304,808,304,808,272,692,272,692,232,640,184, + 500,184,500,288,596,328],0,5,1,675,0,0,0,0,0,0,0,'5',0,0, + "000","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#ffd700','',5,[ + 808,272,848,272,848,296,828,296,828,272],0,5,1,674,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +poly('#0000e0','',6,[ + 268,360,496,360,496,276,808,276,808,264,828,264],0,5,1,673,0,0,0,0,0,0,0,'5',0,0, + "00","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]), +oval('#000000','',230,346,270,386,2,5,1,672,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',593,323,623,353,2,5,1,671,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',617,471,639,493,2,5,1,670,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',869,451,891,473,2,5,1,669,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',373,547,395,569,2,5,1,668,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',345,571,367,593,2,5,1,667,0,0,0,0,0,'5',0,[ +]), +text('#ffd700',188,132,1,0,1,69,26,666,20,6,0,0,0,0,-65534,69,26,-9,0,"",0,0,0,0,152,'',[ +minilines(69,26,-9,0,0,0,0,[ +mini_line(69,20,6,-9,0,0,[ +str_block(0,69,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,69,20,6,-9,0,0,1,1,0,0, + "\272\307\276\345\300\356")]) +]) +])]), +box('#ccd7ff','',116,176,176,192,1,1,1,665,0,0,0,0,0,'1',0,[ +]), +text('#000000',188,172,1,0,1,103,26,664,20,6,2,0,0,0,-65534,103,26,-9,0,"",0,0,0,0,192,'',[ +minilines(103,26,-9,0,0,0,0,[ +mini_line(103,20,6,-9,0,0,[ +str_block(0,46,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,46,20,6,-9,0,0,1,1,0,0, + "\271\361\306\273")]), +str_block(0,11,19,6,0,-1,0,0,0,[ +str_seg('#000000','Times-Roman',0,126720,11,19,6,0,-1,0,0,0,0,0, + "7")]), +str_block(0,46,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,46,20,6,-9,0,0,1,1,0,0, + "\271\346\300\376")]) +]) +])]), +oval('#000000','',901,155,923,177,2,5,1,663,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',1001,415,1023,437,2,5,1,662,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',185,211,207,233,2,5,1,661,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',485,299,507,321,2,5,1,660,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',517,291,539,313,2,5,1,659,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',109,439,131,461,2,5,1,658,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',457,547,479,569,2,5,1,657,0,0,0,0,0,'5',0,[ +]), +oval('#000000','',357,419,379,441,2,5,1,656,0,0,0,0,0,'5',0,[ +]), +text('#000000',124,355,1,0,1,100,22,655,16,5,2,0,0,0,-65534,100,22,-8,0,"",0,0,0,0,372,'',[ +minilines(100,22,-8,0,0,0,0,[ +mini_line(100,17,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\303\346\304\256\300\276")]), +str_block(0,5,17,4,0,0,0,0,0,[ +str_seg('#000000','Times-Roman',0,103680,5,17,4,0,0,0,0,0,0,0, + "/")]), +str_block(0,38,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,38,16,5,-8,0,0,1,1,0,0, + "\303\346\304\256")]) +]) +])]), +text('#000000',220,212,1,0,1,38,21,654,16,5,2,0,0,0,-65534,38,21,-8,0,"",0,0,0,0,228,'',[ +minilines(38,21,-8,0,0,0,0,[ +mini_line(38,16,5,-8,0,0,[ +str_block(0,38,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,38,16,5,-8,0,0,1,1,0,0, + "\270\305\314\253")]) +]) +])]), +text('#000000',364,300,1,0,1,114,21,653,16,5,2,0,0,0,-65534,114,21,-8,0,"",0,0,0,0,316,'',[ +minilines(114,21,-8,0,0,0,0,[ +mini_line(114,16,5,-8,0,0,[ +str_block(0,114,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,114,16,5,-8,0,0,1,1,0,0, + "\313\334\264\326\310\376\275\321\264\333\301\260")]) +]) +])]), +text('#000000',320,244,1,0,1,171,21,652,16,5,2,0,0,0,-65534,171,21,-8,0,"",0,0,0,0,260,'',[ +minilines(171,21,-8,0,0,0,0,[ +mini_line(171,16,5,-8,0,0,[ +str_block(0,171,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,171,16,5,-8,0,0,1,1,0,0, + "\276\261\270\362\245\320\245\271\245\277\241\274\245\337\245\312\245\353")]) +]) +])]), +text('#000000',512,340,1,0,1,76,21,651,16,5,2,0,0,0,-65534,76,21,-8,0,"",0,0,0,0,356,'',[ +minilines(76,21,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\274\362\305\304\261\330\301\260")]) +]) +])]), +text('#000000',332,444,1,0,1,76,21,650,16,5,2,0,0,0,-65534,76,21,-8,0,"",0,0,0,0,460,'',[ +minilines(76,21,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\273\263\265\357\304\256\305\354")]) +]) +])]), +text('#000000',108,464,2,0,1,76,42,649,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,480,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\274\362\305\304\263\244\301\257")]) +]), +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\273\324\276\354\301\260")]) +]) +])]), +text('#000000',244,572,1,0,1,95,21,648,16,5,2,0,0,0,-65534,95,21,-8,0,"",0,0,0,0,588,'',[ +minilines(95,21,-8,0,0,0,0,[ +mini_line(95,16,5,-8,0,0,[ +str_block(0,95,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,95,16,5,-8,0,0,1,1,0,0, + "\244\253\244\363\244\335\244\316\275\311")]) +]) +])]), +text('#000000',348,524,1,0,1,57,21,647,16,5,2,0,0,0,-65534,57,21,-8,0,"",0,0,0,0,540,'',[ +minilines(57,21,-8,0,0,0,0,[ +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\302\347\263\330\301\260")]) +]) +])]), +text('#000000',412,524,1,0,1,114,21,646,16,5,2,0,0,0,-65534,114,21,-8,0,"",0,0,0,0,540,'',[ +minilines(114,21,-8,0,0,0,0,[ +mini_line(114,16,5,-8,0,0,[ +str_block(0,114,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,114,16,5,-8,0,0,1,1,0,0, + "\305\332\314\347\267\375\265\255\307\260\264\333")]) +]) +])]), +text('#000000',564,496,1,0,1,133,21,645,16,5,2,0,0,0,-65534,133,21,-8,0,"",0,0,0,0,512,'',[ +minilines(133,21,-8,0,0,0,0,[ +mini_line(133,16,5,-8,0,0,[ +str_block(0,133,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,133,16,5,-8,0,0,1,1,0,0, + "\265\265\245\366\272\352\315\271\312\330\266\311\301\260")]) +]) +])]), +text('#000000',892,408,2,0,1,76,42,644,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,424,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\306\374\313\334\263\244")]) +]), +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\301\355\271\347\311\302\261\241")]) +]) +])]), +text('#000000',868,180,2,0,1,76,42,643,16,5,2,0,0,0,-65534,76,42,-8,0,"",0,0,0,0,196,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\310\254\310\250\301\355\271\347")]) +]), +mini_line(57,16,5,-8,0,0,[ +str_block(0,57,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,57,16,5,-8,0,0,1,1,0,0, + "\273\331\275\352\301\260")]) +]) +])]), +box('#99ffff','',116,136,176,152,1,1,1,642,0,0,0,0,0,'1',0,[ +]) +], +641,0,0,[ +]). +poly('#000000','',2,[ + 492,260,528,296],0,2,1,704,0,0,0,0,0,0,0,'2',0,0, + "0","",[ + 0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[ +]). +poly('#33d747','',2,[ + 796,444,828,444],0,5,1,708,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +poly('#ff0047','',3,[ + 788,440,824,440,828,440],0,5,1,710,0,0,0,0,0,0,0,'5',0,0, + "0","",[ + 0,18,7,0,'18','7','0'],[0,18,7,0,'18','7','0'],[ +]). +text('#ffa3ff',960,380,2,0,1,76,42,718,16,5,0,0,0,0,2,76,42,-8,0,"",0,0,0,0,396,'',[ +minilines(76,42,-8,0,0,0,0,[ +mini_line(76,16,5,-8,0,0,[ +str_block(0,76,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,76,16,5,-8,0,0,1,1,0,0, + "\315\252\241\271\244\316\305\316")]) +]), +mini_line(38,16,5,-8,0,0,[ +str_block(0,38,16,5,-8,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,103680,38,16,5,-8,0,0,1,1,0,0, + "\262\271\300\364")]) +]) +])]). +poly('#000000','',2,[ + 300,144,372,144],0,7,1,720,0,0,2,0,0,0,0,'7',0,0, + "0","",[ + 0,22,9,0,'22','9','0'],[0,22,9,0,'22','9','0'],[ +]). +text('#000000',384,132,1,0,1,92,26,759,20,6,0,0,0,0,2,92,26,-9,0,"",0,0,0,0,152,'',[ +minilines(92,26,-9,0,0,0,0,[ +mini_line(92,20,6,-9,0,0,[ +str_block(0,92,20,6,-9,0,0,0,0,[ +str_seg('#000000','Ryumin-Light-EUC-H',0,126720,92,20,6,-9,0,0,1,1,0,0, + "\261\251\261\333\313\334\300\376")]) +]) +])]).
--- a/bus_cgi/ruru.css Thu Feb 14 21:39:18 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,21 +0,0 @@ -body {color: dodgerblue; - margin: 10%;} - -p { color: maroon; - text-align: left;} - -h1 { color: saddlebrown; - text-align: center; - background: #c5f7db; } - -h2 { color: hotpink; - text-align: left;} - -h3 { color: orange; - text-align: left;} - -h4 { color: dodgerblue;} - -hr { color: sienna; } - -td { color: limegreen;}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/shinai.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,176 @@ +<html> +<html lang="ja"> +<head> +<title>るんるんバス時刻検索</title> +<style type="text/css"> +</style> +<link rel="stylesheet" type="text/css" href="bus.css"> +</head> + +<body> +<form method="POST" action="./bus.rb"> + +<h1>市内循環線バス時刻検索</h1> +<br> +<h2>路線図</h2> +<p>作成中です・・・</p> +<br> +<h2>時刻検索</h2> +<img src="bus.png" align="right"> +<p><input type="radio" name="direc" value="e" checked>右回り +<input type="radio" name="direc" value="k">左回り</p> +<p>出発＊ +<select name="dep"> + <option> 中町西 + <option> 市役所西 + <option> 山居町 + <option> 酒田医療センター口 + <option> 酒田医療センター前 + <option> 亀ヶ崎郵便局前 + <option> みずほ1丁目 + <option> みずほ2丁目 + <option> こがね町交番前 + <option> 日本海総合病院 + <option> あきほ橋 + <option> 両羽町 + <option> 亀ヶ崎6丁目 + <option> 亀ヶ崎3丁目 + <option> 東禅寺コミュニティセンター前 + <option> 東大町2丁目 + <option> 勤労者福祉センター前 + <option> 水道部前 + <option> 東中の口 + <option> 一番町 + <option> 二番町 + <option> 中町 + <option> 中町3丁目 + <option> 寿町 + <option> 文化センター前 + <option> 北新町1丁目 + <option> 税務署前 + <option> 光ヶ丘1丁目 + <option> 屋内プール前 + <option> 広陵高校前 + <option> 千北日町 + <option> 泉里西公園前 + <option> 西高校前 + <option> デイサービスセンターいずみ前 + <option> 泉里公園前 + <option> (東泉町2丁目) + <option> 北部公園前 + <option> 駅東公園前 + <option> 駅東地下道前 + <option> 旭新町 + <option> 浜田2丁目 + <option> 浜田1丁目 + <option> 酒田駅前 + <option> 相生町 + <option> シルバー人材センター前 + <option> 中央公園前 +</select></p> + +<p>到着＊ +<select name="arr"> + <option> 中町西 + <option> 市役所西 + <option> 山居町 + <option> 酒田医療センター口 + <option> 酒田医療センター前 + <option> 亀ヶ崎郵便局前 + <option> みずほ1丁目 + <option> みずほ2丁目 + <option> こがね町交番前 + <option> 日本海総合病院 + <option> あきほ橋 + <option> 両羽町 + <option> 亀ヶ崎6丁目 + <option> 亀ヶ崎3丁目 + <option> 東禅寺コミュニティセンター前 + <option> 東大町2丁目 + <option> 勤労者福祉センター前 + <option> 水道部前 + <option> 東中の口 + <option> 一番町 + <option> 二番町 + <option> 中町 + <option> 中町3丁目 + <option> 寿町 + <option> 文化センター前 + <option> 北新町1丁目 + <option> 税務署前 + <option> 光ヶ丘1丁目 + <option> 屋内プール前 + <option> 広陵高校前 + <option> 千北日町 + <option> 泉里西公園前 + <option> 西高校前 + <option> デイサービスセンターいずみ前 + <option> 泉里公園前 + <option> (東泉町2丁目) + <option> 北部公園前 + <option> 駅東公園前 + <option> 駅東地下道前 + <option> 旭新町 + <option> 浜田2丁目 + <option> 浜田1丁目 + <option> 酒田駅前 + <option> 相生町 + <option> シルバー人材センター前 + <option> 中央公園前 +</select> </p> + +<p>時刻＊ +<select name="hour"> + <option> 6 + <option> 7 + <option> 8 + <option> 9 + <option> 10 + <option> 11 + <option> 12 + <option> 13 + <option> 14 + <option> 15 + <option> 16 + <option> 17 + <option> 18 + <option> 19 + <option> 20 + <option> 21 + <option> 22 +</select> : +<select name="min"> + <option> 00 + <option> 05 + <option> 10 + <option> 15 + <option> 20 + <option> 25 + <option> 30 + <option> 35 + <option> 40 + <option> 45 + <option> 50 + <option> 55 +</select> +<input type="radio" name="which" value="s">出発 +<input type="radio" name="which" value="t" checked>到着 +</p> + +<p> +<input type="submit" value="けんさく!"> +<input type="reset" value="リセット"> +</p> +</form> +<br> +<h2>プログラムに関して</h2> +<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学 +SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに +関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、 +このプログラムはデモ版であり、このページから得られた情報に関しての責任は +一切負いません。</p> +<br> +<a href="http://skip.koeki-prj.org/bus_cgi/home.html">戻る</a> +<a href="http://skip.koeki-prj.org/">SKIP</a> +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/shinai.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,117 @@ +#!/usr/koeki/bin/ruby +#coding: euc-jp + +require 'cgi' + +cgi = CGI.new(:accept_charset => "EUC-JP") +print("Content-type: text/html; charset=EUC-JP\n\n") + +bus = Hash.new + +direc = cgi["direc"] +dep = cgi["dep"] +arr = cgi["arr"] +hour = cgi["hour"] +min = cgi["min"] +which = cgi["which"] + +if direc == "e" + open("zikoku1.txt","r:euc-jp") do |zikoku| + while line = zikoku.gets + if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line + bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, + $6.to_s,$7.to_s,$8.to_s,$9.to_s] + end + end + end + +elsif direc == "k" + open("zikoku2.txt","r:euc-jp") do |zikoku| + while line = zikoku.gets + if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line + bus[$10.to_s] = [$1.to_s,$2.to_s,$3.to_s,$4.to_s,$5.to_s, + $6.to_s,$7.to_s,$8.to_s,$9.to_s] + end + end + end +end + +time = hour + min + +# p time + +print("<html>\n") +print("<head>\n") +print("<title>結果</title>\n") +print("</head>\n") +print("<body>\n") +print("<link rel=\"stylesheet\" href=\"bus.css\" type=\"text/css\">\n") +print("<h1>市内循環線バス時刻検索/h1><br>\n") +print("<img src=\"bus.png\" align=\"right\">") +print("<h2>検索結果</h2>") +a = 0 +if which == "t" + while true + if time.to_i < bus[arr][0].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][8] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][8] + ahour = $1 + amin = $2 + end + printf("<p>乗車 %s %s:%s\n</p>\n",dep ,dhour, dmin) + printf("<p>降車 %s %s:%s\n</p>\n",arr ,ahour, amin) + break + elsif a >= 8 || time.to_i > bus[arr][a].to_i && time.to_i < bus[arr][a+1].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][a] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][a] + ahour = $1 + amin = $2 + end + printf("<p>乗車 %s %s:%s\n</p>\n",dep ,dhour, dmin) + printf("<p>降車 %s %s:%s\n</p>\n",arr ,ahour, amin) + break + else + a += 1 + end + end +elsif which == "s" + while true + if time.to_i < bus[dep][0].to_i || time.to_i > bus[dep][8].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][0] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][0] + ahour = $1 + amin = $2 + end + printf("<p>乗車 %s %s:%s\n</p>\n",dep ,dhour, dmin) + printf("<p>降車 %s %s:%s\n</p>\n",arr ,ahour, amin) + break + elsif time.to_i > bus[dep][a].to_i && time.to_i < bus[dep][a+1].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][a+1] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][a+1] + ahour = $1 + amin = $2 + end + printf("<p>乗車 %s %s:%s\n</p>\n",dep ,dhour, dmin) + printf("<p>降車 %s %s:%s\n</p>\n",arr ,ahour, amin) + break + else + a += 1 + end + end +end +print("<br><a href=\"http://skip.koeki-prj.org/bus_cgi/home.html\">戻る</a> +<a href=\"http://skip.koeki-prj.org/\">SKIP</a>") +print("</body>\n") +print("</html>\n")
--- a/bus_cgi/top.html Thu Feb 14 21:39:18 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,104 +0,0 @@ -<html> -<html lang="ja"> -<head> -<title>るんるんバス時刻検索</title> -<style type="text/css"> -</style> -<link rel="stylesheet" type="text/css" href="ruru.css"> -</head> - -<body> -<form method="POST" action="./bus1.rb"> - -<h1>酒田駅大学線バス時刻検索</h1> -<img src="bus.png" align="right"> -<br> -<h2>路線図</h2> -<p>作成中です・・・</p> -<br> -<h2>時刻検索</h2> -<p><input type="radio" name="direc" value="e" checked>駅方面 -<input type="radio" name="direc" value="k">かんぽの郷方面</p> -<p>出発＊ -<select name="dep"> - <option> かんぽの郷 - <option> 出羽遊心館・美術館 - <option> 工業団地前 - <option> 土門拳記念館 - <option> 大学前 - <option> 市営体育館前 - <option> 山居町東 - <option> 二番町 - <option> 中町西 - <option> 文化センター前 - <option> 八雲神社前 - <option> 酒田駅正面口 -</select></p> - -<p>到着＊ -<select name="arr"> - <option> かんぽの郷 - <option> 出羽遊心館・美術館 - <option> 工業団地前 - <option> 土門拳記念館 - <option> 大学前 - <option> 市営体育館前 - <option> 山居町東 - <option> 二番町 - <option> 中町西 - <option> 文化センター前 - <option> 八雲神社前 - <option> 酒田駅正面口 -</select> </p> - -<p>時刻＊ -<select name="hour"> - <option> 6 - <option> 7 - <option> 8 - <option> 9 - <option> 10 - <option> 11 - <option> 12 - <option> 13 - <option> 14 - <option> 15 - <option> 16 - <option> 17 - <option> 18 - <option> 19 - <option> 20 - <option> 21 - <option> 22 -</select> : -<select name="min"> - <option> 00 - <option> 05 - <option> 10 - <option> 15 - <option> 20 - <option> 25 - <option> 30 - <option> 35 - <option> 40 - <option> 45 - <option> 50 - <option> 55 -</select> -<input type="radio" name="which" value="s">出発 -<input type="radio" name="which" value="t" checked>到着 -</p> - -<p> -<input type="submit" value="けんさく!"> -<input type="reset" value="リセット"> -</p> -</form> -<br> -<h2>プログラムに関して</h2> -<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、このプログラムはデモ版であり、このページから得られた情報に関しての責任は一切負いません。</p> -<br> -<a href="http://skip.koeki-prj.org/bus_cgi/home.html">戻る</a> -<a href="http://skip.koeki-prj.org/">SKIP</a> -</body> -</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/yahata.html Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,100 @@ +<html> +<html lang="ja"> +<head> +<title>るんるんバス時刻検索</title> +<style type="text/css"> +</style> +<link rel="stylesheet" type="text/css" href="bus.css"> +</head> +<body> +<form method="POST" action="./bus.rb"> + +<h1>八幡日本海総合病院線バス時刻検索</h1> +<br> +<h2>路線図</h2> +<p>作成中です・・・</p> +<br> +<h2>時刻検索</h2> +<img src="bus.png" align="right"> +<p><input type="radio" name="direc" value="e" checked>悠々の杜温泉方面 +<input type="radio" name="direc" value="k">古湊方面</p> +<p>出発＊ +<select name="dep"> + <option> 古湊 + <option> 高砂 + <option> 山容病院前 + <option> 光ヶ丘4丁目 + <option> 陸上競技場前 + <option> 陸上競技場脇 + <option> 光ヶ丘2丁目 + <option> 南新町2丁目 + <option> 北新町2丁目 + <option> 日吉町1丁目 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select></p> + +<p>到着＊ +<select name="arr"> + <option> かんぽの郷 + <option> 出羽遊心館・美術館 + <option> 工業団地前 + <option> 土門拳記念館 + <option> 大学前 + <option> 市営体育館前 + <option> 山居町東 + <option> 二番町 + <option> 中町西 + <option> 文化センター前 + <option> 八雲神社前 + <option> 酒田駅正面口 +</select> </p> + +<p>時刻＊ +<select name="hour"> + <option> 6 + <option> 7 + <option> 8 + <option> 9 + <option> 10 + <option> 11 + <option> 12 + <option> 13 + <option> 14 + <option> 15 + <option> 16 + <option> 17 + <option> 18 + <option> 19 + <option> 20 + <option> 21 + <option> 22 +</select> : +<select name="min"> + <option> 00 + <option> 05 + <option> 10 + <option> 15 + <option> 20 + <option> 25 + <option> 30 + <option> 35 + <option> 40 + <option> 45 + <option> 50 + <option> 55 +</select> +<input type="radio" name="which" value="s">出発 +<input type="radio" name="which" value="t" checked>到着 +</p> + +<p> +<input type="submit" value="けんさく!"> +<input type="reset" value="リセット"> +</p> +</form> +<br> +<h2>プログラムに関して</h2> +<p>このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学SKIPが作成したものです。<br>このページにおいて提供されているコンテンツに関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。<br>また、このプログラムはデモ版であり、このページから得られた情報に関しての責任は一切負いません。</p> +</body> +</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bus_cgi/zikan.rb Fri Feb 15 14:27:24 2013 +0900 @@ -0,0 +1,18 @@ +#!/usr/koeki/bin/ruby +#coding: euc-jp + +zikan1 = gets.chomp!.to_s + +p zikan1 + +zikan2 = zikan1.to_i + +p zikan2 + +if /(\S\S)(\S\S)/ =~ zikan1 + hour = $1 + min = $2 +end + +p hour +p min
--- a/bus_cgi/zikoku1.txt Thu Feb 14 21:39:18 2013 +0900 +++ b/bus_cgi/zikoku1.txt Fri Feb 15 14:27:24 2013 +0900 @@ -9,4 +9,4 @@ 0757,0932,1107,1232,1347,1517,1722,1837,2027,中町西 0800,0935,1110,1235,1350,1520,1725,1840,2030,文化センター前 0801,0936,1111,1236,1351,1521,1726,1848,2031,八雲神社前 -0802,0937,1112,1237,1352,1522,1727,1842,2032,酒田駅正面口 +802,0937,1112,1237,1352,1522,1727,1842,2032,酒田駅正面口
