SWAN×SKIP現地調査第二弾調査結果

+ +

庄内ホルモン

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　 3.40～50代　4.60代～
+
2.20～30代
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
2.サラリーマン
+
+
この店に一番のおすすめ商品を教えて下さい。
+
華咲牛タン
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
ない
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
広い駐車場
+
+
おすすめの穴場がありましたら教えて下さい。
+
酒菜処邑
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
高齢者
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
電話回線は何をお使いですか?
+
NTT
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
地域発展、地産地消につながるもの
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
中町マップなどを作ってもらいたい
+

+ + diff -r a21a8b5813f7 -r e4deee2129f8 enq/horumon1-150.JPG Binary file enq/horumon1-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/horumon1-720.JPG Binary file enq/horumon1-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/horumon1.jpg Binary file enq/horumon1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/kameya.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/kameya.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,111 @@ + + + +龜屋調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

龜屋

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
3.40～50代（40代から60代以上までと幅広くとのこと）
+
+
どのような客が多いですか？
+1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他（一般中高年）
+
+
この店に一番のおすすめ商品を教えて下さい。
+
その時期によって変わる（夏期は「若あゆ」）
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
ない
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
喫茶スペース
+
+
おすすめの穴場がありましたら教えて下さい。
+
喫茶「みつばち」
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
30～40代のお客さんをもっと増やしたい。
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
電話回線は何をお使いですか?
+
フレッツ光
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
1
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
その時季の売れ筋商品の紹介
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
特に用が無くとも、もっと酒田の街を歩いて欲しい。
+
歩くのが楽しいような街になってほしい。
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/kikuti.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/kikuti.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,110 @@ + + + + 菊池菓子舗調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

菊池菓子舗

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
3.40～50代
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(主婦)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
酒田娘(あんこ、コーヒー、やきいも)
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
いいえ
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
_
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
全年齢層
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい(HP あり)
+
+
電話回線は何をお使いですか?
+
光
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
社長不在のため、保留
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
社長不在のため、保留
+

+ +ko \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/konoki.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/konoki.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,113 @@ + + + +小の木調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

小の木

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
2～4（中でも一番多いのは40～50代）
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(主婦、仕事帰りのお母さん）
+
+
この店に一番のおすすめ商品を教えて下さい。
+
売り物→全部おすすめ（一番のおすすめは山形牛だが高くてあまり売れない。他の商品は万遍なく売れている。） +食事→少子ラーメンが一番人気（辛くて、あんかけ、ひき肉＋ライス付き）
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
はい（家族労働なので人手が足りない）
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
秘密
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
肉を買ってくれるお客様
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  暇がない
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
2.いいえ（お店の情報はお客様の口コミで勝手に流れるから特に必要ないし、今後作る気もない）
+
+
電話回線は何をお使いですか?
+
フレッツ光
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
わからない（店主が留守だったため）
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
_
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
店主が留守でこの質問は店主でなければ答えることができないと言われた
+

+ + + + diff -r a21a8b5813f7 -r e4deee2129f8 enq/kurihara.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/kurihara.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,110 @@ + + + + 栗原甘泉堂調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

栗原甘泉堂

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
4.60代～
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(高齢者)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
お客さんの注文を受けてからつくる団子
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
_
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
歩きながら自分のお店によってくれるお客参が増えて欲しい。
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
若い世代
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
電話回線は何をお使いですか?
+
NTT
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
-
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
_
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
-
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/logo.png Binary file enq/logo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/minato.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/minato.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,110 @@ + + + + 港タクシー調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

港タクシー

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
4.60代～、深夜は若者の利用も多い
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(高齢者)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
安心・親切・24時間営業
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
_
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
_
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
_
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい(ホームページ)
+
+
電話回線は何をお使いですか?
+
NTT
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
-
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
_
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
お店の宣伝が悪いと思う。酒田に仕事やイベントなどを増やして酒田をアピールしてほしい。(商工会議所が中心となって)
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/minato_ya.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/minato_ya.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,110 @@ + + + +港屋調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

港屋

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　 3.40～50代　4.60代～
+
4.30～40代
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5その他(高齢者)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
掛け時計
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
特に無し
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
_
+
+
おすすめの穴場がありましたら教えて下さい。
+
ラーメン屋
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
特に若者
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  面倒くさいから
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
電話回線は何をお使いですか?
+
NTT
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
割り引きやサービスの紹介
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
独自のサービスなどを発信してもらいたい
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/minatotokei1-150.jpg Binary file enq/minatotokei1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/minatotokei1-720.jpg Binary file enq/minatotokei1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/minatotokei1.jpg Binary file enq/minatotokei1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/minatoza1-150.jpg Binary file enq/minatoza1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/minatoza1-720.jpg Binary file enq/minatoza1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/minatoza1.jpg Binary file enq/minatoza1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/moare.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/moare.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,109 @@ + + + +モアレ調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

モアレ

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
2.20～30代
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(女性２～３人)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
瞬や季節感を取り入れた月替わりのフレーバーや、定番商品のチョコレートや苺
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
総合リンクの繋がりが弱いのが不便
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
ハード面では特に無い、ソフト面では単発で終わらないもっと拡張されたメディアが欲しい。
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
10代の人々にもっと情報を発信していきたい。
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
電話回線は何をお使いですか?
+
フレッツ光
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
商品だけに関わらず、お店に関わる人もトータルに発信していきたい。
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
サークル活動以外でも、学生自身がより酒田に興味を持って、情報収集していってほしい。
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/ogawaen.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,110 @@ + + + + 尾川園調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

尾川園

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
4.60代～
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(主婦)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
永樹、宝樹などの煎茶
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
_
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
_
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
若者
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
電話回線は何をお使いですか?
+
NTT
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
-
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
_
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
山居倉庫や海鮮市場などの観光地と中町を結ぶものを作って欲しい。
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen1-150.jpg Binary file enq/ogawaen1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen1-720.jpg Binary file enq/ogawaen1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen1.jpg Binary file enq/ogawaen1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen2-150.jpg Binary file enq/ogawaen2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen2-720.jpg Binary file enq/ogawaen2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/ogawaen2.jpg Binary file enq/ogawaen2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/pom.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,111 @@ + + + + CAFE+POM調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

CAFE+POM

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
2.20～30代
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(女性)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
グリーンカレー
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
いいえ
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
音楽イベントをやりたい
+
+
おすすめの穴場がありましたら教えて下さい。
+
中央公園
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
若手のお客様
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい(ホームページ)
+
+
電話回線は何をお使いですか?
+
ADSL
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
-
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
イベント活動の有無
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
酒田のことをもっと把握して欲しい。おしゃれで学生にも人気のお店 + で、Wi-Fi も使える。
+

+ +

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom1-150.jpg Binary file enq/pom1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom1-720.jpg Binary file enq/pom1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom1.jpg Binary file enq/pom1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom2-150.jpg Binary file enq/pom2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom2-720.jpg Binary file enq/pom2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom2.jpg Binary file enq/pom2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom3-150.jpg Binary file enq/pom3-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom3-720.jpg Binary file enq/pom3-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/pom3.jpg Binary file enq/pom3.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei1-150.jpg Binary file enq/romantei1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei1-720.jpg Binary file enq/romantei1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei1.jpg Binary file enq/romantei1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei2-150.jpg Binary file enq/romantei2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei2-720.jpg Binary file enq/romantei2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei2.jpg Binary file enq/romantei2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei3-150.jpg Binary file enq/romantei3-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei3-720.jpg Binary file enq/romantei3-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/romantei3.jpg Binary file enq/romantei3.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/rupo1-150.jpg Binary file enq/rupo1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/rupo1-720.jpg Binary file enq/rupo1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/rupo1.jpg Binary file enq/rupo1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/rupo2-150.jpg Binary file enq/rupo2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/rupo2-720.jpg Binary file enq/rupo2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/rupo2.jpg Binary file enq/rupo2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/skip.png Binary file enq/skip.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 enq/takeuti.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/takeuti.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,113 @@ + + + +竹内菓子舗調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

竹内菓子舗

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
4.60代～
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(その他)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
全部おすすめ
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
いいえ
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
駐車場が狭いので大きな駐車場があったらいい
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
年代関係なく、商店街に人通りを多くしたい
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
電話回線は何をお使いですか?
+
NTT
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
_
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
_
+

+ +

+ + + + diff -r a21a8b5813f7 -r e4deee2129f8 enq/tigusa.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/tigusa.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,113 @@ + + + + きもの千尋草調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

着物千尋草

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
3.40～50代
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(猫好きな人、女性)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
猫グッズ
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
いいえ
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
駐車場がないこと
+
+
おすすめの穴場がありましたら教えて下さい。
+
_
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
三味線の生徒を増やしたい
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.はい
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  _
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
1.はい(facebook, ブログ)
+
+
電話回線は何をお使いですか?
+
フレッツ光
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
-
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
三味線の活動
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
学生が全然来ない。猫グッズは可愛くて若者に人気が出そうなので、 + 宣伝次第で学生のお客さんが増えると思う。あと、facenook は登録して + いるだけで活用がなかなかできていないので、活用したいと考えている。
+

+ +

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 enq/tomizou.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/tomizou.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,109 @@ + + +篏��綺�茯炊�紫�� + + + + +

SWAN�SKIP�上�域��紫�篋�綣乗��紫��

+ +

篏��綺�

+ +

+
��綺��絮ゃ��韻��筝��с��鐚�
+ 1.鐔�10篁ｃ��2.20鐔�30篁� ��3.40鐔�50篁ｃ��4.60篁ｏ�
+
鐚�
+
+
��紊��с��鐚�
+ 1.絖��2.�泣��若��潟��3.絖��ｃ��4.��5.��
+
鐚�.鐚�鐚��綛翫��鐚�
+
+
��
+
�ユ��
+
+
��綺��絎ｄ��筝��с��筝�箴帥��障��?
+
_
+
+
��綺��ｃ��障��
+
_
+
+
��眼��障��
+
_
+
+
篁�緇��絎∽┌��紜��障��?
+
��篁ｃ��絎∽��紜��
+
+
��綺��с�ゃ�潟�帥�若��障��?
+ 1.�� 2.��
+
鐚�
+
1. ��篋�
  + ��篏帥��㏍��ゃ��鐚�� +
2. ��篋�
  + 篏睡��宴�� +
  _
  +
+
+
��綺�� facebook ��若��若�吾��ｃ��障��?
+ 1.�� 2.��
+
鐚�鐚�罐遵ぉ��阪��鐚�
+
+
�肢��膩��篏帥��с��?
+
��ISDN
+
+
�阪遣��鴻��若��潟�ф��宴��罎�膣≪��罘�篌��障��?
+ 1.�� 2.��
+
鐚�
+
+
篁�緇��筝㊦�冴��綺��SKIP��ｆ�冴��援�坂拭��茵�� + ��障��?
+ 1.�� 2.��
+
鐚�
+
+
(13�� 篋�)
+ ��宴��坂拭��с��?�障��柑�� + �с��?
+ (��沿В膈�)
+
_
+
+
腱��医��篋冴��＜��荀喝��絎≪��ｃ��違��宴��坂拭�� + ��ｃ��с��綺�茵��鴻��頳��荀�� + ��?��宴��荐��ャ��
+
絎ｄ��絲丞��ｃ��
+

+ + diff -r a21a8b5813f7 -r e4deee2129f8 enq/tukushi.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/enq/tukushi.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,111 @@ + + + + 土筆調査結果 + + + + +

SWAN×SKIP現地調査第二弾調査結果

+ +

土筆

+ +

+
お店の客層はどの層が一番多いですか？
+ 1.～10代　2.20～30代　3.40～50代　4.60代～
+
4.60代～、夜は若者の利用も多い
+
+
どのような客が多いですか？
+ 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
+
5.その他(お昼は高齢者、夜はサラリーマン)
+
+
この店に一番のおすすめ商品を教えて下さい。
+
Aランチ、Bランチ
+
+
お店を宣伝する上で、不便を感じることはありますか?
+
予約をしていないお客様への対応(土筆は予約制)
+
+
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
+
お店のホームページ
+
+
おすすめの穴場がありましたら教えて下さい。
+
響や(居酒屋)
+
+
今後どのようなお客樣を増やしていきたいと考えていますか?
+
宴会がメインなので社会人
+
+
お店でインターネットを利用していますか?
+ 1.はい 2.いいえ
+
1.いいえ
+
1. はいと答えた人
  + お使いのプロバイダを教えて下さい。 +
2. いいえと答えた人
  + 使用していない理由を教えて下さい。 +
  使い方が分からない
  +
+
+
お店の facebook やホームページを持っていますか?
+ 1.はい 2.いいえ
+
2.いいえ
+
+
電話回線は何をお使いですか?
+
いいえ
+
+
携帯やスマートフォンで情報を検索する機会はありますか?
+ 1.はい 2.いいえ
+
-
+
+
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ + けますか?
+ 1.はい 2.いいえ
+
1.はい(時間が合えば)
+
+
(13ではいと答えた人)
+ どのような情報を発信していきたいですか?また、どのような活動をしたい + ですか?
+ (自由解答)
+
気軽に入れるように値段をリーズナブルにしたい。
+
+
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた + いと思っているのですが、商店街の方として何かご意見、ご要望はありま + すか?自由にご記入ください。
+
駐車場がないのでつくって欲しい。活気のない時期があるので活気が + 欲しい。
+

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 event/city.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/event/city.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,26 @@ + + + +酒田シティハーフマラソン + + + + +

+ +

注意事項

☆事前にスマホ・タブレットからのアプリのダウンロードが必要だよおん

☆スタンプを押せるのは中町の5ヶ所のお店だよ

☆スタンプを3つ集めたら、引換えをしてね！

+ + +

スタンプラリーの参加方法はこちらで確認できま +す + + + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 event/downrad1.png Binary file event/downrad1.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/kamonkun01.png Binary file event/kamonkun01.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/kamonkun01_migi.png Binary file event/kamonkun01_migi.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/kamonkun03.png Binary file event/kamonkun03.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/kamonkun05.png Binary file event/kamonkun05.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/marathon2013.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/event/marathon2013.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,73 @@ + + +酒田シティハーフマラソン + + + + + + +

+ +

酒田シティハーフマラソン

+ +

SWAN　 +Project

+ +

気になるお店の吹き出しをクリック！！

+ + + + + + + + + + + + + + + +

+ +

スタンプラリーでお得なクーポンをスマホでゲット!

+ +

スタンプラリー参加の事前準備

スマホの「Google play」もしくは「App Store」を開き、「フレッツ」で無料ア +プリを検索します。
「FLET'S WiFiアプリ」を無料ダウンロードをします。

アプリを起動して、ユーザー登録をします。

酒田シティーハーフマラソンandどんしゃん祭り当日

スタンプラリー店舗に行って、スマホでスタンプを押していきます。

+ +

スタンプを3個集めて、賞品交換所でお得なクーポンをゲットしましょう!

+ + diff -r a21a8b5813f7 -r e4deee2129f8 event/marathon2013.html.orig --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/event/marathon2013.html.orig Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,73 @@ + + +酒田シティハーフマラソン + + + + + + +

+ +

酒田シティハーフマラソン

+ +

SWAN　 +Project

+ +

気になるお店の吹き出しをクリック！！

+ + + + + + + + + + + + + + + +

+ +

スタンプラリーでお得なクーポンをスマホでゲット!

+ +

スタンプラリー参加の事前準備

スマホの「Google play」もしくは「App Store」を開き、「フレッツ」で無料ア +プリを検索します。
「FLET'S WiFiアプリ」を無料ダウンロードをします。

アプリを起動して、ユーザー登録をします。

酒田シティーハーフマラソンandどんしゃん祭り当日

スタンプラリー店舗に行って、スマホでスタンプを押していきます。

+ +

スタンプを3個集めて、賞品交換所でお得なクーポンをゲットしましょう!

+ + diff -r a21a8b5813f7 -r e4deee2129f8 event/omise3.png Binary file event/omise3.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/omise4.png Binary file event/omise4.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/skip_map.png Binary file event/skip_map.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 event/stamp.png Binary file event/stamp.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 gaiyou.html --- a/gaiyou.html Wed Jul 24 15:52:22 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,42 +0,0 @@ - - -SKIP - Shonai Koeki Information Project - - - -

- -

SKIPへようこそ！

SKIP(スキップ)は、Shonai Koeki Information Project(庄内公益インフォ -メーションプロジェクト)のことで、東北公益文科大学の情報特別選抜から -設立されたサークルです。

現在、酒田市役所、商工会議所などと共に行われている「酒田Wi-Fiタウン化 -計画」の一環として、酒田の地域情報を発信するポータルサイトを作成中です。 -

このホームページでは、大学の授業にある「基礎プログラミング」で作成し -たプログラムを外部の人たちに利用してもらえるように改良したり、公益大生の -活躍を取材し、ホームページにアップしたりしています。最近は、課外活動をブ -ログで更新しています。

- - - diff -r a21a8b5813f7 -r e4deee2129f8 gaiyou.html~ --- a/gaiyou.html~ Wed Jul 24 15:52:22 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,38 +0,0 @@ - - -SKIP - Shonai Koeki Information Project - - - -

更新履歴

2/1 「きらりびと」更新しました！

- -

SKIP（Shonai Koeki Information Project)は地域活性化を目的とするアプリ -ケーションを作成するサークルです。

只今工事中です。
-もうしばらくお待ちください。

- - - - diff -r a21a8b5813f7 -r e4deee2129f8 girl.html --- a/girl.html Wed Jul 24 15:52:22 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,36 +0,0 @@ - - - SKIP - Shonai Koeki Information Project - - - -

- -

★きらりびと★

ここでは、頑張っている公益大生をピックアップして紹介しています！

NEW！01/22

- - - \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 home128.png Binary file home128.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 home256.png Binary file home256.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 home32.png Binary file home32.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 home64.png Binary file home64.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 index.html --- a/index.html Wed Jul 24 15:52:22 2013 +0900 +++ b/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -1,39 +1,91 @@ + SKIP - Shonai Koeki Information Project + -

+ +

更新履歴

6/29 ブログ更新しました！

+ +

SKIP（Shonai Koeki Information Project)は地域活性化を目的とするアプリ -ケーションを作成するサークルです。

今日の格言

随時更新します

+ +

-東北公益文化大学 SKIP + +<<<<<<< local +

新着情報hogehogehogehoge

+======= +

新着情報池田鶏肉店を取材！！

+ +

SKIPとは…

SKIPは、東北公益文科大学の情報特別選抜から設立されたサークルであり、 +酒田商工会議所が主催する「SWAN　Project」と協力して酒田地域の情報を発信することを目的としている。

+ +>>>>>>> other +

+☆STAFF☆ +

+ + + + + + + + + + + +

+ +

SKIPは、東北公益文科大学の情報特別選抜
+そして、みなさんもほげほげなのですhoge

+ diff -r a21a8b5813f7 -r e4deee2129f8 kirari128.png Binary file kirari128.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 kirari256.png Binary file kirari256.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 kirari32.png Binary file kirari32.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 kirari64.png Binary file kirari64.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 kiraribito/0122.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/kiraribito/0122.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,57 @@ + + +SKIP - Shonai Koeki Information Project + + + +

+ +

+ +

新着情報割烹出島さんの記事を更新！！

+ +

VAN

+東北公益文科大学では、情報の勉強に力を入れており、1年次には情報リテラシー、 +2年次には基礎プログラミングの講義を履修することになっています。 +今回、基礎プログラミングの講義の一環として、2年生が4～7人のグループをつくり、プログラムを作成しました。そのなかでも優れていたグループに、今回着目し取材しました。 +

+市民の方や、学生でもカフェテリアメニューを全て把握していない人が多いのではないでしょうか？また、メニューが多くて何を食べたら良いのか迷ってしまう人もいるのでは？そのような人のために、2年基礎プログラミング優勝グループVANの考えたプログラムが「東北公益文科大学カフェテリアメニュー検索プログラム」なのです！ +

SKIP インタビュー

Q1:どうしてこのプログラムを作ろうと思ったんですか？

今までの講義(基礎プログラミング)で習ったことを活かして、検索プログラムを作りたいと思ったのがきっかけです。そこで、東北公益文科大学1階にあるカフェテリアメニューを容易に検索できるプログラムがあれば役に立つと思い、作成に至りました。

Q2:カフェテリアメニュー検索プログラムの工夫したところは？

わかりやすいようにするために、メニューを撮影したところですね。実際に自分たちで +注文、または食べている人に頼んで撮影しました！

Q3:一年間基礎プログラミングの授業を受けての感想は？

課題が大変でしたが、分からないところは友達と補い合ってこなすこと +ができました。また、協調性の力が身についたと思います。

ありがとうございました( ´∀｀)！

+ + diff -r a21a8b5813f7 -r e4deee2129f8 kiraribito/girl.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/kiraribito/girl.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,31 @@ + + + SKIP - Shonai Koeki Information Project + + + +

+ +

新着情報割烹出島さんの記事を更新！！

+ +

★きらりびと★

ここでは、頑張っている公益大生をピックアップして紹介しています！

+ +NEW！ +

01/22	基礎プログラミング優勝 + チーム VAN

- -

復刻したプログラムと授業で作成したプログラムの一覧です。

復刻版

チーム作品

Aチーム

Bチーム

Cチーム

- - - \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/.htaccess Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,2 @@ +AddHandler cgi-script .rb +Options +ExecCGI diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/arerugika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/arerugika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,34 @@ + + + +アレルギー科 + + +

+ +

+

+ + + + + + + + + + + +
特長皮膚科と呼吸科にまたがって、アレルギーだけを扱う
主な症状湿疹が出る肌が痒い
主な病気アレルギー性結膜炎ぜんそく
+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/biyougeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/biyougeka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,34 @@ + + + +美容外科 + + +

+ +

+

+ + + + + + + + + +
特長眼、鼻、顔面、皮膚などについて、
+ これに起因する精神的負担の軽減、除去効果も考慮し、
+ この形状をより美的に形成する
主な処置豊胸　美容整形　脂肪吸引　永久脱毛 +
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara2.png Binary file program/6hour/chara2.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_arerugika.png Binary file program/6hour/chara_arerugika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_benpi.png Binary file program/6hour/chara_benpi.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_biyougeka.png Binary file program/6hour/chara_biyougeka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_fuan.png Binary file program/6hour/chara_fuan.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_ganka.png Binary file program/6hour/chara_ganka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_geka.png Binary file program/6hour/chara_geka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_gekkei.png Binary file program/6hour/chara_gekkei.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_genkaku.png Binary file program/6hour/chara_genkaku.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_ha.png Binary file program/6hour/chara_ha.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_hanamizu.png Binary file program/6hour/chara_hanamizu.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_hihuka.png Binary file program/6hour/chara_hihuka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_hinilyoukika.png Binary file program/6hour/chara_hinilyoukika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_houkyo.png Binary file program/6hour/chara_houkyo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_houshasentiryouka.png Binary file program/6hour/chara_houshasentiryouka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_houshasindanka.png Binary file program/6hour/chara_houshasindanka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_housilyasenka.png Binary file program/6hour/chara_housilyasenka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_huzinka.png Binary file program/6hour/chara_huzinka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_ichouka.png Binary file program/6hour/chara_ichouka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_iga.png Binary file program/6hour/chara_iga.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_ira.png Binary file program/6hour/chara_ira.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_jibiinkouka.png Binary file program/6hour/chara_jibiinkouka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_junkankika.png Binary file program/6hour/chara_junkankika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_kata.png Binary file program/6hour/chara_kata.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_keiseigeka.png Binary file program/6hour/chara_keiseigeka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_kikanshokudouka.png Binary file program/6hour/chara_kikanshokudouka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_kilyouseisika.png Binary file program/6hour/chara_kilyouseisika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_kokilyuukika.png Binary file program/6hour/chara_kokilyuukika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_kokyu.png Binary file program/6hour/chara_kokyu.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_koshi.png Binary file program/6hour/chara_koshi.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_koumonka.png Binary file program/6hour/chara_koumonka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_masuika.png Binary file program/6hour/chara_masuika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_me.png Binary file program/6hour/chara_me.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_memai.png Binary file program/6hour/chara_memai.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_mimi.png Binary file program/6hour/chara_mimi.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_monoasure.png Binary file program/6hour/chara_monoasure.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_naika.png Binary file program/6hour/chara_naika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_natsu.png Binary file program/6hour/chara_natsu.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_nodo.png Binary file program/6hour/chara_nodo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_nousinkeigeka.png Binary file program/6hour/chara_nousinkeigeka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_onaka.png Binary file program/6hour/chara_onaka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_rihabirika.png Binary file program/6hour/chara_rihabirika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_riumatika.png Binary file program/6hour/chara_riumatika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_sanhujinka.png Binary file program/6hour/chara_sanhujinka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_sanka.png Binary file program/6hour/chara_sanka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_seibyouka.png Binary file program/6hour/chara_seibyouka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_seikei.png Binary file program/6hour/chara_seikei.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_seikeigeka.png Binary file program/6hour/chara_seikeigeka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_seisinka.png Binary file program/6hour/chara_seisinka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_seki.png Binary file program/6hour/chara_seki.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_shoukakika.png Binary file program/6hour/chara_shoukakika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_shounika.png Binary file program/6hour/chara_shounika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_shounisika.png Binary file program/6hour/chara_shounisika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_sika.png Binary file program/6hour/chara_sika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_sikakoukuuka.png Binary file program/6hour/chara_sikakoukuuka.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_sinkeinaika.png Binary file program/6hour/chara_sinkeinaika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_sinlyounaika.png Binary file program/6hour/chara_sinlyounaika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_syokuyoku.png Binary file program/6hour/chara_syokuyoku.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_yakedo.png Binary file program/6hour/chara_yakedo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/chara_zutsu.png Binary file program/6hour/chara_zutsu.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/ganka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/ganka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,38 @@ + + + +眼科 + + +

+ +

+

+ + + + + + + + + + + + +
特長目に関する病気の診療
主な症状視力が落ちた　モノがみえずらい
+　視野が狭くなった　充血　乾き　疲れ
+　痛み　違和感　まぶたの腫れ +
主な病気白内障　ドライアイ　網膜はく離
+　緑内障　アレルギー性結膜炎
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/geka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/geka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,35 @@ + + + +外科 + + +

+ +

+

+ + + + + + + + + + + +
特長手術によって治療を行う
主な症状　外傷　腫瘍　炎症
+ 　（体のあらゆる部位・臓器にわたる）
+
主な病気肝血管腫漏斗胸
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/gogo2.png Binary file program/6hour/gogo2.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/gozen2.png Binary file program/6hour/gozen2.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/h_murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/h_murayama.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/h_okitama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/h_okitama.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :内科:外科:神経科:脳神経外科: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hifuka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hifuka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,36 @@ + + + +皮膚科 + + +

+ +

+

+ + + + + + + + + + + + +
特長皮膚・口腔・爪・髪の毛などの疾患を対象として診療する
主な症状肌がぶつぶつする肌荒れ肌のかゆみ
主な病気アトピー性皮膚炎　皮膚炎　あせも + 　にきび　水虫 +
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/higamurayama_yamanobe.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/higamurayama_yamanobe.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/higasine.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/higasine.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土月,火,水,木,金,土日,祝 :整形外科:リハビリテーション科 + + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hinyokika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hinyokika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,35 @@ + + + +泌尿器科 + + +

+ +

+

+ + + + + + + + + + + + +
特長腎臓・膀胱・陰茎・尿管・尿道・精巣・前立腺などに関する診療をする
主な症状血尿高血圧腰痛体重減少
主な病気腎がん膀胱がん腎下垂症包茎
+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hospital.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hospital.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,177 @@ + + + + + +病院検索 + + + + + + +

+ + +

診療科検索

+ +

+ + + +

+ + +
+

プログラムについて

このプログラムは、～を基に、東北公益文科大学最長 6 時間が作成し + SKIPが改良したものです。
このページにおいて提供されているコンテンツに +関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。
また、 +このプログラムはデモ版であり、このページから得られた情報に関しての責任は +一切負いません。

+
+SKIP + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hospital.png Binary file program/6hour/hospital.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hospital_kensaku4.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hospital_kensaku4.rb Tue Feb 18 15:41:42 2014 +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("\n") # HTMLの規定 +print("\n") # HTMLの設定 +print("\n") + # cssの設定 +printf("%sの検索結果\n",chiiki) # の表示 +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の規定(閉) diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hospitalkeka.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hospitalkeka.rb Tue Feb 18 15:41:42 2014 +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\n",na) # の表示 +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の規定(閉) diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hospitalkensaku.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hospitalkensaku.css Tue Feb 18 15:41:42 2014 +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;} + +} diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/hospitalkensaku.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/hospitalkensaku.rb Tue Feb 18 15:41:42 2014 +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>タグ検索結果\n") # の表示 +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の規定(閉) diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/huton.png Binary file program/6hour/huton.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/ichouka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/ichouka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,35 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>胃腸科 + + +

+ +

胃腸科 +

+ + + + + + + + + + + +
特長胃腸消化管肝臓胆のうすい臓などに関する疾患の診療
主な症状胸焼け胃もたれ吐き気食欲不振
+ 胃痛腹痛便秘下痢血便
+
主な病気胃炎胃潰瘍ウイルス性胃腸炎胃がん大腸炎など
+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/jibiinkouka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/jibiinkouka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,34 @@ + + + +耳鼻いんこう科 + + +

+ +

+

+ + + + + + + + + + + + +
特長耳・鼻・のど(咽喉)などの他に口腔や食道などの気管も対象として診療している
主な症状くしゃみ鼻づまり聴力の低下
主な病気アレルギー性鼻炎慢性鼻炎歯性上顎洞炎副鼻腔炎
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/junkankika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/junkankika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,38 @@ + + + +循環器科 + + +

+ +

循環器科 +

+ + + + + + + + + + + +
特長心臓と血管に関する疾患の診療
主な症状安静時・運動時の胸部の痛み
+ 背中の痛み動機・息切れ
+ 脈の乱れめまい立ちくらみ +
主な病気高血圧糖尿病
+ 心筋梗塞狭心症不整脈 +
+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/k_murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/k_murayama.txt Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,6 @@ +吾妻クリニック山形県北村山郡大石田町大字大石田甲93-4 0237352021 月,水,木,金,土,日月,水,木,金,土火,祝 :内科:消化器科:小児科:外科:皮膚科:肛門科: +後藤医院山形県北村山郡大石田町大石田乙94 0237352034 月,火,水,木,金,土月,火,木,金日,祝 :内科:婦人科: +石山歯科クリニック山形県北村山郡大石田町緑町11-1 0237361788 月,火,水,木,金,土月,火,水,木,金日,祝 :歯科:小児歯科: +吾妻歯科クリニック山形県北村山郡大石田町大字大石田乙606 0237356480 月,火,水,木,金,土月,火,水,金,土日,祝 :歯科:矯正歯科: +庄司歯科医院山形県北村山郡大石田町今宿393-62 0237352122 不定期不定期不定期 :歯科: +神部歯科医院山形県北村山郡大石田町大石田丁64 0237352037 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kaminoyama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kaminoyama.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/keiseigeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/keiseigeka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,41 @@ + + + +形成外科 + + +

+ +

+

+ + + + + + + + + + + + +
特長体表面を中心とするあらゆる先天性・後天性の変形を
+ 外科的手段などにより正常に近づけ
+ 患者さんの肉体的・精神的苦痛を取り除く
主な症状 + 外傷（顔面骨骨折の治療）
+ 先天異常（口唇裂　多指症　小耳症）
+ 腫瘍（やけどやけがによる変形・傷跡）
+ 美容（でべそ　わきが） +
主な病気陥入爪眼瞼下垂脂肪腫小耳症
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kensaku2.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kensaku2.css Tue Feb 18 15:41:42 2014 +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; +} diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kensakulogo.png Binary file program/6hour/kensakulogo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kikanshokudouka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kikanshokudouka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,35 @@ + + + +気管食道科 + + +

+ +

+

+ + + + + + + + + + + + +
特長耳鼻咽喉科と呼吸器化との間を埋める
+ 咽頭や下咽頭　気管支などの診察
主な症状長い間咳がとまらないのどの痛み違和感
主な病気食道がん　アレルギー性気管支炎
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kitamurayama_ooisida.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kitamurayama_ooisida.txt Tue Feb 18 15:41:42 2014 +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: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kokyukika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kokyukika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,36 @@ + + + +呼吸器科 + + +

+ +

呼吸器科

+ + + + + + + + + + + + + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kuchi.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kuchi.txt Tue Feb 18 15:41:42 2014 +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 diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kuchikomi.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kuchikomi.css Tue Feb 18 15:41:42 2014 +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;} diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/kuchikomi.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/kuchikomi.rb Tue Feb 18 15:41:42 2014 +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("\n") # HTMLの規定 + print("\n") # HTMLの設定 + print("\n") + # cssの設定 + print("エラー\n") # の表示 + 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>くちこみ\n") # の表示 + 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 diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/mikawa.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/mikawa.txt Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,4 @@ +みかわキッズクリニック山形県東田川郡三川町大字猪子字大堰端379-7 0235350666 月,木,金,土,日月,水,木,金火,祝 :小児科:アレルギー科: +協立三川診療所山形県東田川郡三川町横山袖東4-9 0235664770 火,水火,水月,木,金,土,日,祝 :内科:整形外科: +三川病院山形県東田川郡三川町大字横山字堤39番地 0235680150 月,火,水,木,金月,火,水,木,金土,日,祝 :内科:心療内科:精神科:神経科: +三川歯科山形県東田川郡三川町横山字袖東2-1 0235662800 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/mogami.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/mogami.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土月,水,金日,祝 :内科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/murayama.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土月,火,木,金日,祝 :内科:循環器科:リハビリテーション科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/n_murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/n_murayama.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土月,火,水,木,金日,祝 :内科:消化器科:小児科:放射線科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/n_okitama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/n_okitama.txt Tue Feb 18 15:41:42 2014 +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 月,水なし火,木,金,土,日,祝 :内科: + + + + + + + + + + + + + + + + + + + + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/nagai.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/nagai.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土月,火,木,金日,祝 :歯科: + + + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/naika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/naika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,37 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>内科 + + +

+ + +

特長	呼吸器(肺、気管、気管支、胸壁など)に関わる疾患のうち、 + 内科的治療行う
主な症状	呼吸が苦しい咳やたんが多い + 深呼吸すると胸や背中が痛い +
主な病気	風邪インフルエンザ慢性気管支炎 + 肺炎肺梗塞肺がんなど +

+ + + + + + + + + +

特長	プライマリーケア（初期診療）の役割を持つ +他の診療科と連携して治療を行うことが多い +高校生以上の大人に対して病気全般や軽度な外傷の診断と手術以外の治療 +生活習慣病の改善のための管理や指導も行う +
主な症状	腹痛頭痛風邪
主な病気	風邪生活習慣病など

+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/nanyo.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/nanyo.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/niko.png Binary file program/6hour/niko.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/nishimurayama_kahoku.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/nishimurayama_kahoku.txt Tue Feb 18 15:41:42 2014 +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|.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: + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/noushinkeigeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/noushinkeigeka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,41 @@ + + + +脳神経外科 + + +

+ +

+

+ + + + + + + + + + + + +
特長脳・脊髄・末梢神経系や血管・骨・筋肉など
+ 神経系疾患の中で主に外科的治療の対象になる疾患について診療する
主な症状もの忘れ頭痛けいれん言語理解の損失意識傷害
主な病気　くも膜下出血　脳梗塞　脳卒中
+　脳腫瘍　椎間板ヘルニア
+ 　頭骸骨骨折　頭蓋内出血
+ 　老化と痴呆（水頭症　脳血流低下など）
+ 　先天奇形
+ 　炎症性疾患（髄膜炎　脳炎　寄生虫） +
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/obanazawa.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/obanazawa.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/riumachi.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/riumachi.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,42 @@ + + + +リウマチ科 + + +

+ +

+

+ + +
$\"リウマチ科\"$
+
+ + + + + + + + + + +
特長
主な症状関節やその周囲には腫れや痛みを伴うリウマチを中心とした
+ 自己免疫疾患の診察・治療　関節が痛く、
+ 発熱、倦怠感、体重の減少なども伴う +
主な病気関節リウマチ全身性硬化
+　血管炎症候群　骨粗しょう症痛風 +
+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagae.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagae.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土月,火,木,金日,祝 :眼科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagasu.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagasu.css Tue Feb 18 15:41:42 2014 +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;} diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagasu.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagasu.rb Tue Feb 18 15:41:42 2014 +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("\n") +print("\n") +print("\n") +print("症状検索\n") # の表示 +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>診療科の検索\n") # の表示 +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 diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagasu_ka.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagasu_ka.css Tue Feb 18 15:41:42 2014 +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;} diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagasu_ka3.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagasu_ka3.rb Tue Feb 18 15:41:42 2014 +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>診療科の情報\n") # の表示 +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") diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagasu_shojo.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagasu_shojo.css Tue Feb 18 15:41:42 2014 +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;} + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sagasu_shojo.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sagasu_shojo.rb Tue Feb 18 15:41:42 2014 +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>症状の情報\n") # の表示 +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") diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sakata.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sakata.dat Tue Feb 18 15:41:42 2014 +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 月,火,水,木,金,土なし日,祝 :精神科:神経科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sanfujinka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sanfujinka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,38 @@ +<html> +<head> +<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> +<title>産婦人科 + + +

+ +

+

+ + + + + + + + + + + + +
特長産科と婦人科の2つを併合したもの。
+ 　妊娠　分娩　産後ケア
+ 　生理不順　更年期
+ 　卵巣・卵管・子宮などに起因する病気 +
主な症状子宮からの出血下腹痛腰痛
主な病気更年期障害　悪性腫瘍　性感染症切迫流産早産妊娠中毒症前置胎盤
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/seibyoka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/seibyoka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,39 @@ + + + +性病科 + + +

+ +

+

+ + + + + + + + + + + + +
特長性行為によって感染する性行為感染症に関する診療をする
主な症状月経がこない腹部の痛み
+ 陰部に硬結があらわれる
+ おりものが多い +
主な病気淋病、梅毒、性器ヘルペス
+ 尖圭コンジローマ、クラミジア感染症
+
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/seikeigeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/seikeigeka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,35 @@ + + + +整形外科 + + +

+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/seishinka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/seishinka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,37 @@ + + + +精神科 + + +

+ +

精神科 +

+ + + + + + + + + + + +
特長精神疾患や心の病気を診療する
主な症状過度な不安抑鬱イライラ
+幻覚幻聴妄想など
主な病気統合失調病アルツハイマー
+パニック障害うつ病 ADHD など + +
+※神経科とほぼ同様の診療

+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sensei.png Binary file program/6hour/sensei.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/shika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/shika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,34 @@ + + + +歯科 + + +

+ +

+

+ + + + + + + + + + + + +
特長虫歯や歯並びの治療から歯茎の治療まで行う
主な症状歯の痛み歯がしみる
主な病気虫歯知覚過敏歯周病歯肉炎
+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/shikakoukuuka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/shikakoukuuka.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,39 @@ + + + +歯科口腔科 + + +

+ +

+

+ + + + + + + + + + + + +
特長虫歯などの歯科的な疾患だけでなく口腔外科疾患では
+ 病巣感染の原因除去などの口腔ケアも行っています。
主な症状歯の痛み口内炎
主な病気舌癌口腔底癌エナメル上皮腫唇顎口蓋裂
+ + + + + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/shinkeinaika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/shinkeinaika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,35 @@ + + + +神経内科 + + +

+ +

神経内科

+ + + + + + + + + + + +

特長	脳神経系の疾患を診療する
主な症状
主な病気	脳血管障害パーキンソン病 + 脳腫瘍など + 脳になにかできている病気

+ + + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/shonika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/shonika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,37 @@ + + + +小児科 + + +

+ +

+

+ + + + + + + + + + + +
特長こどもの疾患に関して診療
主な症状発熱咳がとまらない食欲低下
+ 泣き方が弱弱しい　下痢・嘔吐が続く
+　皮膚や白目が黄色い　けいれん +
主な病気小児喘息咽頭結膜熱プール熱
+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/shoukakika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/shoukakika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,37 @@ + + + +消化器科 + + + +

+ +

+ +

+ + + + + + + + + + +

特長	消化管肝臓胆のうすい臓などの疾患に関する診療
主な症状	体重減少胃痛便秘下痢血便 + 胸焼け胃もたれ吐き気食欲不振 +
主な病気	アルコール性肝炎逆流性食道炎腹膜炎など +

+ + +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sinjou.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sinjou.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sinkeika.png Binary file program/6hour/sinkeika.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/sinryonaika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/sinryonaika.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,39 @@ + + + +心療内科 + + +

+ +

$\"心療内科\"$ + +

+ + + + + + + + + + + +
特長心身病に関する診療を行う
+身体疾患の中でも、心理社会的な因子が関与しているもの
+ ただし、精神障害に伴う場合は除外する。 +
主な症状腹痛、下痢、便秘、頭痛など
+ただし、心理社会的な因子が関与する場合 +
主な病気過敏性腸症候群など
+

+ +

+検索画面へ戻る
+最短0.6秒TOP
+最長 6 時間TOP
+最長6時間 +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/smile.png Binary file program/6hour/smile.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/syounai.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/syounai.dat Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/telephone.png Binary file program/6hour/telephone.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/tendo.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/tendo.txt Tue Feb 18 15:41:42 2014 +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 月,火,水,金月,火,水,金木,土,日,祝 :矯正歯科: diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/turuoka.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/turuoka.dat Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: + + + + + + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/yamagatashi.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/yamagatashi.txt Tue Feb 18 15:41:42 2014 +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)---- diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/yonezawa.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/yonezawa.txt Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :歯科: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/yubin.png Binary file program/6hour/yubin.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/6hour/yuza.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/6hour/yuza.dat Tue Feb 18 15:41:42 2014 +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 不定期不定期不定期 :外科: diff -r a21a8b5813f7 -r e4deee2129f8 program/bana1-7.png Binary file program/bana1-7.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/bana3-17.png Binary file program/bana3-17.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/.htaccess Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,2 @@ +AddHandler cgi-script .rb +Options +ExecCGI diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/.xvpics/bus.png Binary file program/bus_cgi/.xvpics/bus.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/bus.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/bus.css Tue Feb 18 15:41:42 2014 +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;} diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/bus.png Binary file program/bus_cgi/bus.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/bus.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/bus.rb Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,124 @@ +#!/usr/bin/env 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("\n") +print("\n") +print("結果\n") +print("\n") +print("\n") +print("\n") +print("

検索結果

\n") +print("

") +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("

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

\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("

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

\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("

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

\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("

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

\n",arr ,ahour, amin) + break + else + a += 1 + end + end +end +print("戻る +SKIP") +print("\n") +print("\n") diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/daigaku.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/daigaku.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,107 @@ + + + +るんるんバス時刻検索 + + + + + +

+ +

酒田駅大学線バス時刻検索

+
+

路線図

作成中です・・・

+
+

時刻検索

駅方面 +かんぽの郷方面

出発＊ +

+ +

到着＊ +

+ +

時刻＊ + : + +出発 +到着
+

+ +

+ + +

+
+

プログラムに関して

このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学 +SKIPが作成したものです。
このページにおいて提供されているコンテンツに +関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。
また、 +このプログラムはデモ版であり、このページから得られた情報に関しての責任は +一切負いません。

+
+戻る +SKIP + + diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/daigaku.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/daigaku.rb Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,124 @@ +#!/usr/bin/env 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("\n") +print("\n") +print("結果\n") +print("\n") +print("\n") +print("\n") +print("

検索結果

\n") +print("

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

乗車

") + printf("

%s %s:%s\n

\n",dep ,dhour, dmin) + print("

降車

") + printf("

%s %s:%s\n

\n",arr ,ahour, amin) + break + else + a += 1 + end + end +end +print("
戻る +SKIP") +print("\n") +print("\n") diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/home.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/home.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,34 @@ + + + +るんるんバス時刻検索 + + + + + +

酒田市福祉乗合バス時刻検索

+
+

路線図

+
+

路線一覧

市内循環線 ... 毎日運行

酒田駅大学線 ... 毎日運行

古湊砂越駅線 ... 月・水・金曜日運行

八幡日本海総合病院 ... 火・木・土曜日運行

酒田駅かんぽ線 ... 火・木・土曜日運行

+
+

プログラムに関して

このプログラムは、酒田市福祉乗合バス時刻表を基に、東北公益文科大学SKIPが作成したものです。
このページにおいて提供されているコンテンツに関して、編集著作権を含む一切の権利は管理者SKIPが保有致します。
また、このプログラムはデモ版であり、このページから得られた情報に関しての責任は一切負いません。

+
+SKIP + + diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/kanpo.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/kanpo.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,101 @@ + + + +るんるんバス時刻検索 + + + + + +

+ +

酒田駅かんぽ線バス時刻検索

+
+

路線図

作成中です・・・

+
+

時刻検索

悠々の杜温泉方面 +古湊方面

出発＊ +

+ +

到着＊ +

+ +

時刻＊ + : + +出発 +到着 +

+ +

+ + +

+
+

プログラムに関して

+ + diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/kominato.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/kominato.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,101 @@ + + + +るんるんバス時刻検索 + + + + + +

+ +

古湊砂越駅線バス時刻検索

+
+

路線図

作成中です・・・

+
+

時刻検索

悠々の杜温泉方面 +古湊方面

出発＊ +

+ +

到着＊ +

+ +

時刻＊ + : + +出発 +到着 +

+ +

+ + +

+
+

プログラムに関して

+ + diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/rosen.obj --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/rosen.obj Tue Feb 18 15:41:42 2014 +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,[ +]). diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/rosen.png Binary file program/bus_cgi/rosen.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/rosenzu.obj --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/rosenzu.obj Tue Feb 18 15:41:42 2014 +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")]) +]) +])]). diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/rosenzu.png Binary file program/bus_cgi/rosenzu.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/shinai.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/shinai.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,176 @@ + + + +るんるんバス時刻検索 + + + + + +

+ +

市内循環線バス時刻検索

+
+

路線図

作成中です・・・

+
+

時刻検索

右回り +左回り

出発＊ +

+ +

到着＊ +

+ +

時刻＊ + : + +出発 +到着 +

+ +

+ + +

+
+

プログラムに関して

+
+戻る +SKIP + + diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/shinai.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/shinai.rb Tue Feb 18 15:41:42 2014 +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("\n") +print("\n") +print("結果\n") +print("\n") +print("\n") +print("\n") +print("

市内循環線バス時刻検索/h1>
\n") +print("") +print("

検索結果

乗車 %s %s:%s\n

\n",dep ,dhour, dmin) + printf("

降車 %s %s:%s\n

乗車 %s %s:%s\n

\n",dep ,dhour, dmin) + printf("

降車 %s %s:%s\n

乗車 %s %s:%s\n

\n",dep ,dhour, dmin) + printf("

降車 %s %s:%s\n

乗車 %s %s:%s\n

\n",dep ,dhour, dmin) + printf("

降車 %s %s:%s\n

\n",arr ,ahour, amin) + break + else + a += 1 + end + end +end +print("
戻る +SKIP") +print("\n") +print("\n") diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/yahata.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/yahata.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,100 @@ + + + +るんるんバス時刻検索 + + + + +

+ +

八幡日本海総合病院線バス時刻検索

+
+

路線図

作成中です・・・

+
+

時刻検索

悠々の杜温泉方面 +古湊方面

出発＊ +

+ +

到着＊ +

+ +

時刻＊ + : + +出発 +到着 +

+ +

+ + +

+
+

プログラムに関して

+ + diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/zikan.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/zikan.rb Tue Feb 18 15:41:42 2014 +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 diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/zikoku1.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/zikoku1.txt Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,12 @@ +0740,0910,1050,1210,1330,1455,1705,1815,2010,かんぽの郷 +0742,0912,1052,1212,1332,1457,1707,1817,2012,出羽遊心館・美術館 +0743,0913,1053,1213,1333,1458,1708,1818,2013,工業団地前 +0746,0916,1056,1216,1336,1501,1711,1821,2016,土門拳記念館 +0747,0917,1057,1217,1337,1502,1712,1822,2017,大学前 +0752,0927,1102,1227,1342,1512,1717,1832,2022,市営体育館前 +0754,0929,1104,1229,1344,1514,1719,1834,2024,山居町東 +0756,0931,1106,1231,1346,1516,1721,1836,2026,二番町 +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,八雲神社前 +802,0937,1112,1237,1352,1522,1727,1842,2032,酒田駅正面口 diff -r a21a8b5813f7 -r e4deee2129f8 program/bus_cgi/zikoku2.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/bus_cgi/zikoku2.txt Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,12 @@ +0705,0820,1015,1130,1250,1410,1600,1735,1920,酒田駅正面口 +0706,0821,1016,1131,1251,1411,1601,1736,1921,八雲神社前 +0707,0822,1017,1132,1252,1412,1602,1737,1922,文化センター前 +0710,0825,1020,1135,1255,1415,1605,1740,1922,中町西 +0711,0826,1021,1136,1256,1416,1606,1741,1925,二番町 +0713,0828,1023,1138,1258,1418,1608,1743,1928,山居町東 +0715,0830,1025,1140,1300,1420,1610,1745,1930,市営体育館前 +0720,0840,1030,1150,1305,1430,1615,1755,1935,大学前 +0721,0841,1031,1151,1306,1431,1616,1756,1936,土門拳記念館 +0724,0844,1034,1154,1309,1434,1619,1759,1939,工業団地前 +0725,0845,1035,1155,1310,1435,1620,1800,1940,出羽遊心館・美術館 +0727,0847,1037,1157,1312,1437,1622,1802,1942,かんぽの郷 diff -r a21a8b5813f7 -r e4deee2129f8 program/button.png Binary file program/button.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/button2.png Binary file program/button2.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/cgi/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/cgi/.htaccess Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,4 @@ +Options +ExecCGI +AddType "text/html; charset=utf-8" .rb +AddHandler cgi-script .rb +AddHandler cgi-script .sh diff -r a21a8b5813f7 -r e4deee2129f8 program/cgi/bus.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/cgi/bus.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,96 @@ + + + +るんるんバス時刻検索 + + + + + +

+ +

酒田市福祉乗合バスを活用しよう

+
+

るんるんバス時刻検索

+駅方面 +かんぽの郷方面 +

出発＊ +

+ +

到着＊ +

+ +

時刻＊ + : + +出発 +到着 +

+ +

+ + +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/cgi/bus.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/cgi/bus.rb Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,86 @@ +#!/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("/home/irhome/c110/c110188/Ruby/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_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 + end + end + +elsif direc == "k" + open("/home/irhome/c110/c110188/Ruby/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_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 + end + end +end + +time = hour + min + +# p time + +print("\n") +print("\n") +print("結果\n") +print("\n") +print("\n") +print("\n") +print("

検索結果

\n") + +a = 0 +if which == "t" + while true + if time.to_i < bus[arr][0] + print("

乗車

") + printf("

%s %d\n

\n",dep,bus[dep][8]) + printf("

下車 %s %d\n

\n",arr,bus[arr][8]) + break + elsif a >= 8 || time.to_i > bus[arr][a] && time.to_i < bus[arr][a+1] + print("

乗車

") + printf("

%s %d\n

\n",dep,bus[dep][a]) + print("

下車

") + printf("

%s %d\n

\n",arr,bus[arr][a]) + break + else + a += 1 + end + end +elsif which == "s" + while true + if time.to_i < bus[dep][0] || time.to_i > bus[dep][8] + printf("

乗車 %s %d\n

\n",dep,bus[dep][0]) + printf("

下車 %s %d\n

\n",arr,bus[arr][0]) + break + elsif time.to_i > bus[dep][a] && time.to_i < bus[dep][a+1] + printf("

乗車 %s %d\n

\n",dep,bus[dep][a+1]) + printf("

下車 %s %d\n

\n",arr,bus[arr][a+1]) + break + else + a += 1 + end + end +end + +print("\n") +print("\n") diff -r a21a8b5813f7 -r e4deee2129f8 program/cgi/env.sh --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/cgi/env.sh Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,3 @@ +#!/bin/sh +echo Content-type: text/plain +env|sort diff -r a21a8b5813f7 -r e4deee2129f8 program/cgi/test.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/cgi/test.rb Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,14 @@ +#!/usr/bin/env ruby19 +# coding: utf-8 + +print <<_EOF_ +Content-Type: text/html; charset=utf-8 + + +Test CGI script + + +

�ユ��阪��鴻��

+ + +_EOF_ diff -r a21a8b5813f7 -r e4deee2129f8 program/menubutton.png Binary file program/menubutton.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/program.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/program/program.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,37 @@ + + + +SKIP - Shonai Koeki Information Project + + + + + +

+ +

+ + +

復刻したプログラムと授業で作成したプログラムの一覧です。

復刻版

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 program/program128.png Binary file program/program128.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/program256.png Binary file program/program256.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/program32.png Binary file program/program32.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program/program64.png Binary file program/program64.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program128.png Binary file program128.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program256.png Binary file program256.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program32.png Binary file program32.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 program64.png Binary file program64.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 repo.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/repo.rb Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,65 @@ +#!/usr/bin/ruby +# coding: euc-jp + +time = Time.now + +STDERR.print "��綺�(css��ュ��)\n" +STDERR.print "1.蕋��合��(food) 2�ョ��綺�(shop) 3.��(other):" +choice = gets.chomp + +STDERR.print "綺��:\n" +sbj = gets.chomp + +history = "" +STDERR.print "罩翫�(��帥��х�篋�)\n" +while true + his = gets + if his == ".\n" || his == nil then + break + end + history += his +end + +regend = "" +STDERR.print "篌�茯�(��帥��х�篋�)\n" +while true + reg = gets + if reg == ".\n" || reg == nil then + break + end + regend += reg +end + +STDERR.print "��\n" +osu = gets.chomp + +STDERR.print "�灸梢��\n" +yu = gets.chomp + +STDERR.print "篏��\n" +add = gets.chomp + +STDERR.print "�肢��\n" +tel = gets.chomp + +STDERR.print "��≪��㏍�若��:" +before = gets.chomp +STDERR.print "篆�絖��:" +after = gets.chomp +`convert -geometry 150x100 #{before}.jpg #{after}.jpg` + +open("temp.txt", "r") do |cm| + while x = cm.gets + x.gsub!("%choice%", choice) + x.gsub!("%time%", time.to_s) + x.gsub!("%sbj%", sbj) + x.gsub!("%after%", after) + x.gsub!("%history%", "

"+history.chomp+"

") + x.gsub!("%regend%", "

"+regend.chomp+"

") + x.gsub!("%osu%", osu) + x.gsub!("%yu%", yu) + x.gsub!("%add%", add) + x.gsub!("%tel%", tel) + print x + end +end diff -r a21a8b5813f7 -r e4deee2129f8 ruby/hoge.png Binary file ruby/hoge.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 ruby/hoge_map.shtml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ruby/hoge_map.shtml Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,3 @@ + + + diff -r a21a8b5813f7 -r e4deee2129f8 ruby/pro2.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ruby/pro2.rb Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,87 @@ +#!/usr/koeki/bin/ruby +# coding: euc-jp + +require 'fileutils' +time = Time.now + +if ARGV[0] == nil + STDERR.print "./pro2.rb 生成するファイル名.html で起動してください\n" + exit(1) +end + +name = ARGV[0].to_s + +open(name, "w") do |out| + css = ["syuzai", "enq", "other"] + x = 0 + STDERR.print "取材した店(番号を選択)\n" + STDERR.print "1.取材、伝説 2.アンケート調査:" + sentaku = STDIN.gets.chomp.to_i + choice = css[sentaku-1] + + STDERR.print "店の名前:" + sbj = STDIN.gets.chomp + + history = "" + STDERR.print "歴史(return 2回押して終了)\n" + while true + his = STDIN.gets + if his == "\n" || his == nil then + break + end + history += his + end + + regend = "" + STDERR.print "伝説(return 2回押して終了)\n" + while true + reg = STDIN.gets + if reg == "\n" || reg == nil then + break + end + regend += reg + end + + STDERR.print "おすすめ品\n" + osu = STDIN.gets.chomp + + STDERR.print "郵便番号(半角)\n" + yu = STDIN.gets.chomp + + STDERR.print "住所\n" + add = STDIN.gets.chomp + + STDERR.print "電話番号(半角)\n" + tel = STDIN.gets.chomp + + STDERR.print "写真をアップロード\n" + STDERR.print "元の画像を選んでください:" + before = STDIN.gets.chomp + + STDERR.print "保存する画像の名前を決めてください:" + after = STDIN.gets.chomp + `convert -geometry 150x100 #{before} #{after}` + STDERR.print "画像はsyuzai/ に保存します。\n" + FileUtils.mv(after, '../syuzai/') + + #STDERR.print "保存先を指定してください\n" + #save = STDIN.gets.chomp + FileUtils.mv(name, '../syuzai') + STDERR.print "ファイルは../syuzai に保存されました\n" + + open("temp.txt", "r") do |cm| + while x = cm.gets + x.gsub!("%choice%", choice) + x.gsub!("%time%", time.to_s) + x.gsub!("%sbj%", sbj) + x.gsub!("%after%", after) + x.gsub!("%history%", "

"+history.chomp+"

") + x.gsub!("%regend%", "

"+regend.chomp+"

") + x.gsub!("%osu%", osu) + x.gsub!("%yu%", yu) + x.gsub!("%add%", add) + x.gsub!("%tel%", tel) + out.print x + end + end +end diff -r a21a8b5813f7 -r e4deee2129f8 ruby/sample.jpg Binary file ruby/sample.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 ruby/temp.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ruby/temp.txt Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,26 @@ + + +%sbj% + + + + +

%time%

%sbj%

歴史

+%history% +

伝説

+%regend% +

オススメ品

%osu%

郵便番号

%yu%

住所

%add%

電話番号
+

%tel%

+ + diff -r a21a8b5813f7 -r e4deee2129f8 sakura.jpg Binary file sakura.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 skip.css --- a/skip.css Wed Jul 24 15:52:22 2013 +0900 +++ b/skip.css Tue Feb 18 15:41:42 2014 +0900 @@ -1,64 +1,205 @@ -/* - * The default style for SKIP web - * Copyright 2012 by Shonai Koeki Information Project and koeki-u.ac.jp. - */ -body {background: white;} - -p {color:navy;} - -h1{color:#76007A; - padding-left:0.5em; - } - -div.kakugen{border-style:dotted; - padding:0.5em; - color:#398DB3;} - -td{text-align:center; - font-size:large; - } - -div.link a:hover{background:#FFB0F3;} - -div.link{border-style:dotted; - color:#398DB3; - width:15em; - padding:0.5em;} - -div.update{border-style:dotted; - color:#398DB3; - padding:0.5em;} - -div.update a:hover{background:#FFD700;} - -em{color:red;} - -div.footer{clear:both; - padding:1em; - border-top-style:solid; - border-top-color:gray; - margin-top:1em; - } - -div.concept{border-style:dotted; - padding:0.5em; - color:#398DB3;} - -div.content{width:48%; - float:left; - margin-right:1em;} - -div.content2{width:48%; - float:right; - margin-left:1em;} - -div.matome{clear:both; - margin-top:1em;} - -div.blog_content{border-style:dotted; - border-color:#ff69b4; - padding:0.5em; - color:navy; - margin-bottom:1em; - } -div.blog_content a:hover{background:#FFB0F3;} \ No newline at end of file +/*SKIP��TOP�y�[�W*/ +body { + +} + +div.fix { + position:fixed; + width: 100%; + border: 2px black solid; + box-shadow: gray 3px 3px 3px +} + +div.main_title{ + text-align:center; +} + + +div.side_photo_right{ + text-align:right; + margin-top:2em; + margin-right:20px; + margin-left:1em; + width: 152px; + float:right; +} + + +div.menu { + background:#ffd620; + color:blue; + width:11% + text-align:center; + border-bottom-style:thin solid; + padding:2px 2px 2px 2px; +} + +div.menu div{ + margin-left:3%; + float:left; + background:#ffd620; + width:16%; +} + +div.menu table { + text-align:center; + border-collapse: collapse; + margin-left: auto; + margin-right: auto; +} + +div.menu table td { + width:8em; + text-align:center; +} + + +div.menu table td a:active { + background:#ffb820; + color:#ff5a20; +} +p.new { + width:100%; + text-align:center; + border-style-bottom:thin solid; + color:blue; +} + +p.new span { + background:#ffd620; + padding:2px 2px 2px 2px; +} + +p { + color:#000047; + text-align:left; +} + +h3 { + text-align:center; +<<<<<<< local +======= + border-style-bottom:thin solid; + color:blue; +>>>>>>> other +} + +<<<<<<< local +======= + +h1.topic span { + background:#ffd620; + padding:2px 2px 2px 2px; +} + +div.topic{ + background:#ffedaa; + margin:1% 20% 1% 10%; + padding:5% 5%; + border:thin soid +} + +>>>>>>> other +div.staff { + taxt-align: center; +} + +/*�L��*/ +h2.article_list { + border-color:red; + border-right-style:none; + border-left-style:none; + border-top-style:thick solid; + border-bottom:thick solid; +} + +div.shop_left { + float: left; + width:40% + margin:0 2% 0 8%; +} + +div.shop_right { + float: right; + width:40%; + margin:0 2% 0 8%; +} + +/**/ + +img.shadow, *.shadow img { + border: white 3px solid; box-shadow: black 3px 3px 3px; + margin-right: 3px; margin-bottom: 3px; +} + +div.side_photo_right img{ + border: 2px yellow solid; + box-shadow: orange 3px 3px 3px; + +} + +/*�H��@��*/ + +div.syuzai_pic img{ + border: 2px yellow solid; + box-shadow: orange 3px 3px 3px; +} + + +h2 {background: #ffd620; + box-shadow: black 1px 1px 2px; + padding: 0 0.5ex; + border-top-right-radius: 2ex; + border-bottom-right-radius: 2ex; + margin-right: 80%; + color:black;} + +h3 {background: #ffd620; + box-shadow: black 1px 1px 2px; + padding: 0 0.5ex; + border-top-right-radius: 2ex; + border-bottom-right-radius: 2ex; + margin-right: 90%; + color:black;} + + + + + +/*�X�^�b�t�@�u��O*/ + +div.staff img{ + border: 1px blue solid; + box-shadow: green 2px 2px 2px; + margin-right: 8px; +} + +/*city marathon2013*/ + +div.map_nakamachi{ + text-align:left; +} + +<<<<<<< local +div.map_nakamachi img{ + margin:2% 15% 2% 2%; +======= +div.mara p{text-align: left} + +div.monologue { + background: white; box-shadow: black 1px 1px 2px; padding: 1 1ex; + border-radius: 4ex; + border-top-left-radius: 0ex; + margin-left: 130px; + margin-top: 20px; +>>>>>>> other +} +<<<<<<< local +======= + +div.monologue p{text-align: left} + +div.img { + background: url(kamonkun01_migi.png) no-repeat; + text-align: left; +}>>>>>>> other diff -r a21a8b5813f7 -r e4deee2129f8 skip.css.orig --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/skip.css.orig Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,146 @@ +/*SKIP��TOP�y�[�W*/ +body { + +} + +div.fix { + position:fixed; + width: 100%; + border: 2px black solid; + box-shadow: gray 3px 3px 3px +} + +div.main_title{ + text-align:center; +} + + +div.side_photo_right{ + text-align:right; + margin-top:2em; + margin-right:20px; + margin-left:1em; + width: 152px; + float:right; +} + + +div.menu { + background:#ffd620; + color:blue; + width:11% + text-align:center; + border-bottom-style:thin solid; + padding:2px 2px 2px 2px; +} + +div.menu div{ + margin-left:3%; + float:left; + background:#ffd620; + width:16%; +} + +div.menu table { + text-align:center; +} + +div.menu table td { + width:8em; + text-align:center; +} + +div.menu table td a:hover { + background:white; +} + +div.menu table td a:active { + background:#ffb820; + color:#ff5a20; +} +p.new { + width:100%; + text-align:center; + border-style-bottom:thin solid; + color:blue; +} + +p.new span { + background:#ffd620; + padding:2px 2px 2px 2px; +} + +p { + text-align:center; +} + +h3 { + text-align:center; +} + +div.staff { + taxt-align: center; +} + +/*�L��*/ +h2.article_list { + border-color:red; + border-right-style:none; + border-left-style:none; + border-top-style:thick solid; + border-bottom:thick solid; +} + +div.shop_left { + float: left; + width:40% + margin:0 2% 0 8%; +} + +div.shop_right { + float: right; + width:40%; + margin:0 2% 0 8%; +} + +/**/ + +img.shadow, *.shadow img { + border: white 3px solid; box-shadow: black 3px 3px 3px; + margin-right: 3px; margin-bottom: 3px; +} + +div.side_photo_right img{ + border: 2px yellow solid; + box-shadow: orange 3px 3px 3px; + +} + +/*�H��@��*/ + +div.syuzai_pic img{ + border: 2px yellow solid; + box-shadow: orange 3px 3px 3px; +} + +h2{ + +} + +/*�X�^�b�t�@�u��O*/ + +div.staff img{ + border: 1px blue solid; + box-shadow: green 2px 2px 2px; + margin-right: 8px; +} + +/*city marathon2013*/ + +div.map_nakamachi{ + text-align:left; +} + +div.map_nakamachi img{ + margin:2% 15% 2% 2%; +} diff -r a21a8b5813f7 -r e4deee2129f8 staff/ayae-100.jpg Binary file staff/ayae-100.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/ayae-80.jpg Binary file staff/ayae-80.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/ayae.jpg Binary file staff/ayae.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/ayae/index.html --- a/staff/ayae/index.html Wed Jul 24 15:52:22 2013 +0900 +++ b/staff/ayae/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -4,9 +4,19 @@ -

( ^ 絢恵 (・・) 部屋 ^ )

( ^ 絢恵 (00) 部屋 ^ )

profile

+名前：たぐちあやえ
+年齢：大学２年生
+性別：女のこ
+出身：福島県会津若松市
+好きな食べ物：乳酸菌系、会津のソースカツ丼
+
+誰かいるときはもちろん、ひとりでいるときも話しています
+

あやえのつぶやき

2013/7/24

お初

尾川園のソフトクリーム美味しかったなあ。

diff -r a21a8b5813f7 -r e4deee2129f8 staff/chokai-80.jpg Binary file staff/chokai-80.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/chokai.jpg Binary file staff/chokai.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei.jpg Binary file staff/kei.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/blog.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/kei/2013/09/blog.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,114 @@ + + +SKIP BLOG @Kei + + + + + + +

帰り道と朝方

2013/09/28

こんにちはー^^

最近常にカメラを持つ癖をつけるようにしています。

なんとなく写真を撮りたかったので、河川敷へ。撮っていたら急に鳥が飛ん +でいたのでこれは撮らないと！！って思ってシャッターを切った一枚です。河川 +敷は今まさに芋煮でエンジョイした人ばかりでした(笑)

その下の写真は、今日の朝カーテンを開けたらちょうど物干し竿にトンボが +とまっていたので思わず撮りました。

私は何だかんだ山形4年目ですが、まだ外で芋煮を食べたことがないので今年 +は食べたいと思っています^^;笑

+ +

秋桜いとをかし

2013/09/27

どうも！こんにちは！

酒田も大分涼しくなりましたね！窓から入ってくる風がとても気持ちいい +です。

つい最近まで実家に帰っていました。私の実家は秋田です。実家の近くに草 +生津川という川が流れているのですが、そこの土手に今コスモスがたくさん咲い +ているので、撮って来ました。

この近くは八橋油田で有名です。少しではありますが未だに石油が取れます。

+ +

十五夜

2013/09/19

五分沙汰しています。

今日は十五夜です。久々に満月を見たような気がします(笑)ベラ +ンダから撮ろうかな、と思ったのですがベランダと逆側に月が出ていたので部屋 +着のまま外に出て撮影。近所の人々に見られながらの撮影。もはや気にしま +せん(笑)

そして、最近晴れているせいか、夕焼けがキレイなので河川敷のところでこ +れも撮りました。夜景をもっと上手く撮りたいなぁ…明日から学校です！これか +らまたSKIP は動き始めます(^O^)／

+ +

ブログ開設しました

2013/09/11

祝！ブログ開設！！不定期で酒田に関する記事をを更新＆改築していきます！

では早速ですが記事を書きますφ(..)

これは8月最後の日、日和山神社で撮ったものです。水が湧き出ているとこ +ろと、絵馬やおみくじを括りつけるところ。何気なく佇んでいるものに風情を感 +じます。この日は私の他にもカメラを持って神社や建築物を撮影している人を見 +ました。やっぱり神社をカメラに収める人は少なくないんですね^^

+ +

Link

SKIP HOME

Dialy

9月

10月

Info

2013/10/08

写真をクリックすると拡大した画像を表示することができるようにしました。 +

+ +

+ + + + + + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/gallery09.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/kei/2013/09/gallery09.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,10 @@ + + + + + +Photo Gallery + +

+ + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo10.JPG Binary file staff/kei/2013/09/photo10.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo10_l.JPG Binary file staff/kei/2013/09/photo10_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo11.JPG Binary file staff/kei/2013/09/photo11.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo11_l.JPG Binary file staff/kei/2013/09/photo11_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo12.JPG Binary file staff/kei/2013/09/photo12.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo12_l.JPG Binary file staff/kei/2013/09/photo12_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo2.JPG Binary file staff/kei/2013/09/photo2.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo2_l.JPG Binary file staff/kei/2013/09/photo2_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo3.JPG Binary file staff/kei/2013/09/photo3.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo3_l.JPG Binary file staff/kei/2013/09/photo3_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo4.JPG Binary file staff/kei/2013/09/photo4.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo4_l.JPG Binary file staff/kei/2013/09/photo4_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo5.JPG Binary file staff/kei/2013/09/photo5.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo6.JPG Binary file staff/kei/2013/09/photo6.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo6_l.JPG Binary file staff/kei/2013/09/photo6_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo7.JPG Binary file staff/kei/2013/09/photo7.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo7_l.JPG Binary file staff/kei/2013/09/photo7_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo8.JPG Binary file staff/kei/2013/09/photo8.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo8_l.JPG Binary file staff/kei/2013/09/photo8_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo9.JPG Binary file staff/kei/2013/09/photo9.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/09/photo9_l.JPG Binary file staff/kei/2013/09/photo9_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/blog201310.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/kei/2013/10/blog201310.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,93 @@ + + +SKIP BLOG @Kei + + + + + + +

戯言

2013/10/23

ふと、カモン君のデータやファイルはどこにあるのかなぁと探していたら、 +カモン君の誕生秘話を勝手に書きたくなったので書きました。

誕生秘話

土日の報告

2013/10/23

更新が遅れました(:_;)

今回の土日はイベントがたくさん重なりました。

あいにくの雨でしたが、酒田シティハーフマラソン、酒田ミュージックフェ +スティバル、そしてスワンプロジェクトのスタンプラリーに多くの人が訪れ、賑 +やかな2日間でした。

スタンプラリーも商品券が当たって喜ぶ方も多く、成功に終わってよかった +です。またこのような機会があれば中町だけではなく、酒田市が盛り上がるの +ではないかと思いました。

個人出張

2013/10/14

Twitter で昨日モーターショーがあることを知ったので、中町へ足を運びました。

数々の見たこともない高級車や、レトロな車がずらり。私は車について全然 +わからないのですが、持ち主がとても大事にしていることが見てわかりました。 +好きなものにはとことん愛を注ぐとはこのことなんですね^^

最後に私は山形県警のブースで、自転車の安全運転を宣言(笑)宣言したから +には安全運転します、はーい(^O^)

酒田は今月、イベント盛りだくさんです。来週はハーフマラソン、どんしゃん +まつり、酒田ミュージックフェスティバル、そしてその次の週は公益大学の学祭 +があります！

優雅なランチタイム

2013/10/09

今日はどこに行こうか～？

と話していたら、欅さんが思い浮かんだので欅さんに行ってきました。

始めて中町に行き、欅さんの前を通り過ぎた時、行ってみたいけれど、学生 +は無理だよなぁ…orz なんて思ってました。あと、地下にお店があるなんてド +キドキでしたよね。行ってみたいお店の一つでした。

メインはフランス風郷土料理のコースメニューですが、お昼に行くと、 +ランチでリーズナブルな値段で食べることができます(^O^)！

今回食べたのは、カニクリームコロッケ。外はサクサク、中はふわふわ +のクリームが詰まっていて美味しいです！！欅さんの定番ランチメニュー +でいつでも食べることができますが、日替わりランチもあります。

インタビューしたところ、学生さんにも是非来て欲しいとのことでした。家 +族と、大切な人と、行ってみてはどうですか？事前に連絡すると、予算に合わせ +たコースメニューを頼むこともできますし、彼女にサプライズ…なんてすること +もできるそうです(笑)

+ +

Link

SKIP HOME

Dialy

9月

10月

Info

2013/10/08

写真をクリックすると拡大した画像を表示することができるようにしました。 +

+ +

+ + + + + + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo13.JPG Binary file staff/kei/2013/10/photo13.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo13_l.JPG Binary file staff/kei/2013/10/photo13_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo14.JPG Binary file staff/kei/2013/10/photo14.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo14_l.JPG Binary file staff/kei/2013/10/photo14_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo15.JPG Binary file staff/kei/2013/10/photo15.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo15_l.JPG Binary file staff/kei/2013/10/photo15_l.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo16.jpg Binary file staff/kei/2013/10/photo16.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/2013/10/photo16_l.jpg Binary file staff/kei/2013/10/photo16_l.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/birth.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/kei/birth.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,29 @@ + + +カモン君誕生秘話 + + + +

カモン君誕生秘話(番外編)

でかでかとタイトルに誕生秘話なんて書きましたが、秘話という程でかい話 +ではなくただの小ネタです(笑)

トリをキャラクターにするのならば可愛いキャラクターにしよう、とキャラ +クター作成が決まってから考えていました。ラフ画を書こうと早速、カモの画像を調べていましたが、どれも茶色い羽毛のカモの画像が出てきていまいちな気分で作業を進めていた瞬 +間、黄色い産毛の生えたカモのヒナの画像が出てきた時に、よし、ヒナを元に描 +こう！と単純に思ったのがきっかけです。だからカモン君はまだヒナです、子供 +です。

ラフ画はこちら。真っ白なキャンバスではなく、裏紙から始まりました(笑)

作成に使ったソフトはInkscape です。理由はカモン君のような簡単な線で描かれ +たキャラクターを絵にするに一番適していたからです。あとは、Inkscape がオー +プンソースであったこともあります。元々Illustrator を使ったことがあったの +で悪戦苦闘はしませんでしたが、慣れない作業をしつつ、ラフ画とキャラ作成合わせて4時間くらいで仕上げたような気がします。

完成した当初は名前がありませんでした(そこまで頭がまわりませんでした)。 +ちなみに名前をつけてくれたのは、SKIP 設立当初にいたメンバーの一人です。 +

HOME

+ + + \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/blog_css.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/kei/blog_css.css Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,68 @@ +div.header{background-image:url("main.JPG"); + width:950; + height:200; + padding-left:0.5em; + } + +h1{padding-top:0.5em; + } + +h2{padding-top:0.5em; + border-top-style:dotted; + border-color:#eee8aa; + } + +h4{color:#808000; + } + +div.all{width:950; + clear:both; + } + +div.main{width:650; + padding-left:0.5em; + margin-top:1em; + float:left; + margin-bottom:0.5em; + } + +div.photo{background:#fff; + box-shadow:3px 3px 10px #000; + border:8px; + border-style:solid; + border-color:#fff; + width:600; + height:402; + margin-top:2em; + margin-bottom:2em;} + +div.photo_h{background:#fff; + box-shadow:3px 3px 10px #000; + border:8px; + border-style:solid; + border-color:#fff; + width:402; + height:600; + margin-top:2em; + margin-bottom:2em; + } + +div.sub{float:right; + margin-top:1em; + padding-left:0.5em; + border-style:dotted; + border-color:#eee8aa; + width:250; + height:500; + box-shadow:3px 3px 3px yellow; + } + +div.footer{clear:both; + border-top-style:solid; + border-top-color:#8b4513; + padding-left:0.5em; + padding-top:0.5em; + } + +a:hover{background:#afeeee; + } \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/index.html --- a/staff/kei/index.html Wed Jul 24 15:52:22 2013 +0900 +++ b/staff/kei/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -1,35 +1,41 @@ SKIP STAFF - + -

～Kei のお部屋～

SKIP STAFF ROOM @Kei

Keiのページに足をお運びいただき、ありがとうございます。

ここでは、私から見たSKIPのあんなことやこんなことを紹介していきます。

随時更新中！どうぞゆっくりして行ってください♪～(´ε｀ )

ここでは、私が勝手に酒田のあんなことやこんなことを紹介していきます。

随時更新中！どうぞゆっくりして行ってください♪

Profile

けい(公益大4年)
秋田県秋田市出身

SKIPではWebデザインを担当。カモン君の生みの親。ブログの中の人やってま - す。

中町が大好きなラスト公益大生。中町は車ではなく、自転車か徒歩で行く事 - に意味があります。(名言)

名前 +
Kei KAMADA
+
学年 +
公益大4年
+
出身地 +
秋田県秋田市
+

SKIPではWebデザインを担当。カモン君の生みの親。

カモン君誕生秘話

中町が大好き。最近写真を撮っています。

残りの庄内生活を楽しみたいと思います(^^)

facebook をやってます。本名で検索すると、何件か同じ名前の人が出てきます +が、女の方です(笑)

- -

取材リンク

酒田のホットな情報を配信します！

まだリンクを貼っていません。しばらくお待ちくださいm(_ _)m

Link

酒田のホットな情報をこちらのブログで配信します！

戯言日記

diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/kurihara.html --- a/staff/kei/kurihara.html Wed Jul 24 15:52:22 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,108 +0,0 @@ - - - 栗原甘泉堂調査結果 - - - - -

SWAN×SKIP現地調査第二弾調査結果

- -

栗原甘泉堂

- -

-
お店の客層はどの層が一番多いですか？
- 1.～10代　2.20～30代　3.40～50代　4.60代～
-
4.60代～
-
-
どのような客が多いですか？
- 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
-
5.その他(高齢者)
-
-
この店に一番のおすすめ商品を教えて下さい。
-
お客さんの注文を受けてからつくる団子
-
-
お店を宣伝する上で、不便を感じることはありますか?
-
_
-
-
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
-
歩きながら自分のお店によってくれるお客参が増えて欲しい。
-
-
おすすめの穴場がありましたら教えて下さい。
-
_
-
-
今後どのようなお客樣を増やしていきたいと考えていますか?
-
若い世代
-
-
お店でインターネットを利用していますか?
- 1.はい 2.いいえ
-
2.いいえ
-
1. はいと答えた人
  - お使いのプロバイダを教えて下さい。 -
2. いいえと答えた人
  - 使用していない理由を教えて下さい。 -
  _
  -
-
-
お店の facebook やホームページを持っていますか?
- 1.はい 2.いいえ
-
2.いいえ
-
-
電話回線は何をお使いですか?
-
NTT
-
-
携帯やスマートフォンで情報を検索する機会はありますか?
- 1.はい 2.いいえ
-
-
-
-
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ - けますか?
- 1.はい 2.いいえ
-
2.いいえ
-
-
(13ではいと答えた人)
- どのような情報を発信していきたいですか?また、どのような活動をしたい - ですか?
- (自由解答)
-
_
-
-
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた - いと思っているのですが、商店街の方として何かご意見、ご要望はありま - すか?自由にご記入ください。
-
-
-

- - - \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/main.JPG Binary file staff/kei/main.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/minato.html --- a/staff/kei/minato.html Wed Jul 24 15:52:22 2013 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,108 +0,0 @@ - - - 港タクシー調査結果 - - - - -

SWAN×SKIP現地調査第二弾調査結果

- -

港タクシー

- -

-
お店の客層はどの層が一番多いですか？
- 1.～10代　2.20～30代　3.40～50代　4.60代～
-
4.60代～、深夜は若者の利用も多い
-
-
どのような客が多いですか？
- 1.学生　2.サラリーマン　3.子連れの家族　4.カップル　5.その他
-
5.その他(高齢者)
-
-
この店に一番のおすすめ商品を教えて下さい。
-
安心・親切・24時間営業
-
-
お店を宣伝する上で、不便を感じることはありますか?
-
_
-
-
お店にこんなのがあったらよい、と考えているものがありましたら教えて下さい。
-
_
-
-
おすすめの穴場がありましたら教えて下さい。
-
_
-
-
今後どのようなお客樣を増やしていきたいと考えていますか?
-
_
-
-
お店でインターネットを利用していますか?
- 1.はい 2.いいえ
-
1.はい
-
1. はいと答えた人
  - お使いのプロバイダを教えて下さい。 -
2. いいえと答えた人
  - 使用していない理由を教えて下さい。 -
  _
  -
-
-
お店の facebook やホームページを持っていますか?
- 1.はい 2.いいえ
-
1.はい(ホームページ)
-
-
電話回線は何をお使いですか?
-
NTT
-
-
携帯やスマートフォンで情報を検索する機会はありますか?
- 1.はい 2.いいえ
-
-
-
-
今後、中町のお店とSKIPが連携して情報発信を行う際に協力していただ - けますか?
- 1.はい 2.いいえ
-
2.いいえ
-
-
(13ではいと答えた人)
- どのような情報を発信していきたいですか?また、どのような活動をしたい - ですか?
- (自由解答)
-
_
-
-
私達は、地域人たちや観光客などにもっと酒田の情報を発信していきた - いと思っているのですが、商店街の方として何かご意見、ご要望はありま - すか?自由にご記入ください。
-
お店の宣伝が悪いと思う。酒田に仕事やイベントなどを増やして酒田をアピールしてほしい。(商工会議所が中心となって)
-

- - - \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/mycss.css --- a/staff/kei/mycss.css Wed Jul 24 15:52:22 2013 +0900 +++ b/staff/kei/mycss.css Tue Feb 18 15:41:42 2014 +0900 @@ -1,20 +1,25 @@ -body{background:#e0ffff; +body{background:#ffffe0; padding-left:0.5em;} -h1{color:#4b0082;} +h1{color:#4b0082; + } -h2{background:white; +h2{background:#98fb98; color:#4b0082; - padding-left:0.5em;} + padding-left:0.5em; + box-shadow:3px 3px 3px lightsteelblue; + } div.mydiv{border-style:dotted; - border-color:#0000CC; + border-color:#f5deb3; padding-left:0.5em; padding-right:0.5em; - background:#ffffe0; } div.footer{border-top-style:solid; border-top-color:gray; margin-top:1em; - padding-top:0.5em;} \ No newline at end of file + padding-top:0.5em; + } +a:hover{background:#afeeee; + } \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei/rahu.jpg Binary file staff/kei/rahu.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/kei1-80.jpg Binary file staff/kei1-80.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/logo.png Binary file staff/logo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/masaki/index.html --- a/staff/masaki/index.html Wed Jul 24 15:52:22 2013 +0900 +++ b/staff/masaki/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -1,21 +1,38 @@ - + -Murakami's room!! + + +Murakami's page!! - -

大見出し

+ + +

+現在準備中...
+Under construction... +

+ +

c112124@h.koeki-u.ac.jp

+ diff -r a21a8b5813f7 -r e4deee2129f8 staff/masaki/main.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/masaki/main.css Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,11 @@ + body { + + + + } + + h1 { + + + + } diff -r a21a8b5813f7 -r e4deee2129f8 staff/murakami-80.jpg Binary file staff/murakami-80.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/murakami.jpg Binary file staff/murakami.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada-80.jpg Binary file staff/oyamada-80.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada.jpg Binary file staff/oyamada.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/back.jpg Binary file staff/oyamada/back.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/hp.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/oyamada/hp.css Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,64 @@ +body{background-image: url("back.jpg"); background-color: blue} +h1{color:blue; +text-align:center; +background:yellow; +border-style:outset; +border-width:thick; +font-size:40pt; +} + +li{color:green; +background:#a0bab4; +border-bottom:solid 2px; +font-size:20pt +; +} + +p{color:#1f27ba; +border-top:solid; +padding-top:3% +} + +th{color:red;} + +td{color:#633ec1; +background:#d3afea; +} + +p.happy{ +margin-right: 20%; margin-left: 1em; + padding-left: 1em; + padding-right: 110px; min-height: 102px; + background: #f97c7c url(rage.png) right center;} + +p.unhappy{ +margin-right: 20%; margin-left: 1em; + padding-left: 1em; + padding-right: 110px; min-height: 102px; + background:#829bba url(rage.png) right center;} + +ul.button{margin-left:5em;} +ul.button li{list-style-image:url("garireo-1.png");} +ul.button li:hover {list-style-image:url("garireo-2.png");} +ul.button li:active {list-style-image:url("garireo-3.png");} + + +div.italy{ + position: relative;width:18ex; height: 12ex; + border:1px solid black;} +div.italy div { + position:absolute; top: 0; left: 0; width: 6ex; height: 12ex; + background:green;} +div.italy div+div { + position:absolute; top0; left:6ex; width:6ex; height: 12ex; + background:white;} +div.italy div+div+div { + position:absolute; top:0; left:12ex; width:6ex; height:12ex; + background:red;} +h2{font-size:30pt; +color:blue; +border-bottom:solid 5px; + +} +img{width:300px; +height:200px;} diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/index.html --- a/staff/oyamada/index.html Wed Jul 24 15:52:22 2013 +0900 +++ b/staff/oyamada/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -2,19 +2,67 @@ "http://www.w3.org/TR/html4/strict.dtd"> -たいとる - - +oyamamadaのページ + -

大見出し

プロフィール

名前：小山田晃平
年齢：大学3年生(20歳)
出身：青森県五戸町

+ +

酒田グルメ

ラーメン

+ + + + + + + + +OB + + + + + + + + + + + + + + + + + + + + + +

満月	花月

麺太	らーめん哲

花鳥風月	麺屋酒田みなと店

+ +

その他

+ + + + + + + + + + + + +

炭火割烹てつ	割烹出島

c111039@g.koeki-u.ac.jp

diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/delite.jpg Binary file staff/oyamada/photo/delite.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/dezima.jpg Binary file staff/oyamada/photo/dezima.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/kagetsu.jpg Binary file staff/oyamada/photo/kagetsu.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/katyo.jpg Binary file staff/oyamada/photo/katyo.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/mangetsu.jpg Binary file staff/oyamada/photo/mangetsu.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/menta.jpg Binary file staff/oyamada/photo/menta.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/menta.png Binary file staff/oyamada/photo/menta.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/menta1.jpg Binary file staff/oyamada/photo/menta1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/menya.jpg Binary file staff/oyamada/photo/menya.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/ramen.jpg --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/oyamada/photo/ramen.jpg Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,72 @@ +Return-Path: +Delivered-To: C111039@itl.koeki-u.ac.jp +Received: (qmail 8830 invoked by uid 1012); 9 Nov 2013 07:51:39 -0000 +Received: (qmail 8523 invoked from network); 9 Nov 2013 07:49:12 -0000 +Received: from ns.koeki-u.ac.jp (203.181.114.17) + by pan.e.koeki-u.ac.jp with SMTP; 9 Nov 2013 07:49:12 -0000 +Received: from ns.koeki-u.ac.jp (HELO ns.koeki-u.ac.jp) (203.181.114.17) + by pan.e.koeki-u.ac.jp (antibadmail 1.38) with SMTP; Nov 9 16:49:12 JST 2013 +Received: (qmail 5956 invoked from network); 9 Nov 2013 16:46:33 +0900 +Received: from web200107.mail.kks.yahoo.co.jp (183.79.100.95) + by ns.koeki-u.ac.jp with SMTP; 9 Nov 2013 16:46:33 +0900 +Received-SPF: pass (ns.koeki-u.ac.jp: SPF record at spf03.yahoo.co.jp designates 183.79.100.95 as permitted sender) +Received: from web200107.mail.kks.yahoo.co.jp (HELO web200107.mail.kks.yahoo.co.jp) (183.79.100.95) + by ns.koeki-u.ac.jp (antibadmail 1.42) with SMTP; Nov 9 16:46:33 JST 2013 +Received: (qmail 17430 invoked by uid 60001); 9 Nov 2013 07:46:33 -0000 +DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ybb.ne.jp; s=ybb20110701; t=1383983191; bh=T9wTCg6gPOsLgbxHvF0CeN3JxtWcrfV45YBF4bY21+Q=; h=Message-ID:X-YMail-OSG:Received:X-Mailer:Date:From:Reply-To:To:MIME-Version:Content-Type; b=KASAFj4CQ5wIb5eUXOblVhdCvo5avZqmDmyuiG1NQRDE6ImzW7nxYUrC8cS50I+0OUJUDxQBwFvtF6toeFTTSXl24LppWvKPyu6ilY+F6jdHwEG0MDEjxk/09si1n2nF+vGNSdG2a/bakTrcJHr7Q3yn2dcgTG1aCwbLmg/HBog= +DomainKey-Signature:a=rsa-sha1; q=dns; c=nofws; + s=ybb20110701; d=ybb.ne.jp; + h=Message-ID:X-YMail-OSG:Received:X-Mailer:Date:From:Reply-To:To:MIME-Version:Content-Type; + b=LifUDhnJk2Ahm4Asw/yCXL4zejOpL1QGLjBYasOrpTAAvkqhjxqbsdZRBwV9BWBf2+IQu1Lisp5ANkqlUV1qNvcuUQEG/0xcdr9WUsxymyQnDrPnnbITsCNbtRgYmfY5SSYi9nudq5yf35v2moXUNxKjsp35hDjBnvAh0tv2Bhw=; +Message-ID: <338983.14366.qm@web200107.mail.kks.yahoo.co.jp> +X-YMail-OSG: Z0wglrcVM1kgyOk1apdmDCp_x5SNVtGmdDNIJA5aBuWw8tU9TVYpWMyM +Received: from [118.21.142.107] by web200107.mail.kks.yahoo.co.jp via HTTP; Sat, 09 Nov 2013 16:46:30 JST +X-Mailer: YahooMailWebService/0.8.111_49 +Date: Sat, 9 Nov 2013 16:46:30 +0900 (JST) +From: tpnqh217@ybb.ne.jp +Reply-To: tpnqh217@ybb.ne.jp +To: "C111039@g.koeki-u.ac.jp" +MIME-Version: 1.0 +Content-Type: multipart/mixed; boundary="0-1447813824-1383983190=:14366" +Status: + +--0-1447813824-1383983190=:14366 +Content-Type: multipart/alternative; boundary="0-421000474-1383983190=:14366" + +--0-421000474-1383983190=:14366 +Content-Type: text/plain; charset=utf-8 +Content-Transfer-Encoding: quoted-printable + +=0A +--0-421000474-1383983190=:14366 +Content-Type: text/html; charset=utf-8 +Content-Transfer-Encoding: quoted-printable + +

+--0-421000474-1383983190=:14366-- +--0-1447813824-1383983190=:14366 +Content-Type: image/jpeg; name="20130705_171744.jpg" +Content-Transfer-Encoding: base64 +Content-Disposition: attachment; filename="20130705_171744.jpg" + +/9j/4SQZRXhpZgAASUkqAAgAAAANAAABBAABAAAAwAwAAAEBBAABAAAAkAkA +AA8BAgAIAAAAqgAAABABAgAQAAAAsgAAABIBAwABAAAAAQAAABoBBQABAAAA +wgAAABsBBQABAAAAygAAACgBAwABAAAAAgAAADEBAgAMAAAA0gAAADIBAgAU +AAAA3gAAABMCAwABAAAAAQAAAGmHBAABAAAA8gAAACWIBAABAAAAKhMAADwT +AABTQU1TVU5HAFNDLTA2RAAAAAAAAAAAAABIAAAAAQAAAEgAAAABAAAAU0Mw +NkRPTUFMRzYAMjAxMzowNzowNSAxNzoxNzo0MwAdAJqCBQABAAAAVAIAAJ2C +BQABAAAAXAIAACKIAwABAAAAAwAAACeIAwABAAAAUAAAAACQBwAEAAAAMDIy +MAOQAgAUAAAAZAIAAASQAgAUAAAAeAIAAAGRBwAEAAAAAQIDAAGSCgABAAAA +jAIAAAKSBQABAAAAlAIAAAOSCgABAAAAnAIAAASSCgABAAAApAIAAAWSBQAB +AAAArAIAAAeSAwABAAAAAgAAAAmSAwABAAAAAQAAAAqSBQABAAAAtAIAAHyS +BwBCAAAAyhIAAIaSBwAIEAAAvAIAAACgBwAEAAAAMDEwMAGgAwABAAAAAQAA +AAKgBAABAAAAwAwAAAOgBAABAAAAkAkAAAWgBAABAAAADBMAABeiAwABAAAA +AgAAAAGjAwABAAAAAQAAAAKkAwABAAAAAAAAAAOkAwABAAAAAAAAAAakAwAB +AAAAAAAAACCkAgAGAAAAxBIAAAAAAAABAAAAcQAAABoAAAAKAAAAMjAxMzow +NzowNSAxNzoxNzo0MwAyMDEzOjA3OjA1IDE3OjE3OjQzANIGAAAAAQAAFAEA +AGQAAAAIBQAAAAEAAAAAAAAKAAAAFAEAAGQAAAByAQAAZAAAAEFTQ0lJAAAA +AQAAAEsAAAAAAAAA0gYAAAgFAABxAAAAeFY0EnhWNBJ4VjQSeFY0EgEAAAAA +ADAAYADi7yAA6ATPBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA +AAAAAAAAAAAAAP39AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA +AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/sumi_tetsu.jpg Binary file staff/oyamada/photo/sumi_tetsu.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/sumi_tetsu.png Binary file staff/oyamada/photo/sumi_tetsu.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/oyamada/photo/tetsu.jpg Binary file staff/oyamada/photo/tetsu.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/rina-80.jpg Binary file staff/rina-80.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/rina.jpg Binary file staff/rina.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/rina/index.html --- a/staff/rina/index.html Wed Jul 24 15:52:22 2013 +0900 +++ b/staff/rina/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -7,8 +7,13 @@ -

rina♡

2013/07/24

rina room ♡

+ +

+name いとうりな
+old 大学３年生
+like 食べる、寝る、喋る
+

diff -r a21a8b5813f7 -r e4deee2129f8 staff/skip.png Binary file staff/skip.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 staff/staff.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/staff.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,30 @@ + + + +SKIP - Shonai Koeki Information Project + + + + + +

+ +

+ + + + +

新着情報

+ + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 staff/yuuji/index.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/staff/yuuji/index.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,20 @@ + + + +Yuuji's Room + + + + + +

yuujiのつぶやき

2013-7-24

モアレのジェラートは食べたことがないと思っていたが、 +産直いちご畑のジェラートがそれだった! 柿ジェラート、つや姫ジェラート +どちらも美味であった。

+ +

yuuji@e.koeki-u.ac.jp

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/.#dezima.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/.#dezima.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,1 @@ +ayae@localhost.localdomain.4095:1377846054 \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/.#tukusi.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/.#tukusi.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,1 @@ +ayae@localhost.localdomain.4844:1377630362 \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ars1-150.jpg Binary file syuzai/ars1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ars1-720.jpg Binary file syuzai/ars1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ars1.jpg Binary file syuzai/ars1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/deli.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/deli.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,43 @@ + + +�t��[�c�f�� + + + +

�t��[�c�f��

+ + + + + + + + + + + + + +

��A��

�Q��

�`��

�y�M

�o��

�t��[�c�f��

��j��

2006�N3��t��[�c100��W��[�X�A�X��[�W�[��q�l��I�[�v��A��N��7�N��B�t��[�c100��q�l��V�N��i��A�{�X�h��h��g��B�{�X��V�N��t��[�c��g�p��B�t��[�c��X��A��A��B

�`��

�I�X�X��i

�G��t��[�c��l�C�i��A��i��l�C��A�}��S�[�I��W�I�I�r�^�~��B��G��i��g�p��W��[�X��X��[�W�[��l�C��B�G��A�u��[�x��[��X�g��x��[��l�C��B

��E�E�E

��A�q��A��A��m��q�l��l�C��B��N�u��h�{�f��i��i��l��B�q��N��t��[�c�f��z��E�E�E

�Z�

+ +

998-0044
+�R�`��c�s��3-4-15

�d�b��
+0234-24-0470

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/dezima.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,42 @@ + + + + +出島　取材 + + + + + +

+ +

出島

+ + +

歴史

+前身は、米俵をしばるための縄を売る仕事をしていたそうです。
+曾祖母の頃に、いなり寿司やのり巻きを売り始めましたが、経営がうまくいかなかったため、店をたたんで、家を建てたそうです。
+そして、母の頃に、またいなり寿司やのり巻きを売り始め、今の店主が、大学を卒業して、出島を開業したそうです。
+

伝説

+先祖代々、場所は変わらず同じ場所で、酒田大火の時も焼けずに残ったそうです。 +

オススメ品

+メニューは毎日変わるので、決まったおすすめメニューありません
+取材にいった村上記者はたまごやきが美味しかったそうです
+

住所

998-0044
+山形県酒田市中町2-1-12

電話番号
+0234-22-2449

+ +

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/2IMGP2049.JPG Binary file syuzai/dezima/2IMGP2049.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/2IMGP2054.JPG Binary file syuzai/dezima/2IMGP2054.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/2IMGP2070.JPG Binary file syuzai/dezima/2IMGP2070.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/2IMGP2073.JPG Binary file syuzai/dezima/2IMGP2073.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/dezima1-150.JPG Binary file syuzai/dezima/dezima1-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/dezima2-150.JPG Binary file syuzai/dezima/dezima2-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/dezima3-150.JPG Binary file syuzai/dezima/dezima3-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima/dezima4-150.JPG Binary file syuzai/dezima/dezima4-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima1-150.JPG Binary file syuzai/dezima1-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima2-150.JPG Binary file syuzai/dezima2-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima2-720.JPG Binary file syuzai/dezima2-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima3-150.JPG Binary file syuzai/dezima3-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima3-720.JPG Binary file syuzai/dezima3-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima4-150.JPG Binary file syuzai/dezima4-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezima4-720.JPG Binary file syuzai/dezima4-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/dezimz1-720.JPG Binary file syuzai/dezimz1-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hoge.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/hoge.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,26 @@ + + +もあれ + + + + +

2014-01-21 15:44:41 +0900

もあれ

歴史

ほげほげほげほげ

伝説

ほげほげほげ

オススメ品

時ぇらーと

郵便番号

000-0000

住所

ああああああ

電話番号
+

00-0000

+ + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hoge.jpg Binary file syuzai/hoge.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-naiso1.jpg Binary file syuzai/hormone-naiso1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-naiso2.jpg Binary file syuzai/hormone-naiso2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-niku1.jpg Binary file syuzai/hormone-niku1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-niku2.jpg Binary file syuzai/hormone-niku2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-niku3.jpg Binary file syuzai/hormone-niku3.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-sonota1.jpg Binary file syuzai/hormone-sonota1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-sonota2.jpg Binary file syuzai/hormone-sonota2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/hormone-sonota3.jpg Binary file syuzai/hormone-sonota3.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/horumon1-150.jpg Binary file syuzai/horumon1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/horumon1-720.jpg Binary file syuzai/horumon1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/horumon1.jpg Binary file syuzai/horumon1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/iekda.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/iekda.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,46 @@ + + + + +出島　取材 + + + + + +

+ +

出島

+ + +

歴史

+昭和５年に創業を開始。
+創業当初から鶏肉の専門店として営業している。
+また、２４年前からは焼き鳥の販売も行っている。
+

伝説

+- +

オススメ品

+売れ筋の商品は、「唐揚げ」、「もつの煮込み」、「焼き鳥」で、幅広い年齢層に人気があるそうです。
+今回の取材では、売れ筋の商品のなかでも唐揚げと、焼き鳥を購入させていただきました。
+唐揚げは、外はカラッと中はジューシーで程よく肉汁が滴り、食欲をそそる逸品でした！
+焼き鳥の方は、種類が豊富で一般的な皮やねぎまの他に、砂肝やテールといったちょっと通なものまで取り揃えていました。また、鶏肉の他にも牛タンや合鴨など鶏肉いがいのネタも扱っていました。
+どの商品も一度食べたらやみつきになることまちがいなしです！！
+ +

住所

998-0035
+山形県酒田市寿町５－２７ +

電話番号
+0234-22-1151

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ikeda.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/ikeda.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,46 @@ + + + + +出島　取材 + + + + + +

+ +

出島

+ + +

歴史

+昭和５年に創業を開始。
+創業当初から鶏肉の専門店として営業している。
+また、２４年前からは焼き鳥の販売も行っている。
+

伝説

+- +

オススメ品

住所

998-0035
+山形県酒田市寿町５－２７ +

電話番号
+0234-22-1151

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/keyaki.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/keyaki.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,29 @@ + + +欅 + + + + +

欅

歴史

創業46年。加藤究一が築いたル・ポットフーの分店として創設されたフラ +ンス風郷土料理店。

伝説

創業以来からずっと酒田市産業会館の地下にあり、階層を繰り返しているも +のの、壁や石の柱などは当初のまま残されている。

オススメ品

山形産や庄内産の食材を使った料理

ランチメニュー

コース料理

住所

998-0044
+山形県酒田市中町2丁目5-10 酒田市産業会館B1F

電話番号
+0234-22-7018

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/keyaki1-150.JPG Binary file syuzai/keyaki1-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/logo.png Binary file syuzai/logo.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/menchi.jpg Binary file syuzai/menchi.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatotokei1-150.jpg Binary file syuzai/minatotokei1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatotokei1-720.jpg Binary file syuzai/minatotokei1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatotokei1.jpg Binary file syuzai/minatotokei1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatoza.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/minatoza.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,25 @@ + + +港座 + + + + + +

港座

歴史

伝説

オススメ品

住所

電話番号
+

+ + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatoza1-150.jpg Binary file syuzai/minatoza1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatoza1-720.jpg Binary file syuzai/minatoza1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/minatoza1.jpg Binary file syuzai/minatoza1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/moare.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/moare.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,27 @@ + + +モアレ + + + + + +

モアレ

歴史

伝説

オススメ品

ジェラート、パスタ

住所

+山形県酒田市中町1-7-18

電話番号
+0234-22-5280 +

+ +

+ + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/moare1-150.JPG Binary file syuzai/moare1-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/moare1-720.JPG Binary file syuzai/moare1-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nakamura.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/nakamura.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,46 @@ + + + + +手打そばなかむら. + + + + + +

+ +

手打そばなかむら

～味にこだわる元珈琲屋さんが営むお蕎麦屋さん～

お店の雰囲気

+皆さん、お蕎麦は好きですか?
+ +酒田でも隠れた名店で電話帳などにも載っておらず、口コミや常連さんを通じ人 +気が拡がっていきました。築100年の民家を改築した開業11年の店内は座敷、奥 +座敷、仏間からなる典型的な庄内の民家の造りなっており、庄内の古きよき佇い +を感じることが出来ます。また、 +

+ +

食材へのこだわり

蕎麦へのこだわり: 味に敏感な元珈琲屋さんが厳選した、山形県産でも特に良質な大蔵村で + とれた蕎麦の実だけを使用し、蕎麦の実はお店で挽いています。 +
水へのこだわり: 蕎麦を作る上で重要なお水は、地元八幡の鳥海山から流れ出る湧水と、 + 井戸水を100%使用しています。

+ + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nakamura.jpg Binary file syuzai/nakamura.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/nisimura.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,32 @@ + + +フルーツデリにしむら + + + + +

+ + + +

フルーツデリにしむら

歴史について

2006年3月にフルーツ100％ジュース、スムージーをお客様に提供しようとオープンし、今年で7年目になります。フルーツ100％をお客様に新鮮で低価格で提供できるのには、本店”くだものやさいにしむら”との提携があるからです。本店で販売されている新鮮で美味しいフルーツを使用し注文を受けてから作っています。フルーツは店内でも販売されており、おみやげとして持ち帰ることもできます。

港屋

オススメ品

季節のフルーツによって人気商品は異なるのですが、定番商品の中でも一番人気なのは、マンゴーオレンジ！！ビタミンたっぷりの甘さ溢れる味でとても美味しかったです。今の季節限定商品は桃を使用したジュースやスムージーが人気があるそうです。季節によっては、ブルーベリーやストロベリーが特に人気があるようです。

今後は・・・

現在は、子ども連れのご家族、女性同士のお客様から人気があります。今は健康志向なこともあり野菜や栄養素をたくさん取り入れた商品を一押し商品にしていこうと考えています。子どもからお年寄りにも愛されるフルーツデリにしむらにぜひお越しを・・・

住所

+ +

998-0044
+山形県酒田市中町3-4-15

電話番号
+0234-24-0470

+ + + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/2IMGP2007.JPG Binary file syuzai/nisimura/2IMGP2007.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/2IMGP2012.JPG Binary file syuzai/nisimura/2IMGP2012.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/2IMGP2021.JPG Binary file syuzai/nisimura/2IMGP2021.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/2IMGP2025.JPG Binary file syuzai/nisimura/2IMGP2025.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/2IMGP2027.JPG Binary file syuzai/nisimura/2IMGP2027.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/3IMGP2007.JPG Binary file syuzai/nisimura/3IMGP2007.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/3IMGP2012.JPG Binary file syuzai/nisimura/3IMGP2012.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/3IMGP2021.JPG Binary file syuzai/nisimura/3IMGP2021.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/3IMGP2025.JPG Binary file syuzai/nisimura/3IMGP2025.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura/3IMGP2027.JPG Binary file syuzai/nisimura/3IMGP2027.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura1-150.JPG Binary file syuzai/nisimura1-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura1-720.JPG Binary file syuzai/nisimura1-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura2-150.JPG Binary file syuzai/nisimura2-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura2-720.JPG Binary file syuzai/nisimura2-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura3-150.JPG Binary file syuzai/nisimura3-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura3-720.JPG Binary file syuzai/nisimura3-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura4-150.JPG Binary file syuzai/nisimura4-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura4-720.JPG Binary file syuzai/nisimura4-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura5-150.JPG Binary file syuzai/nisimura5-150.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/nisimura5-720.JPG Binary file syuzai/nisimura5-720.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ogawaen1-150.jpg Binary file syuzai/ogawaen1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ogawaen1-720.jpg Binary file syuzai/ogawaen1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ogawaen1.jpg Binary file syuzai/ogawaen1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ogawaen2-150.jpg Binary file syuzai/ogawaen2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ogawaen2-720.jpg Binary file syuzai/ogawaen2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/ogawaen2.jpg Binary file syuzai/ogawaen2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom1-150.jpg Binary file syuzai/pom1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom1-720.jpg Binary file syuzai/pom1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom1.jpg Binary file syuzai/pom1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom2-150.jpg Binary file syuzai/pom2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom2-720.jpg Binary file syuzai/pom2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom2.jpg Binary file syuzai/pom2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom3-150.jpg Binary file syuzai/pom3-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom3-720.jpg Binary file syuzai/pom3-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/pom3.jpg Binary file syuzai/pom3.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/romantei.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,30 @@ + + +浪漫亭 + + + + +

+ +

浪漫亭

歴史

伝説

浪漫亭のオーナーは、2001年に中町の商店街から生まれたアイド「SHIP(酒田 +発アイドルプロジェクト)」の生みの親である。

SHIP は、当時アイドルを目指す庄内の子供たちから選抜され、酒田会館で初 +デビュー。各地でライブ活動を行った。酒田でのグッズ販売や県外からの固定客 +により地域活性化に貢献した。

オススメ品

ドリンク(アルコール含)、ピザ、サラダ、パスタ、ボリューム満点のメニュー +。全て注文はオーナーのおまかせです。

住所

山形県酒田市中町二丁目64

電話番号

+0234-24-1810

+ +

+ + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei1-150.jpg Binary file syuzai/romantei1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei1-720.jpg Binary file syuzai/romantei1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei1.jpg Binary file syuzai/romantei1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei2-150.jpg Binary file syuzai/romantei2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei2-720.jpg Binary file syuzai/romantei2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei2.jpg Binary file syuzai/romantei2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei3-150.jpg Binary file syuzai/romantei3-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei3-720.jpg Binary file syuzai/romantei3-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/romantei3.jpg Binary file syuzai/romantei3.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/rupo.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,31 @@ + + + +ル・ポットフー + + + + +

ル・ポットフー

歴史

1973創業。酒田のフレンチのさきがけのレストラン。全国各地からこの味を +求めて酒田を訪れる人も多い老舗の名店。

伝説

内装などは、創業時の店主が資本金を全て使ってしまうほどこだわりを持っ +ているため、他のレストランとは店内の雰囲気が異なり高級感がある。
+また、創業時から地元の食材にこだわっている。魚に関しては、通常のレストランでは捌かれたものを +仕入れるが、ル・ポットフーでは、鮮度にこだわり店内で捌いている。
+昔から有名人がこの味を求めて訪れたために有名店となった。

オススメ品

魚料理、肉料理

住所

998-0023
+山形県酒田市幸町1-10-20 日進開発ビル3F

電話番号
+0234-26-2218

+ + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo1-150.jpg Binary file syuzai/rupo1-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo1-720.jpg Binary file syuzai/rupo1-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo1.jpg Binary file syuzai/rupo1.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo2-150.jpg Binary file syuzai/rupo2-150.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo2-720.jpg Binary file syuzai/rupo2-720.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/rupo2.jpg Binary file syuzai/rupo2.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/sakura.jpg Binary file syuzai/sakura.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/shonaihormone.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/shonaihormone.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,78 @@ + + + +庄内ホルモン + + + + +

+ +

庄内ホルモン

「いらっしゃいませ!」中町に活気あふれる一軒の焼き肉店がある。庄内ホルモンである。今回は、このお店の料理長の佐藤圭介さんにお話を伺った。

+ +

入って驚き、タイムスリップしたかのような内装!

まず、店内に入り目に飛びこんできたのは昭和を感じさせる内装であった。 +ちょうちんや昭和当時のポスターが多く飾られていた。佐藤さんによると、日本 +が高度成長で最も元気があった1980年代をイメージしているとのことだった。ま +た、店内を非現実・非日常にすることでその雰囲気を楽しんでもらいたいという +意図もある。ポスターは当時のものをインターネットで購入しており、中には +2,3万もするものあるそうだ。意外だったのが、この昭和を感じさせる内装と対 +照的にスタッフがとても若かったことだ。平均年齢は、20代前半程度で内装が昭和イメージして +いるだけに、そこにギャップを感じた。このお店も今年で7年目とのことだった。 +

+ +

肉は一頭買い!そして国産へのこだわり

庄内ホルモンは肉にもこだわっている。牛肉、豚肉、鳥肉は全て国産の +ものを提供していた。また、常時同じ品質のものを提供するために一頭買いをし +ている。一頭買いをすることで、低価格での販売ができるそうだ。そして、仕入れた肉は店長と料理長が毎日丁寧に切り分けている。庄内ホルモンは、地産地消 +にもこだわっている。肉は基本的に山形県内から仕入れており、中には庄内産の +ものもあるそうだ。馬肉に関しては本場九州から仕入れるという点からも肉への +こだわりが感じ取れた。

庄内ホルモンは、店名からも分かるように"ホルモン"に強い +こだわりがあるようで、焼肉屋というよりはホルモン屋という感じが強かった。 +ホルモンの中でも牛タンに力を入れており、並タン、上タンといったスタンダー +ドなものから華咲牛タンといったインパクトが強いオリジナルメニューまで種類 +が豊富だった。メニューは、定期的に新しいものを追加しており、、季節によっ +ても変えているそうだ。佐藤さんに今の時期のお勧めメニューを聞くと、もつ鍋 +だと答えてくれた。このもつ鍋は、牛ホルモンを使用し、東北のものとは異なり +博多の味を再現したものであった。

+ +

食育、それは食による教育!

庄内ホルモンが目指しているものとして、食育がある。これは、食を通じて +お客さんを元気にしたいというものだ。特に子どもに安心・安全な食を提供し、 +育てていくことを目指している。食育を推進するために、小学生以下のお子様に +はお子様カルビ、ジュースを無料で提供している。さらに、麦飯については高校生まで無料としているので力の入れようが伺えた。

+ +

今回お話を伺った佐藤さんは、庄内ホルモンについてとても詳しく、丁寧に +教えてくれ、お店に対する熱意が伝わってきた。特に肉のことについて語っ +ているときは楽しそうな感じがし、仕事へのこだわりが感じ取れた。

+ +

店舗情報

庄内ホルモン酒田店
+住所
+998-0043
+山形県酒田市本町3丁目6-40
+電話番号
+0234-23-2917

+ +

庄内ホルモン鶴岡店
+住所
+997-0015
+山形県鶴岡市末広町6-6
+電話番号
+0235-64-0429

+ + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/shonaihormone.jpg Binary file syuzai/shonaihormone.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/skip.png Binary file syuzai/skip.png has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/syuzai.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/syuzai.css Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,8 @@ + +body{ + background: #f9c013; +} + +div.main{ + background: white; border: 10px solid #fdea0f; padding: 1em; margin: 10px; +} \ No newline at end of file diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/syuzai.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/syuzai.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,50 @@ + + + +SKIP - Shonai Koeki Information Project + + + + + +

+ +

新着情報割烹出島さんの記事を更新！！

+ +

取材一覧

+ + + + + + + + + + + +

ル・ポットフー	モアレ

浪漫亭	港座

土筆	出島

フルーツデリにしむら	欅

庄内ホルモン	手打そばなかむら
	+

+ + + + + + diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/tn_img_8459.jpg Binary file syuzai/tn_img_8459.jpg has changed diff -r a21a8b5813f7 -r e4deee2129f8 syuzai/tukusi.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/syuzai/tukusi.html Tue Feb 18 15:41:42 2014 +0900 @@ -0,0 +1,25 @@ + + +土筆 + + + + +

+ +

土筆

歴史

伝説

オススメ品

住所

電話番号
+

%time%

%sbj%

罩翫�

+%history% +

篌�茯�

+%regend% +

��鴻�鴻�≦��

%osu%

篏��

%add%

�肢��
+

%tel%

+ + diff -r a21a8b5813f7 -r e4deee2129f8 van.JPG Binary file van.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 van2.JPG Binary file van2.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 van3.JPG Binary file van3.JPG has changed diff -r a21a8b5813f7 -r e4deee2129f8 van4.JPG Binary file van4.JPG has changed

特長	皮膚科と呼吸科にまたがって、アレルギーだけを扱う
主な症状	湿疹が出る肌が痒い
主な病気	アレルギー性結膜炎ぜんそく

特長	眼、鼻、顔面、皮膚などについて、 - これに起因する精神的負担の軽減、除去効果も考慮し、 - この形状をより美的に形成する
主な処置	豊胸　美容整形　脂肪吸引　永久脱毛 -

特長	目に関する病気の診療
主な症状	視力が落ちた　モノがみえずらい -　視野が狭くなった　充血　乾き　疲れ -　痛み　違和感　まぶたの腫れ -
主な病気	白内障　ドライアイ　網膜はく離 -　緑内障　アレルギー性結膜炎

特長	手術によって治療を行う
主な症状	外傷　腫瘍　炎症 - 　（体のあらゆる部位・臓器にわたる） -
主な病気	肝血管腫漏斗胸

特長	皮膚・口腔・爪・髪の毛などの疾患を対象として診療する
主な症状	肌がぶつぶつする肌荒れ肌のかゆみ
主な病気	アトピー性皮膚炎　皮膚炎　あせも - 　にきび　水虫 -

特長	腎臓・膀胱・陰茎・尿管・尿道・精巣・前立腺などに関する診療をする
主な症状	血尿高血圧腰痛体重減少
主な病気	腎がん膀胱がん腎下垂症包茎

特長	胃腸消化管肝臓胆のうすい臓などに関する疾患の診療
主な症状	胸焼け胃もたれ吐き気食欲不振 - 胃痛腹痛便秘下痢血便 -
主な病気	胃炎胃潰瘍ウイルス性胃腸炎胃がん大腸炎など

特長	耳・鼻・のど(咽喉)などの他に口腔や食道などの気管も対象として診療している
主な症状	くしゃみ鼻づまり聴力の低下
主な病気	アレルギー性鼻炎慢性鼻炎歯性上顎洞炎副鼻腔炎

特長	心臓と血管に関する疾患の診療
主な症状	安静時・運動時の胸部の痛み - 背中の痛み動機・息切れ - 脈の乱れめまい立ちくらみ -
主な病気	高血圧糖尿病 - 心筋梗塞狭心症不整脈 -

特長	体表面を中心とするあらゆる先天性・後天性の変形を - 外科的手段などにより正常に近づけ - 患者さんの肉体的・精神的苦痛を取り除く
主な症状	- 外傷（顔面骨骨折の治療） - 先天異常（口唇裂　多指症　小耳症） - 腫瘍（やけどやけがによる変形・傷跡） - 美容（でべそ　わきが） -
主な病気	陥入爪眼瞼下垂脂肪腫小耳症

特長	耳鼻咽喉科と呼吸器化との間を埋める - 咽頭や下咽頭　気管支などの診察
主な症状	長い間咳がとまらないのどの痛み違和感
主な病気	食道がん　アレルギー性気管支炎

特長	呼吸器(肺、気管、気管支、胸壁など)に関わる疾患のうち、 - 内科的治療行う
主な症状	呼吸が苦しい咳やたんが多い - 深呼吸すると胸や背中が痛い -
主な病気	風邪インフルエンザ慢性気管支炎 - 肺炎肺梗塞肺がんなど -

特長	脳・脊髄・末梢神経系や血管・骨・筋肉など - 神経系疾患の中で主に外科的治療の対象になる疾患について診療する
主な症状	もの忘れ頭痛けいれん言語理解の損失意識傷害
主な病気	くも膜下出血　脳梗塞　脳卒中 -　脳腫瘍　椎間板ヘルニア - 　頭骸骨骨折　頭蓋内出血 - 　老化と痴呆（水頭症　脳血流低下など） - 　先天奇形 - 　炎症性疾患（髄膜炎　脳炎　寄生虫） -

特長
主な症状	関節やその周囲には腫れや痛みを伴うリウマチを中心とした - 自己免疫疾患の診察・治療　関節が痛く、 - 発熱、倦怠感、体重の減少なども伴う -
主な病気	関節リウマチ全身性硬化 -　血管炎症候群　骨粗しょう症痛風 -

特長	産科と婦人科の2つを併合したもの。 - 　妊娠　分娩　産後ケア - 　生理不順　更年期 - 　卵巣・卵管・子宮などに起因する病気 -
主な症状	子宮からの出血下腹痛腰痛
主な病気	更年期障害　悪性腫瘍　性感染症切迫流産早産妊娠中毒症前置胎盤

特長	性行為によって感染する性行為感染症に関する診療をする
主な症状	月経がこない腹部の痛み - 陰部に硬結があらわれる - おりものが多い -
主な病気	淋病、梅毒、性器ヘルペス - 尖圭コンジローマ、クラミジア感染症 -

特長	手術によって治療を行う
主な症状	外傷　腫瘍　炎症 - 　（体のあらゆる部位・臓器にわたる） -
主な病気	肝血管腫漏斗胸

特長	精神疾患や心の病気を診療する
主な症状	過度な不安抑鬱イライラ -幻覚幻聴妄想など
主な病気	統合失調病アルツハイマー -パニック障害うつ病 ADHD など - -

特長	虫歯や歯並びの治療から歯茎の治療まで行う
主な症状	歯の痛み歯がしみる
主な病気	虫歯知覚過敏歯周病歯肉炎

特長	虫歯などの歯科的な疾患だけでなく口腔外科疾患では - 病巣感染の原因除去などの口腔ケアも行っています。
主な症状	歯の痛み口内炎
主な病気	舌癌口腔底癌エナメル上皮腫唇顎口蓋裂

特長	こどもの疾患に関して診療
主な症状	発熱咳がとまらない食欲低下 - 泣き方が弱弱しい　下痢・嘔吐が続く -　皮膚や白目が黄色い　けいれん -
主な病気	小児喘息咽頭結膜熱プール熱

特長	消化管肝臓胆のうすい臓などの疾患に関する診療
主な症状	体重減少胃痛便秘下痢血便 - 胸焼け胃もたれ吐き気食欲不振 -
主な病気	アルコール性肝炎逆流性食道炎腹膜炎など -

特長	心身病に関する診療を行う -身体疾患の中でも、心理社会的な因子が関与しているもの - ただし、精神障害に伴う場合は除外する。 -
主な症状	腹痛、下痢、便秘、頭痛など -ただし、心理社会的な因子が関与する場合 -
主な病気	過敏性腸症候群など

～10代	0軒
20～30代	3軒
40～50代	6軒
60代～	7軒

サラリーマン	2軒
女性	6軒
高齢者	7軒
その他	1軒

利用している	12軒
利用していない	4軒

持っている	10軒
持っていない	6軒

内科	外科	心療内科
精神科	神経科	神経内科
呼吸器科	消化器科	胃腸科
皮膚科	泌尿器科	循環器科
アレルギー科	リウマチ科	小児科
整形外科	形成外科	美容外科
脳神経外科	呼吸器外科	心臓血管外科
小児外科	肛門科	性病科
産婦人科	産科	婦人科
眼科	耳鼻いんこう科	気管食道科
放射線科	放射診断科	放射線治療科
リハビリテーション科	麻酔科	歯科
矯正歯科	小児歯科	歯科口腔外科

*VAN*

*SKIP インタビュー*

Q1:どうしてこのプログラムを作ろうと思ったんですか？

Q2:カフェテリアメニュー検索プログラムの工夫したところは？

Q3:一年間基礎プログラミングの授業を受けての感想は？

ありがとうございました( ´∀｀)！

SKIP*BLOG

*2013-04-17*

今日のサークル活動

Writer:Kei Kamada

SKIP*BLOG

*2013-04-22*

桜が咲きました^^

Writer:Kei Kamada

SKIP*BLOG

*2013-05-22*

テスト

Writer:nanochan

SKIP*BLOG

*2013-05-29*

明日の活動

Writer:Kei Kamada

SKIP*BLOG

*2013-05-31*

Field Work in Sakata

Writer:Kei Kamada

SKIP*BLOG

*2013-06-29*

第二回中町取材

Writer:KAMADA Kei

診療科検索

-症状 -症状からどんな診療科に行けばよいのかを検索できます! -診療科名 -「この診療科って何を診療するの??どんな診療科なの??」という疑問にお答えします!

- -

山形県内の病院検索

プログラムについて

SKIP*BLOG

*2013-04-17*

今日のサークル活動

Writer:Kei Kamada

SKIP*BLOG

*2013-04-22*

桜が咲きました^^

Writer:Kei Kamada

SKIP*BLOG

*2013-05-22*

テスト

Writer:nanochan

SKIP*BLOG

*2013-05-29*

明日の活動

Writer:Kei Kamada

SKIP*BLOG

*2013-05-31*

Field Work in Sakata

Writer:Kei Kamada

SKIP*BLOG

*2013-06-29*

第二回中町取材

Writer:KAMADA Kei

SKIP*BLOG

SKIPへようこそ！

SKIP*BLOG

検索結果

乗車

降車

乗車

降車

乗車

降車

乗車

降車

酒田駅大学線バス時刻検索

路線図

時刻検索

プログラムに関して

検索結果

乗車

降車

乗車

降車

VAN

SKIP インタビュー

2013-04-17

2013-04-22

2013-05-22

2013-05-29

2013-05-31

2013-06-29

-症状
-_{症状からどんな診療科に行けばよいのかを検索できます!}
-診療科名
-_{「この診療科って何を診療するの??どんな診療科なの??」という疑問にお答えします!}

-
-

2013-04-17

2013-04-22

2013-05-22

2013-05-29

2013-05-31

2013-06-29

市内循環線バス時刻検索/h1>
\n") -print("") -print("

SWAN�SKIP�上�域��紫�篋�綣乗��紫��

��羆��絖��

SWAN�SKIP�上�域��紫�篋�綣乗��紫��

篏��綺�

SWAN�SKIP�上�域��紫�篋�綣乗��紫��