# HG changeset patch # User HIROSE Yuuji # Date 1526865541 -32400 # Node ID d2d89793be141e1de7e14a0d8f961afc167ac9a3 # Parent 2e332b1abf94546d16f434c1c81f7d82121e1dd8 s/syuzai/shuzai/g completely diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/HowtoEdit.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/bisyozyo/HowtoEdit.txt Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,60 @@ +XXXXXXXXXSSSSSXXXXXXXXZZZZQQQWZZZZXeo#XX +X2SSXXXXXSS2SSSSXXXXXXXZXZZ##XXZXXenmZXX +XSS2XXXXXSSSSS2XS2XSXXXXZZZXXXZXX2IdZXXX +XSSSXXXXXSSSS2XSSSSSXXXZZZXZZZZXXl|XXXXX +XXXSXXXXXXXSSXXSSXXXXXXZZZZZXZXX1I=XXXXS +XXXXXXZZXXXXXXXXXXXXXXZmQQmXXZXovoinmmmm +ZXXXXXZZZZXXXXXXXXXXZZZYVY*S}ISnX2vvYYYY +ZZZZXZZUZZZZZXXXXXZXXes||+ivi|voXXvl:;:; +mm#ZZZ#Z#ZZZXZZZZZZXX1i|++||1lvXXXpv::.: +$WXZZZZZZZXXXXZZZZXS1I||i||=vvvI1SXn;::_ +lnXXXX2XXXXSXXXXXX1lvI|i|||=|iIvns==X +oXXZXXXX#ZZZXZXZX1|iivI%=++===+i|||i +ZX##mQQQXvnooe==:dZUqooXXnvnuo>=;==i|||i +Z#ZmWWQQXnno21=.]Z|>+SoXmoXXYY(=;==||||| +ZXn##WWQXvno2c::dwas|ii>;=##mq###Wm#mmoou=;;=||||| +ZovXmWWQ#nvXm(==XZ####mW##m#mmX=;;=|+||| +X2{ZXWWQ#}IvS>;=XXZ##m#W###mm#X==:=|=|i| +X1{XnWWWmounl|;;vXXZZZS2SXZ###X>:;=+=||| +Xz{XnWmQm2Xol|;=)XSXXs|i|inZZXo=:;=|=|i| +XouXX#WQ#slIi|;=)S2XXXonvuZXXS1=:==+=||i +mm###WBQ#o2oo+===2S2SXSXX#XXSni:;=+|;<|i +#Z1ZS#WW#1111+==.3on}==||**Inv>===|===:=+|+|||ii +Xcvo3#BW#iii===;:...+11212l|=:=+|+||+iii +X1vovmWW#vv>===;:....-ii||==;:|=|||<=ili +Xc{on#mW#nX====::....:=i||++=+++|+|=iii| +Xc{Xo#WW&oc=:;:::..-.:=ii||++|=|||+=|.::.:..:innv||>==|=+=|+==;:== +Xc{XvZ#mmWc.;::..:=vnnvi|+=|=+||||==;;== +Z({2vmmBWmk:::-.::|vo1li|=i|+v##mmmmC||||vZ####Xsii|id#zl||ivnomBm#WZmsiiiiii|< +XnnXZ#XXvliiivm#}|ivXSqmBmWBWB#vvllil||i +XooXSXZSlii|i3m#invXZZmmmBWWWW#nniIivi|v +ZZ##zIIiii|==|||i+| +Z###mmmmmdm####ZXXZXX###X##Xei|=||iiii|= diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/back_bisyouzyo.xcf.bz2 Binary file archive/bisyozyo/back_bisyouzyo.xcf.bz2 has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/bisyouzyo.png Binary file archive/bisyozyo/bisyouzyo.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/bisyozyo.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/bisyozyo/bisyozyo.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,41 @@ +body { + background: url(bisyouzyo.png) + } + +h2 { + background: #ffd620; + padding: 3px 3px 3px 20px; + border-top-right-radius: 2ex; + border-bottom-right-radius: 2ex; + border-top-left-radius: 2ex; + border-bottom-left-radius: 2ex; + width: 250px; + text-align: left; + color:black; + } + +p.new { + width:100%; + text-align:left; + border-style-bottom:thin solid; + color:black; + } + +p.new span { + background:#ffd620; + padding:3px 3px 3px 3px; + } + +div.soko{ + text-align:left; + padding-right:110px; min-height:117px; + padding-left:1em; + background:white url(soko.png); + background-repeat:no-repeat; + text-indent: 6em; + margin-right:10%; margin-left:1em; + } + +p.small{ + font-size:small; + } \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/girl.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/bisyozyo/girl.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,21 @@ +body { +background: url(bisyouzyo.png) +} + +div.image { +margin-right: 1em; +height: 1em; +float: left; +} + +div.image img { +border: 6px #307ce9 solid; +margin-right: 8px; +border-top-right-radius: 2ex; +border-bottom-right-radius: 2ex; +border-top-left-radius: 2ex; +border-bottom-left-radius: 2ex; +} + + + \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/index.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/bisyozyo/index.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,50 @@ + + +美少女図鑑 + + + + +
+ + + + + +
+ +

+ +
+
+ + + + + +
+ +

めんこいガールとは

+

東北公益文科大学で噂の美少女に取材、撮影を行い、美少女に迫るコーナー +です +美少女たちから自分よりも可愛い人を紹介してもらい、リレー方式で美少女を紹 +介していきます。

+ +

+新着 +第1回　めんこいガール 荒井 颯子 +

+ +
+
+

第一回

+

公益大一美しい女

+

荒井 颯子♡

+
+ +
+ +
+ + \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/soko-2.JPG Binary file archive/bisyozyo/soko-2.JPG has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/soko.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/bisyozyo/soko.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,52 @@ + + +めんこいおなご + + + + +
+ + + + + +
+

公益大一美しい女

+
soko
+ + + + + + +
なまえ:荒井 颯子(あらい そうこ)
コース:社会福祉コース
教員:武田真理子 先生
誕生日:4月28日
サークル:サッカー部マネ、吹奏楽(トランペット)、スキューバ、公翔祭
+ +
+ + + + + +
+ +

---美 の秘訣は？

+

そんな、、、ないですよ〜(笑)

+

(※SKIP記者が懇願(^o^))

+

えっと、よく食べて、よくしゃべって、よく寝ることですかね(笑)

+

---楽しいことってなんですか？

+

ドミトリーの友達と遊んでいるのが楽しいです！

+

ごはんも当番制にしているんですよ〜

+

---似ていると言われる有名人とかはいますか？

+

深夜にやっていたお笑い番組ってなんでしたっけ？あの、ピ、、、！

+

ピカルの定理！！ピカルの定理に出ている女のひと、、、名前なんでしたっ + け？(笑)

+

(スマホで調べて、)西山まりやさんっていわれます！

+ +
+ + + +
+ + \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 archive/bisyozyo/soko.png Binary file archive/bisyozyo/soko.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/index.html --- a/archive/index/index.html Mon May 21 10:11:23 2018 +0900 +++ b/archive/index/index.html Mon May 21 10:19:01 2018 +0900 @@ -7,29 +7,29 @@
-

-dezima +

+dezima

-

-nisimura +

+nisimura

-photo +photo

-photo +photo

-photo +photo

-photo +photo

-

-photo +

+photo

-photo +photo

@@ -37,7 +37,7 @@
-
top取材プログラム +
top取材プログラム アンケートきらりびと
diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,10 @@ +<<<<<<< local +AddHandler cgi-script .rb +AddType "text/html; charset=UTF-8" .rb +Options +ExecCGI +======= +AddHandler cgi-script .rb +AddType "text/html; charset=UTF-8" .rb +AddType "text/html; charset=UTF-8" .html +Options +ExecCGI +>>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/Bingo.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/Bingo.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,76 @@ +html,body { + width: 100%; + height: 100%; +} +div.outflam{ + width: 800px; + height: 1240px; + margin-left: auto; + margin-right: auto; + padding: 0 auto; + } + +div.top{ + background: #136cf9; + background-image: url("png/top.png"); + background-repeat: no-repeat; + border: thin solid #136cf9; + width: 100%; + height: 180px; + margin-top:0 auto; + margin-bottom:0 auto; + margin-left: auto; + margin-right: auto; + +} + +p,h3 { + margin:0; + padding-left: 5%; + font-weight: 900; + height: 5%; + width: 95%; + border: thin solid #136cf9; +} + +div.center{ + border: thin solid #1d38ff; + background: #1d38ff; + width: 100%; + height: 45%; + margin-left: auto; + margin-right: auto; +} + +table { + background: white; + margin-left: auto; + margin-right: auto; + margin-top: 1%; + margin-bottom: auto; +} + +div.bottom{ + background: #45e2fe; + background-image: url("png/bottom.png"); + background-repeat: no-repeat; + background-position: center bottom; + border:thin solid #45e2fe; + width: 100%; + height: 150px; + margin-left: auto; + margin-right: auto; +} + +div.bottom img { + float: left; + margin-left: 15%; +} + +div.charSTATUS { + clear: right; + margin-top: 7%; + background: rgba(255,255,255,0.75); + width: 70%; +} + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/Bingo.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/Bingo.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,436 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require 'date' +require './sub.rb' +require 'net/http' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/stamp.sq3") + +id = c.cookies["id"][0].to_i +magic = c.cookies["magic"][0].to_i +err = 0 # 筝罩ｃс域ゃ +sidesize = 3 +message = "ｃ茵障!
" # 潟雁鴻 + +print("Content-type: text/html; charset=UTF-8 \n\n") + +getcom = ARGV[0] + +### DELETE TABLE ### + +del = 'DELETE FROM main WHERE id=?' +if getcom == 'ududlrlrba' + db.execute(del, id) +end + +###### + +##### CHECKING UID ##### + +sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" +begin + user_data = db.execute(sql, id, magic) +rescue + user_data = [] +end + +if user_data == [] # 違ゃ潟(-1) + err -= 1 +end + +### LOGIN ERROR HTML ### + +if err == -1 + print' + + + + + + + +' +print' +

違ゃ潟紊掩障

+

+≪潟脂蚊若吾御･膓筝
+* 3腱腟ｃ腱糸翫＜腱糸筝 +

+ + +' + exit +end + +###### + +########## + +##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### + +# stamp status +stamp_st = user_data[0][0] +stamp_st = stamp_st.split(//) # 筝絖ゅ +stamp_st = stamp_st.map {|s| s.to_i} # 絖医 + +# stamp img +stamp_img = user_data[0][1] +stamp_img = stamp_img.split(",") # 絖","у阪ｃ + +########## + +##### STAMPPING ##### + +### Making randam number ### + +def taiou(sidesize) + srand(256788901) + stamp = Hash.new("n") + stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] + (sidesize**2).times do |n| + stamp[rand(10000000)] = stamp_name[n] + end + stamp +end + +###### + +##### Checking bingo method ##### + +def bingocheck(start, sidesize, stepon, stamp, decision, bingo) + nbox = [] + setbox = Hash.new + if sidesize == stepon + x = sidesize + else + x = 1 + end + x.times do |m| + start.step(sidesize*sidesize - 1, stepon) do |n| + nbox << n + m + if nbox.length == sidesize + dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) + for i in nbox + if stamp[i] == 0 + dbox << i + end + end + # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 + if dbox.length == decision + setbox[dbox] = nbox + bingo << setbox + setbox = Hash.new + nbox = [] + else + nbox = [] + end + end + end + end +end +# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] +########## + +### Checking Access Cord(AC) ### + +getAC = ARGV[0].to_i # URL?篁ラ綣違緇 +rightAC = taiou(sidesize) # taiouхAC激 +#p rightAC +rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n + +##### ACCESS LOG ##### +t = Time.now +time = (t.hour * 3600) + (t.min * 60) + t.sec + +## Checking sql_master table. If sqlite_master don't have tablename, it create. + +sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" +check_master = db.execute(sql_master) +sql_logs = 'CREATE TABLE logs( +id INTEGER PRIMARY KEY AUTOINCREMENT, +uid INTEGER, +ac TEXT, +time INTEGER); +' +if check_master == [] + db.execute(sql_logs) +end + +########## + +begin + get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 + log_check = db.execute(get_log, id) +rescue + print'GETTING LOG ERROR!' +end +begin + log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' + db.execute(log, id, rightAC, time) +rescue + print'INSERT LOG ERROR!' +end +# /* memo: 綺激鴻篏鴻帥潟若祉 */ # + +########## + +### 潟眼ゃ潟ゅ(decision = 0) ### +bingo = [] +# 罔 +bingocheck(0, sidesize, 1, stamp_st, 0, bingo) +# 膰 +bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) +# 綏 +bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) +# 勄 +bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) +####### + +bingo = bingo.length # 潟眼 +last_bingo = bingo + +if rightAC != "n" # rightAC罩ｃ + + ### Update Stamp_status And Stamp_img ### + + # Replacing Image # + + index_st = [] + stamp_st.length.times { |c| + if stamp_st[c] == 0 + index_st << c + end + } + + ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] + reach = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 1, reach) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) + ####### + + begin + reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 + rescue + reach = [] + end + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + # Updating stamp_st # + if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ + if stamp_st[stamp_img.index(rightAC)] < 9 + stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 + message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" + else + message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" + end + else + if reach != [] && bingo == 0 # 潟眼綽3у + stamp_st[reach] += 1# 潟眼医篁ｅ + stamp_img[reach] = rightAC + message = "違鴻帥潟GET障!" # Top message + else + randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 + stamp_st[randam_number] += 1 # 吾違1莇潟 + stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ + message = "違鴻帥潟GET障!" # Top message + end + end + ## + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + + ## + + # Convert to string # + + stamp_st_string = stamp_st.join + stamp_img_string = stamp_img.join(",") + + ## + + sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" + db.execute(sql_update, stamp_st_string, stamp_img_string, id) +end + +###### + +########## + +##### HTML ##### +print' + + + + + + + +' +### TOP ### + +sql_rank = 'select rank from main where id=?;' +rank = db.execute(sql_rank, id).flatten(2)[0].to_i + +print' +
+' +if rank > 0 + print'
' +else + print'
' +end +# - 潟眼鴻若帥劫 - # + +if rank > 0 + printf("

с障!!
%d膈 綵吾障!!

", rank) + # print'

初吾腟篋障綣膓鴻帥罐純推!!

' +end + +# End of top +print' +
+' +# Top message # + +bc = bingo.to_i - last_bingo.to_i + +if bc > 0 + message += '
с!' + bc.to_s + message += '潟贋障!!
' +end + +if rank > 0 + printf("

%sс障! %d膈 綵吾障!!

", message, rank) +else + printf("

%s

", message) +end + +## + +###### + +### CENTER ### +print' +
+ +' +for i in 0..2 + print'' + 3.times do |n| + if stamp_st[3*i+n].to_i > 0 + printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) + else + print"\n" + end + end + print'' +end +# End of center +print' +
\"stamped\"%d
+
+' +###### + +### BOTTOM ### +print' +
+' +# - RPG茵腓 - # + +name = user_data[0][2] +job = user_data[0][3] +sex = user_data[0][4] +exp = user_data[0][5] + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +## UPDATE EXP ## + +update_exp = 'UPDATE main SET exp=? WHERE id=?;' +db.execute(update_exp, charST[2], id) + +#### + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +printf(" + +
+ +
+
+ID:%04d
+NAME:%s
+Lv: %d / ＜Lv: %d
+綵悟∈: %3.3f \% +
+", charST[0], id-1, name, charST[2],sumexp , charST[1]) + +# End of bottom +print'
' +# End of outflam +print'
' +###### + +print' + + +' +########## diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/account.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/account.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,63 @@ +<<<<<<< local + + + + +吟ゃ括泣潟 + + + + + +

帥鴻帥潟主脂蚊若

+

ュ

+
+

:(若)

+

:

+

綛岩撮:

+

肴昆:

+

吾с:

+

(傑キ筝荐吾ст吾с)

+ +
+ + +======= + + + +鴻睡脂蚊若 + + + + + +

+

鴻帥潟2014726()＜障腟篋眼障 +緇≦婚障!

+

+ + + +>>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/account2.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/account2.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,42 @@ + + + +鴻睡脂蚊若 + + + + +

鴻睡脂蚊若

+

ュ

+
+

:(若)

+

:

+

綛岩撮:

+

肴昆:

+

吾с:

+

(絅純傑キ吾с)

+
+篁ｆ帥鴻 +
+ + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/accountcheck.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/accountcheck.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,105 @@ +<<<<<<< local +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +#require 'sqlite3' +require 'cgi' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +#db = SQLite3::Database.new("sql/stump.sq3") + +print("Content-type: text/html; charset=UTF-8 \n\n") + +name = c["name"] +job = c["job"] +sex = c["sex"] + +print' + + + + +Registering Account + + +' +printf' +

脂蚊絎篋障筝荐潟鴻帥潟若若ユ筝!

+

>> Let\'s go to Stamp Rally <<

+',name,job,sex +print' +

+

>> ≪潟脂牙脂≪祉 <<

+' +print'' +======= +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require './magic.rb' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/stamp.sq3") + +begin + result = db.execute("select * from main;") + max = "select max(id) from main;" +rescue + db.execute("create table main(id INTEGER PRIMARY KEY AUTOINCREMENT,name,sex,age,aria,job,stamp_status,stamp_img,exp INTEGER,rank INTEGER,magic)"); + db.execute("insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values('','у','綛岩撮','篏','傑キ','鴻帥潟倶','鴻帥潟糸','','綵檎篏','篋榊∈茯')"); + result = db.execute("select * from main;") + max = "select max(id) from main;" +end + +id = c.cookies["id"][0] +c_magic = c.cookies["magic"][0] +name = c["name"] +job = c["job"] +age = c["age"] +sex = c["sex"] +aria = c["aria"] + +begin +sel = 'select * from main where id=? AND magic=?' +h = db.execute(sel, id.to_i, c_magic.to_i) +rescue +h == [] +end + +if id != nil && h != [] +update = 'update main set name=?, job=?, age=?, sex=?, aria=? where id=? and magic=?' +mg = c_magic +db.execute(update, name, job, age, sex, aria, id.to_i, mg.to_i) +else +code = magic() +id = db.execute(max).flatten(2)[0].to_i + 1 +mg = code[id] +sql = "insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values (?,?,?,?,?,?,?,?,?,?);" +db.execute(sql,name,sex,age,aria,job,'000010000','n,n,n,n,kamo,n,n,n,n',0,0,mg); # +end + +expires = "Sun, 27 Jul 2014 00:00:00 GMT" + +printf("Content-type: text/html; charset=UTF-8 +Set-Cookie:id=%s ;expires=%s +Set-Cookie:magic=%s;expires=%s\n\n",id,expires,mg.to_s,expires) + +print' + + +Registering Account + +' +printf' +

脂蚊絎篋障

+

ID%04dс初吾ID茵障

+

筝荐潟鴻帥潟若紮筝!

+

>> Let\'s go to Stamp Rally <<

+

+ + +',id.to_i-1 +>>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,9 @@ +AddHandler cgi-script .rb +AddType "text/html; charset=utf-8" .rb +AddType "text/html; charset=utf-8" .html +Options +ExecCGI +AuthUserFile /home/www/skip/minato2014/admin/.htpasswd +AuthGroupFile /dev/null +AuthName "認証サイト" +AuthType Basic +require valid-user diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/.htpasswd --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/.htpasswd Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,3 @@ +fujix:fu5QjLTqbHEaQ +shokok:9tQUls7fXzqMA +Murakami:7Y005Wtya7Ogw diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,9 @@ +AddHandler cgi-script .rb +AddType "text/html; charset=utf-8" .rb +AddType "text/html; charset=utf-8" .html +Options +ExecCGI +AuthUserFile /home/www/skip/minato2014/admin/.htpasswd +AuthGroupFile /dev/null +AuthName "認証サイト" +AuthType Basic +require valid-user diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/.htaccess2 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/.htaccess2 Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,9 @@ +AddHandler cgi-script .rb +AddType "text/html; charset=utf-8" .rb +AddType "text/html; charset=utf-8" .html +Options +ExecCGI +AuthUserFile /home/irhome/c112/c112124/public_html/web/minato2014/admin/.htpasswd +AuthGroupFile /dev/null +AuthName "認証サイト" +AuthType Basic +require valid-user diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/.htpasswd --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/.htpasswd Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,3 @@ +fujix:fu5QjLTqbHEaQ +shokok:9tQUls7fXzqMA +Murakami:7Y005Wtya7Ogw diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/chusen.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/chusen.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,26 @@ + + + +Database delete + + + + + +

初悟若

+

絎茵若帥若鴻吾紊障

+

絎茵羈

+
+

初吾茵障?
+ + +

+ + +
+ +
c111126@g.koeki-u.ac.jp
+ + + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/chusen.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/chusen.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,52 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("../sql/stamp.sq3") + +check = c['check'] +if check == "OK" + begin + result = db.execute("select id,exp,rank from main;") + rescue + exit + end + all = Array.new + for id,lv,rank in result + if id == "ID" || lv == 0 || rank.to_i != 0 + next + end + lv.to_i.times do + all << id + end + end + + tousen = Array.new(0) + atari1 = rand(all.length) + tousen << all[atari1] + all.delete_if {|x| x == tousen[0]} + + sql = "update main set rank = 1 where id = ?;" + db.execute(sql,tousen[0]) + + sql = "update main set rank = 2 where id = ?;" + while tousen.length < 4 + srand + atari2 = rand(all.length) + hoge = all[atari2] + tousen << all[atari2] + all.delete_if {|x| x == hoge} + db.execute(sql,hoge) + end + + i=0 + printf("Content-type: text/html; charset=UTF-8\n\n") + + printf("

1膈ID%04d!с!

\n",tousen[i].to_i) + printf("

2膈ID%04d%04d%04d!с!

\n",tousen[i+=1].to_i,tousen[i+=1].to_i,tousen[i+=1].to_i) +else + print"

初吾障茵障

" +end diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/delete.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/delete.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,26 @@ + + + +Database delete + + + + + +

若帥若号ｻ

+

絎茵若帥若鴻ゃ障

+

絎茵羈

+
+

綵羔障?
+ + +

+ + +
+ +
c111126@g.koeki-u.ac.jp
+ + + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/delete.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/delete.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,36 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' + +db = SQLite3::Database.new("../sql/stamp.sq3") + +c = CGI.new(:accept_charaset => "UTF-8") +check = c['check'] +if check == "OK" + begin + db.execute("drop table main;") + db.extcute("drop table logs;") + text = "

若帥ゃ障

" + rescue + text = "

若帥障

" + end +else + text = "若帥ゃ障" +end + +printf("Content-type: text/html; charset=UTF-8\n\n") + +printf' + + +Delete table + + + +%s +

若翠画Η若吾

+

+ +',text diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/etsuran.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/etsuran.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,41 @@ +#!/usr/bin/env ruby +#coding:utf-8 + +require'cgi' +require'sqlite3' + +db = SQLite3::Database.new("../sql/stamp.sq3") + +c = CGI.new(:accept_charaset => "UTF-8") + +flag = 0 +text = "

脂画筝荀с茵腓冴障

\n" +begin + result = db.execute("select * from main;") +rescue + flag = 1 + text = "

若帥障

\n" +end + +printf("Content-type: text/html; charset=UTF-8\n\n") + +printf' + + +Delete table + + + +

若翠画Η若

' +puts text +if flag == 1 +else + print"\n" + result.each do |line| + printf("\n",line[0],line[1],line[2],line[3],line[4],line[8],line[9]) + end + print"
%s%s%s%s%s%s%s
" +end + +print'' diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/backup/test.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/backup/test.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,33 @@ + + + + + + + + + +

紊ц冴

+

+ + + + + + +
若吟弱у綛岩撮贋 + 潟篏
+

+ +
c112124@h.koeki-u.ac.jp
+ + + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/chusen.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/chusen.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,24 @@ + + + +Database delete + + + + + +

初悟若

+

絎茵若帥若鴻吾紊障

+

絎茵羈

+
+

初吾茵障?
+ + +

+ + +
+ + + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/chusen.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/chusen.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,85 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require 'date' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("../sql/stamp.sq3") + +add = ENV["REMOTE_ADDR"] + +if /^(172\.19\.5\.|172\.17\.54\.|172\.21\.90\.)|118.21.142.107|202.214.125.107/ =~ add +check = c['check'] + +printf("Content-type: text/html; charset=UTF-8\n\n") + +sum = 'SELECT SUM(rank) FROM main WHERE NOT id=1;' +rank_sum = db.execute(sum).flatten(2)[0].to_i + +t = Time.now +expires = Time.local(2014, 7, 26, 11, 27) +expires2 = Time.local(2014, 7, 26, 13, 27) +if t > expires && rank_sum == 0 +elsif t > expires2 && rank_sum == 7 +else + check = "" + puts check +end + +if check == "OK" + begin + result = db.execute("select id,exp,rank from main;") + rescue + exit + end + all = Array.new + for id,lv,rank in result + if id == 1 || lv == 0 || rank.to_i != 0 + next + end + lv.to_i.times do + all << id + end + end + + tousen = Array.new(0) + atari1 = rand(all.length) + tousen << all[atari1] + all.delete_if {|x| x == tousen[0]} + + sql = "update main set rank = 1 where id = ?;" + db.execute(sql,tousen[0]) + + sql = "update main set rank = 2 where id = ?;" + while tousen.length < 4 + srand + atari2 = rand(all.length) + hoge = all[atari2] + tousen << all[atari2] + all.delete_if {|x| x == hoge} + db.execute(sql,hoge) + end + + i=0 + + printf("

1膈ID%04d!с!

\n",tousen[i].to_i-1) + printf("

2膈ID%04d%04d%04d!с!

\n",tousen[i+=1].to_i-1,tousen[i+=1].to_i-1,tousen[i+=1].to_i-1) +else + print"

初吾障茵障

\n" +end +else + printf("Content-type: text/html; charset=UTF-8\n\n") + + printf' + + +Delete table + + + +

膊∞若吾画Ηс障

' +end +print'' diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/delete.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/delete.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,26 @@ + + + +Database delete + + + + + +

若帥若号ｻ

+

絎茵若帥若鴻ゃ障

+

絎茵羈

+
+

綵羔障?
+ + +

+ + +
+ +
c111126@g.koeki-u.ac.jp
+ + + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/delete.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/delete.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,51 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' + +db = SQLite3::Database.new("../sql/stamp.sq3") +c = CGI.new(:accept_charaset => "UTF-8") + +add = ENV["REMOTE_ADDR"] + +printf("Content-type: text/html; charset=UTF-8\n\n") + +if /^(172\.19\.5\.|172\.17\.54\.|172\.21\.90\.)|118.21.142.107|202.214.125.107/ =~ add +check = c['check'] +if check == "OK" + begin + db.execute("drop table main;") + db.extcute("drop table logs;") + text = "

若帥ゃ障

" + rescue + text = "

若帥障

" + end +else + text = "若帥ゃ障" +end + +printf' + + +Delete table + + + +%s +

若翠画Η若吾

+

+ +',text + +else + printf' + + +Delete table + + + +

膊∞若吾画Ηс障

' +end diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/admin/etsuran.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/admin/etsuran.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,82 @@ +#!/usr/bin/env ruby +#coding:utf-8 + +require'cgi' +require'sqlite3' + +db = SQLite3::Database.new("../sql/stamp.sq3") + +c = CGI.new(:accept_charaset => "UTF-8") + +add = ENV["REMOTE_ADDR"] + +#if /^(172\.19\.5\.|172\.17\.54\.|172\.21\.90\.)|118.21.142.107|202.214.125.107/# =~ add +#rank = c["rank"] +flag = 0 +text = "

脂画筝荀с茵腓冴障

\n" +begin + # if rank == "y" + # rank_reset = 'UPDATE main SET rank=0 WHERE NOT id=1;' + # db.execute(rank_reset) + # end + result = db.execute("select * from main;") + log = 'select * from logs;' + logs = db.execute(log) +rescue + flag = 1 + text = "

若帥障

\n" +end + +#rank = "n" + +printf("Content-type: text/html; charset=UTF-8\n\n") + +printf' + + + +Delete table + + +

若翠画Η若

' +puts text +if flag == 1 +else + print"\n" + result.each do |line| + printf("\n",line[0].to_i-1,line[1],line[2],line[3],line[4],line[8],line[9]) + end + print'
%04d%s%s%s%s%s%s
' + # print'

+ #rank祉障?
+ #NO / + #YES
+ # + #

+ #' +end + +print'

違画Η

' +if flag == 1 +else + print'' + logs.each do |line| + printf("\n",line[0],line[1].to_i-1,line[2],line[3]) + end + print"
%s%04d%s%s
" +end +#else +#printf("Content-type: text/html; charset=UTF-8\n\n") + +#printf' +# +# +#Delete table +# +# +#

膊∞若吾画Ηс障

' +#end + + +print'' diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/bacup/Bingo.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/bacup/Bingo.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,77 @@ +html,body { + width: 100%; + height: 100%; +} +div.outflam{ + width: 800px; + height: 1240px; + margin-left: auto; + margin-right: auto; + padding: 0 auto; + } + +div.top{ + background: #136cf9; + background-image: url("png/top.png"); + background-repeat: no-repeat; + border: thin solid #136cf9; + width: 100%; + height: 180px; + margin-top:0 auto; + margin-bottom:0 auto; + margin-left: auto; + margin-right: auto; + +} + +p { + margin:0; + padding-left: 5%; + font-weight: 900; + height: 5%; + width: 95%; + background: #136cf9; + border: thin solid #136cf9; +} + +div.center{ + border: thin solid #1d38ff; + background: #1d38ff; + width: 100%; + height: 45%; + margin-left: auto; + margin-right: auto; +} + +table { + background: white; + margin-left: auto; + margin-right: auto; + margin-top: 1%; + margin-bottom: auto; +} + +div.bottom{ + background: #45e2fe; + background-image: url("png/bottom.png"); + background-repeat: no-repeat; + background-position: center bottom; + border:thin solid #45e2fe; + width: 100%; + height: 150px; + margin-left: auto; + margin-right: auto; +} + +div.bottom img { + float: left; + margin-left: 15%; +} + +div.charSTATUS { + clear: right; + margin-top: 7%; + background: rgba(255,255,255,0.75); + width: 70%; +} + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/bacup/Bingo.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/bacup/Bingo.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,442 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require 'date' +require './sub.rb' +require 'net/http' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/stamp.sq3") + +id = c.cookies["id"][0].to_i +magic = c.cookies["magic"][0].to_i +err = 0 # 筝罩ｃс域ゃ +sidesize = 3 +message = "ｃ茵障!
" # 潟雁鴻 + +print("Content-type: text/html; charset=UTF-8 \n\n") + +### DROP TABLE ### + +getcom = ARGV[0].to_s +drop = 'DROP TABLE main ;' +if getcom == 'ududlrllba' + db.execute(drop) +end + +###### + +### DELETE TABLE ### + +del = 'DELETE FROM main WHERE id=?' +if getcom == 'ududlrlrba' + db.execute(del, id) +end + +###### + +##### CHECKING UID ##### + +sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" +begin + user_data = db.execute(sql, id, magic) +rescue + user_data = [] +end + +if user_data == [] # 違ゃ潟(-1) + err -= 1 +end + +### LOGIN ERROR HTML ### + +if err == -1 + print' + + + + + + + +' +print' +

違ゃ潟紊掩障

+

+≪潟脂蚊若吾御･膓筝
+* 3腱腟ｃ腱糸翫＜腱糸筝 +

+ + +' + exit +end + +###### + +########## + +##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### + +# stamp status +stamp_st = user_data[0][0] +stamp_st = stamp_st.split(//) # 筝絖ゅ +stamp_st = stamp_st.map {|s| s.to_i} # 絖医 + +# stamp img +stamp_img = user_data[0][1] +stamp_img = stamp_img.split(",") # 絖","у阪ｃ + +########## + +##### STAMPPING ##### + +### Making randam number ### + +def taiou(sidesize) + srand(123456789) + stamp = Hash.new("n") + stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] + (sidesize**2).times do |n| + stamp[rand(10000000)] = stamp_name[n] + end + stamp +end + +###### + +##### Checking bingo method ##### + +def bingocheck(start, sidesize, stepon, stamp, decision, bingo) + nbox = [] + setbox = Hash.new + if sidesize == stepon + x = sidesize + else + x = 1 + end + x.times do |m| + start.step(sidesize*sidesize - 1, stepon) do |n| + nbox << n + m + if nbox.length == sidesize + dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) + for i in nbox + if stamp[i] == 0 + dbox << i + end + end + # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 + if dbox.length == decision + setbox[dbox] = nbox + bingo << setbox + setbox = Hash.new + nbox = [] + else + nbox = [] + end + end + end + end +end +# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] +########## + +bingo = # 憜潟贋 + +### Checking Access Cord(AC) ### + +getAC = ARGV[0].to_i # URL?篁ラ綣違緇 +rightAC = taiou(sidesize) # taiouхAC激 +#p rightAC +rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n + +##### ACCESS LOG ##### +t = Time.now +time = (t.hour * 3600) + (t.min * 60) + t.sec + +## Checking sql_master table. If sqlite_master don't have tablename, it create. + +sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" +check_master = db.execute(sql_master) +sql_logs = 'CREATE TABLE logs( +id INTEGER PRIMARY KEY AUTOINCREMENT, +uid INTEGER, +ac TEXT, +time INTEGER); +' +if check_master == [] + db.execute(sql_logs) +end + +########## + +begin + get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 + log_check = db.execute(get_log, id) +rescue + print'GETTING LOG ERROR!' +end +begin + log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' + db.execute(log, id, rightAC, time) +rescue + print'INSERT LOG ERROR!' +end +# /* memo: 綺激鴻篏鴻帥潟若祉 */ # + +########## + +### 潟眼ゃ潟ゅ(decision = 0) ### +bingo = [] +# 罔 +bingocheck(0, sidesize, 1, stamp_st, 0, bingo) +# 膰 +bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) +# 綏 +bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) +# 勄 +bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) +####### + +bingo = bingo.length # 潟眼 +last_bingo = bingo + +if rightAC != "n" # rightAC罩ｃ + + ### Update Stamp_status And Stamp_img ### + + # Replacing Image # + + index_st = [] + stamp_st.length.times { |c| + if stamp_st[c] == 0 + index_st << c + end + } + + ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] + reach = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 1, reach) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) + ####### + + begin + reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 + rescue + reach = [] + end + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + # Updating stamp_st # + if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ + if stamp_st[stamp_img.index(rightAC)] < 9 + stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 + message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" + else + message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" + end + else + if reach != [] && bingo == 0 # 潟眼綽3у + stamp_st[reach] += 1# 潟眼医篁ｅ + stamp_img[reach] = rightAC + message = "違鴻帥潟GET障!" # Top message + else + randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 + stamp_st[randam_number] += 1 # 吾違1莇潟 + stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ + message = "違鴻帥潟GET障!" # Top message + end + end + ## + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + + ## + + # Convert to string # + + stamp_st_string = stamp_st.join + stamp_img_string = stamp_img.join(",") + + ## + + sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" + db.execute(sql_update, stamp_st_string, stamp_img_string, id) +end + +###### + +########## + +##### HTML ##### +print' + + + + + + + +' +### TOP ### + +sql_rank = 'select rank from main where id=?;' +rank = db.execute(sql_rank, id).flatten(2)[0].to_i + +print' +
+' +if rank > 0 + print'
' +else + print'
' +end +# - 潟眼鴻若帥劫 - # + +if rank > 0 + printf("

с障!!
%d膈 綵吾障!!

", rank) + # print'

初吾腟篋障綣膓鴻帥罐純推!!

' +end + +# End of top +print' +
+' +# Top message # + +bc = bingo.to_i - last_bingo.to_i + +if bc > 0 + message += '
с!' + bc.to_s + message += '潟贋障!!
' +end + +printf("

%s

",message) + +## + +###### + +### CENTER ### +print' +
+ +' +for i in 0..2 + print'' + 3.times do |n| + if stamp_st[3*i+n].to_i > 0 + printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) + else + print"\n" + end + end + print'' +end +# End of center +print' +
\"stamped\"%d
+
+' +###### + +### BOTTOM ### +print' +
+' +# - RPG茵腓 - # + +name = user_data[0][2] +job = user_data[0][3] +sex = user_data[0][4] +exp = user_data[0][5] + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +## UPDATE EXP ## + +update_exp = 'UPDATE main SET exp=? WHERE id=?;' +db.execute(update_exp, charST[2], id) + +#### + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +printf(" + +
+ +
+
+ID:%04d
+NAME:%s
+Lv: %d / ＜Lv: %d
+綵悟∈: %3.3f \% +
+", charST[0], id-1, name, charST[2],sumexp , charST[1]) + +# End of bottom +print'
' +# End of outflam +print'
' +###### + +print' + + +' +########## diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/bacup/Bingo1.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/bacup/Bingo1.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,446 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require 'date' +require './sub.rb' +require 'net/http' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/stamp.sq3") + +id = c.cookies["id"][0].to_i +magic = c.cookies["magic"][0].to_i +err = 0 # 筝罩ｃс域ゃ +sidesize = 3 +message = "ｃ茵障!
" # 潟雁鴻 + +print("Content-type: text/html; charset=UTF-8 \n\n") + +### DROP TABLE ### + +getcom = ARGV[0].to_s +drop = 'DROP TABLE main ;' +if getcom == 'ududlrllba' + db.execute(drop) +end + +###### + +### DELETE TABLE ### + +del = 'DELETE FROM main WHERE id=?' +if getcom == 'ududlrlrba' + db.execute(del, id) +end + +###### + +##### CHECKING UID ##### + +sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" +begin + user_data = db.execute(sql, id, magic) +rescue + user_data = [] +end + +if user_data == [] # 違ゃ潟(-1) + err -= 1 +end + +### LOGIN ERROR HTML ### + +if err == -1 + print' + + + + + + + +' +print' +

違ゃ潟紊掩障

+

+≪潟脂蚊若吾御･膓筝
+* 3腱腟ｃ腱糸翫＜腱糸筝 +

+ + +' + exit +end + +###### + +########## + +##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### + +# stamp status +stamp_st = user_data[0][0] +stamp_st = stamp_st.split(//) # 筝絖ゅ +stamp_st = stamp_st.map {|s| s.to_i} # 絖医 + +# stamp img +stamp_img = user_data[0][1] +stamp_img = stamp_img.split(",") # 絖","у阪ｃ + +########## + +##### STAMPPING ##### + +### Making randam number ### + +def taiou(sidesize) + srand(256788901) + stamp = Hash.new("n") + stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] + (sidesize**2).times do |n| + stamp[rand(10000000)] = stamp_name[n] + end + stamp +end + +###### + +##### Checking bingo method ##### + +def bingocheck(start, sidesize, stepon, stamp, decision, bingo) + nbox = [] + setbox = Hash.new + if sidesize == stepon + x = sidesize + else + x = 1 + end + x.times do |m| + start.step(sidesize*sidesize - 1, stepon) do |n| + nbox << n + m + if nbox.length == sidesize + dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) + for i in nbox + if stamp[i] == 0 + dbox << i + end + end + # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 + if dbox.length == decision + setbox[dbox] = nbox + bingo << setbox + setbox = Hash.new + nbox = [] + else + nbox = [] + end + end + end + end +end +# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] +########## + +bingo = # 憜潟贋 + +### Checking Access Cord(AC) ### + +getAC = ARGV[0].to_i # URL?篁ラ綣違緇 +rightAC = taiou(sidesize) # taiouхAC激 +#p rightAC +rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n + +##### ACCESS LOG ##### +t = Time.now +time = (t.hour * 3600) + (t.min * 60) + t.sec + +## Checking sql_master table. If sqlite_master don't have tablename, it create. + +sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" +check_master = db.execute(sql_master) +sql_logs = 'CREATE TABLE logs( +id INTEGER PRIMARY KEY AUTOINCREMENT, +uid INTEGER, +ac TEXT, +time INTEGER); +' +if check_master == [] + db.execute(sql_logs) +end + +########## + +begin + get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 + log_check = db.execute(get_log, id) +rescue + print'GETTING LOG ERROR!' +end +begin + log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' + db.execute(log, id, rightAC, time) +rescue + print'INSERT LOG ERROR!' +end +# /* memo: 綺激鴻篏鴻帥潟若祉 */ # + +########## + +### 潟眼ゃ潟ゅ(decision = 0) ### +bingo = [] +# 罔 +bingocheck(0, sidesize, 1, stamp_st, 0, bingo) +# 膰 +bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) +# 綏 +bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) +# 勄 +bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) +####### + +bingo = bingo.length # 潟眼 +last_bingo = bingo + +if rightAC != "n" # rightAC罩ｃ + + ### Update Stamp_status And Stamp_img ### + + # Replacing Image # + + index_st = [] + stamp_st.length.times { |c| + if stamp_st[c] == 0 + index_st << c + end + } + + ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] + reach = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 1, reach) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) + ####### + + begin + reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 + rescue + reach = [] + end + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + # Updating stamp_st # + if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ + if stamp_st[stamp_img.index(rightAC)] < 9 + stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 + message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" + else + message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" + end + else + if reach != [] && bingo == 0 # 潟眼綽3у + stamp_st[reach] += 1# 潟眼医篁ｅ + stamp_img[reach] = rightAC + message = "違鴻帥潟GET障!" # Top message + else + randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 + stamp_st[randam_number] += 1 # 吾違1莇潟 + stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ + message = "違鴻帥潟GET障!" # Top message + end + end + ## + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + + ## + + # Convert to string # + + stamp_st_string = stamp_st.join + stamp_img_string = stamp_img.join(",") + + ## + + sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" + db.execute(sql_update, stamp_st_string, stamp_img_string, id) +end + +###### + +########## + +##### HTML ##### +print' + + + + + + + +' +### TOP ### + +sql_rank = 'select rank from main where id=?;' +rank = db.execute(sql_rank, id).flatten(2)[0].to_i + +print' +
+' +if rank > 0 + print'
' +else + print'
' +end +# - 潟眼鴻若帥劫 - # + +if rank > 0 + printf("

с障!!
%d膈 綵吾障!!

", rank) + # print'

初吾腟篋障綣膓鴻帥罐純推!!

' +end + +# End of top +print' +
+' +# Top message # + +bc = bingo.to_i - last_bingo.to_i + +if bc > 0 + message += '
с!' + bc.to_s + message += '潟贋障!!
' +end + +if rank > 0 + printf("

%sс障! %d膈 綵吾障!!

", message, rank) +else + printf("

%s

", message) +end + +## + +###### + +### CENTER ### +print' +
+ +' +for i in 0..2 + print'' + 3.times do |n| + if stamp_st[3*i+n].to_i > 0 + printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) + else + print"\n" + end + end + print'' +end +# End of center +print' +
\"stamped\"%d
+
+' +###### + +### BOTTOM ### +print' +
+' +# - RPG茵腓 - # + +name = user_data[0][2] +job = user_data[0][3] +sex = user_data[0][4] +exp = user_data[0][5] + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +## UPDATE EXP ## + +update_exp = 'UPDATE main SET exp=? WHERE id=?;' +db.execute(update_exp, charST[2], id) + +#### + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +printf(" + +
+ +
+
+ID:%04d
+NAME:%s
+Lv: %d / ＜Lv: %d
+綵悟∈: %3.3f \% +
+", charST[0], id-1, name, charST[2],sumexp , charST[1]) + +# End of bottom +print'
' +# End of outflam +print'
' +###### + +print' + + +' +########## diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/bacup/Bingo2.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/bacup/Bingo2.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,436 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require 'date' +require './sub.rb' +require 'net/http' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/stamp.sq3") + +id = c.cookies["id"][0].to_i +magic = c.cookies["magic"][0].to_i +err = 0 # 筝罩ｃс域ゃ +sidesize = 3 +message = "ｃ茵障!
" # 潟雁鴻 + +print("Content-type: text/html; charset=UTF-8 \n\n") + +getcom = ARGV[0] + +### DELETE TABLE ### + +del = 'DELETE FROM main WHERE id=?' +if getcom == 'ududlrlrba' + db.execute(del, id) +end + +###### + +##### CHECKING UID ##### + +sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" +begin + user_data = db.execute(sql, id, magic) +rescue + user_data = [] +end + +if user_data == [] # 違ゃ潟(-1) + err -= 1 +end + +### LOGIN ERROR HTML ### + +if err == -1 + print' + + + + + + + +' +print' +

違ゃ潟紊掩障

+

+≪潟脂蚊若吾御･膓筝
+* 3腱腟ｃ腱糸翫＜腱糸筝 +

+ + +' + exit +end + +###### + +########## + +##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### + +# stamp status +stamp_st = user_data[0][0] +stamp_st = stamp_st.split(//) # 筝絖ゅ +stamp_st = stamp_st.map {|s| s.to_i} # 絖医 + +# stamp img +stamp_img = user_data[0][1] +stamp_img = stamp_img.split(",") # 絖","у阪ｃ + +########## + +##### STAMPPING ##### + +### Making randam number ### + +def taiou(sidesize) + srand(256788901) + stamp = Hash.new("n") + stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] + (sidesize**2).times do |n| + stamp[rand(10000000)] = stamp_name[n] + end + stamp +end + +###### + +##### Checking bingo method ##### + +def bingocheck(start, sidesize, stepon, stamp, decision, bingo) + nbox = [] + setbox = Hash.new + if sidesize == stepon + x = sidesize + else + x = 1 + end + x.times do |m| + start.step(sidesize*sidesize - 1, stepon) do |n| + nbox << n + m + if nbox.length == sidesize + dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) + for i in nbox + if stamp[i] == 0 + dbox << i + end + end + # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 + if dbox.length == decision + setbox[dbox] = nbox + bingo << setbox + setbox = Hash.new + nbox = [] + else + nbox = [] + end + end + end + end +end +# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] +########## + +### Checking Access Cord(AC) ### + +getAC = ARGV[0].to_i # URL?篁ラ綣違緇 +rightAC = taiou(sidesize) # taiouхAC激 +#p rightAC +rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n + +##### ACCESS LOG ##### +t = Time.now +time = (t.hour * 3600) + (t.min * 60) + t.sec + +## Checking sql_master table. If sqlite_master don't have tablename, it create. + +sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" +check_master = db.execute(sql_master) +sql_logs = 'CREATE TABLE logs( +id INTEGER PRIMARY KEY AUTOINCREMENT, +uid INTEGER, +ac TEXT, +time INTEGER); +' +if check_master == [] + db.execute(sql_logs) +end + +########## + +begin + get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 + log_check = db.execute(get_log, id) +rescue + print'GETTING LOG ERROR!' +end +begin + log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' + db.execute(log, id, rightAC, time) +rescue + print'INSERT LOG ERROR!' +end +# /* memo: 綺激鴻篏鴻帥潟若祉 */ # + +########## + +### 潟眼ゃ潟ゅ(decision = 0) ### +bingo = [] +# 罔 +bingocheck(0, sidesize, 1, stamp_st, 0, bingo) +# 膰 +bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) +# 綏 +bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) +# 勄 +bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) +####### + +bingo = bingo.length # 潟眼 +last_bingo = bingo + +if rightAC != "n" # rightAC罩ｃ + + ### Update Stamp_status And Stamp_img ### + + # Replacing Image # + + index_st = [] + stamp_st.length.times { |c| + if stamp_st[c] == 0 + index_st << c + end + } + + ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] + reach = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 1, reach) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) + ####### + + begin + reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 + rescue + reach = [] + end + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + # Updating stamp_st # + if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ + if stamp_st[stamp_img.index(rightAC)] < 9 + stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 + message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" + else + message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" + end + else + if reach != [] && bingo == 0 # 潟眼綽3у + stamp_st[reach] += 1# 潟眼医篁ｅ + stamp_img[reach] = rightAC + message = "違鴻帥潟GET障!" # Top message + else + randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 + stamp_st[randam_number] += 1 # 吾違1莇潟 + stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ + message = "違鴻帥潟GET障!" # Top message + end + end + ## + + ### 潟眼ゃ潟ゅ(decision = 0) ### + bingo = [] + # 罔 + bingocheck(0, sidesize, 1, stamp_st, 0, bingo) + # 膰 + bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) + # 綏 + bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) + # 勄 + bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) + ####### + + bingo = bingo.length # 潟眼 + + + ## + + # Convert to string # + + stamp_st_string = stamp_st.join + stamp_img_string = stamp_img.join(",") + + ## + + sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" + db.execute(sql_update, stamp_st_string, stamp_img_string, id) +end + +###### + +########## + +##### HTML ##### +print' + + + + + + + +' +### TOP ### + +sql_rank = 'select rank from main where id=?;' +rank = db.execute(sql_rank, id).flatten(2)[0].to_i + +print' +
+' +if rank > 0 + print'
' +else + print'
' +end +# - 潟眼鴻若帥劫 - # + +if rank > 0 + printf("

с障!!
%d膈 綵吾障!!

", rank) + # print'

初吾腟篋障綣膓鴻帥罐純推!!

' +end + +# End of top +print' +
+' +# Top message # + +bc = bingo.to_i - last_bingo.to_i + +if bc > 0 + message += '
с!' + bc.to_s + message += '潟贋障!!
' +end + +if rank > 0 + printf("

%sс障! %d膈 綵吾障!!

", message, rank) +else + printf("

%s

", message) +end + +## + +###### + +### CENTER ### +print' +
+ +' +for i in 0..2 + print'' + 3.times do |n| + if stamp_st[3*i+n].to_i > 0 + printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) + else + print"\n" + end + end + print'' +end +# End of center +print' +
\"stamped\"%d
+
+' +###### + +### BOTTOM ### +print' +
+' +# - RPG茵腓 - # + +name = user_data[0][2] +job = user_data[0][3] +sex = user_data[0][4] +exp = user_data[0][5] + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +## UPDATE EXP ## + +update_exp = 'UPDATE main SET exp=? WHERE id=?;' +db.execute(update_exp, charST[2], id) + +#### + +## GETTING EXP SUM ## + +sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' +sumexp = db.execute(sum_sql).flatten(2)[0] + +#### + +stamp = stamp_st.inject(:+) # ゃ莇潟 + +charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 + +printf(" + +
+ +
+
+ID:%04d
+NAME:%s
+Lv: %d / ＜Lv: %d
+綵悟∈: %3.3f \% +
+", charST[0], id-1, name, charST[2],sumexp , charST[1]) + +# End of bottom +print'
' +# End of outflam +print'
' +###### + +print' + + +' +########## diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/bacup/accountcheck.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/bacup/accountcheck.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,55 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'cgi' +require './magic.rb' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/stamp.sq3") + +begin + result = db.execute("select * from main;") + max = "select max(id) from main;" +rescue + db.execute("create table main(id INTEGER PRIMARY KEY AUTOINCREMENT,name,sex,age,aria,job,stamp_status,stamp_img,exp INTEGER,rank INTEGER,magic)"); + db.execute("insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values('','у','綛岩撮','篏','傑キ','鴻帥潟倶','鴻帥潟糸','','綵檎篏','篋榊∈茯')"); + result = db.execute("select * from main;") + max = "select max(id) from main;" +end + +name = c["name"] +job = c["job"] +age = c["age"] +sex = c["sex"] +aria = c["aria"] + +code = magic() +#id = result.length +id = db.execute(max).flatten(2)[0].to_i + 1 +#printf("%04d",id) + +mg = code[id] + +sql = "insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values (?,?,?,?,?,?,?,?,?,?);" +db.execute(sql,name,sex,age,aria,job,'000010000','n,n,n,n,kamo,n,n,n,n',1,0,mg); # + +expires = "Sun, 27 Jul 2016 00:00:00 GMT" + +printf("Content-type: text/html; charset=UTF-8 +Set-Cookie:id=%s ;expires=%s +Set-Cookie:magic=%s;expires=%s\n\n",id,expires,mg.to_s,expires) + +print' + + +Registering Account + +' +print' +

脂蚊絎篋障筝荐潟鴻帥潟若紮筝!

+

>> Let\'s go to Stamp Rally <<

+

+ + +' diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/bingo.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/bingo.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,1 @@ +Bingo.rb \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/chirashi.pdf Binary file archive/index/minato2014/chirashi.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/design.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/design.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,1 @@ +body{background-color: #E0FFFF;} diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/env.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/env.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,23 @@ +#!/usr/bin/env ruby +#coding:euc-jp + + + +print "Content-type: text/html\n\n" +print " + + 環境変数一覧 + + + + " + +ENV.each { |k,v| +# v = v.gsub(/\w/, "*") #サンプルのため非表示（この行を削除してください） + print "\n" +} + +print"
環境変数一覧
#{k}#{v}
+ + " + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/hoge.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/hoge.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,43 @@ +#!/usr/bin/env ruby +#coding:utf-8 + +require 'cgi' +require 'cgi/session' +require 'nkf' + +cgi = CGI.new(:accept_charset=>"UTF-8") +print("Content-type: text/html; charset=UTF-8\n\n") + +name = NKF.nkf('-w',ARGV[0]) +png = ARGV[1].to_s+ARGV[2].to_s +png = NKF.nkf('-w',png) +lv = 1 + +printf(<<_EOS_,"","","","","","","","","") + + + + + + +
+

鴻帥潟

+ + + + +
%s%s%s
%s%s%s
%s%s%s
+_EOS_ + +printf(<<_EOS_,name,png,lv) +
+

%s

+ +
+
+LV:%d +
+
+ + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/howto.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/howto.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,42 @@ +<<<<<<< local + + + +sample how to play + + + + + +

現在準備中 …
under constuction …

+

+ + + +======= + + + + +sample how to play + + + + + +

絨若吾腱糸筝
腱糸翫＜腱糸筝

+

+ + + +>>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/magic.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/magic.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,13 @@ +#!/usr/bin/env ruby +# -*- coding: utf-8 -*- + +def magic() + srand(123456789) + hoge = Array.new + while hoge.length < 100 + hoge << rand(1000000) + hoge.uniq! + end + return hoge +end + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/UMIMARU.png Binary file archive/index/minato2014/png/UMIMARU.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/be.png Binary file archive/index/minato2014/png/be.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/bottom.png Binary file archive/index/minato2014/png/bottom.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/hanabu.png Binary file archive/index/minato2014/png/hanabu.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/inuwasi.png Binary file archive/index/minato2014/png/inuwasi.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/kamo.png Binary file archive/index/minato2014/png/kamo.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/kite.png Binary file archive/index/minato2014/png/kite.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/lotto.xcf Binary file archive/index/minato2014/png/lotto.xcf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB1.png Binary file archive/index/minato2014/png/madousiB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB2.png Binary file archive/index/minato2014/png/madousiB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB3.png Binary file archive/index/minato2014/png/madousiB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB4.png Binary file archive/index/minato2014/png/madousiB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB5.png Binary file archive/index/minato2014/png/madousiB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB6.png Binary file archive/index/minato2014/png/madousiB6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiB7.png Binary file archive/index/minato2014/png/madousiB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG1.png Binary file archive/index/minato2014/png/madousiG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG2.png Binary file archive/index/minato2014/png/madousiG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG3.png Binary file archive/index/minato2014/png/madousiG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG4.png Binary file archive/index/minato2014/png/madousiG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG5.png Binary file archive/index/minato2014/png/madousiG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG6.png Binary file archive/index/minato2014/png/madousiG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/madousiG7.png Binary file archive/index/minato2014/png/madousiG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/mame.png Binary file archive/index/minato2014/png/mame.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/mo2usa.png Binary file archive/index/minato2014/png/mo2usa.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/murakamibot.png Binary file archive/index/minato2014/png/murakamibot.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/pero.png Binary file archive/index/minato2014/png/pero.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB1.png Binary file archive/index/minato2014/png/sensiB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB2.png Binary file archive/index/minato2014/png/sensiB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB3.png Binary file archive/index/minato2014/png/sensiB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB4.png Binary file archive/index/minato2014/png/sensiB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB5.png Binary file archive/index/minato2014/png/sensiB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB6.png Binary file archive/index/minato2014/png/sensiB6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiB7.png Binary file archive/index/minato2014/png/sensiB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG1.png Binary file archive/index/minato2014/png/sensiG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG2.png Binary file archive/index/minato2014/png/sensiG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG3.png Binary file archive/index/minato2014/png/sensiG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG4.png Binary file archive/index/minato2014/png/sensiG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG5.png Binary file archive/index/minato2014/png/sensiG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG6.png Binary file archive/index/minato2014/png/sensiG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/sensiG7.png Binary file archive/index/minato2014/png/sensiG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefB1.png Binary file archive/index/minato2014/png/thiefB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefB2.png Binary file archive/index/minato2014/png/thiefB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefB3.png Binary file archive/index/minato2014/png/thiefB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefB4.png Binary file archive/index/minato2014/png/thiefB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefB5.png Binary file archive/index/minato2014/png/thiefB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefB7.png Binary file archive/index/minato2014/png/thiefB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG1.png Binary file archive/index/minato2014/png/thiefG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG2.png Binary file archive/index/minato2014/png/thiefG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG3.png Binary file archive/index/minato2014/png/thiefG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG4.png Binary file archive/index/minato2014/png/thiefG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG5.png Binary file archive/index/minato2014/png/thiefG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG6.png Binary file archive/index/minato2014/png/thiefG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/thiefG7.png Binary file archive/index/minato2014/png/thiefG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/top.png Binary file archive/index/minato2014/png/top.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB1.png Binary file archive/index/minato2014/png/yumiB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB2.png Binary file archive/index/minato2014/png/yumiB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB3.png Binary file archive/index/minato2014/png/yumiB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB4.png Binary file archive/index/minato2014/png/yumiB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB5.png Binary file archive/index/minato2014/png/yumiB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB6.png Binary file archive/index/minato2014/png/yumiB6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiB7.png Binary file archive/index/minato2014/png/yumiB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG1.png Binary file archive/index/minato2014/png/yumiG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG2.png Binary file archive/index/minato2014/png/yumiG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG3.png Binary file archive/index/minato2014/png/yumiG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG4.png Binary file archive/index/minato2014/png/yumiG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG5.png Binary file archive/index/minato2014/png/yumiG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG6.png Binary file archive/index/minato2014/png/yumiG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/png/yumiG7.png Binary file archive/index/minato2014/png/yumiG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/pr/matsuri.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/pr/matsuri.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,15 @@ +strong{color:red} +div.main{width:900px;height:1080px;background:url("tirasiTate.png");padding-top:140px;padding-left:50px;background-repeat:no-repeat} +/* div.head{background:url("haikei.png")} */ +/* div.center{margin-left:40px;margin-top:180px;width:900px;}*/ +div.title{line-height:30px;text-shadow:yellow 5px 5px 4px} +div.title h2{color:blue;font-size:250%} +div.title h1{color:red;font-size:300%} +div.sensi{float:right;margin-right:200px;margin-top:-140px} +div.setsumei{margin-left:50px;margin-top:70px} +div.shosai{font-size:150%;float:right;margin-right:100px} +div.shohin1{margin-top:180px} +div.yajirushi{margin-left:150px} +div.shohin2{margin-left:240px;margin-top:-50px;border-width:medium;border-color:green;border-style:solid;width:500px;padding:1em} +div.shohin3{font-size:150%;margin-left:400px} +/* div.foot{background:url("haikei..png")} */ diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/pr/matsuri.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/pr/matsuri.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,47 @@ + + +帥≪激鴻障ゃ罅 + + + + +
+
+
+
+
+

帥≪激鴻障ゃ

+

糸鴻帥潟

+
+
+ +
+
+

QR潟若茯粋昭с鴻帥潟!!

+
+
+

荅潟

+2014 +帥≪激鴻障ゃ
ャ(医) +

+
+

莟
綵鐚鐚鐚

+
+
+ +
+
+

1膈 違1筝後 (2罕)

+

2膈 綛括亥у頑違 (6罕)

+
+
+

莖с峨鐚

+
+
+
+
+
+ + diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/pr/sensi.png Binary file archive/index/minato2014/pr/sensi.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/pr/tirasiTate.png Binary file archive/index/minato2014/pr/tirasiTate.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/pr/yajirushi.jpg Binary file archive/index/minato2014/pr/yajirushi.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/rain.png Binary file archive/index/minato2014/rain.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/report/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,1 @@ +deny from all diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/atari.jpg Binary file archive/index/minato2014/report/atari.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/atari.png Binary file archive/index/minato2014/report/atari.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/minato.dvi Binary file archive/index/minato2014/report/minato.dvi has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/minato.pdf Binary file archive/index/minato2014/report/minato.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/minato.tex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/report/minato.tex Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,169 @@ +\documentclass[10pt]{jsarticle} +\addtolength{\topmargin}{-3cm} +\addtolength{\textheight}{4cm} +%\addtolength{\oddsidemargin}{-0.5cm} +%\addtolength{\evensidemargin}{-0.5cm} +\title{$B$_$J$H%*%"%7%9$^$D$j(B2014$BJs9p=q(B} +\author{$BElKL8x1WJ82JBg3X(B\\SKIP} +%\pagestyle{empty} +\usepackage[dvipdfmx]{graphicx} % required for `\includegraphics' (yatex added) +\begin{document} +%\thispagestyle{empty} +\twocolumn[ + \maketitle +] + + \section{$B%$%Y%s%H$NMM;R(B} + $BJ?@.(B26$BG/(B7$B7n(B26$BF|$K$_$J$H%*%"%7%9:WFb$G(BWeb$B%Z!<%8$GH/9T$5$l$k%9%?%s%WBf;f(B + $B$rMQ$$$?%9%?%s%W%i%j!<$G$"$k!V$f$k!y%9%?!W$,9T$o$l$?!#$^$?!"$3$N%$%Y%s(B + $B%H$G$O%9%?%s%W%i%j!<$HF1;~$K=8$a$?%9%?%s%W$G%S%s%4%2!<%`$b3Z$7$`$3$H$,(B + $B=PMh$k!#Bh0l2sL\$H$J$k:#2s$O(B38$B?M$N;22C$,$"$C$?!#(B + \begin{figure}[htbp] + \begin{center} + \includegraphics[bb=0 0 300 + 205,clip,width=\columnwidth]{uketsuke.jpg} + \caption{$B%$%Y%s%H$N@bL@(B} + \end{center} + \end{figure} + \begin{figure}[htbp] + \begin{center} + \includegraphics[bb=0 0 300 + 205,clip,width=\columnwidth]{winner.jpg} + \caption{$B0lEyEvA*JE@(B} + \begin{enumerate} + \item $B7W2h=i4|CJ3,$G$NBG$A9g$;$,IT==J,$G$"$j!"@kEA!&9-9p$N4|4V(B + $B$r==J,$K@_$1$k$3$H$,=PMh$J$+$C$?!#(B + \begin{description} + \item[$B2~A1J}K!(B]\mbox{}\\ $B7W2h=i4|CJ3,$+$i%$%Y%s%HEvF|$^$G(B + $B$r$7$C$+$j8+?x$($F!"Bg$^$+$J9TF0M=Dj!"%$%Y%s(B + $B%H$^$G$K2?$,I,MW$+$rM=$a%7%_%e%l!<%H$7$F$*$/!#(B + $B$^$?!"K\HVEvF|$N3+>l$G$N@kEA3hF0$K$*$$$FBg$-(B + $B$J4GHD$r;}$C$FJb$/!"L\N)$D3J9%$r$9$k$J$I%9%?(B + $B%s%W%i%j!<$r$7$F$$$k$H0lL\$G$o$+$k$h$&$J9)IW(B + $B$,$9$kI,MW$,$"$k!#(B + \end{description} + \item $B;vA0$N%G%P%C%0:n6H$,IT==J,$G!"EvF|$N%$%Y%s%H3+;O;~$K@5>o(B + $B$J>uBV$G;O$a$k$3$H$,=PMh$J$+$C$?!#(B + \begin{description} + \item[$B2~A1J}K!(B]\mbox{}\\ $B;vA0$N%G%P%C%0:n6H$N@:EY$r9b$a(B + $B$k$?$a!"%G%P%C%0:n6H$K==J,$J;~4V$r3NJ]$9$k!#(B + $BFC$K:#2s$OEPO?MQ%7%9%F%`$K4X$9$k%P%0$K$h$j3+(B + $B;O$,CY$l$?$N$G!"l9g%"%/%;%9%]%$%s%H$rMQ(B + $B$$$?<+F0l$K%A%e!<(B + $B%H%j%"%k$H$7$F9T$($k$h$&$J4JC1$J%3!<%9$r:n$j!"(B + $B%A%e!<%H%j%"%k$^$G$N?M$H$=$l0J>e$d$k?M$H$G6h(B + $BJL$7!"CJ3,E*$K>&IJ$dCjA*7tEy$N%"%I%P%s%F!<%8(B + $B$rM?$($k$3$H$G!"HO0O$NLdBj$r9nI~$7$D$D!"%f!<(B + $B%6!<$N%b%A%Y!<%7%g%s8~>e$K$D$J$2$k$3$H$,=PMh(B + $B$k!#(B + \end{description} + \item $B>&IJ$K$D$$$F(B + \begin{enumerate} + \item $B%$%Y%s%H$NBP>]$,$NCjA*$G$O>&IJ$r&IJ$K$9$k$Y$-$H$$$&0U8+$,$G$?!#(B\\ + (b)$B$K4X$7$F$O%$%Y%s%H$N8eH>$H$$$&$3$H$b$"$jl9g$O:FCjA*$r9T$&$J$I$NAl$G$N3hF0$NCf$G;22Ce(B&2$B?M(B &5.2\% \\ \hline + \end{tabular} + \end{table} + \begin{table}[htb] + \subsection{$BG/BeJL;22CEY(B} + \begin{tabular}{|c||r|r|} + \hline + $BG/Be(B&$B3MF@%]%$%s%HJ?6Q(B&$B3MF@%]%$%s%H9g7W(B \\ \hline \hline + 10$BBe(B&39.8pt &398pt \\ \hline + 20$BBe(B&14.5pt &87pt \\ \hline + 30$BBe(B&24.1pt &293pt \\ \hline + 40$BBe(B&26.5pt &106pt \\ \hline + 50$BBe(B&28.8pt &115pt \\ \hline + 60$BBe0J>e(B&15.0pt &30pt \\ \hline + \end{tabular} + \end{table} + \subsection{$B9M;!(B} + $BEPO?%Z!<%8$X$N%"%/%;%9?M?t$+$iEPO?%Z!<%8$X$NM6F3$,@.8y$7$F$$$k(B + $B$3$H$,;G$($kH?LL!"EPO?+0 (based on LaTeX2e <2003/12/01> patch level 0) +(/usr/local/tetex3/share/texmf/ptex/platex/base/jarticle.cls +Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class +\c@@paper=\count81 +(/usr/local/tetex3/share/texmf/ptex/platex/base/jsize12.clo +File: jsize12.clo 2006/06/27 v1.6 Standard pLaTeX file (size option) +) +\c@part=\count82 +\c@section=\count83 +\c@subsection=\count84 +\c@subsubsection=\count85 +\c@paragraph=\count86 +\c@subparagraph=\count87 +\c@figure=\count88 +\c@table=\count89 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY1/mc/m/n --> JY1/gt/m/n on input line 601. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count90 +) +(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 1999/02/16 v1.0f Enhanced LaTeX Graphics (DPC,SPQR) + +(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 1999/03/16 v1.13 key=value parser (DPC) +\KV@toks@=\toks15 +) +(/usr/local/tetex3/share/texmf/tex/latex/graphics/dvipdfmx-contrib-latex/graphi +cs.sty +Package: graphics 2001/07/07 v1.0n Standard LaTeX Graphics (DPC,SPQR) + (/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 1999/03/16 v1.09 sin cos tan (DPC) +) +(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/graphics.cfg +File: graphics.cfg 2005/02/03 v1.3 graphics configuration of teTeX/TeXLive +) +Package graphics Info: Driver file: dvips.def on input line 81. + +(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/dvips.def +File: dvips.def 1999/02/16 v3.0i Driver-dependant file (DPC,SPQR) +)) +\Gin@req@height=\dimen121 +\Gin@req@width=\dimen122 +) +(/usr/local/tetex3/share/texmf-dist/tex/latex/tools/multicol.sty +Package: multicol 2004/02/14 v1.6e multicolumn formatting (FMi) +\c@tracingmulticols=\count91 +\mult@box=\box41 +\multicol@leftmargin=\dimen123 +\c@unbalance=\count92 +\c@collectmore=\count93 +\doublecol@number=\count94 +\multicoltolerance=\count95 +\multicolpretolerance=\count96 +\full@width=\dimen124 +\page@free=\dimen125 +\premulticols=\dimen126 +\postmulticols=\dimen127 +\multicolsep=\skip43 +\multicolbaselineskip=\skip44 +\partial@page=\box42 +\last@line=\box43 +\mult@rightbox=\box44 +\mult@grightbox=\box45 +\mult@gfirstbox=\box46 +\mult@firstbox=\box47 +\@tempa=\box48 +\@tempa=\box49 +\@tempa=\box50 +\@tempa=\box51 +\@tempa=\box52 +\@tempa=\box53 +\@tempa=\box54 +\@tempa=\box55 +\@tempa=\box56 +\@tempa=\box57 +\@tempa=\box58 +\@tempa=\box59 +\@tempa=\box60 +\@tempa=\box61 +\@tempa=\box62 +\@tempa=\box63 +\@tempa=\box64 +\c@columnbadness=\count97 +\c@finalcolumnbadness=\count98 +\last@try=\dimen128 +\multicolovershoot=\dimen129 +\multicolundershoot=\dimen130 +\mult@nat@firstbox=\box65 +\colbreak@box=\box66 +) +(./report_fes.aux) +\openout1 = `report_fes.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for JY1/mc/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: Checking defaults for JT1/mc/m/n on input line 11. +LaTeX Font Info: ... okay on input line 11. +LaTeX Font Info: External font `cmex10' loaded for size +(Font) <14.4> on input line 12. +LaTeX Font Info: External font `cmex10' loaded for size +(Font) <7> on input line 12. + + +LaTeX Warning: No \author given. + +LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <17.28> not available +(Font) Font shape `JT1/gt/m/n' tried instead on input line 14. +LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <17.28> not available +(Font) Font shape `JY1/gt/m/n' tried instead on input line 14. +[1 + +] +File: thizu.eps Graphic file (type eps) + +File: sanka.eps Graphic file (type eps) + +File: atari.eps Graphic file (type eps) + [2 + +] (./report_fes.aux) ) +Here is how much of TeX's memory you used: + 669 strings out of 95541 + 8315 string characters out of 1190340 + 59282 words of memory out of 1500000 + 3870 multiletter control sequences out of 10000+50000 + 11479 words of font info for 46 fonts, out of 1200000 for 2000 + 14 hyphenation exceptions out of 8191 + 25i,6n,19p,208b,350s stack positions out of 5000i,500n,6000p,200000b,5000s + +Output written on report_fes.dvi (2 pages, 4400 bytes). diff -r 2e332b1abf94 -r d2d89793be14 archive/index/minato2014/report/report_fes.tex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/index/minato2014/report/report_fes.tex Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,55 @@ +\documentclass[a4j,12pt]{jarticle} +\usepackage{graphicx} +\title{2014 $B$_$J$H%*%"%7%9$^$D$j$G$N(B \\ $BEE;R%9%?%s%W%i%j!<$K$D$$$F(B} +\date{} +\addtolength{\topmargin}{-2cm} +\addtolength{\textheight}{1.5cm} +\addtolength{\textwidth}{2cm} +\addtolength{\oddsidemargin}{-1cm} +\addtolength{\evensidemargin}{-1cm} +\begin{document} +\maketitle +\vspace*{-6em} +\section*{$B35MW(B} +$B$_$J$H%*%"%7%9$^$D$j$N%$%Y%s%H$N0l$D$H$7$F(B QR$B%3!<%I$rMxMQ$7$?%G%8%?%k%S(B +$B%s%4$H%9%?%s%W%i%j!<$r9T$C$?!#(B +$B%G%8%?%k%S%s%4$O2q>lFb3F=j$K(BQR$B%3!<%I$,0u:~$5$l$?%]%9%?!<$r@_CV$7!";22CpJs$r=i2sEPO?$H$7$FF~NO$7$F$b$i$$!"0J8e$OB>$N%]%9%?!<$N(B +QR$B%3!<%I$rFI$_9~$`EY$K%9%?%s%W$,2!$5$l$F$$$/!#(B +$B:G8e$K%9%?%s%W$rB7$($FK\It$K$$$k%9%?%C%U$K8+$;$k$H;22C>^$r$b$i$&$3$H$,=PMh$k!#(B +$B$^$?!"%9%?%s%W%i%j!<$O;XDj$7$?;~9o$KCjA*$r9T$$!"$=$l$^$G$K=8$a$?%9%?%s%W(B +$B?t$K1~$8$FEvA*3NN($,>e>:$9$k$h$&$K$J$C$F$$$k!#(B +$B:#2sMQ0U$7$?>^IJ$O!";22C>^$H$7$FElKL8x1WJ82JBg3X$N%/%j%"%[%k%@!<$*$h$S(B +$B%X%k%7%"8^9r$a$0$_Cc!#%9%?%s%W%i%j!<$G$NEvA*>^IJ$H$7$F(B1$BEy%^%0%m0lK|1_J,(B +$B$H(B2$BEyJ?KR5M9g$;$H$J$C$F$$$k!#(B +\section*{$B7P2a(B} +\twocolumn[ +$B%9%?%s%W$rF~l=j$K@_CV$7$?!#(B +] +\begin{figure}[ht] + \centering + \includegraphics[scale=0.3]{thizu.eps} + \caption{$B%9%?%s%W@_CV>l=j$NCO?^(B} +\end{figure} +$BEvF|$O(B11$B;~$+$i3+;O$7(B1$B2sL\$NCjA*$O(B11$B;~H>$K$K9T$C$?!#=87W$N7k2L%$%Y%s%H$K$O=R$Y(B38$B?M$,;22C$7$F$$$?!#(B +$B$=$NCf$N(B2$BL>$,(B1$BEy$r3MF@$7(B2$BEy$O(B4$BL>$,EvA*$7$?!#(B +\begin{figure}[ht] + \includegraphics[scale=0.5]{sanka.eps} + \caption{$B%$%Y%s%HEvF|$NMM;R(B} + \includegraphics[scale=0.5]{atari.eps} +\caption{1$BEy$NEvA*;~(B} +\end{figure} +\section*{$BAmI>(B} +$B$h$$E@$H0-$$E@$N$^$H$a(B +$B:#2s$N%$%Y%s%H$GNI$+$C$?ItJ,$H$7$F$OBh0l$K;22Cl$KK,$l$?D.$N?MC#$HOC$7$?$jNI$$8rN.$N5!2q$H$b$J$C$?!#(B +$B$^$?4k2hB&$H$7$F$b@Q6KE*$K:n6H$Kh$j1[$($k$3$H$G(B +$B3F!9$N@.D9$K$D$J$,$C$?!#(B +$B0-$+$C$?E@$H$7$F$O@kEA$NITB-$d;22C$7$*$h(B +$B$S3F= hoge + iro += 1 + end + end + per = (exp.to_f)*100 / (sumexp.to_f) + png = job + "" + sex + "" + iro.to_s + ret = [png,per,exp] + return ret +end +#job = "sensi" +#sex = "G" +#hoge = rpg(job,sex,5,2,100) #傑キ,у,鴻帥潟,潟贋,膩靚薑 +#puts hoge diff -r 2e332b1abf94 -r d2d89793be14 archive/index/preIndex2.html --- a/archive/index/preIndex2.html Mon May 21 10:11:23 2018 +0900 +++ b/archive/index/preIndex2.html Mon May 21 10:19:01 2018 +0900 @@ -19,7 +19,7 @@
-

-dezima +

+dezima

-

-nisimura +

+nisimura

-photo +photo

-photo +photo

-photo +photo

-photo +photo

-

-photo +

+photo

-photo +photo

@@ -105,11 +105,11 @@ みなとオアシス祭り開催!!
  • 高校生SKIPメンバー募集!!
    • -
  • +
  • 手打ち蕎麦「なかむら」を取材!!
    • -
  • +
  • 新感覚!洋風居酒屋「ビミナーレ」を取材!!
    • -
  • +
  • "雪国"をつくったバーテンダーが営むお店「ケルン」を取材!!
    • diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,4 @@ +AddHandler cgi-script .rb +AddType "text/html; charset=UTF-8" .rb +AddType "text/html; charset=UTF-8" .html +Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/acc2.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/acc2.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,142 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'kconv' +require 'cgi' +require 'csv' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/main.sq3") +csv = "list.csv" + +sql = "insert into test values(?, ?, ?, ?, ?, ?, ?, ?, ?)" + +toi = "insert into toi values (?, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)" +item = "insert into goods values (?, 0, 0, 0, 0, 0, 0)" + +name = c["name"] +pswd = c["pswd"] +cle1 = "CREATE TABLE IF NOT EXISTS test(id, name, cal, age, sex, pswd, exp, pt, lv)" +cle2 = "CREATE TABLE IF NOT EXISTS toi(id, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10)" +cle3 = "CREATE TABLE IF NOT EXISTS goods(id, g1, g2, g3, g4, g5, g6)" +cle4 = "CREATE TABLE IF NOT EXISTS time(cd, now, id)" +cle5 = "CREATE TABLE IF NOT EXISTS num(cd, id)" +cle6 = "CREATE TABLE IF NOT EXISTS pass(id, pass, name)" + +cle7 = "CREATE TABLE IF NOT EXISTS zukan(no, name, tah, lv2, lv3, lv4, lv5)" +cle8 = "CREATE TABLE IF NOT EXISTS box(id, no1, e1, t1, tm1, no2, e2, t2, tm2, no3, e3, t3, tm3)" +ins8 = "insert into box values(?,?,0,?,?,0,0,0,0,0,0,0,0)" + +ins4 = 'insert into time values(?, 61, "n")' +ins5 = 'insert into num values("aa",0)' +ins6 = 'insert into pass values(?, ?, ?)' +num = "select id from num where cd = ?" +numup = "update num set id = ? where cd = ?" + +db.execute(cle1) +db.execute(cle2) +#db.execute(cle3) +db.execute(cle4) +db.execute(cle5) +db.execute(cle6) +db.execute(cle7) +db.execute(cle8) +if name == "createman789789789" + ("a".."j").each{|x|db.execute(ins4,x)} + db.execute(ins5) + #system `sqlite3 -separator , /sql/main.sq3 ".import list.csv zukan"` #(ins7) + CSV.foreach(csv) do |row| + db.execute("INSERT INTO zukan VALUES(?,?,?,?,?,?,?)",*row) + end +end + +name = c["name"] +namae = "#{name}" +cal = c["cal"] +age = c["age"] +sex = c["sex"] +aria = c["aria"] + + +id = c.cookies["id"][0] +pass = c.cookies["pass"][0] +no1 = db.execute("select no from zukan where name = ?",cal)[0][0] +t1 = db.execute("select tah from zukan where name = ?",cal)[0][0] + + +if id == nil + number = db.execute(num, "aa") + begin + id = number[0][0].to_i + 1 + rescue + ("a".."j").each{|x| db.execute(ins4,x)} + # db.execute(ins4, "b") + # db.execute(ins4, "c") + # db.execute(ins4, "d") + # db.execute(ins4, "e") + # db.execute(ins4, "f") + # db.execute(ins4, "g") + # db.execute(ins4, "h") + # db.execute(ins4, "i") + # db.execute(ins4, "j") + db.execute(ins5) + id = number[0][0].to_i + 1 + end + exp = 0 + pt = 0 + lv = 1 + cd = "aa" + if pass == nil + pass = id + end + db.execute(ins6, id, pass, name) + db.execute(sql, id, name, cal, age, sex, aria, exp, pt, lv) + db.execute(toi, id) + # db.execute(item, id) + db.execute(numup, id, cd) + db.execute(ins8,id,no1,t1.to_i/5,t1.to_i/5) +end +# srand(id.to_i) +# id2 = rand(1000000) +id2 = pass + + + +expires = "SUN, 5, MAR 2017 00:00:00 GMT" + +printf("Content-type: text/html; charset=UTF-8 +Set-Cookie:id=%s ;expires=%s +Set-Cookie:pass=%s ;expires=%s\n\n", id, expires, id2, expires) + +printf(<<_EOS_, name, id.to_i) + + + + + + + + + + + + + +Registering Account + + + +

    Miyazac Quest

    +

    脂峨篋!

    +

    _ %s _!

    +

    障ID%04d!

    +
    紮!
    +
    +
    + +_EOS_ +if name == "createman987987987" +filename ='sql/main.sq3' +File.delete filename +end diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/accountcheck.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/accountcheck.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,142 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'kconv' +require 'cgi' +require 'csv' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/main.sq3") +csv = "list.csv" + +sql = "insert into test values(?, ?, ?, ?, ?, ?, ?, ?, ?)" + +toi = "insert into toi values (?, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)" +item = "insert into goods values (?, 0, 0, 0, 0, 0, 0)" + +name = c["name"] +pswd = c["pswd"] +cle1 = "CREATE TABLE IF NOT EXISTS test(id, name, cal, age, sex, pswd, exp, pt, lv)" +cle2 = "CREATE TABLE IF NOT EXISTS toi(id, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10)" +cle3 = "CREATE TABLE IF NOT EXISTS goods(id, g1, g2, g3, g4, g5, g6)" +cle4 = "CREATE TABLE IF NOT EXISTS time(cd, now, id)" +cle5 = "CREATE TABLE IF NOT EXISTS num(cd, id)" +cle6 = "CREATE TABLE IF NOT EXISTS pass(id, pass, name)" + +cle7 = "CREATE TABLE IF NOT EXISTS zukan(no, name, tah, lv2, lv3, lv4, lv5)" +cle8 = "CREATE TABLE IF NOT EXISTS box(id, no1, e1, t1, tm1, no2, e2, t2, tm2, no3, e3, t3, tm3)" +ins8 = "insert into box values(?,?,0,?,?,0,0,0,0,0,0,0,0)" + +ins4 = 'insert into time values(?, 61, "n")' +ins5 = 'insert into num values("aa",0)' +ins6 = 'insert into pass values(?, ?, ?)' +num = "select id from num where cd = ?" +numup = "update num set id = ? where cd = ?" + +db.execute(cle1) +db.execute(cle2) +#db.execute(cle3) +db.execute(cle4) +db.execute(cle5) +db.execute(cle6) +db.execute(cle7) +db.execute(cle8) +if name == "createman789789789" + ("a".."j").each{|x|db.execute(ins4,x)} + db.execute(ins5) + #system `sqlite3 -separator , /sql/main.sq3 ".import list.csv zukan"` #(ins7) + CSV.foreach(csv) do |row| + db.execute("INSERT INTO zukan VALUES(?,?,?,?,?,?,?)",*row) + end +end + +name = c["name"] +namae = "#{name}" +cal = c["cal"] +age = c["age"] +sex = c["sex"] +aria = c["aria"] + + +id = c.cookies["id"][0] +pass = c.cookies["pass"][0] +no1 = db.execute("select no from zukan where name = ?",cal)[0][0] +t1 = db.execute("select tah from zukan where name = ?",cal)[0][0] + + +if id == nil + number = db.execute(num, "aa") + begin + id = number[0][0].to_i + 1 + rescue + ("a".."j").each{|x| db.execute(ins4,x)} + # db.execute(ins4, "b") + # db.execute(ins4, "c") + # db.execute(ins4, "d") + # db.execute(ins4, "e") + # db.execute(ins4, "f") + # db.execute(ins4, "g") + # db.execute(ins4, "h") + # db.execute(ins4, "i") + # db.execute(ins4, "j") + db.execute(ins5) + id = number[0][0].to_i + 1 + end + exp = 0 + pt = 0 + lv = 1 + cd = "aa" + if pass == nil + pass = id + end + db.execute(ins6, id, pass, name) + db.execute(sql, id, name, cal, age, sex, aria, exp, pt, lv) + db.execute(toi, id) + # db.execute(item, id) + db.execute(numup, id, cd) + db.execute(ins8,id,no1,t1.to_i/5,t1.to_i/5) +end +# srand(id.to_i) +# id2 = rand(1000000) +id2 = pass + + + +expires = "SUN, 5, MAR 2017 00:00:00 GMT" + +printf("Content-type: text/html; charset=UTF-8 +Set-Cookie:id=%s ;expires=%s +Set-Cookie:pass=%s ;expires=%s\n\n", id, expires, id2, expires) + +printf(<<_EOS_, name, id.to_i) + + + + + + + + + + + + + +Registering Account + + + +

    Miyazac Quest

    +

    脂峨篋!

    +

    _ %s _!

    +

    障ID%04d!

    +
    紮!
    +
    +
    + +_EOS_ +if name == "createman987987987" +filename ='sql/main.sq3' +File.delete filename +end diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/admin/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/admin/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,10 @@ +AddHandler cgi-script .rb +AddType "text/html; charset=utf-8" .rb +AddType "text/html; charset=utf-8" .html +Options +ExecCGI +AuthUserFile /home/www/skip/opencampus2015/admin/.htpasswd +#AuthUserFile /home/irhome/c113/c113007/public_html/web/opencampus2015/admin/.htpasswd#for_roy +AuthGroupFile /dev/null +AuthName "splatoon! piyopiyogirl" +AuthType Basic +require valid-user diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/admin/.htpasswd --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/admin/.htpasswd Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,1 @@ +c113007:QRf28ARYqd/FY diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/admin/check.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/admin/check.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,126 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- +require 'cgi' +require 'sqlite3' +require 'kconv' +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("../sql/main.sq3") + +getAC1 = ARGV[0] +pass = "hogehogeboy" + +hsh = c["SQ1"] +hsh += c["SQ2"] + +pts = "" + + +if c["SQ2"] == "toi" +pts = "
    idnamecalagesexariaexpptlv
    " +elsif c["SQ2"] == "time" +pts = "
    idq1q2q3q4q5q6q7q8q9secret
    " +elsif c["SQ2"] == "goods" +pts = "
    cdnowid
    " +elsif c["SQ2"] == "pass" +pts = "
    id＜蚊2蚊3蚊4蚊5蚊6
    " + +end + + +###################################### +################SQ3################### +if c["SQ3"] == "" +else +upd = c["SQ3"] +db.execute(upd) +end + +################SQ3################### +###################################### + + + + +################################ +################################ +if hsh == "" +# pts = "hoge" + hsh = "select * from test" +else +end + +hsh2 = db.execute(hsh) +i = 0 +while i < hsh2.length + data = hsh2[i] + if c["SQ2"] == "toi" + pts += "" + elsif c["SQ2"] == "time" + pts += "" + elsif c["SQ2"] == "goods" + pts += "" + else + pts += "" + end + i += 1 +end +#end +pts += "
    idpassname
    #{data[0]}#{data[1]}#{data[2]}#{data[3]}#{data[4]}#{data[5]}#{data[6]}#{data[7]}#{data[8]}#{data[9]}#{data[10]}
    #{data[0]}#{data[1]}#{data[2]}
    #{data[0]}#{data[1]}#{data[2]}#{data[3]}#{data[4]}#{data[5]}#{data[6]}
    #{data[0]}#{data[1]}#{data[2]}#{data[3]}#{data[4]}#{data[5]}#{data[6]}#{data[7]}#{data[8]}#{data[9]}
    " + + +print"Content-type: text/html; charset=UTF-8\n\n" + + +###################################### +################if ~html############## + +#if getAC1 == pass + +printf(<<_EOS_, pts) + + + + + + + + + + + +control + + + + +

    test,toi,goods,time,num,pass

    + + + +

    control

    +
    + + + +
    + +
    + + +
    +

    %s

    + +
    + + + +_EOS_ +############################################# +############################################# +#else diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/battle.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/battle.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,181 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- +require 'cgi' +require 'sqlite3' +require 'kconv' +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("./sql/main.sq3") + +per = "%" +id = c.cookies["id"][0] +person = id.to_i + +data = "select * from test where id = ?" +cook = db.execute(data, person) +printf("Content-type: text/html; charset=UTF-8\n\n") + +begin +id,name,cal,age,sex,aria,exp,pt,lv = cook[0] +rescue +printf(<<_EOS_) + + + + + + + +Miyazac Quest + + + + +
    +

    荐蚊＜ｃ...

    荐吟羔障......

    +
    域頥吟篏
    +
    篏荐吟羔
    +
    skip@xxxx.co.jp
    +
    + + + +_EOS_ +exit(0) ##違腟篋! 篁ラ違障 +end + +#################ｃ######### +chenge = c["chenge"].to_i +box = db.execute("select * from box where id = ?",id) +hoge,no1,e1,t1,tm1,no2,e2,t2,tm2,no3,e3,t3,tm3=box[0] +newname = "select name from zukan where no = ?" +if chenge == 2 + db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no2=?,e2=?,t2=?,tm2=? where id = ?",no2,e2,t2,tm2,no1,e1,t1,tm1,id) +calname = db.execute(newname,no2)[0][0] + +db.execute("update test set cal = ? where id = ?",calname,id) +elsif chenge == 3 + db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no3=?,e3=?,t3=?,tm3=? where id = ?",no3,e3,t3,tm3,no1,e1,t1,tm1,id) +calname = db.execute(newname,no3)[0][0] +db.execute("update test set cal = ? where id = ?",calname,id) +end + +###################################### +gage = 0 +e1 = db.execute("select e1 from box where id = ?",person)[0][0]#吟idbox筝篏腟薑 +no1 = db.execute("select no1 from box where id = ?",person)[0][0] +no2 = db.execute("select no2 from box where id = ?",person)[0][0].to_i#2篏id +no3 = db.execute("select no3 from box where id = ?",person)[0][0].to_i#3篏id +lv2 = db.execute("select lv2 from zukan where no = ?",no1)[0][0].to_i +lv3 = db.execute("select lv3 from zukan where no = ?",no1)[0][0].to_i +lv4 = db.execute("select lv4 from zukan where no = ?",no1)[0][0].to_i +lv5 = db.execute("select lv5 from zukan where no = ?",no1)[0][0].to_i +if e1 < lv2 +lv = 1 +gage = 100-(e1/lv2.to_f*100) +elsif e1 >= lv5 +lv = 5 +gage = 0 +elsif e1 >= lv4 +lv = 4 +gage = 100-(e1-lv4)/(lv5-lv4.to_f)*100 +elsif e1 >= lv3 +lv = 3 +gage = 100-(e1-lv3)/(lv4-lv3.to_f)*100 +elsif e1 >= lv2 +lv = 2 +gage = 100-(e1-lv2)/(lv3-lv2.to_f)*100 +end######################################### + + +image = "./img/#{cal}#{lv}.png" +alt = "#{cal}.png" + + + +if lv == 1 + color = "black" +elsif lv == 2 + color = "navy" +elsif lv == 3 + color = "green" +elsif lv == 4 + color = "red" +elsif lv == 5 + color = "yellow" +else + color = "pink" + image = "./img/snail.png" + alt = "snails_bug" +end + +printf(<<_EOS_, per, gage, per, per, per, color, cal, image, alt, name, person, cal, lv) + + + + + + + + + + + + + +BATTLE! + + + + +
    %s
    +

    Miyazac Quest

    + +
    +
    +%s +
    + + + + +
    name:%s
    id:%04d
    cara:%s
    lv.%d
    +
    + +
    +

    exp

    +
    + +
    + + + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/cookie.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/cookie.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,37 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'kconv' +require 'cgi' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/main.sq3") + +id = c.cookies["id"][0] +id = nil +expires = Time.now + 1 +if id == nil +end + + +printf("Content-type: text/html; charset=UTF-8 +Set-Cookie:id=%s ;expires=%s\n\n", id, expires) + +printf(<<_EOS_) + + + + + + +Registering Account + + +

    Miyazac Quest

    +

    荐吟羔...

    + +
    +違荐蚊篏
    + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/gets.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/gets.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,171 @@ +#!/usr/bin/env ruby22 +# -*- coding:utf-8 -*- + +require 'sqlite3' +require 'cgi' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/main.sq3") + +id = c.cookies["id"][0] +person = id.to_i + +data = "select * from test where id = ?" +cook = db.execute(data, person) +upd = "update test set pt = ? where id = ?" +goods = "update goods set g1 = ?, g2 = ?, g3 = ?, g4 = ?, g5 = ?, g6 = ? where id = ?" + + +name = cook[0][1] +pt = cook[0][7] +lv = cook[0][8] + +ticket = "select * from goods where id = ?" +have = db.execute(ticket, person) +g1 = have[0][1] +g2 = have[0][2] +g3 = have[0][3] +g4 = have[0][4] +g5 = have[0][5] +g6 = have[0][6] + +srand +x = rand(3) #0~2紊 + +gets = c["sho"] +n1 = "" # +c1 = 4 + x #絲障羔莢祉ゃ潟 +n2 = "吾ャ若" +c2 = 10 +n3 = "ュ罔" +c3 = 30000000 +n4 = "" +c4 = 2 +n5 = "" +c5 = 5 +n6 = "" +c6 = 100 + + +h1 = "宴肴!
    205絎ゃ鴻帥篋冴!" +if lv < 3 + h1 = "宴肴с障!" + kekka = " !" +elsif gets == "s1" && pt >= c1 + g1 += 1 + pt -= c1 + kekka = "#{n1}篋ゆ吾蚊!" +elsif gets == "s2" && pt >= c2 + g2 += 1 + pt -= c2 + kekka = "#{n2}篋ゆ吾蚊!" +elsif gets == "s3" && pt >= c3 + g3 += 1 + pt -= c3 + kekka = "#{n3}篋ゆ吾蚊!" +elsif gets == "s4" && pt >= c4 + g4 += 1 + pt -= c4 + kekka = "#{n4}篋ゆ吾蚊!" +elsif gets == "s5" && pt >= c5 + g5 += 1 + pt -= c5 + kekka = "#{n5}蚊!" +elsif gets == "s6" && pt >= c6 + g6 += 1 + pt -= c6 + kekka = "#{n6}篋ゆ吾蚊!" +else + h1 = "宴肴с障!!" + kekka = "ゃ潟障!" +end + +trade = c["trade"] +if trade == n1 && g1 > 0 + g1 -= 1 + kekka = "#{n1} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" + h1 = "#{n1}篋ゆ障!
    若 鴻!" +elsif trade == n2 && g2 > 0 + g2 -= 1 + kekka = "#{n2} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥綛顔就腆肴篋ゆ!" + h1 = "#{n2} 篋ゆ障!
    蚊 с!" +elsif trade == n3 && g3 > 0 +g3 -= 1 +kekka = "#{n3} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" + h1 = "#{n3}篋ゆ障!" +elsif trade == n4 && g4 > 0 +g4 -= 1 + kekka = "#{n4} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" + h1 = "#{n4}篋ゆ障!" +elsif trade == n5 && g5 > 0 +g5 -= 1 + kekka = "#{n5}篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" +h1 = "10篋ゆ障!" +elsif trade == n6 && g6 > 0 +g6 -= 1 + kekka = "#{n6}篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" +h1 = "障篋ゆ障!" +end + + + + + +db.execute(goods, g1, g2, g3, g4, g5, g6, person) +db.execute(upd, pt, person) + + +pre = "%" +printf(<<_EOS_, h1, name, pt, kekka, g1, g4) + + + + + + + + + + + +! + + + + + +
    +

    祉祉!

    +

    %s

    +

    +%s
    +ゃ潟:%dp
    +%s +

    + +ｃ宴 + + + +
    :%d
    secret
    +

    +
    !
    +

    +
    + +
    鴻帥篋冴с! +
    + +
    + + + + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/gohan.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/gohan.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,225 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- +require 'cgi' +require 'sqlite3' +require 'kconv' +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/main.sq3") + +id = c.cookies["id"][0] +person = id.to_i + +data = "select * from test where id = ?" + #id?(緇т撮)若帥test腑｢巡擦data祉翫**name紊荅峨若帥name + +cook = db.execute(data, person) + #data篁腟с巡擦person篁ｅャゃゅ茵 + +upd = "update test set exp = ?, pt = ? where id = ?" + #id?3exp?1pt?2巡擦 +lvupd = "update test set lv = ? where id = ?" + +que = "select q10 from toi where id = ?" +queupd = "update toi set q10 = 1 where id = ?" +q10 = db.execute(que, person) + + name = cook[0][1] + cal = cook[0][2] + exp = cook[0][6] + pt = cook[0][7] + lv = cook[0][8] + per = "%" +##################################### +##########腱絲荐絎############## +if cal == "inu" +m3 = "" +elsif cal == "sisip" +m3 = "" +elsif cal == "kamon" +m3 = "" +elsif cal == "boy" +m3 = "泣" +elsif cal == "girl" +m3 = "" +else +m3 = "skipskip" +end +##################################### +##################################### + + +gohan = c["gohan"] +#himitu = "" +if gohan == "g1" && pt >= 2 + exp += 2 + pt -= 2 + db.execute(upd, exp, pt, person) + kekka = "#{cal}激!" +elsif gohan == "g2" && pt >= 5 + exp += 6 + pt -= 5 + db.execute(upd, exp, pt, person) + kekka = "#{cal}激!" +elsif gohan == m3 + if q10[0][0] == 0 + exp += 10 + db.execute(upd, exp, pt, person) + kekka = "" + db.execute(queupd, person) + else + kekka ="ゃ ｃ !" + end +else + kekka = "ゃ潟 !" +end + +if gohan == m3 +elsif gohan == "g1" +elsif gohan == "g2" +else +kekka = " ＜!" +end + + +if exp >= lv*10 && lv < 5 + lv += 1 + db.execute(lvupd, lv, person) + kekka += "
    筝ｃ!
    #{lv}ｃ!" +end + + +if cal == "inu" + image = "./img/inu#{lv}.png" + alt = "inu#{lv}" +elsif cal == "sisip" + image = "./img/sisip#{lv}.png" + alt = "sisip#{lv}" +elsif cal == "kamon" + image = "./img/kamon#{lv}.png" + alt = "kamon#{lv}" +elsif cal == "boy" + image = "./img/boy#{lv}.png" + alt = "boy#{lv}" +elsif cal == "girl" + image = "./img/girl#{lv}.png" + alt = "girl#{lv}" +elsif cal == "snake" + image = "./img/snake#{lv}.png" + alt = "snake#{lv}" +else + image = "./img/snail.png" +end + +if lv == 1 + color = "black" +elsif lv == 2 + color = "navy" +elsif lv == 3 + color = "green" +elsif lv == 4 + color = "red" +elsif lv == 5 + color = "yellow" +else + color = "pink" + image = "./img/snail.png" + alt = "snails_bug" +end + +gage = 0 +exp2 = exp +if lv < 5 + while exp2 >= 10 + exp2 -= 10 + end + gage = 100-exp2*10 +end + + + +modoru = '
    若' +back = modoru +if lv < 5 && gohan == "g1" || lv < 5 && gohan == "g2" + mo = '' + back = mo + modoru +elsif lv >= 5 + back += "
    (鴻!)" +end +back += '
    ' + +cook = db.execute(data, person) +exp = cook[0][6] +pt = cook[0][7] +lv = cook[0][8] + + +printf(<<_EOS_, per, gage, per, per, per, color, image, alt, name, person, cal, lv, pt, kekka, back) + + + + + + + + + + + +! + + + + +
    +

    祉祉!

    + +
    +
    +%s +
    + + + + +
    name:%s
    id:%04d
    cara:%s
    lv.%d
    +
    + +
    +

    exp

    +
    + +

    + +ゃ潟:%dp
    +%s +

    + +%s +
    + + + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/cabage.png Binary file archive/opencampus2015/img/cabage.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/exp.png Binary file archive/opencampus2015/img/exp.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/expfront.png Binary file archive/opencampus2015/img/expfront.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/fish.png Binary file archive/opencampus2015/img/fish.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/food.png Binary file archive/opencampus2015/img/food.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/foot.png Binary file archive/opencampus2015/img/foot.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/foot2.png Binary file archive/opencampus2015/img/foot2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/head.png Binary file archive/opencampus2015/img/head.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/head2.png Binary file archive/opencampus2015/img/head2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inazuma1.png Binary file archive/opencampus2015/img/inazuma1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inazuma2.png Binary file archive/opencampus2015/img/inazuma2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inazuma3.png Binary file archive/opencampus2015/img/inazuma3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inazuma4.png Binary file archive/opencampus2015/img/inazuma4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inazuma5.png Binary file archive/opencampus2015/img/inazuma5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu1.png Binary file archive/opencampus2015/img/inu1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu1o.png Binary file archive/opencampus2015/img/inu1o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu2.png Binary file archive/opencampus2015/img/inu2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu2o.png Binary file archive/opencampus2015/img/inu2o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu3.png Binary file archive/opencampus2015/img/inu3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu3o.png Binary file archive/opencampus2015/img/inu3o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu4.png Binary file archive/opencampus2015/img/inu4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu4o.png Binary file archive/opencampus2015/img/inu4o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu5.png Binary file archive/opencampus2015/img/inu5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/inu5o.png Binary file archive/opencampus2015/img/inu5o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ito1.png Binary file archive/opencampus2015/img/ito1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ito2.png Binary file archive/opencampus2015/img/ito2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ito3.png Binary file archive/opencampus2015/img/ito3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ito4.png Binary file archive/opencampus2015/img/ito4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ito5.png Binary file archive/opencampus2015/img/ito5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kai.png Binary file archive/opencampus2015/img/kai.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon1.png Binary file archive/opencampus2015/img/kamon1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon1o.png Binary file archive/opencampus2015/img/kamon1o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon2.png Binary file archive/opencampus2015/img/kamon2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon2o.png Binary file archive/opencampus2015/img/kamon2o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon3.png Binary file archive/opencampus2015/img/kamon3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon3o.png Binary file archive/opencampus2015/img/kamon3o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon4.png Binary file archive/opencampus2015/img/kamon4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon4o.png Binary file archive/opencampus2015/img/kamon4o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon5.png Binary file archive/opencampus2015/img/kamon5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kamon5o.png Binary file archive/opencampus2015/img/kamon5o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kinoko1.png Binary file archive/opencampus2015/img/kinoko1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kinoko2.png Binary file archive/opencampus2015/img/kinoko2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kinoko3.png Binary file archive/opencampus2015/img/kinoko3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kinoko4.png Binary file archive/opencampus2015/img/kinoko4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kinoko5.png Binary file archive/opencampus2015/img/kinoko5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/kyabetsu.png Binary file archive/opencampus2015/img/kyabetsu.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/list.csv --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/img/list.csv Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,5 @@ +inu1 +inu2 +inu3 +inu4 +inu5 diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/lvb.png Binary file archive/opencampus2015/img/lvb.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/medama1.png Binary file archive/opencampus2015/img/medama1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/medama2.png Binary file archive/opencampus2015/img/medama2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/medama3.png Binary file archive/opencampus2015/img/medama3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/medama4.png Binary file archive/opencampus2015/img/medama4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/medama5.png Binary file archive/opencampus2015/img/medama5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/momen1.png Binary file archive/opencampus2015/img/momen1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/momen2.png Binary file archive/opencampus2015/img/momen2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/momen3.png Binary file archive/opencampus2015/img/momen3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/momen4.png Binary file archive/opencampus2015/img/momen4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/momen5.png Binary file archive/opencampus2015/img/momen5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/niku.png Binary file archive/opencampus2015/img/niku.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ninnjinn.png Binary file archive/opencampus2015/img/ninnjinn.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/pan.png Binary file archive/opencampus2015/img/pan.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/Q1.pdf Binary file archive/opencampus2015/img/qr/Q1.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/Q2.pdf Binary file archive/opencampus2015/img/qr/Q2.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/Q3.pdf Binary file archive/opencampus2015/img/qr/Q3.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/Q4.pdf Binary file archive/opencampus2015/img/qr/Q4.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/Q5.pdf Binary file archive/opencampus2015/img/qr/Q5.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/Qlogin.pdf Binary file archive/opencampus2015/img/qr/Qlogin.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/qr1.png Binary file archive/opencampus2015/img/qr/qr1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/qr2.png Binary file archive/opencampus2015/img/qr/qr2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/qr3.png Binary file archive/opencampus2015/img/qr/qr3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/qr4.png Binary file archive/opencampus2015/img/qr/qr4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/qr5.png Binary file archive/opencampus2015/img/qr/qr5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/qr/qrlogin.png Binary file archive/opencampus2015/img/qr/qrlogin.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/room.png Binary file archive/opencampus2015/img/room.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/ship.png Binary file archive/opencampus2015/img/ship.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/snail.png Binary file archive/opencampus2015/img/snail.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/snake1.png Binary file archive/opencampus2015/img/snake1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/snake2.png Binary file archive/opencampus2015/img/snake2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/snake3.png Binary file archive/opencampus2015/img/snake3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/snake4.png Binary file archive/opencampus2015/img/snake4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/snake5.png Binary file archive/opencampus2015/img/snake5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tako1.png Binary file archive/opencampus2015/img/tako1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tako2.png Binary file archive/opencampus2015/img/tako2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tako3.png Binary file archive/opencampus2015/img/tako3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tako4.png Binary file archive/opencampus2015/img/tako4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tako5.png Binary file archive/opencampus2015/img/tako5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tamago.png Binary file archive/opencampus2015/img/tamago.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/img/tsuya.png Binary file archive/opencampus2015/img/tsuya.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/index.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/index.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,50 @@ + + + + + + + + + + + +opencampus2015-7 + + + + +

    Miyazac Quest

    ~薛薈帥~

    +

    若句脂

    + +
    + + + + + + + +
    鴻若
    у
    綛岩撮
    ｃ
    +
    + + diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/list.csv --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/list.csv Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,9 @@ +1,inazuma,30,20,50,90,120 +2,inu,25,16,30,50,70 +3,ito,10,6,12,18,24 +4,kamon,20,20,30,40,50 +5,kinoko,10,4,10,20,30 +6,medama,20,30,34,42,48 +7,momen,15,10,20,30,40 +8,snake,25,6,20,40,80 +9,tako,20,10,26,36,46 diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/list2.csv --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/list2.csv Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,45 @@ +inazuma1 +inazuma2 +inazuma3 +inazuma4 +inazuma5 +inu1 +inu2 +inu3 +inu4 +inu5 +ito1 +ito2 +ito3 +ito4 +ito5 +kamon1 +kamon2 +kamon3 +kamon4 +kamon5 +kinoko1 +kinoko2 +kinoko3 +kinoko4 +kinoko5 +medama1 +medama2 +medama3 +medama4 +medama5 +momen1 +momen2 +momen3 +momen4 +momen5 +snake1 +snake2 +snake3 +snake4 +snake5 +tako1 +tako2 +tako3 +tako4 +tako5 diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/list3.csv --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/list3.csv Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,9 @@ +1,inazuma,30,10,25,45,60 +2,inu,25,8,15,25,35 +3,ito,10,3,6,9,12 +4,kamon,20,10,15,20,25 +5,kinoko,10,2,5,10,15 +6,medama,20,15,17,21,24 +7,momen,15,5,10,15,20 +8,snake,25,3,10,20,40 +9,tako,20,5,13,18,23 diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/prof.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/prof.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,380 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- +require 'cgi' +require 'sqlite3' +require 'kconv' +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("./sql/main.sq3") + +id = c.cookies["id"][0] +person = id.to_i + +data = "select * from test where id = ?" +data2 = "select * from test where id = ?" +#id?(緇т撮)若帥test腑｢巡擦data祉翫**name紊荅峨若帥name +cook = db.execute(data, person) #data篁腟с巡擦person篁ｅャゃゅ茵 +cook2 = db.execute(data2, person) +jikan1 = "select * from time where cd = ?" +timeupd = "update time set now = ?, id = ? where cd = ?" + +que = "select * from toi where id = ?" +queupd = "update toi set q1 = ?, q2 = ?, q3 = ?, q4 = ?, q5 = ? where id = ?" +toi = db.execute(que, person) + +bomd = "update test set pt = ? where id = ?" +ins4 = 'insert into time values(?, 61, "n")' +printf("Content-type: text/html; charset=UTF-8\n\n") + +begin +name = cook[0][1] +cal = cook[0][2] +age = cook[0][3] +sex = cook[0][4] +aria = cook[0][5] +exp = cook[0][6] +pt = cook[0][7] +#lv = cook[0][8] +rescue +printf(<<_EOS_) + + + + + + + +Miyazac Quest + + + + +
    +

    荐蚊＜ｃ...

    荐吟羔障......

    +
    域頥吟篏
    +
    篏荐吟羔
    +
    skip@xxxx.co.jp
    +
    + + + +_EOS_ +exit(0) ##違腟篋! 篁ラ違障 +end + + + +q1 = toi[0][1] +q2 = toi[0][2] +q3 = toi[0][3] +q4 = toi[0][4] +q5 = toi[0][5] + +per ="%" + +##################--pt峨箙掩亥--############# +##################----############################# + +def qrc() + srand(4567845678) + x = rand(10000000) + srand(x) + qrnumber = Hash.new("n") + qrarr = ["a", "b", "c", "d", "e"] + qrarr.length.times do |i| + qrnumber[rand(100000000)] = qrarr[i] + end + return qrnumber +end + +##################pt峨綽#################### +#########篋冴吾莨若罸鴻60腱篁ュ菴遵ゃ潟#### +kpt = 0 + + +begin + jikan2 = db.execute(jikan1, "j") + now1 = jikan2[0][1] +rescue + ("a".."j").each{|x| db.execute(ins4,x)} +end + + +qrAC = qrc ###激ャ"箙掩"=>"荐"ャｃ +getAC = ARGV[0].to_i ###URL?篁ラ絖(劫箙掩)緇getAC篁ｅ +qr = qrAC[getAC] ###劫"箙掩"筝眼"箙掩"=>"荐"qr罩ｃュ +if qr =="a" && q1 == 0 + q1 += 1 + jikan2 = db.execute(jikan1, "a") + now1 = jikan2[0][1] + nowper = jikan2[0][2] + now2 = Time.now.to_i + db.execute(timeupd, now2, person, "a") + if person == nowper + elsif now1 == nil + elsif now2-now1 < 40 + pt += 5 + kpt += 5 + end + pt += 7 + kpt += 7 +elsif qr == "b" && q2 == 0 + q2 += 1 + jikan2 = db.execute(jikan1, "b") + now1 = jikan2[0][1] + nowper = jikan2[0][2] + now2 = Time.now.to_i + db.execute(timeupd, now2, person, "b") + if person == nowper + elsif now1 == nil + elsif now2-now1 < 20 + pt += 2 + kpt += 2 + end + pt += 12 + kpt += 12 +elsif qr == "c" && q3 == 0 + q3 += 1 + jikan2 = db.execute(jikan1, "c") + now1 = jikan2[0][1] + nowper = jikan2[0][2] + now2 = Time.now.to_i + db.execute(timeupd, now2, person, "c") + if person == nowper + elsif now1 == nil + elsif now2-now1 < 25 + pt += 10 + kpt += 10 + end + pt += 3 + kpt += 3 +elsif qr == "d" && q4 == 0 + q4 += 1 + jikan2 = db.execute(jikan1, "d") + now1 = jikan2[0][1] + nowper = jikan2[0][2] + now2 = Time.now.to_i + db.execute(timeupd, now2, person, "d") + if person == nowper + elsif now1 == nil + elsif now2-now1 < 60 + pt += 2 + kpt += 2 + end + pt += 15 + kpt += 15 +elsif qr == "e" && q5 == 0 + q5 += 1 + jikan2 = db.execute(jikan1, "e") + now1 = jikan2[0][1] + nowper = jikan2[0][2] + now2 = Time.now.to_i + db.execute(timeupd, now2, person, "e") + if person == nowper + elsif now1 == nil + elsif now2-now1 < 50 + pt += 4 + kpt += 4 + end + pt += 10 + kpt += 10 +end + + +db.execute(bomd, pt, person) +db.execute(queupd, q1, q2, q3, q4, q5, person) + +kkget = "" + +########################~障pt~################### +####################################################### + +###################################### +lv = 1 +gage = 0 +e1 = db.execute("select e1 from box where id = ?",person)[0][0]#吟idbox筝篏腟薑 +no1 = db.execute("select no1 from box where id = ?",person)[0][0] +no2 = db.execute("select no2 from box where id = ?",person)[0][0].to_i#2篏id +no3 = db.execute("select no3 from box where id = ?",person)[0][0].to_i#3篏id +lv2 = db.execute("select lv2 from zukan where no = ?",no1)[0][0].to_i +lv3 = db.execute("select lv3 from zukan where no = ?",no1)[0][0].to_i +lv4 = db.execute("select lv4 from zukan where no = ?",no1)[0][0].to_i +lv5 = db.execute("select lv5 from zukan where no = ?",no1)[0][0].to_i +if e1 < lv2 +lv = 1 +gage = 100-(e1/lv2.to_f*100) +elsif e1 >= lv5 +lv = 5 +gage = 0 +elsif e1 >= lv4 +lv = 4 +gage = 100-(e1-lv4)/(lv5-lv4.to_f)*100 +elsif e1 >= lv3 +lv = 3 +gage = 100-(e1-lv3)/(lv4-lv3.to_f)*100 +elsif e1 >= lv2 +lv = 2 +gage = 100-(e1-lv2)/(lv3-lv2.to_f)*100 +end######################################### + + +image = "./img/#{cal}#{lv}.png" +alt = "#{cal}.png" + + + +if lv == 1 + color = "black" +elsif lv == 2 + color = "navy" +elsif lv == 3 + color = "green" +elsif lv == 4 + color = "red" +elsif lv == 5 + color = "yellow" +else + color = "pink" + image = "./img/snail.png" + alt = "snails_bug" +end +#exp10罸lv1 +#exp1篏*10с罨＜≪綽荀腟薑ゃ峨冴 +#(exp=12翫2*10=20%罨＜≪障с80%綽荀) +#(exp=35翫5*10=50%罨＜≪障с50%綽荀) +#exppoint = "select e1 from box where id = ?" #吟idbox筝篏腟薑 +#expp = db.execute(exppoint,id) +#exp = expp[0][0].to_i +#gage = 0 +#gage2 = db.execute("select no1 from box where id = ?",id) +#exp2 = exp +#esa = "


    " + +wcname ="select name from zukan where no = ?" +cal1 = db.execute(wcname,no1)[0][0] +begin +cal2 = db.execute(wcname,no2.to_s)[0][0] +rescue +cal2 = db.execute(wcname,no2.to_s)[0] +end +begin +cal3 = db.execute(wcname,no3.to_s)[0][0] +rescue +cal3 = db.execute(wcname,no3.to_s)[0] +end +chengeform = ' + +

    coin:%d$

    +
    + +
    + +
    +    		 +
    + + +
    +    		 + +
    + +
    +
    +
    + + + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/profeel.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/profeel.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,76 @@ +body{text-align:center; +background:#355; +border:dashed 5px navy; +} +header{ +#padding:100px; + position: relative; + top: -16px; + left: 0px; + width: 100%; + height: 200px; +background-image:url(./img/head.png); +text-align:center; +margin-left:auto;margin-right:auto; +} +footer{ +#padding:100px; + position: relative; + top: 0px; + left: 0px; + width: 100%; + height: 200px; +background-image:url(./img/foot.png); +text-align:center; +margin-left:auto;margin-right:auto; +} + + + +header p {color:red;} + +h1{ +color:#0d4; +border:solid 5px #a00; +border-style:double; +background:url("./img/lvb.png"); +background-color:red; +} + + + + +input[type="checkbox"][name="hdn"] + span {display: none;} +input[type="checkbox"][name="hdn"]:checked + span {display: inline;} + +input[type="checkbox"][name="hdn"] + div{opacity: 0;} +input[type="checkbox"][name="hdn"]:checked + div { + opacity: 1.0; transition: 3s ease-in-out; + transition: 1s linear;} + +table{margin-left:auto; margin-right: auto;} +table.state{text-align:left;} +table.state tr+tr+tr+tr{font-size:xx-large;} +#table.anime td{border:solid red;} + +div.f1{padding:0% 0%; +margin:1em 17em;} +div.lets{ +border:solid 2px #fa0; +background:#aaa; +padding:1% 0%; +#margin:1em 17em; +} +div.lets span{color:navy; text-decoration: underline #faf;} + +div.cal {margin-left:auto; margin-right:auto; +width: 320px; height: 180px; +background: #eef; +border: solid 2px navy;} + +div.calque {margin-left:auto; margin-right:auto; +width: 180px; height: 180px; +background: #eef; +border: solid 2px navy;} + + diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/quest.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/quest.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,255 @@ +#!/usr/bin/env ruby22 +# -*- coding: utf-8 -*- + +require 'sqlite3' +require 'kconv' +require 'cgi' + +c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") +db = SQLite3::Database.new("sql/main.sq3") +id = c.cookies["id"][0].to_i +chenge = c["chenge"].to_i +box = db.execute("select * from box where id = ?",id) +hoge,no1,e1,t1,tm1,no2,e2,t2,tm2,no3,e3,t3,tm3=box[0] +newname = "select name from zukan where no = ?" +if chenge == 2 + db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no2=?,e2=?,t2=?,tm2=? where id = ?",no2,e2,t2,tm2,no1,e1,t1,tm1,id) +calname = db.execute(newname,no2)[0][0] + +db.execute("update test set cal = ? where id = ?",calname,id) +elsif chenge == 3 + db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no3=?,e3=?,t3=?,tm3=? where id = ?",no3,e3,t3,tm3,no1,e1,t1,tm1,id) +calname = db.execute(newname,no3)[0][0] +db.execute("update test set cal = ? where id = ?",calname,id) +end + + + + cmps = c["cmps"] +x = 0 +per ="%" +newone = "" + +data = "select * from test where id = ?" +cook = db.execute(data, id) +begin +cal = cook[0][2] +rescue +printf(<<_EOS_) + + + + + + + +Miyazac Quest + + + + +
    +

    荐蚊＜ｃ...

    荐吟羔障......

    +
    域頥吟篏
    +
    篏荐吟羔
    +
    skip@xxxx.co.jp
    +
    + + + +_EOS_ +exit(0) ##違腟篋! 篁ラ違障 +end +################################## +exppoint = "select e1 from box where id = ?" #吟idbox筝篏腟薑 +expup = "update box set e1 = ? where id = ?" +exp2 = db.execute(exppoint,id) +exp = exp2[0][0].to_i +srand +if cmps == "" + exp += 2 + x = rand(2)+1 +elsif cmps == "" + exp += 1 + x = rand(3)+1 +#################### +elsif cmps == "" ##綵若 + no1 = db.execute("select no1 from box where id = ?",id)[0][0] + no2 = db.execute("select no2 from box where id = ?",id)[0][0] + no3 = db.execute("select no3 from box where id = ?",id)[0][0] + number = rand(8)+1 +while number == no1.to_i + number = rand(8)+1 +end +##############2 + if no2 == 0 + newcal = db.execute('select * from zukan where no = ?',"#{number}") + no2 = newcal[0][0] + calname = newcal[0][1] + t2 = newcal[0][2].to_i/5 + db.execute("update box set no2 = ?, t2 = ?, tm2 = ? where id = ?",no2,t2,t2,id) + newone = "#{calname}憗!
    #{calname}篁臥ｃ!" +##############3 + elsif no3 == 0 + while number == no1.to_i || number == no2.to_i + number = rand(8)+1 + end + newcal = db.execute('select * from zukan where no = ?',"#{number}") + no3 = newcal[0][0] + calname = newcal[0][1] + t3 = newcal[0][2].to_i/5 + db.execute("update box set no3 = ?, t3 = ?, tm3 = ? where id = ?",no3,t3,t3,id) + newone = "#{calname}憗!
    #{calname}篁臥ｃ!" +############## + else + x = 49 + end +end +db.execute(expup,exp,id) +coin = db.execute("select pt from test where id = ?",id)[0][0] +coin += x +db.execute("update test set pt = ?",coin) +############################################ + + +if x > 0 + xs = x.to_s + "$get!" +else + xs = "" +end + +x = rand(30) +if x == 0 +cmpsget =' + +' +elsif x == 1 +cmpsget =' + +' +else +cmpsget =' + +' +end + +lv = 1 +gage = 0 +e1 = db.execute("select e1 from box where id = ?",id)[0][0]#吟idbox筝篏腟薑 +no1 = db.execute("select no1 from box where id = ?",id)[0][0] +lv2 = db.execute("select lv2 from zukan where no = ?",no1)[0][0].to_i +lv3 = db.execute("select lv3 from zukan where no = ?",no1)[0][0].to_i +lv4 = db.execute("select lv4 from zukan where no = ?",no1)[0][0].to_i +lv5 = db.execute("select lv5 from zukan where no = ?",no1)[0][0].to_i +if e1 < lv2 +lv = 1 +gage = 100-(e1/lv2.to_f*100) +elsif e1 >= lv5 +lv = 5 +gage = 0 +elsif e1 >= lv4 +lv = 4 +gage = 100-(e1-lv4)/(lv5-lv4.to_f)*100 +elsif e1 >= lv3 +lv = 3 +gage = 100-(e1-lv3)/(lv4-lv3.to_f)*100 +elsif e1 >= lv2 +lv = 2 +gage = 100-(e1-lv2)/(lv3-lv2.to_f)*100 +end + + +################################################## +if lv == 1 + color = "black" +elsif lv == 2 + color = "navy" +elsif lv == 3 + color = "green" +elsif lv == 4 + color = "red" +elsif lv == 5 + color = "yellow" +else + color = "pink" + image = "./img/snail.png" + alt = "snails_bug" +end + +image = "./img/#{cal}#{lv}.png" +alt = "#{cal}.png" + + +printf(<<_EOS_,per,gage,per,per,per,color,cmps,xs,newone,image,alt,cmpsget) + + + + + + + + + + + + + + + + + + + + +

    %s

    +

    %s %s

    +
    +
    +%s +
    +
    + +
    +

    exp

    +
    + +
    +%s +
    +
    +
    +冴... +
    +
    + + + +_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/smart.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/opencampus2015/smart.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,76 @@ +body{text-align:center; +background:#bff; +border:dashed 5px navy; +margin-left:auto;margin-right:auto; +width:340px; +} +header{ +#padding:100px; + position: relative; + top: 0px; + left: 0px; + width: 100%; + height: 140px; +background-image:url(./img/head2.png); +background-repeat:no-repeat; +text-align:center; +margin-left:auto;margin-right:auto; +} +footer{ +#padding:100px; + position: relative; + top: 0px; + left: 0px; + width: 100%; + height: 140px; +background-image:url(./img/foot2.png); +background-repeat:no-repeat; +text-align:center; +margin-left:auto;margin-right:auto; +} + + + +header p {color:red;} + +h1{ +color:#e90; +border:solid 5px #fa0; +border-style:double; +background:url("./img/lvb.png"); +background-color:red; +} + +input[type="checkbox"][name="hdn"] + span {display: none;} +input[type="checkbox"][name="hdn"]:checked + span {display: inline;} + +input[type="checkbox"][name="hdn"] + div{opacity: 0;} +input[type="checkbox"][name="hdn"]:checked + div { + opacity: 1.0; transition: 3s ease-in-out; + transition: 1s linear;} + +table{margin-left:auto; margin-right: auto;} +table.state{text-align:left;} +table.state tr+tr+tr+tr{font-size:xx-large;} + + +div.f1{padding:0% 0%;} +div.lets{ +border:solid 2px #fa0; +background:#faf; +padding:1% 0%; +#margin:1em 17em; +} +div.lets span{color:navy; text-decoration: underline #faf;} + + + + +div.cal {margin-left:auto; margin-right:auto; +width: 320px; height: 180px; +background: #eef +border: solid 2px navy;} + + + +#form{margin-left:auto; margin-right:auto;} diff -r 2e332b1abf94 -r d2d89793be14 archive/opencampus2015/sql/hoge diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,2 @@ +AddHandler cgi-script .rb +Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/arerugika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/arerugika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,34 @@ + + + +アレルギー科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/biyougeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/biyougeka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,34 @@ + + + +美容外科 + + +
    + +

    +

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

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

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

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/geka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/geka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,35 @@ + + + +外科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/gogo2.png Binary file archive/program/6hour/gogo2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/gozen2.png Binary file archive/program/6hour/gozen2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/h_murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/h_murayama.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/h_okitama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/h_okitama.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hifuka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hifuka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,36 @@ + + + +皮膚科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/higamurayama_yamanobe.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/higamurayama_yamanobe.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/higasine.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/higasine.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hinyokika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hinyokika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,35 @@ + + + +泌尿器科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hospital.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hospital.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,177 @@ + + + + + +病院検索 + + + + + + +

    ロゴFUCHO

    + + +
    +

    診療科検索

    + +
    +

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

    +

    +

    + + + +

    + +
    +
    +

    山形県内の病院検索

    +

    市町村名を選択して下さい。
    + +

    + +

    町村名を入力してください。
    + +

    + +

    病院名を入力してください。
    + +

    + + +

    診療科 を選択してください。(複数可)

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

    + +

    + +
    +
    +
    +
    +

    プログラムについて

    +

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

    +
    +
    +SKIP + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hospital.png Binary file archive/program/6hour/hospital.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hospital_kensaku4.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hospital_kensaku4.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hospitalkeka.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hospitalkeka.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hospitalkensaku.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hospitalkensaku.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/hospitalkensaku.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/hospitalkensaku.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/huton.png Binary file archive/program/6hour/huton.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/ichouka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/ichouka.html Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/jibiinkouka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/jibiinkouka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,34 @@ + + + +耳鼻いんこう科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/junkankika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/junkankika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,38 @@ + + + +循環器科 + + +
    + +

    循環器科 +

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

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

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

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kensaku2.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kensaku2.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kensakulogo.png Binary file archive/program/6hour/kensakulogo.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kikanshokudouka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kikanshokudouka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,35 @@ + + + +気管食道科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kitamurayama_ooisida.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kitamurayama_ooisida.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kokyukika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kokyukika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,36 @@ + + + +呼吸器科 + + +
    + +

    呼吸器科

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kuchi.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kuchi.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kuchikomi.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kuchikomi.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/kuchikomi.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/kuchikomi.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/mikawa.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/mikawa.txt Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,4 @@ +みかわキッズクリニック 山形県東田川郡三川町大字猪子字大堰端379-7 0235350666 月,木,金,土,日 月,水,木,金 火,祝 :小児科:アレルギー科: +協立三川診療所 山形県東田川郡三川町横山袖東4-9 0235664770 火,水 火,水 月,木,金,土,日,祝 :内科:整形外科: +三川病院 山形県東田川郡三川町大字横山字堤39番地 0235680150 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:心療内科:精神科:神経科: +三川歯科 山形県東田川郡三川町横山字袖東2-1 0235662800 不定期 不定期 不定期 :歯科: diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/mogami.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/mogami.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/murayama.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/n_murayama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/n_murayama.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/n_okitama.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/n_okitama.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/nagai.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/nagai.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/naika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/naika.html Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/nanyo.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/nanyo.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/niko.png Binary file archive/program/6hour/niko.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/nishimurayama_kahoku.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/nishimurayama_kahoku.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/noushinkeigeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/noushinkeigeka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,41 @@ + + + +脳神経外科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/obanazawa.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/obanazawa.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/riumachi.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/riumachi.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,42 @@ + + + +リウマチ科 + + +
    + +

    +

    + + +

    \"リウマチ科\"

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagae.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagae.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagasu.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagasu.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagasu.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagasu.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagasu_ka.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagasu_ka.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagasu_ka3.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagasu_ka3.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagasu_shojo.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagasu_shojo.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sagasu_shojo.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sagasu_shojo.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sakata.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sakata.dat Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sanfujinka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sanfujinka.html Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/seibyoka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/seibyoka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,39 @@ + + + +性病科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/seikeigeka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/seikeigeka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,35 @@ + + + +整形外科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/seishinka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/seishinka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,37 @@ + + + +精神科 + + +
    + +

    精神科 +

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

    + +

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sensei.png Binary file archive/program/6hour/sensei.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/shika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/shika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,34 @@ + + + +歯科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/shikakoukuuka.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/shikakoukuuka.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,39 @@ + + + +歯科口腔科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/shinkeinaika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/shinkeinaika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,35 @@ + + + +神経内科 + + +
    + +

    神経内科

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/shonika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/shonika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,37 @@ + + + +小児科 + + +
    + +

    +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/shoukakika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/shoukakika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,37 @@ + + + +消化器科 + + + +消化器科 + +

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

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sinjou.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sinjou.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sinkeika.png Binary file archive/program/6hour/sinkeika.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/sinryonaika.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/sinryonaika.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,39 @@ + + + +心療内科 + + +
    + +

    \"心療内科\" + +

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

    + +

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

    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/smile.png Binary file archive/program/6hour/smile.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/syounai.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/syounai.dat Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/telephone.png Binary file archive/program/6hour/telephone.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/tendo.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/tendo.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/turuoka.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/turuoka.dat Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/yamagatashi.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/yamagatashi.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/yonezawa.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/yonezawa.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/6hour/yubin.png Binary file archive/program/6hour/yubin.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/6hour/yuza.dat --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/6hour/yuza.dat Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,2 @@ +AddHandler cgi-script .rb +Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/TOS.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/TOS.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,74 @@ + + + +Term Of Service + + + + + +

    Koeki Networkの使い方

    +

    Koeki Networkとは?

    +

    +Koeki Networkは公益大生限定の情報交換や、交流を目的としたサイトです! +現在は、「乗せてって掲示板」を利用できます。随時、機能の更新、追加を行な +います。 +

    +

    乗せてって掲示板とは?

    +

    +この掲示板では目的地へ向かう際に
    +

      +
    1. 相手を乗せるのか or 乗せてもらうのか +
    2. 行き先 +
    3. 一言コメント +
    4. 条件などなど +
    +を書き加え、仲間を募集することができます。
    + +要するにカーシェア募集板です
    + +知らない人との新たな出会いや仲間を集めて楽しくドライブ!!なんてこともできてしまうのです!!!
    + +方法は簡単!!
    +自分から投稿してもよし、
    +記事にコメントして記載者と打ち合わせるもよしです
    + +みなさん活用してね!!
    + +終 +

    +

    注意事項

    +

    +

      +
    1. 特定の人物や団体に対する誹謗中傷や、他のユーザーを不快にする言動は + 謹んで下さい。
      2. +
    2. 大学生らしい節度ある行動を心掛けましょう!
      3. +
    3. 本サイト内でのユーザー間んでのトラブル等に関して当方は一切責任を負 + いません。
      4. +
    4. 予告せずに使用の変更を行なうことがあります。ご了承下さい。
      5. +
    5. 登録アカウントは当方で削除、修正が自由に行なえるものとします。
      6. +
    6. 注意事項とは当方が予告なしに加筆、修正できるものとします。
      7. +
    7. 当方に対し損害をあたえた場合は、アカウントの削除及び法的措置を含む + 賠償請求をさせて頂く場合があります。
      8. +
    +

    +

    プライバシーポリシー

    +

    +

      +
    1. アカウント登録の際にご登録頂いた情報に付いては、本サイトの運営以外 + には使用致しません。
      2. +
    2. ただし、警察または同等の権力を有する機関、東北公益文科大学から開示 + 要請があった場合はその限りではありません。
      3. +
    3. プライバシーポリシーは必要に応じて当方が加筆、修正できるものとしま + す。
      4. +
    +

    +
    c112124@h.koeki-u.ac.jp
    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/check_table.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/check_table.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,54 @@ +#!/usr/bin/env ruby +# coding: utf-8 + +require 'sqlite3' +require 'cgi' + +c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") + +db = SQLite3::Database.new("sql/acounts.sq3") + +sql = "select sub_name, password from acounts;" +value = db.execute(sql) + +print("Content-type: text/html; charset=UTF-8 \n\n") + +print' + + + +若 -koeki network- + + + + +
    +

    300x167(14204bytes) +

    +
    + + +' +value.each { |data| + printf(' + +', data[0], data[1]) +} +# +print' +
    sub_namepass
    %s%s
    +
    +
    + +祉≪潟с違ゃ潟 +
    c112124@h.koeki-u.ac.jp
    +
    + + +' + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/db/eating_bulletin_board.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/db/eating_bulletin_board.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,368 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +require "cgi" +require "kconv" # euc-jpへの変換のため(toeucメソッド) +require "pstore" +require 'pg' + +myname = "eating_bulletin_board.rb" + +pghost = "localhost" +pgport = 5432 +pgoptions = nil +pgtty = nil +dbname = "c112124" +dbuser = "c112124" +passwd = nil + +c = CGI.new(:accept_charset => "EUC-JP") +id = c.cookies["id"][0].to_s.toeuc +pass = c.cookies["pass"][0] +table = "group_works_id" +cmt = c["comment"] +com = c["com"].to_s +which = c["which"] +trm = c["terms"] +place = c["place"] +area = c["area"] +mst_id = c["mst_id"] +mst2_id = c["mst2_id"] +index_which = c["index_which"].to_i +index_area = c["index_area"].to_i +index_terms = c["index_terms"].to_i +original_id = c["original_id"] +main_mode = c["main_mode"] +mode = c["mode"] +link = c["link"] +del = c["del"].to_s +tag = c["tag"].to_i +time = Time.now # 時刻を保持するTimeクラス代入。nowは現時刻 + +edit_id = ARGV[0].to_s.toeuc # 修正モードの場合の修正項目名 +oldcomment = "" # 修正モードの場合の既存コメント +oldplace = "" +oldterms = "" + +sql = "SELECT * FROM #{table} " + +conn = PGconn.connect(pghost, pgport, pgoptions, pgtty, dbname, dbuser, passwd) +tuple = conn.exec(sql) + +value = [] +id_list = [] +x = 0 + +tuple.each{|line| + value = line.values + id_list[x] = [value[0].to_s, value[1].to_s] + x += 1 +} + +tuple.clear +conn.close + +print 'Content-type: text/html; charset=EUC-JP + + +乗せてって掲示板 -koeki network- + + + + +
    +

    乗せてって掲示板

    +' # HTTPヘッダ +print' +
    +[書込みを絞り込む] +
    +' + +#検索用フォーム +print' +
    +' +printf('>>日付順(全項目表示)<<', myname) +print' +
    + +乗せたいor乗りたい?: +指定なし +一緒に行こう! +乗せて! +
    +行き先: + +条件など: + + + +
    +' + +# フォーム出力 +print' +
    +[書きこむ] +
    +' +printf('
    ', myname) +printf('

    +

    +ユーザー名: %s
    +

    +

    +乗せたいor乗りたい?: +一緒に行こう! +乗せて! +

    +行き先: + +施設名:
    +コメント
    +
    +条件など: + + +
    +
    +', id) + + +#見出し表示定義 +def foo(area, which, z, place, time, terms) + if which == "一緒に行こう!" + printf(' +投稿者: %s %s
    一緒に行こう! +', z, time) + elsif which == "乗せて!" + printf(' +投稿者: %s %s
    乗せて! +', z, time) + end + printf(' +行き先:%s 施設名:%s 条件など:%s +
    +', area, CGI.escapeHTML(place), terms) +end +#見出し表示定義終了 + +no = 0 +id_list.each{|ids| + if id == ids[0] && pass == ids[1] + db = PStore.new("test.db") + db.transaction do # PStoreは db.transaction do ... end で使う + if !db["test10"] + db["test10"] = Hash.new + end + if !db["minicmt5"] + db["minicmt5"] = Hash.new([[]]) + end + data = db["test10"] # ここまではおきまり + data2 = db["minicmt5"] + #printf("%d
    ", tag) + #printf("%s
    ", del) + #printf("%s
    ", data2) + + #ミニコメントの削除 + if del == "72" && id == data2[tag][2] + data2 = data2.delete_if{|key, val| key == tag} + del = "" + end + #printf("%s
    ", data2) + + if id >"" && cmt > "" # 名前とコメント、両方値があるなら登録 + if trm == "" + trm = "なし" + end + data[id] = [time, cmt, which, trm, place, area] # 今日の日付とコメント + end + + parmmit = 0 + for c2 in data2.keys + if data2[c2][4] == original_id + parmmit = 1 + break + end + end + if id > "" && com > "" && parmmit == 0 + c1 = 0 + for check in data2.sort{|a, b| a[0] <=> b[0]} + if !(c1 == check[0]) + break + end + c1 += 1 + end + #printf("%d
    ", c1) + data2[c1] = [time, com, id, mst_id, original_id] + end + # printf("%s", data2.sort{|a, b| a[0] <=> b[0]}) + + if edit_id > "" && data[edit_id] + oldcomment = data[edit_id][1] + oldplace = data[edit_id][4] + oldterms = data[edit_id][3] + end + #p data2 + + print'
    ' + + # 選択のreal view + which_value = {2 => "一緒に行こう!", 3 => "乗せて!"} + area_value = {5 => "酒田", 7 => "庄内", 11 => "県内", 13 => "県外"} + terms_value = {17 => "おごって下さい!", 19 => "ガソリン代出して下さい!", 23 => "ジュース一本で!", 29 => "そのほか", 31 => "なし", 37 => "何かおごります!", 41 => "ガソリン代出します!"} + + if !(link == "linked") + for k in data.keys.sort{|x, y| + data[y][0] <=> data[x][0] # 日付の新しい順にソート + } + day = data[k][0] # 第0要素が日付 + msg = data[k][1] # 第1要素がコメント、それぞれ取り出す + which = data[k][2].to_i + trm = data[k][3].to_i + place = data[k][4] + area = data[k][5].to_i + + #printf("%s", area_value[area]) + + #検索エンジン + if main_mode == "on" + t = index_which * index_area * index_terms + #printf("%d", t) + if t == which || t == trm || t == area || t == (which * trm) || t == (which * area) || t == (trm * area) || t == (which * trm * area) || t == 1 + printf('
    ', myname, k) + foo(area_value[area], which_value[which], k, data[k][4], day.strftime("%Y年%m月%d日(%a) %H:%M:%S"), terms_value[trm]) + end + else + printf('
    ', myname, k) + foo(area_value[area], which_value[which], k, data[k][4], day.strftime("%Y年%m月%d日(%a) %H:%M:%S"), terms_value[trm]) + end + end + #大きい掲示板表示(link = linkedであるとき) + else + + # 既存のコメント出力(キー毎) + # 定義環境開始 + + for i in data.keys.sort{|x, y| + data[y][0] <=> data[x][0] # 日付の新しい順にソート + } + day = data[i][0] # 第0要素が日付 + msg = data[i][1] # 第1要素がコメント、それぞれ取り出す + which = data[i][2].to_i + trm = data[i][3].to_i + place = data[i][4] + area = data[i][5].to_i + if mst2_id == i + print "
    \n" + # ID を出力 + printf("
    記載者: %s \n", i) + printf(" %s
    \n", day.strftime("%Y年%m月%d日(%a) %H:%M:%S")) + printf(' +

    乗せたいor乗りたい?: %s

    行き先: %s

    施設名: %s

    条件など: %s

    « コメント »

    %s

    +', CGI.escapeHTML(which_value[which]), CGI.escapeHTML(area_value[area]), CGI.escapeHTML(place), CGI.escapeHTML(terms_value[trm]), CGI.escapeHTML(msg)) + printf(' +[コメントする] +

    +
    + + + +
    + + +
    +
    +', i, i, myname, Time.now.to_i, i, i) + printf(' +[この記事に対するコメントを見る] +
    +', i, i) + # 既存のコメント出力(キー毎) + print "
    \n" # 定義環境開始 + #k = 0 + c2 = 0 + for f in data2.keys.sort{|w, z| + data2[z][0] <=> data2[w][0] + } + day1 = data2[f][0] # 第0要素が日付 + msg1 = data2[f][1] # 第1要素がコメント、それぞれ取り出す + id1 = data2[f][2] + mst_id = data2[f][3] + + if mst_id == i + c2 += 1 + printf("
    記載者: %s", f, id1) + printf(" %s\n", day1.strftime("%Y年%m月%d日(%a) %H:%M:%S")) + if id1 == id + printf('削除
    ', myname, f, mst_id) + end + printf('

    %s

    ', CGI.escapeHTML(msg1)) + print"
    " + end + # k += 1 + end + if c2 == 0 + print'

    この提案に対するコメントはありません。

    ' + end + print'
    ' + end + end + #print"" # 定義環境終了 + end + end # db.transaction 終わり + no = 0 + break + else + no += 1 + end +} + if no > 0 + print' +

    IDまたはパスワードが不正です!
    再度ログイン +して下さい!

    +' + end + + print" +もどる。 +ろぐあうと。 +" + +print " +
    +
    c112124@h.koeki-u.ac.jp
    +
    \n +" diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/db/test.db Binary file archive/program/GiveMeALiftInYourCar/db/test.db has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/group.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/group.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,261 @@ +body { + + background-image:url('nazo6.png'); + background-attachment:fixed; + +} + +h2 { + + padding-left: 1%; + border-left: 10px solid orange; + +} + +h3{ + margin-top: 0.5%; + margin-bottom: 1%; +} + +dd{ + + margin-top: 0; + +} + +pre { + + margin-top: 0; + margin-bottom: 2%; + white-space: pre; /* CSS 2.0 */ + white-space: pre-wrap; /* CSS 2.1 */ + white-space: pre-line; /* CSS 3.0 */ + white-space: -pre-wrap; /* Opera 4-6 */ + white-space: -o-pre-wrap; /* Opera 7 */ + white-space: -moz-pre-wrap; /* Mozilla */ + white-space: -hp-pre-wrap; /* HP Printers */ + word-wrap: break-word; /* IE 5+ */ + +} + +.base{ + + background-color:rgba(255,255,255,0.6); + margin-top: 2%; + margin-right: 4%; + margin-left: 4%; + margin-bottom: 2%; + padding-top: 2%; + padding-right: 3%; + padding-left: 3%; + padding-bottom: 2%; + border: 3px double navy; border-radius: 3em 3em; + +} + +p{ + + margin-top: 1%; + +} + +p.com { + + margin-top: 0; + margin-right: 0; + margin-left: 5%; + margin-bottom: 0; + +} + +.mgn_l_2{ + + margin-left: 2%; + overfowe: hidden; + +} + +.mgn_2{ + + margin-bottom: 2%; + +} + +form { + + wrap: hard; + +} + +/*ソート時のミニ記事の設定*/ +/* +.minibb { + + margin: 2%; + padding-top: 1.5%; + padding-right: 1%; + padding-bottom: 1.5%; + padding-left: 2%; + background-color:rgba(91,202,255,0.7); + #background-color:rgba(255,96,175,0.7); + border: 3px dotted navy; border-radius: 2em 2em; + box-shadow: #444 3px 3px 3px 1px; + position: relative; + z-index: 0; + +} +*/ +.want{ + + margin-left: 2%; + +} + +.have { + + margin-left: 2%; + +} + +.bb { + + margin: 2%; + padding: 2.5%; + background-color:rgba(91,202,255,0.7); + #background-color:rgba(255,96,175,0.7); + border: 3px dotted navy; border-radius: 2em 2em; + box-shadow: #444 3px 3px 3px 1px; + +} + +.white{ + + color: #282828; + +} + +/* +a:link { + + color: #ff60af; + +} + +a:visited { + + color: darkorange; + +} + +a:active { + + color: white; + +} + +a:nover { + + color: #c3c3c3; + +} +*/ + +dl dl div { + + background-color:rgba(255,255,255,0.3); + margin-top: 1.5%; + margin-bottom: 1.5%; + padding-left: 2.5%; + padding-top: 0.5%; + padding-bottom: 0; + border: 2px dashed navy; border-radius: 2em 2em; + box-shadow: #444 3px 3px 3px 1px; + +} + +div.link{ + + margin: 0; + padding-right: 1%; + padding-bottom: 0%; + background-color:rgba(91,202,255,0); + #background-color:rgba(255,96,175,0); + border: 3px none white; border-radius: 2em 2em; + position: relative + z-index: 1; + +} + +div.index { + + margin-top: 0.5ex; + +} + +.mgn_b_1ex{ + + margin-bottom: 1ex; + +} + +div.paka { + + clear: right; + width: 15em; + +} + +form{ + + clear: left; + +} + +.user_name{ + + color: #ff6c16 ; + margin-right: 2ex; + +} + +/*ボックスリンク*/ +.minibb a{ + + display:block; + margin: 2%; + padding-top: 1.5%; + padding-right: 1%; + padding-bottom: 1.5%; + padding-left: 2%; + background-color:rgba(91,202,255,0.7); + color:#000000; + border: 3px dotted navy; border-radius: 2em 2em; + text-decoration:none; + vertical-align:middle; + box-shadow: #444 -3px 3px 3px 1px; + + +} +.minibb a:hover{ + background-color:rgba(255,165,0,0.7); + font-size: 110%; + box-shadow: #444 -3px 7px 3px 1px; + +} + +/*文字を強調*/ +.bold { + + font-weight: bold; + +} + +/* +.object { + + transform: translate(500px,100px); + border:thin solid ; + weight: 20%; + + +*/ diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/group_works.js --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/group_works.js Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,101 @@ +//表示状態切り替え文章の一括非表示化関数 +function initAllPakapaka() { + if(document.getElementsByTagName("div")) { + var divElements = document.getElementsByTagName("div"); + } else { + return; + } + for(var i = 0; i < divElements.length; i++) { + if(divElements[i].className == "pakapaka") { + divElements[i].style.display = "none"; + } + } +} + +function initAllPakapaka2() { + if(document.getElementsByTagName("div")) { + var divElements = document.getElementsByTagName("div"); + } else { + return; + } + for(var i = 0; i < divElements.length; i++) { + if(divElements[i].className == "pakapaka2") { + divElements[i].style.display = "none"; + } + } +} + + +//文章の表示・非表示切り替え用関数 +function pakapaka(id) { + if(document.getElementById) { + var paka = document.getElementById(id); + } else { + return; + } + if(paka.style.display == "block") { + paka.style.display = "none"; + + } else { + paka.style.display = "block"; + } +} + + +//文章の表示・非表示切り替え用関数(ver.index) +function pakapakain(id) { + if(document.getElementById) { + var paka = document.getElementById(id); + } else { + return; + } + if(paka.style.display == "block") { + paka.style.display = "none"; + + } else { + paka.style.display = "block"; + } +} + + +//文章の表示・非表示切り替え用関数 +function pakapaka2() { + if(document.getElementById) { + var pakas = document.getElementById("form"); + var pakam = document.getElementById("index"); + } else { + return; + } + if(pakas.style.display == "block") { + pakas.style.display = "none"; + pakam.style.display = "block"; + + } else { + pakas.style.display = "block"; + pakam.style.display = "none"; + } +} + + +function entryChange1(){ + radio = document.getElementsByName('which') + if(radio[0].checked) { + //フォーム + document.getElementById('have').style.display = ""; + document.getElementById('want').style.display = "none"; + //特典 + document.getElementById('firstNotice').style.display = ""; + }else if(radio[1].checked) { + //フォーム + document.getElementById('have').style.display = "none"; + document.getElementById('want').style.display = ""; + //特典 + document.getElementById('firstNotice').style.display = "none"; + } +} + +//サイトのfont変更 + +//オンロードさせ、リロード時に選択を保持 +window.onload = entryChange1; + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/koeki-network.png Binary file archive/program/GiveMeALiftInYourCar/koeki-network.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/login.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/login.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,34 @@ + + + + +ログイン -koeki network- + + + + +
    +

    300x167(14204bytes)

    +

    ろぐいん

    +
    +
    + +
    +ユーザーID:
    +パスワード:
    + + +
    +
    あかうんとを作る。 チームjapanetのページへ +
    +
    + +
    c112124@h.koeki-u.ac.jp
    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/login_pre.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/login_pre.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,174 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +require 'pg' +require 'cgi' + +c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") +id = c["id"].to_s +pass = c["pass"].to_s +if id == "" && pass == "" +id = c.cookies["id"][0] +pass = c.cookies["pass"][0] +end +str = CGI::rfc1123_date(Time.now + (24 * 60 * 60)) +p_str = CGI::rfc1123_date(Time.now - (24 * 60 * 60)) + +#HTTPヘッダー +out = c["out"].to_s + +if out == "ok" +print("Content-type: text/html; charset=EUC-JP +Set-Cookie: id=#{id}; expires=#{p_str}; +Set-Cookie: pass=#{pass}; expires=#{p_str}; \n\n") +id = "" +pass = "" +else +print("Content-type: text/html; charset=EUC-JP +Set-Cookie: id=#{id}; expires=#{str}; +Set-Cookie: pass=#{pass}; expires=#{str}; \n\n") +end + +vist = c["vsit"] + +table = "group_works_id" +myname = "login.rb" + +pghost = "localhost" +pgport = 5432 +pgoptions = nil +pgtty = nil +dbname = "c112124" +dbuser = "c112124" +passwd = nil + + + +sql = "SELECT * FROM #{table} " + +conn = PGconn.connect(pghost, pgport, pgoptions, pgtty, dbname, dbuser, passwd) +tuple = conn.exec(sql) + +value = [] +id_list = [] +x = 0 + +tuple.each{|line| + value = line.values + id_list[x] = [value[0].to_s, value[1].to_s] + x += 1 +} + +tuple.clear +conn.close + +#p id_list +#p id +#p pass + +no = 0 + +id_list.each{|ids| + if id == ids[0] && pass == ids[1] + printf(' + + + +トップページ -koeki network- + + + + + +
    +

    300x167(14204bytes) +

    + + +

    ようこそ! %sさん

    + + +

    +御利用の際にはKoeki Networkの使い方をよく読んで楽しく、便利なKOEKIライフを! +

    + +
    +乗せてって掲示板 +

    +同乗者を募るカーシェア掲示板です! +

    +グルメデータベース +

    --- β版(スタッフ作業用) ---

    +その他情報報告所 +

    --- 現在調整中(under construction) ---

    +雑談掲示板 +

    --- 現在調整中(under construction) ---

    +
    +', id) +print" +もどる。 +ろぐあうと。 +
    +" + no = 0 + break + else + no += 1 + end +} +if no > 0 + print' + + + +ログイン -koeki network- + + + + +
    +

    300x167(14204bytes) +

    +

    ろぐいん

    +
    +' + if vist == "visted" + print"

    エラー
    パスワードかIDが間違っています!!

    " + end + printf("\n", myname) + printf'

    +ユーザーID:
    +パスワード :
    + + +
    +

    あかうんとを作る。 もどる。 +
    +
    +' +end +print' +
    +
    c112124@h.koeki-u.ac.jp
    +
    + + +' + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/nazo6.png Binary file archive/program/GiveMeALiftInYourCar/nazo6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/new_acount.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/new_acount.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,124 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +require 'sqlite3' +require 'cgi' + +c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") +sub_name = c["sub_name"] +pass = c["pass"] +# Check user visted this page. +visit = c["visit"] + +#HTTPヘッダー +print("Content-type: text/html; charset=EUC-JP \n\n") + +db = SQLite3::Database.new("sql/acounts.sq3") +# sqlite_masterからテーブルを取得 +sql_master = "SELECT name FROM sqlite_master;" +# acounts テーブルの設定 +sql = "CREATE TABLE acounts ( +sub_name TEXT PRIMARY KEY, +name TEXT, +address TEXT, +student_number TEXT, +password TEXT +);" +# sql_masterの実行結果をsqlite_masterに代入 +sqlite_master = db.execute(sql_master) +x = 0 +value_master = Array.new +sqlite_master.each {|line| + value_master[x] = line + x += 1 +} + +# テーブルが存在しなければテーブルを作成 +check = 0 +if !(value_master == []) + for n in value_master[check] + if n == "acounts" + check += 1 + break + end + end +end +if check == 0 + db.execute(sql) +end +# HTML(入力フォーム) +# ヘッダー +print' + + + +アカウント作成 -koeki network- + + + +
    +

    300x167(14204bytes) +

    +

    あかうんと作成

    +
    +' +# 入力データの確認 +if sub_name > "" && pass > "" +# 入力データをデータベースと照合 + sql_check = "select sub_name from acounts where sub_name=?;" + acounts = db.execute(sql_check, sub_name) + if acounts == [] + # アカウントの追加 + sql_acount = "INSERT INTO acounts VALUES(?,'n','n','n',?);" + db.execute(sql_acount, sub_name, pass) + # アカウント作成成功時の画面 + print' +アカウントの作成に成功しました。
    +下のリンクからログインして下さい。

    +ログイン +' + else + # アカウント作成失敗時（ユーザー名重複） + print' +すでに使用されているユーザー名です。
    +下のリンクから再度アカウント作成を行ってください.

    +アカウント作成画面に戻る +' + end +else + if visit > "" + print'

    入力されてない項目があります！

    ' + end +# 入力画面 +print' + +

    + + + +
    ユーザー名:
    パスワード:
    + + +
    +

    +' +end + +db.close + +# フッダー +print' +
    +ログイン画面に戻る
    +
    +
    +
    c112124@h.koeki-u.ac.jp
    +
    + + +' diff -r 2e332b1abf94 -r d2d89793be14 archive/program/GiveMeALiftInYourCar/top.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/GiveMeALiftInYourCar/top.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,110 @@ +#!/usr/bin/env ruby +# coding: euc-jp + +require 'sqlite3' +require 'cgi' + +c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") +sub_name = c["sub_name"] +pass = c["pass"] +visited_login = c["vis_log"] +# cookieの情報を取得 +if sub_name == "" && pass == "" + sub_name = c.cookies["sub_name"][0] + pass = c.cookies["pass"][0] +end + +db = SQLite3::Database.new("sql/acounts.sq3") + +permission_display = "ok" +# ユーザー認証 +if visited_login == "visited_login" + sql_check = "SELECT * FROM acounts WHERE sub_name=? AND password=?;" + checked_acount = db.execute(sql_check, sub_name, pass) + if !(checked_acount == []) + # HTTPヘッダー + str = CGI::rfc1123_date(Time.now + (24 * 60 * 60)) + # cookie発行 + print("Content-type: text/html; charset=EUC-JP +Set-Cookie: sub_name=#{sub_name}; expires=#{str}; +Set-Cookie: pass=#{pass}; expires=#{str}; \n\n") + else + print("Content-type: text/html; charset=EUC-JP \n\n") + permission_display = "no" + end +elsif visited_login == "out" + # cookieの失効 + p_str = CGI::rfc1123_date(Time.now - (24 * 60 * 60)) + print("Content-type: text/html; charset=EUC-JP +Set-Cookie: sub_name=#{sub_name}; expires=#{p_str}; +Set-Cookie: pass=#{pass}; expires=#{p_str}; \n\n") + sub_name = "" + pass = "" +else + print("Content-type: text/html; charset=EUC-JP \n\n") +end +# HTML +# ヘッダー +print' + + + +トップページ -koeki network- + + + + +
    +

    300x167(14204bytes) +

    +' +if permission_display == "ok" + # ログイン成功時のみ表示 + if sub_name > "" && pass > "" + printf(' +

    ようこそ! %sさん

    +', sub_name) + else + print'

    ようこそ! ログインはこちら
    アカウントをお持ちでない方はこちらで作成できます。
    *アカウントを取得し、ログインすることで書込み等の機能を利用できます。

    ' + end + print' + +

    +御利用の際にはKoeki Networkの使い方をよく読んで楽しく、便利なKOEKIライフを! +

    +
    +乗せてって掲示板 +

    +同乗者を募るカーシェア掲示板です! +

    +グルメデータベース +

    --- β版(スタッフ作業用) ---

    +その他情報報告所 +

    --- 現在調整中(under construction) ---

    +雑談掲示板 +

    --- 現在調整中(under construction) ---

    +' +else +print' +
    +

    エラー
    パスワードかIDが間違っています!! +もう一度ログインページからログインして下さい。 +

    +' +end +# フッダ− +print' +
    c112124@h.koeki-u.ac.jp
    +
    +
    +ろぐあうと。 +ほかのアカウントでログイン。 +
    + + +' diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bana1-7.png Binary file archive/program/bana1-7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bana3-17.png Binary file archive/program/bana3-17.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,2 @@ +AddHandler cgi-script .rb +Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/bus.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/bus.css Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/bus.png Binary file archive/program/bus_cgi/bus.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/bus.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/bus.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/daigaku.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/daigaku.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,107 @@ + + + +るんるんバス時刻検索 + + + + + + + +

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

    +
    +

    路線図

    +

    作成中です・・・

    +
    +

    時刻検索

    + +

    駅方面 +かんぽの郷方面

    +

    出発＊ +

    + +

    到着＊ +

    + +

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

    + +

    + + +

    + +
    +

    プログラムに関して

    +

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

    +
    +戻る +SKIP + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/daigaku.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/daigaku.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/home.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/home.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,34 @@ + + + +るんるんバス時刻検索 + + + + + +

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

    +
    +

    路線図

    +
    + +
    +
    +

    路線一覧

    + +
    +
    +

    プログラムに関して

    +

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

    +
    +SKIP + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/kanpo.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/kanpo.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,101 @@ + + + +るんるんバス時刻検索 + + + + + +
    + +

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

    +
    +

    路線図

    +

    作成中です・・・

    +
    +

    時刻検索

    + +

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

    +

    出発＊ +

    + +

    到着＊ +

    + +

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

    + +

    + + +

    +
    +
    +

    プログラムに関して

    +

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

    + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/kominato.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/kominato.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,101 @@ + + + +るんるんバス時刻検索 + + + + + +
    + +

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

    +
    +

    路線図

    +

    作成中です・・・

    +
    +

    時刻検索

    + +

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

    +

    出発＊ +

    + +

    到着＊ +

    + +

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

    + +

    + + +

    +
    +
    +

    プログラムに関して

    +

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

    + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/rosen.obj --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/rosen.obj Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/rosen.png Binary file archive/program/bus_cgi/rosen.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/rosenzu.obj --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/rosenzu.obj Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/rosenzu.png Binary file archive/program/bus_cgi/rosenzu.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/shinai.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/shinai.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,176 @@ + + + +るんるんバス時刻検索 + + + + + +
    + +

    市内循環線バス時刻検索

    +
    +

    路線図

    +

    作成中です・・・

    +
    +

    時刻検索

    + +

    右回り +左回り

    +

    出発＊ +

    + +

    到着＊ +

    + +

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

    + +

    + + +

    +
    +
    +

    プログラムに関して

    +

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

    +
    +戻る +SKIP + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/shinai.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/shinai.rb Mon May 21 10:19:01 2018 +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("

    検索結果

    ") +a = 0 +if which == "t" + while true + if time.to_i < bus[arr][0].to_i + if /(\S\S)(\S\S)/ =~ bus[dep][8] + dhour = $1 + dmin = $2 + end + if /(\S\S)(\S\S)/ =~ bus[arr][8] + ahour = $1 + amin = $2 + end + printf("

    乗車 %s %s:%s\n

    \n",dep ,dhour, dmin) + 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 + printf("

    乗車 %s %s:%s\n

    \n",dep ,dhour, dmin) + 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 + printf("

    乗車 %s %s:%s\n

    \n",dep ,dhour, dmin) + 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 + printf("

    乗車 %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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/yahata.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/yahata.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,100 @@ + + + +るんるんバス時刻検索 + + + + +
    + +

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

    +
    +

    路線図

    +

    作成中です・・・

    +
    +

    時刻検索

    + +

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

    +

    出発＊ +

    + +

    到着＊ +

    + +

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

    + +

    + + +

    +
    +
    +

    プログラムに関して

    +

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

    + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/zikan.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/zikan.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/zikoku1.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/zikoku1.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/bus_cgi/zikoku2.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/bus_cgi/zikoku2.txt Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/button.png Binary file archive/program/button.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/button2.png Binary file archive/program/button2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/cgi/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/cgi/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,4 @@ +Options +ExecCGI +AddType "text/html; charset=utf-8" .rb +AddHandler cgi-script .rb +AddHandler cgi-script .sh diff -r 2e332b1abf94 -r d2d89793be14 archive/program/cgi/bus.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/cgi/bus.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,96 @@ + + + +るんるんバス時刻検索 + + + + + +
    + +

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

    +
    +

    るんるんバス時刻検索

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

    出発＊ +

    + +

    到着＊ +

    + +

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

    + +

    + + +

    +
    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/cgi/bus.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/cgi/bus.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/cgi/env.sh --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/cgi/env.sh Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,3 @@ +#!/bin/sh +echo Content-type: text/plain +env|sort diff -r 2e332b1abf94 -r d2d89793be14 archive/program/cgi/test.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/cgi/test.rb Mon May 21 10:19:01 2018 +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 2e332b1abf94 -r d2d89793be14 archive/program/menubutton.png Binary file archive/program/menubutton.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/program.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/program.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,37 @@ + + + +SKIP - Shonai Koeki Information Project + + + + + +
    +
    + +
    top取材プログラムアンケートきらりびと +
    +
    +
    + +
    +kamon +
    + + +

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

    +

    復刻版

    +
    +

    るんるんバスを利用しよう♪

    +

    CookKitchen

    +

    ぶりーだぁ

    +

    わーやぁ、どの店いー？

    +

    スイーツパラダイス

    +

    最長６時間

    +
    + + + diff -r 2e332b1abf94 -r d2d89793be14 archive/program/program128.png Binary file archive/program/program128.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/program256.png Binary file archive/program/program256.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/program32.png Binary file archive/program/program32.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/program64.png Binary file archive/program/program64.png has changed diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/.htaccess --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/runrun/.htaccess Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,3 @@ +AddHandler cgi-script .rb +Options +ExecCGI +AddType "text/html; charset=utf-8" .html diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/ekime.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/runrun/ekime.txt Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,164 @@ + #勀綏 +育 +-----篁ヤ絽緇医勀糸窪----- +筝肴タ +絽綵号茱 +絮怨 +医紫祉潟帥弱 +医紫祉潟帥弱 +篋九灸梢絮 +帥1筝 +帥2筝 +坂困 +ユ羌欠 +紙 +筝∞晶 +篋九6筝 +篋九3筝 +上潟ャｃ祉潟帥弱 +怨ぇ2筝 +ゅ頑胼霛祉潟帥弱 +羂顔 +延賢 +筝 +篋 +筝 +筝肴タ +筝3筝 +絲睡 +祉潟帥弱 +亥1筝 +腮臀峨 +銀1筝 +絮若 +級≦ +ョ +羈茱水 +級≦ +ョ +羈茱水 +茱翠≦ +ゃ泣若鴻祉潟帥若水 +羈 +掩2筝 + +薈怨 +薈怨遺 +亥 +羌2筝 +羌1筝 +育 +悟 +激寂査祉潟帥弱 +筝紊 +筝肴タ + +--------篁ヤ育紊у膩-------- +育罩ｉ√ +牙腓上 +祉潟帥惹ｉ√ +祉潟帥弱 +筝肴タ +篋 +絮怨綺 +絽銀臥え +蕭荀 +膩銀1筝 +絎羌灸梢絮 +九ｅ医 +紊у +活綽級え +綏ユキｅ医 +榊晶綽蕕紫茵蕕 +純絎 + + +-------篁ヤ育順------- +育罩ｉ√ +綺篋ゃ帥若 +羈 +1筝 +茱翠違潟 +ゃ泣若鴻祉潟帥若水 +筝絎 +筝絎 +筝絎3筝 +筝絎 +井 +井 +井灸梢絮 +羌2筝 +羌遺峨 +筝紊 +ュ嵯祉潟帥弱 +筝 +羌潔絽翫 +絮怨罘 +絮怨綺 +医紫祉潟帥弱 +医紫祉潟帥弱 +篋九4筝 +篋九5筝 +紊紙 +紙 +ユ羌欠 +筝 +綏罘 +3筝 +篆俄鎘 +蕋罍絮怨羂蕕 +活綽級え +紊у() +九ｅ医 +絎羌灸梢絮 +膩銀1筝 +蕭荀 +紊у() +榊晶綽蕕紫茵蕕 +純絎 +九ｅ医 + +-------篁ヤゆ莇膩-------- +ゆ +蕭 +絮怨合√ +銀4筝 +娯腴倶翫 +娯腴倶頑 +銀2筝 +亥2筝 +亥2筝 +ュ1筝 + +篏 +銀1筝 +腮臀峨 +亥1筝 +祉潟帥弱 +絲睡 +筝3筝 +筝肴タ +絽綵号茱 +絮怨肴タ +羝 +ョ合 +医紫祉潟帥弱 +篋九灸梢絮 +帥1筝 +帥2筝 +坂困 +ユ羌欠 +紊у3筝 +紊у4筝 +咲 +絨 +亥 +莇薈 +莇膩 +紊腑 +恰 +罅 +≦臼 +筝 +絮掩ク +羝羈 diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/mituyuki diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/prac.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/runrun/prac.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,3 @@ +body{background-image: url(mizutama4.png); +background-repeat: repeat;} +p{font-size: 120%; font-weight: 700;} diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/rosen.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/runrun/rosen.txt Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,9 @@ +育紊у膩 育 牙腓上 祉潟帥惹ｉ√ 祉潟帥弱 筝肴タ 篋 絮怨綺 絽銀臥え 蕭荀 膩銀1筝 絎羌灸梢絮 九 ｅ医 紊у 活綽級え 綏ユキｅ医 榊晶綽蕕紫茵蕕 純絎 + +育順(紙糸ラ茵) 育罩ｉ√ 綺篋ゃ帥若 羈 1筝 茱翠違潟 ゃ泣若鴻祉潟帥若水 筝絎 筝絎 筝絎3筝 筝絎 井 井 井灸梢絮 羌2筝 羌遺峨 筝紊 筝肴タ ュ嵯祉潟帥弱 羌潔絽翫 絮怨罘 絮怨綺 医紫祉潟帥弱 医紫祉潟帥弱 篋怨4筝 篋怨5筝 紊紙 ユ羌欠 紙 筝 綏罘 3筝 篆俄鎘 蕋罍絮怨羂蕕 活綽級え 紊у鐚器 九ｅ医 絎羌灸梢絮 膩延1筝 蕭荀 紊у鐚器 榊晶綽蕕紫茵蕕 純絎 + +絽緇医勀 筝肴タ 絽綵号茱 絮怨 医紫祉潟帥 ｉ医紫祉潟帥 篋怨灸梢絮 帥1筝 帥2筝 坂困 ユ羌欠 紙 筝∞晶 篋怨6筝 篋怨3筝 上潟ャｉ牙純祉潟帥弱 怨ぇ2筝 ゅ頑胼霛祉潟帥弱 羂顔 延賢 筝 篋 筝 筝3筝 絲睡 祉潟帥弱 亥1筝 腮臀峨 延1筝 絮若 級≦ ョ 羈茱水 茱翠≦ ゃ泣若鴻祉潟帥若水 羈 掩2筝 薈怨 薈怨遺 亥 羌2筝 羌1筝 育悟 激寂査祉潟帥弱 筝紊 筝肴タ + +絽緇医窪 筝 筝紊 激寂査祉潟帥弱 悟 育 羌1筝 羌2筝 亥 薈怨遺 薈怨 羈茱水 茱翠≦ ゃ泣若鴻祉潟帥若水 羈 掩2筝 ョ 級≦ 絮若 延1筝 腮臀峨 亥1筝 祉潟帥弱 絲睡 筝3筝 筝肴タ 篋 筝 延賢 羂顔 ゅ頑胼霛祉潟帥弱 怨ぇ2筝 上潟ャｉ牙純祉潟帥弱 篋怨3筝 篋怨6筝 筝∞晶 紙 ユ羌欠 坂困 帥2筝 帥1筝 篋怨灸梢絮 医紫祉潟帥弱 医紫祉潟帥弱 絮怨 絽綵号茱 筝 + +ゆ莇薈(紙梓脂ラ茵) ゆ 蕭 絮怨合√ 延4筝 娯腴倶翫 娯腴倶頑 延2筝 亥2筝 亥2筝 ュ1筝 篏 延1筝 腮臀峨 亥1筝 祉潟帥弱 絲睡 筝3筝 筝肴タ 絽綵号茱 絮怨 茱炊遣 ョ合 医紫祉潟帥弱 篋怨灸梢絮 帥1筝 帥2筝 坂困 ユ羌欠 紊у3筝 紊у4筝 咲 絨 亥 莇薈 莇膩 紊腑 恰 罅 ≦臼 筝 絮掩ク 羝羈 diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/runrunbus.rb --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/runrun/runrunbus.rb Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,124 @@ +#!/usr/bin/env ruby +# coding: utf-8 +require 'cgi' +require 'kconv' +c = CGI.new(:accept_charset => "UTF-8") + +def zikoku(req, sel, fir, time) + hoge = req + sel + if i = fir[hoge].find { |n| time <= n.to_i } + printf("%4d冴с
    ", i) + i = i.to_i + y = fir[hoge].find { |m| i < m.to_i } + if y == nil + print "篁ラ膺ャс" + elsif y > "" + printf("罨＜%4d冴障
    ", y) + end + print "茗眼障\n" + else + print "膺ヤ札с\n" + end +end + +q = Hash.new() +open("zikokuhyo.txt", "r") do |stst| + while line = stst.gets + line = line.toutf8 + if /^(\S+)\s(.*)/ =~ line + q[$1] = $2.split + end + end +end + +rosen = Hash.new() +open("rosen.txt", "r") do |ro| + while line = ro.gets + line = line.toutf8 + if /^(\S+)\s(.*)/ =~ line + rosen[$1] = $2.split + end + end +end + +ekime = {} +n = 0 +open("ekime.txt", "r") do |yomi| + while line = yomi.gets + if /^(\S+)/ =~ line.toutf8 + ekime[n] = $1 + ekime[n] = ekime[n].toutf8 + n += 1 + end + end +end +n1 = n +n = 0 +sel = ARGV[0] +req = c["start"].toutf8 +sel = c["goal"].toutf8 + +puts"Content-type: text/html; charset=utf-8\n + + +runrun bus" +#puts"

    違

    +puts"\"bus\" +
    +" + +puts"

    箙

    ") +if sel == "" + n = 0 + puts"

    \n" +print"

    \n

    箙:

    " +printf("\n

    ", sel) +print"

    + +" +h = c["hour"].to_i +m1 = c["minute"] +m = c["minute"].to_i +a = h * 100 + m +if req > "" + print "

    \n" + print "

    鴻罎膣∝

    \n" + print "

    #{req}#{sel}拷∵

    \n" + print "

    #{h}:#{m1}鴻筝菴

    \n" + print "

    " + printf("%s

    \n", zikoku(req, sel, q, a)) +end +print "
    TOP
    " +print "荀喝井膣≪" +puts"

    鴻若活；腓

    " +print"
    \n\n" diff -r 2e332b1abf94 -r d2d89793be14 archive/program/runrun/zikokuhyo.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/archive/program/runrun/zikokuhyo.txt Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,6268 @@ +育罩ｉ√ｅぇ絖 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｅ牙腓上 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｆ祉潟帥惹ｉ√ 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｆ祉潟帥弱 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｄ賢肴タ 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｄ 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｅ臼絮綺 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｅ銀臥え 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｉ荀 820 1010 1130 1415 1600 1735 +育罩ｉ√ｇ延1筝 820 1010 1130 1415 1600 1735 +育罩ｉ√ｅ羌灸梢絮 820 1010 1300 1415 1600 1735 +育罩ｉ√ｇ九ｅ医 820 1010 1300 1415 1600 1735 +育罩ｉ√ｅ轡罐ｅ医 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｅ活綽級え 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｅ榊晶綽蕕紫茵蕕 705 820 1010 1130 1300 1415 1600 1735 1920 +育罩ｉ√ｃ純絎 705 820 1010 1130 1300 1415 1600 1735 1920 + +牙腓上祉潟帥惹ｉ√ 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上祉潟帥弱 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上筝肴タ 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上篋 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上絮怨綺 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上絽銀臥え 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上蕭荀 821 1011 1131 1416 1601 1736 +牙腓上膩延鐚筝 821 1011 1131 1416 1601 1736 +牙腓上絎羌灸梢絮 821 1011 1131 1416 1601 1736 +牙腓上九ｅ医 821 1011 1131 1416 1601 1736 +牙腓上紊у 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上活綽級え 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上綏ユキｅ医 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上榊晶綽蕕紫茵蕕 706 821 1011 1131 1301 1416 1601 1736 1921 +牙腓上純絎 706 821 1011 1131 1301 1416 1601 1736 1921 + +祉潟帥惹ｉ√ｆ祉潟帥弱 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｄ賢肴タ 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｄ 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅ臼絮綺 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅ銀臥え 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｉ荀 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｇ延鐚筝 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅ羌灸梢絮 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｇ九ｅ医 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅぇ絖 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅ活綽級え 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅ轡罐ｅ医 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｅ榊晶綽蕕紫茵蕕 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥惹ｉ√ｃ純絎 707 822 1012 1132 1302 1417 1602 1737 + +祉潟帥弱筝肴タ 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱篋 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱絮怨綺 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱絽銀臥え 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱蕭荀 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱膩延鐚筝 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱絎羌灸梢絮 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱九ｅ医 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱紊у 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱活綽級え 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱綏ユキｅ医 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱榊晶綽蕕紫茵蕕 707 822 1012 1132 1302 1417 1602 1737 +祉潟帥弱純絎 707 822 1012 1132 1302 1417 1602 1737 + +筝肴タ篋 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ絮怨綺 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ絽銀臥え 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ蕭荀 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ膩延鐚筝 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ絎羌灸梢絮 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ九ｅ医 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ紊у 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ活綽級え 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ綏ユキｅ医 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ榊晶綽蕕紫茵蕕 710 825 1015 1135 1305 1420 1605 1740 1925 +筝肴タ純絎 710 825 1015 1135 1305 1420 1605 1740 1925 + +篋阪臼絮綺 711 826 1016 1136 1306 1421 1606 1741 1926 +篋阪銀臥え 711 826 1016 1136 1306 1421 1606 1741 1926 +篋咲荀 711 826 1016 1136 1306 1421 1606 1741 1926 +篋榊延鐚筝 711 826 1016 1136 1306 1421 1606 1741 1926 +篋阪羌灸梢絮 711 826 1016 1136 1306 1421 1606 1741 1926 +篋榊九ｅ医 711 826 1016 1136 1306 1421 1606 1741 1926 +篋阪ぇ絖 711 826 1016 1136 1306 1421 1606 1741 1926 +篋阪活綽級え 711 826 1016 1136 1306 1421 1606 1741 1926 +篋阪轡罐ｅ医 711 826 1016 1136 1306 1421 1606 1741 1926 +篋阪榊晶綽蕕紫茵蕕 711 826 1016 1136 1306 1421 1606 1741 1926 +篋冴純絎 711 826 1016 1136 1306 1421 1606 1741 1926 + +絮怨綺絽銀臥え 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺蕭荀 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺膩延鐚筝 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺絎羌灸梢絮 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺九ｅ医 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺紊у 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺活綽級え 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺綏ユキｅ医 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺榊晶綽蕕紫茵蕕 713 828 1018 1138 1308 1423 1608 1743 1928 +絮怨綺純絎 713 828 1018 1138 1308 1423 1608 1743 1928 + +絽銀臥え蕭荀 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え膩延鐚筝 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え絎羌灸梢絮 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え九ｅ医 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え紊у 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え活綽級え 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え綏ユキｅ医 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え榊晶綽蕕紫茵蕕 715 830 1020 1140 1310 1425 1610 1745 1930 +絽銀臥え純絎 715 830 1020 1140 1310 1425 1610 1745 1930 + +蕭荀佂延鐚筝 833 1023 1143 1428 1613 1748 +蕭荀伾羌灸梢絮 833 1023 1143 1428 1613 1748 +蕭荀佂九ｅ医 833 1023 1143 1428 1613 1748 +蕭荀伾ぇ絖 833 1023 1143 1428 1613 1748 +蕭荀伾活綽級え 833 1023 1143 1428 1613 1748 +蕭荀伾轡罐ｅ医 833 1023 1143 1428 1613 1748 +蕭荀伾榊晶綽蕕紫茵蕕 833 1023 1143 1428 1613 1748 +蕭荀伹純絎 833 1023 1143 1428 1613 1748 + +膩延1筝絎羌灸梢絮 834 1024 1429 1614 1749 +膩延1筝九ｅ医 834 1024 1429 1614 1749 +膩延1筝紊у 834 1024 1429 1614 1749 +膩延1筝活綽級え 834 1024 1429 1614 1749 +膩延1筝綏ユキｅ医 834 1024 1429 1614 1749 +膩延1筝榊晶綽蕕紫茵蕕 834 1024 1429 1614 1749 +膩延1筝純絎 834 1024 1429 1614 1749 + +絎羌灸梢絮九ｅ医 834 1024 1429 1614 1749 +絎羌灸梢絮紊у 834 1024 1429 1614 1749 +絎羌灸梢絮活綽級え 834 1024 1429 1614 1749 +絎羌灸梢絮綏ユキｅ医 834 1024 1429 1614 1749 +絎羌灸梢絮榊晶綽蕕紫茵蕕 834 1024 1429 1614 1749 +絎羌灸梢絮純絎 834 1024 1429 1614 1749 + +九ｅ医紊у 835 1025 1430 1615 1750 +九ｅ医活綽級え 835 1025 1430 1615 1750 +九ｅ医綏ユキｅ医 835 1025 1430 1615 1750 +九ｅ医榊晶綽蕕紫茵蕕 835 1025 1430 1615 1750 +九ｅ医純絎 835 1025 1430 1615 1750 + +紊у活綽級え 720 840 1030 1150 1315 1435 1620 1755 1930 +紊у綏ユキｅ医 720 840 1030 1150 1315 1435 1620 1755 1930 +紊у榊晶綽蕕紫茵蕕 720 840 1030 1150 1315 1435 1620 1755 1930 +紊у純絎 720 840 1030 1150 1315 1435 1620 1755 1930 + +活綽級え綏ユキｅ医 721 841 1031 1151 1316 1436 1621 1756 1931 +活綽級え榊晶綽蕕紫茵蕕 721 841 1031 1151 1316 1436 1621 1756 1931 +活綽級え純絎 721 841 1031 1151 1316 1436 1621 1756 1931 + +綏ユキｅ医榊晶綽蕕紫茵蕕 724 844 1034 1154 1319 1439 1624 1759 1934 +綏ユキｅ医純絎 724 844 1034 1154 1319 1439 1624 1759 1934 + +榊晶綽蕕紫茵蕕純絎 725 845 1035 1155 1320 1440 1627 1802 1942 + + + + +純絎水榊晶綽蕕紫茵蕕 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水轡罐ｅ医 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水活綽級え 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水ぇ絖 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎睡九ｅ医 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水羌灸梢絮 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎睡延1筝 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎翠荀 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水銀臥え 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水臼絮綺 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎推 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎推賢 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎炊祉潟帥弱 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎炊祉潟帥惹ｉ√ 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎水牙腓上 740 910 1050 1210 1335 1500 1700 1815 2010 +純絎翠育罩ｉ√ 740 910 1050 1210 1335 1500 1700 1815 2010 + +榊晶綽蕕紫茵蕕綏ユキｅ医 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕活綽級え 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕紊у 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕九ｅ医 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕絎羌灸梢絮 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕膩延1筝 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕蕭荀 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕絽銀臥え 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕絮怨綺 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕篋 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕筝 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕祉潟帥弱 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕祉潟帥惹ｉ√ 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕牙腓上 742 912 1052 1212 1337 1502 1702 1817 2012 +榊晶綽蕕紫茵蕕育罩ｉ√ 742 912 1052 1212 1337 1502 1702 1817 2012 + +綏ユキｅ医活綽級え 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医紊у 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医九ｅ医 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医絎羌灸梢絮 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医膩延1筝 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医蕭荀 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医絽銀臥え 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医絮怨綺 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医篋 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医筝 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医祉潟帥弱 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医祉潟帥惹ｉ√ 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医牙腓上 743 913 1053 1213 1338 1503 1703 1818 2013 +綏ユキｅ医育罩ｉ√ 743 913 1053 1213 1338 1503 1703 1818 2013 + +活綽級え紊у 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え九ｅ医 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え絎羌灸梢絮 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え膩延1筝 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え蕭荀 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え絽銀臥え 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え絮怨綺 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え篋 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え筝 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え祉潟帥弱 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え祉潟帥惹ｉ√ 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え牙腓上 746 916 1056 1216 1341 1506 1706 1821 2016 +活綽級え育罩ｉ√ 746 916 1056 1216 1341 1506 1706 1821 2016 + +紊у九ｅ医 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у絎羌灸梢絮 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у膩延1筝 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у蕭荀 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у絽銀臥え 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у絮怨綺 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у篋 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у筝 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у祉潟帥弱 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у祉潟帥惹ｉ√ 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у牙腓上 747 917 1057 1217 1342 1507 1707 1822 2017 +紊у育罩ｉ√ 747 917 1057 1217 1342 1507 1707 1822 2017 + +九ｅ医絎羌灸梢絮 922 1102 1222 1512 1712 1827 +九ｅ医膩延1筝 922 1102 1222 1512 1712 1827 +九ｅ医蕭荀 922 1102 1222 1512 1712 1827 +九ｅ医絽銀臥え 922 1102 1222 1512 1712 1827 +九ｅ医絮怨綺 922 1102 1222 1512 1712 1827 +九ｅ医篋 922 1102 1222 1512 1712 1827 +九ｅ医筝 922 1102 1222 1512 1712 1827 +九ｅ医祉潟帥弱 922 1102 1222 1512 1712 1827 +九ｅ医祉潟帥惹ｉ√ 922 1102 1222 1512 1712 1827 +九ｅ医牙腓上 922 1102 1222 1512 1712 1827 +九ｅ医育罩ｉ√ 922 1102 1222 1512 1712 1827 + +絎羌灸梢絮膩延1筝 923 1103 1223 1513 1713 1828 +絎羌灸梢絮蕭荀 923 1103 1223 1513 1713 1828 +絎羌灸梢絮絽銀臥え 923 1103 1223 1513 1713 1828 +絎羌灸梢絮絮怨綺 923 1103 1223 1513 1713 1828 +絎羌灸梢絮篋 923 1103 1223 1513 1713 1828 +絎羌灸梢絮筝 923 1103 1223 1513 1713 1828 +絎羌灸梢絮祉潟帥弱 923 1103 1223 1513 1713 1828 +絎羌灸梢絮祉潟帥惹ｉ√ 923 1103 1223 1513 1713 1828 +絎羌灸梢絮牙腓上 923 1103 1223 1513 1713 1828 +絎羌灸梢絮育罩ｉ√ 923 1103 1223 1513 1713 1828 + +膩延1筝蕭荀 923 1103 1223 1513 1713 1828 +膩延1筝絽銀臥え 923 1103 1223 1513 1713 1828 +膩延1筝絮怨綺 923 1103 1223 1513 1713 1828 +膩延1筝篋 923 1103 1223 1513 1713 1828 +膩延1筝筝 923 1103 1223 1513 1713 1828 +膩延1筝祉潟帥弱 923 1103 1223 1513 1713 1828 +膩延1筝祉潟帥惹ｉ√ 923 1103 1223 1513 1713 1828 +膩延1筝牙腓上 923 1103 1223 1513 1713 1828 +膩延1筝育罩ｉ√ 923 1103 1223 1513 1713 1828 + +蕭荀伾銀臥え 924 1104 1224 1514 1714 1829 +蕭荀伾臼絮綺 924 1104 1224 1514 1714 1829 +蕭荀伻 924 1104 1224 1514 1714 1829 +蕭荀伻賢 924 1104 1224 1514 1714 1829 +蕭荀佀祉潟帥弱 924 1104 1224 1514 1714 1829 +蕭荀佀祉潟帥惹ｉ√ 924 1104 1224 1514 1714 1829 +蕭荀伾牙腓上 924 1104 1224 1514 1714 1829 +蕭荀佉育罩ｉ√ 924 1104 1224 1514 1714 1829 + +絽銀臥え絮怨綺 752 927 1107 1227 1347 1517 1717 1832 2022 +絽銀臥え篋 752 927 1107 1227 1347 1517 1717 1832 2022 +絽銀臥え筝 752 927 1107 1227 1347 1517 1717 1832 2022 +絽銀臥え祉潟帥弱 752 927 1107 1227 1347 1517 1717 1832 2022 +絽銀臥え祉潟帥惹ｉ√ 752 927 1107 1227 1347 1517 1717 1832 2022 +絽銀臥え牙腓上 752 927 1107 1227 1347 1517 1717 1832 2022 +絽銀臥え育罩ｉ√ 752 927 1107 1227 1347 1517 1717 1832 2022 + +絮怨綺篋 754 929 1109 1229 1349 1519 1719 1834 2024 +絮怨綺筝 754 929 1109 1229 1349 1519 1719 1834 2024 +絮怨綺祉潟帥弱 754 929 1109 1229 1349 1519 1719 1834 2024 +絮怨綺祉潟帥惹ｉ√ 754 929 1109 1229 1349 1519 1719 1834 2024 +絮怨綺牙腓上 754 929 1109 1229 1349 1519 1719 1834 2024 +絮怨綺育罩ｉ√ 754 929 1109 1229 1349 1519 1719 1834 2024 + +篋坂賢 756 931 1111 1231 1351 1521 1721 1836 2026 +篋堺祉潟帥弱 756 931 1111 1231 1351 1521 1721 1836 2026 +篋堺祉潟帥惹ｉ√ 756 931 1111 1231 1351 1521 1721 1836 2026 +篋阪牙腓上 756 931 1111 1231 1351 1521 1721 1836 2026 +篋咲育罩ｉ√ 756 931 1111 1231 1351 1521 1721 1836 2026 + +筝堺祉潟帥弱 757 932 1112 1232 1352 1522 1722 1837 2027 +筝堺祉潟帥惹ｉ√ 757 932 1112 1232 1352 1522 1722 1837 2027 +筝阪牙腓上 757 932 1112 1232 1352 1522 1722 1837 2027 +筝咲育罩ｉ√ 757 932 1112 1232 1352 1522 1722 1837 2027 + +祉潟帥弱祉潟帥惹ｉ√ 800 935 1115 1235 1355 1525 1725 1840 2030 +祉潟帥弱牙腓上 800 935 1115 1235 1355 1525 1725 1840 2030 +祉潟帥弱育罩ｉ√ 800 935 1115 1235 1355 1525 1725 1840 2030 + +祉潟帥惹ｉ√ｅ牙腓上 800 935 1115 1235 1355 1525 1725 1840 2030 +祉潟帥惹ｉ√ｉ育罩ｉ√ 800 935 1115 1235 1355 1525 1725 1840 2030 + +牙腓上育罩ｉ√ 801 936 1116 1236 1356 1526 1726 1841 2031 + + + + +筝肴タ絽綵号茱 800 930 1100 1330 1500 1630 1800 +筝肴タ絮怨 800 930 1100 1330 1500 1630 1800 +筝肴タ医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 +筝肴タ医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 +筝肴タ篋九灸梢絮 800 930 1100 1330 1500 1630 1800 +筝肴タ帥1筝 800 930 1100 1330 1500 1630 1800 +筝肴タ帥2筝 800 930 1100 1330 1500 1630 1800 +筝肴タ坂困 800 930 1100 1330 1500 1630 1800 +筝肴タユ羌欠 800 930 1100 1330 1500 1630 1800 +筝肴タ紙 800 930 1100 1330 1500 1630 1800 +筝肴タ筝∞晶 800 930 1100 1330 1500 1630 1800 +筝肴タ篋九6筝 800 930 1100 1330 1500 1630 1800 +筝肴タ篋九3筝 800 930 1100 1330 1500 1630 1800 +筝肴タ上潟ャｉ牙純祉潟帥弱 800 930 1100 1330 1500 1630 1800 +筝肴タ怨ぇ2筝 800 930 1100 1330 1500 1630 1800 +筝肴タゅ頑胼霛祉潟帥弱 800 930 1100 1330 1500 1630 1800 +筝肴タ羂顔 800 930 1100 1330 1500 1630 1800 +筝肴タ延賢 800 930 1100 1330 1500 1630 1800 +筝肴タ筝 800 930 1100 1330 1500 1630 1800 +筝肴タ篋 800 930 1100 1330 1500 1630 1800 +筝肴タ筝 800 930 1100 1330 1500 1630 1800 +筝肴タ筝3筝 800 930 1100 1330 1500 1630 1800 +筝肴タ絲睡 800 930 1100 1330 1500 1630 1800 +筝肴タ祉潟帥弱 800 930 1100 1330 1500 1630 1800 +筝肴タ亥1筝 800 930 1100 1330 1500 1630 1800 +筝肴タ腮臀峨 800 930 1100 1330 1500 1630 1800 +筝肴タ筝1筝 800 930 1100 1330 1500 1630 1800 +筝肴タ絮若 800 930 1100 1330 1500 1630 1800 +筝肴タ級≦ 800 930 1100 1330 1500 1630 1800 +筝肴タョ 800 930 1100 1330 1500 1630 1800 +筝肴タ羈茱水 800 930 1100 1330 1500 1630 1800 +絽綵号茱粋タ蕭≦ 800 930 1100 1330 1500 1630 1800 +絽綵号茱帥ゃ泣若鴻祉潟帥若水 800 930 1100 1330 1500 1630 1800 +絽綵号茱炊 800 930 1100 1330 1500 1630 1800 +筝肴タ掩2筝 800 930 1100 1330 1500 1630 1800 +筝肴タ 800 930 1100 1330 1500 1630 1800 +筝肴タ薈怨 800 930 1100 1330 1500 1630 1800 +筝肴タ薈怨遺 800 930 1100 1330 1500 1630 1800 +筝肴タ亥 800 930 1100 1330 1500 1630 1800 +筝肴タ羌2筝 800 930 1100 1330 1500 1630 1800 +筝肴タ羌1筝 800 930 1100 1330 1500 1630 1800 +筝肴タ育 800 930 1100 1330 1500 1630 1800 +筝肴タ悟 800 930 1100 1330 1500 1630 1800 +筝肴タ激寂査祉潟帥弱 800 930 1100 1330 1500 1630 1800 +筝肴タ筝紊 800 930 1100 1330 1500 1630 1800 +筝肴タ筝肴タ 800 930 1100 1330 1500 1630 1800 + +絽綵号茱翠医紫絮怨 801 931 1101 1331 1501 1631 1801 +絽綵号茱翠医紫祉潟帥弱 801 931 1101 1331 1501 1631 1801 +絽綵号茱翠医紫祉潟帥弱 801 931 1101 1331 1501 1631 1801 +絽綵号茱推九灸梢絮 801 931 1101 1331 1501 1631 1801 +絽綵号茱帥帥1筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱帥帥2筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱帥坂困 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊ユ羌欠 801 931 1101 1331 1501 1631 1801 +絽綵号茱帥紙 801 931 1101 1331 1501 1631 1801 +絽綵号茱推検臂順 801 931 1101 1331 1501 1631 1801 +絽綵号茱推九6筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱推九3筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊上潟ャｉ牙純祉潟帥弱 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊怨ぇ2筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱水ゅ頑胼霛祉潟帥弱 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊梓 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊延賢 801 931 1101 1331 1501 1631 1801 +絽綵号茱推 801 931 1101 1331 1501 1631 1801 +絽綵号茱推 801 931 1101 1331 1501 1631 1801 +絽綵号茱推賢 801 931 1101 1331 1501 1631 1801 +絽綵号茱推賢3筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱水睡 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊祉潟帥弱 801 931 1101 1331 1501 1631 1801 +絽綵号茱水亥1筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱睡臀峨 801 931 1101 1331 1501 1631 1801 +絽綵号茱水筝1筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱水若 801 931 1101 1331 1501 1631 1801 +絽綵号茱水級≦ 801 931 1101 1331 1501 1631 1801 +絽綵号茱水ョ 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊茱水 801 931 1101 1331 1501 1631 1801 +絽綵号茱粋タ蕭≦ 801 931 1101 1331 1501 1631 1801 +絽綵号茱帥ゃ泣若鴻祉潟帥若水 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊掩2筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱水 801 931 1101 1331 1501 1631 1801 +絽綵号茱翠怨 801 931 1101 1331 1501 1631 1801 +絽綵号茱翠怨遺 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊亥 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊2筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱炊1筝 801 931 1101 1331 1501 1631 1801 +絽綵号茱翠育 801 931 1101 1331 1501 1631 1801 +絽綵号茱睡悟 801 931 1101 1331 1501 1631 1801 +絽綵号茱帥激寂査祉潟帥弱 801 931 1101 1331 1501 1631 1801 +絽綵号茱推賢紊 801 931 1101 1331 1501 1631 1801 +絽綵号茱推賢肴タ 801 931 1101 1331 1501 1631 1801 + +絮怨咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 +絮怨咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 +絮怨坂九灸梢絮 803 933 1103 1333 1503 1633 1803 +絮怨冴帥1筝 803 933 1103 1333 1503 1633 1803 +絮怨冴帥2筝 803 933 1103 1333 1503 1633 1803 +絮怨冴坂困 803 933 1103 1333 1503 1633 1803 +絮怨堺ユ羌欠 803 933 1103 1333 1503 1633 1803 +絮怨冴紙 803 933 1103 1333 1503 1633 1803 +絮怨坂検臂順 803 933 1103 1333 1503 1633 1803 +絮怨坂九6筝 803 933 1103 1333 1503 1633 1803 +絮怨坂九3筝 803 933 1103 1333 1503 1633 1803 +絮怨堺上潟ャｉ牙純祉潟帥弱 803 933 1103 1333 1503 1633 1803 +絮怨堺怨ぇ2筝 803 933 1103 1333 1503 1633 1803 +絮怨阪ゅ頑胼霛祉潟帥弱 803 933 1103 1333 1503 1633 1803 +絮怨堺梓 803 933 1103 1333 1503 1633 1803 +絮怨堺延賢 803 933 1103 1333 1503 1633 1803 +絮怨坂 803 933 1103 1333 1503 1633 1803 +絮怨坂 803 933 1103 1333 1503 1633 1803 +絮怨坂賢 803 933 1103 1333 1503 1633 1803 +絮怨坂賢3筝 803 933 1103 1333 1503 1633 1803 +絮怨阪睡 803 933 1103 1333 1503 1633 1803 +絮怨堺祉潟帥弱 803 933 1103 1333 1503 1633 1803 +絮怨阪亥1筝 803 933 1103 1333 1503 1633 1803 +絮怨榊臀峨 803 933 1103 1333 1503 1633 1803 +絮怨阪筝1筝 803 933 1103 1333 1503 1633 1803 +絮怨阪若 803 933 1103 1333 1503 1633 1803 +絮怨阪級≦ 803 933 1103 1333 1503 1633 1803 +絮怨阪ョ 803 933 1103 1333 1503 1633 1803 +絮怨堺茱水 803 933 1103 1333 1503 1633 1803 +絮怨肴タ蕭≦ 803 933 1103 1333 1503 1633 1803 +絮怨冴ゃ泣若鴻祉潟帥若水 803 933 1103 1333 1503 1633 1803 +絮怨堺 803 933 1103 1333 1503 1633 1803 +絮怨堺掩2筝 803 933 1103 1333 1503 1633 1803 +絮怨阪 803 933 1103 1333 1503 1633 1803 +絮怨咲怨 803 933 1103 1333 1503 1633 1803 +絮怨咲怨遺 803 933 1103 1333 1503 1633 1803 +絮怨堺亥 803 933 1103 1333 1503 1633 1803 +絮怨堺2筝 803 933 1103 1333 1503 1633 1803 +絮怨堺1筝 803 933 1103 1333 1503 1633 1803 +絮怨咲育 803 933 1103 1333 1503 1633 1803 +絮怨榊悟 803 933 1103 1333 1503 1633 1803 +絮怨冴激寂査祉潟帥弱 803 933 1103 1333 1503 1633 1803 +絮怨坂賢紊 803 933 1103 1333 1503 1633 1803 +絮怨坂賢肴タ 803 933 1103 1333 1503 1633 1803 + +医紫祉潟帥弱ｉ医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｉ医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ九灸梢絮 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｃ帥1筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｃ帥2筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｃ坂困 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆユ羌欠 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｃ紙 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ検臂順 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ九6筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ九3筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ上潟ャｉ牙純祉潟帥弱 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ怨ぇ2筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅゅ頑胼霛祉潟帥弱 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ梓 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ延賢 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ賢 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ賢3筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅ睡 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ祉潟帥弱 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅ亥1筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｇ臀峨 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅ筝1筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅ若 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅ級≦ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅョ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ茱水 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｈタ蕭≦ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｃゃ泣若鴻祉潟帥若水 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ掩2筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｅ 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｉ怨 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｉ怨遺 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ亥 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ2筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｆ1筝 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｉ育 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｇ悟 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｃ激寂査祉潟帥弱 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ賢紊 805 935 1105 1335 1505 1635 1805 +医紫祉潟帥弱ｄ賢肴タ 805 935 1105 1335 1505 1635 1805 + +医紫祉潟帥弱篋九灸梢絮 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱帥1筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱帥2筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱坂困 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱ユ羌欠 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱紙 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝∞晶 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱篋九6筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱篋九3筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱上潟ャｉ牙純祉潟帥弱 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱怨ぇ2筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱ゅ頑胼霛祉潟帥弱 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱羂顔 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱延賢 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱篋 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝3筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱絲睡 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱祉潟帥弱 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱亥1筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱腮臀峨 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝1筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱絮若 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱級≦ 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱ョ 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱羈茱水 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱茱翠≦ 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱ゃ泣若鴻祉潟帥若水 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱羈 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱掩2筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱薈怨 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱薈怨遺 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱亥 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱羌2筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱羌1筝 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱育 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱悟 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱激寂査祉潟帥弱 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝紊 806 936 1106 1336 1506 1636 1806 +医紫祉潟帥弱筝肴タ 806 936 1106 1336 1506 1636 1806 + +篋九灸梢絮帥1筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮帥2筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮坂困 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮ユ羌欠 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮紙 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝∞晶 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮篋九6筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮篋九3筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮上潟ャｉ牙純祉潟帥弱 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮怨ぇ2筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮ゅ頑胼霛祉潟帥弱 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮羂顔 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮延賢 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮篋 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝3筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮絲睡 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮祉潟帥弱 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮亥1筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮腮臀峨 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝1筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮絮若 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮級≦ 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮ョ 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮羈茱水 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮茱翠≦ 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮ゃ泣若鴻祉潟帥若水 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮羈 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮掩2筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮薈怨 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮薈怨遺 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮亥 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮羌2筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮羌1筝 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮育 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮悟 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮激寂査祉潟帥弱 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝紊 807 937 1107 1337 1507 1637 1807 +篋九灸梢絮筝肴タ 807 937 1107 1337 1507 1637 1807 + +帥1筝帥2筝 809 939 1109 1339 1509 1639 1809 +帥1筝坂困 809 939 1109 1339 1509 1639 1809 +帥1筝ユ羌欠 809 939 1109 1339 1509 1639 1809 +帥1筝紙 809 939 1109 1339 1509 1639 1809 +帥1筝筝∞晶 809 939 1109 1339 1509 1639 1809 +帥1筝篋九6筝 809 939 1109 1339 1509 1639 1809 +帥1筝篋九3筝 809 939 1109 1339 1509 1639 1809 +帥1筝上潟ャｉ牙純祉潟帥弱 809 939 1109 1339 1509 1639 1809 +帥1筝怨ぇ2筝 809 939 1109 1339 1509 1639 1809 +帥1筝ゅ頑胼霛祉潟帥弱 809 939 1109 1339 1509 1639 1809 +帥1筝羂顔 809 939 1109 1339 1509 1639 1809 +帥1筝延賢 809 939 1109 1339 1509 1639 1809 +帥1筝筝 809 939 1109 1339 1509 1639 1809 +帥1筝篋 809 939 1109 1339 1509 1639 1809 +帥1筝筝 809 939 1109 1339 1509 1639 1809 +帥1筝筝3筝 809 939 1109 1339 1509 1639 1809 +帥1筝絲睡 809 939 1109 1339 1509 1639 1809 +帥1筝祉潟帥弱 809 939 1109 1339 1509 1639 1809 +帥1筝亥1筝 809 939 1109 1339 1509 1639 1809 +帥1筝腮臀峨 809 939 1109 1339 1509 1639 1809 +帥1筝筝1筝 809 939 1109 1339 1509 1639 1809 +帥1筝絮若 809 939 1109 1339 1509 1639 1809 +帥1筝級≦ 809 939 1109 1339 1509 1639 1809 +帥1筝ョ 809 939 1109 1339 1509 1639 1809 +帥1筝羈茱水 809 939 1109 1339 1509 1639 1809 +帥1筝茱翠≦ 809 939 1109 1339 1509 1639 1809 +帥1筝ゃ泣若鴻祉潟帥若水 809 939 1109 1339 1509 1639 1809 +帥1筝羈 809 939 1109 1339 1509 1639 1809 +帥1筝掩2筝 809 939 1109 1339 1509 1639 1809 +帥1筝 809 939 1109 1339 1509 1639 1809 +帥1筝薈怨 809 939 1109 1339 1509 1639 1809 +帥1筝薈怨遺 809 939 1109 1339 1509 1639 1809 +帥1筝亥 809 939 1109 1339 1509 1639 1809 +帥1筝羌2筝 809 939 1109 1339 1509 1639 1809 +帥1筝羌1筝 809 939 1109 1339 1509 1639 1809 +帥1筝育 809 939 1109 1339 1509 1639 1809 +帥1筝悟 809 939 1109 1339 1509 1639 1809 +帥1筝激寂査祉潟帥弱 809 939 1109 1339 1509 1639 1809 +帥1筝筝紊 809 939 1109 1339 1509 1639 1809 +帥1筝筝肴タ 809 939 1109 1339 1509 1639 1809 + +帥2筝坂困 810 940 1110 1340 1510 1640 1810 +帥2筝ユ羌欠 810 940 1110 1340 1510 1640 1810 +帥2筝紙 810 940 1110 1340 1510 1640 1810 +帥2筝筝∞晶 810 940 1110 1340 1510 1640 1810 +帥2筝篋九6筝 810 940 1110 1340 1510 1640 1810 +帥2筝篋九3筝 810 940 1110 1340 1510 1640 1810 +帥2筝上潟ャｉ牙純祉潟帥弱 810 940 1110 1340 1510 1640 1810 +帥2筝怨ぇ2筝 810 940 1110 1340 1510 1640 1810 +帥2筝ゅ頑胼霛祉潟帥弱 810 940 1110 1340 1510 1640 1810 +帥2筝羂顔 810 940 1110 1340 1510 1640 1810 +帥2筝延賢 810 940 1110 1340 1510 1640 1810 +帥2筝筝 810 940 1110 1340 1510 1640 1810 +帥2筝篋 810 940 1110 1340 1510 1640 1810 +帥2筝筝 810 940 1110 1340 1510 1640 1810 +帥2筝筝3筝 810 940 1110 1340 1510 1640 1810 +帥2筝絲睡 810 940 1110 1340 1510 1640 1810 +帥2筝祉潟帥弱 810 940 1110 1340 1510 1640 1810 +帥2筝亥1筝 810 940 1110 1340 1510 1640 1810 +帥2筝腮臀峨 810 940 1110 1340 1510 1640 1810 +帥2筝筝1筝 810 940 1110 1340 1510 1640 1810 +帥2筝絮若 810 940 1110 1340 1510 1640 1810 +帥2筝級≦ 810 940 1110 1340 1510 1640 1810 +帥2筝ョ 810 940 1110 1340 1510 1640 1810 +帥2筝羈茱水 810 940 1110 1340 1510 1640 1810 +帥2筝茱翠≦ 810 940 1110 1340 1510 1640 1810 +帥2筝ゃ泣若鴻祉潟帥若水 810 940 1110 1340 1510 1640 1810 +帥2筝羈 810 940 1110 1340 1510 1640 1810 +帥2筝掩2筝 810 940 1110 1340 1510 1640 1810 +帥2筝 810 940 1110 1340 1510 1640 1810 +帥2筝薈怨 810 940 1110 1340 1510 1640 1810 +帥2筝薈怨遺 810 940 1110 1340 1510 1640 1810 +帥2筝亥 810 940 1110 1340 1510 1640 1810 +帥2筝羌2筝 810 940 1110 1340 1510 1640 1810 +帥2筝羌1筝 810 940 1110 1340 1510 1640 1810 +帥2筝育 810 940 1110 1340 1510 1640 1810 +帥2筝悟 810 940 1110 1340 1510 1640 1810 +帥2筝激寂査祉潟帥弱 810 940 1110 1340 1510 1640 1810 +帥2筝筝紊 810 940 1110 1340 1510 1640 1810 +帥2筝筝肴タ 810 940 1110 1340 1510 1640 1810 + +坂困ユ羌欠 812 942 1112 1342 1512 1642 1812 +坂困紙 812 942 1112 1342 1512 1642 1812 +坂困筝∞晶 812 942 1112 1342 1512 1642 1812 +坂困篋九6筝 812 942 1112 1342 1512 1642 1812 +坂困篋九3筝 812 942 1112 1342 1512 1642 1812 +坂困上潟ャｉ牙純祉潟帥弱 812 942 1112 1342 1512 1642 1812 +坂困怨ぇ2筝 812 942 1112 1342 1512 1642 1812 +坂困ゅ頑胼霛祉潟帥弱 812 942 1112 1342 1512 1642 1812 +坂困羂顔 812 942 1112 1342 1512 1642 1812 +坂困延賢 812 942 1112 1342 1512 1642 1812 +坂困筝 812 942 1112 1342 1512 1642 1812 +坂困篋 812 942 1112 1342 1512 1642 1812 +坂困筝 812 942 1112 1342 1512 1642 1812 +坂困筝3筝 812 942 1112 1342 1512 1642 1812 +坂困絲睡 812 942 1112 1342 1512 1642 1812 +坂困祉潟帥弱 812 942 1112 1342 1512 1642 1812 +坂困亥1筝 812 942 1112 1342 1512 1642 1812 +坂困腮臀峨 812 942 1112 1342 1512 1642 1812 +坂困筝1筝 812 942 1112 1342 1512 1642 1812 +坂困絮若 812 942 1112 1342 1512 1642 1812 +坂困級≦ 812 942 1112 1342 1512 1642 1812 +坂困ョ 812 942 1112 1342 1512 1642 1812 +坂困羈茱水 812 942 1112 1342 1512 1642 1812 +坂困茱翠≦ 812 942 1112 1342 1512 1642 1812 +坂困ゃ泣若鴻祉潟帥若水 812 942 1112 1342 1512 1642 1812 +坂困羈 812 942 1112 1342 1512 1642 1812 +坂困掩2筝 812 942 1112 1342 1512 1642 1812 +坂困 812 942 1112 1342 1512 1642 1812 +坂困薈怨 812 942 1112 1342 1512 1642 1812 +坂困薈怨遺 812 942 1112 1342 1512 1642 1812 +坂困亥 812 942 1112 1342 1512 1642 1812 +坂困羌2筝 812 942 1112 1342 1512 1642 1812 +坂困羌1筝 812 942 1112 1342 1512 1642 1812 +坂困育 812 942 1112 1342 1512 1642 1812 +坂困悟 812 942 1112 1342 1512 1642 1812 +坂困激寂査祉潟帥弱 812 942 1112 1342 1512 1642 1812 +坂困筝紊 812 942 1112 1342 1512 1642 1812 +坂困筝肴タ 812 942 1112 1342 1512 1642 1812 + +ユ羌欠≪紙 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫検臂順 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫九6筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫九3筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽上潟ャｉ牙純祉潟帥弱 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽怨ぇ2筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠√ゅ頑胼霛祉潟帥弱 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽梓 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽延賢 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫ 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫ 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫賢 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫賢3筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠√睡 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽祉潟帥弱 815 945 1115 1345 1515 1645 1815 +ユ羌欠√亥1筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠∝臀峨 815 945 1115 1345 1515 1645 1815 +ユ羌欠√筝1筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠√若 815 945 1115 1345 1515 1645 1815 +ユ羌欠√級≦ 815 945 1115 1345 1515 1645 1815 +ユ羌欠√ョ 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽茱水 815 945 1115 1345 1515 1645 1815 +ユ羌欠∵タ蕭≦ 815 945 1115 1345 1515 1645 1815 +ユ羌欠≪ゃ泣若鴻祉潟帥若水 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽ 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽掩2筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠√ 815 945 1115 1345 1515 1645 1815 +ユ羌欠∫怨 815 945 1115 1345 1515 1645 1815 +ユ羌欠∫怨遺 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽亥 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽2筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠∽1筝 815 945 1115 1345 1515 1645 1815 +ユ羌欠∫育 815 945 1115 1345 1515 1645 1815 +ユ羌欠∝悟 815 945 1115 1345 1515 1645 1815 +ユ羌欠≪激寂査祉潟帥弱 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫賢紊 815 945 1115 1345 1515 1645 1815 +ユ羌欠≫賢肴タ 815 945 1115 1345 1515 1645 1815 + +紙筝∞晶 817 947 1117 1347 1517 1647 1817 +紙篋九6筝 817 947 1117 1347 1517 1647 1817 +紙篋九3筝 817 947 1117 1347 1517 1647 1817 +紙上潟ャｉ牙純祉潟帥弱 817 947 1117 1347 1517 1647 1817 +紙怨ぇ2筝 817 947 1117 1347 1517 1647 1817 +紙ゅ頑胼霛祉潟帥弱 817 947 1117 1347 1517 1647 1817 +紙羂顔 817 947 1117 1347 1517 1647 1817 +紙延賢 817 947 1117 1347 1517 1647 1817 +紙筝 817 947 1117 1347 1517 1647 1817 +紙篋 817 947 1117 1347 1517 1647 1817 +紙筝 817 947 1117 1347 1517 1647 1817 +紙筝3筝 817 947 1117 1347 1517 1647 1817 +紙絲睡 817 947 1117 1347 1517 1647 1817 +紙祉潟帥弱 817 947 1117 1347 1517 1647 1817 +紙亥1筝 817 947 1117 1347 1517 1647 1817 +紙腮臀峨 817 947 1117 1347 1517 1647 1817 +紙筝1筝 817 947 1117 1347 1517 1647 1817 +紙絮若 817 947 1117 1347 1517 1647 1817 +紙級≦ 817 947 1117 1347 1517 1647 1817 +紙ョ 817 947 1117 1347 1517 1647 1817 +紙羈茱水 817 947 1117 1347 1517 1647 1817 +紙茱翠≦ 817 947 1117 1347 1517 1647 1817 +紙ゃ泣若鴻祉潟帥若水 817 947 1117 1347 1517 1647 1817 +紙羈 817 947 1117 1347 1517 1647 1817 +紙掩2筝 817 947 1117 1347 1517 1647 1817 +紙 817 947 1117 1347 1517 1647 1817 +紙薈怨 817 947 1117 1347 1517 1647 1817 +紙薈怨遺 817 947 1117 1347 1517 1647 1817 +紙亥 817 947 1117 1347 1517 1647 1817 +紙羌2筝 817 947 1117 1347 1517 1647 1817 +紙羌1筝 817 947 1117 1347 1517 1647 1817 +紙育 817 947 1117 1347 1517 1647 1817 +紙悟 817 947 1117 1347 1517 1647 1817 +紙激寂査祉潟帥弱 817 947 1117 1347 1517 1647 1817 +紙筝紊 817 947 1117 1347 1517 1647 1817 +紙筝肴タ 817 947 1117 1347 1517 1647 1817 + +筝∞晶坂九6筝 819 949 1119 1349 1519 1649 1819 +筝∞晶坂九3筝 819 949 1119 1349 1519 1649 1819 +筝∞晶堺上潟ャｉ牙純祉潟帥弱 819 949 1119 1349 1519 1649 1819 +筝∞晶堺怨ぇ2筝 819 949 1119 1349 1519 1649 1819 +筝∞晶阪ゅ頑胼霛祉潟帥弱 819 949 1119 1349 1519 1649 1819 +筝∞晶堺梓 819 949 1119 1349 1519 1649 1819 +筝∞晶堺延賢 819 949 1119 1349 1519 1649 1819 +筝∞晶坂 819 949 1119 1349 1519 1649 1819 +筝∞晶坂 819 949 1119 1349 1519 1649 1819 +筝∞晶坂賢 819 949 1119 1349 1519 1649 1819 +筝∞晶坂賢3筝 819 949 1119 1349 1519 1649 1819 +筝∞晶阪睡 819 949 1119 1349 1519 1649 1819 +筝∞晶堺祉潟帥弱 819 949 1119 1349 1519 1649 1819 +筝∞晶阪亥1筝 819 949 1119 1349 1519 1649 1819 +筝∞晶榊臀峨 819 949 1119 1349 1519 1649 1819 +筝∞晶阪筝1筝 819 949 1119 1349 1519 1649 1819 +筝∞晶阪若 819 949 1119 1349 1519 1649 1819 +筝∞晶阪級≦ 819 949 1119 1349 1519 1649 1819 +筝∞晶阪ョ 819 949 1119 1349 1519 1649 1819 +筝∞晶堺茱水 819 949 1119 1349 1519 1649 1819 +筝∞晶肴タ蕭≦ 819 949 1119 1349 1519 1649 1819 +筝∞晶冴ゃ泣若鴻祉潟帥若水 819 949 1119 1349 1519 1649 1819 +筝∞晶堺 819 949 1119 1349 1519 1649 1819 +筝∞晶堺掩2筝 819 949 1119 1349 1519 1649 1819 +筝∞晶阪 819 949 1119 1349 1519 1649 1819 +筝∞晶咲怨 819 949 1119 1349 1519 1649 1819 +筝∞晶咲怨遺 819 949 1119 1349 1519 1649 1819 +筝∞晶堺亥 819 949 1119 1349 1519 1649 1819 +筝∞晶堺2筝 819 949 1119 1349 1519 1649 1819 +筝∞晶堺1筝 819 949 1119 1349 1519 1649 1819 +筝∞晶咲育 819 949 1119 1349 1519 1649 1819 +筝∞晶榊悟 819 949 1119 1349 1519 1649 1819 +筝∞晶冴激寂査祉潟帥弱 819 949 1119 1349 1519 1649 1819 +筝∞晶坂賢紊 819 949 1119 1349 1519 1649 1819 +筝∞晶坂賢肴タ 819 949 1119 1349 1519 1649 1819 + +篋九6筝篋九3筝 820 950 1120 1350 1520 1650 1820 +篋九6筝上潟ャｉ牙純祉潟帥弱 820 950 1120 1350 1520 1650 1820 +篋九6筝怨ぇ2筝 820 950 1120 1350 1520 1650 1820 +篋九6筝ゅ頑胼霛祉潟帥弱 820 950 1120 1350 1520 1650 1820 +篋九6筝羂顔 820 950 1120 1350 1520 1650 1820 +篋九6筝延賢 820 950 1120 1350 1520 1650 1820 +篋九6筝筝 820 950 1120 1350 1520 1650 1820 +篋九6筝篋 820 950 1120 1350 1520 1650 1820 +篋九6筝筝 820 950 1120 1350 1520 1650 1820 +篋九6筝筝3筝 820 950 1120 1350 1520 1650 1820 +篋九6筝絲睡 820 950 1120 1350 1520 1650 1820 +篋九6筝祉潟帥弱 820 950 1120 1350 1520 1650 1820 +篋九6筝亥1筝 820 950 1120 1350 1520 1650 1820 +篋九6筝腮臀峨 820 950 1120 1350 1520 1650 1820 +篋九6筝筝1筝 820 950 1120 1350 1520 1650 1820 +篋九6筝絮若 820 950 1120 1350 1520 1650 1820 +篋九6筝級≦ 820 950 1120 1350 1520 1650 1820 +篋九6筝ョ 820 950 1120 1350 1520 1650 1820 +篋九6筝羈茱水 820 950 1120 1350 1520 1650 1820 +篋九6筝茱翠≦ 820 950 1120 1350 1520 1650 1820 +篋九6筝ゃ泣若鴻祉潟帥若水 820 950 1120 1350 1520 1650 1820 +篋九6筝羈 820 950 1120 1350 1520 1650 1820 +篋九6筝掩2筝 820 950 1120 1350 1520 1650 1820 +篋九6筝 820 950 1120 1350 1520 1650 1820 +篋九6筝薈怨 820 950 1120 1350 1520 1650 1820 +篋九6筝薈怨遺 820 950 1120 1350 1520 1650 1820 +篋九6筝亥 820 950 1120 1350 1520 1650 1820 +篋九6筝羌2筝 820 950 1120 1350 1520 1650 1820 +篋九6筝羌1筝 820 950 1120 1350 1520 1650 1820 +篋九6筝育 820 950 1120 1350 1520 1650 1820 +篋九6筝悟 820 950 1120 1350 1520 1650 1820 +篋九6筝激寂査祉潟帥弱 820 950 1120 1350 1520 1650 1820 +篋九6筝筝紊 820 950 1120 1350 1520 1650 1820 +篋九6筝筝肴タ 820 950 1120 1350 1520 1650 1820 + +篋九3筝上潟ャｉ牙純祉潟帥弱 821 951 1121 1351 1521 1651 1821 +篋九3筝怨ぇ2筝 821 951 1121 1351 1521 1651 1821 +篋九3筝ゅ頑胼霛祉潟帥弱 821 951 1121 1351 1521 1651 1821 +篋九3筝羂顔 821 951 1121 1351 1521 1651 1821 +篋九3筝延賢 821 951 1121 1351 1521 1651 1821 +篋九3筝筝 821 951 1121 1351 1521 1651 1821 +篋九3筝篋 821 951 1121 1351 1521 1651 1821 +篋九3筝筝 821 951 1121 1351 1521 1651 1821 +篋九3筝筝3筝 821 951 1121 1351 1521 1651 1821 +篋九3筝絲睡 821 951 1121 1351 1521 1651 1821 +篋九3筝祉潟帥弱 821 951 1121 1351 1521 1651 1821 +篋九3筝亥1筝 821 951 1121 1351 1521 1651 1821 +篋九3筝腮臀峨 821 951 1121 1351 1521 1651 1821 +篋九3筝筝1筝 821 951 1121 1351 1521 1651 1821 +篋九3筝絮若 821 951 1121 1351 1521 1651 1821 +篋九3筝級≦ 821 951 1121 1351 1521 1651 1821 +篋九3筝ョ 821 951 1121 1351 1521 1651 1821 +篋九3筝羈茱水 821 951 1121 1351 1521 1651 1821 +篋九3筝茱翠≦ 821 951 1121 1351 1521 1651 1821 +篋九3筝ゃ泣若鴻祉潟帥若水 821 951 1121 1351 1521 1651 1821 +篋九3筝羈 821 951 1121 1351 1521 1651 1821 +篋九3筝掩2筝 821 951 1121 1351 1521 1651 1821 +篋九3筝 821 951 1121 1351 1521 1651 1821 +篋九3筝薈怨 821 951 1121 1351 1521 1651 1821 +篋九3筝薈怨遺 821 951 1121 1351 1521 1651 1821 +篋九3筝亥 821 951 1121 1351 1521 1651 1821 +篋九3筝羌2筝 821 951 1121 1351 1521 1651 1821 +篋九3筝羌1筝 821 951 1121 1351 1521 1651 1821 +篋九3筝育 821 951 1121 1351 1521 1651 1821 +篋九3筝悟 821 951 1121 1351 1521 1651 1821 +篋九3筝激寂査祉潟帥弱 821 951 1121 1351 1521 1651 1821 +篋九3筝筝紊 821 951 1121 1351 1521 1651 1821 +篋九3筝筝肴タ 821 951 1121 1351 1521 1651 1821 + +上潟ャｉ牙純祉潟帥弱怨ぇ2筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱ゅ頑胼霛祉潟帥弱 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱羂顔 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱延賢 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱篋 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱筝3筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱絲睡 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱祉潟帥弱 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱亥1筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱腮臀峨 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱筝1筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱絮若 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱級≦ 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱ョ 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱羈茱水 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱茱翠≦ 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱ゃ泣若鴻祉潟帥若水 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱羈 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱掩2筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱薈怨 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱薈怨遺 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱亥 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱羌2筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱羌1筝 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱育 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱悟 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱激寂査祉潟帥弱 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱筝紊 823 953 1123 1353 1523 1653 1823 +上潟ャｉ牙純祉潟帥弱筝肴タ 823 953 1123 1353 1523 1653 1823 + +怨ぇ2筝ゅ頑胼霛祉潟帥弱 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝羂顔 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝延賢 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝篋 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝筝3筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝絲睡 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝祉潟帥弱 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝亥1筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝腮臀峨 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝筝1筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝絮若 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝級≦ 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝ョ 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝羈茱水 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝茱翠≦ 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝ゃ泣若鴻祉潟帥若水 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝羈 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝掩2筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝薈怨 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝薈怨遺 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝亥 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝羌2筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝羌1筝 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝育 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝悟 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝激寂査祉潟帥弱 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝筝紊 824 954 1124 1354 1524 1654 1824 +怨ぇ2筝筝肴タ 824 954 1124 1354 1524 1654 1824 + +ゅ頑胼霛祉潟帥弱羂顔 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱延賢 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱篋 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱筝3筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱絲睡 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱祉潟帥弱 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱亥1筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱腮臀峨 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱筝1筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱絮若 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱級≦ 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱ョ 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱羈茱水 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱茱翠≦ 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱ゃ泣若鴻祉潟帥若水 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱羈 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱掩2筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱薈怨 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱薈怨遺 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱亥 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱羌2筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱羌1筝 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱育 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱悟 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱激寂査祉潟帥弱 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱筝紊 825 955 1125 1355 1525 1655 1825 +ゅ頑胼霛祉潟帥弱筝肴タ 825 955 1125 1355 1525 1655 1825 + +羂顔延賢 826 956 1126 1356 1526 1656 1826 +羂顔筝 826 956 1126 1356 1526 1656 1826 +羂顔篋 826 956 1126 1356 1526 1656 1826 +羂顔筝 826 956 1126 1356 1526 1656 1826 +羂顔筝3筝 826 956 1126 1356 1526 1656 1826 +羂顔絲睡 826 956 1126 1356 1526 1656 1826 +羂顔祉潟帥弱 826 956 1126 1356 1526 1656 1826 +羂顔亥1筝 826 956 1126 1356 1526 1656 1826 +羂顔腮臀峨 826 956 1126 1356 1526 1656 1826 +羂顔筝1筝 826 956 1126 1356 1526 1656 1826 +羂顔絮若 826 956 1126 1356 1526 1656 1826 +羂顔級≦ 826 956 1126 1356 1526 1656 1826 +羂顔ョ 826 956 1126 1356 1526 1656 1826 +羂顔羈茱水 826 956 1126 1356 1526 1656 1826 +羂顔茱翠≦ 826 956 1126 1356 1526 1656 1826 +羂顔ゃ泣若鴻祉潟帥若水 826 956 1126 1356 1526 1656 1826 +羂顔羈 826 956 1126 1356 1526 1656 1826 +羂顔掩2筝 826 956 1126 1356 1526 1656 1826 +羂顔 826 956 1126 1356 1526 1656 1826 +羂顔薈怨 826 956 1126 1356 1526 1656 1826 +羂顔薈怨遺 826 956 1126 1356 1526 1656 1826 +羂顔亥 826 956 1126 1356 1526 1656 1826 +羂顔羌2筝 826 956 1126 1356 1526 1656 1826 +羂顔羌1筝 826 956 1126 1356 1526 1656 1826 +羂顔育 826 956 1126 1356 1526 1656 1826 +羂顔悟 826 956 1126 1356 1526 1656 1826 +羂顔激寂査祉潟帥弱 826 956 1126 1356 1526 1656 1826 +羂顔筝紊 826 956 1126 1356 1526 1656 1826 +羂顔筝肴タ 826 956 1126 1356 1526 1656 1826 + +延賢ｄ 827 957 1127 1357 1527 1657 1827 +延賢ｄ 827 957 1127 1357 1527 1657 1827 +延賢ｄ賢 827 957 1127 1357 1527 1657 1827 +延賢ｄ賢3筝 827 957 1127 1357 1527 1657 1827 +延賢ｅ睡 827 957 1127 1357 1527 1657 1827 +延賢ｆ祉潟帥弱 827 957 1127 1357 1527 1657 1827 +延賢ｅ亥1筝 827 957 1127 1357 1527 1657 1827 +延賢ｇ臀峨 827 957 1127 1357 1527 1657 1827 +延賢ｅ筝1筝 827 957 1127 1357 1527 1657 1827 +延賢ｅ若 827 957 1127 1357 1527 1657 1827 +延賢ｅ級≦ 827 957 1127 1357 1527 1657 1827 +延賢ｅョ 827 957 1127 1357 1527 1657 1827 +延賢ｆ茱水 827 957 1127 1357 1527 1657 1827 +延賢ｈタ蕭≦ 827 957 1127 1357 1527 1657 1827 +延賢ｃゃ泣若鴻祉潟帥若水 827 957 1127 1357 1527 1657 1827 +延賢ｆ 827 957 1127 1357 1527 1657 1827 +延賢ｆ掩2筝 827 957 1127 1357 1527 1657 1827 +延賢ｅ 827 957 1127 1357 1527 1657 1827 +延賢ｉ怨 827 957 1127 1357 1527 1657 1827 +延賢ｉ怨遺 827 957 1127 1357 1527 1657 1827 +延賢ｆ亥 827 957 1127 1357 1527 1657 1827 +延賢ｆ2筝 827 957 1127 1357 1527 1657 1827 +延賢ｆ1筝 827 957 1127 1357 1527 1657 1827 +延賢ｉ育 827 957 1127 1357 1527 1657 1827 +延賢ｇ悟 827 957 1127 1357 1527 1657 1827 +延賢ｃ激寂査祉潟帥弱 827 957 1127 1357 1527 1657 1827 +延賢ｄ賢紊 827 957 1127 1357 1527 1657 1827 +延賢ｄ賢肴タ 827 957 1127 1357 1527 1657 1827 + +筝坂 828 958 1128 1358 1528 1658 1828 +筝坂賢 828 958 1128 1358 1528 1658 1828 +筝坂賢3筝 828 958 1128 1358 1528 1658 1828 +筝阪睡 828 958 1128 1358 1528 1658 1828 +筝堺祉潟帥弱 828 958 1128 1358 1528 1658 1828 +筝阪亥1筝 828 958 1128 1358 1528 1658 1828 +筝榊臀峨 828 958 1128 1358 1528 1658 1828 +筝阪筝1筝 828 958 1128 1358 1528 1658 1828 +筝阪若 828 958 1128 1358 1528 1658 1828 +筝阪級≦ 828 958 1128 1358 1528 1658 1828 +筝阪ョ 828 958 1128 1358 1528 1658 1828 +筝堺茱水 828 958 1128 1358 1528 1658 1828 +筝肴タ蕭≦ 828 958 1128 1358 1528 1658 1828 +筝冴ゃ泣若鴻祉潟帥若水 828 958 1128 1358 1528 1658 1828 +筝堺 828 958 1128 1358 1528 1658 1828 +筝堺掩2筝 828 958 1128 1358 1528 1658 1828 +筝阪 828 958 1128 1358 1528 1658 1828 +筝咲怨 828 958 1128 1358 1528 1658 1828 +筝咲怨遺 828 958 1128 1358 1528 1658 1828 +筝堺亥 828 958 1128 1358 1528 1658 1828 +筝堺2筝 828 958 1128 1358 1528 1658 1828 +筝堺1筝 828 958 1128 1358 1528 1658 1828 +筝咲育 828 958 1128 1358 1528 1658 1828 +筝榊悟 828 958 1128 1358 1528 1658 1828 +筝冴激寂査祉潟帥弱 828 958 1128 1358 1528 1658 1828 +筝坂賢紊 828 958 1128 1358 1528 1658 1828 +筝坂賢肴タ 828 958 1128 1358 1528 1658 1828 + +篋坂賢 829 959 1129 1359 1529 1659 1829 +篋坂賢3筝 829 959 1129 1359 1529 1659 1829 +篋阪睡 829 959 1129 1359 1529 1659 1829 +篋堺祉潟帥弱 829 959 1129 1359 1529 1659 1829 +篋阪亥1筝 829 959 1129 1359 1529 1659 1829 +篋榊臀峨 829 959 1129 1359 1529 1659 1829 +篋阪筝1筝 829 959 1129 1359 1529 1659 1829 +篋阪若 829 959 1129 1359 1529 1659 1829 +篋阪級≦ 829 959 1129 1359 1529 1659 1829 +篋阪ョ 829 959 1129 1359 1529 1659 1829 +篋堺茱水 829 959 1129 1359 1529 1659 1829 +篋肴タ蕭≦ 829 959 1129 1359 1529 1659 1829 +篋冴ゃ泣若鴻祉潟帥若水 829 959 1129 1359 1529 1659 1829 +篋堺 829 959 1129 1359 1529 1659 1829 +篋堺掩2筝 829 959 1129 1359 1529 1659 1829 +篋阪 829 959 1129 1359 1529 1659 1829 +篋咲怨 829 959 1129 1359 1529 1659 1829 +篋咲怨遺 829 959 1129 1359 1529 1659 1829 +篋堺亥 829 959 1129 1359 1529 1659 1829 +篋堺2筝 829 959 1129 1359 1529 1659 1829 +篋堺1筝 829 959 1129 1359 1529 1659 1829 +篋咲育 829 959 1129 1359 1529 1659 1829 +篋榊悟 829 959 1129 1359 1529 1659 1829 +篋冴激寂査祉潟帥弱 829 959 1129 1359 1529 1659 1829 +篋坂賢紊 829 959 1129 1359 1529 1659 1829 +篋坂賢肴タ 829 959 1129 1359 1529 1659 1829 + +筝坂賢3筝 830 1000 1130 1400 1530 1700 1830 +筝阪睡 830 1000 1130 1400 1530 1700 1830 +筝堺祉潟帥弱 830 1000 1130 1400 1530 1700 1830 +筝阪亥1筝 830 1000 1130 1400 1530 1700 1830 +筝榊臀峨 830 1000 1130 1400 1530 1700 1830 +筝阪筝1筝 830 1000 1130 1400 1530 1700 1830 +筝阪若 830 1000 1130 1400 1530 1700 1830 +筝阪級≦ 830 1000 1130 1400 1530 1700 1830 +筝阪ョ 830 1000 1130 1400 1530 1700 1830 +筝堺茱水 830 1000 1130 1400 1530 1700 1830 +筝肴タ蕭≦ 830 1000 1130 1400 1530 1700 1830 +筝冴ゃ泣若鴻祉潟帥若水 830 1000 1130 1400 1530 1700 1830 +筝堺 830 1000 1130 1400 1530 1700 1830 +筝堺掩2筝 830 1000 1130 1400 1530 1700 1830 +筝阪 830 1000 1130 1400 1530 1700 1830 +筝咲怨 830 1000 1130 1400 1530 1700 1830 +筝咲怨遺 830 1000 1130 1400 1530 1700 1830 +筝堺亥 830 1000 1130 1400 1530 1700 1830 +筝堺2筝 830 1000 1130 1400 1530 1700 1830 +筝堺1筝 830 1000 1130 1400 1530 1700 1830 +筝咲育 830 1000 1130 1400 1530 1700 1830 +筝榊悟 830 1000 1130 1400 1530 1700 1830 +筝冴激寂査祉潟帥弱 830 1000 1130 1400 1530 1700 1830 +筝坂賢紊 830 1000 1130 1400 1530 1700 1830 +筝坂賢肴タ 830 1000 1130 1400 1530 1700 1830 + +筝3筝絲睡 831 1001 1131 1401 1531 1701 1831 +筝3筝祉潟帥弱 831 1001 1131 1401 1531 1701 1831 +筝3筝亥1筝 831 1001 1131 1401 1531 1701 1831 +筝3筝腮臀峨 831 1001 1131 1401 1531 1701 1831 +筝3筝筝1筝 831 1001 1131 1401 1531 1701 1831 +筝3筝絮若 831 1001 1131 1401 1531 1701 1831 +筝3筝級≦ 831 1001 1131 1401 1531 1701 1831 +筝3筝ョ 831 1001 1131 1401 1531 1701 1831 +筝3筝羈茱水 831 1001 1131 1401 1531 1701 1831 +筝3筝茱翠≦ 831 1001 1131 1401 1531 1701 1831 +筝3筝ゃ泣若鴻祉潟帥若水 831 1001 1131 1401 1531 1701 1831 +筝3筝羈 831 1001 1131 1401 1531 1701 1831 +筝3筝掩2筝 831 1001 1131 1401 1531 1701 1831 +筝3筝 831 1001 1131 1401 1531 1701 1831 +筝3筝薈怨 831 1001 1131 1401 1531 1701 1831 +筝3筝薈怨遺 831 1001 1131 1401 1531 1701 1831 +筝3筝亥 831 1001 1131 1401 1531 1701 1831 +筝3筝羌2筝 831 1001 1131 1401 1531 1701 1831 +筝3筝羌1筝 831 1001 1131 1401 1531 1701 1831 +筝3筝育 831 1001 1131 1401 1531 1701 1831 +筝3筝悟 831 1001 1131 1401 1531 1701 1831 +筝3筝激寂査祉潟帥弱 831 1001 1131 1401 1531 1701 1831 +筝3筝筝紊 831 1001 1131 1401 1531 1701 1831 +筝3筝筝肴タ 831 1001 1131 1401 1531 1701 1831 + +絲睡堺祉潟帥弱 832 1002 1132 1402 1532 1702 1832 +絲睡阪亥1筝 832 1002 1132 1402 1532 1702 1832 +絲睡榊臀峨 832 1002 1132 1402 1532 1702 1832 +絲睡阪筝1筝 832 1002 1132 1402 1532 1702 1832 +絲睡阪若 832 1002 1132 1402 1532 1702 1832 +絲睡阪級≦ 832 1002 1132 1402 1532 1702 1832 +絲睡阪ョ 832 1002 1132 1402 1532 1702 1832 +絲睡堺茱水 832 1002 1132 1402 1532 1702 1832 +絲睡肴タ蕭≦ 832 1002 1132 1402 1532 1702 1832 +絲睡冴ゃ泣若鴻祉潟帥若水 832 1002 1132 1402 1532 1702 1832 +絲睡堺 832 1002 1132 1402 1532 1702 1832 +絲睡堺掩2筝 832 1002 1132 1402 1532 1702 1832 +絲睡阪 832 1002 1132 1402 1532 1702 1832 +絲睡咲怨 832 1002 1132 1402 1532 1702 1832 +絲睡咲怨遺 832 1002 1132 1402 1532 1702 1832 +絲睡堺亥 832 1002 1132 1402 1532 1702 1832 +絲睡堺2筝 832 1002 1132 1402 1532 1702 1832 +絲睡堺1筝 832 1002 1132 1402 1532 1702 1832 +絲睡咲育 832 1002 1132 1402 1532 1702 1832 +絲睡榊悟 832 1002 1132 1402 1532 1702 1832 +絲睡冴激寂査祉潟帥弱 832 1002 1132 1402 1532 1702 1832 +絲睡坂賢紊 832 1002 1132 1402 1532 1702 1832 +絲睡坂賢肴タ 832 1002 1132 1402 1532 1702 1832 + +祉潟帥弱亥1筝 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱腮臀峨 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱筝1筝 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱絮若 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱級≦ 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱ョ 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱羈茱水 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱茱翠≦ 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱ゃ泣若鴻祉潟帥若水 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱羈 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱掩2筝 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱薈怨 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱薈怨遺 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱亥 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱羌2筝 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱羌1筝 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱育 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱悟 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱激寂査祉潟帥弱 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱筝紊 834 1004 1134 1404 1534 1704 1834 +祉潟帥弱筝肴タ 834 1004 1134 1404 1534 1704 1834 + +亥1筝腮臀峨 836 1006 1136 1406 1536 1706 1836 +亥1筝筝1筝 836 1006 1136 1406 1536 1706 1836 +亥1筝絮若 836 1006 1136 1406 1536 1706 1836 +亥1筝級≦ 836 1006 1136 1406 1536 1706 1836 +亥1筝ョ 836 1006 1136 1406 1536 1706 1836 +亥1筝羈茱水 836 1006 1136 1406 1536 1706 1836 +亥1筝茱翠≦ 836 1006 1136 1406 1536 1706 1836 +亥1筝ゃ泣若鴻祉潟帥若水 836 1006 1136 1406 1536 1706 1836 +亥1筝羈 836 1006 1136 1406 1536 1706 1836 +亥1筝掩2筝 836 1006 1136 1406 1536 1706 1836 +亥1筝 836 1006 1136 1406 1536 1706 1836 +亥1筝薈怨 836 1006 1136 1406 1536 1706 1836 +亥1筝薈怨遺 836 1006 1136 1406 1536 1706 1836 +亥1筝亥 836 1006 1136 1406 1536 1706 1836 +亥1筝羌2筝 836 1006 1136 1406 1536 1706 1836 +亥1筝羌1筝 836 1006 1136 1406 1536 1706 1836 +亥1筝育 836 1006 1136 1406 1536 1706 1836 +亥1筝悟 836 1006 1136 1406 1536 1706 1836 +亥1筝激寂査祉潟帥弱 836 1006 1136 1406 1536 1706 1836 +亥1筝筝紊 836 1006 1136 1406 1536 1706 1836 +亥1筝筝肴タ 836 1006 1136 1406 1536 1706 1836 + +腮臀峨筝1筝 837 1007 1137 1407 1537 1707 1837 +腮臀峨絮若 837 1007 1137 1407 1537 1707 1837 +腮臀峨級≦ 837 1007 1137 1407 1537 1707 1837 +腮臀峨ョ 837 1007 1137 1407 1537 1707 1837 +腮臀峨羈茱水 837 1007 1137 1407 1537 1707 1837 +腮臀峨茱翠≦ 837 1007 1137 1407 1537 1707 1837 +腮臀峨ゃ泣若鴻祉潟帥若水 837 1007 1137 1407 1537 1707 1837 +腮臀峨羈 837 1007 1137 1407 1537 1707 1837 +腮臀峨掩2筝 837 1007 1137 1407 1537 1707 1837 +腮臀峨 837 1007 1137 1407 1537 1707 1837 +腮臀峨薈怨 837 1007 1137 1407 1537 1707 1837 +腮臀峨薈怨遺 837 1007 1137 1407 1537 1707 1837 +腮臀峨亥 837 1007 1137 1407 1537 1707 1837 +腮臀峨羌2筝 837 1007 1137 1407 1537 1707 1837 +腮臀峨羌1筝 837 1007 1137 1407 1537 1707 1837 +腮臀峨育 837 1007 1137 1407 1537 1707 1837 +腮臀峨悟 837 1007 1137 1407 1537 1707 1837 +腮臀峨激寂査祉潟帥弱 837 1007 1137 1407 1537 1707 1837 +腮臀峨筝紊 837 1007 1137 1407 1537 1707 1837 +腮臀峨筝肴タ 837 1007 1137 1407 1537 1707 1837 + +筝1筝絮若 838 1008 1138 1408 1538 1708 1838 +筝1筝級≦ 838 1008 1138 1408 1538 1708 1838 +筝1筝ョ 838 1008 1138 1408 1538 1708 1838 +筝1筝羈茱水 838 1008 1138 1408 1538 1708 1838 +筝1筝茱翠≦ 838 1008 1138 1408 1538 1708 1838 +筝1筝ゃ泣若鴻祉潟帥若水 838 1008 1138 1408 1538 1708 1838 +筝1筝羈 838 1008 1138 1408 1538 1708 1838 +筝1筝掩2筝 838 1008 1138 1408 1538 1708 1838 +筝1筝 838 1008 1138 1408 1538 1708 1838 +筝1筝薈怨 838 1008 1138 1408 1538 1708 1838 +筝1筝薈怨遺 838 1008 1138 1408 1538 1708 1838 +筝1筝亥 838 1008 1138 1408 1538 1708 1838 +筝1筝羌2筝 838 1008 1138 1408 1538 1708 1838 +筝1筝羌1筝 838 1008 1138 1408 1538 1708 1838 +筝1筝育 838 1008 1138 1408 1538 1708 1838 +筝1筝悟 838 1008 1138 1408 1538 1708 1838 +筝1筝激寂査祉潟帥弱 838 1008 1138 1408 1538 1708 1838 +筝1筝筝紊 838 1008 1138 1408 1538 1708 1838 +筝1筝筝肴タ 838 1008 1138 1408 1538 1708 1838 + +絮若級≦ 839 1009 1139 1409 1539 1709 1839 +絮若ョ 839 1009 1139 1409 1539 1709 1839 +絮若羈茱水 839 1009 1139 1409 1539 1709 1839 +絮若茱翠≦ 839 1009 1139 1409 1539 1709 1839 +絮若ゃ泣若鴻祉潟帥若水 839 1009 1139 1409 1539 1709 1839 +絮若羈 839 1009 1139 1409 1539 1709 1839 +絮若掩2筝 839 1009 1139 1409 1539 1709 1839 +絮若 839 1009 1139 1409 1539 1709 1839 +絮若薈怨 839 1009 1139 1409 1539 1709 1839 +絮若薈怨遺 839 1009 1139 1409 1539 1709 1839 +絮若亥 839 1009 1139 1409 1539 1709 1839 +絮若羌2筝 839 1009 1139 1409 1539 1709 1839 +絮若羌1筝 839 1009 1139 1409 1539 1709 1839 +絮若育 839 1009 1139 1409 1539 1709 1839 +絮若悟 839 1009 1139 1409 1539 1709 1839 +絮若激寂査祉潟帥弱 839 1009 1139 1409 1539 1709 1839 +絮若筝紊 839 1009 1139 1409 1539 1709 1839 +絮若筝肴タ 839 1009 1139 1409 1539 1709 1839 + +級≦ョ 840 1010 1140 1410 1540 1710 1840 +級≦羈茱水 840 1010 1140 1410 1540 1710 1840 +級≦茱翠≦ 840 1010 1140 1410 1540 1710 1840 +級≦ゃ泣若鴻祉潟帥若水 840 1010 1140 1410 1540 1710 1840 +級≦羈 840 1010 1140 1410 1540 1710 1840 +級≦掩2筝 840 1010 1140 1410 1540 1710 1840 +級≦ 840 1010 1140 1410 1540 1710 1840 +級≦薈怨 840 1010 1140 1410 1540 1710 1840 +級≦薈怨遺 840 1010 1140 1410 1540 1710 1840 +級≦亥 840 1010 1140 1410 1540 1710 1840 +級≦羌2筝 840 1010 1140 1410 1540 1710 1840 +級≦羌1筝 840 1010 1140 1410 1540 1710 1840 +級≦育 840 1010 1140 1410 1540 1710 1840 +級≦悟 840 1010 1140 1410 1540 1710 1840 +級≦激寂査祉潟帥弱 840 1010 1140 1410 1540 1710 1840 +級≦筝紊 840 1010 1140 1410 1540 1710 1840 +級≦筝肴タ 840 1010 1140 1410 1540 1710 1840 + +ョ堺茱水 842 1012 1142 1412 1542 1712 1842 +ョ肴タ蕭≦ 842 1012 1142 1412 1542 1712 1842 +ョ冴ゃ泣若鴻祉潟帥若水 842 1012 1142 1412 1542 1712 1842 +ョ堺 842 1012 1142 1412 1542 1712 1842 +ョ堺掩2筝 842 1012 1142 1412 1542 1712 1842 +ョ阪 842 1012 1142 1412 1542 1712 1842 +ョ咲怨 842 1012 1142 1412 1542 1712 1842 +ョ咲怨遺 842 1012 1142 1412 1542 1712 1842 +ョ堺亥 842 1012 1142 1412 1542 1712 1842 +ョ堺2筝 842 1012 1142 1412 1542 1712 1842 +ョ堺1筝 842 1012 1142 1412 1542 1712 1842 +ョ咲育 842 1012 1142 1412 1542 1712 1842 +ョ榊悟 842 1012 1142 1412 1542 1712 1842 +ョ冴激寂査祉潟帥弱 842 1012 1142 1412 1542 1712 1842 +ョ坂賢紊 842 1012 1142 1412 1542 1712 1842 +ョ坂賢肴タ 842 1012 1142 1412 1542 1712 1842 + +羈茱水茱翠≦ 845 1015 1145 1415 1545 1715 1845 +羈茱水ゃ泣若鴻祉潟帥若水 845 1015 1145 1415 1545 1715 1845 +羈茱水羈 845 1015 1145 1415 1545 1715 1845 +羈茱水掩2筝 845 1015 1145 1415 1545 1715 1845 +羈茱水 845 1015 1145 1415 1545 1715 1845 +羈茱水薈怨 845 1015 1145 1415 1545 1715 1845 +羈茱水薈怨遺 845 1015 1145 1415 1545 1715 1845 +羈茱水亥 845 1015 1145 1415 1545 1715 1845 +羈茱水羌2筝 845 1015 1145 1415 1545 1715 1845 +羈茱水羌1筝 845 1015 1145 1415 1545 1715 1845 +羈茱水育 845 1015 1145 1415 1545 1715 1845 +羈茱水悟 845 1015 1145 1415 1545 1715 1845 +羈茱水激寂査祉潟帥弱 845 1015 1145 1415 1545 1715 1845 +羈茱水筝紊 845 1015 1145 1415 1545 1715 1845 +羈茱水筝肴タ 845 1015 1145 1415 1545 1715 1845 + +茱翠≦ゃ泣若鴻祉潟帥若水 845 1015 1145 1415 1545 1715 1845 +茱翠≦羈 845 1015 1145 1415 1545 1715 1845 +茱翠≦掩2筝 845 1015 1145 1415 1545 1715 1845 +茱翠≦ 845 1015 1145 1415 1545 1715 1845 +茱翠≦薈怨 845 1015 1145 1415 1545 1715 1845 +茱翠≦薈怨遺 845 1015 1145 1415 1545 1715 1845 +茱翠≦亥 845 1015 1145 1415 1545 1715 1845 +茱翠≦羌2筝 845 1015 1145 1415 1545 1715 1845 +茱翠≦羌1筝 845 1015 1145 1415 1545 1715 1845 +茱翠≦育 845 1015 1145 1415 1545 1715 1845 +茱翠≦悟 845 1015 1145 1415 1545 1715 1845 +茱翠≦激寂査祉潟帥弱 845 1015 1145 1415 1545 1715 1845 +茱翠≦筝紊 845 1015 1145 1415 1545 1715 1845 +茱翠≦筝肴タ 845 1015 1145 1415 1545 1715 1845 + +ゃ泣若鴻祉潟帥若水羈 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水掩2筝 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水薈怨 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水薈怨遺 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水亥 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水羌2筝 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水羌1筝 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水育 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水悟 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水激寂査祉潟帥弱 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水筝紊 846 1016 1146 1416 1546 1716 1846 +ゃ泣若鴻祉潟帥若水筝肴タ 846 1016 1146 1416 1546 1716 1846 + +羈掩2筝 846 1016 1146 1416 1546 1716 1846 +羈 846 1016 1146 1416 1546 1716 1846 +羈薈怨 846 1016 1146 1416 1546 1716 1846 +羈薈怨遺 846 1016 1146 1416 1546 1716 1846 +羈亥 846 1016 1146 1416 1546 1716 1846 +羈羌2筝 846 1016 1146 1416 1546 1716 1846 +羈羌1筝 846 1016 1146 1416 1546 1716 1846 +羈育 846 1016 1146 1416 1546 1716 1846 +羈悟 846 1016 1146 1416 1546 1716 1846 +羈激寂査祉潟帥弱 846 1016 1146 1416 1546 1716 1846 +羈筝紊 846 1016 1146 1416 1546 1716 1846 +羈筝肴タ 846 1016 1146 1416 1546 1716 1846 + +掩2筝 847 1017 1147 1417 1547 1717 1847 +掩2筝薈怨 847 1017 1147 1417 1547 1717 1847 +掩2筝薈怨遺 847 1017 1147 1417 1547 1717 1847 +掩2筝亥 847 1017 1147 1417 1547 1717 1847 +掩2筝羌2筝 847 1017 1147 1417 1547 1717 1847 +掩2筝羌1筝 847 1017 1147 1417 1547 1717 1847 +掩2筝育 847 1017 1147 1417 1547 1717 1847 +掩2筝悟 847 1017 1147 1417 1547 1717 1847 +掩2筝激寂査祉潟帥弱 847 1017 1147 1417 1547 1717 1847 +掩2筝筝紊 847 1017 1147 1417 1547 1717 1847 +掩2筝筝肴タ 847 1017 1147 1417 1547 1717 1847 + +薈怨 848 1018 1148 1418 1548 1718 1848 +薈怨遺 848 1018 1148 1418 1548 1718 1848 +亥 848 1018 1148 1418 1548 1718 1848 +羌2筝 848 1018 1148 1418 1548 1718 1848 +羌1筝 848 1018 1148 1418 1548 1718 1848 +育 848 1018 1148 1418 1548 1718 1848 +悟 848 1018 1148 1418 1548 1718 1848 +激寂査祉潟帥弱 848 1018 1148 1418 1548 1718 1848 +筝紊 848 1018 1148 1418 1548 1718 1848 +筝肴タ 848 1018 1148 1418 1548 1718 1848 + +薈怨薈怨遺 849 1019 1149 1419 1549 1719 1849 +薈怨亥 849 1019 1149 1419 1549 1719 1849 +薈怨羌2筝 849 1019 1149 1419 1549 1719 1849 +薈怨羌1筝 849 1019 1149 1419 1549 1719 1849 +薈怨育 849 1019 1149 1419 1549 1719 1849 +薈怨悟 849 1019 1149 1419 1549 1719 1849 +薈怨激寂査祉潟帥弱 849 1019 1149 1419 1549 1719 1849 +薈怨筝紊 849 1019 1149 1419 1549 1719 1849 +薈怨筝肴タ 849 1019 1149 1419 1549 1719 1849 + +薈怨遺亥 850 1020 1150 1420 1550 1720 1850 +薈怨遺羌2筝 850 1020 1150 1420 1550 1720 1850 +薈怨遺羌1筝 850 1020 1150 1420 1550 1720 1850 +薈怨遺育 850 1020 1150 1420 1550 1720 1850 +薈怨遺悟 850 1020 1150 1420 1550 1720 1850 +薈怨遺激寂査祉潟帥弱 850 1020 1150 1420 1550 1720 1850 +薈怨遺筝紊 850 1020 1150 1420 1550 1720 1850 +薈怨遺筝肴タ 850 1020 1150 1420 1550 1720 1850 + +亥堺2筝 851 1021 1151 1421 1551 1721 1851 +亥堺1筝 851 1021 1151 1421 1551 1721 1851 +亥咲育 851 1021 1151 1421 1551 1721 1851 +亥榊悟 851 1021 1151 1421 1551 1721 1851 +亥冴激寂査祉潟帥弱 851 1021 1151 1421 1551 1721 1851 +亥坂賢紊 851 1021 1151 1421 1551 1721 1851 +亥坂賢肴タ 851 1021 1151 1421 1551 1721 1851 + +羌2筝羌1筝 853 1023 1153 1423 1553 1723 1853 +羌2筝育 853 1023 1153 1423 1553 1723 1853 +羌2筝悟 853 1023 1153 1423 1553 1723 1853 +羌2筝激寂査祉潟帥弱 853 1023 1153 1423 1553 1723 1853 +羌2筝筝紊 853 1023 1153 1423 1553 1723 1853 +羌2筝筝肴タ 853 1023 1153 1423 1553 1723 1853 + +羌1筝育 856 1026 1156 1426 1556 1726 1856 +羌1筝悟 856 1026 1156 1426 1556 1726 1856 +羌1筝激寂査祉潟帥弱 856 1026 1156 1426 1556 1726 1856 +羌1筝筝紊 856 1026 1156 1426 1556 1726 1856 +羌1筝筝肴タ 856 1026 1156 1426 1556 1726 1856 + +育悟 856 1026 1156 1426 1556 1726 1856 +育激寂査祉潟帥弱 856 1026 1156 1426 1556 1726 1856 +育筝紊 856 1026 1156 1426 1556 1726 1856 +育筝肴タ 856 1026 1156 1426 1556 1726 1856 + +悟冴激寂査祉潟帥弱 858 1028 1158 1428 1558 1728 1858 +悟坂賢紊 858 1028 1158 1428 1558 1728 1858 +悟坂賢肴タ 858 1028 1158 1428 1558 1728 1858 + +激寂査祉潟帥弱筝紊 858 1028 1158 1428 1558 1728 1858 +激寂査祉潟帥弱筝肴タ 858 1028 1158 1428 1558 1728 1858 + +筝紊筝肴タ 900 1030 1250 1430 1600 1730 1900 + + + + + + + +筝坂賢紊 745 915 1045 1315 1445 1615 1745 +筝冴激寂査祉潟帥弱 745 915 1045 1315 1445 1615 1745 +筝榊悟 745 915 1045 1315 1445 1615 1745 +筝咲育 745 915 1045 1315 1445 1615 1745 +筝堺1筝 745 915 1045 1315 1445 1615 1745 +筝堺2筝 745 915 1045 1315 1445 1615 1745 +筝堺亥 745 915 1045 1315 1445 1615 1745 +筝咲怨遺 745 915 1045 1315 1445 1615 1745 +筝咲怨 745 915 1045 1315 1445 1615 1745 +筝阪 745 915 1045 1315 1445 1615 1745 +筝堺茱水 745 915 1045 1315 1445 1615 1745 +筝肴タ蕭≦ 745 915 1045 1315 1445 1615 1745 +筝冴ゃ泣若鴻祉潟帥若水 745 915 1045 1315 1445 1615 1745 +筝堺 745 915 1045 1315 1445 1615 1745 +筝堺掩2筝 745 915 1045 1315 1445 1615 1745 +筝阪ョ 745 915 1045 1315 1445 1615 1745 +筝阪級≦ 745 915 1045 1315 1445 1615 1745 +筝阪若 745 915 1045 1315 1445 1615 1745 +筝阪筝1筝 745 915 1045 1315 1445 1615 1745 +筝榊臀峨 745 915 1045 1315 1445 1615 1745 +筝阪亥1筝 745 915 1045 1315 1445 1615 1745 +筝堺祉潟帥弱 745 915 1045 1315 1445 1615 1745 +筝阪睡 745 915 1045 1315 1445 1615 1745 +筝坂賢3筝 745 915 1045 1315 1445 1615 1745 +筝坂賢肴タ 745 915 1045 1315 1445 1615 1745 +筝坂 745 915 1045 1315 1445 1615 1745 +筝坂 745 915 1045 1315 1445 1615 1745 +筝堺延賢 745 915 1045 1315 1445 1615 1745 +筝堺梓 745 915 1045 1315 1445 1615 1745 +筝阪ゅ頑胼霛祉潟帥弱 745 915 1045 1315 1445 1615 1745 +筝堺怨ぇ2筝 745 915 1045 1315 1445 1615 1745 +筝堺上潟ャｉ牙純祉潟帥弱 745 915 1045 1315 1445 1615 1745 +筝坂九3筝 745 915 1045 1315 1445 1615 1745 +筝坂九6筝 745 915 1045 1315 1445 1615 1745 +筝坂検臂順 745 915 1045 1315 1445 1615 1745 +筝冴紙 745 915 1045 1315 1445 1615 1745 +筝堺ユ羌欠 745 915 1045 1315 1445 1615 1745 +筝冴坂困 745 915 1045 1315 1445 1615 1745 +筝冴帥2筝 745 915 1045 1315 1445 1615 1745 +筝冴帥1筝 745 915 1045 1315 1445 1615 1745 +筝坂九灸梢絮 745 915 1045 1315 1445 1615 1745 +筝咲医紫祉潟帥弱 745 915 1045 1315 1445 1615 1745 +筝咲医紫祉潟帥弱 745 915 1045 1315 1445 1615 1745 +筝阪臼絮 745 915 1045 1315 1445 1615 1745 +筝阪綵号茱 745 915 1045 1315 1445 1615 1745 +筝坂賢 745 915 1045 1315 1445 1615 1745 + +筝紊激寂査祉潟帥弱 746 916 1046 1316 1446 1616 1746 +筝紊悟 746 916 1046 1316 1446 1616 1746 +筝紊育 746 916 1046 1316 1446 1616 1746 +筝紊羌1筝 746 916 1046 1316 1446 1616 1746 +筝紊羌2筝 746 916 1046 1316 1446 1616 1746 +筝紊亥 746 916 1046 1316 1446 1616 1746 +筝紊薈怨遺 746 916 1046 1316 1446 1616 1746 +筝紊薈怨 746 916 1046 1316 1446 1616 1746 +筝紊 746 916 1046 1316 1446 1616 1746 +筝紊羈茱水 746 916 1046 1316 1446 1616 1746 +筝紊茱翠≦ 746 916 1046 1316 1446 1616 1746 +筝紊ゃ泣若鴻祉潟帥若水 746 916 1046 1316 1446 1616 1746 +筝紊羈 746 916 1046 1316 1446 1616 1746 +筝紊掩2筝 746 916 1046 1316 1446 1616 1746 +筝紊ョ 746 916 1046 1316 1446 1616 1746 +筝紊級≦ 746 916 1046 1316 1446 1616 1746 +筝紊絮若 746 916 1046 1316 1446 1616 1746 +筝紊筝1筝 746 916 1046 1316 1446 1616 1746 +筝紊腮臀峨 746 916 1046 1316 1446 1616 1746 +筝紊亥1筝 746 916 1046 1316 1446 1616 1746 +筝紊祉潟帥弱 746 916 1046 1316 1446 1616 1746 +筝紊絲睡 746 916 1046 1316 1446 1616 1746 +筝紊筝3筝 746 916 1046 1316 1446 1616 1746 +筝紊筝肴タ 746 916 1046 1316 1446 1616 1746 +筝紊篋 746 916 1046 1316 1446 1616 1746 +筝紊筝 746 916 1046 1316 1446 1616 1746 +筝紊延賢 746 916 1046 1316 1446 1616 1746 +筝紊羂顔 746 916 1046 1316 1446 1616 1746 +筝紊ゅ頑胼霛祉潟帥弱 746 916 1046 1316 1446 1616 1746 +筝紊怨ぇ2筝 746 916 1046 1316 1446 1616 1746 +筝紊上潟ャｉ牙純祉潟帥弱 746 916 1046 1316 1446 1616 1746 +筝紊篋九3筝 746 916 1046 1316 1446 1616 1746 +筝紊篋九6筝 746 916 1046 1316 1446 1616 1746 +筝紊筝∞晶 746 916 1046 1316 1446 1616 1746 +筝紊紙 746 916 1046 1316 1446 1616 1746 +筝紊ユ羌欠 746 916 1046 1316 1446 1616 1746 +筝紊坂困 746 916 1046 1316 1446 1616 1746 +筝紊帥2筝 746 916 1046 1316 1446 1616 1746 +筝紊帥1筝 746 916 1046 1316 1446 1616 1746 +筝紊篋九灸梢絮 746 916 1046 1316 1446 1616 1746 +筝紊医紫祉潟帥弱 746 916 1046 1316 1446 1616 1746 +筝紊医紫祉潟帥弱 746 916 1046 1316 1446 1616 1746 +筝紊絮怨 746 916 1046 1316 1446 1616 1746 +筝紊絽綵号茱 746 916 1046 1316 1446 1616 1746 +筝紊筝 746 916 1046 1316 1446 1616 1746 + +激寂査祉潟帥弱悟 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱育 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱羌1筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱羌2筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱亥 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱薈怨遺 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱薈怨 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱羈茱水 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱茱翠≦ 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱ゃ泣若鴻祉潟帥若水 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱羈 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱掩2筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱ョ 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱級≦ 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱絮若 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱筝1筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱腮臀峨 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱亥1筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱祉潟帥弱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱絲睡 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱筝3筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱筝肴タ 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱篋 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱延賢 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱羂顔 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱ゅ頑胼霛祉潟帥弱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱怨ぇ2筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱上潟ャｉ牙純祉潟帥弱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱篋九3筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱篋九6筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱筝∞晶 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱紙 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱ユ羌欠 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱坂困 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱帥2筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱帥1筝 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱篋九灸梢絮 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱絮怨 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱絽綵号茱 747 917 1047 1317 1447 1617 1747 +激寂査祉潟帥弱筝 747 917 1047 1317 1447 1617 1747 + +悟咲育 747 917 1047 1317 1447 1617 1747 +悟堺1筝 747 917 1047 1317 1447 1617 1747 +悟堺2筝 747 917 1047 1317 1447 1617 1747 +悟堺亥 747 917 1047 1317 1447 1617 1747 +悟咲怨遺 747 917 1047 1317 1447 1617 1747 +悟咲怨 747 917 1047 1317 1447 1617 1747 +悟阪 747 917 1047 1317 1447 1617 1747 +悟堺茱水 747 917 1047 1317 1447 1617 1747 +悟肴タ蕭≦ 747 917 1047 1317 1447 1617 1747 +悟冴ゃ泣若鴻祉潟帥若水 747 917 1047 1317 1447 1617 1747 +悟堺 747 917 1047 1317 1447 1617 1747 +悟堺掩2筝 747 917 1047 1317 1447 1617 1747 +悟阪ョ 747 917 1047 1317 1447 1617 1747 +悟阪級≦ 747 917 1047 1317 1447 1617 1747 +悟阪若 747 917 1047 1317 1447 1617 1747 +悟阪筝1筝 747 917 1047 1317 1447 1617 1747 +悟榊臀峨 747 917 1047 1317 1447 1617 1747 +悟阪亥1筝 747 917 1047 1317 1447 1617 1747 +悟堺祉潟帥弱 747 917 1047 1317 1447 1617 1747 +悟阪睡 747 917 1047 1317 1447 1617 1747 +悟坂賢3筝 747 917 1047 1317 1447 1617 1747 +悟坂賢肴タ 747 917 1047 1317 1447 1617 1747 +悟坂 747 917 1047 1317 1447 1617 1747 +悟坂 747 917 1047 1317 1447 1617 1747 +悟堺延賢 747 917 1047 1317 1447 1617 1747 +悟堺梓 747 917 1047 1317 1447 1617 1747 +悟阪ゅ頑胼霛祉潟帥弱 747 917 1047 1317 1447 1617 1747 +悟堺怨ぇ2筝 747 917 1047 1317 1447 1617 1747 +悟堺上潟ャｉ牙純祉潟帥弱 747 917 1047 1317 1447 1617 1747 +悟坂九3筝 747 917 1047 1317 1447 1617 1747 +悟坂九6筝 747 917 1047 1317 1447 1617 1747 +悟坂検臂順 747 917 1047 1317 1447 1617 1747 +悟冴紙 747 917 1047 1317 1447 1617 1747 +悟堺ユ羌欠 747 917 1047 1317 1447 1617 1747 +悟冴坂困 747 917 1047 1317 1447 1617 1747 +悟冴帥2筝 747 917 1047 1317 1447 1617 1747 +悟冴帥1筝 747 917 1047 1317 1447 1617 1747 +悟坂九灸梢絮 747 917 1047 1317 1447 1617 1747 +悟咲医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 +悟咲医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 +悟阪臼絮 747 917 1047 1317 1447 1617 1747 +悟阪綵号茱 747 917 1047 1317 1447 1617 1747 +悟坂賢 747 917 1047 1317 1447 1617 1747 + +育羌1筝 749 919 1049 1319 1449 1619 1749 +育羌2筝 749 919 1049 1319 1449 1619 1749 +育亥 749 919 1049 1319 1449 1619 1749 +育薈怨遺 749 919 1049 1319 1449 1619 1749 +育薈怨 749 919 1049 1319 1449 1619 1749 +育 749 919 1049 1319 1449 1619 1749 +育羈茱水 749 919 1049 1319 1449 1619 1749 +育茱翠≦ 749 919 1049 1319 1449 1619 1749 +育ゃ泣若鴻祉潟帥若水 749 919 1049 1319 1449 1619 1749 +育羈 749 919 1049 1319 1449 1619 1749 +育掩2筝 749 919 1049 1319 1449 1619 1749 +育ョ 749 919 1049 1319 1449 1619 1749 +育級≦ 749 919 1049 1319 1449 1619 1749 +育絮若 749 919 1049 1319 1449 1619 1749 +育筝1筝 749 919 1049 1319 1449 1619 1749 +育腮臀峨 749 919 1049 1319 1449 1619 1749 +育亥1筝 749 919 1049 1319 1449 1619 1749 +育祉潟帥弱 749 919 1049 1319 1449 1619 1749 +育絲睡 749 919 1049 1319 1449 1619 1749 +育筝3筝 749 919 1049 1319 1449 1619 1749 +育筝肴タ 749 919 1049 1319 1449 1619 1749 +育篋 749 919 1049 1319 1449 1619 1749 +育筝 749 919 1049 1319 1449 1619 1749 +育延賢 749 919 1049 1319 1449 1619 1749 +育羂顔 749 919 1049 1319 1449 1619 1749 +育ゅ頑胼霛祉潟帥弱 749 919 1049 1319 1449 1619 1749 +育怨ぇ2筝 749 919 1049 1319 1449 1619 1749 +育上潟ャｉ牙純祉潟帥弱 749 919 1049 1319 1449 1619 1749 +育篋九3筝 749 919 1049 1319 1449 1619 1749 +育篋九6筝 749 919 1049 1319 1449 1619 1749 +育筝∞晶 749 919 1049 1319 1449 1619 1749 +育紙 749 919 1049 1319 1449 1619 1749 +育ユ羌欠 749 919 1049 1319 1449 1619 1749 +育坂困 749 919 1049 1319 1449 1619 1749 +育帥2筝 749 919 1049 1319 1449 1619 1749 +育帥1筝 749 919 1049 1319 1449 1619 1749 +育篋九灸梢絮 749 919 1049 1319 1449 1619 1749 +育医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 +育医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 +育絮怨 749 919 1049 1319 1449 1619 1749 +育絽綵号茱 749 919 1049 1319 1449 1619 1749 +育筝 749 919 1049 1319 1449 1619 1749 + +羌1筝羌2筝 749 919 1049 1319 1449 1619 1749 +羌1筝亥 749 919 1049 1319 1449 1619 1749 +羌1筝薈怨遺 749 919 1049 1319 1449 1619 1749 +羌1筝薈怨 749 919 1049 1319 1449 1619 1749 +羌1筝 749 919 1049 1319 1449 1619 1749 +羌1筝羈茱水 749 919 1049 1319 1449 1619 1749 +羌1筝茱翠≦ 749 919 1049 1319 1449 1619 1749 +羌1筝ゃ泣若鴻祉潟帥若水 749 919 1049 1319 1449 1619 1749 +羌1筝羈 749 919 1049 1319 1449 1619 1749 +羌1筝掩2筝 749 919 1049 1319 1449 1619 1749 +羌1筝ョ 749 919 1049 1319 1449 1619 1749 +羌1筝級≦ 749 919 1049 1319 1449 1619 1749 +羌1筝絮若 749 919 1049 1319 1449 1619 1749 +羌1筝筝1筝 749 919 1049 1319 1449 1619 1749 +羌1筝腮臀峨 749 919 1049 1319 1449 1619 1749 +羌1筝亥1筝 749 919 1049 1319 1449 1619 1749 +羌1筝祉潟帥弱 749 919 1049 1319 1449 1619 1749 +羌1筝絲睡 749 919 1049 1319 1449 1619 1749 +羌1筝筝3筝 749 919 1049 1319 1449 1619 1749 +羌1筝筝肴タ 749 919 1049 1319 1449 1619 1749 +羌1筝篋 749 919 1049 1319 1449 1619 1749 +羌1筝筝 749 919 1049 1319 1449 1619 1749 +羌1筝延賢 749 919 1049 1319 1449 1619 1749 +羌1筝羂顔 749 919 1049 1319 1449 1619 1749 +羌1筝ゅ頑胼霛祉潟帥弱 749 919 1049 1319 1449 1619 1749 +羌1筝怨ぇ2筝 749 919 1049 1319 1449 1619 1749 +羌1筝上潟ャｉ牙純祉潟帥弱 749 919 1049 1319 1449 1619 1749 +羌1筝篋九3筝 749 919 1049 1319 1449 1619 1749 +羌1筝篋九6筝 749 919 1049 1319 1449 1619 1749 +羌1筝筝∞晶 749 919 1049 1319 1449 1619 1749 +羌1筝紙 749 919 1049 1319 1449 1619 1749 +羌1筝ユ羌欠 749 919 1049 1319 1449 1619 1749 +羌1筝坂困 749 919 1049 1319 1449 1619 1749 +羌1筝帥2筝 749 919 1049 1319 1449 1619 1749 +羌1筝帥1筝 749 919 1049 1319 1449 1619 1749 +羌1筝篋九灸梢絮 749 919 1049 1319 1449 1619 1749 +羌1筝医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 +羌1筝医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 +羌1筝絮怨 749 919 1049 1319 1449 1619 1749 +羌1筝絽綵号茱 749 919 1049 1319 1449 1619 1749 +羌1筝筝 749 919 1049 1319 1449 1619 1749 + +羌2筝亥 752 922 1052 1322 1452 1622 1752 +羌2筝薈怨遺 752 922 1052 1322 1452 1622 1752 +羌2筝薈怨 752 922 1052 1322 1452 1622 1752 +羌2筝 752 922 1052 1322 1452 1622 1752 +羌2筝羈茱水 752 922 1052 1322 1452 1622 1752 +羌2筝茱翠≦ 752 922 1052 1322 1452 1622 1752 +羌2筝ゃ泣若鴻祉潟帥若水 752 922 1052 1322 1452 1622 1752 +羌2筝羈 752 922 1052 1322 1452 1622 1752 +羌2筝掩2筝 752 922 1052 1322 1452 1622 1752 +羌2筝ョ 752 922 1052 1322 1452 1622 1752 +羌2筝級≦ 752 922 1052 1322 1452 1622 1752 +羌2筝絮若 752 922 1052 1322 1452 1622 1752 +羌2筝筝1筝 752 922 1052 1322 1452 1622 1752 +羌2筝腮臀峨 752 922 1052 1322 1452 1622 1752 +羌2筝亥1筝 752 922 1052 1322 1452 1622 1752 +羌2筝祉潟帥弱 752 922 1052 1322 1452 1622 1752 +羌2筝絲睡 752 922 1052 1322 1452 1622 1752 +羌2筝筝3筝 752 922 1052 1322 1452 1622 1752 +羌2筝筝肴タ 752 922 1052 1322 1452 1622 1752 +羌2筝篋 752 922 1052 1322 1452 1622 1752 +羌2筝筝 752 922 1052 1322 1452 1622 1752 +羌2筝延賢 752 922 1052 1322 1452 1622 1752 +羌2筝羂顔 752 922 1052 1322 1452 1622 1752 +羌2筝ゅ頑胼霛祉潟帥弱 752 922 1052 1322 1452 1622 1752 +羌2筝怨ぇ2筝 752 922 1052 1322 1452 1622 1752 +羌2筝上潟ャｉ牙純祉潟帥弱 752 922 1052 1322 1452 1622 1752 +羌2筝篋九3筝 752 922 1052 1322 1452 1622 1752 +羌2筝篋九6筝 752 922 1052 1322 1452 1622 1752 +羌2筝筝∞晶 752 922 1052 1322 1452 1622 1752 +羌2筝紙 752 922 1052 1322 1452 1622 1752 +羌2筝ユ羌欠 752 922 1052 1322 1452 1622 1752 +羌2筝坂困 752 922 1052 1322 1452 1622 1752 +羌2筝帥2筝 752 922 1052 1322 1452 1622 1752 +羌2筝帥1筝 752 922 1052 1322 1452 1622 1752 +羌2筝篋九灸梢絮 752 922 1052 1322 1452 1622 1752 +羌2筝医紫祉潟帥弱 752 922 1052 1322 1452 1622 1752 +羌2筝医紫祉潟帥弱 752 922 1052 1322 1452 1622 1752 +羌2筝絮怨 752 922 1052 1322 1452 1622 1752 +羌2筝絽綵号茱 752 922 1052 1322 1452 1622 1752 +羌2筝筝 752 922 1052 1322 1452 1622 1752 + +亥咲怨遺 754 924 1054 1324 1454 1624 1754 +亥咲怨 754 924 1054 1324 1454 1624 1754 +亥阪 754 924 1054 1324 1454 1624 1754 +亥堺茱水 754 924 1054 1324 1454 1624 1754 +亥肴タ蕭≦ 754 924 1054 1324 1454 1624 1754 +亥冴ゃ泣若鴻祉潟帥若水 754 924 1054 1324 1454 1624 1754 +亥堺 754 924 1054 1324 1454 1624 1754 +亥堺掩2筝 754 924 1054 1324 1454 1624 1754 +亥阪ョ 754 924 1054 1324 1454 1624 1754 +亥阪級≦ 754 924 1054 1324 1454 1624 1754 +亥阪若 754 924 1054 1324 1454 1624 1754 +亥阪筝1筝 754 924 1054 1324 1454 1624 1754 +亥榊臀峨 754 924 1054 1324 1454 1624 1754 +亥阪亥1筝 754 924 1054 1324 1454 1624 1754 +亥堺祉潟帥弱 754 924 1054 1324 1454 1624 1754 +亥阪睡 754 924 1054 1324 1454 1624 1754 +亥坂賢3筝 754 924 1054 1324 1454 1624 1754 +亥坂賢肴タ 754 924 1054 1324 1454 1624 1754 +亥坂 754 924 1054 1324 1454 1624 1754 +亥坂 754 924 1054 1324 1454 1624 1754 +亥堺延賢 754 924 1054 1324 1454 1624 1754 +亥堺梓 754 924 1054 1324 1454 1624 1754 +亥阪ゅ頑胼霛祉潟帥弱 754 924 1054 1324 1454 1624 1754 +亥堺怨ぇ2筝 754 924 1054 1324 1454 1624 1754 +亥堺上潟ャｉ牙純祉潟帥弱 754 924 1054 1324 1454 1624 1754 +亥坂九3筝 754 924 1054 1324 1454 1624 1754 +亥坂九6筝 754 924 1054 1324 1454 1624 1754 +亥坂検臂順 754 924 1054 1324 1454 1624 1754 +亥冴紙 754 924 1054 1324 1454 1624 1754 +亥堺ユ羌欠 754 924 1054 1324 1454 1624 1754 +亥冴坂困 754 924 1054 1324 1454 1624 1754 +亥冴帥2筝 754 924 1054 1324 1454 1624 1754 +亥冴帥1筝 754 924 1054 1324 1454 1624 1754 +亥坂九灸梢絮 754 924 1054 1324 1454 1624 1754 +亥咲医紫祉潟帥弱 754 924 1054 1324 1454 1624 1754 +亥咲医紫祉潟帥弱 754 924 1054 1324 1454 1624 1754 +亥阪臼絮 754 924 1054 1324 1454 1624 1754 +亥阪綵号茱 754 924 1054 1324 1454 1624 1754 +亥坂賢 754 924 1054 1324 1454 1624 1754 + +薈怨遺薈怨 755 925 1055 1325 1455 1625 1755 +薈怨遺 755 925 1055 1325 1455 1625 1755 +薈怨遺羈茱水 755 925 1055 1325 1455 1625 1755 +薈怨遺茱翠≦ 755 925 1055 1325 1455 1625 1755 +薈怨遺ゃ泣若鴻祉潟帥若水 755 925 1055 1325 1455 1625 1755 +薈怨遺羈 755 925 1055 1325 1455 1625 1755 +薈怨遺掩2筝 755 925 1055 1325 1455 1625 1755 +薈怨遺ョ 755 925 1055 1325 1455 1625 1755 +薈怨遺級≦ 755 925 1055 1325 1455 1625 1755 +薈怨遺絮若 755 925 1055 1325 1455 1625 1755 +薈怨遺筝1筝 755 925 1055 1325 1455 1625 1755 +薈怨遺腮臀峨 755 925 1055 1325 1455 1625 1755 +薈怨遺亥1筝 755 925 1055 1325 1455 1625 1755 +薈怨遺祉潟帥弱 755 925 1055 1325 1455 1625 1755 +薈怨遺絲睡 755 925 1055 1325 1455 1625 1755 +薈怨遺筝3筝 755 925 1055 1325 1455 1625 1755 +薈怨遺筝肴タ 755 925 1055 1325 1455 1625 1755 +薈怨遺篋 755 925 1055 1325 1455 1625 1755 +薈怨遺筝 755 925 1055 1325 1455 1625 1755 +薈怨遺延賢 755 925 1055 1325 1455 1625 1755 +薈怨遺羂顔 755 925 1055 1325 1455 1625 1755 +薈怨遺ゅ頑胼霛祉潟帥弱 755 925 1055 1325 1455 1625 1755 +薈怨遺怨ぇ2筝 755 925 1055 1325 1455 1625 1755 +薈怨遺上潟ャｉ牙純祉潟帥弱 755 925 1055 1325 1455 1625 1755 +薈怨遺篋九3筝 755 925 1055 1325 1455 1625 1755 +薈怨遺篋九6筝 755 925 1055 1325 1455 1625 1755 +薈怨遺筝∞晶 755 925 1055 1325 1455 1625 1755 +薈怨遺紙 755 925 1055 1325 1455 1625 1755 +薈怨遺ユ羌欠 755 925 1055 1325 1455 1625 1755 +薈怨遺坂困 755 925 1055 1325 1455 1625 1755 +薈怨遺帥2筝 755 925 1055 1325 1455 1625 1755 +薈怨遺帥1筝 755 925 1055 1325 1455 1625 1755 +薈怨遺篋九灸梢絮 755 925 1055 1325 1455 1625 1755 +薈怨遺医紫祉潟帥弱 755 925 1055 1325 1455 1625 1755 +薈怨遺医紫祉潟帥弱 755 925 1055 1325 1455 1625 1755 +薈怨遺絮怨 755 925 1055 1325 1455 1625 1755 +薈怨遺絽綵号茱 755 925 1055 1325 1455 1625 1755 +薈怨遺筝 755 925 1055 1325 1455 1625 1755 + +薈怨 756 926 1056 1326 1456 1626 1756 +薈怨羈茱水 756 926 1056 1326 1456 1626 1756 +薈怨茱翠≦ 756 926 1056 1326 1456 1626 1756 +薈怨ゃ泣若鴻祉潟帥若水 756 926 1056 1326 1456 1626 1756 +薈怨羈 756 926 1056 1326 1456 1626 1756 +薈怨掩2筝 756 926 1056 1326 1456 1626 1756 +薈怨ョ 756 926 1056 1326 1456 1626 1756 +薈怨級≦ 756 926 1056 1326 1456 1626 1756 +薈怨絮若 756 926 1056 1326 1456 1626 1756 +薈怨筝1筝 756 926 1056 1326 1456 1626 1756 +薈怨腮臀峨 756 926 1056 1326 1456 1626 1756 +薈怨亥1筝 756 926 1056 1326 1456 1626 1756 +薈怨祉潟帥弱 756 926 1056 1326 1456 1626 1756 +薈怨絲睡 756 926 1056 1326 1456 1626 1756 +薈怨筝3筝 756 926 1056 1326 1456 1626 1756 +薈怨筝肴タ 756 926 1056 1326 1456 1626 1756 +薈怨篋 756 926 1056 1326 1456 1626 1756 +薈怨筝 756 926 1056 1326 1456 1626 1756 +薈怨延賢 756 926 1056 1326 1456 1626 1756 +薈怨羂顔 756 926 1056 1326 1456 1626 1756 +薈怨ゅ頑胼霛祉潟帥弱 756 926 1056 1326 1456 1626 1756 +薈怨怨ぇ2筝 756 926 1056 1326 1456 1626 1756 +薈怨上潟ャｉ牙純祉潟帥弱 756 926 1056 1326 1456 1626 1756 +薈怨篋九3筝 756 926 1056 1326 1456 1626 1756 +薈怨篋九6筝 756 926 1056 1326 1456 1626 1756 +薈怨筝∞晶 756 926 1056 1326 1456 1626 1756 +薈怨紙 756 926 1056 1326 1456 1626 1756 +薈怨ユ羌欠 756 926 1056 1326 1456 1626 1756 +薈怨坂困 756 926 1056 1326 1456 1626 1756 +薈怨帥2筝 756 926 1056 1326 1456 1626 1756 +薈怨帥1筝 756 926 1056 1326 1456 1626 1756 +薈怨篋九灸梢絮 756 926 1056 1326 1456 1626 1756 +薈怨医紫祉潟帥弱 756 926 1056 1326 1456 1626 1756 +薈怨医紫祉潟帥弱 756 926 1056 1326 1456 1626 1756 +薈怨絮怨 756 926 1056 1326 1456 1626 1756 +薈怨絽綵号茱 756 926 1056 1326 1456 1626 1756 +薈怨筝 756 926 1056 1326 1456 1626 1756 + +羈茱水 757 927 1057 1327 1457 1627 1757 +茱翠≦ 757 927 1057 1327 1457 1627 1757 +ゃ泣若鴻祉潟帥若水 757 927 1057 1327 1457 1627 1757 +羈 757 927 1057 1327 1457 1627 1757 +掩2筝 757 927 1057 1327 1457 1627 1757 +ョ 757 927 1057 1327 1457 1627 1757 +級≦ 757 927 1057 1327 1457 1627 1757 +絮若 757 927 1057 1327 1457 1627 1757 +筝1筝 757 927 1057 1327 1457 1627 1757 +腮臀峨 757 927 1057 1327 1457 1627 1757 +亥1筝 757 927 1057 1327 1457 1627 1757 +祉潟帥弱 757 927 1057 1327 1457 1627 1757 +絲睡 757 927 1057 1327 1457 1627 1757 +筝3筝 757 927 1057 1327 1457 1627 1757 +筝肴タ 757 927 1057 1327 1457 1627 1757 +篋 757 927 1057 1327 1457 1627 1757 +筝 757 927 1057 1327 1457 1627 1757 +延賢 757 927 1057 1327 1457 1627 1757 +羂顔 757 927 1057 1327 1457 1627 1757 +ゅ頑胼霛祉潟帥弱 757 927 1057 1327 1457 1627 1757 +怨ぇ2筝 757 927 1057 1327 1457 1627 1757 +上潟ャｉ牙純祉潟帥弱 757 927 1057 1327 1457 1627 1757 +篋九3筝 757 927 1057 1327 1457 1627 1757 +篋九6筝 757 927 1057 1327 1457 1627 1757 +筝∞晶 757 927 1057 1327 1457 1627 1757 +紙 757 927 1057 1327 1457 1627 1757 +ユ羌欠 757 927 1057 1327 1457 1627 1757 +坂困 757 927 1057 1327 1457 1627 1757 +帥2筝 757 927 1057 1327 1457 1627 1757 +帥1筝 757 927 1057 1327 1457 1627 1757 +篋九灸梢絮 757 927 1057 1327 1457 1627 1757 +医紫祉潟帥弱 757 927 1057 1327 1457 1627 1757 +医紫祉潟帥弱 757 927 1057 1327 1457 1627 1757 +絮怨 757 927 1057 1327 1457 1627 1757 +絽綵号茱 757 927 1057 1327 1457 1627 1757 +筝 757 927 1057 1327 1457 1627 1757 + +羈茱水茱翠≦ 758 928 1058 1328 1458 1628 1758 +羈茱水ゃ泣若鴻祉潟帥若水 758 928 1058 1328 1458 1628 1758 +羈茱水羈 758 928 1058 1328 1458 1628 1758 +羈茱水掩2筝 758 928 1058 1328 1458 1628 1758 +羈茱水ョ 758 928 1058 1328 1458 1628 1758 +羈茱水級≦ 758 928 1058 1328 1458 1628 1758 +羈茱水絮若 758 928 1058 1328 1458 1628 1758 +羈茱水筝1筝 758 928 1058 1328 1458 1628 1758 +羈茱水腮臀峨 758 928 1058 1328 1458 1628 1758 +羈茱水亥1筝 758 928 1058 1328 1458 1628 1758 +羈茱水祉潟帥弱 758 928 1058 1328 1458 1628 1758 +羈茱水絲睡 758 928 1058 1328 1458 1628 1758 +羈茱水筝3筝 758 928 1058 1328 1458 1628 1758 +羈茱水筝肴タ 758 928 1058 1328 1458 1628 1758 +羈茱水篋 758 928 1058 1328 1458 1628 1758 +羈茱水筝 758 928 1058 1328 1458 1628 1758 +羈茱水延賢 758 928 1058 1328 1458 1628 1758 +羈茱水羂顔 758 928 1058 1328 1458 1628 1758 +羈茱水ゅ頑胼霛祉潟帥弱 758 928 1058 1328 1458 1628 1758 +羈茱水怨ぇ2筝 758 928 1058 1328 1458 1628 1758 +羈茱水上潟ャｉ牙純祉潟帥弱 758 928 1058 1328 1458 1628 1758 +羈茱水篋九3筝 758 928 1058 1328 1458 1628 1758 +羈茱水篋九6筝 758 928 1058 1328 1458 1628 1758 +羈茱水筝∞晶 758 928 1058 1328 1458 1628 1758 +羈茱水紙 758 928 1058 1328 1458 1628 1758 +羈茱水ユ羌欠 758 928 1058 1328 1458 1628 1758 +羈茱水坂困 758 928 1058 1328 1458 1628 1758 +羈茱水帥2筝 758 928 1058 1328 1458 1628 1758 +羈茱水帥1筝 758 928 1058 1328 1458 1628 1758 +羈茱水篋九灸梢絮 758 928 1058 1328 1458 1628 1758 +羈茱水医紫祉潟帥弱 758 928 1058 1328 1458 1628 1758 +羈茱水医紫祉潟帥弱 758 928 1058 1328 1458 1628 1758 +羈茱水絮怨 758 928 1058 1328 1458 1628 1758 +羈茱水絽綵号茱 758 928 1058 1328 1458 1628 1758 +羈茱水筝 758 928 1058 1328 1458 1628 1758 + +茱翠≦ゃ泣若鴻祉潟帥若水 759 929 1059 1329 1459 1629 1759 +茱翠≦羈 759 929 1059 1329 1459 1629 1759 +茱翠≦掩2筝 759 929 1059 1329 1459 1629 1759 +茱翠≦ョ 759 929 1059 1329 1459 1629 1759 +茱翠≦級≦ 759 929 1059 1329 1459 1629 1759 +茱翠≦絮若 759 929 1059 1329 1459 1629 1759 +茱翠≦筝1筝 759 929 1059 1329 1459 1629 1759 +茱翠≦腮臀峨 759 929 1059 1329 1459 1629 1759 +茱翠≦亥1筝 759 929 1059 1329 1459 1629 1759 +茱翠≦祉潟帥弱 759 929 1059 1329 1459 1629 1759 +茱翠≦絲睡 759 929 1059 1329 1459 1629 1759 +茱翠≦筝3筝 759 929 1059 1329 1459 1629 1759 +茱翠≦筝肴タ 759 929 1059 1329 1459 1629 1759 +茱翠≦篋 759 929 1059 1329 1459 1629 1759 +茱翠≦筝 759 929 1059 1329 1459 1629 1759 +茱翠≦延賢 759 929 1059 1329 1459 1629 1759 +茱翠≦羂顔 759 929 1059 1329 1459 1629 1759 +茱翠≦ゅ頑胼霛祉潟帥弱 759 929 1059 1329 1459 1629 1759 +茱翠≦怨ぇ2筝 759 929 1059 1329 1459 1629 1759 +茱翠≦上潟ャｉ牙純祉潟帥弱 759 929 1059 1329 1459 1629 1759 +茱翠≦篋九3筝 759 929 1059 1329 1459 1629 1759 +茱翠≦篋九6筝 759 929 1059 1329 1459 1629 1759 +茱翠≦筝∞晶 759 929 1059 1329 1459 1629 1759 +茱翠≦紙 759 929 1059 1329 1459 1629 1759 +茱翠≦ユ羌欠 759 929 1059 1329 1459 1629 1759 +茱翠≦坂困 759 929 1059 1329 1459 1629 1759 +茱翠≦帥2筝 759 929 1059 1329 1459 1629 1759 +茱翠≦帥1筝 759 929 1059 1329 1459 1629 1759 +茱翠≦篋九灸梢絮 759 929 1059 1329 1459 1629 1759 +茱翠≦医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 +茱翠≦医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 +茱翠≦絮怨 759 929 1059 1329 1459 1629 1759 +茱翠≦絽綵号茱 759 929 1059 1329 1459 1629 1759 +茱翠≦筝 759 929 1059 1329 1459 1629 1759 + +ゃ泣若鴻祉潟帥若水羈 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水掩2筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水ョ 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水級≦ 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水絮若 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水筝1筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水腮臀峨 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水亥1筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水祉潟帥弱 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水絲睡 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水筝3筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水筝肴タ 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水篋 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水延賢 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水羂顔 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水ゅ頑胼霛祉潟帥弱 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水怨ぇ2筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水上潟ャｉ牙純祉潟帥弱 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水篋九3筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水篋九6筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水筝∞晶 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水紙 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水ユ羌欠 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水坂困 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水帥2筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水帥1筝 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水篋九灸梢絮 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水絮怨 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水絽綵号茱 759 929 1059 1329 1459 1629 1759 +ゃ泣若鴻祉潟帥若水筝 759 929 1059 1329 1459 1629 1759 + +羈掩2筝 800 930 1100 1330 1500 1630 1800 +羈ョ 800 930 1100 1330 1500 1630 1800 +羈級≦ 800 930 1100 1330 1500 1630 1800 +羈絮若 800 930 1100 1330 1500 1630 1800 +羈筝1筝 800 930 1100 1330 1500 1630 1800 +羈腮臀峨 800 930 1100 1330 1500 1630 1800 +羈亥1筝 800 930 1100 1330 1500 1630 1800 +羈祉潟帥弱 800 930 1100 1330 1500 1630 1800 +羈絲睡 800 930 1100 1330 1500 1630 1800 +羈筝3筝 800 930 1100 1330 1500 1630 1800 +羈筝肴タ 800 930 1100 1330 1500 1630 1800 +羈篋 800 930 1100 1330 1500 1630 1800 +羈筝 800 930 1100 1330 1500 1630 1800 +羈延賢 800 930 1100 1330 1500 1630 1800 +羈羂顔 800 930 1100 1330 1500 1630 1800 +羈ゅ頑胼霛祉潟帥弱 800 930 1100 1330 1500 1630 1800 +羈怨ぇ2筝 800 930 1100 1330 1500 1630 1800 +羈上潟ャｉ牙純祉潟帥弱 800 930 1100 1330 1500 1630 1800 +羈篋九3筝 800 930 1100 1330 1500 1630 1800 +羈篋九6筝 800 930 1100 1330 1500 1630 1800 +羈筝∞晶 800 930 1100 1330 1500 1630 1800 +羈紙 800 930 1100 1330 1500 1630 1800 +羈ユ羌欠 800 930 1100 1330 1500 1630 1800 +羈坂困 800 930 1100 1330 1500 1630 1800 +羈帥2筝 800 930 1100 1330 1500 1630 1800 +羈帥1筝 800 930 1100 1330 1500 1630 1800 +羈篋九灸梢絮 800 930 1100 1330 1500 1630 1800 +羈医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 +羈医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 +羈絮怨 800 930 1100 1330 1500 1630 1800 +羈絽綵号茱 800 930 1100 1330 1500 1630 1800 +羈筝 800 930 1100 1330 1500 1630 1800 + +掩2筝ョ 800 930 1100 1330 1500 1630 1800 +掩2筝級≦ 800 930 1100 1330 1500 1630 1800 +掩2筝絮若 800 930 1100 1330 1500 1630 1800 +掩2筝筝1筝 800 930 1100 1330 1500 1630 1800 +掩2筝腮臀峨 800 930 1100 1330 1500 1630 1800 +掩2筝亥1筝 800 930 1100 1330 1500 1630 1800 +掩2筝祉潟帥弱 800 930 1100 1330 1500 1630 1800 +掩2筝絲睡 800 930 1100 1330 1500 1630 1800 +掩2筝筝3筝 800 930 1100 1330 1500 1630 1800 +掩2筝筝肴タ 800 930 1100 1330 1500 1630 1800 +掩2筝篋 800 930 1100 1330 1500 1630 1800 +掩2筝筝 800 930 1100 1330 1500 1630 1800 +掩2筝延賢 800 930 1100 1330 1500 1630 1800 +掩2筝羂顔 800 930 1100 1330 1500 1630 1800 +掩2筝ゅ頑胼霛祉潟帥弱 800 930 1100 1330 1500 1630 1800 +掩2筝怨ぇ2筝 800 930 1100 1330 1500 1630 1800 +掩2筝上潟ャｉ牙純祉潟帥弱 800 930 1100 1330 1500 1630 1800 +掩2筝篋九3筝 800 930 1100 1330 1500 1630 1800 +掩2筝篋九6筝 800 930 1100 1330 1500 1630 1800 +掩2筝筝∞晶 800 930 1100 1330 1500 1630 1800 +掩2筝紙 800 930 1100 1330 1500 1630 1800 +掩2筝ユ羌欠 800 930 1100 1330 1500 1630 1800 +掩2筝坂困 800 930 1100 1330 1500 1630 1800 +掩2筝帥2筝 800 930 1100 1330 1500 1630 1800 +掩2筝帥1筝 800 930 1100 1330 1500 1630 1800 +掩2筝篋九灸梢絮 800 930 1100 1330 1500 1630 1800 +掩2筝医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 +掩2筝医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 +掩2筝絮怨 800 930 1100 1330 1500 1630 1800 +掩2筝絽綵号茱 800 930 1100 1330 1500 1630 1800 +掩2筝筝 800 930 1100 1330 1500 1630 1800 + +ョ阪級≦ 803 933 1103 1333 1503 1633 1803 +ョ阪若 803 933 1103 1333 1503 1633 1803 +ョ阪筝1筝 803 933 1103 1333 1503 1633 1803 +ョ榊臀峨 803 933 1103 1333 1503 1633 1803 +ョ阪亥1筝 803 933 1103 1333 1503 1633 1803 +ョ堺祉潟帥弱 803 933 1103 1333 1503 1633 1803 +ョ阪睡 803 933 1103 1333 1503 1633 1803 +ョ坂賢3筝 803 933 1103 1333 1503 1633 1803 +ョ坂賢肴タ 803 933 1103 1333 1503 1633 1803 +ョ坂 803 933 1103 1333 1503 1633 1803 +ョ坂 803 933 1103 1333 1503 1633 1803 +ョ堺延賢 803 933 1103 1333 1503 1633 1803 +ョ堺梓 803 933 1103 1333 1503 1633 1803 +ョ阪ゅ頑胼霛祉潟帥弱 803 933 1103 1333 1503 1633 1803 +ョ堺怨ぇ2筝 803 933 1103 1333 1503 1633 1803 +ョ堺上潟ャｉ牙純祉潟帥弱 803 933 1103 1333 1503 1633 1803 +ョ坂九3筝 803 933 1103 1333 1503 1633 1803 +ョ坂九6筝 803 933 1103 1333 1503 1633 1803 +ョ坂検臂順 803 933 1103 1333 1503 1633 1803 +ョ冴紙 803 933 1103 1333 1503 1633 1803 +ョ堺ユ羌欠 803 933 1103 1333 1503 1633 1803 +ョ冴坂困 803 933 1103 1333 1503 1633 1803 +ョ冴帥2筝 803 933 1103 1333 1503 1633 1803 +ョ冴帥1筝 803 933 1103 1333 1503 1633 1803 +ョ坂九灸梢絮 803 933 1103 1333 1503 1633 1803 +ョ咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 +ョ咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 +ョ阪臼絮 803 933 1103 1333 1503 1633 1803 +ョ阪綵号茱 803 933 1103 1333 1503 1633 1803 +ョ坂賢 803 933 1103 1333 1503 1633 1803 + +級≦絮若 804 934 1104 1334 1504 1634 1804 +級≦筝1筝 804 934 1104 1334 1504 1634 1804 +級≦腮臀峨 804 934 1104 1334 1504 1634 1804 +級≦亥1筝 804 934 1104 1334 1504 1634 1804 +級≦祉潟帥弱 804 934 1104 1334 1504 1634 1804 +級≦絲睡 804 934 1104 1334 1504 1634 1804 +級≦筝3筝 804 934 1104 1334 1504 1634 1804 +級≦筝肴タ 804 934 1104 1334 1504 1634 1804 +級≦篋 804 934 1104 1334 1504 1634 1804 +級≦筝 804 934 1104 1334 1504 1634 1804 +級≦延賢 804 934 1104 1334 1504 1634 1804 +級≦羂顔 804 934 1104 1334 1504 1634 1804 +級≦ゅ頑胼霛祉潟帥弱 804 934 1104 1334 1504 1634 1804 +級≦怨ぇ2筝 804 934 1104 1334 1504 1634 1804 +級≦上潟ャｉ牙純祉潟帥弱 804 934 1104 1334 1504 1634 1804 +級≦篋九3筝 804 934 1104 1334 1504 1634 1804 +級≦篋九6筝 804 934 1104 1334 1504 1634 1804 +級≦筝∞晶 804 934 1104 1334 1504 1634 1804 +級≦紙 804 934 1104 1334 1504 1634 1804 +級≦ユ羌欠 804 934 1104 1334 1504 1634 1804 +級≦坂困 804 934 1104 1334 1504 1634 1804 +級≦帥2筝 804 934 1104 1334 1504 1634 1804 +級≦帥1筝 804 934 1104 1334 1504 1634 1804 +級≦篋九灸梢絮 804 934 1104 1334 1504 1634 1804 +級≦医紫祉潟帥弱 804 934 1104 1334 1504 1634 1804 +級≦医紫祉潟帥弱 804 934 1104 1334 1504 1634 1804 +級≦絮怨 804 934 1104 1334 1504 1634 1804 +級≦絽綵号茱 804 934 1104 1334 1504 1634 1804 +級≦筝 804 934 1104 1334 1504 1634 1804 + +絮若筝1筝 805 935 1105 1335 1505 1635 1805 +絮若腮臀峨 805 935 1105 1335 1505 1635 1805 +絮若亥1筝 805 935 1105 1335 1505 1635 1805 +絮若祉潟帥弱 805 935 1105 1335 1505 1635 1805 +絮若絲睡 805 935 1105 1335 1505 1635 1805 +絮若筝3筝 805 935 1105 1335 1505 1635 1805 +絮若筝肴タ 805 935 1105 1335 1505 1635 1805 +絮若篋 805 935 1105 1335 1505 1635 1805 +絮若筝 805 935 1105 1335 1505 1635 1805 +絮若延賢 805 935 1105 1335 1505 1635 1805 +絮若羂顔 805 935 1105 1335 1505 1635 1805 +絮若ゅ頑胼霛祉潟帥弱 805 935 1105 1335 1505 1635 1805 +絮若怨ぇ2筝 805 935 1105 1335 1505 1635 1805 +絮若上潟ャｉ牙純祉潟帥弱 805 935 1105 1335 1505 1635 1805 +絮若篋九3筝 805 935 1105 1335 1505 1635 1805 +絮若篋九6筝 805 935 1105 1335 1505 1635 1805 +絮若筝∞晶 805 935 1105 1335 1505 1635 1805 +絮若紙 805 935 1105 1335 1505 1635 1805 +絮若ユ羌欠 805 935 1105 1335 1505 1635 1805 +絮若坂困 805 935 1105 1335 1505 1635 1805 +絮若帥2筝 805 935 1105 1335 1505 1635 1805 +絮若帥1筝 805 935 1105 1335 1505 1635 1805 +絮若篋九灸梢絮 805 935 1105 1335 1505 1635 1805 +絮若医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 +絮若医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 +絮若絮怨 805 935 1105 1335 1505 1635 1805 +絮若絽綵号茱 805 935 1105 1335 1505 1635 1805 +絮若筝 805 935 1105 1335 1505 1635 1805 + +筝1筝腮臀峨 807 937 1107 1337 1507 1637 1807 +筝1筝亥1筝 807 937 1107 1337 1507 1637 1807 +筝1筝祉潟帥弱 807 937 1107 1337 1507 1637 1807 +筝1筝絲睡 807 937 1107 1337 1507 1637 1807 +筝1筝筝3筝 807 937 1107 1337 1507 1637 1807 +筝1筝筝肴タ 807 937 1107 1337 1507 1637 1807 +筝1筝篋 807 937 1107 1337 1507 1637 1807 +筝1筝筝 807 937 1107 1337 1507 1637 1807 +筝1筝延賢 807 937 1107 1337 1507 1637 1807 +筝1筝羂顔 807 937 1107 1337 1507 1637 1807 +筝1筝ゅ頑胼霛祉潟帥弱 807 937 1107 1337 1507 1637 1807 +筝1筝怨ぇ2筝 807 937 1107 1337 1507 1637 1807 +筝1筝上潟ャｉ牙純祉潟帥弱 807 937 1107 1337 1507 1637 1807 +筝1筝篋九3筝 807 937 1107 1337 1507 1637 1807 +筝1筝篋九6筝 807 937 1107 1337 1507 1637 1807 +筝1筝筝∞晶 807 937 1107 1337 1507 1637 1807 +筝1筝紙 807 937 1107 1337 1507 1637 1807 +筝1筝ユ羌欠 807 937 1107 1337 1507 1637 1807 +筝1筝坂困 807 937 1107 1337 1507 1637 1807 +筝1筝帥2筝 807 937 1107 1337 1507 1637 1807 +筝1筝帥1筝 807 937 1107 1337 1507 1637 1807 +筝1筝篋九灸梢絮 807 937 1107 1337 1507 1637 1807 +筝1筝医紫祉潟帥弱 807 937 1107 1337 1507 1637 1807 +筝1筝医紫祉潟帥弱 807 937 1107 1337 1507 1637 1807 +筝1筝絮怨 807 937 1107 1337 1507 1637 1807 +筝1筝絽綵号茱 807 937 1107 1337 1507 1637 1807 +筝1筝筝 807 937 1107 1337 1507 1637 1807 + +腮臀峨亥1筝 808 938 1108 1338 1508 1638 1808 +腮臀峨祉潟帥弱 808 938 1108 1338 1508 1638 1808 +腮臀峨絲睡 808 938 1108 1338 1508 1638 1808 +腮臀峨筝3筝 808 938 1108 1338 1508 1638 1808 +腮臀峨筝肴タ 808 938 1108 1338 1508 1638 1808 +腮臀峨篋 808 938 1108 1338 1508 1638 1808 +腮臀峨筝 808 938 1108 1338 1508 1638 1808 +腮臀峨延賢 808 938 1108 1338 1508 1638 1808 +腮臀峨羂顔 808 938 1108 1338 1508 1638 1808 +腮臀峨ゅ頑胼霛祉潟帥弱 808 938 1108 1338 1508 1638 1808 +腮臀峨怨ぇ2筝 808 938 1108 1338 1508 1638 1808 +腮臀峨上潟ャｉ牙純祉潟帥弱 808 938 1108 1338 1508 1638 1808 +腮臀峨篋九3筝 808 938 1108 1338 1508 1638 1808 +腮臀峨篋九6筝 808 938 1108 1338 1508 1638 1808 +腮臀峨筝∞晶 808 938 1108 1338 1508 1638 1808 +腮臀峨紙 808 938 1108 1338 1508 1638 1808 +腮臀峨ユ羌欠 808 938 1108 1338 1508 1638 1808 +腮臀峨坂困 808 938 1108 1338 1508 1638 1808 +腮臀峨帥2筝 808 938 1108 1338 1508 1638 1808 +腮臀峨帥1筝 808 938 1108 1338 1508 1638 1808 +腮臀峨篋九灸梢絮 808 938 1108 1338 1508 1638 1808 +腮臀峨医紫祉潟帥弱 808 938 1108 1338 1508 1638 1808 +腮臀峨医紫祉潟帥弱 808 938 1108 1338 1508 1638 1808 +腮臀峨絮怨 808 938 1108 1338 1508 1638 1808 +腮臀峨絽綵号茱 808 938 1108 1338 1508 1638 1808 +腮臀峨筝 808 938 1108 1338 1508 1638 1808 + +亥1筝祉潟帥弱 809 939 1109 1339 1509 1639 1809 +亥1筝絲睡 809 939 1109 1339 1509 1639 1809 +亥1筝筝3筝 809 939 1109 1339 1509 1639 1809 +亥1筝筝肴タ 809 939 1109 1339 1509 1639 1809 +亥1筝篋 809 939 1109 1339 1509 1639 1809 +亥1筝筝 809 939 1109 1339 1509 1639 1809 +亥1筝延賢 809 939 1109 1339 1509 1639 1809 +亥1筝羂顔 809 939 1109 1339 1509 1639 1809 +亥1筝ゅ頑胼霛祉潟帥弱 809 939 1109 1339 1509 1639 1809 +亥1筝怨ぇ2筝 809 939 1109 1339 1509 1639 1809 +亥1筝上潟ャｉ牙純祉潟帥弱 809 939 1109 1339 1509 1639 1809 +亥1筝篋九3筝 809 939 1109 1339 1509 1639 1809 +亥1筝篋九6筝 809 939 1109 1339 1509 1639 1809 +亥1筝筝∞晶 809 939 1109 1339 1509 1639 1809 +亥1筝紙 809 939 1109 1339 1509 1639 1809 +亥1筝ユ羌欠 809 939 1109 1339 1509 1639 1809 +亥1筝坂困 809 939 1109 1339 1509 1639 1809 +亥1筝帥2筝 809 939 1109 1339 1509 1639 1809 +亥1筝帥1筝 809 939 1109 1339 1509 1639 1809 +亥1筝篋九灸梢絮 809 939 1109 1339 1509 1639 1809 +亥1筝医紫祉潟帥弱 809 939 1109 1339 1509 1639 1809 +亥1筝医紫祉潟帥弱 809 939 1109 1339 1509 1639 1809 +亥1筝絮怨 809 939 1109 1339 1509 1639 1809 +亥1筝絽綵号茱 809 939 1109 1339 1509 1639 1809 +亥1筝筝 809 939 1109 1339 1509 1639 1809 + +祉潟帥弱絲睡 811 941 1111 1341 1511 1641 1811 +祉潟帥弱筝3筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱筝肴タ 811 941 1111 1341 1511 1641 1811 +祉潟帥弱篋 811 941 1111 1341 1511 1641 1811 +祉潟帥弱筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱延賢 811 941 1111 1341 1511 1641 1811 +祉潟帥弱羂顔 811 941 1111 1341 1511 1641 1811 +祉潟帥弱ゅ頑胼霛祉潟帥弱 811 941 1111 1341 1511 1641 1811 +祉潟帥弱怨ぇ2筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱上潟ャｉ牙純祉潟帥弱 811 941 1111 1341 1511 1641 1811 +祉潟帥弱篋九3筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱篋九6筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱筝∞晶 811 941 1111 1341 1511 1641 1811 +祉潟帥弱紙 811 941 1111 1341 1511 1641 1811 +祉潟帥弱ユ羌欠 811 941 1111 1341 1511 1641 1811 +祉潟帥弱坂困 811 941 1111 1341 1511 1641 1811 +祉潟帥弱帥2筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱帥1筝 811 941 1111 1341 1511 1641 1811 +祉潟帥弱篋九灸梢絮 811 941 1111 1341 1511 1641 1811 +祉潟帥弱医紫祉潟帥弱 811 941 1111 1341 1511 1641 1811 +祉潟帥弱医紫祉潟帥弱 811 941 1111 1341 1511 1641 1811 +祉潟帥弱絮怨 811 941 1111 1341 1511 1641 1811 +祉潟帥弱絽綵号茱 811 941 1111 1341 1511 1641 1811 +祉潟帥弱筝 811 941 1111 1341 1511 1641 1811 + +絲睡坂賢3筝 813 943 1113 1343 1513 1643 1813 +絲睡坂賢肴タ 813 943 1113 1343 1513 1643 1813 +絲睡坂 813 943 1113 1343 1513 1643 1813 +絲睡坂 813 943 1113 1343 1513 1643 1813 +絲睡堺延賢 813 943 1113 1343 1513 1643 1813 +絲睡堺梓 813 943 1113 1343 1513 1643 1813 +絲睡阪ゅ頑胼霛祉潟帥弱 813 943 1113 1343 1513 1643 1813 +絲睡堺怨ぇ2筝 813 943 1113 1343 1513 1643 1813 +絲睡堺上潟ャｉ牙純祉潟帥弱 813 943 1113 1343 1513 1643 1813 +絲睡坂九3筝 813 943 1113 1343 1513 1643 1813 +絲睡坂九6筝 813 943 1113 1343 1513 1643 1813 +絲睡坂検臂順 813 943 1113 1343 1513 1643 1813 +絲睡冴紙 813 943 1113 1343 1513 1643 1813 +絲睡堺ユ羌欠 813 943 1113 1343 1513 1643 1813 +絲睡冴坂困 813 943 1113 1343 1513 1643 1813 +絲睡冴帥2筝 813 943 1113 1343 1513 1643 1813 +絲睡冴帥1筝 813 943 1113 1343 1513 1643 1813 +絲睡坂九灸梢絮 813 943 1113 1343 1513 1643 1813 +絲睡咲医紫祉潟帥弱 813 943 1113 1343 1513 1643 1813 +絲睡咲医紫祉潟帥弱 813 943 1113 1343 1513 1643 1813 +絲睡阪臼絮 813 943 1113 1343 1513 1643 1813 +絲睡阪綵号茱 813 943 1113 1343 1513 1643 1813 +絲睡坂賢 813 943 1113 1343 1513 1643 1813 + +筝3筝筝肴タ 814 944 1114 1344 1514 1644 1814 +筝3筝篋 814 944 1114 1344 1514 1644 1814 +筝3筝筝 814 944 1114 1344 1514 1644 1814 +筝3筝延賢 814 944 1114 1344 1514 1644 1814 +筝3筝羂顔 814 944 1114 1344 1514 1644 1814 +筝3筝ゅ頑胼霛祉潟帥弱 814 944 1114 1344 1514 1644 1814 +筝3筝怨ぇ2筝 814 944 1114 1344 1514 1644 1814 +筝3筝上潟ャｉ牙純祉潟帥弱 814 944 1114 1344 1514 1644 1814 +筝3筝篋九3筝 814 944 1114 1344 1514 1644 1814 +筝3筝篋九6筝 814 944 1114 1344 1514 1644 1814 +筝3筝筝∞晶 814 944 1114 1344 1514 1644 1814 +筝3筝紙 814 944 1114 1344 1514 1644 1814 +筝3筝ユ羌欠 814 944 1114 1344 1514 1644 1814 +筝3筝坂困 814 944 1114 1344 1514 1644 1814 +筝3筝帥2筝 814 944 1114 1344 1514 1644 1814 +筝3筝帥1筝 814 944 1114 1344 1514 1644 1814 +筝3筝篋九灸梢絮 814 944 1114 1344 1514 1644 1814 +筝3筝医紫祉潟帥弱 814 944 1114 1344 1514 1644 1814 +筝3筝医紫祉潟帥弱 814 944 1114 1344 1514 1644 1814 +筝3筝絮怨 814 944 1114 1344 1514 1644 1814 +筝3筝絽綵号茱 814 944 1114 1344 1514 1644 1814 +筝3筝筝 814 944 1114 1344 1514 1644 1814 + +筝肴タ篋 815 945 1115 1345 1515 1645 1815 +筝肴タ筝 815 945 1115 1345 1515 1645 1815 +筝肴タ延賢 815 945 1115 1345 1515 1645 1815 +筝肴タ羂顔 815 945 1115 1345 1515 1645 1815 +筝肴タゅ頑胼霛祉潟帥弱 815 945 1115 1345 1515 1645 1815 +筝肴タ怨ぇ2筝 815 945 1115 1345 1515 1645 1815 +筝肴タ上潟ャｉ牙純祉潟帥弱 815 945 1115 1345 1515 1645 1815 +筝肴タ篋九3筝 815 945 1115 1345 1515 1645 1815 +筝肴タ篋九6筝 815 945 1115 1345 1515 1645 1815 +筝肴タ筝∞晶 815 945 1115 1345 1515 1645 1815 +筝肴タ紙 815 945 1115 1345 1515 1645 1815 +筝肴タユ羌欠 815 945 1115 1345 1515 1645 1815 +筝肴タ坂困 815 945 1115 1345 1515 1645 1815 +筝肴タ帥2筝 815 945 1115 1345 1515 1645 1815 +筝肴タ帥1筝 815 945 1115 1345 1515 1645 1815 +筝肴タ篋九灸梢絮 815 945 1115 1345 1515 1645 1815 +筝肴タ医紫祉潟帥弱 815 945 1115 1345 1515 1645 1815 +筝肴タ医紫祉潟帥弱 815 945 1115 1345 1515 1645 1815 +筝肴タ絮怨 815 945 1115 1345 1515 1645 1815 +筝肴タ絽綵号茱 815 945 1115 1345 1515 1645 1815 +筝肴タ筝 815 945 1115 1345 1515 1645 1815 + +篋坂 816 946 1116 1346 1516 1646 1816 +篋堺延賢 816 946 1116 1346 1516 1646 1816 +篋堺梓 816 946 1116 1346 1516 1646 1816 +篋阪ゅ頑胼霛祉潟帥弱 816 946 1116 1346 1516 1646 1816 +篋堺怨ぇ2筝 816 946 1116 1346 1516 1646 1816 +篋堺上潟ャｉ牙純祉潟帥弱 816 946 1116 1346 1516 1646 1816 +篋坂九3筝 816 946 1116 1346 1516 1646 1816 +篋坂九6筝 816 946 1116 1346 1516 1646 1816 +篋坂検臂順 816 946 1116 1346 1516 1646 1816 +篋冴紙 816 946 1116 1346 1516 1646 1816 +篋堺ユ羌欠 816 946 1116 1346 1516 1646 1816 +篋冴坂困 816 946 1116 1346 1516 1646 1816 +篋冴帥2筝 816 946 1116 1346 1516 1646 1816 +篋冴帥1筝 816 946 1116 1346 1516 1646 1816 +篋坂九灸梢絮 816 946 1116 1346 1516 1646 1816 +篋咲医紫祉潟帥弱 816 946 1116 1346 1516 1646 1816 +篋咲医紫祉潟帥弱 816 946 1116 1346 1516 1646 1816 +篋阪臼絮 816 946 1116 1346 1516 1646 1816 +篋阪綵号茱 816 946 1116 1346 1516 1646 1816 +篋坂賢 816 946 1116 1346 1516 1646 1816 + +筝堺延賢 817 947 1117 1347 1517 1647 1817 +筝堺梓 817 947 1117 1347 1517 1647 1817 +筝阪ゅ頑胼霛祉潟帥弱 817 947 1117 1347 1517 1647 1817 +筝堺怨ぇ2筝 817 947 1117 1347 1517 1647 1817 +筝堺上潟ャｉ牙純祉潟帥弱 817 947 1117 1347 1517 1647 1817 +筝坂九3筝 817 947 1117 1347 1517 1647 1817 +筝坂九6筝 817 947 1117 1347 1517 1647 1817 +筝坂検臂順 817 947 1117 1347 1517 1647 1817 +筝冴紙 817 947 1117 1347 1517 1647 1817 +筝堺ユ羌欠 817 947 1117 1347 1517 1647 1817 +筝冴坂困 817 947 1117 1347 1517 1647 1817 +筝冴帥2筝 817 947 1117 1347 1517 1647 1817 +筝冴帥1筝 817 947 1117 1347 1517 1647 1817 +筝坂九灸梢絮 817 947 1117 1347 1517 1647 1817 +筝咲医紫祉潟帥弱 817 947 1117 1347 1517 1647 1817 +筝咲医紫祉潟帥弱 817 947 1117 1347 1517 1647 1817 +筝阪臼絮 817 947 1117 1347 1517 1647 1817 +筝阪綵号茱 817 947 1117 1347 1517 1647 1817 +筝坂賢 817 947 1117 1347 1517 1647 1817 + +延賢ｆ梓 818 948 1118 1348 1518 1648 1818 +延賢ｅゅ頑胼霛祉潟帥弱 818 948 1118 1348 1518 1648 1818 +延賢ｆ怨ぇ2筝 818 948 1118 1348 1518 1648 1818 +延賢ｆ上潟ャｉ牙純祉潟帥弱 818 948 1118 1348 1518 1648 1818 +延賢ｄ九3筝 818 948 1118 1348 1518 1648 1818 +延賢ｄ九6筝 818 948 1118 1348 1518 1648 1818 +延賢ｄ検臂順 818 948 1118 1348 1518 1648 1818 +延賢ｃ紙 818 948 1118 1348 1518 1648 1818 +延賢ｆユ羌欠 818 948 1118 1348 1518 1648 1818 +延賢ｃ坂困 818 948 1118 1348 1518 1648 1818 +延賢ｃ帥2筝 818 948 1118 1348 1518 1648 1818 +延賢ｃ帥1筝 818 948 1118 1348 1518 1648 1818 +延賢ｄ九灸梢絮 818 948 1118 1348 1518 1648 1818 +延賢ｉ医紫祉潟帥弱 818 948 1118 1348 1518 1648 1818 +延賢ｉ医紫祉潟帥弱 818 948 1118 1348 1518 1648 1818 +延賢ｅ臼絮 818 948 1118 1348 1518 1648 1818 +延賢ｅ綵号茱 818 948 1118 1348 1518 1648 1818 +延賢ｄ賢 818 948 1118 1348 1518 1648 1818 + +羂顔ゅ頑胼霛祉潟帥弱 819 949 1119 1349 1519 1649 1819 +羂顔怨ぇ2筝 819 949 1119 1349 1519 1649 1819 +羂顔上潟ャｉ牙純祉潟帥弱 819 949 1119 1349 1519 1649 1819 +羂顔篋九3筝 819 949 1119 1349 1519 1649 1819 +羂顔篋九6筝 819 949 1119 1349 1519 1649 1819 +羂顔筝∞晶 819 949 1119 1349 1519 1649 1819 +羂顔紙 819 949 1119 1349 1519 1649 1819 +羂顔ユ羌欠 819 949 1119 1349 1519 1649 1819 +羂顔坂困 819 949 1119 1349 1519 1649 1819 +羂顔帥2筝 819 949 1119 1349 1519 1649 1819 +羂顔帥1筝 819 949 1119 1349 1519 1649 1819 +羂顔篋九灸梢絮 819 949 1119 1349 1519 1649 1819 +羂顔医紫祉潟帥弱 819 949 1119 1349 1519 1649 1819 +羂顔医紫祉潟帥弱 819 949 1119 1349 1519 1649 1819 +羂顔絮怨 819 949 1119 1349 1519 1649 1819 +羂顔絽綵号茱 819 949 1119 1349 1519 1649 1819 +羂顔筝 819 949 1119 1349 1519 1649 1819 + +ゅ頑胼霛祉潟帥弱怨ぇ2筝 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱上潟ャｉ牙純祉潟帥弱 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱篋九3筝 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱篋九6筝 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱筝∞晶 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱紙 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱ユ羌欠 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱坂困 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱帥2筝 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱帥1筝 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱篋九灸梢絮 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱医紫祉潟帥弱 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱医紫祉潟帥弱 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱絮怨 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱絽綵号茱 820 950 1120 1350 1520 1650 1820 +ゅ頑胼霛祉潟帥弱筝 820 950 1120 1350 1520 1650 1820 + +怨ぇ2筝上潟ャｉ牙純祉潟帥弱 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝篋九3筝 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝篋九6筝 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝筝∞晶 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝紙 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝ユ羌欠 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝坂困 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝帥2筝 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝帥1筝 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝篋九灸梢絮 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝医紫祉潟帥弱 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝医紫祉潟帥弱 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝絮怨 821 951 1121 1351 1521 1651 1821 +怨ぇ2筝絽綵号茱 821 951 1121 1351 1521 1651 182 +怨ぇ2筝筝 821 951 1121 1351 1521 1651 1821 + +上潟ャｉ牙純祉潟帥弱篋九3筝 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱篋九6筝 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱筝∞晶 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱紙 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱ユ羌欠 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱坂困 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱帥2筝 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱帥1筝 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱篋九灸梢絮 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱医紫祉潟帥弱 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱医紫祉潟帥弱 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱絮怨 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱絽綵号茱 822 952 1122 1352 1522 1652 1822 +上潟ャｉ牙純祉潟帥弱筝 822 952 1122 1352 1522 1652 1822 + +篋九3筝篋九6筝 823 953 1123 1353 1523 1653 1823 +篋九3筝筝∞晶 823 953 1123 1353 1523 1653 1823 +篋九3筝紙 823 953 1123 1353 1523 1653 1823 +篋九3筝ユ羌欠 823 953 1123 1353 1523 1653 1823 +篋九3筝坂困 823 953 1123 1353 1523 1653 1823 +篋九3筝帥2筝 823 953 1123 1353 1523 1653 1823 +篋九3筝帥1筝 823 953 1123 1353 1523 1653 1823 +篋九3筝篋九灸梢絮 823 953 1123 1353 1523 1653 1823 +篋九3筝医紫祉潟帥弱 823 953 1123 1353 1523 1653 1823 +篋九3筝医紫祉潟帥弱 823 953 1123 1353 1523 1653 1823 +篋九3筝絮怨 823 953 1123 1353 1523 1653 1823 +篋九3筝絽綵号茱 823 953 1123 1353 1523 1653 1823 +篋九3筝筝 823 953 1123 1353 1523 1653 1823 + +篋九6筝筝∞晶 824 954 1124 1354 1524 1654 1824 +篋九6筝紙 824 954 1124 1354 1524 1654 1824 +篋九6筝ユ羌欠 824 954 1124 1354 1524 1654 1824 +篋九6筝坂困 824 954 1124 1354 1524 1654 1824 +篋九6筝帥2筝 824 954 1124 1354 1524 1654 1824 +篋九6筝帥1筝 824 954 1124 1354 1524 1654 1824 +篋九6筝篋九灸梢絮 824 954 1124 1354 1524 1654 1824 +篋九6筝医紫祉潟帥弱 824 954 1124 1354 1524 1654 1824 +篋九6筝医紫祉潟帥弱 824 954 1124 1354 1524 1654 1824 +篋九6筝絮怨 824 954 1124 1354 1524 1654 1824 +篋九6筝絽綵号茱 824 954 1124 1354 1524 1654 1824 +篋九6筝筝 824 954 1124 1354 1524 1654 1824 + +筝∞晶冴紙 826 956 1126 1356 1526 1656 1826 +筝∞晶堺ユ羌欠 826 956 1126 1356 1526 1656 1826 +筝∞晶冴坂困 826 956 1126 1356 1526 1656 1826 +筝∞晶冴帥2筝 826 956 1126 1356 1526 1656 1826 +筝∞晶冴帥1筝 826 956 1126 1356 1526 1656 1826 +筝∞晶坂九灸梢絮 826 956 1126 1356 1526 1656 1826 +筝∞晶咲医紫祉潟帥弱 826 956 1126 1356 1526 1656 1826 +筝∞晶咲医紫祉潟帥弱 826 956 1126 1356 1526 1656 1826 +筝∞晶阪臼絮 826 956 1126 1356 1526 1656 1826 +筝∞晶坂賢 826 956 1126 1356 1526 1656 1826 + +紙ユ羌欠 828 958 1128 1358 1528 1658 1828 +紙坂困 828 958 1128 1358 1528 1658 1828 +紙帥2筝 828 958 1128 1358 1528 1658 1828 +紙帥1筝 828 958 1128 1358 1528 1658 1828 +紙篋九灸梢絮 828 958 1128 1358 1528 1658 1828 +紙医紫祉潟帥弱 828 958 1128 1358 1528 1658 1828 +紙医紫祉潟帥弱 828 958 1128 1358 1528 1658 1828 +紙絮怨 828 958 1128 1358 1528 1658 1828 +紙絽綵号茱 828 958 1128 1358 1528 1658 1828 +紙筝 828 958 1128 1358 1528 1658 1828 + +ユ羌欠≪坂困 830 1000 1130 1400 1530 1700 1830 +ユ羌欠≪帥2筝 830 1000 1130 1400 1530 1700 1830 +ユ羌欠≪帥1筝 830 1000 1130 1400 1530 1700 1830 +ユ羌欠≫九灸梢絮 830 1000 1130 1400 1530 1700 1830 +ユ羌欠∫医紫祉潟帥弱 830 1000 1130 1400 1530 1700 1830 +ユ羌欠∫医紫祉潟帥弱 830 1000 1130 1400 1530 1700 1830 +ユ羌欠√臼絮 830 1000 1130 1400 1530 1700 1830 +ユ羌欠√綵号茱 830 1000 1130 1400 1530 1700 1830 +ユ羌欠≫賢 830 1000 1130 1400 1530 1700 1830 + +坂困帥2筝 833 1003 1133 1403 1533 1703 1833 +坂困帥1筝 833 1003 1133 1403 1533 1703 1833 +坂困篋九灸梢絮 833 1003 1133 1403 1533 1703 1833 +坂困医紫祉潟帥弱 833 1003 1133 1403 1533 1703 1833 +坂困医紫祉潟帥弱 833 1003 1133 1403 1533 1703 1833 +坂困絮怨 833 1003 1133 1403 1533 1703 1833 +阪絽綵号茱 833 1003 1133 1403 1533 1703 1833 +坂困筝 833 1003 1133 1403 1533 1703 1833 + +帥2筝帥1筝 835 1005 1135 1405 1535 1705 1835 +帥2筝篋九灸梢絮 835 1005 1135 1405 1535 1705 1835 +帥2筝医紫祉潟帥弱 835 1005 1135 1405 1535 1705 1835 +帥2筝医紫祉潟帥弱 835 1005 1135 1405 1535 1705 1835 +帥2筝絮怨 835 1005 1135 1405 1535 1705 1835 +帥2筝絽綵号茱 835 1005 1135 1405 1535 1705 1835 +帥2筝筝 835 1005 1135 1405 1535 1705 1835 + +帥1筝篋九灸梢絮 836 1006 1136 1406 1536 1706 1836 +帥1筝医紫祉潟帥弱 836 1006 1136 1406 1536 1706 1836 +帥1筝医紫祉潟帥弱 836 1006 1136 1406 1536 1706 1836 +帥1筝絮怨 836 1006 1136 1406 1536 1706 1836 +帥1筝絽綵号茱 836 1006 1136 1406 1536 1706 1836 +帥1筝筝 836 1006 1136 1406 1536 1706 1836 + +篋九灸梢絮医紫祉潟帥弱 838 1008 1138 1408 1538 1708 1838 +篋九灸梢絮医紫祉潟帥弱 838 1008 1138 1408 1538 1708 1838 +篋九灸梢絮絮怨 838 1008 1138 1408 1538 1708 1838 +篋九灸梢絮絽綵号茱 838 1008 1138 1408 1538 1708 1838 +篋九灸梢絮筝 838 1008 1138 1408 1538 1708 1838 + +医紫祉潟帥弱医紫祉潟帥弱 839 1009 1139 1409 1539 1709 1839 +医紫祉潟帥弱絮怨 839 1009 1139 1409 1539 1709 1839 +医紫祉潟帥弱絽綵号茱 839 1009 1139 1409 1539 1709 1839 +医紫祉潟帥弱筝 839 1009 1139 1409 1539 1709 1839 + +医紫祉潟帥弱ｅ臼絮 840 1010 1140 1410 1540 1710 1840 +医紫祉潟帥弱ｅ綵号茱 840 1010 1140 1410 1540 1710 1840 +医紫祉潟帥弱ｄ賢 840 1010 1140 1410 1540 1710 1840 + +絮怨阪綵号茱 842 1012 1142 1412 1542 1712 1842 +絮怨坂賢 842 1012 1142 1412 1542 1712 1842 + +絽綵号茱推賢 844 1014 1144 1414 1544 1714 1844 + +育罩ｉ√ｉ育罩ｉ√ 720 1030 1335 1640 +育罩ｉ√ｅ篋ゃ帥若 720 1030 1335 1640 +育罩ｉ√ｆ 720 1030 1335 1640 +育罩ｉ√ｃ筝筝 720 1030 1335 1640 +育罩ｉ√ｈタ蕭違潟 720 1030 1335 1640 +育罩ｉ√ｃゃ泣若鴻祉潟帥若水 720 1030 1335 1640 +育罩ｉ√ｄ絎 720 1030 1335 1640 +育罩ｉ√ｄ絎 720 1030 1335 1640 +育罩ｉ√ｄ絎3筝 720 1030 1335 1640 +育罩ｉ√ｄ絎 720 1030 1335 1640 +育罩ｉ√ｆ井 720 1030 1335 1640 +育罩ｉ√ｅ井 720 1030 1335 1640 +育罩ｉ√ｅ井灸梢絮 720 1030 1335 1640 +育罩ｉ√ｆ2筝 720 1030 1335 1640 +育罩ｉ√ｆ遺峨 720 1030 1335 1640 +育罩ｉ√ｄ賢紊 720 1030 1335 1640 +育罩ｉ√ｄ賢肴タ 720 1030 1335 1640 +育罩ｉ√ｅュ嵯祉潟帥弱 720 1030 1335 1640 +育罩ｉ√ｃ羌潔絽翫 720 1030 1335 1640 +育罩ｉ√ｅ臼絮罘 720 1030 1335 1640 +育罩ｉ√ｅ臼絮綺 720 1030 1335 1640 +育罩ｉ√ｉ医紫祉潟帥弱 720 1030 1335 1640 +育罩ｉ√ｉ医紫祉潟帥弱 720 1030 1335 1640 +育罩ｉ√ｄ九4筝 720 1030 1335 1640 +育罩ｉ√ｄ九5筝 720 1030 1335 1640 +育罩ｉ√ｅ紙 720 1030 1335 1640 +育罩ｉ√ｆユ羌欠 720 1030 1335 1640 +育罩ｉ√ｃ紙 720 1030 1335 1640 +育罩ｉ√ｅ筝 720 1030 1335 1640 +育罩ｉ√ｅ罘 720 1030 1335 1640 +育罩ｉ√ｉ3筝 720 1030 1335 1640 +育罩ｉ√ｉ篆俄鎘 720 1030 1335 1640 +育罩ｉ√ｉ罍絮怨羂蕕 720 1030 1335 1640 +育罩ｉ√ｅ活綽級え 720 1030 1335 1640 +育罩ｉ√ｅぇ絖() 720 1030 1335 1640 +育罩ｉ√ｇ九ｅ医 720 1030 1335 1640 +育罩ｉ√ｅ羌灸梢絮 720 1030 1335 1640 +育罩ｉ√ｇ銀1筝 720 1030 1335 1640 +育罩ｉ√ｉ荀 720 1030 1335 1640 +育罩ｉ√ｅぇ絖() 720 1030 1335 1640 +育罩ｉ√ｅ榊晶綽蕕紫茵蕕 720 1030 1335 1640 +育罩ｉ√ｃ純絎 720 1030 1335 1640 + + +綺篋ゃ帥若羈 721 1031 1336 1641 +綺篋ゃ帥若筝筝 721 1031 1336 1641 +綺篋ゃ帥若茱翠違潟 721 1031 1336 1641 +綺篋ゃ帥若ゃ泣若鴻祉潟帥若水 721 1031 1336 1641 +綺篋ゃ帥若筝絎 721 1031 1336 1641 +綺篋ゃ帥若筝絎 721 1031 1336 1641 +綺篋ゃ帥若筝絎3筝 721 1031 1336 1641 +綺篋ゃ帥若筝絎 721 1031 1336 1641 +綺篋ゃ帥若井 721 1031 1336 1641 +綺篋ゃ帥若井 721 1031 1336 1641 +綺篋ゃ帥若井灸梢絮 721 1031 1336 1641 +綺篋ゃ帥若羌2筝 721 1031 1336 1641 +綺篋ゃ帥若羌遺峨 721 1031 1336 1641 +綺篋ゃ帥若筝紊 721 1031 1336 1641 +綺篋ゃ帥若筝肴タ 721 1031 1336 1641 +綺篋ゃ帥若ュ嵯祉潟帥弱 721 1031 1336 1641 +綺篋ゃ帥若羌潔絽翫 721 1031 1336 1641 +綺篋ゃ帥若絮怨罘 721 1031 1336 1641 +綺篋ゃ帥若絮怨綺 721 1031 1336 1641 +綺篋ゃ帥若医紫祉潟帥弱 721 1031 1336 1641 +綺篋ゃ帥若医紫祉潟帥弱 721 1031 1336 1641 +綺篋ゃ帥若篋九4筝 721 1031 1336 1641 +綺篋ゃ帥若篋九5筝 721 1031 1336 1641 +綺篋ゃ帥若紊紙 721 1031 1336 1641 +綺篋ゃ帥若ユ羌欠 721 1031 1336 1641 +綺篋ゃ帥若紙 721 1031 1336 1641 +綺篋ゃ帥若筝 721 1031 1336 1641 +綺篋ゃ帥若綏罘 721 1031 1336 1641 +綺篋ゃ帥若3筝 721 1031 1336 1641 +綺篋ゃ帥若篆俄鎘 721 1031 1336 1641 +綺篋ゃ帥若蕋罍絮怨羂蕕 721 1031 1336 1641 +綺篋ゃ帥若活綽級え 721 1031 1336 1641 +綺篋ゃ帥若紊у() 721 1031 1336 1641 +綺篋ゃ帥若九ｅ医 721 1031 1336 1641 +綺篋ゃ帥若絎羌灸梢絮 721 1031 1336 1641 +綺篋ゃ帥若膩銀1筝 721 1031 1336 1641 +綺篋ゃ帥若蕭荀 721 1031 1336 1641 +綺篋ゃ帥若紊у() 721 1031 1336 1641 +綺篋ゃ帥若榊晶綽蕕紫茵蕕 721 1031 1336 1641 +綺篋ゃ帥若純絎 721 1031 1336 1641 + +羈冴筝筝 722 1032 1337 1642 +羈肴タ蕭違潟 722 1032 1337 1642 +羈冴ゃ泣若鴻祉潟帥若水 722 1032 1337 1642 +羈坂絎 722 1032 1337 1642 +羈坂絎 722 1032 1337 1642 +羈坂絎3筝 722 1032 1337 1642 +羈坂絎 722 1032 1337 1642 +羈堺井 722 1032 1337 1642 +羈阪井 722 1032 1337 1642 +羈阪井灸梢絮 722 1032 1337 1642 +羈堺2筝 722 1032 1337 1642 +羈堺遺峨 722 1032 1337 1642 +羈坂賢紊 722 1032 1337 1642 +羈坂賢肴タ 722 1032 1337 1642 +羈阪ュ嵯祉潟帥弱 722 1032 1337 1642 +羈冴羌潔絽翫 722 1032 1337 1642 +羈阪臼絮罘 722 1032 1337 1642 +羈阪臼絮綺 722 1032 1337 1642 +羈咲医紫祉潟帥弱 722 1032 1337 1642 +羈咲医紫祉潟帥弱 722 1032 1337 1642 +羈坂九4筝 722 1032 1337 1642 +羈坂九5筝 722 1032 1337 1642 +羈阪紙 722 1032 1337 1642 +羈堺ユ羌欠 722 1032 1337 1642 +羈冴紙 722 1032 1337 1642 +羈阪筝 722 1032 1337 1642 +羈阪罘 722 1032 1337 1642 +羈咲3筝 722 1032 1337 1642 +羈咲篆俄鎘 722 1032 1337 1642 +羈咲罍絮怨羂蕕 722 1032 1337 1642 +羈阪活綽級え 722 1032 1337 1642 +羈阪ぇ絖() 722 1032 1337 1642 +羈榊九ｅ医 722 1032 1337 1642 +羈阪羌灸梢絮 722 1032 1337 1642 +羈榊銀1筝 722 1032 1337 1642 +羈咲荀 722 1032 1337 1642 +羈阪ぇ絖() 722 1032 1337 1642 +羈阪榊晶綽蕕紫茵蕕 722 1032 1337 1642 +羈冴純絎 722 1032 1337 1642 + +1筝茱翠違潟 723 1033 1338 1643 +1筝ゃ泣若鴻祉潟帥若水 723 1033 1338 1643 +1筝筝絎 723 1033 1338 1643 +1筝筝絎 723 1033 1338 1643 +1筝筝絎3筝 723 1033 1338 1643 +1筝筝絎 723 1033 1338 1643 +1筝井 723 1033 1338 1643 +1筝井 723 1033 1338 1643 +1筝井灸梢絮 723 1033 1338 1643 +1筝羌2筝 723 1033 1338 1643 +1筝羌遺峨 723 1033 1338 1643 +1筝筝紊 723 1033 1338 1643 +1筝筝肴タ 723 1033 1338 1643 +1筝ュ嵯祉潟帥弱 723 1033 1338 1643 +1筝羌潔絽翫 723 1033 1338 1643 +1筝絮怨罘 723 1033 1338 1643 +1筝絮怨綺 723 1033 1338 1643 +1筝医紫祉潟帥弱 723 1033 1338 1643 +1筝医紫祉潟帥弱 723 1033 1338 1643 +1筝篋九4筝 723 1033 1338 1643 +1筝篋九5筝 723 1033 1338 1643 +1筝紊紙 723 1033 1338 1643 +1筝ユ羌欠 723 1033 1338 1643 +1筝紙 723 1033 1338 1643 +1筝筝 723 1033 1338 1643 +1筝綏罘 723 1033 1338 1643 +1筝3筝 723 1033 1338 1643 +1筝篆俄鎘 723 1033 1338 1643 +1筝蕋罍絮怨羂蕕 723 1033 1338 1643 +1筝活綽級え 723 1033 1338 1643 +1筝紊у() 723 1033 1338 1643 +1筝九ｅ医 723 1033 1338 1643 +1筝絎羌灸梢絮 723 1033 1338 1643 +1筝膩銀1筝 723 1033 1338 1643 +1筝蕭荀 723 1033 1338 1643 +1筝紊у() 723 1033 1338 1643 +1筝榊晶綽蕕紫茵蕕 723 1033 1338 1643 +1筝純絎 723 1033 1338 1643 + +茱翠違潟ゃ泣若鴻祉潟帥若水 725 1035 1340 1645 +茱翠違潟筝絎 725 1035 1340 1645 +茱翠違潟筝絎 725 1035 1340 1645 +茱翠違潟筝絎3筝 725 1035 1340 1645 +茱翠違潟筝絎 725 1035 1340 1645 +茱翠違潟井 725 1035 1340 1645 +茱翠違潟井 725 1035 1340 1645 +茱翠違潟井灸梢絮 725 1035 1340 1645 +茱翠違潟羌2筝 725 1035 1340 1645 +茱翠違潟羌遺峨 725 1035 1340 1645 +茱翠違潟筝紊 725 1035 1340 1645 +茱翠違潟筝肴タ 725 1035 1340 1645 +茱翠違潟ュ嵯祉潟帥弱 725 1035 1340 1645 +茱翠違潟羌潔絽翫 725 1035 1340 1645 +茱翠違潟絮怨罘 725 1035 1340 1645 +茱翠違潟絮怨綺 725 1035 1340 1645 +茱翠違潟医紫祉潟帥弱 725 1035 1340 1645 +茱翠違潟医紫祉潟帥弱 725 1035 1340 1645 +茱翠違潟篋九4筝 725 1035 1340 1645 +茱翠違潟篋九5筝 725 1035 1340 1645 +茱翠違潟紊紙 725 1035 1340 1645 +茱翠違潟ユ羌欠 725 1035 1340 1645 +茱翠違潟紙 725 1035 1340 1645 +茱翠違潟筝 725 1035 1340 1645 +茱翠違潟綏罘 725 1035 1340 1645 +茱翠違潟3筝 725 1035 1340 1645 +茱翠違潟篆俄鎘 725 1035 1340 1645 +茱翠違潟蕋罍絮怨羂蕕 725 1035 1340 1645 +茱翠違潟活綽級え 725 1035 1340 1645 +茱翠違潟紊у() 725 1035 1340 1645 +茱翠違潟九ｅ医 725 1035 1340 1645 +茱翠違潟絎羌灸梢絮 725 1035 1340 1645 +茱翠違潟膩銀1筝 725 1035 1340 1645 +茱翠違潟蕭荀 725 1035 1340 1645 +茱翠違潟紊у() 725 1035 1340 1645 +茱翠違潟榊晶綽蕕紫茵蕕 725 1035 1340 1645 +茱翠違潟純絎 725 1035 1340 1645 + +ゃ泣若鴻祉潟帥若水筝絎 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水筝絎 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水筝絎3筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水筝絎 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水井 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水井 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水井灸梢絮 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水羌2筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水羌遺峨 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水筝紊 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水筝肴タ 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水ュ嵯祉潟帥弱 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水羌潔絽翫 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水絮怨罘 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水絮怨綺 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水篋九4筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水篋九5筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水紊紙 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水ユ羌欠 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水紙 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水綏罘 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水3筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水篆俄鎘 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水蕋罍絮怨羂蕕 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水活綽級え 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水紊у() 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水九ｅ医 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水絎羌灸梢絮 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水膩銀1筝 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水蕭荀 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水紊у() 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水榊晶綽蕕紫茵蕕 726 1036 1341 1646 +ゃ泣若鴻祉潟帥若水純絎 726 1036 1341 1646 + +筝絎坂絎 727 1037 1342 1647 +筝絎坂絎3筝 727 1037 1342 1647 +筝絎坂絎 727 1037 1342 1647 +筝絎堺井 727 1037 1342 1647 +筝絎阪井 727 1037 1342 1647 +筝絎阪井灸梢絮 727 1037 1342 1647 +筝絎堺2筝 727 1037 1342 1647 +筝絎堺遺峨 727 1037 1342 1647 +筝絎坂賢紊 727 1037 1342 1647 +筝絎坂賢肴タ 727 1037 1342 1647 +筝絎阪ュ嵯祉潟帥弱 727 1037 1342 1647 +筝絎冴羌潔絽翫 727 1037 1342 1647 +筝絎阪臼絮罘 727 1037 1342 1647 +筝絎阪臼絮綺 727 1037 1342 1647 +筝絎咲医紫祉潟帥弱 727 1037 1342 1647 +筝絎咲医紫祉潟帥弱 727 1037 1342 1647 +筝絎坂九4筝 727 1037 1342 1647 +筝絎坂九5筝 727 1037 1342 1647 +筝絎阪紙 727 1037 1342 1647 +筝絎堺ユ羌欠 727 1037 1342 1647 +筝絎冴紙 727 1037 1342 1647 +筝絎阪筝 727 1037 1342 1647 +筝絎阪罘 727 1037 1342 1647 +筝絎咲3筝 727 1037 1342 1647 +筝絎咲篆俄鎘 727 1037 1342 1647 +筝絎咲罍絮怨羂蕕 727 1037 1342 1647 +筝絎阪活綽級え 727 1037 1342 1647 +筝絎阪ぇ絖() 727 1037 1342 1647 +筝絎榊九ｅ医 727 1037 1342 1647 +筝絎阪羌灸梢絮 727 1037 1342 1647 +筝絎榊銀1筝 727 1037 1342 1647 +筝絎咲荀 727 1037 1342 1647 +筝絎阪ぇ絖() 727 1037 1342 1647 +筝絎阪榊晶綽蕕紫茵蕕 727 1037 1342 1647 +筝絎冴純絎 727 1037 1342 1647 + +筝絎筝絎3筝 728 1038 1343 1648 +筝絎筝絎 728 1038 1343 1648 +筝絎井 728 1038 1343 1648 +筝絎井 728 1038 1343 1648 +筝絎井灸梢絮 728 1038 1343 1648 +筝絎羌2筝 728 1038 1343 1648 +筝絎羌遺峨 728 1038 1343 1648 +筝絎筝紊 728 1038 1343 1648 +筝絎筝肴タ 728 1038 1343 1648 +筝絎ュ嵯祉潟帥弱 728 1038 1343 1648 +筝絎羌潔絽翫 728 1038 1343 1648 +筝絎絮怨罘 728 1038 1343 1648 +筝絎絮怨綺 728 1038 1343 1648 +筝絎医紫祉潟帥弱 728 1038 1343 1648 +筝絎医紫祉潟帥弱 728 1038 1343 1648 +筝絎篋九4筝 728 1038 1343 1648 +筝絎篋九5筝 728 1038 1343 1648 +筝絎紊紙 728 1038 1343 1648 +筝絎ユ羌欠 728 1038 1343 1648 +筝絎紙 728 1038 1343 1648 +筝絎筝 728 1038 1343 1648 +筝絎綏罘 728 1038 1343 1648 +筝絎3筝 728 1038 1343 1648 +筝絎篆俄鎘 728 1038 1343 1648 +筝絎蕋罍絮怨羂蕕 728 1038 1343 1648 +筝絎活綽級え 728 1038 1343 1648 +筝絎紊у() 728 1038 1343 1648 +筝絎九ｅ医 728 1038 1343 1648 +筝絎絎羌灸梢絮 728 1038 1343 1648 +筝絎膩銀1筝 728 1038 1343 1648 +筝絎蕭荀 728 1038 1343 1648 +筝絎紊у() 728 1038 1343 1648 +筝絎榊晶綽蕕紫茵蕕 728 1038 1343 1648 +筝絎純絎 728 1038 1343 1648 + +筝絎3筝筝絎 729 1039 1344 1649 +筝絎3筝井 729 1039 1344 1649 +筝絎3筝井 729 1039 1344 1649 +筝絎3筝井灸梢絮 729 1039 1344 1649 +筝絎3筝羌2筝 729 1039 1344 1649 +筝絎3筝羌遺峨 729 1039 1344 1649 +筝絎3筝筝紊 729 1039 1344 1649 +筝絎3筝筝肴タ 729 1039 1344 1649 +筝絎3筝ュ嵯祉潟帥弱 729 1039 1344 1649 +筝絎3筝羌潔絽翫 729 1039 1344 1649 +筝絎3筝絮怨罘 729 1039 1344 1649 +筝絎3筝絮怨綺 729 1039 1344 1649 +筝絎3筝医紫祉潟帥弱 729 1039 1344 1649 +筝絎3筝医紫祉潟帥弱 729 1039 1344 1649 +筝絎3筝篋九4筝 729 1039 1344 1649 +筝絎3筝篋九5筝 729 1039 1344 1649 +筝絎3筝紊紙 729 1039 1344 1649 +筝絎3筝ユ羌欠 729 1039 1344 1649 +筝絎3筝紙 729 1039 1344 1649 +筝絎3筝筝 729 1039 1344 1649 +筝絎3筝綏罘 729 1039 1344 1649 +筝絎3筝3筝 729 1039 1344 1649 +筝絎3筝篆俄鎘 729 1039 1344 1649 +筝絎3筝蕋罍絮怨羂蕕 729 1039 1344 1649 +筝絎3筝活綽級え 729 1039 1344 1649 +筝絎3筝紊у() 729 1039 1344 1649 +筝絎3筝九ｅ医 729 1039 1344 1649 +筝絎3筝絎羌灸梢絮 729 1039 1344 1649 +筝絎3筝膩銀1筝 729 1039 1344 1649 +筝絎3筝蕭荀 729 1039 1344 1649 +筝絎3筝紊у() 729 1039 1344 1649 +筝絎3筝榊晶綽蕕紫茵蕕 729 1039 1344 1649 +筝絎3筝純絎 729 1039 1344 1649 + +筝絎堺井 730 1040 1345 1650 +筝絎阪井 730 1040 1345 1650 +筝絎阪井灸梢絮 730 1040 1345 1650 +筝絎堺2筝 730 1040 1345 1650 +筝絎堺遺峨 730 1040 1345 1650 +筝絎坂賢紊 730 1040 1345 1650 +筝絎坂賢肴タ 730 1040 1345 1650 +筝絎阪ュ嵯祉潟帥弱 730 1040 1345 1650 +筝絎冴羌潔絽翫 730 1040 1345 1650 +筝絎阪臼絮罘 730 1040 1345 1650 +筝絎阪臼絮綺 730 1040 1345 1650 +筝絎咲医紫祉潟帥弱 730 1040 1345 1650 +筝絎咲医紫祉潟帥弱 730 1040 1345 1650 +筝絎坂九4筝 730 1040 1345 1650 +筝絎坂九5筝 730 1040 1345 1650 +筝絎阪紙 730 1040 1345 1650 +筝絎堺ユ羌欠 730 1040 1345 1650 +筝絎冴紙 730 1040 1345 1650 +筝絎阪筝 730 1040 1345 1650 +筝絎阪罘 730 1040 1345 1650 +筝絎咲3筝 730 1040 1345 1650 +筝絎咲篆俄鎘 730 1040 1345 1650 +筝絎咲罍絮怨羂蕕 730 1040 1345 1650 +筝絎阪活綽級え 730 1040 1345 1650 +筝絎阪ぇ絖() 730 1040 1345 1650 +筝絎榊九ｅ医 730 1040 1345 1650 +筝絎阪羌灸梢絮 730 1040 1345 1650 +筝絎榊銀1筝 730 1040 1345 1650 +筝絎咲荀 730 1040 1345 1650 +筝絎阪ぇ絖() 730 1040 1345 1650 +筝絎阪榊晶綽蕕紫茵蕕 730 1040 1345 1650 +筝絎冴純絎 730 1040 1345 1650 + +井井 734 1044 1349 1654 +井井灸梢絮 734 1044 1349 1654 +井羌2筝 734 1044 1349 1654 +井羌遺峨 734 1044 1349 1654 +井筝紊 734 1044 1349 1654 +井筝肴タ 734 1044 1349 1654 +井ュ嵯祉潟帥弱 734 1044 1349 1654 +井羌潔絽翫 734 1044 1349 1654 +井絮怨罘 734 1044 1349 1654 +井絮怨綺 734 1044 1349 1654 +井医紫祉潟帥弱 734 1044 1349 1654 +井医紫祉潟帥弱 734 1044 1349 1654 +井篋九4筝 734 1044 1349 1654 +井篋九5筝 734 1044 1349 1654 +井紊紙 734 1044 1349 1654 +井ユ羌欠 734 1044 1349 1654 +井紙 734 1044 1349 1654 +井筝 734 1044 1349 1654 +井綏罘 734 1044 1349 1654 +井3筝 734 1044 1349 1654 +井篆俄鎘 734 1044 1349 1654 +井蕋罍絮怨羂蕕 734 1044 1349 1654 +井活綽級え 734 1044 1349 1654 +井紊у() 734 1044 1349 1654 +井九ｅ医 734 1044 1349 1654 +井絎羌灸梢絮 734 1044 1349 1654 +井膩銀1筝 734 1044 1349 1654 +井蕭荀 734 1044 1349 1654 +井紊у() 734 1044 1349 1654 +井榊晶綽蕕紫茵蕕 734 1044 1349 1654 +井純絎 734 1044 1349 1654 + +井井灸梢絮 735 1045 1350 1655 +井羌2筝 735 1045 1350 1655 +井羌遺峨 735 1045 1350 1655 +井筝紊 735 1045 1350 1655 +井筝肴タ 735 1045 1350 1655 +井ュ嵯祉潟帥弱 735 1045 1350 1655 +井羌潔絽翫 735 1045 1350 1655 +井絮怨罘 735 1045 1350 1655 +井絮怨綺 735 1045 1350 1655 +井医紫祉潟帥弱 735 1045 1350 1655 +井医紫祉潟帥弱 735 1045 1350 1655 +井篋九4筝 735 1045 1350 1655 +井篋九5筝 735 1045 1350 1655 +井紊紙 735 1045 1350 1655 +井ユ羌欠 735 1045 1350 1655 +井紙 735 1045 1350 1655 +井筝 735 1045 1350 1655 +井綏罘 735 1045 1350 1655 +井3筝 735 1045 1350 1655 +井篆俄鎘 735 1045 1350 1655 +井蕋罍絮怨羂蕕 735 1045 1350 1655 +井活綽級え 735 1045 1350 1655 +井紊у() 735 1045 1350 1655 +井九ｅ医 735 1045 1350 1655 +井絎羌灸梢絮 735 1045 1350 1655 +井膩銀1筝 735 1045 1350 1655 +井蕭荀 735 1045 1350 1655 +井紊у() 735 1045 1350 1655 +井榊晶綽蕕紫茵蕕 735 1045 1350 1655 +井純絎 735 1045 1350 1655 + +井灸梢絮羌2筝 736 1046 1351 1656 +井灸梢絮羌遺峨 736 1046 1351 1656 +井灸梢絮筝紊 736 1046 1351 1656 +井灸梢絮筝肴タ 736 1046 1351 1656 +井灸梢絮ュ嵯祉潟帥弱 736 1046 1351 1656 +井灸梢絮羌潔絽翫 736 1046 1351 1656 +井灸梢絮絮怨罘 736 1046 1351 1656 +井灸梢絮絮怨綺 736 1046 1351 1656 +井灸梢絮医紫祉潟帥弱 736 1046 1351 1656 +井灸梢絮医紫祉潟帥弱 736 1046 1351 1656 +井灸梢絮篋九4筝 736 1046 1351 1656 +井灸梢絮篋九5筝 736 1046 1351 1656 +井灸梢絮紊紙 736 1046 1351 1656 +井灸梢絮ユ羌欠 736 1046 1351 1656 +井灸梢絮紙 736 1046 1351 1656 +井灸梢絮筝 736 1046 1351 1656 +井灸梢絮綏罘 736 1046 1351 1656 +井灸梢絮3筝 736 1046 1351 1656 +井灸梢絮篆俄鎘 736 1046 1351 1656 +井灸梢絮蕋罍絮怨羂蕕 736 1046 1351 1656 +井灸梢絮活綽級え 736 1046 1351 1656 +井灸梢絮紊у() 736 1046 1351 1656 +井灸梢絮九ｅ医 736 1046 1351 1656 +井灸梢絮絎羌灸梢絮 736 1046 1351 1656 +井灸梢絮膩銀1筝 736 1046 1351 1656 +井灸梢絮蕭荀 736 1046 1351 1656 +井灸梢絮紊у() 736 1046 1351 1656 +井灸梢絮榊晶綽蕕紫茵蕕 736 1046 1351 1656 +井灸梢絮純絎 736 1046 1351 1656 + +羌2筝羌遺峨 738 1048 1353 1658 +羌2筝筝紊 738 1048 1353 1658 +羌2筝筝肴タ 738 1048 1353 1658 +羌2筝ュ嵯祉潟帥弱 738 1048 1353 1658 +羌2筝羌潔絽翫 738 1048 1353 1658 +羌2筝絮怨罘 738 1048 1353 1658 +羌2筝絮怨綺 738 1048 1353 1658 +羌2筝医紫祉潟帥弱 738 1048 1353 1658 +羌2筝医紫祉潟帥弱 738 1048 1353 1658 +羌2筝篋九4筝 738 1048 1353 1658 +羌2筝篋九5筝 738 1048 1353 1658 +羌2筝紊紙 738 1048 1353 1658 +羌2筝ユ羌欠 738 1048 1353 1658 +羌2筝紙 738 1048 1353 1658 +羌2筝筝 738 1048 1353 1658 +羌2筝綏罘 738 1048 1353 1658 +羌2筝3筝 738 1048 1353 1658 +羌2筝篆俄鎘 738 1048 1353 1658 +羌2筝蕋罍絮怨羂蕕 738 1048 1353 1658 +羌2筝活綽級え 738 1048 1353 1658 +羌2筝紊у() 738 1048 1353 1658 +羌2筝九ｅ医 738 1048 1353 1658 +羌2筝絎羌灸梢絮 738 1048 1353 1658 +羌2筝膩銀1筝 738 1048 1353 1658 +羌2筝蕭荀 738 1048 1353 1658 +羌2筝紊у() 738 1048 1353 1658 +羌2筝榊晶綽蕕紫茵蕕 738 1048 1353 1658 +羌2筝純絎 738 1048 1353 1658 + +羌遺峨筝紊 739 1049 1354 1659 +羌遺峨筝肴タ 739 1049 1354 1659 +羌遺峨ュ嵯祉潟帥弱 739 1049 1354 1659 +羌遺峨羌潔絽翫 739 1049 1354 1659 +羌遺峨絮怨罘 739 1049 1354 1659 +羌遺峨絮怨綺 739 1049 1354 1659 +羌遺峨医紫祉潟帥弱 739 1049 1354 1659 +羌遺峨医紫祉潟帥弱 739 1049 1354 1659 +羌遺峨篋九4筝 739 1049 1354 1659 +羌遺峨篋九5筝 739 1049 1354 1659 +羌遺峨紊紙 739 1049 1354 1659 +羌遺峨ユ羌欠 739 1049 1354 1659 +羌遺峨紙 739 1049 1354 1659 +羌遺峨筝 739 1049 1354 1659 +羌遺峨綏罘 739 1049 1354 1659 +羌遺峨3筝 739 1049 1354 1659 +羌遺峨篆俄鎘 739 1049 1354 1659 +羌遺峨蕋罍絮怨羂蕕 739 1049 1354 1659 +羌遺峨活綽級え 739 1049 1354 1659 +羌遺峨紊у() 739 1049 1354 1659 +羌遺峨九ｅ医 739 1049 1354 1659 +羌遺峨絎羌灸梢絮 739 1049 1354 1659 +羌遺峨膩銀1筝 739 1049 1354 1659 +羌遺峨蕭荀 739 1049 1354 1659 +羌遺峨紊у() 739 1049 1354 1659 +羌遺峨榊晶綽蕕紫茵蕕 739 1049 1354 1659 +羌遺峨純絎 739 1049 1354 1659 + +筝紊筝肴タ 740 1050 1355 1700 +筝紊ュ嵯祉潟帥弱 740 1050 1355 1700 +筝紊羌潔絽翫 740 1050 1355 1700 +筝紊絮怨罘 740 1050 1355 1700 +筝紊絮怨綺 740 1050 1355 1700 +筝紊医紫祉潟帥弱 740 1050 1355 1700 +筝紊医紫祉潟帥弱 740 1050 1355 1700 +筝紊篋九4筝 740 1050 1355 1700 +筝紊篋九5筝 740 1050 1355 1700 +筝紊紊紙 740 1050 1355 1700 +筝紊ユ羌欠 740 1050 1355 1700 +筝紊紙 740 1050 1355 1700 +筝紊筝 740 1050 1355 1700 +筝紊綏罘 740 1050 1355 1700 +筝紊3筝 740 1050 1355 1700 +筝紊篆俄鎘 740 1050 1355 1700 +筝紊蕋罍絮怨羂蕕 740 1050 1355 1700 +筝紊活綽級え 740 1050 1355 1700 +筝紊紊у() 740 1050 1355 1700 +筝紊九ｅ医 740 1050 1355 1700 +筝紊絎羌灸梢絮 740 1050 1355 1700 +筝紊膩銀1筝 740 1050 1355 1700 +筝紊蕭荀 740 1050 1355 1700 +筝紊紊у() 740 1050 1355 1700 +筝紊榊晶綽蕕紫茵蕕 740 1050 1355 1700 +筝紊純絎 740 1050 1355 1700 + +筝肴タュ嵯祉潟帥弱 742 1052 1357 1702 +筝肴タ羌潔絽翫 742 1052 1357 1702 +筝肴タ絮怨罘 742 1052 1357 1702 +筝肴タ絮怨綺 742 1052 1357 1702 +筝肴タ医紫祉潟帥弱 742 1052 1357 1702 +筝肴タ医紫祉潟帥弱 742 1052 1357 1702 +筝肴タ篋九4筝 742 1052 1357 1702 +筝肴タ篋九5筝 742 1052 1357 1702 +筝肴タ紊紙 742 1052 1357 1702 +筝肴タユ羌欠 742 1052 1357 1702 +筝肴タ紙 742 1052 1357 1702 +筝肴タ筝 742 1052 1357 1702 +筝肴タ綏罘 742 1052 1357 1702 +筝肴タ3筝 742 1052 1357 1702 +筝肴タ篆俄鎘 742 1052 1357 1702 +筝肴タ蕋罍絮怨羂蕕 742 1052 1357 1702 +筝肴タ活綽級え 742 1052 1357 1702 +筝肴タ紊у() 742 1052 1357 1702 +筝肴タ九ｅ医 742 1052 1357 1702 +筝肴タ絎羌灸梢絮 742 1052 1357 1702 +筝肴タ膩銀1筝 742 1052 1357 1702 +筝肴タ蕭荀 742 1052 1357 1702 +筝肴タ紊у() 742 1052 1357 1702 +筝肴タ榊晶綽蕕紫茵蕕 742 1052 1357 1702 +筝肴タ純絎 742 1052 1357 1702 + +ュ嵯祉潟帥弱羌潔絽翫 744 1054 1359 1704 +ュ嵯祉潟帥弱絮怨罘 744 1054 1359 1704 +ュ嵯祉潟帥弱絮怨綺 744 1054 1359 1704 +ュ嵯祉潟帥弱医紫祉潟帥弱 744 1054 1359 1704 +ュ嵯祉潟帥弱医紫祉潟帥弱 744 1054 1359 1704 +ュ嵯祉潟帥弱篋九4筝 744 1054 1359 1704 +ュ嵯祉潟帥弱篋九5筝 744 1054 1359 1704 +ュ嵯祉潟帥弱紊紙 744 1054 1359 1704 +ュ嵯祉潟帥弱ユ羌欠 744 1054 1359 1704 +ュ嵯祉潟帥弱紙 744 1054 1359 1704 +ュ嵯祉潟帥弱筝 744 1054 1359 1704 +ュ嵯祉潟帥弱綏罘 744 1054 1359 1704 +ュ嵯祉潟帥弱3筝 744 1054 1359 1704 +ュ嵯祉潟帥弱篆俄鎘 744 1054 1359 1704 +ュ嵯祉潟帥弱蕋罍絮怨羂蕕 744 1054 1359 1704 +ュ嵯祉潟帥弱活綽級え 744 1054 1359 1704 +ュ嵯祉潟帥弱紊у() 744 1054 1359 1704 +ュ嵯祉潟帥弱九ｅ医 744 1054 1359 1704 +ュ嵯祉潟帥弱絎羌灸梢絮 744 1054 1359 1704 +ュ嵯祉潟帥弱膩銀1筝 744 1054 1359 1704 +ュ嵯祉潟帥弱蕭荀 744 1054 1359 1704 +ュ嵯祉潟帥弱紊у() 744 1054 1359 1704 +ュ嵯祉潟帥弱榊晶綽蕕紫茵蕕 744 1054 1359 1704 +ュ嵯祉潟帥弱純絎 744 1054 1359 1704 + +羌潔絽翫絮怨罘 745 1055 1400 1705 +羌潔絽翫絮怨綺 745 1055 1400 1705 +羌潔絽翫医紫祉潟帥弱 745 1055 1400 1705 +羌潔絽翫医紫祉潟帥弱 745 1055 1400 1705 +羌潔絽翫篋九4筝 745 1055 1400 1705 +羌潔絽翫篋九5筝 745 1055 1400 1705 +羌潔絽翫紊紙 745 1055 1400 1705 +羌潔絽翫ユ羌欠 745 1055 1400 1705 +羌潔絽翫紙 745 1055 1400 1705 +羌潔絽翫筝 745 1055 1400 1705 +羌潔絽翫綏罘 745 1055 1400 1705 +羌潔絽翫3筝 745 1055 1400 1705 +羌潔絽翫篆俄鎘 745 1055 1400 1705 +羌潔絽翫蕋罍絮怨羂蕕 745 1055 1400 1705 +羌潔絽翫活綽級え 745 1055 1400 1705 +羌潔絽翫紊у() 745 1055 1400 1705 +羌潔絽翫九ｅ医 745 1055 1400 1705 +羌潔絽翫絎羌灸梢絮 745 1055 1400 1705 +羌潔絽翫膩銀1筝 745 1055 1400 1705 +羌潔絽翫蕭荀 745 1055 1400 1705 +羌潔絽翫紊у() 745 1055 1400 1705 +羌潔絽翫榊晶綽蕕紫茵蕕 745 1055 1400 1705 +羌潔絽翫純絎 745 1055 1400 1705 + +絮怨罘絮怨綺 747 1057 1402 1707 +絮怨罘医紫祉潟帥弱 747 1057 1402 1707 +絮怨罘医紫祉潟帥弱 747 1057 1402 1707 +絮怨罘篋九4筝 747 1057 1402 1707 +絮怨罘篋九5筝 747 1057 1402 1707 +絮怨罘紊紙 747 1057 1402 1707 +絮怨罘ユ羌欠 747 1057 1402 1707 +絮怨罘紙 747 1057 1402 1707 +絮怨罘筝 747 1057 1402 1707 +絮怨罘綏罘 747 1057 1402 1707 +絮怨罘3筝 747 1057 1402 1707 +絮怨罘篆俄鎘 747 1057 1402 1707 +絮怨罘蕋罍絮怨羂蕕 747 1057 1402 1707 +絮怨罘活綽級え 747 1057 1402 1707 +絮怨罘紊у() 747 1057 1402 1707 +絮怨罘九ｅ医 747 1057 1402 1707 +絮怨罘絎羌灸梢絮 747 1057 1402 1707 +絮怨罘膩銀1筝 747 1057 1402 1707 +絮怨罘蕭荀 747 1057 1402 1707 +絮怨罘紊у() 747 1057 1402 1707 +絮怨罘榊晶綽蕕紫茵蕕 747 1057 1402 1707 +絮怨罘純絎 747 1057 1402 1707 + +絮怨綺医紫祉潟帥弱 749 1059 1404 1709 +絮怨綺医紫祉潟帥弱 749 1059 1404 1709 +絮怨綺篋九4筝 749 1059 1404 1709 +絮怨綺篋九5筝 749 1059 1404 1709 +絮怨綺紊紙 749 1059 1404 1709 +絮怨綺ユ羌欠 749 1059 1404 1709 +絮怨綺紙 749 1059 1404 1709 +絮怨綺筝 749 1059 1404 1709 +絮怨綺綏罘 749 1059 1404 1709 +絮怨綺3筝 749 1059 1404 1709 +絮怨綺篆俄鎘 749 1059 1404 1709 +絮怨綺蕋罍絮怨羂蕕 749 1059 1404 1709 +絮怨綺活綽級え 749 1059 1404 1709 +絮怨綺紊у() 749 1059 1404 1709 +絮怨綺九ｅ医 749 1059 1404 1709 +絮怨綺絎羌灸梢絮 749 1059 1404 1709 +絮怨綺膩銀1筝 749 1059 1404 1709 +絮怨綺蕭荀 749 1059 1404 1709 +絮怨綺紊у() 749 1059 1404 1709 +絮怨綺榊晶綽蕕紫茵蕕 749 1059 1404 1709 +絮怨綺純絎 749 1059 1404 1709 + +医紫祉潟帥弱ｉ医紫祉潟帥弱 751 1101 1406 1711 +医紫祉潟帥弱ｄ九4筝 751 1101 1406 1711 +医紫祉潟帥弱ｄ九5筝 751 1101 1406 1711 +医紫祉潟帥弱ｅ紙 751 1101 1406 1711 +医紫祉潟帥弱ｆユ羌欠 751 1101 1406 1711 +医紫祉潟帥弱ｃ紙 751 1101 1406 1711 +医紫祉潟帥弱ｅ筝 751 1101 1406 1711 +医紫祉潟帥弱ｅ罘 751 1101 1406 1711 +医紫祉潟帥弱ｉ3筝 751 1101 1406 1711 +医紫祉潟帥弱ｉ篆俄鎘 751 1101 1406 1711 +医紫祉潟帥弱ｉ罍絮怨羂蕕 751 1101 1406 1711 +医紫祉潟帥弱ｅ活綽級え 751 1101 1406 1711 +医紫祉潟帥弱ｅぇ絖() 751 1101 1406 1711 +医紫祉潟帥弱ｇ九ｅ医 751 1101 1406 1711 +医紫祉潟帥弱ｅ羌灸梢絮 751 1101 1406 1711 +医紫祉潟帥弱ｇ銀1筝 751 1101 1406 1711 +医紫祉潟帥弱ｉ荀 751 1101 1406 1711 +医紫祉潟帥弱ｅぇ絖() 751 1101 1406 1711 +医紫祉潟帥弱ｅ榊晶綽蕕紫茵蕕 751 1101 1406 1711 +医紫祉潟帥弱ｃ純絎 751 1101 1406 1711 + +医紫祉潟帥弱篋九4筝 752 1102 1407 1712 +医紫祉潟帥弱篋九5筝 752 1102 1407 1712 +医紫祉潟帥弱紊紙 752 1102 1407 1712 +医紫祉潟帥弱ユ羌欠 752 1102 1407 1712 +医紫祉潟帥弱紙 752 1102 1407 1712 +医紫祉潟帥弱筝 752 1102 1407 1712 +医紫祉潟帥弱綏罘 752 1102 1407 1712 +医紫祉潟帥弱3筝 752 1102 1407 1712 +医紫祉潟帥弱篆俄鎘 752 1102 1407 1712 +医紫祉潟帥弱蕋罍絮怨羂蕕 752 1102 1407 1712 +医紫祉潟帥弱活綽級え 752 1102 1407 1712 +医紫祉潟帥弱紊у() 752 1102 1407 1712 +医紫祉潟帥弱九ｅ医 752 1102 1407 1712 +医紫祉潟帥弱絎羌灸梢絮 752 1102 1407 1712 +医紫祉潟帥弱膩銀1筝 752 1102 1407 1712 +医紫祉潟帥弱蕭荀 752 1102 1407 1712 +医紫祉潟帥弱紊у() 752 1102 1407 1712 +医紫祉潟帥弱榊晶綽蕕紫茵蕕 752 1102 1407 1712 +医紫祉潟帥弱純絎 752 1102 1407 1712 + +篋九4筝篋九5筝 753 1103 1408 1713 +篋九4筝紊紙 753 1103 1408 1713 +篋九4筝ユ羌欠 753 1103 1408 1713 +篋九4筝紙 753 1103 1408 1713 +篋九4筝筝 753 1103 1408 1713 +篋九4筝綏罘 753 1103 1408 1713 +篋九4筝3筝 753 1103 1408 1713 +篋九4筝篆俄鎘 753 1103 1408 1713 +篋九4筝蕋罍絮怨羂蕕 753 1103 1408 1713 +篋九4筝活綽級え 753 1103 1408 1713 +篋九4筝紊у() 753 1103 1408 1713 +篋九4筝九ｅ医 753 1103 1408 1713 +篋九4筝絎羌灸梢絮 753 1103 1408 1713 +篋九4筝膩銀1筝 753 1103 1408 1713 +篋九4筝蕭荀 753 1103 1408 1713 +篋九4筝紊у() 753 1103 1408 1713 +篋九4筝榊晶綽蕕紫茵蕕 753 1103 1408 1713 +篋九4筝純絎 753 1103 1408 1713 + +篋九5筝紊紙 754 1104 1409 1714 +篋九5筝ユ羌欠 754 1104 1409 1714 +篋九5筝紙 754 1104 1409 1714 +篋九5筝筝 754 1104 1409 1714 +篋九5筝綏罘 754 1104 1409 1714 +篋九5筝3筝 754 1104 1409 1714 +篋九5筝篆俄鎘 754 1104 1409 1714 +篋九5筝蕋罍絮怨羂蕕 754 1104 1409 1714 +篋九5筝活綽級え 754 1104 1409 1714 +篋九5筝紊у() 754 1104 1409 1714 +篋九5筝九ｅ医 754 1104 1409 1714 +篋九5筝絎羌灸梢絮 754 1104 1409 1714 +篋九5筝膩銀1筝 754 1104 1409 1714 +篋九5筝蕭荀 754 1104 1409 1714 +篋九5筝紊у() 754 1104 1409 1714 +篋九5筝榊晶綽蕕紫茵蕕 754 1104 1409 1714 +篋九5筝純絎 754 1104 1409 1714 + +紊紙ユ羌欠 755 1105 1410 1715 +紊紙紙 755 1105 1410 1715 +紊紙筝 755 1105 1410 1715 +紊紙綏罘 755 1105 1410 1715 +紊紙3筝 755 1105 1410 1715 +紊紙篆俄鎘 755 1105 1410 1715 +紊紙蕋罍絮怨羂蕕 755 1105 1410 1715 +紊紙活綽級え 755 1105 1410 1715 +紊紙紊у() 755 1105 1410 1715 +紊紙九ｅ医 755 1105 1410 1715 +紊紙絎羌灸梢絮 755 1105 1410 1715 +紊紙膩銀1筝 755 1105 1410 1715 +紊紙蕭荀 755 1105 1410 1715 +紊紙紊у() 755 1105 1410 1715 +紊紙榊晶綽蕕紫茵蕕 755 1105 1410 1715 +紊紙純絎 755 1105 1410 1715 + +ユ羌欠≪紙 758 1108 1413 1718 +ユ羌欠√筝 758 1108 1413 1718 +ユ羌欠√罘 758 1108 1413 1718 +ユ羌欠∫3筝 758 1108 1413 1718 +ユ羌欠∫篆俄鎘 758 1108 1413 1718 +ユ羌欠∫罍絮怨羂蕕 758 1108 1413 1718 +ユ羌欠√活綽級え 758 1108 1413 1718 +ユ羌欠√ぇ絖() 758 1108 1413 1718 +ユ羌欠∝九ｅ医 758 1108 1413 1718 +ユ羌欠√羌灸梢絮 758 1108 1413 1718 +ユ羌欠∝銀1筝 758 1108 1413 1718 +ユ羌欠∫荀 758 1108 1413 1718 +ユ羌欠√ぇ絖() 758 1108 1413 1718 +ユ羌欠√榊晶綽蕕紫茵蕕 758 1108 1413 1718 +ユ羌欠≪純絎 758 1108 1413 1718 + +紙筝 800 1110 1415 1720 +紙綏罘 800 1110 1415 1720 +紙3筝 800 1110 1415 1720 +紙篆俄鎘 800 1110 1415 1720 +紙蕋罍絮怨羂蕕 800 1110 1415 1720 +紙活綽級え 800 1110 1415 1720 +紙紊у() 800 1110 1415 1720 +紙九ｅ医 800 1110 1415 1720 +紙絎羌灸梢絮 800 1110 1415 1720 +紙膩銀1筝 800 1110 1415 1720 +紙蕭荀 800 1110 1415 1720 +紙紊у() 800 1110 1415 1720 +紙榊晶綽蕕紫茵蕕 800 1110 1415 1720 +紙純絎 800 1110 1415 1720 + +筝綏罘 804 1114 1419 1724 +筝3筝 804 1114 1419 1724 +筝篆俄鎘 804 1114 1419 1724 +筝蕋罍絮怨羂蕕 804 1114 1419 1724 +筝活綽級え 804 1114 1419 1724 +筝紊у() 804 1114 1419 1724 +筝九ｅ医 804 1114 1419 1724 +筝絎羌灸梢絮 804 1114 1419 1724 +筝膩銀1筝 804 1114 1419 1724 +筝蕭荀 804 1114 1419 1724 +筝紊у() 804 1114 1419 1724 +筝榊晶綽蕕紫茵蕕 804 1114 1419 1724 +筝純絎 804 1114 1419 1724 + +綏罘3筝 805 1115 1420 1725 +綏罘篆俄鎘 805 1115 1420 1725 +綏罘蕋罍絮怨羂蕕 805 1115 1420 1725 +綏罘活綽級え 805 1115 1420 1725 +綏罘紊у() 805 1115 1420 1725 +綏罘九ｅ医 805 1115 1420 1725 +綏罘絎羌灸梢絮 805 1115 1420 1725 +綏罘膩銀1筝 805 1115 1420 1725 +綏罘蕭荀 805 1115 1420 1725 +綏罘紊у() 805 1115 1420 1725 +綏罘榊晶綽蕕紫茵蕕 805 1115 1420 1725 +綏罘純絎 805 1115 1420 1725 + +3筝篆俄鎘 806 1116 1421 1726 +3筝蕋罍絮怨羂蕕 806 1116 1421 1726 +3筝活綽級え 806 1116 1421 1726 +3筝紊у() 806 1116 1421 1726 +3筝九ｅ医 806 1116 1421 1726 +3筝絎羌灸梢絮 806 1116 1421 1726 +3筝膩銀1筝 806 1116 1421 1726 +3筝蕭荀 806 1116 1421 1726 +3筝紊у() 806 1116 1421 1726 +3筝榊晶綽蕕紫茵蕕 806 1116 1421 1726 +3筝純絎 806 1116 1421 1726 + +篆俄鎘蕋罍絮怨羂蕕 806 1116 1421 1726 +篆俄鎘活綽級え 806 1116 1421 1726 +篆俄鎘紊у() 806 1116 1421 1726 +篆俄鎘九ｅ医 806 1116 1421 1726 +篆俄鎘絎羌灸梢絮 806 1116 1421 1726 +篆俄鎘膩銀1筝 806 1116 1421 1726 +篆俄鎘蕭荀 806 1116 1421 1726 +篆俄鎘紊у() 806 1116 1421 1726 +篆俄鎘榊晶綽蕕紫茵蕕 806 1116 1421 1726 +篆俄鎘純絎 806 1116 1421 1726 + +蕋罍絮怨羂蕕活綽級え 807 1117 1422 1727 +蕋罍絮怨羂蕕紊у() 807 1117 1422 1727 +蕋罍絮怨羂蕕九ｅ医 807 1117 1422 1727 +蕋罍絮怨羂蕕絎羌灸梢絮 807 1117 1422 1727 +蕋罍絮怨羂蕕膩銀1筝 807 1117 1422 1727 +蕋罍絮怨羂蕕蕭荀 807 1117 1422 1727 +蕋罍絮怨羂蕕紊у() 807 1117 1422 1727 +蕋罍絮怨羂蕕榊晶綽蕕紫茵蕕 807 1117 1422 1727 +蕋罍絮怨羂蕕純絎 807 1117 1422 1727 + +活綽級え紊у() 811 1121 1426 1731 +活綽級え九ｅ医 811 1121 1426 1731 +活綽級え絎羌灸梢絮 811 1121 1426 1731 +活綽級え膩銀1筝 811 1121 1426 1731 +活綽級え蕭荀 811 1121 1426 1731 +活綽級え紊у() 811 1121 1426 1731 +活綽級え榊晶綽蕕紫茵蕕 811 1121 1426 1731 +活綽級え純絎 811 1121 1426 1731 + +紊у()九ｅ医 812 1122 1427 1732 +紊у()絎羌灸梢絮 812 1122 1427 1732 +紊у()膩銀1筝 812 1122 1427 1732 +紊у()蕭荀 812 1122 1427 1732 +紊у()紊у() 812 1122 1427 1732 +紊у()榊晶綽蕕紫茵蕕 812 1122 1427 1732 +紊у()純絎 812 1122 1427 1732 + +九ｅ医絎羌灸梢絮 817 1127 1432 1737 +九ｅ医膩銀1筝 817 1127 1432 1737 +九ｅ医蕭荀 817 1127 1432 1737 +九ｅ医紊у() 817 1127 1432 1737 +九ｅ医榊晶綽蕕紫茵蕕 817 1127 1432 1737 +九ｅ医純絎 817 1127 1432 1737 + +絎羌灸梢絮膩銀1筝 818 1128 1433 1738 +絎羌灸梢絮蕭荀 818 1128 1433 1738 +絎羌灸梢絮紊у() 818 1128 1433 1738 +絎羌灸梢絮榊晶綽蕕紫茵蕕 818 1128 1433 1738 +絎羌灸梢絮純絎 818 1128 1433 1738 + +膩銀1筝蕭荀 818 1128 1433 1738 +膩銀1筝紊у() 818 1128 1433 1738 +膩銀1筝榊晶綽蕕紫茵蕕 818 1128 1433 1738 +膩銀1筝純絎 818 1128 1433 1738 + +蕭荀伾ぇ絖() 819 1129 1434 1739 +蕭荀伾榊晶綽蕕紫茵蕕 819 1129 1434 1739 +蕭荀伹純絎 819 1129 1434 1739 + +紊у()榊晶綽蕕紫茵蕕 824 1134 1439 1744 +紊у()純絎 824 1134 1439 1744 + +榊晶綽蕕紫茵蕕純絎 826 1136 1441 1746 + +純絎水榊晶綽蕕紫茵蕕 850 1200 1505 1810 +純絎水ぇ絖() 850 1200 1505 1810 +純絎睡九ｅ医 850 1200 1505 1810 +純絎水羌灸梢絮 850 1200 1505 1810 +純絎睡銀1筝 850 1200 1505 1810 +純絎翠荀 850 1200 1505 1810 +純絎水ぇ絖() 850 1200 1505 1810 +純絎水活綽級え 850 1200 1505 1810 +純絎翠罍絮怨羂蕕 850 1200 1505 1810 +純絎翠篆俄鎘 850 1200 1505 1810 +純絎翠3筝 850 1200 1505 1810 +純絎水罘 850 1200 1505 1810 +純絎水筝 850 1200 1505 1810 +純絎帥紙 850 1200 1505 1810 +純絎炊ユ羌欠 850 1200 1505 1810 +純絎水紙 850 1200 1505 1810 +純絎推九5筝 850 1200 1505 1810 +純絎推九4筝 850 1200 1505 1810 +純絎翠医紫祉潟帥弱 850 1200 1505 1810 +純絎翠医紫祉潟帥弱 850 1200 1505 1810 +純絎水臼絮綺 850 1200 1505 1810 +純絎水臼絮罘 850 1200 1505 1810 +純絎水ュ嵯祉潟帥弱 850 1200 1505 1810 +純絎帥羌潔絽翫 850 1200 1505 1810 +純絎推賢 850 1200 1505 1810 +純絎推賢紊 850 1200 1505 1810 +純絎炊遺峨 850 1200 1505 1810 +純絎炊2筝 850 1200 1505 1810 +純絎水井灸梢絮 850 1200 1505 1810 +純絎水井 850 1200 1505 1810 +純絎炊井 850 1200 1505 1810 +純絎推絎 850 1200 1505 1810 +純絎推絎3筝 850 1200 1505 1810 +純絎推絎 850 1200 1505 1810 +純絎推絎 850 1200 1505 1810 +純絎帥ゃ泣若鴻祉潟帥若水 850 1200 1505 1810 +純絎粋タ蕭違潟 850 1200 1505 1810 +純絎帥筝筝 850 1200 1505 1810 +純絎炊 850 1200 1505 1810 +純絎水篋ゃ帥若 850 1200 1505 1810 +純絎翠育罩ｉ√ 850 1200 1505 1810 + +榊晶綽蕕紫茵蕕紊у() 851 1201 1506 1811 +榊晶綽蕕紫茵蕕九ｅ医 851 1201 1506 1811 +榊晶綽蕕紫茵蕕絎羌灸梢絮 851 1201 1506 1811 +榊晶綽蕕紫茵蕕膩銀1筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕蕭荀 851 1201 1506 1811 +榊晶綽蕕紫茵蕕紊у() 851 1201 1506 1811 +榊晶綽蕕紫茵蕕活綽級え 851 1201 1506 1811 +榊晶綽蕕紫茵蕕蕋罍絮怨羂蕕 851 1201 1506 1811 +榊晶綽蕕紫茵蕕篆俄鎘 851 1201 1506 1811 +榊晶綽蕕紫茵蕕3筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕綏罘 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕紙 851 1201 1506 1811 +榊晶綽蕕紫茵蕕ユ羌欠 851 1201 1506 1811 +榊晶綽蕕紫茵蕕紊紙 851 1201 1506 1811 +榊晶綽蕕紫茵蕕篋九5筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕篋九4筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕医紫祉潟帥弱 851 1201 1506 1811 +榊晶綽蕕紫茵蕕医紫祉潟帥弱 851 1201 1506 1811 +榊晶綽蕕紫茵蕕絮怨綺 851 1201 1506 1811 +榊晶綽蕕紫茵蕕絮怨罘 851 1201 1506 1811 +榊晶綽蕕紫茵蕕ュ嵯祉潟帥弱 851 1201 1506 1811 +榊晶綽蕕紫茵蕕羌潔絽翫 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝紊 851 1201 1506 1811 +榊晶綽蕕紫茵蕕羌遺峨 851 1201 1506 1811 +榊晶綽蕕紫茵蕕羌2筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕井灸梢絮 851 1201 1506 1811 +榊晶綽蕕紫茵蕕井 851 1201 1506 1811 +榊晶綽蕕紫茵蕕井 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝絎 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝絎3筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝絎 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝絎 851 1201 1506 1811 +榊晶綽蕕紫茵蕕ゃ泣若鴻祉潟帥若水 851 1201 1506 1811 +榊晶綽蕕紫茵蕕茱翠違潟 851 1201 1506 1811 +榊晶綽蕕紫茵蕕筝筝 851 1201 1506 1811 +榊晶綽蕕紫茵蕕羈 851 1201 1506 1811 +榊晶綽蕕紫茵蕕綺篋ゃ帥若 851 1201 1506 1811 +榊晶綽蕕紫茵蕕育罩ｉ√ 851 1201 1506 1811 + +紊у()九ｅ医 853 1203 1508 1813 +紊у()絎羌灸梢絮 853 1203 1508 1813 +紊у()膩銀1筝 853 1203 1508 1813 +紊у()蕭荀 853 1203 1508 1813 +紊у()紊у() 853 1203 1508 1813 +紊у()活綽級え 853 1203 1508 1813 +紊у()蕋罍絮怨羂蕕 853 1203 1508 1813 +紊у()篆俄鎘 853 1203 1508 1813 +紊у()3筝 853 1203 1508 1813 +紊у()綏罘 853 1203 1508 1813 +紊у()筝 853 1203 1508 1813 +紊у()紙 853 1203 1508 1813 +紊у()ユ羌欠 853 1203 1508 1813 +紊у()紊紙 853 1203 1508 1813 +紊у()篋九5筝 853 1203 1508 1813 +紊у()篋九4筝 853 1203 1508 1813 +紊у()医紫祉潟帥弱 853 1203 1508 1813 +紊у()医紫祉潟帥弱 853 1203 1508 1813 +紊у()絮怨綺 853 1203 1508 1813 +紊у()絮怨罘 853 1203 1508 1813 +紊у()ュ嵯祉潟帥弱 853 1203 1508 1813 +紊у()羌潔絽翫 853 1203 1508 1813 +紊у()筝 853 1203 1508 1813 +紊у()筝紊 853 1203 1508 1813 +紊у()羌遺峨 853 1203 1508 1813 +紊у()羌2筝 853 1203 1508 1813 +紊у()井灸梢絮 853 1203 1508 1813 +紊у()井 853 1203 1508 1813 +紊у()井 853 1203 1508 1813 +紊у()筝絎 853 1203 1508 1813 +紊у()筝絎3筝 853 1203 1508 1813 +紊у()筝絎 853 1203 1508 1813 +紊у()筝絎 853 1203 1508 1813 +紊у()ゃ泣若鴻祉潟帥若水 853 1203 1508 1813 +紊у()茱翠違潟 853 1203 1508 1813 +紊у()筝筝 853 1203 1508 1813 +紊у()羈 853 1203 1508 1813 +紊у()綺篋ゃ帥若 853 1203 1508 1813 +紊у()育罩ｉ√ 853 1203 1508 1813 + +九ｅ医絎羌灸梢絮 858 1208 1513 1818 +九ｅ医膩銀1筝 858 1208 1513 1818 +九ｅ医蕭荀 858 1208 1513 1818 +九ｅ医紊у() 858 1208 1513 1818 +九ｅ医活綽級え 858 1208 1513 1818 +九ｅ医蕋罍絮怨羂蕕 858 1208 1513 1818 +九ｅ医篆俄鎘 858 1208 1513 1818 +九ｅ医3筝 858 1208 1513 1818 +九ｅ医綏罘 858 1208 1513 1818 +九ｅ医筝 858 1208 1513 1818 +九ｅ医紙 858 1208 1513 1818 +九ｅ医ユ羌欠 858 1208 1513 1818 +九ｅ医紊紙 858 1208 1513 1818 +九ｅ医篋九5筝 858 1208 1513 1818 +九ｅ医篋九4筝 858 1208 1513 1818 +九ｅ医医紫祉潟帥弱 858 1208 1513 1818 +九ｅ医医紫祉潟帥弱 858 1208 1513 1818 +九ｅ医絮怨綺 858 1208 1513 1818 +九ｅ医絮怨罘 858 1208 1513 1818 +九ｅ医ュ嵯祉潟帥弱 858 1208 1513 1818 +九ｅ医羌潔絽翫 858 1208 1513 1818 +九ｅ医筝 858 1208 1513 1818 +九ｅ医筝紊 858 1208 1513 1818 +九ｅ医羌遺峨 858 1208 1513 1818 +九ｅ医羌2筝 858 1208 1513 1818 +九ｅ医井灸梢絮 858 1208 1513 1818 +九ｅ医井 858 1208 1513 1818 +九ｅ医井 858 1208 1513 1818 +九ｅ医筝絎 858 1208 1513 1818 +九ｅ医筝絎3筝 858 1208 1513 1818 +九ｅ医筝絎 858 1208 1513 1818 +九ｅ医筝絎 858 1208 1513 1818 +九ｅ医ゃ泣若鴻祉潟帥若水 858 1208 1513 1818 +九ｅ医茱翠違潟 858 1208 1513 1818 +九ｅ医筝筝 858 1208 1513 1818 +九ｅ医羈 858 1208 1513 1818 +九ｅ医綺篋ゃ帥若 858 1208 1513 1818 +九ｅ医育罩ｉ√ 858 1208 1513 1818 + +絎羌灸梢絮膩銀1筝 859 1209 1514 1819 +絎羌灸梢絮蕭荀 859 1209 1514 1819 +絎羌灸梢絮紊у() 859 1209 1514 1819 +絎羌灸梢絮活綽級え 859 1209 1514 1819 +絎羌灸梢絮蕋罍絮怨羂蕕 859 1209 1514 1819 +絎羌灸梢絮篆俄鎘 859 1209 1514 1819 +絎羌灸梢絮3筝 859 1209 1514 1819 +絎羌灸梢絮綏罘 859 1209 1514 1819 +絎羌灸梢絮筝 859 1209 1514 1819 +絎羌灸梢絮紙 859 1209 1514 1819 +絎羌灸梢絮ユ羌欠 859 1209 1514 1819 +絎羌灸梢絮紊紙 859 1209 1514 1819 +絎羌灸梢絮篋九5筝 859 1209 1514 1819 +絎羌灸梢絮篋九4筝 859 1209 1514 1819 +絎羌灸梢絮医紫祉潟帥弱 859 1209 1514 1819 +絎羌灸梢絮医紫祉潟帥弱 859 1209 1514 1819 +絎羌灸梢絮絮怨綺 859 1209 1514 1819 +絎羌灸梢絮絮怨罘 859 1209 1514 1819 +絎羌灸梢絮ュ嵯祉潟帥弱 859 1209 1514 1819 +絎羌灸梢絮羌潔絽翫 859 1209 1514 1819 +絎羌灸梢絮筝 859 1209 1514 1819 +絎羌灸梢絮筝紊 859 1209 1514 1819 +絎羌灸梢絮羌遺峨 859 1209 1514 1819 +絎羌灸梢絮羌2筝 859 1209 1514 1819 +絎羌灸梢絮井灸梢絮 859 1209 1514 1819 +絎羌灸梢絮井 859 1209 1514 1819 +絎羌灸梢絮井 859 1209 1514 1819 +絎羌灸梢絮筝絎 859 1209 1514 1819 +絎羌灸梢絮筝絎3筝 859 1209 1514 1819 +絎羌灸梢絮筝絎 859 1209 1514 1819 +絎羌灸梢絮筝絎 859 1209 1514 1819 +絎羌灸梢絮ゃ泣若鴻祉潟帥若水 859 1209 1514 1819 +絎羌灸梢絮茱翠違潟 859 1209 1514 1819 +絎羌灸梢絮筝筝 859 1209 1514 1819 +絎羌灸梢絮羈 859 1209 1514 1819 +絎羌灸梢絮綺篋ゃ帥若 859 1209 1514 1819 +絎羌灸梢絮育罩ｉ√ 859 1209 1514 1819 + +膩銀1筝蕭荀 859 1209 1514 1819 +膩銀1筝紊у() 859 1209 1514 1819 +膩銀1筝活綽級え 859 1209 1514 1819 +膩銀1筝蕋罍絮怨羂蕕 859 1209 1514 1819 +膩銀1筝篆俄鎘 859 1209 1514 1819 +膩銀1筝3筝 859 1209 1514 1819 +膩銀1筝綏罘 859 1209 1514 1819 +膩銀1筝筝 859 1209 1514 1819 +膩銀1筝紙 859 1209 1514 1819 +膩銀1筝ユ羌欠 859 1209 1514 1819 +膩銀1筝紊紙 859 1209 1514 1819 +膩銀1筝篋九5筝 859 1209 1514 1819 +膩銀1筝篋九4筝 859 1209 1514 1819 +膩銀1筝医紫祉潟帥弱 859 1209 1514 1819 +膩銀1筝医紫祉潟帥弱 859 1209 1514 1819 +膩銀1筝絮怨綺 859 1209 1514 1819 +膩銀1筝絮怨罘 859 1209 1514 1819 +膩銀1筝ュ嵯祉潟帥弱 859 1209 1514 1819 +膩銀1筝羌潔絽翫 859 1209 1514 1819 +膩銀1筝筝 859 1209 1514 1819 +膩銀1筝筝紊 859 1209 1514 1819 +膩銀1筝羌遺峨 859 1209 1514 1819 +膩銀1筝羌2筝 859 1209 1514 1819 +膩銀1筝井灸梢絮 859 1209 1514 1819 +膩銀1筝井 859 1209 1514 1819 +膩銀1筝井 859 1209 1514 1819 +膩銀1筝筝絎 859 1209 1514 1819 +膩銀1筝筝絎3筝 859 1209 1514 1819 +膩銀1筝筝絎 859 1209 1514 1819 +膩銀1筝筝絎 859 1209 1514 1819 +膩銀1筝ゃ泣若鴻祉潟帥若水 859 1209 1514 1819 +膩銀1筝茱翠違潟 859 1209 1514 1819 +膩銀1筝筝筝 859 1209 1514 1819 +膩銀1筝羈 859 1209 1514 1819 +膩銀1筝綺篋ゃ帥若 859 1209 1514 1819 +膩銀1筝育罩ｉ√ 859 1209 1514 1819 + +蕭荀伾ぇ絖() 900 1210 1515 1820 +蕭荀伾活綽級え 900 1210 1515 1820 +蕭荀佉罍絮怨羂蕕 900 1210 1515 1820 +蕭荀佉篆俄鎘 900 1210 1515 1820 +蕭荀佉3筝 900 1210 1515 1820 +蕭荀伾罘 900 1210 1515 1820 +蕭荀伾筝 900 1210 1515 1820 +蕭荀伹紙 900 1210 1515 1820 +蕭荀佀ユ羌欠 900 1210 1515 1820 +蕭荀伾紙 900 1210 1515 1820 +蕭荀伻九5筝 900 1210 1515 1820 +蕭荀伻九4筝 900 1210 1515 1820 +蕭荀佉医紫祉潟帥弱 900 1210 1515 1820 +蕭荀佉医紫祉潟帥弱 900 1210 1515 1820 +蕭荀伾臼絮綺 900 1210 1515 1820 +蕭荀伾臼絮罘 900 1210 1515 1820 +蕭荀伾ュ嵯祉潟帥弱 900 1210 1515 1820 +蕭荀伹羌潔絽翫 900 1210 1515 1820 +蕭荀伻賢 900 1210 1515 1820 +蕭荀伻賢紊 900 1210 1515 1820 +蕭荀佀遺峨 900 1210 1515 1820 +蕭荀佀2筝 900 1210 1515 1820 +蕭荀伾井灸梢絮 900 1210 1515 1820 +蕭荀伾井 900 1210 1515 1820 +蕭荀佀井 900 1210 1515 1820 +蕭荀伻絎 900 1210 1515 1820 +蕭荀伻絎3筝 900 1210 1515 1820 +蕭荀伻絎 900 1210 1515 1820 +蕭荀伻絎 900 1210 1515 1820 +蕭荀伹ゃ泣若鴻祉潟帥若水 900 1210 1515 1820 +蕭荀佈タ蕭違潟 900 1210 1515 1820 +蕭荀伹筝筝 900 1210 1515 1820 +蕭荀佀 900 1210 1515 1820 +蕭荀伾篋ゃ帥若 900 1210 1515 1820 +蕭荀佉育罩ｉ√ 900 1210 1515 1820 + +紊у()活綽級え 905 1215 1520 1825 +紊у()蕋罍絮怨羂蕕 905 1215 1520 1825 +紊у()篆俄鎘 905 1215 1520 1825 +紊у()3筝 905 1215 1520 1825 +紊у()綏罘 905 1215 1520 1825 +紊у()筝 905 1215 1520 1825 +紊у()紙 905 1215 1520 1825 +紊у()ユ羌欠 905 1215 1520 1825 +紊у()紊紙 905 1215 1520 1825 +紊у()篋九5筝 905 1215 1520 1825 +紊у()篋九4筝 905 1215 1520 1825 +紊у()医紫祉潟帥弱 905 1215 1520 1825 +紊у()医紫祉潟帥弱 905 1215 1520 1825 +紊у()絮怨綺 905 1215 1520 1825 +紊у()絮怨罘 905 1215 1520 1825 +紊у()ュ嵯祉潟帥弱 905 1215 1520 1825 +紊у()羌潔絽翫 905 1215 1520 1825 +紊у()筝 905 1215 1520 1825 +紊у()筝紊 905 1215 1520 1825 +紊у()羌遺峨 905 1215 1520 1825 +紊у()羌2筝 905 1215 1520 1825 +紊у()井灸梢絮 905 1215 1520 1825 +紊у()井 905 1215 1520 1825 +紊у()井 905 1215 1520 1825 +紊у()筝絎 905 1215 1520 1825 +紊у()筝絎3筝 905 1215 1520 1825 +紊у()筝絎 905 1215 1520 1825 +紊у()筝絎 905 1215 1520 1825 +紊у()ゃ泣若鴻祉潟帥若水 905 1215 1520 1825 +紊у()茱翠違潟 905 1215 1520 1825 +紊у()筝筝 905 1215 1520 1825 +紊у()羈 905 1215 1520 1825 +紊у()綺篋ゃ帥若 905 1215 1520 1825 +紊у()育罩ｉ√ 905 1215 1520 1825 + +活綽級え蕋罍絮怨羂蕕 906 1216 1521 1826 +活綽級え篆俄鎘 906 1216 1521 1826 +活綽級え3筝 906 1216 1521 1826 +活綽級え綏罘 906 1216 1521 1826 +活綽級え筝 906 1216 1521 1826 +活綽級え紙 906 1216 1521 1826 +活綽級えユ羌欠 906 1216 1521 1826 +活綽級え紊紙 906 1216 1521 1826 +活綽級え篋九5筝 906 1216 1521 1826 +活綽級え篋九4筝 906 1216 1521 1826 +活綽級え医紫祉潟帥弱 906 1216 1521 1826 +活綽級え医紫祉潟帥弱 906 1216 1521 1826 +活綽級え絮怨綺 906 1216 1521 1826 +活綽級え絮怨罘 906 1216 1521 1826 +活綽級えュ嵯祉潟帥弱 906 1216 1521 1826 +活綽級え羌潔絽翫 906 1216 1521 1826 +活綽級え筝 906 1216 1521 1826 +活綽級え筝紊 906 1216 1521 1826 +活綽級え羌遺峨 906 1216 1521 1826 +活綽級え羌2筝 906 1216 1521 1826 +活綽級え井灸梢絮 906 1216 1521 1826 +活綽級え井 906 1216 1521 1826 +活綽級え井 906 1216 1521 1826 +活綽級え筝絎 906 1216 1521 1826 +活綽級え筝絎3筝 906 1216 1521 1826 +活綽級え筝絎 906 1216 1521 1826 +活綽級え筝絎 906 1216 1521 1826 +活綽級えゃ泣若鴻祉潟帥若水 906 1216 1521 1826 +活綽級え茱翠違潟 906 1216 1521 1826 +活綽級え筝筝 906 1216 1521 1826 +活綽級え羈 906 1216 1521 1826 +活綽級え綺篋ゃ帥若 906 1216 1521 1826 +活綽級え育罩ｉ√ 906 1216 1521 1826 + +蕋罍絮怨羂蕕篆俄鎘 910 1220 1525 1830 +蕋罍絮怨羂蕕3筝 910 1220 1525 1830 +蕋罍絮怨羂蕕綏罘 910 1220 1525 1830 +蕋罍絮怨羂蕕筝 910 1220 1525 1830 +蕋罍絮怨羂蕕紙 910 1220 1525 1830 +蕋罍絮怨羂蕕ユ羌欠 910 1220 1525 1830 +蕋罍絮怨羂蕕紊紙 910 1220 1525 1830 +蕋罍絮怨羂蕕篋九5筝 910 1220 1525 1830 +蕋罍絮怨羂蕕篋九4筝 910 1220 1525 1830 +蕋罍絮怨羂蕕医紫祉潟帥弱 910 1220 1525 1830 +蕋罍絮怨羂蕕医紫祉潟帥弱 910 1220 1525 1830 +蕋罍絮怨羂蕕絮怨綺 910 1220 1525 1830 +蕋罍絮怨羂蕕絮怨罘 910 1220 1525 1830 +蕋罍絮怨羂蕕ュ嵯祉潟帥弱 910 1220 1525 1830 +蕋罍絮怨羂蕕羌潔絽翫 910 1220 1525 1830 +蕋罍絮怨羂蕕筝 910 1220 1525 1830 +蕋罍絮怨羂蕕筝紊 910 1220 1525 1830 +蕋罍絮怨羂蕕羌遺峨 910 1220 1525 1830 +蕋罍絮怨羂蕕羌2筝 910 1220 1525 1830 +蕋罍絮怨羂蕕井灸梢絮 910 1220 1525 1830 +蕋罍絮怨羂蕕井 910 1220 1525 1830 +蕋罍絮怨羂蕕井 910 1220 1525 1830 +蕋罍絮怨羂蕕筝絎 910 1220 1525 1830 +蕋罍絮怨羂蕕筝絎3筝 910 1220 1525 1830 +蕋罍絮怨羂蕕筝絎 910 1220 1525 1830 +蕋罍絮怨羂蕕筝絎 910 1220 1525 1830 +蕋罍絮怨羂蕕ゃ泣若鴻祉潟帥若水 910 1220 1525 1830 +蕋罍絮怨羂蕕茱翠違潟 910 1220 1525 1830 +蕋罍絮怨羂蕕1筝 910 1220 1525 1830 +蕋罍絮怨羂蕕羈 910 1220 1525 1830 +蕋罍絮怨羂蕕綺篋ゃ帥若 910 1220 1525 1830 +蕋罍絮怨羂蕕育罩ｉ√ 910 1220 1525 1830 + +篆俄鎘3筝 911 1221 1526 1831 +篆俄鎘綏罘 911 1221 1526 1831 +篆俄鎘筝 911 1221 1526 1831 +篆俄鎘紙 911 1221 1526 1831 +篆俄鎘ユ羌欠 911 1221 1526 1831 +篆俄鎘紊紙 911 1221 1526 1831 +篆俄鎘篋九5筝 911 1221 1526 1831 +篆俄鎘篋九4筝 911 1221 1526 1831 +篆俄鎘医紫祉潟帥弱 911 1221 1526 1831 +篆俄鎘医紫祉潟帥弱 911 1221 1526 1831 +篆俄鎘絮怨綺 911 1221 1526 1831 +篆俄鎘絮怨罘 911 1221 1526 1831 +篆俄鎘ュ嵯祉潟帥弱 911 1221 1526 1831 +篆俄鎘羌潔絽翫 911 1221 1526 1831 +篆俄鎘筝 911 1221 1526 1831 +篆俄鎘筝紊 911 1221 1526 1831 +篆俄鎘羌遺峨 911 1221 1526 1831 +篆俄鎘羌2筝 911 1221 1526 1831 +篆俄鎘井灸梢絮 911 1221 1526 1831 +篆俄鎘井 911 1221 1526 1831 +篆俄鎘井 911 1221 1526 1831 +篆俄鎘筝絎 911 1221 1526 1831 +篆俄鎘筝絎3筝 911 1221 1526 1831 +篆俄鎘筝絎 911 1221 1526 1831 +篆俄鎘筝絎 911 1221 1526 1831 +篆俄鎘ゃ泣若鴻祉潟帥若水 911 1221 1526 1831 +篆俄鎘茱翠違潟 911 1221 1526 1831 +篆俄鎘1筝 911 1221 1526 1831 +篆俄鎘羈 911 1221 1526 1831 +篆俄鎘綺篋ゃ帥若 911 1221 1526 1831 +篆俄鎘育罩ｉ√ 911 1221 1526 18313筝3筝 911 1221 1526 1831 +3筝綏罘 911 1221 1526 1831 +3筝筝 911 1221 1526 1831 +3筝紙 911 1221 1526 1831 +3筝ユ羌欠 911 1221 1526 1831 +3筝紊紙 911 1221 1526 1831 +3筝篋九5筝 911 1221 1526 1831 +3筝篋九4筝 911 1221 1526 1831 +3筝医紫祉潟帥弱 911 1221 1526 1831 +3筝医紫祉潟帥弱 911 1221 1526 1831 +3筝絮怨綺 911 1221 1526 1831 +3筝絮怨罘 911 1221 1526 1831 +3筝ュ嵯祉潟帥弱 911 1221 1526 1831 +3筝羌潔絽翫 911 1221 1526 1831 +3筝筝 911 1221 1526 1831 +3筝筝紊 911 1221 1526 1831 +3筝羌遺峨 911 1221 1526 1831 +3筝羌2筝 911 1221 1526 1831 +3筝井灸梢絮 911 1221 1526 1831 +3筝井 911 1221 1526 1831 +3筝井 911 1221 1526 1831 +3筝筝絎 911 1221 1526 1831 +3筝筝絎3筝 911 1221 1526 1831 +3筝筝絎 911 1221 1526 1831 +3筝筝絎 911 1221 1526 1831 +3筝ゃ泣若鴻祉潟帥若水 911 1221 1526 1831 +3筝茱翠違潟 911 1221 1526 1831 +3筝1筝 911 1221 1526 1831 +3筝羈 911 1221 1526 1831 +3筝綺篋ゃ帥若 911 1221 1526 1831 +3筝育罩ｉ√ 911 1221 1526 1831 + +綏罘筝 912 1222 1527 1832 +綏罘紙 912 1222 1527 1832 +綏罘ユ羌欠 912 1222 1527 1832 +綏罘紊紙 912 1222 1527 1832 +綏罘篋九5筝 912 1222 1527 1832 +綏罘篋九4筝 912 1222 1527 1832 +綏罘医紫祉潟帥弱 912 1222 1527 1832 +綏罘医紫祉潟帥弱 912 1222 1527 1832 +綏罘絮怨綺 912 1222 1527 1832 +綏罘絮怨罘 912 1222 1527 1832 +綏罘ュ嵯祉潟帥弱 912 1222 1527 1832 +綏罘羌潔絽翫 912 1222 1527 1832 +綏罘筝 912 1222 1527 1832 +綏罘筝紊 912 1222 1527 1832 +綏罘羌遺峨 912 1222 1527 1832 +綏罘羌2筝 912 1222 1527 1832 +綏罘井灸梢絮 912 1222 1527 1832 +綏罘井 912 1222 1527 1832 +綏罘井 912 1222 1527 1832 +綏罘筝絎 912 1222 1527 1832 +綏罘筝絎3筝 912 1222 1527 1832 +綏罘筝絎 912 1222 1527 1832 +綏罘筝絎 912 1222 1527 1832 +綏罘ゃ泣若鴻祉潟帥若水 912 1222 1527 1832 +綏罘茱翠違潟 912 1222 1527 1832 +綏罘1筝 912 1222 1527 1832 +綏罘羈 912 1222 1527 1832 +綏罘綺篋ゃ帥若 912 1222 1527 1832 +綏罘育罩ｉ√ 912 1222 1527 1832 + +筝紙 913 1223 1528 1833 +筝ユ羌欠 913 1223 1528 1833 +筝紊紙 913 1223 1528 1833 +筝篋九5筝 913 1223 1528 1833 +筝篋九4筝 913 1223 1528 1833 +筝医紫祉潟帥弱 913 1223 1528 1833 +筝医紫祉潟帥弱 913 1223 1528 1833 +筝絮怨綺 913 1223 1528 1833 +筝絮怨罘 913 1223 1528 1833 +筝ュ嵯祉潟帥弱 913 1223 1528 1833 +筝羌潔絽翫 913 1223 1528 1833 +筝筝 913 1223 1528 1833 +筝筝紊 913 1223 1528 1833 +筝羌遺峨 913 1223 1528 1833 +筝羌2筝 913 1223 1528 1833 +筝井灸梢絮 913 1223 1528 1833 +筝井 913 1223 1528 1833 +筝井 913 1223 1528 1833 +筝筝絎 913 1223 1528 1833 +筝筝絎3筝 913 1223 1528 1833 +筝筝絎 913 1223 1528 1833 +筝筝絎 913 1223 1528 1833 +筝ゃ泣若鴻祉潟帥若水 913 1223 1528 1833 +筝茱翠違潟 913 1223 1528 1833 +筝1筝 913 1223 1528 1833 +筝羈 913 1223 1528 1833 +筝綺篋ゃ帥若 913 1223 1528 1833 +筝育罩ｉ√ 913 1223 1528 1833 + +紙ユ羌欠 917 1227 1532 1837 +紙紊紙 917 1227 1532 1837 +紙篋九5筝 917 1227 1532 1837 +紙篋九4筝 917 1227 1532 1837 +紙医紫祉潟帥弱 917 1227 1532 1837 +紙医紫祉潟帥弱 917 1227 1532 1837 +紙絮怨綺 917 1227 1532 1837 +紙絮怨罘 917 1227 1532 1837 +紙ュ嵯祉潟帥弱 917 1227 1532 1837 +紙羌潔絽翫 917 1227 1532 1837 +紙筝 917 1227 1532 1837 +紙筝紊 917 1227 1532 1837 +紙羌遺峨 917 1227 1532 1837 +紙羌2筝 917 1227 1532 1837 +紙井灸梢絮 917 1227 1532 1837 +紙井 917 1227 1532 1837 +紙井 917 1227 1532 1837 +紙筝絎 917 1227 1532 1837 +紙筝絎3筝 917 1227 1532 1837 +紙筝絎 917 1227 1532 1837 +紙筝絎 917 1227 1532 1837 +紙ゃ泣若鴻祉潟帥若水 917 1227 1532 1837 +紙茱翠違潟 917 1227 1532 1837 +紙1筝 917 1227 1532 1837 +紙羈 917 1227 1532 1837 +紙綺篋ゃ帥若 917 1227 1532 1837 +紙育罩ｉ√ 917 1227 1532 1837 + +ユ羌欠√紙 919 1229 1534 1839 +ユ羌欠≫九5筝 919 1229 1534 1839 +ユ羌欠≫九4筝 919 1229 1534 1839 +ユ羌欠∫医紫祉潟帥弱 919 1229 1534 1839 +ユ羌欠∫医紫祉潟帥弱 919 1229 1534 1839 +ユ羌欠√臼絮綺 919 1229 1534 1839 +ユ羌欠√臼絮罘 919 1229 1534 1839 +ユ羌欠√ュ嵯祉潟帥弱 919 1229 1534 1839 +ユ羌欠≪羌潔絽翫 919 1229 1534 1839 +ユ羌欠≫賢 919 1229 1534 1839 +ユ羌欠≫賢紊 919 1229 1534 1839 +ユ羌欠∽遺峨 919 1229 1534 1839 +ユ羌欠∽2筝 919 1229 1534 1839 +ユ羌欠√井灸梢絮 919 1229 1534 1839 +ユ羌欠√井 919 1229 1534 1839 +ユ羌欠∽井 919 1229 1534 1839 +ユ羌欠≫絎 919 1229 1534 1839 +ユ羌欠≫絎3筝 919 1229 1534 1839 +ユ羌欠≫絎 919 1229 1534 1839 +ユ羌欠≫絎 919 1229 1534 1839 +ユ羌欠≪ゃ泣若鴻祉潟帥若水 919 1229 1534 1839 +ユ羌欠∵タ蕭違潟 919 1229 1534 1839 +ユ羌欠≪1筝 919 1229 1534 1839 +ユ羌欠∽ 919 1229 1534 1839 +ユ羌欠√篋ゃ帥若 919 1229 1534 1839 +ユ羌欠∫育罩ｉ√ 919 1229 1534 1839 + +紊紙篋九5筝 922 1232 1537 1842 +紊紙篋九4筝 922 1232 1537 1842 +紊紙医紫祉潟帥弱 922 1232 1537 1842 +紊紙医紫祉潟帥弱 922 1232 1537 1842 +紊紙絮怨綺 922 1232 1537 1842 +紊紙絮怨罘 922 1232 1537 1842 +紊紙ュ嵯祉潟帥弱 922 1232 1537 1842 +紊紙羌潔絽翫 922 1232 1537 1842 +紊紙筝 922 1232 1537 1842 +紊紙筝紊 922 1232 1537 1842 +紊紙羌遺峨 922 1232 1537 1842 +紊紙羌2筝 922 1232 1537 1842 +紊紙井灸梢絮 922 1232 1537 1842 +紊紙井 922 1232 1537 1842 +紊紙井 922 1232 1537 1842 +紊紙筝絎 922 1232 1537 1842 +紊紙筝絎3筝 922 1232 1537 1842 +紊紙筝絎 922 1232 1537 1842 +紊紙筝絎 922 1232 1537 1842 +紊紙ゃ泣若鴻祉潟帥若水 922 1232 1537 1842 +紊紙茱翠違潟 922 1232 1537 1842 +紊紙1筝 922 1232 1537 1842 +紊紙羈 922 1232 1537 1842 +紊紙綺篋ゃ帥若 922 1232 1537 1842 +紊紙育罩ｉ√ 922 1232 1537 1842 + +篋九5筝篋九4筝 923 1233 1538 1843 +篋九5筝医紫祉潟帥弱 923 1233 1538 1843 +篋九5筝医紫祉潟帥弱 923 1233 1538 1843 +篋九5筝絮怨綺 923 1233 1538 1843 +篋九5筝絮怨罘 923 1233 1538 1843 +篋九5筝ュ嵯祉潟帥弱 923 1233 1538 1843 +篋九5筝羌潔絽翫 923 1233 1538 1843 +篋九5筝筝 923 1233 1538 1843 +篋九5筝筝紊 923 1233 1538 1843 +篋九5筝羌遺峨 923 1233 1538 1843 +篋九5筝羌2筝 923 1233 1538 1843 +篋九5筝井灸梢絮 923 1233 1538 1843 +篋九5筝井 923 1233 1538 1843 +篋九5筝井 923 1233 1538 1843 +篋九5筝筝絎 923 1233 1538 1843 +篋九5筝筝絎3筝 923 1233 1538 1843 +篋九5筝筝絎 923 1233 1538 1843 +篋九5筝筝絎 923 1233 1538 1843 +篋九5筝ゃ泣若鴻祉潟帥若水 923 1233 1538 1843 +篋九5筝茱翠違潟 923 1233 1538 1843 +篋九5筝1筝 923 1233 1538 1843 +篋九5筝羈 923 1233 1538 1843 +篋九5筝綺篋ゃ帥若 923 1233 1538 1843 +篋九5筝育罩ｉ√ 923 1233 1538 1843 + +篋九4筝医紫祉潟帥弱 924 1234 1539 1844 +篋九4筝医紫祉潟帥弱 924 1234 1539 1844 +篋九4筝絮怨綺 924 1234 1539 1844 +篋九4筝絮怨罘 924 1234 1539 1844 +篋九4筝ュ嵯祉潟帥弱 924 1234 1539 1844 +篋九4筝羌潔絽翫 924 1234 1539 1844 +篋九4筝筝 924 1234 1539 1844 +篋九4筝筝紊 924 1234 1539 1844 +篋九4筝羌遺峨 924 1234 1539 1844 +篋九4筝羌2筝 924 1234 1539 1844 +篋九4筝井灸梢絮 924 1234 1539 1844 +篋九4筝井 924 1234 1539 1844 +篋九4筝井 924 1234 1539 1844 +篋九4筝筝絎 924 1234 1539 1844 +篋九4筝筝絎3筝 924 1234 1539 1844 +篋九4筝筝絎 924 1234 1539 1844 +篋九4筝筝絎 924 1234 1539 1844 +篋九4筝ゃ泣若鴻祉潟帥若水 924 1234 1539 1844 +篋九4筝茱翠違潟 924 1234 1539 1844 +篋九4筝1筝 924 1234 1539 1844 +篋九4筝羈 924 1234 1539 1844 +篋九4筝綺篋ゃ帥若 924 1234 1539 1844 +篋九4筝育罩ｉ√ 924 1234 1539 1844 + +医紫祉潟帥弱医紫祉潟帥弱 925 1235 1540 1845 +医紫祉潟帥弱絮怨綺 925 1235 1540 1845 +医紫祉潟帥弱絮怨罘 925 1235 1540 1845 +医紫祉潟帥弱ュ嵯祉潟帥弱 925 1235 1540 1845 +医紫祉潟帥弱羌潔絽翫 925 1235 1540 1845 +医紫祉潟帥弱筝 925 1235 1540 1845 +医紫祉潟帥弱筝紊 925 1235 1540 1845 +医紫祉潟帥弱羌遺峨 925 1235 1540 1845 +医紫祉潟帥弱羌2筝 925 1235 1540 1845 +医紫祉潟帥弱井灸梢絮 925 1235 1540 1845 +医紫祉潟帥弱井 925 1235 1540 1845 +医紫祉潟帥弱井 925 1235 1540 1845 +医紫祉潟帥弱筝絎 925 1235 1540 1845 +医紫祉潟帥弱筝絎3筝 925 1235 1540 1845 +医紫祉潟帥弱筝絎 925 1235 1540 1845 +医紫祉潟帥弱筝絎 925 1235 1540 1845 +医紫祉潟帥弱ゃ泣若鴻祉潟帥若水 925 1235 1540 1845 +医紫祉潟帥弱茱翠違潟 925 1235 1540 1845 +医紫祉潟帥弱1筝 925 1235 1540 1845 +医紫祉潟帥弱羈 925 1235 1540 1845 +医紫祉潟帥弱綺篋ゃ帥若 925 1235 1540 1845 +医紫祉潟帥弱育罩ｉ√ 925 1235 1540 1845 + +医紫祉潟帥弱ｅ臼絮綺 926 1236 1541 1846 +医紫祉潟帥弱ｅ臼絮罘 926 1236 1541 1846 +医紫祉潟帥弱ｅュ嵯祉潟帥弱 926 1236 1541 1846 +医紫祉潟帥弱ｃ羌潔絽翫 926 1236 1541 1846 +医紫祉潟帥弱ｄ賢 926 1236 1541 1846 +医紫祉潟帥弱ｄ賢紊 926 1236 1541 1846 +医紫祉潟帥弱ｆ遺峨 926 1236 1541 1846 +医紫祉潟帥弱ｆ2筝 926 1236 1541 1846 +医紫祉潟帥弱ｅ井灸梢絮 926 1236 1541 1846 +医紫祉潟帥弱ｅ井 926 1236 1541 1846 +医紫祉潟帥弱ｆ井 926 1236 1541 1846 +医紫祉潟帥弱ｄ絎 926 1236 1541 1846 +医紫祉潟帥弱ｄ絎3筝 926 1236 1541 1846 +医紫祉潟帥弱ｄ絎 926 1236 1541 1846 +医紫祉潟帥弱ｄ絎 926 1236 1541 1846 +医紫祉潟帥弱ｃゃ泣若鴻祉潟帥若水 926 1236 1541 1846 +医紫祉潟帥弱ｈタ蕭違潟 926 1236 1541 1846 +医紫祉潟帥弱ｃ1筝 926 1236 1541 1846 +医紫祉潟帥弱ｆ 926 1236 1541 1846 +医紫祉潟帥弱ｅ篋ゃ帥若 926 1236 1541 1846 +医紫祉潟帥弱ｉ育罩ｉ√ 926 1236 1541 1846 + +絮怨綺絮怨罘 928 1238 1543 1848 +絮怨綺ュ嵯祉潟帥弱 928 1238 1543 1848 +絮怨綺羌潔絽翫 928 1238 1543 1848 +絮怨綺筝 928 1238 1543 1848 +絮怨綺筝紊 928 1238 1543 1848 +絮怨綺羌遺峨 928 1238 1543 1848 +絮怨綺羌2筝 928 1238 1543 1848 +絮怨綺井灸梢絮 928 1238 1543 1848 +絮怨綺井 928 1238 1543 1848 +絮怨綺井 928 1238 1543 1848 +絮怨綺筝絎 928 1238 1543 1848 +絮怨綺筝絎3筝 928 1238 1543 1848 +絮怨綺筝絎 928 1238 1543 1848 +絮怨綺筝絎 928 1238 1543 1848 +絮怨綺ゃ泣若鴻祉潟帥若水 928 1238 1543 1848 +絮怨綺茱翠違潟 928 1238 1543 1848 +絮怨綺1筝 928 1238 1543 1848 +絮怨綺羈 928 1238 1543 1848 +絮怨綺綺篋ゃ帥若 928 1238 1543 1848 +絮怨綺育罩ｉ√ 928 1238 1543 1848 + +絮怨罘ュ嵯祉潟帥弱 930 1240 1545 1850 +絮怨罘羌潔絽翫 930 1240 1545 1850 +絮怨罘筝 930 1240 1545 1850 +絮怨罘筝紊 930 1240 1545 1850 +絮怨罘羌遺峨 930 1240 1545 1850 +絮怨罘羌2筝 930 1240 1545 1850 +絮怨罘井灸梢絮 930 1240 1545 1850 +絮怨罘井 930 1240 1545 1850 +絮怨罘井 930 1240 1545 1850 +絮怨罘筝絎 930 1240 1545 1850 +絮怨罘筝絎3筝 930 1240 1545 1850 +絮怨罘筝絎 930 1240 1545 1850 +絮怨罘筝絎 930 1240 1545 1850 +絮怨罘ゃ泣若鴻祉潟帥若水 930 1240 1545 1850 +絮怨罘茱翠違潟 930 1240 1545 1850 +絮怨罘1筝 930 1240 1545 1850 +絮怨罘羈 930 1240 1545 1850 +絮怨罘綺篋ゃ帥若 930 1240 1545 1850 +絮怨罘育罩ｉ√ 930 1240 1545 1850 + +ュ嵯祉潟帥弱羌潔絽翫 932 1242 1547 1852 +ュ嵯祉潟帥弱筝 932 1242 1547 1852 +ュ嵯祉潟帥弱筝紊 932 1242 1547 1852 +ュ嵯祉潟帥弱羌遺峨 932 1242 1547 1852 +ュ嵯祉潟帥弱羌2筝 932 1242 1547 1852 +ュ嵯祉潟帥弱井灸梢絮 932 1242 1547 1852 +ュ嵯祉潟帥弱井 932 1242 1547 1852 +ュ嵯祉潟帥弱井 932 1242 1547 1852 +ュ嵯祉潟帥弱筝絎 932 1242 1547 1852 +ュ嵯祉潟帥弱筝絎3筝 932 1242 1547 1852 +ュ嵯祉潟帥弱筝絎 932 1242 1547 1852 +ュ嵯祉潟帥弱筝絎 932 1242 1547 1852 +ュ嵯祉潟帥弱ゃ泣若鴻祉潟帥若水 932 1242 1547 1852 +ュ嵯祉潟帥弱茱翠違潟 932 1242 1547 1852 +ュ嵯祉潟帥弱1筝 932 1242 1547 1852 +ュ嵯祉潟帥弱羈 932 1242 1547 1852 +ュ嵯祉潟帥弱綺篋ゃ帥若 932 1242 1547 1852 +ュ嵯祉潟帥弱育罩ｉ√ 932 1242 1547 1852 + +羌潔絽翫筝 933 1243 1548 1853 +羌潔絽翫筝紊 933 1243 1548 1853 +羌潔絽翫羌遺峨 933 1243 1548 1853 +羌潔絽翫羌2筝 933 1243 1548 1853 +羌潔絽翫井灸梢絮 933 1243 1548 1853 +羌潔絽翫井 933 1243 1548 1853 +羌潔絽翫井 933 1243 1548 1853 +羌潔絽翫筝絎 933 1243 1548 1853 +羌潔絽翫筝絎3筝 933 1243 1548 1853 +羌潔絽翫筝絎 933 1243 1548 1853 +羌潔絽翫筝絎 933 1243 1548 1853 +羌潔絽翫ゃ泣若鴻祉潟帥若水 933 1243 1548 1853 +羌潔絽翫茱翠違潟 933 1243 1548 1853 +羌潔絽翫1筝 933 1243 1548 1853 +羌潔絽翫羈 933 1243 1548 1853 +羌潔絽翫綺篋ゃ帥若 933 1243 1548 1853 +羌潔絽翫育罩ｉ√ 933 1243 1548 1853 + +筝坂賢紊 935 1245 1550 1855 +筝堺遺峨 935 1245 1550 1855 +筝堺2筝 935 1245 1550 1855 +筝阪井灸梢絮 935 1245 1550 1855 +筝阪井 935 1245 1550 1855 +筝堺井 935 1245 1550 1855 +筝坂絎 935 1245 1550 1855 +筝坂絎3筝 935 1245 1550 1855 +筝坂絎 935 1245 1550 1855 +筝坂絎 935 1245 1550 1855 +筝冴ゃ泣若鴻祉潟帥若水 935 1245 1550 1855 +筝肴タ蕭違潟 935 1245 1550 1855 +筝冴1筝 935 1245 1550 1855 +筝堺 935 1245 1550 1855 +筝阪篋ゃ帥若 935 1245 1550 1855 +筝咲育罩ｉ√ 935 1245 1550 1855 + +筝紊羌遺峨 937 1247 1552 1857 +筝紊羌2筝 937 1247 1552 1857 +筝紊井灸梢絮 937 1247 1552 1857 +筝紊井 937 1247 1552 1857 +筝紊井 937 1247 1552 1857 +筝紊筝絎 937 1247 1552 1857 +筝紊筝絎3筝 937 1247 1552 1857 +筝紊筝絎 937 1247 1552 1857 +筝紊筝絎 937 1247 1552 1857 +筝紊ゃ泣若鴻祉潟帥若水 937 1247 1552 1857 +筝紊茱翠違潟 937 1247 1552 1857 +筝紊1筝 937 1247 1552 1857 +筝紊羈 937 1247 1552 1857 +筝紊綺篋ゃ帥若 937 1247 1552 1857 +筝紊育罩ｉ√ 937 1247 1552 1857 + +羌遺峨羌2筝 938 1248 1553 1858 +羌遺峨井灸梢絮 938 1248 1553 1858 +羌遺峨井 938 1248 1553 1858 +羌遺峨井 938 1248 1553 1858 +羌遺峨筝絎 938 1248 1553 1858 +羌遺峨筝絎3筝 938 1248 1553 1858 +羌遺峨筝絎 938 1248 1553 1858 +羌遺峨筝絎 938 1248 1553 1858 +羌遺峨ゃ泣若鴻祉潟帥若水 938 1248 1553 1858 +羌遺峨茱翠違潟 938 1248 1553 1858 +羌遺峨1筝 938 1248 1553 1858 +羌遺峨羈 938 1248 1553 1858 +羌遺峨綺篋ゃ帥若 938 1248 1553 1858 +羌遺峨育罩ｉ√ 938 1248 1553 1858 + +羌2筝井灸梢絮 939 1249 1554 1859 +羌2筝井 939 1249 1554 1859 +羌2筝井 939 1249 1554 1859 +羌2筝筝絎 939 1249 1554 1859 +羌2筝筝絎3筝 939 1249 1554 1859 +羌2筝筝絎 939 1249 1554 1859 +羌2筝筝絎 939 1249 1554 1859 +羌2筝ゃ泣若鴻祉潟帥若水 939 1249 1554 1859 +羌2筝茱翠違潟 939 1249 1554 1859 +羌2筝1筝 939 1249 1554 1859 +羌2筝羈 939 1249 1554 1859 +羌2筝綺篋ゃ帥若 939 1249 1554 1859 +羌2筝育罩ｉ√ 939 1249 1554 1859 + +井灸梢絮井 941 1251 1556 1901 +井灸梢絮井 941 1251 1556 1901 +井灸梢絮筝絎 941 1251 1556 1901 +井灸梢絮筝絎3筝 941 1251 1556 1901 +井灸梢絮筝絎 941 1251 1556 1901 +井灸梢絮筝絎 941 1251 1556 1901 +井灸梢絮ゃ泣若鴻祉潟帥若水 941 1251 1556 1901 +井灸梢絮茱翠違潟 941 1251 1556 1901 +井灸梢絮1筝 941 1251 1556 1901 +井灸梢絮羈 941 1251 1556 1901 +井灸梢絮綺篋ゃ帥若 941 1251 1556 1901 +井灸梢絮育罩ｉ√ 941 1251 1556 1901 + +井井 942 1252 1557 1902 +井筝絎 942 1252 1557 1902 +井筝絎3筝 942 1252 1557 1902 +井筝絎 942 1252 1557 1902 +井筝絎 942 1252 1557 1902 +井ゃ泣若鴻祉潟帥若水 942 1252 1557 1902 +井茱翠違潟 942 1252 1557 1902 +井1筝 942 1252 1557 1902 +井羈 942 1252 1557 1902 +井綺篋ゃ帥若 942 1252 1557 1902 +井育罩ｉ√ 942 1252 1557 1902 + +井筝絎 943 1253 1558 1903 +井筝絎3筝 943 1253 1558 1903 +井筝絎 943 1253 1558 1903 +井筝絎 943 1253 1558 1903 +井ゃ泣若鴻祉潟帥若水 943 1253 1558 1903 +井茱翠違潟 943 1253 1558 1903 +井1筝 943 1253 1558 1903 +井羈 943 1253 1558 1903 +井綺篋ゃ帥若 943 1253 1558 1903 +井育罩ｉ√ 943 1253 1558 1903 + +筝絎筝絎3筝 947 1257 1602 1907 +筝絎筝絎 947 1257 1602 1907 +筝絎筝絎 947 1257 1602 1907 +筝絎ゃ泣若鴻祉潟帥若水 947 1257 1602 1907 +筝絎茱翠違潟 947 1257 1602 1907 +筝絎1筝 947 1257 1602 1907 +筝絎羈 947 1257 1602 1907 +筝絎綺篋ゃ帥若 947 1257 1602 1907 +筝絎育罩ｉ√ 947 1257 1602 1907 + +筝絎3筝筝絎 948 1258 1603 1908 +筝絎3筝筝絎 948 1258 1603 1908 +筝絎3筝ゃ泣若鴻祉潟帥若水 948 1258 1603 1908 +筝絎3筝茱翠違潟 948 1258 1603 1908 +筝絎3筝1筝 948 1258 1603 1908 +筝絎3筝羈 948 1258 1603 1908 +筝絎3筝綺篋ゃ帥若 948 1258 1603 1908 +筝絎3筝育罩ｉ√ 948 1258 1603 1908 + +筝絎坂絎 949 1259 1604 1909 +筝絎冴ゃ泣若鴻祉潟帥若水 949 1259 1604 1909 +筝絎肴タ蕭違潟 949 1259 1604 1909 +筝絎冴1筝 949 1259 1604 1909 +筝絎堺 949 1259 1604 1909 +筝絎阪篋ゃ帥若 949 1259 1604 1909 +筝絎咲育罩ｉ√ 949 1259 1604 1909 + +筝絎冴ゃ泣若鴻祉潟帥若水 950 1300 1605 1910 +筝絎肴タ蕭違潟 950 1300 1605 1910 +筝絎冴1筝 950 1300 1605 1910 +筝絎堺 950 1300 1605 1910 +筝絎阪篋ゃ帥若 950 1300 1605 1910 +筝絎咲育罩ｉ√ 950 1300 1605 1910 + +ゃ泣若鴻祉潟帥若水茱翠違潟 951 1301 1606 1911 +ゃ泣若鴻祉潟帥若水1筝 951 1301 1606 1911 +ゃ泣若鴻祉潟帥若水羈 951 1301 1606 1911 +ゃ泣若鴻祉潟帥若水綺篋ゃ帥若 951 1301 1606 1911 +ゃ泣若鴻祉潟帥若水育罩ｉ√ 951 1301 1606 1911 + +茱翠違潟1筝 952 1302 1607 1912 +茱翠違潟羈 952 1302 1607 1912 +茱翠違潟綺篋ゃ帥若 952 1302 1607 1912 +茱翠違潟育罩ｉ√ 952 1302 1607 1912 + +1筝羈 954 1304 1609 1914 +1筝綺篋ゃ帥若 954 1304 1609 1914 +1筝育罩ｉ√ 954 1304 1609 1914 + +羈阪篋ゃ帥若 954 1304 1609 1914 +羈咲育罩ｉ√ 954 1304 1609 1914 + +綺篋ゃ帥若育罩ｉ√ 955 1305 1610 1915 + +ゆ蕭 725 1055 1410 1740 +ゆ絮怨合√ 725 1055 1410 1740 +ゆ銀4筝 725 1055 1410 1740 +ゆ娯腴倶翫 725 1055 1410 1740 +ゆ娯腴倶頑 725 1055 1410 1740 +ゆ銀2筝 725 1055 1410 1740 +ゆ亥2筝 725 1055 1410 1740 +ゆ亥2筝 725 1055 1410 1740 +ゆュ1筝 725 1055 1410 1740 +ゆ 725 1055 1410 1740 +ゆ篏 725 1055 1410 1740 +ゆ銀1筝 725 1055 1410 1740 +ゆ腮臀峨 725 1055 1410 1740 +ゆ亥1筝 725 1055 1410 1740 +ゆ祉潟帥弱 725 1055 1410 1740 +ゆ絲睡 725 1055 1410 1740 +ゆ筝3筝 725 1055 1410 1740 +ゆ筝肴タ 725 1055 1410 1740 +ゆ絽綵号茱 725 1055 1410 1740 +ゆ絮怨肴タ 725 1055 1410 1740 +ゆ羝 725 1055 1410 1740 +ゆョ合 725 1055 1410 1740 +ゆ医紫祉潟帥弱 725 1055 1410 1740 +ゆ篋九灸梢絮 725 1055 1410 1740 +ゆ帥1筝 725 1055 1410 1740 +ゆ帥2筝 725 1055 1410 1740 +ゆ阪 725 1055 1410 1740 +ゆユ羌欠 725 1055 1410 1740 +ゆ紊у3筝 725 1055 1410 1740 +ゆ紊у4筝 725 1055 1410 1740 +ゆ咲 725 1055 1410 1740 +ゆ絨 725 1055 1410 1740 +ゆ亥 725 1055 1410 1740 +ゆ莇薈 725 1055 1410 1740 +ゆ莇膩 725 1055 1410 1740 +ゆ紊腑 725 1055 1410 1740 +ゆ恰 725 1055 1410 1740 +ゆ罅 725 1055 1410 1740 +ゆ≦臼 725 1055 1410 1740 +ゆ筝 725 1055 1410 1740 +ゆ絮掩ク 725 1055 1410 1740 +ゆ羝羈 725 1055 1410 1740 + +蕭絮怨合√ 727 1057 1412 1742 +蕭銀4筝 727 1057 1412 1742 +蕭娯腴倶翫 727 1057 1412 1742 +蕭娯腴倶頑 727 1057 1412 1742 +蕭銀2筝 727 1057 1412 1742 +蕭亥2筝 727 1057 1412 1742 +蕭亥2筝 727 1057 1412 1742 +蕭ュ1筝 727 1057 1412 1742 +蕭 727 1057 1412 1742 +蕭篏 727 1057 1412 1742 +蕭銀1筝 727 1057 1412 1742 +蕭腮臀峨 727 1057 1412 1742 +蕭亥1筝 727 1057 1412 1742 +蕭祉潟帥弱 727 1057 1412 1742 +蕭絲睡 727 1057 1412 1742 +蕭筝3筝 727 1057 1412 1742 +蕭筝肴タ 727 1057 1412 1742 +蕭絽綵号茱 727 1057 1412 1742 +蕭絮怨肴タ 727 1057 1412 1742 +蕭羝 727 1057 1412 1742 +蕭ョ合 727 1057 1412 1742 +蕭医紫祉潟帥弱 727 1057 1412 1742 +蕭篋九灸梢絮 727 1057 1412 1742 +蕭帥1筝 727 1057 1412 1742 +蕭帥2筝 727 1057 1412 1742 +蕭阪 727 1057 1412 1742 +蕭ユ羌欠 727 1057 1412 1742 +蕭紊у3筝 727 1057 1412 1742 +蕭紊у4筝 727 1057 1412 1742 +蕭咲 727 1057 1412 1742 +蕭絨 727 1057 1412 1742 +蕭亥 727 1057 1412 1742 +蕭莇薈 727 1057 1412 1742 +蕭莇膩 727 1057 1412 1742 +蕭紊腑 727 1057 1412 1742 +蕭恰 727 1057 1412 1742 +蕭罅 727 1057 1412 1742 +蕭≦臼 727 1057 1412 1742 +蕭筝 727 1057 1412 1742 +蕭絮掩ク 727 1057 1412 1742 +蕭羝羈 727 1057 1412 1742 + +絮怨合√銀4筝 728 1058 1413 1743 +絮怨合√娯腴倶翫 728 1058 1413 1743 +絮怨合√娯腴倶頑 728 1058 1413 1743 +絮怨合√銀2筝 728 1058 1413 1743 +絮怨合√亥2筝 728 1058 1413 1743 +絮怨合√亥2筝 728 1058 1413 1743 +絮怨合√ュ1筝 728 1058 1413 1743 +絮怨合√ 728 1058 1413 1743 +絮怨合√篏 728 1058 1413 1743 +絮怨合√銀1筝 728 1058 1413 1743 +絮怨合√腮臀峨 728 1058 1413 1743 +絮怨合√亥1筝 728 1058 1413 1743 +絮怨合√祉潟帥弱 728 1058 1413 1743 +絮怨合√絲睡 728 1058 1413 1743 +絮怨合√筝3筝 728 1058 1413 1743 +絮怨合√筝肴タ 728 1058 1413 1743 +絮怨合√絽綵号茱 728 1058 1413 1743 +絮怨合√絮怨肴タ 728 1058 1413 1743 +絮怨合√羝 728 1058 1413 1743 +絮怨合√ョ合 728 1058 1413 1743 +絮怨合√医紫祉潟帥弱 728 1058 1413 1743 +絮怨合√篋九灸梢絮 728 1058 1413 1743 +絮怨合√帥1筝 728 1058 1413 1743 +絮怨合√帥2筝 728 1058 1413 1743 +絮怨合√阪 728 1058 1413 1743 +絮怨合√ユ羌欠 728 1058 1413 1743 +絮怨合√紊у3筝 728 1058 1413 1743 +絮怨合√紊у4筝 728 1058 1413 1743 +絮怨合√咲 728 1058 1413 1743 +絮怨合√絨 728 1058 1413 1743 +絮怨合√亥 728 1058 1413 1743 +絮怨合√莇薈 728 1058 1413 1743 +絮怨合√莇膩 728 1058 1413 1743 +絮怨合√紊腑 728 1058 1413 1743 +絮怨合√恰 728 1058 1413 1743 +絮怨合√罅 728 1058 1413 1743 +絮怨合√≦臼 728 1058 1413 1743 +絮怨合√筝 728 1058 1413 1743 +絮怨合√絮掩ク 728 1058 1413 1743 +絮怨合√羝羈 728 1058 1413 1743 + +銀4筝娯腴倶翫 730 1100 1415 1745 +銀4筝娯腴倶頑 730 1100 1415 1745 +銀4筝銀2筝 730 1100 1415 1745 +銀4筝亥2筝 730 1100 1415 1745 +銀4筝亥2筝 730 1100 1415 1745 +銀4筝ュ1筝 730 1100 1415 1745 +銀4筝 730 1100 1415 1745 +銀4筝篏 730 1100 1415 1745 +銀4筝銀1筝 730 1100 1415 1745 +銀4筝腮臀峨 730 1100 1415 1745 +銀4筝亥1筝 730 1100 1415 1745 +銀4筝祉潟帥弱 730 1100 1415 1745 +銀4筝絲睡 730 1100 1415 1745 +銀4筝筝3筝 730 1100 1415 1745 +銀4筝筝肴タ 730 1100 1415 1745 +銀4筝絽綵号茱 730 1100 1415 1745 +銀4筝絮怨肴タ 730 1100 1415 1745 +銀4筝羝 730 1100 1415 1745 +銀4筝ョ合 730 1100 1415 1745 +銀4筝医紫祉潟帥弱 730 1100 1415 1745 +銀4筝篋九灸梢絮 730 1100 1415 1745 +銀4筝帥1筝 730 1100 1415 1745 +銀4筝帥2筝 730 1100 1415 1745 +銀4筝阪 730 1100 1415 1745 +銀4筝ユ羌欠 730 1100 1415 1745 +銀4筝紊у3筝 730 1100 1415 1745 +銀4筝紊у4筝 730 1100 1415 1745 +銀4筝咲 730 1100 1415 1745 +銀4筝絨 730 1100 1415 1745 +銀4筝亥 730 1100 1415 1745 +銀4筝莇薈 730 1100 1415 1745 +銀4筝莇膩 730 1100 1415 1745 +銀4筝紊腑 730 1100 1415 1745 +銀4筝恰 730 1100 1415 1745 +銀4筝罅 730 1100 1415 1745 +銀4筝≦臼 730 1100 1415 1745 +銀4筝筝 730 1100 1415 1745 +銀4筝絮掩ク 730 1100 1415 1745 +銀4筝羝羈 730 1100 1415 1745 + +娯腴倶翫娯腴倶頑 731 1101 1416 1746 +娯腴倶翫銀2筝 731 1101 1416 1746 +娯腴倶翫亥2筝 731 1101 1416 1746 +娯腴倶翫亥2筝 731 1101 1416 1746 +娯腴倶翫ュ1筝 731 1101 1416 1746 +娯腴倶翫 731 1101 1416 1746 +娯腴倶翫篏 731 1101 1416 1746 +娯腴倶翫銀1筝 731 1101 1416 1746 +娯腴倶翫腮臀峨 731 1101 1416 1746 +娯腴倶翫亥1筝 731 1101 1416 1746 +娯腴倶翫祉潟帥弱 731 1101 1416 1746 +娯腴倶翫絲睡 731 1101 1416 1746 +娯腴倶翫筝3筝 731 1101 1416 1746 +娯腴倶翫筝肴タ 731 1101 1416 1746 +娯腴倶翫絽綵号茱 731 1101 1416 1746 +娯腴倶翫絮怨肴タ 731 1101 1416 1746 +娯腴倶翫羝 731 1101 1416 1746 +娯腴倶翫ョ合 731 1101 1416 1746 +娯腴倶翫医紫祉潟帥弱 731 1101 1416 1746 +娯腴倶翫篋九灸梢絮 731 1101 1416 1746 +娯腴倶翫帥1筝 731 1101 1416 1746 +娯腴倶翫帥2筝 731 1101 1416 1746 +娯腴倶翫阪 731 1101 1416 1746 +娯腴倶翫ユ羌欠 731 1101 1416 1746 +娯腴倶翫紊у3筝 731 1101 1416 1746 +娯腴倶翫紊у4筝 731 1101 1416 1746 +娯腴倶翫咲 731 1101 1416 1746 +娯腴倶翫絨 731 1101 1416 1746 +娯腴倶翫亥 731 1101 1416 1746 +娯腴倶翫莇薈 731 1101 1416 1746 +娯腴倶翫莇膩 731 1101 1416 1746 +娯腴倶翫紊腑 731 1101 1416 1746 +娯腴倶翫恰 731 1101 1416 1746 +娯腴倶翫罅 731 1101 1416 1746 +娯腴倶翫≦臼 731 1101 1416 1746 +娯腴倶翫筝 731 1101 1416 1746 +娯腴倶翫絮掩ク 731 1101 1416 1746 +娯腴倶翫羝羈 731 1101 1416 1746 + +娯腴倶頑銀2筝 732 1102 1417 1747 +娯腴倶頑亥2筝 732 1102 1417 1747 +娯腴倶頑亥2筝 732 1102 1417 1747 +娯腴倶頑ュ1筝 732 1102 1417 1747 +娯腴倶頑 732 1102 1417 1747 +娯腴倶頑篏 732 1102 1417 1747 +娯腴倶頑銀1筝 732 1102 1417 1747 +娯腴倶頑腮臀峨 732 1102 1417 1747 +娯腴倶頑亥1筝 732 1102 1417 1747 +娯腴倶頑祉潟帥弱 732 1102 1417 1747 +娯腴倶頑絲睡 732 1102 1417 1747 +娯腴倶頑筝3筝 732 1102 1417 1747 +娯腴倶頑筝肴タ 732 1102 1417 1747 +娯腴倶頑絽綵号茱 732 1102 1417 1747 +娯腴倶頑絮怨肴タ 732 1102 1417 1747 +娯腴倶頑羝 732 1102 1417 1747 +娯腴倶頑ョ合 732 1102 1417 1747 +娯腴倶頑医紫祉潟帥弱 732 1102 1417 1747 +娯腴倶頑篋九灸梢絮 732 1102 1417 1747 +娯腴倶頑帥1筝 732 1102 1417 1747 +娯腴倶頑帥2筝 732 1102 1417 1747 +娯腴倶頑阪 732 1102 1417 1747 +娯腴倶頑ユ羌欠 732 1102 1417 1747 +娯腴倶頑紊у3筝 732 1102 1417 1747 +娯腴倶頑紊у4筝 732 1102 1417 1747 +娯腴倶頑咲 732 1102 1417 1747 +娯腴倶頑絨 732 1102 1417 1747 +娯腴倶頑亥 732 1102 1417 1747 +娯腴倶頑莇薈 732 1102 1417 1747 +娯腴倶頑莇膩 732 1102 1417 1747 +娯腴倶頑紊腑 732 1102 1417 1747 +娯腴倶頑恰 732 1102 1417 1747 +娯腴倶頑罅 732 1102 1417 1747 +娯腴倶頑≦臼 732 1102 1417 1747 +娯腴倶頑筝 732 1102 1417 1747 +娯腴倶頑絮掩ク 732 1102 1417 1747 +娯腴倶頑羝羈 732 1102 1417 1747 + +銀2筝亥2筝 733 1103 1418 1748 +銀2筝亥2筝 733 1103 1418 1748 +銀2筝ュ1筝 733 1103 1418 1748 +銀2筝 733 1103 1418 1748 +銀2筝篏 733 1103 1418 1748 +銀2筝銀1筝 733 1103 1418 1748 +銀2筝腮臀峨 733 1103 1418 1748 +銀2筝亥1筝 733 1103 1418 1748 +銀2筝祉潟帥弱 733 1103 1418 1748 +銀2筝絲睡 733 1103 1418 1748 +銀2筝筝3筝 733 1103 1418 1748 +銀2筝筝肴タ 733 1103 1418 1748 +銀2筝絽綵号茱 733 1103 1418 1748 +銀2筝絮怨肴タ 733 1103 1418 1748 +銀2筝羝 733 1103 1418 1748 +銀2筝ョ合 733 1103 1418 1748 +銀2筝医紫祉潟帥弱 733 1103 1418 1748 +銀2筝篋九灸梢絮 733 1103 1418 1748 +銀2筝帥1筝 733 1103 1418 1748 +銀2筝帥2筝 733 1103 1418 1748 +銀2筝阪 733 1103 1418 1748 +銀2筝ユ羌欠 733 1103 1418 1748 +銀2筝紊у3筝 733 1103 1418 1748 +銀2筝紊у4筝 733 1103 1418 1748 +銀2筝咲 733 1103 1418 1748 +銀2筝絨 733 1103 1418 1748 +銀2筝亥 733 1103 1418 1748 +銀2筝莇薈 733 1103 1418 1748 +銀2筝莇膩 733 1103 1418 1748 +銀2筝紊腑 733 1103 1418 1748 +銀2筝恰 733 1103 1418 1748 +銀2筝罅 733 1103 1418 1748 +銀2筝≦臼 733 1103 1418 1748 +銀2筝筝 733 1103 1418 1748 +銀2筝絮掩ク 733 1103 1418 1748 +銀2筝羝羈 733 1103 1418 1748 + +亥2筝ュ1筝 734 1104 1419 1749 +亥2筝 734 1104 1419 1749 +亥2筝篏 734 1104 1419 1749 +亥2筝銀1筝 734 1104 1419 1749 +亥2筝腮臀峨 734 1104 1419 1749 +亥2筝亥1筝 734 1104 1419 1749 +亥2筝祉潟帥弱 734 1104 1419 1749 +亥2筝絲睡 734 1104 1419 1749 +亥2筝筝3筝 734 1104 1419 1749 +亥2筝筝肴タ 734 1104 1419 1749 +亥2筝絽綵号茱 734 1104 1419 1749 +亥2筝絮怨肴タ 734 1104 1419 1749 +亥2筝羝 734 1104 1419 1749 +亥2筝ョ合 734 1104 1419 1749 +亥2筝医紫祉潟帥弱 734 1104 1419 1749 +亥2筝篋九灸梢絮 734 1104 1419 1749 +亥2筝帥1筝 734 1104 1419 1749 +亥2筝帥2筝 734 1104 1419 1749 +亥2筝阪 734 1104 1419 1749 +亥2筝ユ羌欠 734 1104 1419 1749 +亥2筝紊у3筝 734 1104 1419 1749 +亥2筝紊у4筝 734 1104 1419 1749 +亥2筝咲 734 1104 1419 1749 +亥2筝絨 734 1104 1419 1749 +亥2筝亥 734 1104 1419 1749 +亥2筝莇薈 734 1104 1419 1749 +亥2筝莇膩 734 1104 1419 1749 +亥2筝紊腑 734 1104 1419 1749 +亥2筝恰 734 1104 1419 1749 +亥2筝罅 734 1104 1419 1749 +亥2筝≦臼 734 1104 1419 1749 +亥2筝筝 734 1104 1419 1749 +亥2筝絮掩ク 734 1104 1419 1749 +亥2筝羝羈 734 1104 1419 1749 + +亥2筝ュ1筝 735 1105 1420 1750 +亥2筝 735 1105 1420 1750 +亥2筝篏 735 1105 1420 1750 +亥2筝銀1筝 735 1105 1420 1750 +亥2筝腮臀峨 735 1105 1420 1750 +亥2筝亥1筝 735 1105 1420 1750 +亥2筝祉潟帥弱 735 1105 1420 1750 +亥2筝絲睡 735 1105 1420 1750 +亥2筝筝3筝 735 1105 1420 1750 +亥2筝筝肴タ 735 1105 1420 1750 +亥2筝絽綵号茱 735 1105 1420 1750 +亥2筝絮怨肴タ 735 1105 1420 1750 +亥2筝羝 735 1105 1420 1750 +亥2筝ョ合 735 1105 1420 1750 +亥2筝医紫祉潟帥弱 735 1105 1420 1750 +亥2筝篋九灸梢絮 735 1105 1420 1750 +亥2筝帥1筝 735 1105 1420 1750 +亥2筝帥2筝 735 1105 1420 1750 +亥2筝阪 735 1105 1420 1750 +亥2筝ユ羌欠 735 1105 1420 1750 +亥2筝紊у3筝 735 1105 1420 1750 +亥2筝紊у4筝 735 1105 1420 1750 +亥2筝咲 735 1105 1420 1750 +亥2筝絨 735 1105 1420 1750 +亥2筝亥 735 1105 1420 1750 +亥2筝莇薈 735 1105 1420 1750 +亥2筝莇膩 735 1105 1420 1750 +亥2筝紊腑 735 1105 1420 1750 +亥2筝恰 735 1105 1420 1750 +亥2筝罅 735 1105 1420 1750 +亥2筝≦臼 735 1105 1420 1750 +亥2筝筝 735 1105 1420 1750 +亥2筝絮掩ク 735 1105 1420 1750 +亥2筝羝羈 735 1105 1420 1750 + +ュ1筝 736 1106 1421 1751 +ュ1筝篏 736 1106 1421 1751 +ュ1筝銀1筝 736 1106 1421 1751 +ュ1筝腮臀峨 736 1106 1421 1751 +ュ1筝亥1筝 736 1106 1421 1751 +ュ1筝祉潟帥弱 736 1106 1421 1751 +ュ1筝絲睡 736 1106 1421 1751 +ュ1筝筝3筝 736 1106 1421 1751 +ュ1筝筝肴タ 736 1106 1421 1751 +ュ1筝絽綵号茱 736 1106 1421 1751 +ュ1筝絮怨肴タ 736 1106 1421 1751 +ュ1筝羝 736 1106 1421 1751 +ュ1筝ョ合 736 1106 1421 1751 +ュ1筝医紫祉潟帥弱 736 1106 1421 1751 +ュ1筝篋九灸梢絮 736 1106 1421 1751 +ュ1筝帥1筝 736 1106 1421 1751 +ュ1筝帥2筝 736 1106 1421 1751 +ュ1筝阪 736 1106 1421 1751 +ュ1筝ユ羌欠 736 1106 1421 1751 +ュ1筝紊у3筝 736 1106 1421 1751 +ュ1筝紊у4筝 736 1106 1421 1751 +ュ1筝咲 736 1106 1421 1751 +ュ1筝絨 736 1106 1421 1751 +ュ1筝亥 736 1106 1421 1751 +ュ1筝莇薈 736 1106 1421 1751 +ュ1筝莇膩 736 1106 1421 1751 +ュ1筝紊腑 736 1106 1421 1751 +ュ1筝恰 736 1106 1421 1751 +ュ1筝罅 736 1106 1421 1751 +ュ1筝≦臼 736 1106 1421 1721 +ュ1筝筝 736 1106 1421 1751 +ュ1筝絮掩ク 736 1106 1421 1751 +ュ1筝羝羈 736 1106 1421 1751 + +坂 737 1107 1422 1752 +阪銀1筝 737 1107 1422 1752 +榊臀峨 737 1107 1422 1752 +阪亥1筝 737 1107 1422 1752 +堺祉潟帥弱 737 1107 1422 1752 +阪睡 737 1107 1422 1752 +坂賢3筝 737 1107 1422 1752 +坂賢肴タ 737 1107 1422 1752 +阪綵号茱 737 1107 1422 1752 +阪臼絮肴タ 737 1107 1422 1752 +堺遣 737 1107 1422 1752 +肴ョ合 737 1107 1422 1752 +咲医紫祉潟帥弱 737 1107 1422 1752 +坂九灸梢絮 737 1107 1422 1752 +冴帥1筝 737 1107 1422 1752 +冴帥2筝 737 1107 1422 1752 +冴阪 737 1107 1422 1752 +堺ユ羌欠 737 1107 1422 1752 +阪ぇ絎3筝 737 1107 1422 1752 +阪ぇ絎4筝 737 1107 1422 1752 +咲咲 737 1107 1422 1752 +阪 737 1107 1422 1752 +肴亥 737 1107 1422 1752 +榊莇薈 737 1107 1422 1752 +榊莇膩 737 1107 1422 1752 +阪ぉ腑 737 1107 1422 1752 +榊恰 737 1107 1422 1752 +堺 737 1107 1422 1752 +咲≦臼 737 1107 1422 1752 +坂賢 737 1107 1422 1752 +阪臼罐 737 1107 1422 1752 +堺羝羈 737 1107 1422 1752 + +篏阪銀1筝 739 1109 1424 1754 +篏榊臀峨 739 1109 1424 1754 +篏阪亥1筝 739 1109 1424 1754 +篏堺祉潟帥弱 739 1109 1424 1754 +篏阪睡 739 1109 1424 1754 +篏坂賢3筝 739 1109 1424 1754 +篏坂賢肴タ 739 1109 1424 1754 +篏阪綵号茱 739 1109 1424 1754 +篏阪臼絮肴タ 739 1109 1424 1754 +篏堺遣 739 1109 1424 1754 +篏肴ョ合 739 1109 1424 1754 +篏咲医紫祉潟帥弱 739 1109 1424 1754 +篏坂九灸梢絮 739 1109 1424 1754 +篏冴帥1筝 739 1109 1424 1754 +篏冴帥2筝 739 1109 1424 1754 +篏冴阪 739 1109 1424 1754 +篏堺ユ羌欠 739 1109 1424 1754 +篏阪ぇ絎3筝 739 1109 1424 1754 +篏阪ぇ絎4筝 739 1109 1424 1754 +篏咲咲 739 1109 1424 1754 +篏阪 739 1109 1424 1754 +篏肴亥 739 1109 1424 1754 +篏榊莇薈 739 1109 1424 1754 +篏榊莇膩 739 1109 1424 1754 +篏阪ぉ腑 739 1109 1424 1754 +篏榊恰 739 1109 1424 1754 +篏堺 739 1109 1424 1754 +篏咲≦臼 739 1109 1424 1754 +篏坂賢 739 1109 1424 1754 +篏阪臼罐 739 1109 1424 1754 +篏堺羝羈 739 1109 1424 1754 + +銀1筝腮臀峨 745 1115 1430 1800 +銀1筝亥1筝 745 1115 1430 1800 +銀1筝祉潟帥弱 745 1115 1430 1800 +銀1筝絲睡 745 1115 1430 1800 +銀1筝筝3筝 745 1115 1430 1800 +銀1筝筝肴タ 745 1115 1430 1800 +銀1筝絽綵号茱 745 1115 1430 1800 +銀1筝絮怨肴タ 745 1115 1430 1800 +銀1筝羝 745 1115 1430 1800 +銀1筝ョ合 745 1115 1430 1800 +銀1筝医紫祉潟帥弱 745 1115 1430 1800 +銀1筝篋九灸梢絮 745 1115 1430 1800 +銀1筝帥1筝 745 1115 1430 1800 +銀1筝帥2筝 745 1115 1430 1800 +銀1筝阪 745 1115 1430 1800 +銀1筝ユ羌欠 745 1115 1430 1800 +銀1筝紊у3筝 745 1115 1430 1800 +銀1筝紊у4筝 745 1115 1430 1800 +銀1筝咲 745 1115 1430 1800 +銀1筝絨 745 1115 1430 1800 +銀1筝亥 745 1115 1430 1800 +銀1筝莇薈 745 1115 1430 1800 +銀1筝莇膩 745 1115 1430 1800 +銀1筝紊腑 745 1115 1430 1800 +銀1筝恰 745 1115 1430 1800 +銀1筝罅 745 1115 1430 1800 +銀1筝≦臼 745 1115 1430 1800 +銀1筝筝 745 1115 1430 1800 +銀1筝絮掩ク 745 1115 1430 1800 +銀1筝羝羈 745 1115 1430 1800 + +腮臀峨亥1筝 745 1115 1430 1800 +腮臀峨祉潟帥弱 745 1115 1430 1800 +腮臀峨絲睡 745 1115 1430 1800 +腮臀峨筝3筝 745 1115 1430 1800 +腮臀峨筝肴タ 745 1115 1430 1800 +腮臀峨絽綵号茱 745 1115 1430 1800 +腮臀峨絮怨肴タ 745 1115 1430 1800 +腮臀峨羝 745 1115 1430 1800 +腮臀峨ョ合 745 1115 1430 1800 +腮臀峨医紫祉潟帥弱 745 1115 1430 1800 +腮臀峨篋九灸梢絮 745 1115 1430 1800 +腮臀峨帥1筝 745 1115 1430 1800 +腮臀峨帥2筝 745 1115 1430 1800 +腮臀峨阪 745 1115 1430 1800 +腮臀峨ユ羌欠 745 1115 1430 1800 +腮臀峨紊у3筝 745 1115 1430 1800 +腮臀峨紊у4筝 745 1115 1430 1800 +腮臀峨咲 745 1115 1430 1800 +腮臀峨絨 745 1115 1430 1800 +腮臀峨亥 745 1115 1430 1800 +腮臀峨莇薈 745 1115 1430 1800 +腮臀峨莇膩 745 1115 1430 1800 +腮臀峨紊腑 745 1115 1430 1800 +腮臀峨恰 745 1115 1430 1800 +腮臀峨罅 745 1115 1430 1800 +腮臀峨≦臼 745 1115 1430 1800 +腮臀峨筝 745 1115 1430 1800 +腮臀峨絮掩ク 745 1115 1430 1800 +腮臀峨羝羈 745 1115 1430 1800 + +亥1筝祉潟帥弱 746 1116 1431 1801 +亥1筝絲睡 746 1116 1431 1801 +亥1筝筝3筝 746 1116 1431 1801 +亥1筝筝肴タ 746 1116 1431 1801 +亥1筝絽綵号茱 746 1116 1431 1801 +亥1筝絮怨肴タ 746 1116 1431 1801 +亥1筝羝 746 1116 1431 1801 +亥1筝ョ合 746 1116 1431 1801 +亥1筝医紫祉潟帥弱 746 1116 1431 1801 +亥1筝篋九灸梢絮 746 1116 1431 1801 +亥1筝帥1筝 746 1116 1431 1801 +亥1筝帥2筝 746 1116 1431 1801 +亥1筝阪 746 1116 1431 1801 +亥1筝ユ羌欠 746 1116 1431 1801 +亥1筝紊у3筝 746 1116 1431 1801 +亥1筝紊у4筝 746 1116 1431 1801 +亥1筝咲 746 1116 1431 1801 +亥1筝絨 746 1116 1431 1801 +亥1筝亥 746 1116 1431 1801 +亥1筝莇薈 746 1116 1431 1801 +亥1筝莇膩 746 1116 1431 1801 +亥1筝紊腑 746 1116 1431 1801 +亥1筝恰 746 1116 1431 1801 +亥1筝罅 746 1116 1431 1801 +亥1筝≦臼 746 1116 1431 1801 +亥1筝筝 746 1116 1431 1801 +亥1筝絮掩ク 746 1116 1431 1801 +亥1筝羝羈 746 1116 1431 1801 + +祉潟帥弱絲睡 747 1117 1432 1802 +祉潟帥弱筝3筝 747 1117 1432 1802 +祉潟帥弱筝肴タ 747 1117 1432 1802 +祉潟帥弱絽綵号茱 747 1117 1432 1802 +祉潟帥弱絮怨肴タ 747 1117 1432 1802 +祉潟帥弱羝 747 1117 1432 1802 +祉潟帥弱ョ合 747 1117 1432 1802 +祉潟帥弱医紫祉潟帥弱 747 1117 1432 1802 +祉潟帥弱篋九灸梢絮 747 1117 1432 1802 +祉潟帥弱帥1筝 747 1117 1432 1802 +祉潟帥弱帥2筝 747 1117 1432 1802 +祉潟帥弱阪 747 1117 1432 1802 +祉潟帥弱ユ羌欠 747 1117 1432 1802 +祉潟帥弱紊у3筝 747 1117 1432 1802 +祉潟帥弱紊у4筝 747 1117 1432 1802 +祉潟帥弱咲 747 1117 1432 1802 +祉潟帥弱絨 747 1117 1432 1802 +祉潟帥弱亥 747 1117 1432 1802 +祉潟帥弱莇薈 747 1117 1432 1802 +祉潟帥弱莇膩 747 1117 1432 1802 +祉潟帥弱紊腑 747 1117 1432 1802 +祉潟帥弱恰 747 1117 1432 1802 +祉潟帥弱罅 747 1117 1432 1802 +祉潟帥弱≦臼 747 1117 1432 1802 +祉潟帥弱筝 747 1117 1432 1802 +祉潟帥弱絮掩ク 747 1117 1432 1802 +祉潟帥弱羝羈 747 1117 1432 1802 + +絲睡坂賢3筝 749 1119 1434 1804 +絲睡坂賢肴タ 749 1119 1434 1804 +絲睡阪綵号茱 749 1119 1434 1804 +絲睡阪臼絮肴タ 749 1119 1434 1804 +絲睡堺遣 749 1119 1434 1804 +絲睡肴ョ合 749 1119 1434 1804 +絲睡咲医紫祉潟帥弱 749 1119 1434 1804 +絲睡坂九灸梢絮 749 1119 1434 1804 +絲睡冴帥1筝 749 1119 1434 1804 +絲睡冴帥2筝 749 1119 1434 1804 +絲睡冴阪 749 1119 1434 1804 +絲睡堺ユ羌欠 749 1119 1434 1804 +絲睡阪ぇ絎3筝 749 1119 1434 1804 +絲睡阪ぇ絎4筝 749 1119 1434 1804 +絲睡咲咲 749 1119 1434 1804 +絲睡阪 749 1119 1434 1804 +絲睡肴亥 749 1119 1434 1804 +絲睡榊莇薈 749 1119 1434 1804 +絲睡榊莇膩 749 1119 1434 1804 +絲睡阪ぉ腑 749 1119 1434 1804 +絲睡榊恰 749 1119 1434 1804 +絲睡堺 749 1119 1434 1804 +絲睡咲≦臼 749 1119 1434 1804 +絲睡坂賢 749 1119 1434 1804 +絲睡阪臼罐 749 1119 1434 1804 +絲睡堺羝羈 749 1119 1434 1804 + +筝3筝筝肴タ 750 1120 1435 1805 +筝3筝絽綵号茱 750 1120 1435 1805 +筝3筝絮怨肴タ 750 1120 1435 1805 +筝3筝羝 750 1120 1435 1805 +筝3筝ョ合 750 1120 1435 1805 +筝3筝医紫祉潟帥弱 750 1120 1435 1805 +筝3筝篋九灸梢絮 750 1120 1435 1805 +筝3筝帥1筝 750 1120 1435 1805 +筝3筝帥2筝 750 1120 1435 1805 +筝3筝阪 750 1120 1435 1805 +筝3筝ユ羌欠 750 1120 1435 1805 +筝3筝紊у3筝 750 1120 1435 1805 +筝3筝紊у4筝 750 1120 1435 1805 +筝3筝咲 750 1120 1435 1805 +筝3筝絨 750 1120 1435 1805 +筝3筝亥 750 1120 1435 1805 +筝3筝莇薈 750 1120 1435 1805 +筝3筝莇膩 750 1120 1435 1805 +筝3筝紊腑 750 1120 1435 1805 +筝3筝恰 750 1120 1435 1805 +筝3筝罅 750 1120 1435 1805 +筝3筝≦臼 750 1120 1435 1805 +筝3筝筝 750 1120 1435 1805 +筝3筝絮掩ク 750 1120 1435 1805 +筝3筝羝羈 750 1120 1435 1805 + +筝肴タ絽綵号茱 751 1121 1436 1806 +筝肴タ絮怨肴タ 751 1121 1436 1806 +筝肴タ羝 751 1121 1436 1806 +筝肴タョ合 751 1121 1436 1806 +筝肴タ医紫祉潟帥弱 751 1121 1436 1806 +筝肴タ篋九灸梢絮 751 1121 1436 1806 +筝肴タ帥1筝 751 1121 1436 1806 +筝肴タ帥2筝 751 1121 1436 1806 +筝肴タ阪 751 1121 1436 1806 +筝肴タユ羌欠 751 1121 1436 1806 +筝肴タ紊у3筝 751 1121 1436 1806 +筝肴タ紊у4筝 751 1121 1436 1806 +筝肴タ咲 751 1121 1436 1806 +筝肴タ絨 751 1121 1436 1806 +筝肴タ亥 751 1121 1436 1806 +筝肴タ莇薈 751 1121 1436 1806 +筝肴タ莇膩 751 1121 1436 1806 +筝肴タ紊腑 751 1121 1436 1806 +筝肴タ恰 751 1121 1436 1806 +筝肴タ罅 751 1121 1436 1806 +筝肴タ≦臼 751 1121 1436 1806 +筝肴タ筝 751 1121 1436 1806 +筝肴タ絮掩ク 751 1121 1436 1806 +筝肴タ羝羈 751 1121 1436 1806 + +絽綵号茱水綵号茱 752 1122 1437 1807 +絽綵号茱水臼絮肴タ 752 1122 1437 1807 +絽綵号茱炊遣 752 1122 1437 1807 +絽綵号茱粋ョ合 752 1122 1437 1807 +絽綵号茱翠医紫祉潟帥弱 752 1122 1437 1807 +絽綵号茱推九灸梢絮 752 1122 1437 1807 +絽綵号茱帥帥1筝 752 1122 1437 1807 +絽綵号茱帥帥2筝 752 1122 1437 1807 +絽綵号茱帥阪 752 1122 1437 1807 +絽綵号茱炊ユ羌欠 752 1122 1437 1807 +絽綵号茱水ぇ絎3筝 752 1122 1437 1807 +絽綵号茱水ぇ絎4筝 752 1122 1437 1807 +絽綵号茱翠咲 752 1122 1437 1807 +絽綵号茱水 752 1122 1437 1807 +絽綵号茱粋亥 752 1122 1437 1807 +絽綵号茱睡莇薈 752 1122 1437 1807 +絽綵号茱睡莇膩 752 1122 1437 1807 +絽綵号茱水ぉ腑 752 1122 1437 1807 +絽綵号茱睡恰 752 1122 1437 1807 +絽綵号茱炊 752 1122 1437 1807 +絽綵号茱翠≦臼 752 1122 1437 1807 +絽綵号茱推賢 752 1122 1437 1807 +絽綵号茱水臼罐 752 1122 1437 1807 +絽綵号茱炊羝羈 752 1122 1437 1807 + +絮怨肴タ羝 755 1125 1440 1810 +絮怨肴タョ合 755 1125 1440 1810 +絮怨肴タ医紫祉潟帥弱 755 1125 1440 1810 +絮怨肴タ篋九灸梢絮 755 1125 1440 1810 +絮怨肴タ帥1筝 755 1125 1440 1810 +絮怨肴タ帥2筝 755 1125 1440 1810 +絮怨肴タ阪 755 1125 1440 1810 +絮怨肴タユ羌欠 755 1125 1440 1810 +絮怨肴タ紊у3筝 755 1125 1440 1810 +絮怨肴タ紊у4筝 755 1125 1440 1810 +絮怨肴タ咲 755 1125 1440 1810 +絮怨肴タ絨 755 1125 1440 1810 +絮怨肴タ亥 755 1125 1440 1810 +絮怨肴タ莇薈 755 1125 1440 1810 +絮怨肴タ莇膩 755 1125 1440 1810 +絮怨肴タ紊腑 755 1125 1440 1810 +絮怨肴タ恰 755 1125 1440 1810 +絮怨肴タ罅 755 1125 1440 1810 +絮怨肴タ≦臼 755 1125 1440 1810 +絮怨肴タ筝 755 1125 1440 1810 +絮怨肴タ絮掩ク 755 1125 1440 1810 +絮怨肴タ羝羈 755 1125 1440 1810 + +羝ョ合 758 1128 1443 1813 +羝医紫祉潟帥弱 758 1128 1443 1813 +羝篋九灸梢絮 758 1128 1443 1813 +羝帥1筝 758 1128 1443 1813 +羝帥2筝 758 1128 1443 1813 +羝阪 758 1128 1443 1813 +羝ユ羌欠 758 1128 1443 1813 +羝紊у3筝 758 1128 1443 1813 +羝紊у4筝 758 1128 1443 1813 +羝咲 758 1128 1443 1813 +羝絨 758 1128 1443 1813 +羝亥 758 1128 1443 1813 +羝莇薈 758 1128 1443 1813 +羝莇膩 758 1128 1443 1813 +羝紊腑 758 1128 1443 1813 +羝恰 758 1128 1443 1813 +羝罅 758 1128 1443 1813 +羝≦臼 758 1128 1443 1813 +羝筝 758 1128 1443 1813 +羝絮掩ク 758 1128 1443 1813 +羝羝羈 758 1128 1443 1813 + +ョ合咲医紫祉潟帥弱 759 1129 1444 1814 +ョ合坂九灸梢絮 759 1129 1444 1814 +ョ合冴帥1筝 759 1129 1444 1814 +ョ合冴帥2筝 759 1129 1444 1814 +ョ合冴阪 759 1129 1444 1814 +ョ合堺ユ羌欠 759 1129 1444 1814 +ョ合阪ぇ絎3筝 759 1129 1444 1814 +ョ合阪ぇ絎4筝 759 1129 1444 1814 +ョ合咲咲 759 1129 1444 1814 +ョ合阪 759 1129 1444 1814 +ョ合肴亥 759 1129 1444 1814 +ョ合榊莇薈 759 1129 1444 1814 +ョ合榊莇膩 759 1129 1444 1814 +ョ合阪ぉ腑 759 1129 1444 1814 +ョ合榊恰 759 1129 1444 1814 +ョ合堺 759 1129 1444 1814 +ョ合咲≦臼 759 1129 1444 1814 +ョ合坂賢 759 1129 1444 1814 +ョ合阪臼罐 759 1129 1444 1814 +ョ合堺羝羈 759 1129 1444 1814 + +医紫祉潟帥弱篋九灸梢絮 801 1131 1446 1816 +医紫祉潟帥弱帥1筝 801 1131 1446 1816 +医紫祉潟帥弱帥2筝 801 1131 1446 1816 +医紫祉潟帥弱阪 801 1131 1446 1816 +医紫祉潟帥弱ユ羌欠 801 1131 1446 1816 +医紫祉潟帥弱紊у3筝 801 1131 1446 1816 +医紫祉潟帥弱紊у4筝 801 1131 1446 1816 +医紫祉潟帥弱咲 801 1131 1446 1816 +医紫祉潟帥弱絨 801 1131 1446 1816 +医紫祉潟帥弱亥 801 1131 1446 1816 +医紫祉潟帥弱莇薈 801 1131 1446 1816 +医紫祉潟帥弱莇膩 801 1131 1446 1816 +医紫祉潟帥弱紊腑 801 1131 1446 1816 +医紫祉潟帥弱恰 801 1131 1446 1816 +医紫祉潟帥弱罅 801 1131 1446 1816 +医紫祉潟帥弱≦臼 801 1131 1446 1816 +医紫祉潟帥弱筝 801 1131 1446 1816 +医紫祉潟帥弱絮掩ク 801 1131 1446 1816 +医紫祉潟帥弱羝羈 801 1131 1446 1816 + +篋九灸梢絮帥1筝 803 1133 1448 1818 +篋九灸梢絮帥2筝 803 1133 1448 1818 +篋九灸梢絮阪 803 1133 1448 1818 +篋九灸梢絮ユ羌欠 803 1133 1448 1818 +篋九灸梢絮紊у3筝 803 1133 1448 1818 +篋九灸梢絮紊у4筝 803 1133 1448 1818 +篋九灸梢絮咲 803 1133 1448 1818 +篋九灸梢絮絨 803 1133 1448 1818 +篋九灸梢絮亥 803 1133 1448 1818 +篋九灸梢絮莇薈 803 1133 1448 1818 +篋九灸梢絮莇膩 803 1133 1448 1818 +篋九灸梢絮紊腑 803 1133 1448 1818 +篋九灸梢絮恰 803 1133 1448 1818 +篋九灸梢絮罅 803 1133 1448 1818 +篋九灸梢絮≦臼 803 1133 1448 1818 +篋九灸梢絮筝 803 1133 1448 1818 +篋九灸梢絮絮掩ク 803 1133 1448 1818 +篋九灸梢絮羝羈 803 1133 1448 1818 + +帥1筝帥2筝 805 1135 1450 1820 +帥1筝阪 805 1135 1450 1820 +帥1筝ユ羌欠 805 1135 1450 1820 +帥1筝紊у3筝 805 1135 1450 1820 +帥1筝紊у4筝 805 1135 1450 1820 +帥1筝咲 805 1135 1450 1820 +帥1筝絨 805 1135 1450 1820 +帥1筝亥 805 1135 1450 1820 +帥1筝莇薈 805 1135 1450 1820 +帥1筝莇膩 805 1135 1450 1820 +帥1筝紊腑 805 1135 1450 1820 +帥1筝恰 805 1135 1450 1820 +帥1筝罅 805 1135 1450 1820 +帥1筝≦臼 805 1135 1450 1820 +帥1筝筝 805 1135 1450 1820 +帥1筝絮掩ク 805 1135 1450 1820 +帥1筝羝羈 805 1135 1450 1820 + +帥2筝阪 806 1136 1451 1821 +帥2筝ユ羌欠 806 1136 1451 1821 +帥2筝紊у3筝 806 1136 1451 1821 +帥2筝紊у4筝 806 1136 1451 1821 +帥2筝咲 806 1136 1451 1821 +帥2筝絨 806 1136 1451 1821 +帥2筝亥 806 1136 1451 1821 +帥2筝莇薈 806 1136 1451 1821 +帥2筝莇膩 806 1136 1451 1821 +帥2筝紊腑 806 1136 1451 1821 +帥2筝恰 806 1136 1451 1821 +帥2筝罅 806 1136 1451 1821 +帥2筝≦臼 806 1136 1451 1821 +帥2筝筝 806 1136 1451 1821 +帥2筝絮掩ク 806 1136 1451 1821 +帥2筝羝羈 806 1136 1451 1821 + +阪ユ羌欠 808 1138 1453 1823 +阪紊у3筝 808 1138 1453 1823 +阪紊у4筝 808 1138 1453 1823 +阪咲 808 1138 1453 1823 +阪絨 808 1138 1453 1823 +阪亥 808 1138 1453 1823 +阪莇薈 808 1138 1453 1823 +阪莇膩 808 1138 1453 1823 +阪紊腑 808 1138 1453 1823 +阪恰 808 1138 1453 1823 +阪罅 808 1138 1453 1823 +阪≦臼 808 1138 1453 1823 +阪筝 808 1138 1453 1823 +阪絮掩ク 808 1138 1453 1823 +阪羝羈 808 1138 1453 1823 + +ユ羌欠√ぇ絎3筝 812 1142 1457 1827 +ユ羌欠√ぇ絎4筝 812 1142 1457 1827 +ユ羌欠∫咲 812 1142 1457 1827 +ユ羌欠√ 812 1142 1457 1827 +ユ羌欠∵亥 812 1142 1457 1827 +ユ羌欠∝莇薈 812 1142 1457 1827 +ユ羌欠∝莇膩 812 1142 1457 1827 +ユ羌欠√ぉ腑 812 1142 1457 1827 +ユ羌欠∝恰 812 1142 1457 1827 +ユ羌欠∽ 812 1142 1457 1827 +ユ羌欠∫≦臼 812 1142 1457 1827 +ユ羌欠≫賢 812 1142 1457 1827 +ユ羌欠√臼罐 812 1142 1457 1827 +ユ羌欠∽羝羈 812 1142 1457 1827 + +紊у3筝紊у4筝 814 1144 1459 1829 +紊у3筝咲 814 1144 1459 1829 +紊у3筝絨 814 1144 1459 1829 +紊у3筝亥 814 1144 1459 1829 +紊у3筝莇薈 814 1144 1459 1829 +紊у3筝莇膩 814 1144 1459 1829 +紊у3筝紊腑 814 1144 1459 1829 +紊у3筝恰 814 1144 1459 1829 +紊у3筝罅 814 1144 1459 1829 +紊у3筝≦臼 814 1144 1459 1829 +紊у3筝筝 814 1144 1459 1829 +紊у3筝絮掩ク 814 1144 1459 1829 +紊у3筝羝羈 814 1144 1459 1829 + +紊у4筝咲 815 1145 1500 1830 +紊у4筝絨 815 1145 1500 1830 +紊у4筝亥 815 1145 1500 1830 +紊у4筝莇薈 815 1145 1500 1830 +紊у4筝莇膩 815 1145 1500 1830 +紊у4筝紊腑 815 1145 1500 1830 +紊у4筝恰 815 1145 1500 1830 +紊у4筝罅 815 1145 1500 1830 +紊у4筝≦臼 815 1145 1500 1830 +紊у4筝筝 815 1145 1500 1830 +紊у4筝絮掩ク 815 1145 1500 1830 +紊у4筝羝羈 815 1145 1500 1830 + +咲紊у4筝 818 1148 1503 1833 +咲咲 818 1148 1503 1833 +咲絨 818 1148 1503 1833 +咲亥 818 1148 1503 1833 +咲莇薈 818 1148 1503 1833 +咲莇膩 818 1148 1503 1833 +咲紊腑 818 1148 1503 1833 +咲恰 818 1148 1503 1833 +咲罅 818 1148 1503 1833 +咲≦臼 818 1148 1503 1833 +咲筝 818 1148 1503 1833 +咲絮掩ク 818 1148 1503 1833 +咲羝羈 818 1148 1503 1833 + +絨ц亥 821 1151 1506 1836 +絨х莇薈 821 1151 1506 1836 +絨х莇膩 821 1151 1506 1836 +絨уぉ腑 821 1151 1506 1836 +絨х恰 821 1151 1506 1836 +絨ф 821 1151 1506 1836 +絨ч≦臼 821 1151 1506 1836 +絨т賢 821 1151 1506 1836 +絨у臼罐 821 1151 1506 1836 +絨ф羝羈 821 1151 1506 1836 + +亥亥莇薈 823 1153 1508 1838 +亥亥莇膩 823 1153 1508 1838 +亥医ぉ腑 823 1153 1508 1838 +亥亥恰 823 1153 1508 1838 +亥井 823 1153 1508 1838 +亥育≦臼 823 1153 1508 1838 +亥遺賢 823 1153 1508 1838 +亥医臼罐 823 1153 1508 1838 +亥井羝羈 823 1153 1508 1838 + +莇薈莇膩 824 1154 1509 1839 +莇薈紊腑 824 1154 1509 1839 +莇薈恰 824 1154 1509 1839 +莇薈罅 824 1154 1509 1839 +莇薈≦臼 824 1154 1509 1839 +莇薈筝 824 1154 1509 1839 +莇薈絮掩ク 824 1154 1509 1839 +莇薈羝羈 824 1154 1509 1839 + +莇膩阪ぉ腑 826 1156 1511 1841 +莇膩榊恰 826 1156 1511 1841 +莇膩堺 826 1156 1511 1841 +莇膩咲≦臼 826 1156 1511 1841 +莇膩坂賢 826 1156 1511 1841 +莇膩阪臼罐 826 1156 1511 1841 +莇膩堺羝羈 826 1156 1511 1841 + +紊腑恰 827 1157 1512 1842 +紊腑罅 827 1157 1512 1842 +紊腑≦臼 827 1157 1512 1842 +紊腑筝 827 1157 1512 1842 +紊腑絮掩ク 827 1157 1512 1842 +紊腑羝羈 827 1157 1512 1842 + +恰罅 828 1158 1513 1843 +恰≦臼 828 1158 1513 1843 +恰筝 828 1158 1513 1843 +恰絮掩ク 828 1158 1513 1843 +恰羝羈 828 1158 1513 1843 + +罅≦臼 829 1159 1514 1844 +罅筝 829 1159 1514 1844 +罅絮掩ク 829 1159 1514 1844 +罅羝羈 829 1159 1514 1844 + +≦臼筝 830 1200 1515 1845 +≦臼絮掩ク 830 1200 1515 1845 +≦臼羝羈 830 1200 1515 1845 + +筝絮掩ク 831 1201 1516 1846 +筝羝羈 831 1201 1516 1846 + +絮掩ク羝羈 834 1204 1519 1849 + + +羝羈羝羈 905 1230 1540 1925 +羝羈絮掩ク 905 1230 1540 1925 +羝羈筝 905 1230 1540 1925 +羝羈≦臼 905 1230 1540 1925 +羝羈罅 905 1230 1540 1925 +羝羈恰 905 1230 1540 1925 +羝羈紊腑 905 1230 1540 1925 +羝羈莇膩 905 1230 1540 1925 +羝羈莇薈 905 1230 1540 1925 +羝羈亥 905 1230 1540 1925 +羝羈絨 905 1230 1540 1925 +羝羈咲 905 1230 1540 1925 +羝羈紊у4筝 905 1230 1540 1925 +羝羈紊у3筝 905 1230 1540 1925 +羝羈ユ羌欠 905 1230 1540 1925 +羝羈阪 905 1230 1540 1925 +羝羈帥2筝 905 1230 1540 1925 +羝羈帥1筝 905 1230 1540 1925 +羝羈篋九灸梢絮 905 1230 1540 1925 +羝羈医紫祉潟帥弱 905 1230 1540 1925 +羝羈ョ合 905 1230 1540 1925 +羝羈羝 905 1230 1540 1925 +羝羈絮怨肴タ 905 1230 1540 1925 +羝羈絽綵号茱 905 1230 1540 1925 +羝羈筝 905 1230 1540 1925 +羝羈筝3筝 905 1230 1540 1925 +羝羈絲睡 905 1230 1540 1925 +羝羈祉潟帥弱 905 1230 1540 1925 +羝羈亥1筝 905 1230 1540 1925 +羝羈腮臀峨 905 1230 1540 1925 +羝羈銀1筝 905 1230 1540 1925 +羝羈篏 905 1230 1540 1925 +羝羈 905 1230 1540 1925 +羝羈ュ1筝 905 1230 1540 1925 +羝羈亥2筝 905 1230 1540 1925 +羝羈亥2筝 905 1230 1540 1925 +羝羈銀2筝 905 1230 1540 1925 +羝羈娯腴倶頑 905 1230 1540 1925 +羝羈娯腴倶翫 905 1230 1540 1925 +羝羈銀4筝 905 1230 1540 1925 +羝羈絮怨合√ 905 1230 1540 1925 +羝羈蕭 905 1230 1540 1925 +羝羈絨闑 905 1230 1540 1925 + +絮掩ク筝 909 1234 1544 1929 +絮掩ク≦臼 909 1234 1544 1929 +絮掩ク罅 909 1234 1544 1929 +絮掩ク恰 909 1234 1544 1929 +絮掩ク紊腑 909 1234 1544 1929 +絮掩ク莇膩 909 1234 1544 1929 +絮掩ク莇薈 909 1234 1544 1929 +絮掩ク亥 909 1234 1544 1929 +絮掩ク絨 909 1234 1544 1929 +絮掩ク咲 909 1234 1544 1929 +絮掩ク紊у4筝 909 1234 1544 1929 +絮掩ク紊у3筝 909 1234 1544 1929 +絮掩クユ羌欠 909 1234 1544 1929 +絮掩ク阪 909 1234 1544 1929 +絮掩ク帥2筝 909 1234 1544 1929 +絮掩ク帥1筝 909 1234 1544 1929 +絮掩ク篋九灸梢絮 909 1234 1544 1929 +絮掩ク医紫祉潟帥弱 909 1234 1544 1929 +絮掩クョ合 909 1234 1544 1929 +絮掩ク羝 909 1234 1544 1929 +絮掩ク絮怨肴タ 909 1234 1544 1929 +絮掩ク絽綵号茱 909 1234 1544 1929 +絮掩ク筝 909 1234 1544 1929 +絮掩ク筝3筝 909 1234 1544 1929 +絮掩ク絲睡 909 1234 1544 1929 +絮掩ク祉潟帥弱 909 1234 1544 1929 +絮掩ク亥1筝 909 1234 1544 1929 +絮掩ク腮臀峨 909 1234 1544 1929 +絮掩ク銀1筝 909 1234 1544 1929 +絮掩ク篏 909 1234 1544 1929 +絮掩ク 909 1234 1544 1929 +絮掩クュ1筝 909 1234 1544 1929 +絮掩ク亥2筝 909 1234 1544 1929 +絮掩ク亥2筝 909 1234 1544 1929 +絮掩ク銀2筝 909 1234 1544 1929 +絮掩ク娯腴倶頑 909 1234 1544 1929 +絮掩ク娯腴倶翫 909 1234 1544 1929 +絮掩ク銀4筝 909 1234 1544 1929 +絮掩ク絮怨合√ 909 1234 1544 1929 +絮掩ク蕭 909 1234 1544 1929 +絮掩ク絨闑 909 1234 1544 1929 + +筝≦臼 912 1237 1547 1932 +筝罅 912 1237 1547 1932 +筝恰 912 1237 1547 1932 +筝紊腑 912 1237 1547 1932 +筝莇膩 912 1237 1547 1932 +筝莇薈 912 1237 1547 1932 +筝亥 912 1237 1547 1932 +筝絨 912 1237 1547 1932 +筝咲 912 1237 1547 1932 +筝紊у4筝 912 1237 1547 1932 +筝紊у3筝 912 1237 1547 1932 +筝ユ羌欠 912 1237 1547 1932 +筝阪 912 1237 1547 1932 +筝帥2筝 912 1237 1547 1932 +筝帥1筝 912 1237 1547 1932 +筝篋九灸梢絮 912 1237 1547 1932 +筝医紫祉潟帥弱 912 1237 1547 1932 +筝ョ合 912 1237 1547 1932 +筝羝 912 1237 1547 1932 +筝絮怨肴タ 912 1237 1547 1932 +筝絽綵号茱 912 1237 1547 1932 +筝筝 912 1237 1547 1932 +筝筝3筝 912 1237 1547 1932 +筝絲睡 912 1237 1547 1932 +筝祉潟帥弱 912 1237 1547 1932 +筝亥1筝 912 1237 1547 1932 +筝腮臀峨 912 1237 1547 1932 +筝銀1筝 912 1237 1547 1932 +筝篏 912 1237 1547 1932 +筝 912 1237 1547 1932 +筝ュ1筝 912 1237 1547 1932 +筝亥2筝 912 1237 1547 1932 +筝亥2筝 912 1237 1547 1932 +筝銀2筝 912 1237 1547 1932 +筝娯腴倶頑 912 1237 1547 1932 +筝娯腴倶翫 912 1237 1547 1932 +筝銀4筝 912 1237 1547 1932 +筝絮怨合√ 912 1237 1547 1932 +筝蕭 912 1237 1547 1932 +筝絨闑 912 1237 1547 1932 + +≦臼罅 913 1238 1548 1933 +≦臼恰 913 1238 1548 1933 +≦臼紊腑 913 1238 1548 1933 +≦臼莇膩 913 1238 1548 1933 +≦臼莇薈 913 1238 1548 1933 +≦臼亥 913 1238 1548 1933 +≦臼絨 913 1238 1548 1933 +≦臼咲 913 1238 1548 1933 +≦臼紊у4筝 913 1238 1548 1933 +≦臼紊у3筝 913 1238 1548 1933 +≦臼ユ羌欠 913 1238 1548 1933 +≦臼阪 913 1238 1548 1933 +≦臼帥2筝 913 1238 1548 1933 +≦臼帥1筝 913 1238 1548 1933 +≦臼篋九灸梢絮 913 1238 1548 1933 +≦臼医紫祉潟帥弱 913 1238 1548 1933 +≦臼ョ合 913 1238 1548 1933 +≦臼羝 913 1238 1548 1933 +≦臼絮怨肴タ 913 1238 1548 1933 +≦臼絽綵号茱 913 1238 1548 1933 +≦臼筝 913 1238 1548 1933 +≦臼筝3筝 913 1238 1548 1933 +≦臼絲睡 913 1238 1548 1933 +≦臼祉潟帥弱 913 1238 1548 1933 +≦臼亥1筝 913 1238 1548 1933 +≦臼腮臀峨 913 1238 1548 1933 +≦臼銀1筝 913 1238 1548 1933 +≦臼篏 913 1238 1548 1933 +≦臼 913 1238 1548 1933 +≦臼ュ1筝 913 1238 1548 1933 +≦臼亥2筝 913 1238 1548 1933 +≦臼亥2筝 913 1238 1548 1933 +≦臼銀2筝 913 1238 1548 1933 +≦臼娯腴倶頑 913 1238 1548 1933 +≦臼娯腴倶翫 913 1238 1548 1933 +≦臼銀4筝 913 1238 1548 1933 +≦臼絮怨合√ 913 1238 1548 1933 +≦臼蕭 913 1238 1548 1933 +≦臼絨闑 913 1238 1548 1933 + +罅恰 914 1239 1549 1934 +罅紊腑 914 1239 1549 1934 +罅莇膩 914 1239 1549 1934 +罅莇薈 914 1239 1549 1934 +罅亥 914 1239 1549 1934 +罅絨 914 1239 1549 1934 +罅咲 914 1239 1549 1934 +罅紊у4筝 914 1239 1549 1934 +罅紊у3筝 914 1239 1549 1934 +罅ユ羌欠 914 1239 1549 1934 +罅阪 914 1239 1549 1934 +罅帥2筝 914 1239 1549 1934 +罅帥1筝 914 1239 1549 1934 +罅篋九灸梢絮 914 1239 1549 1934 +罅医紫祉潟帥弱 914 1239 1549 1934 +罅ョ合 914 1239 1549 1934 +罅羝 914 1239 1549 1934 +罅絮怨肴タ 914 1239 1549 1934 +罅絽綵号茱 914 1239 1549 1934 +罅筝 914 1239 1549 1934 +罅筝3筝 914 1239 1549 1934 +罅絲睡 914 1239 1549 1934 +罅祉潟帥弱 914 1239 1549 1934 +罅亥1筝 914 1239 1549 1934 +罅腮臀峨 914 1239 1549 1934 +罅銀1筝 914 1239 1549 1934 +罅篏 914 1239 1549 1934 +罅 914 1239 1549 1934 +罅ュ1筝 914 1239 1549 1934 +罅亥2筝 914 1239 1549 1934 +罅亥2筝 914 1239 1549 1934 +罅銀2筝 914 1239 1549 1934 +罅娯腴倶頑 914 1239 1549 1934 +罅娯腴倶翫 914 1239 1549 1934 +罅銀4筝 914 1239 1549 1934 +罅絮怨合√ 914 1239 1549 1934 +罅蕭 914 1239 1549 1934 +罅絨闑 914 1239 1549 1934 + +恰紊腑 915 1240 1550 1935 +恰莇膩 915 1240 1550 1935 +恰莇薈 915 1240 1550 1935 +恰亥 915 1240 1550 1935 +恰絨 915 1240 1550 1935 +恰咲 915 1240 1550 1935 +恰紊у4筝 915 1240 1550 1935 +恰紊у3筝 915 1240 1550 1935 +恰ユ羌欠 915 1240 1550 1935 +恰阪 915 1240 1550 1935 +恰帥2筝 915 1240 1550 1935 +恰帥1筝 915 1240 1550 1935 +恰篋九灸梢絮 915 1240 1550 1935 +恰医紫祉潟帥弱 915 1240 1550 1935 +恰ョ合 915 1240 1550 1935 +恰羝 915 1240 1550 1935 +恰絮怨肴タ 915 1240 1550 1935 +恰絽綵号茱 915 1240 1550 1935 +恰筝 915 1240 1550 1935 +恰筝3筝 915 1240 1550 1935 +恰絲睡 915 1240 1550 1935 +恰祉潟帥弱 915 1240 1550 1935 +恰亥1筝 915 1240 1550 1935 +恰腮臀峨 915 1240 1550 1935 +恰銀1筝 915 1240 1550 1935 +恰篏 915 1240 1550 1935 +恰 915 1240 1550 1935 +恰ュ1筝 915 1240 1550 1935 +恰亥2筝 915 1240 1550 1935 +恰亥2筝 915 1240 1550 1935 +恰銀2筝 915 1240 1550 1935 +恰娯腴倶頑 915 1240 1550 1935 +恰娯腴倶翫 915 1240 1550 1935 +恰銀4筝 915 1240 1550 1935 +恰絮怨合√ 915 1240 1550 1935 +恰蕭 915 1240 1550 1935 +恰絨闑 915 1240 1550 1935 + +紊腑莇膩 916 1241 1551 1936 +紊腑莇薈 916 1241 1551 1936 +紊腑亥 916 1241 1551 1936 +紊腑絨 916 1241 1551 1936 +紊腑咲 916 1241 1551 1936 +紊腑紊у4筝 916 1241 1551 1936 +紊腑紊у3筝 916 1241 1551 1936 +紊腑ユ羌欠 916 1241 1551 1936 +紊腑阪 916 1241 1551 1936 +紊腑帥2筝 916 1241 1551 1936 +紊腑帥1筝 916 1241 1551 1936 +紊腑篋九灸梢絮 916 1241 1551 1936 +紊腑医紫祉潟帥弱 916 1241 1551 1936 +紊腑ョ合 916 1241 1551 1936 +紊腑羝 916 1241 1551 1936 +紊腑絮怨肴タ 916 1241 1551 1936 +紊腑絽綵号茱 916 1241 1551 1936 +紊腑筝 916 1241 1551 1936 +紊腑筝3筝 916 1241 1551 1936 +紊腑絲睡 916 1241 1551 1936 +紊腑祉潟帥弱 916 1241 1551 1936 +紊腑亥1筝 916 1241 1551 1936 +紊腑腮臀峨 916 1241 1551 1936 +紊腑銀1筝 916 1241 1551 1936 +紊腑篏 916 1241 1551 1936 +紊腑 916 1241 1551 1936 +紊腑ュ1筝 916 1241 1551 1936 +紊腑亥2筝 916 1241 1551 1936 +紊腑亥2筝 916 1241 1551 1936 +紊腑銀2筝 916 1241 1551 1936 +紊腑娯腴倶頑 916 1241 1551 1936 +紊腑娯腴倶翫 916 1241 1551 1936 +紊腑銀4筝 916 1241 1551 1936 +紊腑絮怨合√ 916 1241 1551 1936 +紊腑蕭 916 1241 1551 1936 +紊腑絨闑 916 1241 1551 1936 + +莇膩榊莇薈 917 1242 1552 1937 +莇膩肴亥 917 1242 1552 1937 +莇膩阪 917 1242 1552 1937 +莇膩咲咲 917 1242 1552 1937 +莇膩阪ぇ絎4筝 917 1242 1552 1937 +莇膩阪ぇ絎3筝 917 1242 1552 1937 +莇膩堺ユ羌欠 917 1242 1552 1937 +莇膩冴阪 917 1242 1552 1937 +莇膩冴帥2筝 917 1242 1552 1937 +莇膩冴帥1筝 917 1242 1552 1937 +莇膩坂九灸梢絮 917 1242 1552 1937 +莇膩咲医紫祉潟帥弱 917 1242 1552 1937 +莇膩肴ョ合 917 1242 1552 1937 +莇膩堺遣 917 1242 1552 1937 +莇膩阪臼絮肴タ 917 1242 1552 1937 +莇膩阪綵号茱 917 1242 1552 1937 +莇膩坂賢 917 1242 1552 1937 +莇膩坂賢3筝 917 1242 1552 1937 +莇膩阪睡 917 1242 1552 1937 +莇膩堺祉潟帥弱 917 1242 1552 1937 +莇膩阪亥1筝 917 1242 1552 1937 +莇膩榊臀峨 917 1242 1552 1937 +莇膩阪銀1筝 917 1242 1552 1937 +莇膩坂 917 1242 1552 1937 +莇膩堺 917 1242 1552 1937 +莇膩堺ュ1筝 917 1242 1552 1937 +莇膩阪亥2筝 917 1242 1552 1937 +莇膩阪亥2筝 917 1242 1552 1937 +莇膩阪銀2筝 917 1242 1552 1937 +莇膩咲娯腴倶頑 917 1242 1552 1937 +莇膩咲娯腴倶翫 917 1242 1552 1937 +莇膩阪銀4筝 917 1242 1552 1937 +莇膩阪臼絎合√ 917 1242 1552 1937 +莇膩咲 917 1242 1552 1937 +莇膩阪闑 917 1242 1552 1937 + +莇薈亥 919 1244 1554 1939 +莇薈絨 919 1244 1554 1939 +莇薈咲 919 1244 1554 1939 +莇薈紊у4筝 919 1244 1554 1939 +莇薈紊у3筝 919 1244 1554 1939 +莇薈ユ羌欠 919 1244 1554 1939 +莇薈阪 919 1244 1554 1939 +莇薈帥2筝 919 1244 1554 1939 +莇薈帥1筝 919 1244 1554 1939 +莇薈篋九灸梢絮 919 1244 1554 1939 +莇薈医紫祉潟帥弱 919 1244 1554 1939 +莇薈ョ合 919 1244 1554 1939 +莇薈羝 919 1244 1554 1939 +莇薈絮怨肴タ 919 1244 1554 1939 +莇薈絽綵号茱 919 1244 1554 1939 +莇薈筝 919 1244 1554 1939 +莇薈筝3筝 919 1244 1554 1939 +莇薈絲睡 919 1244 1554 1939 +莇薈祉潟帥弱 919 1244 1554 1939 +莇薈亥1筝 919 1244 1554 1939 +莇薈腮臀峨 919 1244 1554 1939 +莇薈銀1筝 919 1244 1554 1939 +莇薈篏 919 1244 1554 1939 +莇薈 919 1244 1554 1939 +莇薈ュ1筝 919 1244 1554 1939 +莇薈亥2筝 919 1244 1554 1939 +莇薈亥2筝 919 1244 1554 1939 +莇薈銀2筝 919 1244 1554 1939 +莇薈娯腴倶頑 919 1244 1554 1939 +莇薈娯腴倶翫 919 1244 1554 1939 +莇薈銀4筝 919 1244 1554 1939 +莇薈絮怨合√ 919 1244 1554 1939 +莇薈蕭 919 1244 1554 1939 +莇薈絨闑 919 1244 1554 1939 + +亥医 920 1245 1555 1940 +亥育咲 920 1245 1555 1940 +亥医ぇ絎4筝 920 1245 1555 1940 +亥医ぇ絎3筝 920 1245 1555 1940 +亥井ユ羌欠 920 1245 1555 1940 +亥違阪 920 1245 1555 1940 +亥違帥2筝 920 1245 1555 1940 +亥違帥1筝 920 1245 1555 1940 +亥遺九灸梢絮 920 1245 1555 1940 +亥育医紫祉潟帥弱 920 1245 1555 1940 +亥域ョ合 920 1245 1555 1940 +亥井遣 920 1245 1555 1940 +亥医臼絮肴タ 920 1245 1555 1940 +亥医綵号茱 920 1245 1555 1940 +亥遺賢 920 1245 1555 1940 +亥遺賢3筝 920 1245 1555 1940 +亥医睡 920 1245 1555 1940 +亥井祉潟帥弱 920 1245 1555 1940 +亥医亥1筝 920 1245 1555 1940 +亥亥臀峨 920 1245 1555 1940 +亥医銀1筝 920 1245 1555 1940 +亥遺 920 1245 1555 1940 +亥井 920 1245 1555 1940 +亥井ュ1筝 920 1245 1555 1940 +亥医亥2筝 920 1245 1555 1940 +亥医亥2筝 920 1245 1555 1940 +亥医銀2筝 920 1245 1555 1940 +亥育娯腴倶頑 920 1245 1555 1940 +亥育娯腴倶翫 920 1245 1555 1940 +亥医銀4筝 920 1245 1555 1940 +亥医臼絎合√ 920 1245 1555 1940 +亥育 920 1245 1555 1940 +亥医闑 920 1245 1555 1940 + +絨ч咲 922 1247 1557 1942 +絨уぇ絎4筝 922 1247 1557 1942 +絨уぇ絎3筝 922 1247 1557 1942 +絨фユ羌欠 922 1247 1557 1942 +絨с阪 922 1247 1557 1942 +絨с帥2筝 922 1247 1557 1942 +絨с帥1筝 922 1247 1557 1942 +絨т九灸梢絮 922 1247 1557 1942 +絨ч医紫祉潟帥弱 922 1247 1557 1942 +絨цョ合 922 1247 1557 1942 +絨ф遣 922 1247 1557 1942 +絨у臼絮肴タ 922 1247 1557 1942 +絨у綵号茱 922 1247 1557 1942 +絨т賢 922 1247 1557 1942 +絨т賢3筝 922 1247 1557 1942 +絨у睡 922 1247 1557 1942 +絨ф祉潟帥弱 922 1247 1557 1942 +絨у亥1筝 922 1247 1557 1942 +絨х臀峨 922 1247 1557 1942 +絨у銀1筝 922 1247 1557 1942 +絨т 922 1247 1557 1942 +絨ф 922 1247 1557 1942 +絨фュ1筝 922 1247 1557 1942 +絨у亥2筝 922 1247 1557 1942 +絨у亥2筝 922 1247 1557 1942 +絨у銀2筝 922 1247 1557 1942 +絨ч娯腴倶頑 922 1247 1557 1942 +絨ч娯腴倶翫 922 1247 1557 1942 +絨у銀4筝 922 1247 1557 1942 +絨у臼絎合√ 922 1247 1557 1942 +絨ч 922 1247 1557 1942 +絨у闑 922 1247 1557 1942 + +咲紊у4筝 925 1250 1600 1945 +咲紊у3筝 925 1250 1600 1945 +咲ユ羌欠 925 1250 1600 1945 +咲阪 925 1250 1600 1945 +咲帥2筝 925 1250 1600 1945 +咲帥1筝 925 1250 1600 1945 +咲篋九灸梢絮 925 1250 1600 1945 +咲医紫祉潟帥弱 925 1250 1600 1945 +咲ョ合 925 1250 1600 1945 +咲羝 925 1250 1600 1945 +咲絮怨肴タ 925 1250 1600 1945 +咲絽綵号茱 925 1250 1600 1945 +咲筝 925 1250 1600 1945 +咲筝3筝 925 1250 1600 1945 +咲絲睡 925 1250 1600 1945 +咲祉潟帥弱 925 1250 1600 1945 +咲亥1筝 925 1250 1600 1945 +咲腮臀峨 925 1250 1600 1945 +咲銀1筝 925 1250 1600 1945 +咲篏 925 1250 1600 1945 +咲 925 1250 1600 1945 +咲ュ1筝 925 1250 1600 1945 +咲亥2筝 925 1250 1600 1945 +咲亥2筝 925 1250 1600 1945 +咲銀2筝 925 1250 1600 1945 +咲娯腴倶頑 925 1250 1600 1945 +咲娯腴倶翫 925 1250 1600 1945 +咲銀4筝 925 1250 1600 1945 +咲絮怨合√ 925 1250 1600 1945 +咲蕭 925 1250 1600 1945 +咲絨闑 925 1250 1600 1945 + +紊у4筝紊у3筝 928 1253 1603 1948 +紊у4筝ユ羌欠 928 1253 1603 1948 +紊у4筝阪 928 1253 1603 1948 +紊у4筝帥2筝 928 1253 1603 1948 +紊у4筝帥1筝 928 1253 1603 1948 +紊у4筝篋九灸梢絮 928 1253 1603 1948 +紊у4筝医紫祉潟帥弱 928 1253 1603 1948 +紊у4筝ョ合 928 1253 1603 1948 +紊у4筝羝 928 1253 1603 1948 +紊у4筝絮怨肴タ 928 1253 1603 1948 +紊у4筝絽綵号茱 928 1253 1603 1948 +紊у4筝筝 928 1253 1603 1948 +紊у4筝筝3筝 928 1253 1603 1948 +紊у4筝絲睡 928 1253 1603 1948 +紊у4筝祉潟帥弱 928 1253 1603 1948 +紊у4筝亥1筝 928 1253 1603 1948 +紊у4筝腮臀峨 928 1253 1603 1948 +紊у4筝銀1筝 928 1253 1603 1948 +紊у4筝篏 928 1253 1603 1948 +紊у4筝 928 1253 1603 1948 +紊у4筝ュ1筝 928 1253 1603 1948 +紊у4筝亥2筝 928 1253 1603 1948 +紊у4筝亥2筝 928 1253 1603 1948 +紊у4筝銀2筝 928 1253 1603 1948 +紊у4筝娯腴倶頑 928 1253 1603 1948 +紊у4筝娯腴倶翫 928 1253 1603 1948 +紊у4筝銀4筝 928 1253 1603 1948 +紊у4筝絮怨合√ 928 1253 1603 1948 +紊у4筝蕭 928 1253 1603 1948 +紊у4筝絨闑 928 1253 1603 1948 + +紊у3筝ユ羌欠 929 1254 1604 1949 +紊у3筝阪 929 1254 1604 1949 +紊у3筝帥2筝 929 1254 1604 1949 +紊у3筝帥1筝 929 1254 1604 1949 +紊у3筝篋九灸梢絮 929 1254 1604 1949 +紊у3筝医紫祉潟帥弱 929 1254 1604 1949 +紊у3筝ョ合 929 1254 1604 1949 +紊у3筝羝 929 1254 1604 1949 +紊у3筝絮怨肴タ 929 1254 1604 1949 +紊у3筝絽綵号茱 929 1254 1604 1949 +紊у3筝筝 929 1254 1604 1949 +紊у3筝筝3筝 929 1254 1604 1949 +紊у3筝絲睡 929 1254 1604 1949 +紊у3筝祉潟帥弱 929 1254 1604 1949 +紊у3筝亥1筝 929 1254 1604 1949 +紊у3筝腮臀峨 929 1254 1604 1949 +紊у3筝銀1筝 929 1254 1604 1949 +紊у3筝篏 929 1254 1604 1949 +紊у3筝 929 1254 1604 1949 +紊у3筝ュ1筝 929 1254 1604 1949 +紊у3筝亥2筝 929 1254 1604 1949 +紊у3筝亥2筝 929 1254 1604 1949 +紊у3筝銀2筝 929 1254 1604 1949 +紊у3筝娯腴倶頑 929 1254 1604 1949 +紊у3筝娯腴倶翫 929 1254 1604 1949 +紊у3筝銀4筝 929 1254 1604 1949 +紊у3筝絮怨合√ 929 1254 1604 1949 +紊у3筝蕭 929 1254 1604 1949 +紊у3筝絨闑 929 1254 1604 1949 + +ユ羌欠≪阪 931 1256 1606 1951 +ユ羌欠≪帥2筝 931 1256 1606 1951 +ユ羌欠≪帥1筝 931 1256 1606 1951 +ユ羌欠≫九灸梢絮 931 1256 1606 1951 +ユ羌欠∫医紫祉潟帥弱 931 1256 1606 1951 +ユ羌欠∵ョ合 931 1256 1606 1951 +ユ羌欠∽遣 931 1256 1606 1951 +ユ羌欠√臼絮肴タ 931 1256 1606 1951 +ユ羌欠√綵号茱 931 1256 1606 1951 +ユ羌欠≫賢 931 1256 1606 1951 +ユ羌欠≫賢3筝 931 1256 1606 1951 +ユ羌欠√睡 931 1256 1606 1951 +ユ羌欠∽祉潟帥弱 931 1256 1606 1951 +ユ羌欠√亥1筝 931 1256 1606 1951 +ユ羌欠∝臀峨 931 1256 1606 1951 +ユ羌欠√銀1筝 931 1256 1606 1951 +ユ羌欠≫ 931 1256 1606 1951 +ユ羌欠∽ 931 1256 1606 1951 +ユ羌欠∽ュ1筝 931 1256 1606 1951 +ユ羌欠√亥2筝 931 1256 1606 1951 +ユ羌欠√亥2筝 931 1256 1606 1951 +ユ羌欠√銀2筝 931 1256 1606 1951 +ユ羌欠∫娯腴倶頑 931 1256 1606 1951 +ユ羌欠∫娯腴倶翫 931 1256 1606 1951 +ユ羌欠√銀4筝 931 1256 1606 1951 +ユ羌欠√臼絎合√ 931 1256 1606 1951 +ユ羌欠∫ 931 1256 1606 1951 +ユ羌欠√闑 931 1256 1606 1951 + +阪帥2筝 935 1300 1610 1955 +阪帥1筝 935 1300 1610 1955 +阪篋九灸梢絮 935 1300 1610 1955 +阪医紫祉潟帥弱 935 1300 1610 1955 +阪ョ合 935 1300 1610 1955 +阪羝 935 1300 1610 1955 +阪絮怨肴タ 935 1300 1610 1955 +阪絽綵号茱 935 1300 1610 1955 +阪筝 935 1300 1610 1955 +阪筝3筝 935 1300 1610 1955 +阪絲睡 935 1300 1610 1955 +阪祉潟帥弱 935 1300 1610 1955 +阪亥1筝 935 1300 1610 1955 +阪腮臀峨 935 1300 1610 1955 +阪銀1筝 935 1300 1610 1955 +阪篏 935 1300 1610 1955 +阪 935 1300 1610 1955 +阪ュ1筝 935 1300 1610 1955 +阪亥2筝 935 1300 1610 1955 +阪亥2筝 935 1300 1610 1955 +阪銀2筝 935 1300 1610 1955 +阪娯腴倶頑 935 1300 1610 1955 +阪娯腴倶翫 935 1300 1610 1955 +阪銀4筝 935 1300 1610 1955 +阪絮怨合√ 935 1300 1610 1955 +阪蕭 935 1300 1610 1955 +阪絨闑 935 1300 1610 1955 + +帥2筝帥1筝 937 1302 1612 1957 +帥2筝篋九灸梢絮 937 1302 1612 1957 +帥2筝医紫祉潟帥弱 937 1302 1612 1957 +帥2筝ョ合 937 1302 1612 1957 +帥2筝羝 937 1302 1612 1957 +帥2筝絮怨肴タ 937 1302 1612 1957 +帥2筝絽綵号茱 937 1302 1612 1957 +帥2筝筝 937 1302 1612 1957 +帥2筝筝3筝 937 1302 1612 1957 +帥2筝絲睡 937 1302 1612 1957 +帥2筝祉潟帥弱 937 1302 1612 1957 +帥2筝亥1筝 937 1302 1612 1957 +帥2筝腮臀峨 937 1302 1612 1957 +帥2筝銀1筝 937 1302 1612 1957 +帥2筝篏 937 1302 1612 1957 +帥2筝 937 1302 1612 1957 +帥2筝ュ1筝 937 1302 1612 1957 +帥2筝亥2筝 937 1302 1612 1957 +帥2筝亥2筝 937 1302 1612 1957 +帥2筝銀2筝 937 1302 1612 1957 +帥2筝娯腴倶頑 937 1302 1612 1957 +帥2筝娯腴倶翫 937 1302 1612 1957 +帥2筝銀4筝 937 1302 1612 1957 +帥2筝絮怨合√ 937 1302 1612 1957 +帥2筝蕭 937 1302 1612 1957 +帥2筝絨闑 937 1302 1612 1957 + +帥1筝篋九灸梢絮 938 1303 1613 1958 +帥1筝医紫祉潟帥弱 938 1303 1613 1958 +帥1筝ョ合 938 1303 1613 1958 +帥1筝羝 938 1303 1613 1958 +帥1筝絮怨肴タ 938 1303 1613 1958 +帥1筝絽綵号茱 938 1303 1613 1958 +帥1筝筝 938 1303 1613 1958 +帥1筝筝3筝 938 1303 1613 1958 +帥1筝絲睡 938 1303 1613 1958 +帥1筝祉潟帥弱 938 1303 1613 1958 +帥1筝亥1筝 938 1303 1613 1958 +帥1筝腮臀峨 938 1303 1613 1958 +帥1筝銀1筝 938 1303 1613 1958 +帥1筝篏 938 1303 1613 1958 +帥1筝 938 1303 1613 1958 +帥1筝ュ1筝 938 1303 1613 1958 +帥1筝亥2筝 938 1303 1613 1958 +帥1筝亥2筝 938 1303 1613 1958 +帥1筝銀2筝 938 1303 1613 1958 +帥1筝娯腴倶頑 938 1303 1613 1958 +帥1筝娯腴倶翫 938 1303 1613 1958 +帥1筝銀4筝 938 1303 1613 1958 +帥1筝絮怨合√ 938 1303 1613 1958 +帥1筝蕭 938 1303 1613 1958 +帥1筝絨闑 938 1303 1613 1958 + +篋九灸梢絮医紫祉潟帥弱 940 1305 1615 2000 +篋九灸梢絮ョ合 940 1305 1615 2000 +篋九灸梢絮羝 940 1305 1615 2000 +篋九灸梢絮絮怨肴タ 940 1305 1615 2000 +篋九灸梢絮絽綵号茱 940 1305 1615 2000 +篋九灸梢絮筝 940 1305 1615 2000 +篋九灸梢絮筝3筝 940 1305 1615 2000 +篋九灸梢絮絲睡 940 1305 1615 2000 +篋九灸梢絮祉潟帥弱 940 1305 1615 2000 +篋九灸梢絮亥1筝 940 1305 1615 2000 +篋九灸梢絮腮臀峨 940 1305 1615 2000 +篋九灸梢絮銀1筝 940 1305 1615 2000 +篋九灸梢絮篏 940 1305 1615 2000 +篋九灸梢絮 940 1305 1615 2000 +篋九灸梢絮ュ1筝 940 1305 1615 2000 +篋九灸梢絮亥2筝 940 1305 1615 2000 +篋九灸梢絮亥2筝 940 1305 1615 2000 +篋九灸梢絮銀2筝 940 1305 1615 2000 +篋九灸梢絮娯腴倶頑 940 1305 1615 2000 +篋九灸梢絮娯腴倶翫 940 1305 1615 2000 +篋九灸梢絮銀4筝 940 1305 1615 2000 +篋九灸梢絮絮怨合√ 940 1305 1615 2000 +篋九灸梢絮蕭 940 1305 1615 2000 +篋九灸梢絮絨闑 940 1305 1615 2000 + +医紫祉潟帥弱ョ合 942 1307 1617 2002 +医紫祉潟帥弱羝 942 1307 1617 2002 +医紫祉潟帥弱絮怨肴タ 942 1307 1617 2002 +医紫祉潟帥弱絽綵号茱 942 1307 1617 2002 +医紫祉潟帥弱筝 942 1307 1617 2002 +医紫祉潟帥弱筝3筝 942 1307 1617 2002 +医紫祉潟帥弱絲睡 942 1307 1617 2002 +医紫祉潟帥弱祉潟帥弱 942 1307 1617 2002 +医紫祉潟帥弱亥1筝 942 1307 1617 2002 +医紫祉潟帥弱腮臀峨 942 1307 1617 2002 +医紫祉潟帥弱銀1筝 942 1307 1617 2002 +医紫祉潟帥弱篏 942 1307 1617 2002 +医紫祉潟帥弱 942 1307 1617 2002 +医紫祉潟帥弱ュ1筝 942 1307 1617 2002 +医紫祉潟帥弱亥2筝 942 1307 1617 2002 +医紫祉潟帥弱亥2筝 942 1307 1617 2002 +医紫祉潟帥弱銀2筝 942 1307 1617 2002 +医紫祉潟帥弱娯腴倶頑 942 1307 1617 2002 +医紫祉潟帥弱娯腴倶翫 942 1307 1617 2002 +医紫祉潟帥弱銀4筝 942 1307 1617 2002 +医紫祉潟帥弱絮怨合√ 942 1307 1617 2002 +医紫祉潟帥弱蕭 942 1307 1617 2002 +医紫祉潟帥弱絨闑 942 1307 1617 2002 + +ョ合堺遣 944 1309 1619 2004 +ョ合阪臼絮肴タ 944 1309 1619 2004 +ョ合阪綵号茱 944 1309 1619 2004 +ョ合坂賢 944 1309 1619 2004 +ョ合坂賢3筝 944 1309 1619 2004 +ョ合阪睡 944 1309 1619 2004 +ョ合堺祉潟帥弱 944 1309 1619 2004 +ョ合阪亥1筝 944 1309 1619 2004 +ョ合榊臀峨 944 1309 1619 2004 +ョ合阪銀1筝 944 1309 1619 2004 +ョ合坂 944 1309 1619 2004 +ョ合堺 944 1309 1619 2004 +ョ合堺ュ1筝 944 1309 1619 2004 +ョ合阪亥2筝 944 1309 1619 2004 +ョ合阪亥2筝 944 1309 1619 2004 +ョ合阪銀2筝 944 1309 1619 2004 +ョ合咲娯腴倶頑 944 1309 1619 2004 +ョ合咲娯腴倶翫 944 1309 1619 2004 +ョ合阪銀4筝 944 1309 1619 2004 +ョ合阪臼絎合√ 944 1309 1619 2004 +ョ合咲 944 1309 1619 2004 +ョ合阪闑 944 1309 1619 2004 + +羝絮怨肴タ 945 1310 1620 2005 +羝絽綵号茱 945 1310 1620 2005 +羝筝 945 1310 1620 2005 +羝筝3筝 945 1310 1620 2005 +羝絲睡 945 1310 1620 2005 +羝祉潟帥弱 945 1310 1620 2005 +羝亥1筝 945 1310 1620 2005 +羝腮臀峨 945 1310 1620 2005 +羝銀1筝 945 1310 1620 2005 +羝篏 945 1310 1620 2005 +羝 945 1310 1620 2005 +羝ュ1筝 945 1310 1620 2005 +羝亥2筝 945 1310 1620 2005 +羝亥2筝 945 1310 1620 2005 +羝銀2筝 945 1310 1620 2005 +羝娯腴倶頑 945 1310 1620 2005 +羝娯腴倶翫 945 1310 1620 2005 +羝銀4筝 945 1310 1620 2005 +羝絮怨合√ 945 1310 1620 2005 +羝蕭 945 1310 1620 2005 +羝絨闑 945 1310 1620 2005 + +絮怨肴タ絽綵号茱 948 1313 1623 2008 +絮怨肴タ筝 948 1313 1623 2008 +絮怨肴タ筝3筝 948 1313 1623 2008 +絮怨肴タ絲睡 948 1313 1623 2008 +絮怨肴タ祉潟帥弱 948 1313 1623 2008 +絮怨肴タ亥1筝 948 1313 1623 2008 +絮怨肴タ腮臀峨 948 1313 1623 2008 +絮怨肴タ銀1筝 948 1313 1623 2008 +絮怨肴タ篏 948 1313 1623 2008 +絮怨肴タ 948 1313 1623 2008 +絮怨肴タュ1筝 948 1313 1623 2008 +絮怨肴タ亥2筝 948 1313 1623 2008 +絮怨肴タ亥2筝 948 1313 1623 2008 +絮怨肴タ銀2筝 948 1313 1623 2008 +絮怨肴タ娯腴倶頑 948 1313 1623 2008 +絮怨肴タ娯腴倶翫 948 1313 1623 2008 +絮怨肴タ銀4筝 948 1313 1623 2008 +絮怨肴タ絮怨合√ 948 1313 1623 2008 +絮怨肴タ蕭 948 1313 1623 2008 +絮怨肴タ絨闑 948 1313 1623 2008 + +絽綵号茱推賢 951 1316 1626 2011 +絽綵号茱推賢3筝 951 1316 1626 2011 +絽綵号茱水睡 951 1316 1626 2011 +絽綵号茱炊祉潟帥弱 951 1316 1626 2011 +絽綵号茱水亥1筝 951 1316 1626 2011 +絽綵号茱睡臀峨 951 1316 1626 2011 +絽綵号茱水銀1筝 951 1316 1626 2011 +絽綵号茱推 951 1316 1626 2011 +絽綵号茱炊 951 1316 1626 2011 +絽綵号茱炊ュ1筝 951 1316 1626 2011 +絽綵号茱水亥2筝 951 1316 1626 2011 +絽綵号茱水亥2筝 951 1316 1626 2011 +絽綵号茱水銀2筝 951 1316 1626 2011 +絽綵号茱翠娯腴倶頑 951 1316 1626 2011 +絽綵号茱翠娯腴倶翫 951 1316 1626 2011 +絽綵号茱水銀4筝 951 1316 1626 2011 +絽綵号茱水臼絎合√ 951 1316 1626 2011 +絽綵号茱翠 951 1316 1626 2011 +絽綵号茱水闑 951 1316 1626 2011 + +筝坂賢3筝 952 1317 1627 2012 +筝阪睡 952 1317 1627 2012 +筝堺祉潟帥弱 952 1317 1627 2012 +筝阪亥1筝 952 1317 1627 2012 +筝榊臀峨 952 1317 1627 2012 +筝阪銀1筝 952 1317 1627 2012 +筝坂 952 1317 1627 2012 +筝堺 952 1317 1627 2012 +筝堺ュ1筝 952 1317 1627 2012 +筝阪亥2筝 952 1317 1627 2012 +筝阪亥2筝 952 1317 1627 2012 +筝阪銀2筝 952 1317 1627 2012 +筝咲娯腴倶頑 952 1317 1627 2012 +筝咲娯腴倶翫 952 1317 1627 2012 +筝阪銀4筝 952 1317 1627 2012 +筝阪臼絎合√ 952 1317 1627 2012 +筝咲 952 1317 1627 2012 +筝阪闑 952 1317 1627 2012 + +筝3筝絲睡 953 1318 1628 2013 +筝3筝祉潟帥弱 953 1318 1628 2013 +筝3筝亥1筝 953 1318 1628 2013 +筝3筝腮臀峨 953 1318 1628 2013 +筝3筝銀1筝 953 1318 1628 2013 +筝3筝篏 953 1318 1628 2013 +筝3筝 953 1318 1628 2013 +筝3筝ュ1筝 953 1318 1628 2013 +筝3筝亥2筝 953 1318 1628 2013 +筝3筝亥2筝 953 1318 1628 2013 +筝3筝銀2筝 953 1318 1628 2013 +筝3筝娯腴倶頑 953 1318 1628 2013 +筝3筝娯腴倶翫 953 1318 1628 2013 +筝3筝銀4筝 953 1318 1628 2013 +筝3筝絮怨合√ 953 1318 1628 2013 +筝3筝蕭 953 1318 1628 2013 +筝3筝絨闑 953 1318 1628 2013 + +絲睡堺祉潟帥弱 954 1319 1629 2014 +絲睡阪亥1筝 954 1319 1629 2014 +絲睡榊臀峨 954 1319 1629 2014 +絲睡阪銀1筝 954 1319 1629 2014 +絲睡坂 954 1319 1629 2014 +絲睡堺 954 1319 1629 2014 +絲睡堺ュ1筝 954 1319 1629 2014 +絲睡阪亥2筝 954 1319 1629 2014 +絲睡阪亥2筝 954 1319 1629 2014 +絲睡阪銀2筝 954 1319 1629 2014 +絲睡咲娯腴倶頑 954 1319 1629 2014 +絲睡咲娯腴倶翫 954 1319 1629 2014 +絲睡阪銀4筝 954 1319 1629 2014 +絲睡阪臼絎合√ 954 1319 1629 2014 +絲睡咲 954 1319 1629 2014 +絲睡阪闑 954 1319 1629 2014 + +祉潟帥弱亥1筝 956 1321 1631 2016 +祉潟帥弱腮臀峨 956 1321 1631 2016 +祉潟帥弱銀1筝 956 1321 1631 2016 +祉潟帥弱篏 956 1321 1631 2016 +祉潟帥弱 956 1321 1631 2016 +祉潟帥弱ュ1筝 956 1321 1631 2016 +祉潟帥弱亥2筝 956 1321 1631 2016 +祉潟帥弱亥2筝 956 1321 1631 2016 +祉潟帥弱銀2筝 956 1321 1631 2016 +祉潟帥弱娯腴倶頑 956 1321 1631 2016 +祉潟帥弱娯腴倶翫 956 1321 1631 2016 +祉潟帥弱銀4筝 956 1321 1631 2016 +祉潟帥弱絮怨合√ 956 1321 1631 2016 +祉潟帥弱蕭 956 1321 1631 2016 +祉潟帥弱絨闑 956 1321 1631 2016 + +亥1筝腮臀峨 957 1322 1632 2017 +亥1筝銀1筝 957 1322 1632 2017 +亥1筝篏 957 1322 1632 2017 +亥1筝 957 1322 1632 2017 +亥1筝ュ1筝 957 1322 1632 2017 +亥1筝亥2筝 957 1322 1632 2017 +亥1筝亥2筝 957 1322 1632 2017 +亥1筝銀2筝 957 1322 1632 2017 +亥1筝娯腴倶頑 957 1322 1632 2017 +亥1筝娯腴倶翫 957 1322 1632 2017 +亥1筝銀4筝 957 1322 1632 2017 +亥1筝絮怨合√ 957 1322 1632 2017 +亥1筝蕭 957 1322 1632 2017 +亥1筝絨闑 957 1322 1632 2017 + +腮臀峨銀1筝 958 1323 1633 2018 +腮臀峨篏 958 1323 1633 2018 +腮臀峨 958 1323 1633 2018 +腮臀峨ュ1筝 958 1323 1633 2018 +腮臀峨亥2筝 958 1323 1633 2018 +腮臀峨亥2筝 958 1323 1633 2018 +腮臀峨銀2筝 958 1323 1633 2018 +腮臀峨娯腴倶頑 958 1323 1633 2018 +腮臀峨娯腴倶翫 958 1323 1633 2018 +腮臀峨銀4筝 958 1323 1633 2018 +腮臀峨絮怨合√ 958 1323 1633 2018 +腮臀峨蕭 958 1323 1633 2018 +腮臀峨絨闑 958 1323 1633 2018 + +銀1筝篏 958 1323 1633 2018 +銀1筝 958 1323 1633 2018 +銀1筝ュ1筝 958 1323 1633 2018 +銀1筝亥2筝 958 1323 1633 2018 +銀1筝亥2筝 958 1323 1633 2018 +銀1筝銀2筝 958 1323 1633 2018 +銀1筝娯腴倶頑 958 1323 1633 2018 +銀1筝娯腴倶翫 958 1323 1633 2018 +銀1筝銀4筝 958 1323 1633 2018 +銀1筝絮怨合√ 958 1323 1633 2018 +銀1筝蕭 958 1323 1633 2018 +銀1筝絨闑 958 1323 1633 2018 + +篏堺 1004 1329 1639 2024 +篏堺ュ1筝 1004 1329 1639 2024 +篏阪亥2筝 1004 1329 1639 2024 +篏阪亥2筝 1004 1329 1639 2024 +篏阪銀2筝 1004 1329 1639 2024 +篏咲娯腴倶頑 1004 1329 1639 2024 +篏咲娯腴倶翫 1004 1329 1639 2024 +篏阪銀4筝 1004 1329 1639 2024 +篏阪臼絎合√ 1004 1329 1639 2024 +篏咲 1004 1329 1639 2024 +篏阪闑 1004 1329 1639 2024 + +堺ュ1筝 1006 1331 1641 2026 +阪亥2筝 1006 1331 1641 2026 +阪亥2筝 1006 1331 1641 2026 +阪銀2筝 1006 1331 1641 2026 +咲娯腴倶頑 1006 1331 1641 2026 +咲娯腴倶翫 1006 1331 1641 2026 +阪銀4筝 1006 1331 1641 2026 +阪臼絎合√ 1006 1331 1641 2026 +咲 1006 1331 1641 2026 +阪闑 1006 1331 1641 2026 + +阪亥2筝 1007 1332 1642 2027 +阪亥2筝 1007 1332 1642 2027 +阪銀2筝 1007 1332 1642 2027 +咲娯腴倶頑 1007 1332 1642 2027 +咲娯腴倶翫 1007 1332 1642 2027 +阪銀4筝 1007 1332 1642 2027 +阪臼絎合√ 1007 1332 1642 2027 +咲 1007 1332 1642 2027 +阪闑 1007 1332 1642 2027 + +亥2筝亥2筝 1008 1333 1643 2028 +亥2筝銀2筝 1008 1333 1643 2028 +亥2筝娯腴倶頑 1008 1333 1643 2028 +亥2筝娯腴倶翫 1008 1333 1643 2028 +亥2筝銀4筝 1008 1333 1643 2028 +亥2筝絮怨合√ 1008 1333 1643 2028 +亥2筝蕭 1008 1333 1643 2028 +亥2筝絨闑 1008 1333 1643 2028 + +亥2筝銀2筝 1009 1334 1644 2029 +亥2筝娯腴倶頑 1009 1334 1644 2029 +亥2筝娯腴倶翫 1009 1334 1644 2029 +亥2筝銀4筝 1009 1334 1644 2029 +亥2筝絮怨合√ 1009 1334 1644 2029 +亥2筝蕭 1009 1334 1644 2029 +亥2筝絨闑 1009 1334 1644 2029 + +銀2筝娯腴倶頑 1010 1335 1645 2030 +銀2筝娯腴倶翫 1010 1335 1645 2030 +銀2筝銀4筝 1010 1335 1645 2030 +銀2筝絮怨合√ 1010 1335 1645 2030 +銀2筝蕭 1010 1335 1645 2030 +銀2筝絨闑 1010 1335 1645 2030 + +娯腴倶頑娯腴倶翫 1011 1336 1646 2031 +娯腴倶頑銀4筝 1011 1336 1646 2031 +娯腴倶頑絮怨合√ 1011 1336 1646 2031 +娯腴倶頑蕭 1011 1336 1646 2031 +娯腴倶頑絨闑 1011 1336 1646 2031 + +娯腴倶翫銀4筝 1012 1337 1647 2032 +娯腴倶翫絮怨合√ 1012 1337 1647 2032 +娯腴倶翫蕭 1012 1337 1647 2032 +娯腴倶翫絨闑 1012 1337 1647 2032 + +銀4筝絮怨合√ 1013 1338 1648 2033 +銀4筝蕭 1013 1338 1648 2033 +銀4筝絨闑 1013 1338 1648 2033 + +絮怨合√蕭 1015 1340 1650 2035 +絮怨合√絨闑 1015 1340 1650 2035 + +蕭絨闑 1016 1341 1651 2036 diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/HowtoEdit.txt --- a/bisyozyo/HowtoEdit.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,60 +0,0 @@ -XXXXXXXXXSSSSSXXXXXXXXZZZZQQQWZZZZXeo#XX -X2SSXXXXXSS2SSSSXXXXXXXZXZZ##XXZXXenmZXX -XSS2XXXXXSSSSS2XS2XSXXXXZZZXXXZXX2IdZXXX -XSSSXXXXXSSSS2XSSSSSXXXZZZXZZZZXXl|XXXXX -XXXSXXXXXXXSSXXSSXXXXXXZZZZZXZXX1I=XXXXS -XXXXXXZZXXXXXXXXXXXXXXZmQQmXXZXovoinmmmm -ZXXXXXZZZZXXXXXXXXXXZZZYVY*S}ISnX2vvYYYY -ZZZZXZZUZZZZZXXXXXZXXes||+ivi|voXXvl:;:; -mm#ZZZ#Z#ZZZXZZZZZZXX1i|++||1lvXXXpv::.: -$WXZZZZZZZXXXXZZZZXS1I||i||=vvvI1SXn;::_ -lnXXXX2XXXXSXXXXXX1lvI|i|||=|iIvns==X -oXXZXXXX#ZZZXZXZX1|iivI%=++===+i|||i -ZX##mQQQXvnooe==:dZUqooXXnvnuo>=;==i|||i -Z#ZmWWQQXnno21=.]Z|>+SoXmoXXYY(=;==||||| -ZXn##WWQXvno2c::dwas|ii>;=##mq###Wm#mmoou=;;=||||| -ZovXmWWQ#nvXm(==XZ####mW##m#mmX=;;=|+||| -X2{ZXWWQ#}IvS>;=XXZ##m#W###mm#X==:=|=|i| -X1{XnWWWmounl|;;vXXZZZS2SXZ###X>:;=+=||| -Xz{XnWmQm2Xol|;=)XSXXs|i|inZZXo=:;=|=|i| -XouXX#WQ#slIi|;=)S2XXXonvuZXXS1=:==+=||i -mm###WBQ#o2oo+===2S2SXSXX#XXSni:;=+|;<|i -#Z1ZS#WW#1111+==.3on}==||**Inv>===|===:=+|+|||ii -Xcvo3#BW#iii===;:...+11212l|=:=+|+||+iii -X1vovmWW#vv>===;:....-ii||==;:|=|||<=ili -Xc{on#mW#nX====::....:=i||++=+++|+|=iii| -Xc{Xo#WW&oc=:;:::..-.:=ii||++|=|||+=|.::.:..:innv||>==|=+=|+==;:== -Xc{XvZ#mmWc.;::..:=vnnvi|+=|=+||||==;;== -Z({2vmmBWmk:::-.::|vo1li|=i|+v##mmmmC||||vZ####Xsii|id#zl||ivnomBm#WZmsiiiiii|< -XnnXZ#XXvliiivm#}|ivXSqmBmWBWB#vvllil||i -XooXSXZSlii|i3m#invXZZmmmBWWWW#nniIivi|v -ZZ##zIIiii|==|||i+| -Z###mmmmmdm####ZXXZXX###X##Xei|=||iiii|= diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/back_bisyouzyo.xcf.bz2 Binary file bisyozyo/back_bisyouzyo.xcf.bz2 has changed diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/bisyouzyo.png Binary file bisyozyo/bisyouzyo.png has changed diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/bisyozyo.css --- a/bisyozyo/bisyozyo.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -body { - background: url(bisyouzyo.png) - } - -h2 { - background: #ffd620; - padding: 3px 3px 3px 20px; - border-top-right-radius: 2ex; - border-bottom-right-radius: 2ex; - border-top-left-radius: 2ex; - border-bottom-left-radius: 2ex; - width: 250px; - text-align: left; - color:black; - } - -p.new { - width:100%; - text-align:left; - border-style-bottom:thin solid; - color:black; - } - -p.new span { - background:#ffd620; - padding:3px 3px 3px 3px; - } - -div.soko{ - text-align:left; - padding-right:110px; min-height:117px; - padding-left:1em; - background:white url(soko.png); - background-repeat:no-repeat; - text-indent: 6em; - margin-right:10%; margin-left:1em; - } - -p.small{ - font-size:small; - } \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/girl.css --- a/bisyozyo/girl.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,21 +0,0 @@ -body { -background: url(bisyouzyo.png) -} - -div.image { -margin-right: 1em; -height: 1em; -float: left; -} - -div.image img { -border: 6px #307ce9 solid; -margin-right: 8px; -border-top-right-radius: 2ex; -border-bottom-right-radius: 2ex; -border-top-left-radius: 2ex; -border-bottom-left-radius: 2ex; -} - - - \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/index.html --- a/bisyozyo/index.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,50 +0,0 @@ - - -美少女図鑑 - - - - -
    - - - - - -
    - -

    - -
    -
    - - - - - -
    - -

    めんこいガールとは

    -

    東北公益文科大学で噂の美少女に取材、撮影を行い、美少女に迫るコーナー -です -美少女たちから自分よりも可愛い人を紹介してもらい、リレー方式で美少女を紹 -介していきます。

    - -

    -新着 -第1回　めんこいガール 荒井 颯子 -

    - -
    -
    -

    第一回

    -

    公益大一美しい女

    -

    荒井 颯子♡

    -
    - -
    - -
    - - \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/soko-2.JPG Binary file bisyozyo/soko-2.JPG has changed diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/soko.html --- a/bisyozyo/soko.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,52 +0,0 @@ - - -めんこいおなご - - - - -
    - - - - - -
    -

    公益大一美しい女

    -
    soko
    - - - - - - -
    なまえ:荒井 颯子(あらい そうこ)
    コース:社会福祉コース
    教員:武田真理子 先生
    誕生日:4月28日
    サークル:サッカー部マネ、吹奏楽(トランペット)、スキューバ、公翔祭
    - -
    - - - - - -
    - -

    ---美 の秘訣は？

    -

    そんな、、、ないですよ〜(笑)

    -

    (※SKIP記者が懇願(^o^))

    -

    えっと、よく食べて、よくしゃべって、よく寝ることですかね(笑)

    -

    ---楽しいことってなんですか？

    -

    ドミトリーの友達と遊んでいるのが楽しいです！

    -

    ごはんも当番制にしているんですよ〜

    -

    ---似ていると言われる有名人とかはいますか？

    -

    深夜にやっていたお笑い番組ってなんでしたっけ？あの、ピ、、、！

    -

    ピカルの定理！！ピカルの定理に出ている女のひと、、、名前なんでしたっ - け？(笑)

    -

    (スマホで調べて、)西山まりやさんっていわれます！

    - -
    - - - -
    - - \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 bisyozyo/soko.png Binary file bisyozyo/soko.png has changed diff -r 2e332b1abf94 -r d2d89793be14 enq/enq.html --- a/enq/enq.html Mon May 21 10:11:23 2018 +0900 +++ b/enq/enq.html Mon May 21 10:19:01 2018 +0900 @@ -11,7 +11,7 @@
    -
    top取 +
    top取 材プログラム アンケートきらりびと
    @@ -22,7 +22,7 @@ kamon
    -

    新着情報 +

    新着情報 手打ちそば なかむらさんの記事を更新！！

    diff -r 2e332b1abf94 -r d2d89793be14 event/2013halfmarathon/marathon2013.html --- a/event/2013halfmarathon/marathon2013.html Mon May 21 10:11:23 2018 +0900 +++ b/event/2013halfmarathon/marathon2013.html Mon May 21 10:19:01 2018 +0900 @@ -11,7 +11,7 @@
    -
    toptop取材プログラムアンケートきらりびと
    @@ -34,19 +34,19 @@
    - カフジェラート・モアレ - 仏壇の佐藤 - 菓匠菊池 - 食堂一富士 - ニシムラ中町店 - フレッシュフルーツ伊藤 - くだもの・やさい・にしむら - さかた街中キャンパス - 酒・人形・ギフトの大泉 - さかた中町マルシェ - 珈琲貴族 - ファンシーショップ多賀 - 木川果実 + カフジェラート・モアレ + 仏壇の佐藤 + 菓匠菊池 + 食堂一富士 + ニシムラ中町店 + フレッシュフルーツ伊藤 + くだもの・やさい・にしむら + さかた街中キャンパス + 酒・人形・ギフトの大泉 + さかた中町マルシェ + 珈琲貴族 + ファンシーショップ多賀 + 木川果実
    diff -r 2e332b1abf94 -r d2d89793be14 kiraribito/0122.html --- a/kiraribito/0122.html Mon May 21 10:11:23 2018 +0900 +++ b/kiraribito/0122.html Mon May 21 10:19:01 2018 +0900 @@ -8,7 +8,7 @@
    -
    top取材プログラムアンケートtop取材プログラムアンケートきらりびと
    @@ -18,7 +18,7 @@ kamon

    -

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

    +

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

    *VAN*

    diff -r 2e332b1abf94 -r d2d89793be14 kiraribito/girl.html --- a/kiraribito/girl.html Mon May 21 10:11:23 2018 +0900 +++ b/kiraribito/girl.html Mon May 21 10:19:01 2018 +0900 @@ -8,7 +8,7 @@

    -
    top取材プログラムアンケートtop取材プログラムアンケートきらりびと
    @@ -18,7 +18,7 @@ kamon
    -

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

    +

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

    ★きらりびと★

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

    diff -r 2e332b1abf94 -r d2d89793be14 minato2014/.htaccess --- a/minato2014/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,10 +0,0 @@ -<<<<<<< local -AddHandler cgi-script .rb -AddType "text/html; charset=UTF-8" .rb -Options +ExecCGI -======= -AddHandler cgi-script .rb -AddType "text/html; charset=UTF-8" .rb -AddType "text/html; charset=UTF-8" .html -Options +ExecCGI ->>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 minato2014/Bingo.css --- a/minato2014/Bingo.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,76 +0,0 @@ -html,body { - width: 100%; - height: 100%; -} -div.outflam{ - width: 800px; - height: 1240px; - margin-left: auto; - margin-right: auto; - padding: 0 auto; - } - -div.top{ - background: #136cf9; - background-image: url("png/top.png"); - background-repeat: no-repeat; - border: thin solid #136cf9; - width: 100%; - height: 180px; - margin-top:0 auto; - margin-bottom:0 auto; - margin-left: auto; - margin-right: auto; - -} - -p,h3 { - margin:0; - padding-left: 5%; - font-weight: 900; - height: 5%; - width: 95%; - border: thin solid #136cf9; -} - -div.center{ - border: thin solid #1d38ff; - background: #1d38ff; - width: 100%; - height: 45%; - margin-left: auto; - margin-right: auto; -} - -table { - background: white; - margin-left: auto; - margin-right: auto; - margin-top: 1%; - margin-bottom: auto; -} - -div.bottom{ - background: #45e2fe; - background-image: url("png/bottom.png"); - background-repeat: no-repeat; - background-position: center bottom; - border:thin solid #45e2fe; - width: 100%; - height: 150px; - margin-left: auto; - margin-right: auto; -} - -div.bottom img { - float: left; - margin-left: 15%; -} - -div.charSTATUS { - clear: right; - margin-top: 7%; - background: rgba(255,255,255,0.75); - width: 70%; -} - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/Bingo.rb --- a/minato2014/Bingo.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,436 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require 'date' -require './sub.rb' -require 'net/http' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/stamp.sq3") - -id = c.cookies["id"][0].to_i -magic = c.cookies["magic"][0].to_i -err = 0 # 筝罩ｃс域ゃ -sidesize = 3 -message = "ｃ茵障!
    " # 潟雁鴻 - -print("Content-type: text/html; charset=UTF-8 \n\n") - -getcom = ARGV[0] - -### DELETE TABLE ### - -del = 'DELETE FROM main WHERE id=?' -if getcom == 'ududlrlrba' - db.execute(del, id) -end - -###### - -##### CHECKING UID ##### - -sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" -begin - user_data = db.execute(sql, id, magic) -rescue - user_data = [] -end - -if user_data == [] # 違ゃ潟(-1) - err -= 1 -end - -### LOGIN ERROR HTML ### - -if err == -1 - print' - - - - - - - -' -print' -

    違ゃ潟紊掩障

    -

    -≪潟脂蚊若吾御･膓筝
    -* 3腱腟ｃ腱糸翫    ＜腱糸筝 -

    - - -' - exit -end - -###### - -########## - -##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### - -# stamp status -stamp_st = user_data[0][0] -stamp_st = stamp_st.split(//) # 筝絖ゅ -stamp_st = stamp_st.map {|s| s.to_i} # 絖医 - -# stamp img -stamp_img = user_data[0][1] -stamp_img = stamp_img.split(",") # 絖","у阪ｃ - -########## - -##### STAMPPING ##### - -### Making randam number ### - -def taiou(sidesize) - srand(256788901) - stamp = Hash.new("n") - stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] - (sidesize**2).times do |n| - stamp[rand(10000000)] = stamp_name[n] - end - stamp -end - -###### - -##### Checking bingo method ##### - -def bingocheck(start, sidesize, stepon, stamp, decision, bingo) - nbox = [] - setbox = Hash.new - if sidesize == stepon - x = sidesize - else - x = 1 - end - x.times do |m| - start.step(sidesize*sidesize - 1, stepon) do |n| - nbox << n + m - if nbox.length == sidesize - dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) - for i in nbox - if stamp[i] == 0 - dbox << i - end - end - # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 - if dbox.length == decision - setbox[dbox] = nbox - bingo << setbox - setbox = Hash.new - nbox = [] - else - nbox = [] - end - end - end - end -end -# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] -########## - -### Checking Access Cord(AC) ### - -getAC = ARGV[0].to_i # URL?篁ラ綣違緇 -rightAC = taiou(sidesize) # taiouхAC激 -#p rightAC -rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n - -##### ACCESS LOG ##### -t = Time.now -time = (t.hour * 3600) + (t.min * 60) + t.sec - -## Checking sql_master table. If sqlite_master don't have tablename, it create. - -sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" -check_master = db.execute(sql_master) -sql_logs = 'CREATE TABLE logs( -id INTEGER PRIMARY KEY AUTOINCREMENT, -uid INTEGER, -ac TEXT, -time INTEGER); -' -if check_master == [] - db.execute(sql_logs) -end - -########## - -begin - get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 - log_check = db.execute(get_log, id) -rescue - print'GETTING LOG ERROR!' -end -begin - log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' - db.execute(log, id, rightAC, time) -rescue - print'INSERT LOG ERROR!' -end -# /* memo: 綺激鴻篏鴻帥潟若祉 */ # - -########## - -### 潟眼ゃ潟ゅ(decision = 0) ### -bingo = [] -# 罔 -bingocheck(0, sidesize, 1, stamp_st, 0, bingo) -# 膰 -bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) -# 綏 -bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) -# 勄 -bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) -####### - -bingo = bingo.length # 潟眼 -last_bingo = bingo - -if rightAC != "n" # rightAC罩ｃ - - ### Update Stamp_status And Stamp_img ### - - # Replacing Image # - - index_st = [] - stamp_st.length.times { |c| - if stamp_st[c] == 0 - index_st << c - end - } - - ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] - reach = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 1, reach) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) - ####### - - begin - reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 - rescue - reach = [] - end - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - # Updating stamp_st # - if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ - if stamp_st[stamp_img.index(rightAC)] < 9 - stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 - message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" - else - message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" - end - else - if reach != [] && bingo == 0 # 潟眼綽3у - stamp_st[reach] += 1# 潟眼医篁ｅ - stamp_img[reach] = rightAC - message = "違鴻帥潟GET障!" # Top message - else - randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 - stamp_st[randam_number] += 1 # 吾違1莇潟 - stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ - message = "違鴻帥潟GET障!" # Top message - end - end - ## - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - - ## - - # Convert to string # - - stamp_st_string = stamp_st.join - stamp_img_string = stamp_img.join(",") - - ## - - sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" - db.execute(sql_update, stamp_st_string, stamp_img_string, id) -end - -###### - -########## - -##### HTML ##### -print' - - - - - - - -' -### TOP ### - -sql_rank = 'select rank from main where id=?;' -rank = db.execute(sql_rank, id).flatten(2)[0].to_i - -print' -
    -' -if rank > 0 - print'
    ' -else - print'
    ' -end -# - 潟眼鴻若帥劫 - # - -if rank > 0 - printf("

    с障!!
    %d膈 綵吾障!!

    ", rank) - # print'

    初吾腟篋障綣膓鴻帥罐純推!!

    ' -end - -# End of top -print' -
    -' -# Top message # - -bc = bingo.to_i - last_bingo.to_i - -if bc > 0 - message += '
    с!' + bc.to_s - message += '潟贋障!!
    ' -end - -if rank > 0 - printf("

    %sс障! %d膈 綵吾障!!

    ", message, rank) -else - printf("

    %s

    ", message) -end - -## - -###### - -### CENTER ### -print' -
    - -' -for i in 0..2 - print'' - 3.times do |n| - if stamp_st[3*i+n].to_i > 0 - printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) - else - print"\n" - end - end - print'' -end -# End of center -print' -
    \"stamped\"%d
    -
    -' -###### - -### BOTTOM ### -print' -
    -' -# - RPG茵腓 - # - -name = user_data[0][2] -job = user_data[0][3] -sex = user_data[0][4] -exp = user_data[0][5] - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -## UPDATE EXP ## - -update_exp = 'UPDATE main SET exp=? WHERE id=?;' -db.execute(update_exp, charST[2], id) - -#### - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -printf(" - -
    - -
    -
    -ID:%04d
    -NAME:%s
    -Lv: %d / ＜Lv: %d
    -綵悟∈: %3.3f \% -
    -", charST[0], id-1, name, charST[2],sumexp , charST[1]) - -# End of bottom -print'
    ' -# End of outflam -print'
    ' -###### - -print' - - -' -########## diff -r 2e332b1abf94 -r d2d89793be14 minato2014/account.html --- a/minato2014/account.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,63 +0,0 @@ -<<<<<<< local - - - - -吟ゃ括泣潟 - - - - - -

    帥鴻帥潟主脂蚊若

    -

    ュ

    -
    -

    :(若)

    -

    :

    -

    綛岩撮:

    -

    肴昆:

    -

    吾с:

    -

    (傑キ筝荐吾ст吾с)

    - -
    - - -======= - - - -鴻睡脂蚊若 - - - - - -

    -

    鴻帥潟2014726()＜障腟篋眼障 -緇≦婚障!

    -

    - - - ->>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 minato2014/account2.html --- a/minato2014/account2.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,42 +0,0 @@ - - - -鴻睡脂蚊若 - - - - -

    鴻睡脂蚊若

    -

    ュ

    -
    -

    :(若)

    -

    :

    -

    綛岩撮:

    -

    肴昆:

    -

    吾с:

    -

    (絅純傑キ吾с)

    -
    -篁ｆ帥鴻 -
    - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/accountcheck.rb --- a/minato2014/accountcheck.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,105 +0,0 @@ -<<<<<<< local -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -#require 'sqlite3' -require 'cgi' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -#db = SQLite3::Database.new("sql/stump.sq3") - -print("Content-type: text/html; charset=UTF-8 \n\n") - -name = c["name"] -job = c["job"] -sex = c["sex"] - -print' - - - - -Registering Account - - -' -printf' -

    脂蚊絎篋障筝荐潟鴻帥潟若若ユ筝!

    -

    >> Let\'s go to Stamp Rally <<

    -',name,job,sex -print' -

    -

    >> ≪潟脂牙脂≪祉 <<

    -' -print'' -======= -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require './magic.rb' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/stamp.sq3") - -begin - result = db.execute("select * from main;") - max = "select max(id) from main;" -rescue - db.execute("create table main(id INTEGER PRIMARY KEY AUTOINCREMENT,name,sex,age,aria,job,stamp_status,stamp_img,exp INTEGER,rank INTEGER,magic)"); - db.execute("insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values('','у','綛岩撮','篏','傑キ','鴻帥潟倶','鴻帥潟糸','','綵檎篏','篋榊∈茯')"); - result = db.execute("select * from main;") - max = "select max(id) from main;" -end - -id = c.cookies["id"][0] -c_magic = c.cookies["magic"][0] -name = c["name"] -job = c["job"] -age = c["age"] -sex = c["sex"] -aria = c["aria"] - -begin -sel = 'select * from main where id=? AND magic=?' -h = db.execute(sel, id.to_i, c_magic.to_i) -rescue -h == [] -end - -if id != nil && h != [] -update = 'update main set name=?, job=?, age=?, sex=?, aria=? where id=? and magic=?' -mg = c_magic -db.execute(update, name, job, age, sex, aria, id.to_i, mg.to_i) -else -code = magic() -id = db.execute(max).flatten(2)[0].to_i + 1 -mg = code[id] -sql = "insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values (?,?,?,?,?,?,?,?,?,?);" -db.execute(sql,name,sex,age,aria,job,'000010000','n,n,n,n,kamo,n,n,n,n',0,0,mg); # -end - -expires = "Sun, 27 Jul 2014 00:00:00 GMT" - -printf("Content-type: text/html; charset=UTF-8 -Set-Cookie:id=%s ;expires=%s -Set-Cookie:magic=%s;expires=%s\n\n",id,expires,mg.to_s,expires) - -print' - - -Registering Account - -' -printf' -

    脂蚊絎篋障

    -

    ID%04dс初吾ID茵障

    -

    筝荐潟鴻帥潟若紮筝!

    -

    >> Let\'s go to Stamp Rally <<

    -

    - - -',id.to_i-1 ->>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/.htaccess --- a/minato2014/admin/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -AddHandler cgi-script .rb -AddType "text/html; charset=utf-8" .rb -AddType "text/html; charset=utf-8" .html -Options +ExecCGI -AuthUserFile /home/www/skip/minato2014/admin/.htpasswd -AuthGroupFile /dev/null -AuthName "認証サイト" -AuthType Basic -require valid-user diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/.htpasswd --- a/minato2014/admin/.htpasswd Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -fujix:fu5QjLTqbHEaQ -shokok:9tQUls7fXzqMA -Murakami:7Y005Wtya7Ogw diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/.htaccess --- a/minato2014/admin/backup/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -AddHandler cgi-script .rb -AddType "text/html; charset=utf-8" .rb -AddType "text/html; charset=utf-8" .html -Options +ExecCGI -AuthUserFile /home/www/skip/minato2014/admin/.htpasswd -AuthGroupFile /dev/null -AuthName "認証サイト" -AuthType Basic -require valid-user diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/.htaccess2 --- a/minato2014/admin/backup/.htaccess2 Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -AddHandler cgi-script .rb -AddType "text/html; charset=utf-8" .rb -AddType "text/html; charset=utf-8" .html -Options +ExecCGI -AuthUserFile /home/irhome/c112/c112124/public_html/web/minato2014/admin/.htpasswd -AuthGroupFile /dev/null -AuthName "認証サイト" -AuthType Basic -require valid-user diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/.htpasswd --- a/minato2014/admin/backup/.htpasswd Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -fujix:fu5QjLTqbHEaQ -shokok:9tQUls7fXzqMA -Murakami:7Y005Wtya7Ogw diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/chusen.html --- a/minato2014/admin/backup/chusen.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26 +0,0 @@ - - - -Database delete - - - - - -

    初悟若

    -

    絎茵若帥若鴻吾紊障

    -

    絎茵羈

    -
    -

    初吾茵障?
    - - -

    - - -
    - -
    c111126@g.koeki-u.ac.jp
    - - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/chusen.rb --- a/minato2014/admin/backup/chusen.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,52 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("../sql/stamp.sq3") - -check = c['check'] -if check == "OK" - begin - result = db.execute("select id,exp,rank from main;") - rescue - exit - end - all = Array.new - for id,lv,rank in result - if id == "ID" || lv == 0 || rank.to_i != 0 - next - end - lv.to_i.times do - all << id - end - end - - tousen = Array.new(0) - atari1 = rand(all.length) - tousen << all[atari1] - all.delete_if {|x| x == tousen[0]} - - sql = "update main set rank = 1 where id = ?;" - db.execute(sql,tousen[0]) - - sql = "update main set rank = 2 where id = ?;" - while tousen.length < 4 - srand - atari2 = rand(all.length) - hoge = all[atari2] - tousen << all[atari2] - all.delete_if {|x| x == hoge} - db.execute(sql,hoge) - end - - i=0 - printf("Content-type: text/html; charset=UTF-8\n\n") - - printf("

    1膈ID%04d!с!

    \n",tousen[i].to_i) - printf("

    2膈ID%04d%04d%04d!с!

    \n",tousen[i+=1].to_i,tousen[i+=1].to_i,tousen[i+=1].to_i) -else - print"

    初吾障茵障

    " -end diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/delete.html --- a/minato2014/admin/backup/delete.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26 +0,0 @@ - - - -Database delete - - - - - -

    若帥若号ｻ

    -

    絎茵若帥若鴻ゃ障

    -

    絎茵羈

    -
    -

    綵羔障?
    - - -

    - - -
    - -
    c111126@g.koeki-u.ac.jp
    - - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/delete.rb --- a/minato2014/admin/backup/delete.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,36 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' - -db = SQLite3::Database.new("../sql/stamp.sq3") - -c = CGI.new(:accept_charaset => "UTF-8") -check = c['check'] -if check == "OK" - begin - db.execute("drop table main;") - db.extcute("drop table logs;") - text = "

    若帥ゃ障

    " - rescue - text = "

    若帥障

    " - end -else - text = "若帥ゃ障" -end - -printf("Content-type: text/html; charset=UTF-8\n\n") - -printf' - - -Delete table - - - -%s -

    若翠画Η若吾

    -

    - -',text diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/etsuran.rb --- a/minato2014/admin/backup/etsuran.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -#!/usr/bin/env ruby -#coding:utf-8 - -require'cgi' -require'sqlite3' - -db = SQLite3::Database.new("../sql/stamp.sq3") - -c = CGI.new(:accept_charaset => "UTF-8") - -flag = 0 -text = "

    脂画筝荀с茵腓冴障

    \n" -begin - result = db.execute("select * from main;") -rescue - flag = 1 - text = "

    若帥障

    \n" -end - -printf("Content-type: text/html; charset=UTF-8\n\n") - -printf' - - -Delete table - - - -

    若翠画Η若

    ' -puts text -if flag == 1 -else - print"\n" - result.each do |line| - printf("\n",line[0],line[1],line[2],line[3],line[4],line[8],line[9]) - end - print"
    %s%s%s%s%s%s%s
    " -end - -print'' diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/backup/test.html --- a/minato2014/admin/backup/test.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,33 +0,0 @@ - - - - - - - - - -

    紊ц冴

    -

    - - - - - - -
    若吟弱у綛岩撮贋 - 潟篏
    -

    - -
    c112124@h.koeki-u.ac.jp
    - - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/chusen.html --- a/minato2014/admin/chusen.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,24 +0,0 @@ - - - -Database delete - - - - - -

    初悟若

    -

    絎茵若帥若鴻吾紊障

    -

    絎茵羈

    -
    -

    初吾茵障?
    - - -

    - - -
    - - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/chusen.rb --- a/minato2014/admin/chusen.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,85 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require 'date' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("../sql/stamp.sq3") - -add = ENV["REMOTE_ADDR"] - -if /^(172\.19\.5\.|172\.17\.54\.|172\.21\.90\.)|118.21.142.107|202.214.125.107/ =~ add -check = c['check'] - -printf("Content-type: text/html; charset=UTF-8\n\n") - -sum = 'SELECT SUM(rank) FROM main WHERE NOT id=1;' -rank_sum = db.execute(sum).flatten(2)[0].to_i - -t = Time.now -expires = Time.local(2014, 7, 26, 11, 27) -expires2 = Time.local(2014, 7, 26, 13, 27) -if t > expires && rank_sum == 0 -elsif t > expires2 && rank_sum == 7 -else - check = "" - puts check -end - -if check == "OK" - begin - result = db.execute("select id,exp,rank from main;") - rescue - exit - end - all = Array.new - for id,lv,rank in result - if id == 1 || lv == 0 || rank.to_i != 0 - next - end - lv.to_i.times do - all << id - end - end - - tousen = Array.new(0) - atari1 = rand(all.length) - tousen << all[atari1] - all.delete_if {|x| x == tousen[0]} - - sql = "update main set rank = 1 where id = ?;" - db.execute(sql,tousen[0]) - - sql = "update main set rank = 2 where id = ?;" - while tousen.length < 4 - srand - atari2 = rand(all.length) - hoge = all[atari2] - tousen << all[atari2] - all.delete_if {|x| x == hoge} - db.execute(sql,hoge) - end - - i=0 - - printf("

    1膈ID%04d!с!

    \n",tousen[i].to_i-1) - printf("

    2膈ID%04d%04d%04d!с!

    \n",tousen[i+=1].to_i-1,tousen[i+=1].to_i-1,tousen[i+=1].to_i-1) -else - print"

    初吾障茵障

    \n" -end -else - printf("Content-type: text/html; charset=UTF-8\n\n") - - printf' - - -Delete table - - - -

    膊∞若吾画Ηс障

    ' -end -print'' diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/delete.html --- a/minato2014/admin/delete.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26 +0,0 @@ - - - -Database delete - - - - - -

    若帥若号ｻ

    -

    絎茵若帥若鴻ゃ障

    -

    絎茵羈

    -
    -

    綵羔障?
    - - -

    - - -
    - -
    c111126@g.koeki-u.ac.jp
    - - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/delete.rb --- a/minato2014/admin/delete.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,51 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' - -db = SQLite3::Database.new("../sql/stamp.sq3") -c = CGI.new(:accept_charaset => "UTF-8") - -add = ENV["REMOTE_ADDR"] - -printf("Content-type: text/html; charset=UTF-8\n\n") - -if /^(172\.19\.5\.|172\.17\.54\.|172\.21\.90\.)|118.21.142.107|202.214.125.107/ =~ add -check = c['check'] -if check == "OK" - begin - db.execute("drop table main;") - db.extcute("drop table logs;") - text = "

    若帥ゃ障

    " - rescue - text = "

    若帥障

    " - end -else - text = "若帥ゃ障" -end - -printf' - - -Delete table - - - -%s -

    若翠画Η若吾

    -

    - -',text - -else - printf' - - -Delete table - - - -

    膊∞若吾画Ηс障

    ' -end diff -r 2e332b1abf94 -r d2d89793be14 minato2014/admin/etsuran.rb --- a/minato2014/admin/etsuran.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,82 +0,0 @@ -#!/usr/bin/env ruby -#coding:utf-8 - -require'cgi' -require'sqlite3' - -db = SQLite3::Database.new("../sql/stamp.sq3") - -c = CGI.new(:accept_charaset => "UTF-8") - -add = ENV["REMOTE_ADDR"] - -#if /^(172\.19\.5\.|172\.17\.54\.|172\.21\.90\.)|118.21.142.107|202.214.125.107/# =~ add -#rank = c["rank"] -flag = 0 -text = "

    脂画筝荀с茵腓冴障

    \n" -begin - # if rank == "y" - # rank_reset = 'UPDATE main SET rank=0 WHERE NOT id=1;' - # db.execute(rank_reset) - # end - result = db.execute("select * from main;") - log = 'select * from logs;' - logs = db.execute(log) -rescue - flag = 1 - text = "

    若帥障

    \n" -end - -#rank = "n" - -printf("Content-type: text/html; charset=UTF-8\n\n") - -printf' - - - -Delete table - - -

    若翠画Η若

    ' -puts text -if flag == 1 -else - print"\n" - result.each do |line| - printf("\n",line[0].to_i-1,line[1],line[2],line[3],line[4],line[8],line[9]) - end - print'
    %04d%s%s%s%s%s%s
    ' - # print'

    - #rank祉障?
    - #NO / - #YES
    - # - #

    - #' -end - -print'

    違画Η

    ' -if flag == 1 -else - print'' - logs.each do |line| - printf("\n",line[0],line[1].to_i-1,line[2],line[3]) - end - print"
    %s%04d%s%s
    " -end -#else -#printf("Content-type: text/html; charset=UTF-8\n\n") - -#printf' -# -# -#Delete table -# -# -#

    膊∞若吾画Ηс障

    ' -#end - - -print'' diff -r 2e332b1abf94 -r d2d89793be14 minato2014/bacup/Bingo.css --- a/minato2014/bacup/Bingo.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,77 +0,0 @@ -html,body { - width: 100%; - height: 100%; -} -div.outflam{ - width: 800px; - height: 1240px; - margin-left: auto; - margin-right: auto; - padding: 0 auto; - } - -div.top{ - background: #136cf9; - background-image: url("png/top.png"); - background-repeat: no-repeat; - border: thin solid #136cf9; - width: 100%; - height: 180px; - margin-top:0 auto; - margin-bottom:0 auto; - margin-left: auto; - margin-right: auto; - -} - -p { - margin:0; - padding-left: 5%; - font-weight: 900; - height: 5%; - width: 95%; - background: #136cf9; - border: thin solid #136cf9; -} - -div.center{ - border: thin solid #1d38ff; - background: #1d38ff; - width: 100%; - height: 45%; - margin-left: auto; - margin-right: auto; -} - -table { - background: white; - margin-left: auto; - margin-right: auto; - margin-top: 1%; - margin-bottom: auto; -} - -div.bottom{ - background: #45e2fe; - background-image: url("png/bottom.png"); - background-repeat: no-repeat; - background-position: center bottom; - border:thin solid #45e2fe; - width: 100%; - height: 150px; - margin-left: auto; - margin-right: auto; -} - -div.bottom img { - float: left; - margin-left: 15%; -} - -div.charSTATUS { - clear: right; - margin-top: 7%; - background: rgba(255,255,255,0.75); - width: 70%; -} - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/bacup/Bingo.rb --- a/minato2014/bacup/Bingo.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,442 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require 'date' -require './sub.rb' -require 'net/http' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/stamp.sq3") - -id = c.cookies["id"][0].to_i -magic = c.cookies["magic"][0].to_i -err = 0 # 筝罩ｃс域ゃ -sidesize = 3 -message = "ｃ茵障!
    " # 潟雁鴻 - -print("Content-type: text/html; charset=UTF-8 \n\n") - -### DROP TABLE ### - -getcom = ARGV[0].to_s -drop = 'DROP TABLE main ;' -if getcom == 'ududlrllba' - db.execute(drop) -end - -###### - -### DELETE TABLE ### - -del = 'DELETE FROM main WHERE id=?' -if getcom == 'ududlrlrba' - db.execute(del, id) -end - -###### - -##### CHECKING UID ##### - -sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" -begin - user_data = db.execute(sql, id, magic) -rescue - user_data = [] -end - -if user_data == [] # 違ゃ潟(-1) - err -= 1 -end - -### LOGIN ERROR HTML ### - -if err == -1 - print' - - - - - - - -' -print' -

    違ゃ潟紊掩障

    -

    -≪潟脂蚊若吾御･膓筝
    -* 3腱腟ｃ腱糸翫＜腱糸筝 -

    - - -' - exit -end - -###### - -########## - -##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### - -# stamp status -stamp_st = user_data[0][0] -stamp_st = stamp_st.split(//) # 筝絖ゅ -stamp_st = stamp_st.map {|s| s.to_i} # 絖医 - -# stamp img -stamp_img = user_data[0][1] -stamp_img = stamp_img.split(",") # 絖","у阪ｃ - -########## - -##### STAMPPING ##### - -### Making randam number ### - -def taiou(sidesize) - srand(123456789) - stamp = Hash.new("n") - stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] - (sidesize**2).times do |n| - stamp[rand(10000000)] = stamp_name[n] - end - stamp -end - -###### - -##### Checking bingo method ##### - -def bingocheck(start, sidesize, stepon, stamp, decision, bingo) - nbox = [] - setbox = Hash.new - if sidesize == stepon - x = sidesize - else - x = 1 - end - x.times do |m| - start.step(sidesize*sidesize - 1, stepon) do |n| - nbox << n + m - if nbox.length == sidesize - dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) - for i in nbox - if stamp[i] == 0 - dbox << i - end - end - # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 - if dbox.length == decision - setbox[dbox] = nbox - bingo << setbox - setbox = Hash.new - nbox = [] - else - nbox = [] - end - end - end - end -end -# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] -########## - -bingo = # 憜潟贋 - -### Checking Access Cord(AC) ### - -getAC = ARGV[0].to_i # URL?篁ラ綣違緇 -rightAC = taiou(sidesize) # taiouхAC激 -#p rightAC -rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n - -##### ACCESS LOG ##### -t = Time.now -time = (t.hour * 3600) + (t.min * 60) + t.sec - -## Checking sql_master table. If sqlite_master don't have tablename, it create. - -sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" -check_master = db.execute(sql_master) -sql_logs = 'CREATE TABLE logs( -id INTEGER PRIMARY KEY AUTOINCREMENT, -uid INTEGER, -ac TEXT, -time INTEGER); -' -if check_master == [] - db.execute(sql_logs) -end - -########## - -begin - get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 - log_check = db.execute(get_log, id) -rescue - print'GETTING LOG ERROR!' -end -begin - log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' - db.execute(log, id, rightAC, time) -rescue - print'INSERT LOG ERROR!' -end -# /* memo: 綺激鴻篏鴻帥潟若祉 */ # - -########## - -### 潟眼ゃ潟ゅ(decision = 0) ### -bingo = [] -# 罔 -bingocheck(0, sidesize, 1, stamp_st, 0, bingo) -# 膰 -bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) -# 綏 -bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) -# 勄 -bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) -####### - -bingo = bingo.length # 潟眼 -last_bingo = bingo - -if rightAC != "n" # rightAC罩ｃ - - ### Update Stamp_status And Stamp_img ### - - # Replacing Image # - - index_st = [] - stamp_st.length.times { |c| - if stamp_st[c] == 0 - index_st << c - end - } - - ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] - reach = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 1, reach) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) - ####### - - begin - reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 - rescue - reach = [] - end - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - # Updating stamp_st # - if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ - if stamp_st[stamp_img.index(rightAC)] < 9 - stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 - message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" - else - message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" - end - else - if reach != [] && bingo == 0 # 潟眼綽3у - stamp_st[reach] += 1# 潟眼医篁ｅ - stamp_img[reach] = rightAC - message = "違鴻帥潟GET障!" # Top message - else - randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 - stamp_st[randam_number] += 1 # 吾違1莇潟 - stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ - message = "違鴻帥潟GET障!" # Top message - end - end - ## - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - - ## - - # Convert to string # - - stamp_st_string = stamp_st.join - stamp_img_string = stamp_img.join(",") - - ## - - sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" - db.execute(sql_update, stamp_st_string, stamp_img_string, id) -end - -###### - -########## - -##### HTML ##### -print' - - - - - - - -' -### TOP ### - -sql_rank = 'select rank from main where id=?;' -rank = db.execute(sql_rank, id).flatten(2)[0].to_i - -print' -
    -' -if rank > 0 - print'
    ' -else - print'
    ' -end -# - 潟眼鴻若帥劫 - # - -if rank > 0 - printf("

    с障!!
    %d膈 綵吾障!!

    ", rank) - # print'

    初吾腟篋障綣膓鴻帥罐純推!!

    ' -end - -# End of top -print' -
    -' -# Top message # - -bc = bingo.to_i - last_bingo.to_i - -if bc > 0 - message += '
    с!' + bc.to_s - message += '潟贋障!!
    ' -end - -printf("

    %s

    ",message) - -## - -###### - -### CENTER ### -print' -
    - -' -for i in 0..2 - print'' - 3.times do |n| - if stamp_st[3*i+n].to_i > 0 - printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) - else - print"\n" - end - end - print'' -end -# End of center -print' -
    \"stamped\"%d
    -
    -' -###### - -### BOTTOM ### -print' -
    -' -# - RPG茵腓 - # - -name = user_data[0][2] -job = user_data[0][3] -sex = user_data[0][4] -exp = user_data[0][5] - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -## UPDATE EXP ## - -update_exp = 'UPDATE main SET exp=? WHERE id=?;' -db.execute(update_exp, charST[2], id) - -#### - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -printf(" - -
    - -
    -
    -ID:%04d
    -NAME:%s
    -Lv: %d / ＜Lv: %d
    -綵悟∈: %3.3f \% -
    -", charST[0], id-1, name, charST[2],sumexp , charST[1]) - -# End of bottom -print'
    ' -# End of outflam -print'
    ' -###### - -print' - - -' -########## diff -r 2e332b1abf94 -r d2d89793be14 minato2014/bacup/Bingo1.rb --- a/minato2014/bacup/Bingo1.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,446 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require 'date' -require './sub.rb' -require 'net/http' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/stamp.sq3") - -id = c.cookies["id"][0].to_i -magic = c.cookies["magic"][0].to_i -err = 0 # 筝罩ｃс域ゃ -sidesize = 3 -message = "ｃ茵障!
    " # 潟雁鴻 - -print("Content-type: text/html; charset=UTF-8 \n\n") - -### DROP TABLE ### - -getcom = ARGV[0].to_s -drop = 'DROP TABLE main ;' -if getcom == 'ududlrllba' - db.execute(drop) -end - -###### - -### DELETE TABLE ### - -del = 'DELETE FROM main WHERE id=?' -if getcom == 'ududlrlrba' - db.execute(del, id) -end - -###### - -##### CHECKING UID ##### - -sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" -begin - user_data = db.execute(sql, id, magic) -rescue - user_data = [] -end - -if user_data == [] # 違ゃ潟(-1) - err -= 1 -end - -### LOGIN ERROR HTML ### - -if err == -1 - print' - - - - - - - -' -print' -

    違ゃ潟紊掩障

    -

    -≪潟脂蚊若吾御･膓筝
    -* 3腱腟ｃ腱糸翫＜腱糸筝 -

    - - -' - exit -end - -###### - -########## - -##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### - -# stamp status -stamp_st = user_data[0][0] -stamp_st = stamp_st.split(//) # 筝絖ゅ -stamp_st = stamp_st.map {|s| s.to_i} # 絖医 - -# stamp img -stamp_img = user_data[0][1] -stamp_img = stamp_img.split(",") # 絖","у阪ｃ - -########## - -##### STAMPPING ##### - -### Making randam number ### - -def taiou(sidesize) - srand(256788901) - stamp = Hash.new("n") - stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] - (sidesize**2).times do |n| - stamp[rand(10000000)] = stamp_name[n] - end - stamp -end - -###### - -##### Checking bingo method ##### - -def bingocheck(start, sidesize, stepon, stamp, decision, bingo) - nbox = [] - setbox = Hash.new - if sidesize == stepon - x = sidesize - else - x = 1 - end - x.times do |m| - start.step(sidesize*sidesize - 1, stepon) do |n| - nbox << n + m - if nbox.length == sidesize - dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) - for i in nbox - if stamp[i] == 0 - dbox << i - end - end - # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 - if dbox.length == decision - setbox[dbox] = nbox - bingo << setbox - setbox = Hash.new - nbox = [] - else - nbox = [] - end - end - end - end -end -# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] -########## - -bingo = # 憜潟贋 - -### Checking Access Cord(AC) ### - -getAC = ARGV[0].to_i # URL?篁ラ綣違緇 -rightAC = taiou(sidesize) # taiouхAC激 -#p rightAC -rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n - -##### ACCESS LOG ##### -t = Time.now -time = (t.hour * 3600) + (t.min * 60) + t.sec - -## Checking sql_master table. If sqlite_master don't have tablename, it create. - -sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" -check_master = db.execute(sql_master) -sql_logs = 'CREATE TABLE logs( -id INTEGER PRIMARY KEY AUTOINCREMENT, -uid INTEGER, -ac TEXT, -time INTEGER); -' -if check_master == [] - db.execute(sql_logs) -end - -########## - -begin - get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 - log_check = db.execute(get_log, id) -rescue - print'GETTING LOG ERROR!' -end -begin - log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' - db.execute(log, id, rightAC, time) -rescue - print'INSERT LOG ERROR!' -end -# /* memo: 綺激鴻篏鴻帥潟若祉 */ # - -########## - -### 潟眼ゃ潟ゅ(decision = 0) ### -bingo = [] -# 罔 -bingocheck(0, sidesize, 1, stamp_st, 0, bingo) -# 膰 -bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) -# 綏 -bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) -# 勄 -bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) -####### - -bingo = bingo.length # 潟眼 -last_bingo = bingo - -if rightAC != "n" # rightAC罩ｃ - - ### Update Stamp_status And Stamp_img ### - - # Replacing Image # - - index_st = [] - stamp_st.length.times { |c| - if stamp_st[c] == 0 - index_st << c - end - } - - ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] - reach = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 1, reach) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) - ####### - - begin - reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 - rescue - reach = [] - end - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - # Updating stamp_st # - if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ - if stamp_st[stamp_img.index(rightAC)] < 9 - stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 - message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" - else - message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" - end - else - if reach != [] && bingo == 0 # 潟眼綽3у - stamp_st[reach] += 1# 潟眼医篁ｅ - stamp_img[reach] = rightAC - message = "違鴻帥潟GET障!" # Top message - else - randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 - stamp_st[randam_number] += 1 # 吾違1莇潟 - stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ - message = "違鴻帥潟GET障!" # Top message - end - end - ## - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - - ## - - # Convert to string # - - stamp_st_string = stamp_st.join - stamp_img_string = stamp_img.join(",") - - ## - - sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" - db.execute(sql_update, stamp_st_string, stamp_img_string, id) -end - -###### - -########## - -##### HTML ##### -print' - - - - - - - -' -### TOP ### - -sql_rank = 'select rank from main where id=?;' -rank = db.execute(sql_rank, id).flatten(2)[0].to_i - -print' -
    -' -if rank > 0 - print'
    ' -else - print'
    ' -end -# - 潟眼鴻若帥劫 - # - -if rank > 0 - printf("

    с障!!
    %d膈 綵吾障!!

    ", rank) - # print'

    初吾腟篋障綣膓鴻帥罐純推!!

    ' -end - -# End of top -print' -
    -' -# Top message # - -bc = bingo.to_i - last_bingo.to_i - -if bc > 0 - message += '
    с!' + bc.to_s - message += '潟贋障!!
    ' -end - -if rank > 0 - printf("

    %sс障! %d膈 綵吾障!!

    ", message, rank) -else - printf("

    %s

    ", message) -end - -## - -###### - -### CENTER ### -print' -
    - -' -for i in 0..2 - print'' - 3.times do |n| - if stamp_st[3*i+n].to_i > 0 - printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) - else - print"\n" - end - end - print'' -end -# End of center -print' -
    \"stamped\"%d
    -
    -' -###### - -### BOTTOM ### -print' -
    -' -# - RPG茵腓 - # - -name = user_data[0][2] -job = user_data[0][3] -sex = user_data[0][4] -exp = user_data[0][5] - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -## UPDATE EXP ## - -update_exp = 'UPDATE main SET exp=? WHERE id=?;' -db.execute(update_exp, charST[2], id) - -#### - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -printf(" - -
    - -
    -
    -ID:%04d
    -NAME:%s
    -Lv: %d / ＜Lv: %d
    -綵悟∈: %3.3f \% -
    -", charST[0], id-1, name, charST[2],sumexp , charST[1]) - -# End of bottom -print'
    ' -# End of outflam -print'
    ' -###### - -print' - - -' -########## diff -r 2e332b1abf94 -r d2d89793be14 minato2014/bacup/Bingo2.rb --- a/minato2014/bacup/Bingo2.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,436 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require 'date' -require './sub.rb' -require 'net/http' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/stamp.sq3") - -id = c.cookies["id"][0].to_i -magic = c.cookies["magic"][0].to_i -err = 0 # 筝罩ｃс域ゃ -sidesize = 3 -message = "ｃ茵障!
    " # 潟雁鴻 - -print("Content-type: text/html; charset=UTF-8 \n\n") - -getcom = ARGV[0] - -### DELETE TABLE ### - -del = 'DELETE FROM main WHERE id=?' -if getcom == 'ududlrlrba' - db.execute(del, id) -end - -###### - -##### CHECKING UID ##### - -sql = "SELECT stamp_status, stamp_img, name, job, sex, exp FROM main WHERE id=? AND magic=?" -begin - user_data = db.execute(sql, id, magic) -rescue - user_data = [] -end - -if user_data == [] # 違ゃ潟(-1) - err -= 1 -end - -### LOGIN ERROR HTML ### - -if err == -1 - print' - - - - - - - -' -print' -

    違ゃ潟紊掩障

    -

    -≪潟脂蚊若吾御･膓筝
    -* 3腱腟ｃ腱糸翫＜腱糸筝 -

    - - -' - exit -end - -###### - -########## - -##### RE-ARRAYING STAMP_STATUS AND STAMP_IMG ##### - -# stamp status -stamp_st = user_data[0][0] -stamp_st = stamp_st.split(//) # 筝絖ゅ -stamp_st = stamp_st.map {|s| s.to_i} # 絖医 - -# stamp img -stamp_img = user_data[0][1] -stamp_img = stamp_img.split(",") # 絖","у阪ｃ - -########## - -##### STAMPPING ##### - -### Making randam number ### - -def taiou(sidesize) - srand(256788901) - stamp = Hash.new("n") - stamp_name = ["kamo", "kite", "mame", "mo2usa", "inuwasi", "hanabu", "be", "UMIMARU", "pero"] - (sidesize**2).times do |n| - stamp[rand(10000000)] = stamp_name[n] - end - stamp -end - -###### - -##### Checking bingo method ##### - -def bingocheck(start, sidesize, stepon, stamp, decision, bingo) - nbox = [] - setbox = Hash.new - if sidesize == stepon - x = sidesize - else - x = 1 - end - x.times do |m| - start.step(sidesize*sidesize - 1, stepon) do |n| - nbox << n + m - if nbox.length == sidesize - dbox = Array.new(0) # next bingo or reach numbers(bingoed -> nothing) - for i in nbox - if stamp[i] == 0 - dbox << i - end - end - # sidesizedecisionゃс潟眼罨＜潟眼若decision0,1,2ц；憗 - if dbox.length == decision - setbox[dbox] = nbox - bingo << setbox - setbox = Hash.new - nbox = [] - else - nbox = [] - end - end - end - end -end -# bingo[{[潟眼障若綽荀] => [潟眼障若ゃ潟綵∽]}] -########## - -### Checking Access Cord(AC) ### - -getAC = ARGV[0].to_i # URL?篁ラ綣違緇 -rightAC = taiou(sidesize) # taiouхAC激 -#p rightAC -rightAC = rightAC[getAC] # AC罩ｃ違鴻帥潟ャ違翫n - -##### ACCESS LOG ##### -t = Time.now -time = (t.hour * 3600) + (t.min * 60) + t.sec - -## Checking sql_master table. If sqlite_master don't have tablename, it create. - -sql_master = "SELECT name FROM sqlite_master WHERE name='logs';" -check_master = db.execute(sql_master) -sql_logs = 'CREATE TABLE logs( -id INTEGER PRIMARY KEY AUTOINCREMENT, -uid INTEGER, -ac TEXT, -time INTEGER); -' -if check_master == [] - db.execute(sql_logs) -end - -########## - -begin - get_log = 'SELECT ac, time FROM logs WHERE uid=(SELECT MAX(id) FROM logs WHERE uid=?);' # 若吟若違井宴緇 - log_check = db.execute(get_log, id) -rescue - print'GETTING LOG ERROR!' -end -begin - log = 'INSERT INTO logs(uid, ac, time) VALUES(?, ?, ?)' - db.execute(log, id, rightAC, time) -rescue - print'INSERT LOG ERROR!' -end -# /* memo: 綺激鴻篏鴻帥潟若祉 */ # - -########## - -### 潟眼ゃ潟ゅ(decision = 0) ### -bingo = [] -# 罔 -bingocheck(0, sidesize, 1, stamp_st, 0, bingo) -# 膰 -bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) -# 綏 -bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) -# 勄 -bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) -####### - -bingo = bingo.length # 潟眼 -last_bingo = bingo - -if rightAC != "n" # rightAC罩ｃ - - ### Update Stamp_status And Stamp_img ### - - # Replacing Image # - - index_st = [] - stamp_st.length.times { |c| - if stamp_st[c] == 0 - index_st << c - end - } - - ### 若鐚decision = 1鐚# [{[潟眼] => [若罕]}] - reach = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 1, reach) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 1, reach) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 1, reach) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 1, reach) - ####### - - begin - reach = reach[0].flatten(2)[0] # 潟眼垩炊遵 - rescue - reach = [] - end - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - # Updating stamp_st # - if stamp_img.include?(rightAC) == true # ≪鴻帥潟ャｃ - if stamp_st[stamp_img.index(rightAC)] < 9 - stamp_st[stamp_img.index(rightAC)] += 1 # 絲上鴻帥潟篏臀1莇潟 - message = "鴻帥潟潟1紜障!(鴻帥潟潟9筝с)" - else - message="鴻帥潟潟MAX!!(祉篁ヤ鴻帥潟潟紜障)" - end - else - if reach != [] && bingo == 0 # 潟眼綽3у - stamp_st[reach] += 1# 潟眼医篁ｅ - stamp_img[reach] = rightAC - message = "違鴻帥潟GET障!" # Top message - else - randam_number = index_st[rand(index_st.length)] # 鴻帥潟ャｃ潟蚊ら吾 - stamp_st[randam_number] += 1 # 吾違1莇潟 - stamp_img[randam_number] = rightAC # stamp_ststamp_img鴻帥潟篁ｅ - message = "違鴻帥潟GET障!" # Top message - end - end - ## - - ### 潟眼ゃ潟ゅ(decision = 0) ### - bingo = [] - # 罔 - bingocheck(0, sidesize, 1, stamp_st, 0, bingo) - # 膰 - bingocheck(0, sidesize, sidesize, stamp_st, 0, bingo) - # 綏 - bingocheck(0, sidesize, sidesize+1, stamp_st, 0, bingo) - # 勄 - bingocheck(sidesize-1, sidesize, sidesize-1, stamp_st, 0, bingo) - ####### - - bingo = bingo.length # 潟眼 - - - ## - - # Convert to string # - - stamp_st_string = stamp_st.join - stamp_img_string = stamp_img.join(",") - - ## - - sql_update = "UPDATE main SET stamp_status=?, stamp_img=? WHERE id=?;" - db.execute(sql_update, stamp_st_string, stamp_img_string, id) -end - -###### - -########## - -##### HTML ##### -print' - - - - - - - -' -### TOP ### - -sql_rank = 'select rank from main where id=?;' -rank = db.execute(sql_rank, id).flatten(2)[0].to_i - -print' -
    -' -if rank > 0 - print'
    ' -else - print'
    ' -end -# - 潟眼鴻若帥劫 - # - -if rank > 0 - printf("

    с障!!
    %d膈 綵吾障!!

    ", rank) - # print'

    初吾腟篋障綣膓鴻帥罐純推!!

    ' -end - -# End of top -print' -
    -' -# Top message # - -bc = bingo.to_i - last_bingo.to_i - -if bc > 0 - message += '
    с!' + bc.to_s - message += '潟贋障!!
    ' -end - -if rank > 0 - printf("

    %sс障! %d膈 綵吾障!!

    ", message, rank) -else - printf("

    %s

    ", message) -end - -## - -###### - -### CENTER ### -print' -
    - -' -for i in 0..2 - print'' - 3.times do |n| - if stamp_st[3*i+n].to_i > 0 - printf("\n", stamp_img[3*i+n], stamp_st[3*i+n]) - else - print"\n" - end - end - print'' -end -# End of center -print' -
    \"stamped\"%d
    -
    -' -###### - -### BOTTOM ### -print' -
    -' -# - RPG茵腓 - # - -name = user_data[0][2] -job = user_data[0][3] -sex = user_data[0][4] -exp = user_data[0][5] - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -## UPDATE EXP ## - -update_exp = 'UPDATE main SET exp=? WHERE id=?;' -db.execute(update_exp, charST[2], id) - -#### - -## GETTING EXP SUM ## - -sum_sql = 'SELECT SUM(exp) FROM main WHERE rank=0;' -sumexp = db.execute(sum_sql).flatten(2)[0] - -#### - -stamp = stamp_st.inject(:+) # ゃ莇潟 - -charST = rpg(job, sex, stamp, bingo, sumexp) # 若吟若ｃ帥鴻若帥 - -printf(" - -
    - -
    -
    -ID:%04d
    -NAME:%s
    -Lv: %d / ＜Lv: %d
    -綵悟∈: %3.3f \% -
    -", charST[0], id-1, name, charST[2],sumexp , charST[1]) - -# End of bottom -print'
    ' -# End of outflam -print'
    ' -###### - -print' - - -' -########## diff -r 2e332b1abf94 -r d2d89793be14 minato2014/bacup/accountcheck.rb --- a/minato2014/bacup/accountcheck.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,55 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'cgi' -require './magic.rb' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/stamp.sq3") - -begin - result = db.execute("select * from main;") - max = "select max(id) from main;" -rescue - db.execute("create table main(id INTEGER PRIMARY KEY AUTOINCREMENT,name,sex,age,aria,job,stamp_status,stamp_img,exp INTEGER,rank INTEGER,magic)"); - db.execute("insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values('','у','綛岩撮','篏','傑キ','鴻帥潟倶','鴻帥潟糸','','綵檎篏','篋榊∈茯')"); - result = db.execute("select * from main;") - max = "select max(id) from main;" -end - -name = c["name"] -job = c["job"] -age = c["age"] -sex = c["sex"] -aria = c["aria"] - -code = magic() -#id = result.length -id = db.execute(max).flatten(2)[0].to_i + 1 -#printf("%04d",id) - -mg = code[id] - -sql = "insert into main(name,sex,age,aria,job,stamp_status,stamp_img,exp,rank,magic) values (?,?,?,?,?,?,?,?,?,?);" -db.execute(sql,name,sex,age,aria,job,'000010000','n,n,n,n,kamo,n,n,n,n',1,0,mg); # - -expires = "Sun, 27 Jul 2016 00:00:00 GMT" - -printf("Content-type: text/html; charset=UTF-8 -Set-Cookie:id=%s ;expires=%s -Set-Cookie:magic=%s;expires=%s\n\n",id,expires,mg.to_s,expires) - -print' - - -Registering Account - -' -print' -

    脂蚊絎篋障筝荐潟鴻帥潟若紮筝!

    -

    >> Let\'s go to Stamp Rally <<

    -

    - - -' diff -r 2e332b1abf94 -r d2d89793be14 minato2014/bingo.rb --- a/minato2014/bingo.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1 +0,0 @@ -Bingo.rb \ No newline at end of file diff -r 2e332b1abf94 -r d2d89793be14 minato2014/chirashi.pdf Binary file minato2014/chirashi.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/design.css --- a/minato2014/design.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1 +0,0 @@ -body{background-color: #E0FFFF;} diff -r 2e332b1abf94 -r d2d89793be14 minato2014/env.rb --- a/minato2014/env.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,23 +0,0 @@ -#!/usr/bin/env ruby -#coding:euc-jp - - - -print "Content-type: text/html\n\n" -print " - - 環境変数一覧 - - - - " - -ENV.each { |k,v| -# v = v.gsub(/\w/, "*") #サンプルのため非表示（この行を削除してください） - print "\n" -} - -print"
    環境変数一覧
    #{k}#{v}
    - - " - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/hoge.rb --- a/minato2014/hoge.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,43 +0,0 @@ -#!/usr/bin/env ruby -#coding:utf-8 - -require 'cgi' -require 'cgi/session' -require 'nkf' - -cgi = CGI.new(:accept_charset=>"UTF-8") -print("Content-type: text/html; charset=UTF-8\n\n") - -name = NKF.nkf('-w',ARGV[0]) -png = ARGV[1].to_s+ARGV[2].to_s -png = NKF.nkf('-w',png) -lv = 1 - -printf(<<_EOS_,"","","","","","","","","") - - - - - - -
    -

    鴻帥潟

    - - - - -
    %s%s%s
    %s%s%s
    %s%s%s
    -_EOS_ - -printf(<<_EOS_,name,png,lv) -
    -

    %s

    - -
    -
    -LV:%d -
    -
    - - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 minato2014/howto.html --- a/minato2014/howto.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,42 +0,0 @@ -<<<<<<< local - - - -sample how to play - - - - - -

    現在準備中 …
    under constuction …

    -

    - - - -======= - - - - -sample how to play - - - - - -

    絨若吾腱糸筝
    腱糸翫＜腱糸筝

    -

    - - - ->>>>>>> other diff -r 2e332b1abf94 -r d2d89793be14 minato2014/magic.rb --- a/minato2014/magic.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,13 +0,0 @@ -#!/usr/bin/env ruby -# -*- coding: utf-8 -*- - -def magic() - srand(123456789) - hoge = Array.new - while hoge.length < 100 - hoge << rand(1000000) - hoge.uniq! - end - return hoge -end - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/UMIMARU.png Binary file minato2014/png/UMIMARU.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/be.png Binary file minato2014/png/be.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/bottom.png Binary file minato2014/png/bottom.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/hanabu.png Binary file minato2014/png/hanabu.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/inuwasi.png Binary file minato2014/png/inuwasi.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/kamo.png Binary file minato2014/png/kamo.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/kite.png Binary file minato2014/png/kite.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/lotto.xcf Binary file minato2014/png/lotto.xcf has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB1.png Binary file minato2014/png/madousiB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB2.png Binary file minato2014/png/madousiB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB3.png Binary file minato2014/png/madousiB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB4.png Binary file minato2014/png/madousiB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB5.png Binary file minato2014/png/madousiB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB6.png Binary file minato2014/png/madousiB6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiB7.png Binary file minato2014/png/madousiB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG1.png Binary file minato2014/png/madousiG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG2.png Binary file minato2014/png/madousiG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG3.png Binary file minato2014/png/madousiG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG4.png Binary file minato2014/png/madousiG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG5.png Binary file minato2014/png/madousiG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG6.png Binary file minato2014/png/madousiG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/madousiG7.png Binary file minato2014/png/madousiG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/mame.png Binary file minato2014/png/mame.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/mo2usa.png Binary file minato2014/png/mo2usa.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/murakamibot.png Binary file minato2014/png/murakamibot.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/pero.png Binary file minato2014/png/pero.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB1.png Binary file minato2014/png/sensiB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB2.png Binary file minato2014/png/sensiB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB3.png Binary file minato2014/png/sensiB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB4.png Binary file minato2014/png/sensiB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB5.png Binary file minato2014/png/sensiB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB6.png Binary file minato2014/png/sensiB6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiB7.png Binary file minato2014/png/sensiB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG1.png Binary file minato2014/png/sensiG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG2.png Binary file minato2014/png/sensiG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG3.png Binary file minato2014/png/sensiG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG4.png Binary file minato2014/png/sensiG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG5.png Binary file minato2014/png/sensiG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG6.png Binary file minato2014/png/sensiG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/sensiG7.png Binary file minato2014/png/sensiG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefB1.png Binary file minato2014/png/thiefB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefB2.png Binary file minato2014/png/thiefB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefB3.png Binary file minato2014/png/thiefB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefB4.png Binary file minato2014/png/thiefB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefB5.png Binary file minato2014/png/thiefB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefB7.png Binary file minato2014/png/thiefB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG1.png Binary file minato2014/png/thiefG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG2.png Binary file minato2014/png/thiefG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG3.png Binary file minato2014/png/thiefG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG4.png Binary file minato2014/png/thiefG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG5.png Binary file minato2014/png/thiefG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG6.png Binary file minato2014/png/thiefG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/thiefG7.png Binary file minato2014/png/thiefG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/top.png Binary file minato2014/png/top.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB1.png Binary file minato2014/png/yumiB1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB2.png Binary file minato2014/png/yumiB2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB3.png Binary file minato2014/png/yumiB3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB4.png Binary file minato2014/png/yumiB4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB5.png Binary file minato2014/png/yumiB5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB6.png Binary file minato2014/png/yumiB6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiB7.png Binary file minato2014/png/yumiB7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG1.png Binary file minato2014/png/yumiG1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG2.png Binary file minato2014/png/yumiG2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG3.png Binary file minato2014/png/yumiG3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG4.png Binary file minato2014/png/yumiG4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG5.png Binary file minato2014/png/yumiG5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG6.png Binary file minato2014/png/yumiG6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/png/yumiG7.png Binary file minato2014/png/yumiG7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/pr/matsuri.css --- a/minato2014/pr/matsuri.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -strong{color:red} -div.main{width:900px;height:1080px;background:url("tirasiTate.png");padding-top:140px;padding-left:50px;background-repeat:no-repeat} -/* div.head{background:url("haikei.png")} */ -/* div.center{margin-left:40px;margin-top:180px;width:900px;}*/ -div.title{line-height:30px;text-shadow:yellow 5px 5px 4px} -div.title h2{color:blue;font-size:250%} -div.title h1{color:red;font-size:300%} -div.sensi{float:right;margin-right:200px;margin-top:-140px} -div.setsumei{margin-left:50px;margin-top:70px} -div.shosai{font-size:150%;float:right;margin-right:100px} -div.shohin1{margin-top:180px} -div.yajirushi{margin-left:150px} -div.shohin2{margin-left:240px;margin-top:-50px;border-width:medium;border-color:green;border-style:solid;width:500px;padding:1em} -div.shohin3{font-size:150%;margin-left:400px} -/* div.foot{background:url("haikei..png")} */ diff -r 2e332b1abf94 -r d2d89793be14 minato2014/pr/matsuri.html --- a/minato2014/pr/matsuri.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,47 +0,0 @@ - - -帥≪激鴻障ゃ罅 - - - - -
    -
    -
    -
    -
    -

    帥≪激鴻障ゃ

    -

    糸鴻帥潟

    -
    -
    - -
    -
    -

    QR潟若茯粋昭с鴻帥潟!!

    -
    -
    -

    荅潟

    -2014 -帥≪激鴻障ゃ
    ャ(医)     -

    -
    -

    莟
    綵鐚鐚鐚

    -
    -
    - -
    -
    -

    1膈 違1筝後 (2罕)

    -

    2膈 綛括亥у頑違 (6罕)

    -
    -
    -

    莖с峨鐚

    -
    -
    -
    -
    -
    - - diff -r 2e332b1abf94 -r d2d89793be14 minato2014/pr/sensi.png Binary file minato2014/pr/sensi.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/pr/tirasiTate.png Binary file minato2014/pr/tirasiTate.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/pr/yajirushi.jpg Binary file minato2014/pr/yajirushi.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/rain.png Binary file minato2014/rain.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/.htaccess --- a/minato2014/report/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1 +0,0 @@ -deny from all diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/atari.jpg Binary file minato2014/report/atari.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/atari.png Binary file minato2014/report/atari.png has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/minato.dvi Binary file minato2014/report/minato.dvi has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/minato.pdf Binary file minato2014/report/minato.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/minato.tex --- a/minato2014/report/minato.tex Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,169 +0,0 @@ -\documentclass[10pt]{jsarticle} -\addtolength{\topmargin}{-3cm} -\addtolength{\textheight}{4cm} -%\addtolength{\oddsidemargin}{-0.5cm} -%\addtolength{\evensidemargin}{-0.5cm} -\title{$B$_$J$H%*%"%7%9$^$D$j(B2014$BJs9p=q(B} -\author{$BElKL8x1WJ82JBg3X(B\\SKIP} -%\pagestyle{empty} -\usepackage[dvipdfmx]{graphicx} % required for `\includegraphics' (yatex added) -\begin{document} -%\thispagestyle{empty} -\twocolumn[ - \maketitle -] - - \section{$B%$%Y%s%H$NMM;R(B} - $BJ?@.(B26$BG/(B7$B7n(B26$BF|$K$_$J$H%*%"%7%9:WFb$G(BWeb$B%Z!<%8$GH/9T$5$l$k%9%?%s%WBf;f(B - $B$rMQ$$$?%9%?%s%W%i%j!<$G$"$k!V$f$k!y%9%?!W$,9T$o$l$?!#$^$?!"$3$N%$%Y%s(B - $B%H$G$O%9%?%s%W%i%j!<$HF1;~$K=8$a$?%9%?%s%W$G%S%s%4%2!<%`$b3Z$7$`$3$H$,(B - $B=PMh$k!#Bh0l2sL\$H$J$k:#2s$O(B38$B?M$N;22C$,$"$C$?!#(B - \begin{figure}[htbp] - \begin{center} - \includegraphics[bb=0 0 300 - 205,clip,width=\columnwidth]{uketsuke.jpg} - \caption{$B%$%Y%s%H$N@bL@(B} - \end{center} - \end{figure} - \begin{figure}[htbp] - \begin{center} - \includegraphics[bb=0 0 300 - 205,clip,width=\columnwidth]{winner.jpg} - \caption{$B0lEyEvA*JE@(B} - \begin{enumerate} - \item $B7W2h=i4|CJ3,$G$NBG$A9g$;$,IT==J,$G$"$j!"@kEA!&9-9p$N4|4V(B - $B$r==J,$K@_$1$k$3$H$,=PMh$J$+$C$?!#(B - \begin{description} - \item[$B2~A1J}K!(B]\mbox{}\\ $B7W2h=i4|CJ3,$+$i%$%Y%s%HEvF|$^$G(B - $B$r$7$C$+$j8+?x$($F!"Bg$^$+$J9TF0M=Dj!"%$%Y%s(B - $B%H$^$G$K2?$,I,MW$+$rM=$a%7%_%e%l!<%H$7$F$*$/!#(B - $B$^$?!"K\HVEvF|$N3+>l$G$N@kEA3hF0$K$*$$$FBg$-(B - $B$J4GHD$r;}$C$FJb$/!"L\N)$D3J9%$r$9$k$J$I%9%?(B - $B%s%W%i%j!<$r$7$F$$$k$H0lL\$G$o$+$k$h$&$J9)IW(B - $B$,$9$kI,MW$,$"$k!#(B - \end{description} - \item $B;vA0$N%G%P%C%0:n6H$,IT==J,$G!"EvF|$N%$%Y%s%H3+;O;~$K@5>o(B - $B$J>uBV$G;O$a$k$3$H$,=PMh$J$+$C$?!#(B - \begin{description} - \item[$B2~A1J}K!(B]\mbox{}\\ $B;vA0$N%G%P%C%0:n6H$N@:EY$r9b$a(B - $B$k$?$a!"%G%P%C%0:n6H$K==J,$J;~4V$r3NJ]$9$k!#(B - $BFC$K:#2s$OEPO?MQ%7%9%F%`$K4X$9$k%P%0$K$h$j3+(B - $B;O$,CY$l$?$N$G!"l9g%"%/%;%9%]%$%s%H$rMQ(B - $B$$$?<+F0l$K%A%e!<(B - $B%H%j%"%k$H$7$F9T$($k$h$&$J4JC1$J%3!<%9$r:n$j!"(B - $B%A%e!<%H%j%"%k$^$G$N?M$H$=$l0J>e$d$k?M$H$G6h(B - $BJL$7!"CJ3,E*$K>&IJ$dCjA*7tEy$N%"%I%P%s%F!<%8(B - $B$rM?$($k$3$H$G!"HO0O$NLdBj$r9nI~$7$D$D!"%f!<(B - $B%6!<$N%b%A%Y!<%7%g%s8~>e$K$D$J$2$k$3$H$,=PMh(B - $B$k!#(B - \end{description} - \item $B>&IJ$K$D$$$F(B - \begin{enumerate} - \item $B%$%Y%s%H$NBP>]$,$NCjA*$G$O>&IJ$r&IJ$K$9$k$Y$-$H$$$&0U8+$,$G$?!#(B\\ - (b)$B$K4X$7$F$O%$%Y%s%H$N8eH>$H$$$&$3$H$b$"$jl9g$O:FCjA*$r9T$&$J$I$NAl$G$N3hF0$NCf$G;22Ce(B&2$B?M(B &5.2\% \\ \hline - \end{tabular} - \end{table} - \begin{table}[htb] - \subsection{$BG/BeJL;22CEY(B} - \begin{tabular}{|c||r|r|} - \hline - $BG/Be(B&$B3MF@%]%$%s%HJ?6Q(B&$B3MF@%]%$%s%H9g7W(B \\ \hline \hline - 10$BBe(B&39.8pt &398pt \\ \hline - 20$BBe(B&14.5pt &87pt \\ \hline - 30$BBe(B&24.1pt &293pt \\ \hline - 40$BBe(B&26.5pt &106pt \\ \hline - 50$BBe(B&28.8pt &115pt \\ \hline - 60$BBe0J>e(B&15.0pt &30pt \\ \hline - \end{tabular} - \end{table} - \subsection{$B9M;!(B} - $BEPO?%Z!<%8$X$N%"%/%;%9?M?t$+$iEPO?%Z!<%8$X$NM6F3$,@.8y$7$F$$$k(B - $B$3$H$,;G$($kH?LL!"EPO?+0 (based on LaTeX2e <2003/12/01> patch level 0) -(/usr/local/tetex3/share/texmf/ptex/platex/base/jarticle.cls -Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class -\c@@paper=\count81 -(/usr/local/tetex3/share/texmf/ptex/platex/base/jsize12.clo -File: jsize12.clo 2006/06/27 v1.6 Standard pLaTeX file (size option) -) -\c@part=\count82 -\c@section=\count83 -\c@subsection=\count84 -\c@subsubsection=\count85 -\c@paragraph=\count86 -\c@subparagraph=\count87 -\c@figure=\count88 -\c@table=\count89 -\abovecaptionskip=\skip41 -\belowcaptionskip=\skip42 -\symmincho=\mathgroup4 -LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' -(Font) JY1/mc/m/n --> JY1/gt/m/n on input line 601. -\toclineskip=\dimen118 -\@lnumwidth=\dimen119 -\bibindent=\dimen120 -\heisei=\count90 -) -(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/graphicx.sty -Package: graphicx 1999/02/16 v1.0f Enhanced LaTeX Graphics (DPC,SPQR) - -(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/keyval.sty -Package: keyval 1999/03/16 v1.13 key=value parser (DPC) -\KV@toks@=\toks15 -) -(/usr/local/tetex3/share/texmf/tex/latex/graphics/dvipdfmx-contrib-latex/graphi -cs.sty -Package: graphics 2001/07/07 v1.0n Standard LaTeX Graphics (DPC,SPQR) - (/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/trig.sty -Package: trig 1999/03/16 v1.09 sin cos tan (DPC) -) -(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/graphics.cfg -File: graphics.cfg 2005/02/03 v1.3 graphics configuration of teTeX/TeXLive -) -Package graphics Info: Driver file: dvips.def on input line 81. - -(/usr/local/tetex3/share/texmf-dist/tex/latex/graphics/dvips.def -File: dvips.def 1999/02/16 v3.0i Driver-dependant file (DPC,SPQR) -)) -\Gin@req@height=\dimen121 -\Gin@req@width=\dimen122 -) -(/usr/local/tetex3/share/texmf-dist/tex/latex/tools/multicol.sty -Package: multicol 2004/02/14 v1.6e multicolumn formatting (FMi) -\c@tracingmulticols=\count91 -\mult@box=\box41 -\multicol@leftmargin=\dimen123 -\c@unbalance=\count92 -\c@collectmore=\count93 -\doublecol@number=\count94 -\multicoltolerance=\count95 -\multicolpretolerance=\count96 -\full@width=\dimen124 -\page@free=\dimen125 -\premulticols=\dimen126 -\postmulticols=\dimen127 -\multicolsep=\skip43 -\multicolbaselineskip=\skip44 -\partial@page=\box42 -\last@line=\box43 -\mult@rightbox=\box44 -\mult@grightbox=\box45 -\mult@gfirstbox=\box46 -\mult@firstbox=\box47 -\@tempa=\box48 -\@tempa=\box49 -\@tempa=\box50 -\@tempa=\box51 -\@tempa=\box52 -\@tempa=\box53 -\@tempa=\box54 -\@tempa=\box55 -\@tempa=\box56 -\@tempa=\box57 -\@tempa=\box58 -\@tempa=\box59 -\@tempa=\box60 -\@tempa=\box61 -\@tempa=\box62 -\@tempa=\box63 -\@tempa=\box64 -\c@columnbadness=\count97 -\c@finalcolumnbadness=\count98 -\last@try=\dimen128 -\multicolovershoot=\dimen129 -\multicolundershoot=\dimen130 -\mult@nat@firstbox=\box65 -\colbreak@box=\box66 -) -(./report_fes.aux) -\openout1 = `report_fes.aux'. - -LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for JY1/mc/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: Checking defaults for JT1/mc/m/n on input line 11. -LaTeX Font Info: ... okay on input line 11. -LaTeX Font Info: External font `cmex10' loaded for size -(Font) <14.4> on input line 12. -LaTeX Font Info: External font `cmex10' loaded for size -(Font) <7> on input line 12. - - -LaTeX Warning: No \author given. - -LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <17.28> not available -(Font) Font shape `JT1/gt/m/n' tried instead on input line 14. -LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <17.28> not available -(Font) Font shape `JY1/gt/m/n' tried instead on input line 14. -[1 - -] -File: thizu.eps Graphic file (type eps) - -File: sanka.eps Graphic file (type eps) - -File: atari.eps Graphic file (type eps) - [2 - -] (./report_fes.aux) ) -Here is how much of TeX's memory you used: - 669 strings out of 95541 - 8315 string characters out of 1190340 - 59282 words of memory out of 1500000 - 3870 multiletter control sequences out of 10000+50000 - 11479 words of font info for 46 fonts, out of 1200000 for 2000 - 14 hyphenation exceptions out of 8191 - 25i,6n,19p,208b,350s stack positions out of 5000i,500n,6000p,200000b,5000s - -Output written on report_fes.dvi (2 pages, 4400 bytes). diff -r 2e332b1abf94 -r d2d89793be14 minato2014/report/report_fes.tex --- a/minato2014/report/report_fes.tex Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,55 +0,0 @@ -\documentclass[a4j,12pt]{jarticle} -\usepackage{graphicx} -\title{2014 $B$_$J$H%*%"%7%9$^$D$j$G$N(B \\ $BEE;R%9%?%s%W%i%j!<$K$D$$$F(B} -\date{} -\addtolength{\topmargin}{-2cm} -\addtolength{\textheight}{1.5cm} -\addtolength{\textwidth}{2cm} -\addtolength{\oddsidemargin}{-1cm} -\addtolength{\evensidemargin}{-1cm} -\begin{document} -\maketitle -\vspace*{-6em} -\section*{$B35MW(B} -$B$_$J$H%*%"%7%9$^$D$j$N%$%Y%s%H$N0l$D$H$7$F(B QR$B%3!<%I$rMxMQ$7$?%G%8%?%k%S(B -$B%s%4$H%9%?%s%W%i%j!<$r9T$C$?!#(B -$B%G%8%?%k%S%s%4$O2q>lFb3F=j$K(BQR$B%3!<%I$,0u:~$5$l$?%]%9%?!<$r@_CV$7!";22CpJs$r=i2sEPO?$H$7$FF~NO$7$F$b$i$$!"0J8e$OB>$N%]%9%?!<$N(B -QR$B%3!<%I$rFI$_9~$`EY$K%9%?%s%W$,2!$5$l$F$$$/!#(B -$B:G8e$K%9%?%s%W$rB7$($FK\It$K$$$k%9%?%C%U$K8+$;$k$H;22C>^$r$b$i$&$3$H$,=PMh$k!#(B -$B$^$?!"%9%?%s%W%i%j!<$O;XDj$7$?;~9o$KCjA*$r9T$$!"$=$l$^$G$K=8$a$?%9%?%s%W(B -$B?t$K1~$8$FEvA*3NN($,>e>:$9$k$h$&$K$J$C$F$$$k!#(B -$B:#2sMQ0U$7$?>^IJ$O!";22C>^$H$7$FElKL8x1WJ82JBg3X$N%/%j%"%[%k%@!<$*$h$S(B -$B%X%k%7%"8^9r$a$0$_Cc!#%9%?%s%W%i%j!<$G$NEvA*>^IJ$H$7$F(B1$BEy%^%0%m0lK|1_J,(B -$B$H(B2$BEyJ?KR5M9g$;$H$J$C$F$$$k!#(B -\section*{$B7P2a(B} -\twocolumn[ -$B%9%?%s%W$rF~l=j$K@_CV$7$?!#(B -] -\begin{figure}[ht] - \centering - \includegraphics[scale=0.3]{thizu.eps} - \caption{$B%9%?%s%W@_CV>l=j$NCO?^(B} -\end{figure} -$BEvF|$O(B11$B;~$+$i3+;O$7(B1$B2sL\$NCjA*$O(B11$B;~H>$K$K9T$C$?!#=87W$N7k2L%$%Y%s%H$K$O=R$Y(B38$B?M$,;22C$7$F$$$?!#(B -$B$=$NCf$N(B2$BL>$,(B1$BEy$r3MF@$7(B2$BEy$O(B4$BL>$,EvA*$7$?!#(B -\begin{figure}[ht] - \includegraphics[scale=0.5]{sanka.eps} - \caption{$B%$%Y%s%HEvF|$NMM;R(B} - \includegraphics[scale=0.5]{atari.eps} -\caption{1$BEy$NEvA*;~(B} -\end{figure} -\section*{$BAmI>(B} -$B$h$$E@$H0-$$E@$N$^$H$a(B -$B:#2s$N%$%Y%s%H$GNI$+$C$?ItJ,$H$7$F$OBh0l$K;22Cl$KK,$l$?D.$N?MC#$HOC$7$?$jNI$$8rN.$N5!2q$H$b$J$C$?!#(B -$B$^$?4k2hB&$H$7$F$b@Q6KE*$K:n6H$Kh$j1[$($k$3$H$G(B -$B3F!9$N@.D9$K$D$J$,$C$?!#(B -$B0-$+$C$?E@$H$7$F$O@kEA$NITB-$d;22C$7$*$h(B -$B$S3F= hoge - iro += 1 - end - end - per = (exp.to_f)*100 / (sumexp.to_f) - png = job + "" + sex + "" + iro.to_s - ret = [png,per,exp] - return ret -end -#job = "sensi" -#sex = "G" -#hoge = rpg(job,sex,5,2,100) #傑キ,у,鴻帥潟,潟贋,膩靚薑 -#puts hoge diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/.htaccess --- a/opencampus2015/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -AddHandler cgi-script .rb -AddType "text/html; charset=UTF-8" .rb -AddType "text/html; charset=UTF-8" .html -Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/acc2.rb --- a/opencampus2015/acc2.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,142 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'kconv' -require 'cgi' -require 'csv' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/main.sq3") -csv = "list.csv" - -sql = "insert into test values(?, ?, ?, ?, ?, ?, ?, ?, ?)" - -toi = "insert into toi values (?, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)" -item = "insert into goods values (?, 0, 0, 0, 0, 0, 0)" - -name = c["name"] -pswd = c["pswd"] -cle1 = "CREATE TABLE IF NOT EXISTS test(id, name, cal, age, sex, pswd, exp, pt, lv)" -cle2 = "CREATE TABLE IF NOT EXISTS toi(id, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10)" -cle3 = "CREATE TABLE IF NOT EXISTS goods(id, g1, g2, g3, g4, g5, g6)" -cle4 = "CREATE TABLE IF NOT EXISTS time(cd, now, id)" -cle5 = "CREATE TABLE IF NOT EXISTS num(cd, id)" -cle6 = "CREATE TABLE IF NOT EXISTS pass(id, pass, name)" - -cle7 = "CREATE TABLE IF NOT EXISTS zukan(no, name, tah, lv2, lv3, lv4, lv5)" -cle8 = "CREATE TABLE IF NOT EXISTS box(id, no1, e1, t1, tm1, no2, e2, t2, tm2, no3, e3, t3, tm3)" -ins8 = "insert into box values(?,?,0,?,?,0,0,0,0,0,0,0,0)" - -ins4 = 'insert into time values(?, 61, "n")' -ins5 = 'insert into num values("aa",0)' -ins6 = 'insert into pass values(?, ?, ?)' -num = "select id from num where cd = ?" -numup = "update num set id = ? where cd = ?" - -db.execute(cle1) -db.execute(cle2) -#db.execute(cle3) -db.execute(cle4) -db.execute(cle5) -db.execute(cle6) -db.execute(cle7) -db.execute(cle8) -if name == "createman789789789" - ("a".."j").each{|x|db.execute(ins4,x)} - db.execute(ins5) - #system `sqlite3 -separator , /sql/main.sq3 ".import list.csv zukan"` #(ins7) - CSV.foreach(csv) do |row| - db.execute("INSERT INTO zukan VALUES(?,?,?,?,?,?,?)",*row) - end -end - -name = c["name"] -namae = "#{name}" -cal = c["cal"] -age = c["age"] -sex = c["sex"] -aria = c["aria"] - - -id = c.cookies["id"][0] -pass = c.cookies["pass"][0] -no1 = db.execute("select no from zukan where name = ?",cal)[0][0] -t1 = db.execute("select tah from zukan where name = ?",cal)[0][0] - - -if id == nil - number = db.execute(num, "aa") - begin - id = number[0][0].to_i + 1 - rescue - ("a".."j").each{|x| db.execute(ins4,x)} - # db.execute(ins4, "b") - # db.execute(ins4, "c") - # db.execute(ins4, "d") - # db.execute(ins4, "e") - # db.execute(ins4, "f") - # db.execute(ins4, "g") - # db.execute(ins4, "h") - # db.execute(ins4, "i") - # db.execute(ins4, "j") - db.execute(ins5) - id = number[0][0].to_i + 1 - end - exp = 0 - pt = 0 - lv = 1 - cd = "aa" - if pass == nil - pass = id - end - db.execute(ins6, id, pass, name) - db.execute(sql, id, name, cal, age, sex, aria, exp, pt, lv) - db.execute(toi, id) - # db.execute(item, id) - db.execute(numup, id, cd) - db.execute(ins8,id,no1,t1.to_i/5,t1.to_i/5) -end -# srand(id.to_i) -# id2 = rand(1000000) -id2 = pass - - - -expires = "SUN, 5, MAR 2017 00:00:00 GMT" - -printf("Content-type: text/html; charset=UTF-8 -Set-Cookie:id=%s ;expires=%s -Set-Cookie:pass=%s ;expires=%s\n\n", id, expires, id2, expires) - -printf(<<_EOS_, name, id.to_i) - - - - - - - - - - - - - -Registering Account - - - -

    Miyazac Quest

    -

    脂峨篋!

    -

    _ %s _!

    -

    障ID%04d!

    -
    紮!
    -
    -
    - -_EOS_ -if name == "createman987987987" -filename ='sql/main.sq3' -File.delete filename -end diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/accountcheck.rb --- a/opencampus2015/accountcheck.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,142 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'kconv' -require 'cgi' -require 'csv' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/main.sq3") -csv = "list.csv" - -sql = "insert into test values(?, ?, ?, ?, ?, ?, ?, ?, ?)" - -toi = "insert into toi values (?, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)" -item = "insert into goods values (?, 0, 0, 0, 0, 0, 0)" - -name = c["name"] -pswd = c["pswd"] -cle1 = "CREATE TABLE IF NOT EXISTS test(id, name, cal, age, sex, pswd, exp, pt, lv)" -cle2 = "CREATE TABLE IF NOT EXISTS toi(id, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10)" -cle3 = "CREATE TABLE IF NOT EXISTS goods(id, g1, g2, g3, g4, g5, g6)" -cle4 = "CREATE TABLE IF NOT EXISTS time(cd, now, id)" -cle5 = "CREATE TABLE IF NOT EXISTS num(cd, id)" -cle6 = "CREATE TABLE IF NOT EXISTS pass(id, pass, name)" - -cle7 = "CREATE TABLE IF NOT EXISTS zukan(no, name, tah, lv2, lv3, lv4, lv5)" -cle8 = "CREATE TABLE IF NOT EXISTS box(id, no1, e1, t1, tm1, no2, e2, t2, tm2, no3, e3, t3, tm3)" -ins8 = "insert into box values(?,?,0,?,?,0,0,0,0,0,0,0,0)" - -ins4 = 'insert into time values(?, 61, "n")' -ins5 = 'insert into num values("aa",0)' -ins6 = 'insert into pass values(?, ?, ?)' -num = "select id from num where cd = ?" -numup = "update num set id = ? where cd = ?" - -db.execute(cle1) -db.execute(cle2) -#db.execute(cle3) -db.execute(cle4) -db.execute(cle5) -db.execute(cle6) -db.execute(cle7) -db.execute(cle8) -if name == "createman789789789" - ("a".."j").each{|x|db.execute(ins4,x)} - db.execute(ins5) - #system `sqlite3 -separator , /sql/main.sq3 ".import list.csv zukan"` #(ins7) - CSV.foreach(csv) do |row| - db.execute("INSERT INTO zukan VALUES(?,?,?,?,?,?,?)",*row) - end -end - -name = c["name"] -namae = "#{name}" -cal = c["cal"] -age = c["age"] -sex = c["sex"] -aria = c["aria"] - - -id = c.cookies["id"][0] -pass = c.cookies["pass"][0] -no1 = db.execute("select no from zukan where name = ?",cal)[0][0] -t1 = db.execute("select tah from zukan where name = ?",cal)[0][0] - - -if id == nil - number = db.execute(num, "aa") - begin - id = number[0][0].to_i + 1 - rescue - ("a".."j").each{|x| db.execute(ins4,x)} - # db.execute(ins4, "b") - # db.execute(ins4, "c") - # db.execute(ins4, "d") - # db.execute(ins4, "e") - # db.execute(ins4, "f") - # db.execute(ins4, "g") - # db.execute(ins4, "h") - # db.execute(ins4, "i") - # db.execute(ins4, "j") - db.execute(ins5) - id = number[0][0].to_i + 1 - end - exp = 0 - pt = 0 - lv = 1 - cd = "aa" - if pass == nil - pass = id - end - db.execute(ins6, id, pass, name) - db.execute(sql, id, name, cal, age, sex, aria, exp, pt, lv) - db.execute(toi, id) - # db.execute(item, id) - db.execute(numup, id, cd) - db.execute(ins8,id,no1,t1.to_i/5,t1.to_i/5) -end -# srand(id.to_i) -# id2 = rand(1000000) -id2 = pass - - - -expires = "SUN, 5, MAR 2017 00:00:00 GMT" - -printf("Content-type: text/html; charset=UTF-8 -Set-Cookie:id=%s ;expires=%s -Set-Cookie:pass=%s ;expires=%s\n\n", id, expires, id2, expires) - -printf(<<_EOS_, name, id.to_i) - - - - - - - - - - - - - -Registering Account - - - -

    Miyazac Quest

    -

    脂峨篋!

    -

    _ %s _!

    -

    障ID%04d!

    -
    紮!
    -
    -
    - -_EOS_ -if name == "createman987987987" -filename ='sql/main.sq3' -File.delete filename -end diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/admin/.htaccess --- a/opencampus2015/admin/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,10 +0,0 @@ -AddHandler cgi-script .rb -AddType "text/html; charset=utf-8" .rb -AddType "text/html; charset=utf-8" .html -Options +ExecCGI -AuthUserFile /home/www/skip/opencampus2015/admin/.htpasswd -#AuthUserFile /home/irhome/c113/c113007/public_html/web/opencampus2015/admin/.htpasswd#for_roy -AuthGroupFile /dev/null -AuthName "splatoon! piyopiyogirl" -AuthType Basic -require valid-user diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/admin/.htpasswd --- a/opencampus2015/admin/.htpasswd Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1 +0,0 @@ -c113007:QRf28ARYqd/FY diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/admin/check.rb --- a/opencampus2015/admin/check.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,126 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- -require 'cgi' -require 'sqlite3' -require 'kconv' -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("../sql/main.sq3") - -getAC1 = ARGV[0] -pass = "hogehogeboy" - -hsh = c["SQ1"] -hsh += c["SQ2"] - -pts = "" - - -if c["SQ2"] == "toi" -pts = "
    idnamecalagesexariaexpptlv
    " -elsif c["SQ2"] == "time" -pts = "
    idq1q2q3q4q5q6q7q8q9secret
    " -elsif c["SQ2"] == "goods" -pts = "
    cdnowid
    " -elsif c["SQ2"] == "pass" -pts = "
    id＜蚊2蚊3蚊4蚊5蚊6
    " - -end - - -###################################### -################SQ3################### -if c["SQ3"] == "" -else -upd = c["SQ3"] -db.execute(upd) -end - -################SQ3################### -###################################### - - - - -################################ -################################ -if hsh == "" -# pts = "hoge" - hsh = "select * from test" -else -end - -hsh2 = db.execute(hsh) -i = 0 -while i < hsh2.length - data = hsh2[i] - if c["SQ2"] == "toi" - pts += "" - elsif c["SQ2"] == "time" - pts += "" - elsif c["SQ2"] == "goods" - pts += "" - else - pts += "" - end - i += 1 -end -#end -pts += "
    idpassname
    #{data[0]}#{data[1]}#{data[2]}#{data[3]}#{data[4]}#{data[5]}#{data[6]}#{data[7]}#{data[8]}#{data[9]}#{data[10]}
    #{data[0]}#{data[1]}#{data[2]}
    #{data[0]}#{data[1]}#{data[2]}#{data[3]}#{data[4]}#{data[5]}#{data[6]}
    #{data[0]}#{data[1]}#{data[2]}#{data[3]}#{data[4]}#{data[5]}#{data[6]}#{data[7]}#{data[8]}#{data[9]}
    " - - -print"Content-type: text/html; charset=UTF-8\n\n" - - -###################################### -################if ~html############## - -#if getAC1 == pass - -printf(<<_EOS_, pts) - - - - - - - - - - - -control - - - - -

    test,toi,goods,time,num,pass

    - - - -

    control

    -
    - - - -
    - -
    - - -
    -

    %s

    - -
    - - - -_EOS_ -############################################# -############################################# -#else diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/battle.rb --- a/opencampus2015/battle.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,181 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- -require 'cgi' -require 'sqlite3' -require 'kconv' -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("./sql/main.sq3") - -per = "%" -id = c.cookies["id"][0] -person = id.to_i - -data = "select * from test where id = ?" -cook = db.execute(data, person) -printf("Content-type: text/html; charset=UTF-8\n\n") - -begin -id,name,cal,age,sex,aria,exp,pt,lv = cook[0] -rescue -printf(<<_EOS_) - - - - - - - -Miyazac Quest - - - - -
    -

    荐蚊＜ｃ...

    荐吟羔障......

    -
    域頥吟篏
    -
    篏荐吟羔
    -
    skip@xxxx.co.jp
    -
    - - - -_EOS_ -exit(0) ##違腟篋! 篁ラ違障 -end - -#################ｃ######### -chenge = c["chenge"].to_i -box = db.execute("select * from box where id = ?",id) -hoge,no1,e1,t1,tm1,no2,e2,t2,tm2,no3,e3,t3,tm3=box[0] -newname = "select name from zukan where no = ?" -if chenge == 2 - db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no2=?,e2=?,t2=?,tm2=? where id = ?",no2,e2,t2,tm2,no1,e1,t1,tm1,id) -calname = db.execute(newname,no2)[0][0] - -db.execute("update test set cal = ? where id = ?",calname,id) -elsif chenge == 3 - db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no3=?,e3=?,t3=?,tm3=? where id = ?",no3,e3,t3,tm3,no1,e1,t1,tm1,id) -calname = db.execute(newname,no3)[0][0] -db.execute("update test set cal = ? where id = ?",calname,id) -end - -###################################### -gage = 0 -e1 = db.execute("select e1 from box where id = ?",person)[0][0]#吟idbox筝篏腟薑 -no1 = db.execute("select no1 from box where id = ?",person)[0][0] -no2 = db.execute("select no2 from box where id = ?",person)[0][0].to_i#2篏id -no3 = db.execute("select no3 from box where id = ?",person)[0][0].to_i#3篏id -lv2 = db.execute("select lv2 from zukan where no = ?",no1)[0][0].to_i -lv3 = db.execute("select lv3 from zukan where no = ?",no1)[0][0].to_i -lv4 = db.execute("select lv4 from zukan where no = ?",no1)[0][0].to_i -lv5 = db.execute("select lv5 from zukan where no = ?",no1)[0][0].to_i -if e1 < lv2 -lv = 1 -gage = 100-(e1/lv2.to_f*100) -elsif e1 >= lv5 -lv = 5 -gage = 0 -elsif e1 >= lv4 -lv = 4 -gage = 100-(e1-lv4)/(lv5-lv4.to_f)*100 -elsif e1 >= lv3 -lv = 3 -gage = 100-(e1-lv3)/(lv4-lv3.to_f)*100 -elsif e1 >= lv2 -lv = 2 -gage = 100-(e1-lv2)/(lv3-lv2.to_f)*100 -end######################################### - - -image = "./img/#{cal}#{lv}.png" -alt = "#{cal}.png" - - - -if lv == 1 - color = "black" -elsif lv == 2 - color = "navy" -elsif lv == 3 - color = "green" -elsif lv == 4 - color = "red" -elsif lv == 5 - color = "yellow" -else - color = "pink" - image = "./img/snail.png" - alt = "snails_bug" -end - -printf(<<_EOS_, per, gage, per, per, per, color, cal, image, alt, name, person, cal, lv) - - - - - - - - - - - - - -BATTLE! - - - - -
    %s
    -

    Miyazac Quest

    - -
    -
    -%s -
    - - - - -
    name:%s
    id:%04d
    cara:%s
    lv.%d
    -
    - -
    -

    exp

    -
    - -
    - - - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/cookie.rb --- a/opencampus2015/cookie.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'kconv' -require 'cgi' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/main.sq3") - -id = c.cookies["id"][0] -id = nil -expires = Time.now + 1 -if id == nil -end - - -printf("Content-type: text/html; charset=UTF-8 -Set-Cookie:id=%s ;expires=%s\n\n", id, expires) - -printf(<<_EOS_) - - - - - - -Registering Account - - -

    Miyazac Quest

    -

    荐吟羔...

    - -
    -違荐蚊篏
    - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/gets.rb --- a/opencampus2015/gets.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,171 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding:utf-8 -*- - -require 'sqlite3' -require 'cgi' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/main.sq3") - -id = c.cookies["id"][0] -person = id.to_i - -data = "select * from test where id = ?" -cook = db.execute(data, person) -upd = "update test set pt = ? where id = ?" -goods = "update goods set g1 = ?, g2 = ?, g3 = ?, g4 = ?, g5 = ?, g6 = ? where id = ?" - - -name = cook[0][1] -pt = cook[0][7] -lv = cook[0][8] - -ticket = "select * from goods where id = ?" -have = db.execute(ticket, person) -g1 = have[0][1] -g2 = have[0][2] -g3 = have[0][3] -g4 = have[0][4] -g5 = have[0][5] -g6 = have[0][6] - -srand -x = rand(3) #0~2紊 - -gets = c["sho"] -n1 = "" # -c1 = 4 + x #絲障羔莢祉ゃ潟 -n2 = "吾ャ若" -c2 = 10 -n3 = "ュ罔" -c3 = 30000000 -n4 = "" -c4 = 2 -n5 = "" -c5 = 5 -n6 = "" -c6 = 100 - - -h1 = "宴肴!
    205絎ゃ鴻帥篋冴!" -if lv < 3 - h1 = "宴肴с障!" - kekka = " !" -elsif gets == "s1" && pt >= c1 - g1 += 1 - pt -= c1 - kekka = "#{n1}篋ゆ吾蚊!" -elsif gets == "s2" && pt >= c2 - g2 += 1 - pt -= c2 - kekka = "#{n2}篋ゆ吾蚊!" -elsif gets == "s3" && pt >= c3 - g3 += 1 - pt -= c3 - kekka = "#{n3}篋ゆ吾蚊!" -elsif gets == "s4" && pt >= c4 - g4 += 1 - pt -= c4 - kekka = "#{n4}篋ゆ吾蚊!" -elsif gets == "s5" && pt >= c5 - g5 += 1 - pt -= c5 - kekka = "#{n5}蚊!" -elsif gets == "s6" && pt >= c6 - g6 += 1 - pt -= c6 - kekka = "#{n6}篋ゆ吾蚊!" -else - h1 = "宴肴с障!!" - kekka = "ゃ潟障!" -end - -trade = c["trade"] -if trade == n1 && g1 > 0 - g1 -= 1 - kekka = "#{n1} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" - h1 = "#{n1}篋ゆ障!
    若 鴻!" -elsif trade == n2 && g2 > 0 - g2 -= 1 - kekka = "#{n2} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥綛顔就腆肴篋ゆ!" - h1 = "#{n2} 篋ゆ障!
    蚊 с!" -elsif trade == n3 && g3 > 0 -g3 -= 1 -kekka = "#{n3} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" - h1 = "#{n3}篋ゆ障!" -elsif trade == n4 && g4 > 0 -g4 -= 1 - kekka = "#{n4} 篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" - h1 = "#{n4}篋ゆ障!" -elsif trade == n5 && g5 > 0 -g5 -= 1 - kekka = "#{n5}篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" -h1 = "10篋ゆ障!" -elsif trade == n6 && g6 > 0 -g6 -= 1 - kekka = "#{n6}篋ゆ障!
    鴻帥篋冴鴻帥帥潟若翫帥篋ゆ!" -h1 = "障篋ゆ障!" -end - - - - - -db.execute(goods, g1, g2, g3, g4, g5, g6, person) -db.execute(upd, pt, person) - - -pre = "%" -printf(<<_EOS_, h1, name, pt, kekka, g1, g4) - - - - - - - - - - - -! - - - - - -
    -

    祉祉!

    -

    %s

    -

    -%s
    -ゃ潟:%dp
    -%s -

    - -ｃ宴 - - - -
    :%d
    secret
    -

    -
    !
    -

    -
    - -
    鴻帥篋冴с! -
    - -
    - - - - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/gohan.rb --- a/opencampus2015/gohan.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,225 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- -require 'cgi' -require 'sqlite3' -require 'kconv' -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/main.sq3") - -id = c.cookies["id"][0] -person = id.to_i - -data = "select * from test where id = ?" - #id?(緇т撮)若帥test腑｢巡擦data祉翫**name紊荅峨若帥name - -cook = db.execute(data, person) - #data篁腟с巡擦person篁ｅャゃゅ茵 - -upd = "update test set exp = ?, pt = ? where id = ?" - #id?3exp?1pt?2巡擦 -lvupd = "update test set lv = ? where id = ?" - -que = "select q10 from toi where id = ?" -queupd = "update toi set q10 = 1 where id = ?" -q10 = db.execute(que, person) - - name = cook[0][1] - cal = cook[0][2] - exp = cook[0][6] - pt = cook[0][7] - lv = cook[0][8] - per = "%" -##################################### -##########腱絲荐絎############## -if cal == "inu" -m3 = "" -elsif cal == "sisip" -m3 = "" -elsif cal == "kamon" -m3 = "" -elsif cal == "boy" -m3 = "泣" -elsif cal == "girl" -m3 = "" -else -m3 = "skipskip" -end -##################################### -##################################### - - -gohan = c["gohan"] -#himitu = "" -if gohan == "g1" && pt >= 2 - exp += 2 - pt -= 2 - db.execute(upd, exp, pt, person) - kekka = "#{cal}激!" -elsif gohan == "g2" && pt >= 5 - exp += 6 - pt -= 5 - db.execute(upd, exp, pt, person) - kekka = "#{cal}激!" -elsif gohan == m3 - if q10[0][0] == 0 - exp += 10 - db.execute(upd, exp, pt, person) - kekka = "" - db.execute(queupd, person) - else - kekka ="ゃ ｃ !" - end -else - kekka = "ゃ潟 !" -end - -if gohan == m3 -elsif gohan == "g1" -elsif gohan == "g2" -else -kekka = " ＜!" -end - - -if exp >= lv*10 && lv < 5 - lv += 1 - db.execute(lvupd, lv, person) - kekka += "
    筝ｃ!
    #{lv}ｃ!" -end - - -if cal == "inu" - image = "./img/inu#{lv}.png" - alt = "inu#{lv}" -elsif cal == "sisip" - image = "./img/sisip#{lv}.png" - alt = "sisip#{lv}" -elsif cal == "kamon" - image = "./img/kamon#{lv}.png" - alt = "kamon#{lv}" -elsif cal == "boy" - image = "./img/boy#{lv}.png" - alt = "boy#{lv}" -elsif cal == "girl" - image = "./img/girl#{lv}.png" - alt = "girl#{lv}" -elsif cal == "snake" - image = "./img/snake#{lv}.png" - alt = "snake#{lv}" -else - image = "./img/snail.png" -end - -if lv == 1 - color = "black" -elsif lv == 2 - color = "navy" -elsif lv == 3 - color = "green" -elsif lv == 4 - color = "red" -elsif lv == 5 - color = "yellow" -else - color = "pink" - image = "./img/snail.png" - alt = "snails_bug" -end - -gage = 0 -exp2 = exp -if lv < 5 - while exp2 >= 10 - exp2 -= 10 - end - gage = 100-exp2*10 -end - - - -modoru = '
    若' -back = modoru -if lv < 5 && gohan == "g1" || lv < 5 && gohan == "g2" - mo = '' - back = mo + modoru -elsif lv >= 5 - back += "
    (鴻!)" -end -back += '
    ' - -cook = db.execute(data, person) -exp = cook[0][6] -pt = cook[0][7] -lv = cook[0][8] - - -printf(<<_EOS_, per, gage, per, per, per, color, image, alt, name, person, cal, lv, pt, kekka, back) - - - - - - - - - - - -! - - - - -
    -

    祉祉!

    - -
    -
    -%s -
    - - - - -
    name:%s
    id:%04d
    cara:%s
    lv.%d
    -
    - -
    -

    exp

    -
    - -

    - -ゃ潟:%dp
    -%s -

    - -%s -
    - - - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/cabage.png Binary file opencampus2015/img/cabage.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/exp.png Binary file opencampus2015/img/exp.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/expfront.png Binary file opencampus2015/img/expfront.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/fish.png Binary file opencampus2015/img/fish.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/food.png Binary file opencampus2015/img/food.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/foot.png Binary file opencampus2015/img/foot.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/foot2.png Binary file opencampus2015/img/foot2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/head.png Binary file opencampus2015/img/head.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/head2.png Binary file opencampus2015/img/head2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inazuma1.png Binary file opencampus2015/img/inazuma1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inazuma2.png Binary file opencampus2015/img/inazuma2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inazuma3.png Binary file opencampus2015/img/inazuma3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inazuma4.png Binary file opencampus2015/img/inazuma4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inazuma5.png Binary file opencampus2015/img/inazuma5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu1.png Binary file opencampus2015/img/inu1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu1o.png Binary file opencampus2015/img/inu1o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu2.png Binary file opencampus2015/img/inu2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu2o.png Binary file opencampus2015/img/inu2o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu3.png Binary file opencampus2015/img/inu3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu3o.png Binary file opencampus2015/img/inu3o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu4.png Binary file opencampus2015/img/inu4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu4o.png Binary file opencampus2015/img/inu4o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu5.png Binary file opencampus2015/img/inu5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/inu5o.png Binary file opencampus2015/img/inu5o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ito1.png Binary file opencampus2015/img/ito1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ito2.png Binary file opencampus2015/img/ito2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ito3.png Binary file opencampus2015/img/ito3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ito4.png Binary file opencampus2015/img/ito4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ito5.png Binary file opencampus2015/img/ito5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kai.png Binary file opencampus2015/img/kai.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon1.png Binary file opencampus2015/img/kamon1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon1o.png Binary file opencampus2015/img/kamon1o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon2.png Binary file opencampus2015/img/kamon2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon2o.png Binary file opencampus2015/img/kamon2o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon3.png Binary file opencampus2015/img/kamon3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon3o.png Binary file opencampus2015/img/kamon3o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon4.png Binary file opencampus2015/img/kamon4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon4o.png Binary file opencampus2015/img/kamon4o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon5.png Binary file opencampus2015/img/kamon5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kamon5o.png Binary file opencampus2015/img/kamon5o.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kinoko1.png Binary file opencampus2015/img/kinoko1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kinoko2.png Binary file opencampus2015/img/kinoko2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kinoko3.png Binary file opencampus2015/img/kinoko3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kinoko4.png Binary file opencampus2015/img/kinoko4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kinoko5.png Binary file opencampus2015/img/kinoko5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/kyabetsu.png Binary file opencampus2015/img/kyabetsu.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/list.csv --- a/opencampus2015/img/list.csv Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,5 +0,0 @@ -inu1 -inu2 -inu3 -inu4 -inu5 diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/lvb.png Binary file opencampus2015/img/lvb.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/medama1.png Binary file opencampus2015/img/medama1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/medama2.png Binary file opencampus2015/img/medama2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/medama3.png Binary file opencampus2015/img/medama3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/medama4.png Binary file opencampus2015/img/medama4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/medama5.png Binary file opencampus2015/img/medama5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/momen1.png Binary file opencampus2015/img/momen1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/momen2.png Binary file opencampus2015/img/momen2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/momen3.png Binary file opencampus2015/img/momen3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/momen4.png Binary file opencampus2015/img/momen4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/momen5.png Binary file opencampus2015/img/momen5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/niku.png Binary file opencampus2015/img/niku.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ninnjinn.png Binary file opencampus2015/img/ninnjinn.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/pan.png Binary file opencampus2015/img/pan.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/Q1.pdf Binary file opencampus2015/img/qr/Q1.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/Q2.pdf Binary file opencampus2015/img/qr/Q2.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/Q3.pdf Binary file opencampus2015/img/qr/Q3.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/Q4.pdf Binary file opencampus2015/img/qr/Q4.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/Q5.pdf Binary file opencampus2015/img/qr/Q5.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/Qlogin.pdf Binary file opencampus2015/img/qr/Qlogin.pdf has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/qr1.png Binary file opencampus2015/img/qr/qr1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/qr2.png Binary file opencampus2015/img/qr/qr2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/qr3.png Binary file opencampus2015/img/qr/qr3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/qr4.png Binary file opencampus2015/img/qr/qr4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/qr5.png Binary file opencampus2015/img/qr/qr5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/qr/qrlogin.png Binary file opencampus2015/img/qr/qrlogin.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/room.png Binary file opencampus2015/img/room.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/ship.png Binary file opencampus2015/img/ship.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/snail.png Binary file opencampus2015/img/snail.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/snake1.png Binary file opencampus2015/img/snake1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/snake2.png Binary file opencampus2015/img/snake2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/snake3.png Binary file opencampus2015/img/snake3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/snake4.png Binary file opencampus2015/img/snake4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/snake5.png Binary file opencampus2015/img/snake5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tako1.png Binary file opencampus2015/img/tako1.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tako2.png Binary file opencampus2015/img/tako2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tako3.png Binary file opencampus2015/img/tako3.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tako4.png Binary file opencampus2015/img/tako4.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tako5.png Binary file opencampus2015/img/tako5.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tamago.png Binary file opencampus2015/img/tamago.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/img/tsuya.png Binary file opencampus2015/img/tsuya.png has changed diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/index.html --- a/opencampus2015/index.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,50 +0,0 @@ - - - - - - - - - - - -opencampus2015-7 - - - - -

    Miyazac Quest

    ~薛薈帥~

    -

    若句脂

    - -
    - - - - - - - -
    鴻若
    у
    綛岩撮
    ｃ
    -
    - - diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/list.csv --- a/opencampus2015/list.csv Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -1,inazuma,30,20,50,90,120 -2,inu,25,16,30,50,70 -3,ito,10,6,12,18,24 -4,kamon,20,20,30,40,50 -5,kinoko,10,4,10,20,30 -6,medama,20,30,34,42,48 -7,momen,15,10,20,30,40 -8,snake,25,6,20,40,80 -9,tako,20,10,26,36,46 diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/list2.csv --- a/opencampus2015/list2.csv Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -inazuma1 -inazuma2 -inazuma3 -inazuma4 -inazuma5 -inu1 -inu2 -inu3 -inu4 -inu5 -ito1 -ito2 -ito3 -ito4 -ito5 -kamon1 -kamon2 -kamon3 -kamon4 -kamon5 -kinoko1 -kinoko2 -kinoko3 -kinoko4 -kinoko5 -medama1 -medama2 -medama3 -medama4 -medama5 -momen1 -momen2 -momen3 -momen4 -momen5 -snake1 -snake2 -snake3 -snake4 -snake5 -tako1 -tako2 -tako3 -tako4 -tako5 diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/list3.csv --- a/opencampus2015/list3.csv Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -1,inazuma,30,10,25,45,60 -2,inu,25,8,15,25,35 -3,ito,10,3,6,9,12 -4,kamon,20,10,15,20,25 -5,kinoko,10,2,5,10,15 -6,medama,20,15,17,21,24 -7,momen,15,5,10,15,20 -8,snake,25,3,10,20,40 -9,tako,20,5,13,18,23 diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/prof.rb --- a/opencampus2015/prof.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,380 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- -require 'cgi' -require 'sqlite3' -require 'kconv' -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("./sql/main.sq3") - -id = c.cookies["id"][0] -person = id.to_i - -data = "select * from test where id = ?" -data2 = "select * from test where id = ?" -#id?(緇т撮)若帥test腑｢巡擦data祉翫**name紊荅峨若帥name -cook = db.execute(data, person) #data篁腟с巡擦person篁ｅャゃゅ茵 -cook2 = db.execute(data2, person) -jikan1 = "select * from time where cd = ?" -timeupd = "update time set now = ?, id = ? where cd = ?" - -que = "select * from toi where id = ?" -queupd = "update toi set q1 = ?, q2 = ?, q3 = ?, q4 = ?, q5 = ? where id = ?" -toi = db.execute(que, person) - -bomd = "update test set pt = ? where id = ?" -ins4 = 'insert into time values(?, 61, "n")' -printf("Content-type: text/html; charset=UTF-8\n\n") - -begin -name = cook[0][1] -cal = cook[0][2] -age = cook[0][3] -sex = cook[0][4] -aria = cook[0][5] -exp = cook[0][6] -pt = cook[0][7] -#lv = cook[0][8] -rescue -printf(<<_EOS_) - - - - - - - -Miyazac Quest - - - - -
    -

    荐蚊＜ｃ...

    荐吟羔障......

    -
    域頥吟篏
    -
    篏荐吟羔
    -
    skip@xxxx.co.jp
    -
    - - - -_EOS_ -exit(0) ##違腟篋! 篁ラ違障 -end - - - -q1 = toi[0][1] -q2 = toi[0][2] -q3 = toi[0][3] -q4 = toi[0][4] -q5 = toi[0][5] - -per ="%" - -##################--pt峨箙掩亥--############# -##################----############################# - -def qrc() - srand(4567845678) - x = rand(10000000) - srand(x) - qrnumber = Hash.new("n") - qrarr = ["a", "b", "c", "d", "e"] - qrarr.length.times do |i| - qrnumber[rand(100000000)] = qrarr[i] - end - return qrnumber -end - -##################pt峨綽#################### -#########篋冴吾莨若罸鴻60腱篁ュ菴遵ゃ潟#### -kpt = 0 - - -begin - jikan2 = db.execute(jikan1, "j") - now1 = jikan2[0][1] -rescue - ("a".."j").each{|x| db.execute(ins4,x)} -end - - -qrAC = qrc ###激ャ"箙掩"=>"荐"ャｃ -getAC = ARGV[0].to_i ###URL?篁ラ絖(劫箙掩)緇getAC篁ｅ -qr = qrAC[getAC] ###劫"箙掩"筝眼"箙掩"=>"荐"qr罩ｃュ -if qr =="a" && q1 == 0 - q1 += 1 - jikan2 = db.execute(jikan1, "a") - now1 = jikan2[0][1] - nowper = jikan2[0][2] - now2 = Time.now.to_i - db.execute(timeupd, now2, person, "a") - if person == nowper - elsif now1 == nil - elsif now2-now1 < 40 - pt += 5 - kpt += 5 - end - pt += 7 - kpt += 7 -elsif qr == "b" && q2 == 0 - q2 += 1 - jikan2 = db.execute(jikan1, "b") - now1 = jikan2[0][1] - nowper = jikan2[0][2] - now2 = Time.now.to_i - db.execute(timeupd, now2, person, "b") - if person == nowper - elsif now1 == nil - elsif now2-now1 < 20 - pt += 2 - kpt += 2 - end - pt += 12 - kpt += 12 -elsif qr == "c" && q3 == 0 - q3 += 1 - jikan2 = db.execute(jikan1, "c") - now1 = jikan2[0][1] - nowper = jikan2[0][2] - now2 = Time.now.to_i - db.execute(timeupd, now2, person, "c") - if person == nowper - elsif now1 == nil - elsif now2-now1 < 25 - pt += 10 - kpt += 10 - end - pt += 3 - kpt += 3 -elsif qr == "d" && q4 == 0 - q4 += 1 - jikan2 = db.execute(jikan1, "d") - now1 = jikan2[0][1] - nowper = jikan2[0][2] - now2 = Time.now.to_i - db.execute(timeupd, now2, person, "d") - if person == nowper - elsif now1 == nil - elsif now2-now1 < 60 - pt += 2 - kpt += 2 - end - pt += 15 - kpt += 15 -elsif qr == "e" && q5 == 0 - q5 += 1 - jikan2 = db.execute(jikan1, "e") - now1 = jikan2[0][1] - nowper = jikan2[0][2] - now2 = Time.now.to_i - db.execute(timeupd, now2, person, "e") - if person == nowper - elsif now1 == nil - elsif now2-now1 < 50 - pt += 4 - kpt += 4 - end - pt += 10 - kpt += 10 -end - - -db.execute(bomd, pt, person) -db.execute(queupd, q1, q2, q3, q4, q5, person) - -kkget = "" - -########################~障pt~################### -####################################################### - -###################################### -lv = 1 -gage = 0 -e1 = db.execute("select e1 from box where id = ?",person)[0][0]#吟idbox筝篏腟薑 -no1 = db.execute("select no1 from box where id = ?",person)[0][0] -no2 = db.execute("select no2 from box where id = ?",person)[0][0].to_i#2篏id -no3 = db.execute("select no3 from box where id = ?",person)[0][0].to_i#3篏id -lv2 = db.execute("select lv2 from zukan where no = ?",no1)[0][0].to_i -lv3 = db.execute("select lv3 from zukan where no = ?",no1)[0][0].to_i -lv4 = db.execute("select lv4 from zukan where no = ?",no1)[0][0].to_i -lv5 = db.execute("select lv5 from zukan where no = ?",no1)[0][0].to_i -if e1 < lv2 -lv = 1 -gage = 100-(e1/lv2.to_f*100) -elsif e1 >= lv5 -lv = 5 -gage = 0 -elsif e1 >= lv4 -lv = 4 -gage = 100-(e1-lv4)/(lv5-lv4.to_f)*100 -elsif e1 >= lv3 -lv = 3 -gage = 100-(e1-lv3)/(lv4-lv3.to_f)*100 -elsif e1 >= lv2 -lv = 2 -gage = 100-(e1-lv2)/(lv3-lv2.to_f)*100 -end######################################### - - -image = "./img/#{cal}#{lv}.png" -alt = "#{cal}.png" - - - -if lv == 1 - color = "black" -elsif lv == 2 - color = "navy" -elsif lv == 3 - color = "green" -elsif lv == 4 - color = "red" -elsif lv == 5 - color = "yellow" -else - color = "pink" - image = "./img/snail.png" - alt = "snails_bug" -end -#exp10罸lv1 -#exp1篏*10с罨＜≪綽荀腟薑ゃ峨冴 -#(exp=12翫2*10=20%罨＜≪障с80%綽荀) -#(exp=35翫5*10=50%罨＜≪障с50%綽荀) -#exppoint = "select e1 from box where id = ?" #吟idbox筝篏腟薑 -#expp = db.execute(exppoint,id) -#exp = expp[0][0].to_i -#gage = 0 -#gage2 = db.execute("select no1 from box where id = ?",id) -#exp2 = exp -#esa = "


    " - -wcname ="select name from zukan where no = ?" -cal1 = db.execute(wcname,no1)[0][0] -begin -cal2 = db.execute(wcname,no2.to_s)[0][0] -rescue -cal2 = db.execute(wcname,no2.to_s)[0] -end -begin -cal3 = db.execute(wcname,no3.to_s)[0][0] -rescue -cal3 = db.execute(wcname,no3.to_s)[0] -end -chengeform = ' - -

    coin:%d$

    -
    - -
    - -
    -    		 -
    - - -
    -    		 - -
    - -
    -
    -
    - - - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/profeel.css --- a/opencampus2015/profeel.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,76 +0,0 @@ -body{text-align:center; -background:#355; -border:dashed 5px navy; -} -header{ -#padding:100px; - position: relative; - top: -16px; - left: 0px; - width: 100%; - height: 200px; -background-image:url(./img/head.png); -text-align:center; -margin-left:auto;margin-right:auto; -} -footer{ -#padding:100px; - position: relative; - top: 0px; - left: 0px; - width: 100%; - height: 200px; -background-image:url(./img/foot.png); -text-align:center; -margin-left:auto;margin-right:auto; -} - - - -header p {color:red;} - -h1{ -color:#0d4; -border:solid 5px #a00; -border-style:double; -background:url("./img/lvb.png"); -background-color:red; -} - - - - -input[type="checkbox"][name="hdn"] + span {display: none;} -input[type="checkbox"][name="hdn"]:checked + span {display: inline;} - -input[type="checkbox"][name="hdn"] + div{opacity: 0;} -input[type="checkbox"][name="hdn"]:checked + div { - opacity: 1.0; transition: 3s ease-in-out; - transition: 1s linear;} - -table{margin-left:auto; margin-right: auto;} -table.state{text-align:left;} -table.state tr+tr+tr+tr{font-size:xx-large;} -#table.anime td{border:solid red;} - -div.f1{padding:0% 0%; -margin:1em 17em;} -div.lets{ -border:solid 2px #fa0; -background:#aaa; -padding:1% 0%; -#margin:1em 17em; -} -div.lets span{color:navy; text-decoration: underline #faf;} - -div.cal {margin-left:auto; margin-right:auto; -width: 320px; height: 180px; -background: #eef; -border: solid 2px navy;} - -div.calque {margin-left:auto; margin-right:auto; -width: 180px; height: 180px; -background: #eef; -border: solid 2px navy;} - - diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/quest.rb --- a/opencampus2015/quest.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,255 +0,0 @@ -#!/usr/bin/env ruby22 -# -*- coding: utf-8 -*- - -require 'sqlite3' -require 'kconv' -require 'cgi' - -c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8") -db = SQLite3::Database.new("sql/main.sq3") -id = c.cookies["id"][0].to_i -chenge = c["chenge"].to_i -box = db.execute("select * from box where id = ?",id) -hoge,no1,e1,t1,tm1,no2,e2,t2,tm2,no3,e3,t3,tm3=box[0] -newname = "select name from zukan where no = ?" -if chenge == 2 - db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no2=?,e2=?,t2=?,tm2=? where id = ?",no2,e2,t2,tm2,no1,e1,t1,tm1,id) -calname = db.execute(newname,no2)[0][0] - -db.execute("update test set cal = ? where id = ?",calname,id) -elsif chenge == 3 - db.execute("update box set no1=?,e1=?,t1=?,tm1=?,no3=?,e3=?,t3=?,tm3=? where id = ?",no3,e3,t3,tm3,no1,e1,t1,tm1,id) -calname = db.execute(newname,no3)[0][0] -db.execute("update test set cal = ? where id = ?",calname,id) -end - - - - cmps = c["cmps"] -x = 0 -per ="%" -newone = "" - -data = "select * from test where id = ?" -cook = db.execute(data, id) -begin -cal = cook[0][2] -rescue -printf(<<_EOS_) - - - - - - - -Miyazac Quest - - - - -
    -

    荐蚊＜ｃ...

    荐吟羔障......

    -
    域頥吟篏
    -
    篏荐吟羔
    -
    skip@xxxx.co.jp
    -
    - - - -_EOS_ -exit(0) ##違腟篋! 篁ラ違障 -end -################################## -exppoint = "select e1 from box where id = ?" #吟idbox筝篏腟薑 -expup = "update box set e1 = ? where id = ?" -exp2 = db.execute(exppoint,id) -exp = exp2[0][0].to_i -srand -if cmps == "" - exp += 2 - x = rand(2)+1 -elsif cmps == "" - exp += 1 - x = rand(3)+1 -#################### -elsif cmps == "" ##綵若 - no1 = db.execute("select no1 from box where id = ?",id)[0][0] - no2 = db.execute("select no2 from box where id = ?",id)[0][0] - no3 = db.execute("select no3 from box where id = ?",id)[0][0] - number = rand(8)+1 -while number == no1.to_i - number = rand(8)+1 -end -##############2 - if no2 == 0 - newcal = db.execute('select * from zukan where no = ?',"#{number}") - no2 = newcal[0][0] - calname = newcal[0][1] - t2 = newcal[0][2].to_i/5 - db.execute("update box set no2 = ?, t2 = ?, tm2 = ? where id = ?",no2,t2,t2,id) - newone = "#{calname}憗!
    #{calname}篁臥ｃ!" -##############3 - elsif no3 == 0 - while number == no1.to_i || number == no2.to_i - number = rand(8)+1 - end - newcal = db.execute('select * from zukan where no = ?',"#{number}") - no3 = newcal[0][0] - calname = newcal[0][1] - t3 = newcal[0][2].to_i/5 - db.execute("update box set no3 = ?, t3 = ?, tm3 = ? where id = ?",no3,t3,t3,id) - newone = "#{calname}憗!
    #{calname}篁臥ｃ!" -############## - else - x = 49 - end -end -db.execute(expup,exp,id) -coin = db.execute("select pt from test where id = ?",id)[0][0] -coin += x -db.execute("update test set pt = ?",coin) -############################################ - - -if x > 0 - xs = x.to_s + "$get!" -else - xs = "" -end - -x = rand(30) -if x == 0 -cmpsget =' - -' -elsif x == 1 -cmpsget =' - -' -else -cmpsget =' - -' -end - -lv = 1 -gage = 0 -e1 = db.execute("select e1 from box where id = ?",id)[0][0]#吟idbox筝篏腟薑 -no1 = db.execute("select no1 from box where id = ?",id)[0][0] -lv2 = db.execute("select lv2 from zukan where no = ?",no1)[0][0].to_i -lv3 = db.execute("select lv3 from zukan where no = ?",no1)[0][0].to_i -lv4 = db.execute("select lv4 from zukan where no = ?",no1)[0][0].to_i -lv5 = db.execute("select lv5 from zukan where no = ?",no1)[0][0].to_i -if e1 < lv2 -lv = 1 -gage = 100-(e1/lv2.to_f*100) -elsif e1 >= lv5 -lv = 5 -gage = 0 -elsif e1 >= lv4 -lv = 4 -gage = 100-(e1-lv4)/(lv5-lv4.to_f)*100 -elsif e1 >= lv3 -lv = 3 -gage = 100-(e1-lv3)/(lv4-lv3.to_f)*100 -elsif e1 >= lv2 -lv = 2 -gage = 100-(e1-lv2)/(lv3-lv2.to_f)*100 -end - - -################################################## -if lv == 1 - color = "black" -elsif lv == 2 - color = "navy" -elsif lv == 3 - color = "green" -elsif lv == 4 - color = "red" -elsif lv == 5 - color = "yellow" -else - color = "pink" - image = "./img/snail.png" - alt = "snails_bug" -end - -image = "./img/#{cal}#{lv}.png" -alt = "#{cal}.png" - - -printf(<<_EOS_,per,gage,per,per,per,color,cmps,xs,newone,image,alt,cmpsget) - - - - - - - - - - - - - - - - - - - - -

    %s

    -

    %s %s

    -
    -
    -%s -
    -
    - -
    -

    exp

    -
    - -
    -%s -
    -
    -
    -冴... -
    -
    - - - -_EOS_ diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/smart.css --- a/opencampus2015/smart.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,76 +0,0 @@ -body{text-align:center; -background:#bff; -border:dashed 5px navy; -margin-left:auto;margin-right:auto; -width:340px; -} -header{ -#padding:100px; - position: relative; - top: 0px; - left: 0px; - width: 100%; - height: 140px; -background-image:url(./img/head2.png); -background-repeat:no-repeat; -text-align:center; -margin-left:auto;margin-right:auto; -} -footer{ -#padding:100px; - position: relative; - top: 0px; - left: 0px; - width: 100%; - height: 140px; -background-image:url(./img/foot2.png); -background-repeat:no-repeat; -text-align:center; -margin-left:auto;margin-right:auto; -} - - - -header p {color:red;} - -h1{ -color:#e90; -border:solid 5px #fa0; -border-style:double; -background:url("./img/lvb.png"); -background-color:red; -} - -input[type="checkbox"][name="hdn"] + span {display: none;} -input[type="checkbox"][name="hdn"]:checked + span {display: inline;} - -input[type="checkbox"][name="hdn"] + div{opacity: 0;} -input[type="checkbox"][name="hdn"]:checked + div { - opacity: 1.0; transition: 3s ease-in-out; - transition: 1s linear;} - -table{margin-left:auto; margin-right: auto;} -table.state{text-align:left;} -table.state tr+tr+tr+tr{font-size:xx-large;} - - -div.f1{padding:0% 0%;} -div.lets{ -border:solid 2px #fa0; -background:#faf; -padding:1% 0%; -#margin:1em 17em; -} -div.lets span{color:navy; text-decoration: underline #faf;} - - - - -div.cal {margin-left:auto; margin-right:auto; -width: 320px; height: 180px; -background: #eef -border: solid 2px navy;} - - - -#form{margin-left:auto; margin-right:auto;} diff -r 2e332b1abf94 -r d2d89793be14 opencampus2015/sql/hoge diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/.htaccess --- a/program/6hour/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -AddHandler cgi-script .rb -Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/arerugika.html --- a/program/6hour/arerugika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ - - - -アレルギー科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/biyougeka.html --- a/program/6hour/biyougeka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ - - - -美容外科 - - -
    - -

    -

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

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

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

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/geka.html --- a/program/6hour/geka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,35 +0,0 @@ - - - -外科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/gogo2.png Binary file program/6hour/gogo2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/gozen2.png Binary file program/6hour/gozen2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/h_murayama.txt --- a/program/6hour/h_murayama.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26 +0,0 @@ -鈴木医院 山形県東村山郡山辺町山辺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 2e332b1abf94 -r d2d89793be14 program/6hour/h_okitama.txt --- a/program/6hour/h_okitama.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,68 +0,0 @@ -むらかみ歯科医院 山形県東置賜郡高畠町大字高畠北目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 2e332b1abf94 -r d2d89793be14 program/6hour/hifuka.html --- a/program/6hour/hifuka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,36 +0,0 @@ - - - -皮膚科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/higamurayama_yamanobe.txt --- a/program/6hour/higamurayama_yamanobe.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26 +0,0 @@ -鈴木医院 山形県東村山郡山辺町山辺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 2e332b1abf94 -r d2d89793be14 program/6hour/higasine.txt --- a/program/6hour/higasine.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,87 +0,0 @@ -ひかり皮膚科 山形県東根市さくらんぼ駅前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 2e332b1abf94 -r d2d89793be14 program/6hour/hinyokika.html --- a/program/6hour/hinyokika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,35 +0,0 @@ - - - -泌尿器科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/hospital.html --- a/program/6hour/hospital.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,177 +0,0 @@ - - - - - -病院検索 - - - - - - -

    ロゴFUCHO

    - - -
    -

    診療科検索

    - -
    -

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

    -

    -

    - - - -

    - -
    -
    -

    山形県内の病院検索

    -

    市町村名を選択して下さい。
    - -

    - -

    町村名を入力してください。
    - -

    - -

    病院名を入力してください。
    - -

    - - -

    診療科 を選択してください。(複数可)

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

    - -

    - -
    -
    -
    -
    -

    プログラムについて

    -

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

    -
    -
    -SKIP - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/hospital.png Binary file program/6hour/hospital.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/hospital_kensaku4.rb --- a/program/6hour/hospital_kensaku4.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26123 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/hospitalkeka.rb --- a/program/6hour/hospitalkeka.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1108 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/hospitalkensaku.css --- a/program/6hour/hospitalkensaku.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,38 +0,0 @@ - -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 2e332b1abf94 -r d2d89793be14 program/6hour/hospitalkensaku.rb --- a/program/6hour/hospitalkensaku.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16588 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/huton.png Binary file program/6hour/huton.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/ichouka.html --- a/program/6hour/ichouka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,35 +0,0 @@ -<html> -<head> -<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> -<title>胃腸科 - - -
    - -

    胃腸科 -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/jibiinkouka.html --- a/program/6hour/jibiinkouka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ - - - -耳鼻いんこう科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/junkankika.html --- a/program/6hour/junkankika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,38 +0,0 @@ - - - -循環器科 - - -
    - -

    循環器科 -

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

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

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

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/kensaku2.css --- a/program/6hour/kensaku2.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ - -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 2e332b1abf94 -r d2d89793be14 program/6hour/kensakulogo.png Binary file program/6hour/kensakulogo.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/kikanshokudouka.html --- a/program/6hour/kikanshokudouka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,35 +0,0 @@ - - - -気管食道科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/kitamurayama_ooisida.txt --- a/program/6hour/kitamurayama_ooisida.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,11 +0,0 @@ -$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 2e332b1abf94 -r d2d89793be14 program/6hour/kokyukika.html --- a/program/6hour/kokyukika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,36 +0,0 @@ - - - -呼吸器科 - - -
    - -

    呼吸器科

    - - - - - - - - - - - - - -

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/kuchi.txt --- a/program/6hour/kuchi.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,68 +0,0 @@ -遠藤医院,山形県鶴岡市板井川字片茎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 2e332b1abf94 -r d2d89793be14 program/6hour/kuchikomi.css --- a/program/6hour/kuchikomi.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,28 +0,0 @@ - -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 2e332b1abf94 -r d2d89793be14 program/6hour/kuchikomi.rb --- a/program/6hour/kuchikomi.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,119 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/mikawa.txt --- a/program/6hour/mikawa.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -みかわキッズクリニック 山形県東田川郡三川町大字猪子字大堰端379-7 0235350666 月,木,金,土,日 月,水,木,金 火,祝 :小児科:アレルギー科: -協立三川診療所 山形県東田川郡三川町横山袖東4-9 0235664770 火,水 火,水 月,木,金,土,日,祝 :内科:整形外科: -三川病院 山形県東田川郡三川町大字横山字堤39番地 0235680150 月,火,水,木,金 月,火,水,木,金 土,日,祝 :内科:心療内科:精神科:神経科: -三川歯科 山形県東田川郡三川町横山字袖東2-1 0235662800 不定期 不定期 不定期 :歯科: diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/mogami.txt --- a/program/6hour/mogami.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -しばた歯科医院 山形県最上郡金山町字羽場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 2e332b1abf94 -r d2d89793be14 program/6hour/murayama.txt --- a/program/6hour/murayama.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,49 +0,0 @@ -たておか小児クリニック 山形県村山市楯岡二日町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 2e332b1abf94 -r d2d89793be14 program/6hour/n_murayama.txt --- a/program/6hour/n_murayama.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -細谷医院 山形県西村山郡河北町谷地ひな市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 2e332b1abf94 -r d2d89793be14 program/6hour/n_okitama.txt --- a/program/6hour/n_okitama.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,43 +0,0 @@ -小国町立病院 山形県西置賜郡小国町あけぼの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 2e332b1abf94 -r d2d89793be14 program/6hour/nagai.txt --- a/program/6hour/nagai.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -仁陽堂外田医院 山形県長井市栄町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 2e332b1abf94 -r d2d89793be14 program/6hour/naika.html --- a/program/6hour/naika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ -<html> -<head> -<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> -<title>内科 - - -
    - - -

    内科

    -
    特長呼吸器(肺、気管、気管支、胸壁など)に関わる疾患のうち、
    - 内科的治療行う
    主な症状呼吸が苦しい 咳やたんが多い
    - 深呼吸すると胸や背中が痛い
    -
    主な病気風邪 インフルエンザ 慢性気管支炎
    - 肺炎 肺梗塞 肺がん など
    -
    - - - - - - - - - -
    特長プライマリーケア（初期診療）の役割を持つ
    -他の診療科と連携して治療を行うことが多い
    -高校生以上の大人に対して病気全般や軽度な外傷の診断と手術以外の治療
    -生活習慣病の改善のための管理や指導も行う -
    主な症状腹痛 頭痛 風邪
    主な病気風邪 生活習慣病など
    - -
    - -

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/nanyo.txt --- a/program/6hour/nanyo.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,44 +0,0 @@ -佐藤産婦人科医院 山形県南陽市宮内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 2e332b1abf94 -r d2d89793be14 program/6hour/niko.png Binary file program/6hour/niko.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/nishimurayama_kahoku.txt --- a/program/6hour/nishimurayama_kahoku.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,31 +0,0 @@ -$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 2e332b1abf94 -r d2d89793be14 program/6hour/noushinkeigeka.html --- a/program/6hour/noushinkeigeka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ - - - -脳神経外科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/obanazawa.txt --- a/program/6hour/obanazawa.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16 +0,0 @@ -おくやま内科医院 山形県尾花沢市新町中央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 2e332b1abf94 -r d2d89793be14 program/6hour/riumachi.html --- a/program/6hour/riumachi.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,42 +0,0 @@ - - - -リウマチ科 - - -
    - -

    -

    - - -

    \"リウマチ科\"

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/sagae.txt --- a/program/6hour/sagae.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,48 +0,0 @@ -国井クリニック 山形県寒河江市中郷字角田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 2e332b1abf94 -r d2d89793be14 program/6hour/sagasu.css --- a/program/6hour/sagasu.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,30 +0,0 @@ - -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 2e332b1abf94 -r d2d89793be14 program/6hour/sagasu.rb --- a/program/6hour/sagasu.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,164 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/sagasu_ka.css --- a/program/6hour/sagasu_ka.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,33 +0,0 @@ - -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 2e332b1abf94 -r d2d89793be14 program/6hour/sagasu_ka3.rb --- a/program/6hour/sagasu_ka3.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,725 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/sagasu_shojo.css --- a/program/6hour/sagasu_shojo.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,22 +0,0 @@ - -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 2e332b1abf94 -r d2d89793be14 program/6hour/sagasu_shojo.rb --- a/program/6hour/sagasu_shojo.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,278 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/6hour/sakata.dat --- a/program/6hour/sakata.dat Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,140 +0,0 @@ -のざきヒフ科クリニック 山形県酒田市中町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 2e332b1abf94 -r d2d89793be14 program/6hour/sanfujinka.html --- a/program/6hour/sanfujinka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,38 +0,0 @@ -<html> -<head> -<link rel="stylesheet" type="text/css" href="sagasu_ka.css"> -<title>産婦人科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/seibyoka.html --- a/program/6hour/seibyoka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,39 +0,0 @@ - - - -性病科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/seikeigeka.html --- a/program/6hour/seikeigeka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,35 +0,0 @@ - - - -整形外科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/seishinka.html --- a/program/6hour/seishinka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ - - - -精神科 - - -
    - -

    精神科 -

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

    - -

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/sensei.png Binary file program/6hour/sensei.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/shika.html --- a/program/6hour/shika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ - - - -歯科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/shikakoukuuka.html --- a/program/6hour/shikakoukuuka.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,39 +0,0 @@ - - - -歯科口腔科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/shinkeinaika.html --- a/program/6hour/shinkeinaika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,35 +0,0 @@ - - - -神経内科 - - -
    - -

    神経内科

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/shonika.html --- a/program/6hour/shonika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ - - - -小児科 - - -
    - -

    -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/shoukakika.html --- a/program/6hour/shoukakika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ - - - -消化器科 - - - -消化器科 - -

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

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/sinjou.txt --- a/program/6hour/sinjou.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,59 +0,0 @@ -廣野医院 山形県新庄市下金沢町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 2e332b1abf94 -r d2d89793be14 program/6hour/sinkeika.png Binary file program/6hour/sinkeika.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/sinryonaika.html --- a/program/6hour/sinryonaika.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,39 +0,0 @@ - - - -心療内科 - - -
    - -

    \"心療内科\" - -

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

    - -

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

    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/smile.png Binary file program/6hour/smile.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/syounai.dat --- a/program/6hour/syounai.dat Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,18 +0,0 @@ -かとう医院 山形県東田川郡庄内町余目町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 2e332b1abf94 -r d2d89793be14 program/6hour/telephone.png Binary file program/6hour/telephone.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/tendo.txt --- a/program/6hour/tendo.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,73 +0,0 @@ -福田歯科クリニック 山形県天童市東久野本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 2e332b1abf94 -r d2d89793be14 program/6hour/turuoka.dat --- a/program/6hour/turuoka.dat Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,160 +0,0 @@ -宝田整形外科クリニック 山形県鶴岡市宝田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 2e332b1abf94 -r d2d89793be14 program/6hour/yamagatashi.txt --- a/program/6hour/yamagatashi.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,509 +0,0 @@ - -荒井小児科医院 山形県山形市久保田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 2e332b1abf94 -r d2d89793be14 program/6hour/yonezawa.txt --- a/program/6hour/yonezawa.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,137 +0,0 @@ -ごとう整形外科クリニック 山形県米沢市花沢町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 2e332b1abf94 -r d2d89793be14 program/6hour/yubin.png Binary file program/6hour/yubin.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/6hour/yuza.dat --- a/program/6hour/yuza.dat Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,10 +0,0 @@ -遊佐病院 山形県飽海郡遊佐町遊佐字石田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 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/.htaccess --- a/program/GiveMeALiftInYourCar/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -AddHandler cgi-script .rb -Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/TOS.html --- a/program/GiveMeALiftInYourCar/TOS.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,74 +0,0 @@ - - - -Term Of Service - - - - - -

    Koeki Networkの使い方

    -

    Koeki Networkとは?

    -

    -Koeki Networkは公益大生限定の情報交換や、交流を目的としたサイトです! -現在は、「乗せてって掲示板」を利用できます。随時、機能の更新、追加を行な -います。 -

    -

    乗せてって掲示板とは?

    -

    -この掲示板では目的地へ向かう際に
    -

      -
    1. 相手を乗せるのか or 乗せてもらうのか -
    2. 行き先 -
    3. 一言コメント -
    4. 条件などなど -
    -を書き加え、仲間を募集することができます。
    - -要するにカーシェア募集板です
    - -知らない人との新たな出会いや仲間を集めて楽しくドライブ!!なんてこともできてしまうのです!!!
    - -方法は簡単!!
    -自分から投稿してもよし、
    -記事にコメントして記載者と打ち合わせるもよしです
    - -みなさん活用してね!!
    - -終 -

    -

    注意事項

    -

    -

      -
    1. 特定の人物や団体に対する誹謗中傷や、他のユーザーを不快にする言動は - 謹んで下さい。
      2. -
    2. 大学生らしい節度ある行動を心掛けましょう!
      3. -
    3. 本サイト内でのユーザー間んでのトラブル等に関して当方は一切責任を負 - いません。
      4. -
    4. 予告せずに使用の変更を行なうことがあります。ご了承下さい。
      5. -
    5. 登録アカウントは当方で削除、修正が自由に行なえるものとします。
      6. -
    6. 注意事項とは当方が予告なしに加筆、修正できるものとします。
      7. -
    7. 当方に対し損害をあたえた場合は、アカウントの削除及び法的措置を含む - 賠償請求をさせて頂く場合があります。
      8. -
    -

    -

    プライバシーポリシー

    -

    -

      -
    1. アカウント登録の際にご登録頂いた情報に付いては、本サイトの運営以外 - には使用致しません。
      2. -
    2. ただし、警察または同等の権力を有する機関、東北公益文科大学から開示 - 要請があった場合はその限りではありません。
      3. -
    3. プライバシーポリシーは必要に応じて当方が加筆、修正できるものとしま - す。
      4. -
    -

    -
    c112124@h.koeki-u.ac.jp
    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/check_table.rb --- a/program/GiveMeALiftInYourCar/check_table.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,54 +0,0 @@ -#!/usr/bin/env ruby -# coding: utf-8 - -require 'sqlite3' -require 'cgi' - -c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") - -db = SQLite3::Database.new("sql/acounts.sq3") - -sql = "select sub_name, password from acounts;" -value = db.execute(sql) - -print("Content-type: text/html; charset=UTF-8 \n\n") - -print' - - - -若 -koeki network- - - - - -
    -

    300x167(14204bytes) -

    -
    - - -' -value.each { |data| - printf(' - -', data[0], data[1]) -} -# -print' -
    sub_namepass
    %s%s
    -
    -
    - -祉≪潟с違ゃ潟 -
    c112124@h.koeki-u.ac.jp
    -
    - - -' - diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/db/eating_bulletin_board.rb --- a/program/GiveMeALiftInYourCar/db/eating_bulletin_board.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,368 +0,0 @@ -#!/usr/bin/env ruby -# coding: euc-jp - -require "cgi" -require "kconv" # euc-jpへの変換のため(toeucメソッド) -require "pstore" -require 'pg' - -myname = "eating_bulletin_board.rb" - -pghost = "localhost" -pgport = 5432 -pgoptions = nil -pgtty = nil -dbname = "c112124" -dbuser = "c112124" -passwd = nil - -c = CGI.new(:accept_charset => "EUC-JP") -id = c.cookies["id"][0].to_s.toeuc -pass = c.cookies["pass"][0] -table = "group_works_id" -cmt = c["comment"] -com = c["com"].to_s -which = c["which"] -trm = c["terms"] -place = c["place"] -area = c["area"] -mst_id = c["mst_id"] -mst2_id = c["mst2_id"] -index_which = c["index_which"].to_i -index_area = c["index_area"].to_i -index_terms = c["index_terms"].to_i -original_id = c["original_id"] -main_mode = c["main_mode"] -mode = c["mode"] -link = c["link"] -del = c["del"].to_s -tag = c["tag"].to_i -time = Time.now # 時刻を保持するTimeクラス代入。nowは現時刻 - -edit_id = ARGV[0].to_s.toeuc # 修正モードの場合の修正項目名 -oldcomment = "" # 修正モードの場合の既存コメント -oldplace = "" -oldterms = "" - -sql = "SELECT * FROM #{table} " - -conn = PGconn.connect(pghost, pgport, pgoptions, pgtty, dbname, dbuser, passwd) -tuple = conn.exec(sql) - -value = [] -id_list = [] -x = 0 - -tuple.each{|line| - value = line.values - id_list[x] = [value[0].to_s, value[1].to_s] - x += 1 -} - -tuple.clear -conn.close - -print 'Content-type: text/html; charset=EUC-JP - - -乗せてって掲示板 -koeki network- - - - - -
    -

    乗せてって掲示板

    -' # HTTPヘッダ -print' -
    -[書込みを絞り込む] -
    -' - -#検索用フォーム -print' -
    -' -printf('>>日付順(全項目表示)<<', myname) -print' -
    - -乗せたいor乗りたい?: -指定なし -一緒に行こう! -乗せて! -
    -行き先: - -条件など: - - - -
    -' - -# フォーム出力 -print' -
    -[書きこむ] -
    -' -printf('
    ', myname) -printf('

    -

    -ユーザー名: %s
    -

    -

    -乗せたいor乗りたい?: -一緒に行こう! -乗せて! -

    -行き先: - -施設名:
    -コメント
    -
    -条件など: - - -
    -
    -', id) - - -#見出し表示定義 -def foo(area, which, z, place, time, terms) - if which == "一緒に行こう!" - printf(' -投稿者: %s %s
    一緒に行こう! -', z, time) - elsif which == "乗せて!" - printf(' -投稿者: %s %s
    乗せて! -', z, time) - end - printf(' -行き先:%s 施設名:%s 条件など:%s -
    -', area, CGI.escapeHTML(place), terms) -end -#見出し表示定義終了 - -no = 0 -id_list.each{|ids| - if id == ids[0] && pass == ids[1] - db = PStore.new("test.db") - db.transaction do # PStoreは db.transaction do ... end で使う - if !db["test10"] - db["test10"] = Hash.new - end - if !db["minicmt5"] - db["minicmt5"] = Hash.new([[]]) - end - data = db["test10"] # ここまではおきまり - data2 = db["minicmt5"] - #printf("%d
    ", tag) - #printf("%s
    ", del) - #printf("%s
    ", data2) - - #ミニコメントの削除 - if del == "72" && id == data2[tag][2] - data2 = data2.delete_if{|key, val| key == tag} - del = "" - end - #printf("%s
    ", data2) - - if id >"" && cmt > "" # 名前とコメント、両方値があるなら登録 - if trm == "" - trm = "なし" - end - data[id] = [time, cmt, which, trm, place, area] # 今日の日付とコメント - end - - parmmit = 0 - for c2 in data2.keys - if data2[c2][4] == original_id - parmmit = 1 - break - end - end - if id > "" && com > "" && parmmit == 0 - c1 = 0 - for check in data2.sort{|a, b| a[0] <=> b[0]} - if !(c1 == check[0]) - break - end - c1 += 1 - end - #printf("%d
    ", c1) - data2[c1] = [time, com, id, mst_id, original_id] - end - # printf("%s", data2.sort{|a, b| a[0] <=> b[0]}) - - if edit_id > "" && data[edit_id] - oldcomment = data[edit_id][1] - oldplace = data[edit_id][4] - oldterms = data[edit_id][3] - end - #p data2 - - print'
    ' - - # 選択のreal view - which_value = {2 => "一緒に行こう!", 3 => "乗せて!"} - area_value = {5 => "酒田", 7 => "庄内", 11 => "県内", 13 => "県外"} - terms_value = {17 => "おごって下さい!", 19 => "ガソリン代出して下さい!", 23 => "ジュース一本で!", 29 => "そのほか", 31 => "なし", 37 => "何かおごります!", 41 => "ガソリン代出します!"} - - if !(link == "linked") - for k in data.keys.sort{|x, y| - data[y][0] <=> data[x][0] # 日付の新しい順にソート - } - day = data[k][0] # 第0要素が日付 - msg = data[k][1] # 第1要素がコメント、それぞれ取り出す - which = data[k][2].to_i - trm = data[k][3].to_i - place = data[k][4] - area = data[k][5].to_i - - #printf("%s", area_value[area]) - - #検索エンジン - if main_mode == "on" - t = index_which * index_area * index_terms - #printf("%d", t) - if t == which || t == trm || t == area || t == (which * trm) || t == (which * area) || t == (trm * area) || t == (which * trm * area) || t == 1 - printf('
    ', myname, k) - foo(area_value[area], which_value[which], k, data[k][4], day.strftime("%Y年%m月%d日(%a) %H:%M:%S"), terms_value[trm]) - end - else - printf('
    ', myname, k) - foo(area_value[area], which_value[which], k, data[k][4], day.strftime("%Y年%m月%d日(%a) %H:%M:%S"), terms_value[trm]) - end - end - #大きい掲示板表示(link = linkedであるとき) - else - - # 既存のコメント出力(キー毎) - # 定義環境開始 - - for i in data.keys.sort{|x, y| - data[y][0] <=> data[x][0] # 日付の新しい順にソート - } - day = data[i][0] # 第0要素が日付 - msg = data[i][1] # 第1要素がコメント、それぞれ取り出す - which = data[i][2].to_i - trm = data[i][3].to_i - place = data[i][4] - area = data[i][5].to_i - if mst2_id == i - print "
    \n" - # ID を出力 - printf("
    記載者: %s \n", i) - printf(" %s
    \n", day.strftime("%Y年%m月%d日(%a) %H:%M:%S")) - printf(' -

    乗せたいor乗りたい?: %s

    行き先: %s

    施設名: %s

    条件など: %s

    « コメント »

    %s

    -', CGI.escapeHTML(which_value[which]), CGI.escapeHTML(area_value[area]), CGI.escapeHTML(place), CGI.escapeHTML(terms_value[trm]), CGI.escapeHTML(msg)) - printf(' -[コメントする] -

    -
    - - - -
    - - -
    -
    -', i, i, myname, Time.now.to_i, i, i) - printf(' -[この記事に対するコメントを見る] -
    -', i, i) - # 既存のコメント出力(キー毎) - print "
    \n" # 定義環境開始 - #k = 0 - c2 = 0 - for f in data2.keys.sort{|w, z| - data2[z][0] <=> data2[w][0] - } - day1 = data2[f][0] # 第0要素が日付 - msg1 = data2[f][1] # 第1要素がコメント、それぞれ取り出す - id1 = data2[f][2] - mst_id = data2[f][3] - - if mst_id == i - c2 += 1 - printf("
    記載者: %s", f, id1) - printf(" %s\n", day1.strftime("%Y年%m月%d日(%a) %H:%M:%S")) - if id1 == id - printf('削除
    ', myname, f, mst_id) - end - printf('

    %s

    ', CGI.escapeHTML(msg1)) - print"
    " - end - # k += 1 - end - if c2 == 0 - print'

    この提案に対するコメントはありません。

    ' - end - print'
    ' - end - end - #print"" # 定義環境終了 - end - end # db.transaction 終わり - no = 0 - break - else - no += 1 - end -} - if no > 0 - print' -

    IDまたはパスワードが不正です!
    再度ログイン -して下さい!

    -' - end - - print" -もどる。 -ろぐあうと。 -" - -print " -
    -
    c112124@h.koeki-u.ac.jp
    -
    \n -" diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/db/test.db Binary file program/GiveMeALiftInYourCar/db/test.db has changed diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/group.css --- a/program/GiveMeALiftInYourCar/group.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,261 +0,0 @@ -body { - - background-image:url('nazo6.png'); - background-attachment:fixed; - -} - -h2 { - - padding-left: 1%; - border-left: 10px solid orange; - -} - -h3{ - margin-top: 0.5%; - margin-bottom: 1%; -} - -dd{ - - margin-top: 0; - -} - -pre { - - margin-top: 0; - margin-bottom: 2%; - white-space: pre; /* CSS 2.0 */ - white-space: pre-wrap; /* CSS 2.1 */ - white-space: pre-line; /* CSS 3.0 */ - white-space: -pre-wrap; /* Opera 4-6 */ - white-space: -o-pre-wrap; /* Opera 7 */ - white-space: -moz-pre-wrap; /* Mozilla */ - white-space: -hp-pre-wrap; /* HP Printers */ - word-wrap: break-word; /* IE 5+ */ - -} - -.base{ - - background-color:rgba(255,255,255,0.6); - margin-top: 2%; - margin-right: 4%; - margin-left: 4%; - margin-bottom: 2%; - padding-top: 2%; - padding-right: 3%; - padding-left: 3%; - padding-bottom: 2%; - border: 3px double navy; border-radius: 3em 3em; - -} - -p{ - - margin-top: 1%; - -} - -p.com { - - margin-top: 0; - margin-right: 0; - margin-left: 5%; - margin-bottom: 0; - -} - -.mgn_l_2{ - - margin-left: 2%; - overfowe: hidden; - -} - -.mgn_2{ - - margin-bottom: 2%; - -} - -form { - - wrap: hard; - -} - -/*ソート時のミニ記事の設定*/ -/* -.minibb { - - margin: 2%; - padding-top: 1.5%; - padding-right: 1%; - padding-bottom: 1.5%; - padding-left: 2%; - background-color:rgba(91,202,255,0.7); - #background-color:rgba(255,96,175,0.7); - border: 3px dotted navy; border-radius: 2em 2em; - box-shadow: #444 3px 3px 3px 1px; - position: relative; - z-index: 0; - -} -*/ -.want{ - - margin-left: 2%; - -} - -.have { - - margin-left: 2%; - -} - -.bb { - - margin: 2%; - padding: 2.5%; - background-color:rgba(91,202,255,0.7); - #background-color:rgba(255,96,175,0.7); - border: 3px dotted navy; border-radius: 2em 2em; - box-shadow: #444 3px 3px 3px 1px; - -} - -.white{ - - color: #282828; - -} - -/* -a:link { - - color: #ff60af; - -} - -a:visited { - - color: darkorange; - -} - -a:active { - - color: white; - -} - -a:nover { - - color: #c3c3c3; - -} -*/ - -dl dl div { - - background-color:rgba(255,255,255,0.3); - margin-top: 1.5%; - margin-bottom: 1.5%; - padding-left: 2.5%; - padding-top: 0.5%; - padding-bottom: 0; - border: 2px dashed navy; border-radius: 2em 2em; - box-shadow: #444 3px 3px 3px 1px; - -} - -div.link{ - - margin: 0; - padding-right: 1%; - padding-bottom: 0%; - background-color:rgba(91,202,255,0); - #background-color:rgba(255,96,175,0); - border: 3px none white; border-radius: 2em 2em; - position: relative - z-index: 1; - -} - -div.index { - - margin-top: 0.5ex; - -} - -.mgn_b_1ex{ - - margin-bottom: 1ex; - -} - -div.paka { - - clear: right; - width: 15em; - -} - -form{ - - clear: left; - -} - -.user_name{ - - color: #ff6c16 ; - margin-right: 2ex; - -} - -/*ボックスリンク*/ -.minibb a{ - - display:block; - margin: 2%; - padding-top: 1.5%; - padding-right: 1%; - padding-bottom: 1.5%; - padding-left: 2%; - background-color:rgba(91,202,255,0.7); - color:#000000; - border: 3px dotted navy; border-radius: 2em 2em; - text-decoration:none; - vertical-align:middle; - box-shadow: #444 -3px 3px 3px 1px; - - -} -.minibb a:hover{ - background-color:rgba(255,165,0,0.7); - font-size: 110%; - box-shadow: #444 -3px 7px 3px 1px; - -} - -/*文字を強調*/ -.bold { - - font-weight: bold; - -} - -/* -.object { - - transform: translate(500px,100px); - border:thin solid ; - weight: 20%; - - -*/ diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/group_works.js --- a/program/GiveMeALiftInYourCar/group_works.js Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,101 +0,0 @@ -//表示状態切り替え文章の一括非表示化関数 -function initAllPakapaka() { - if(document.getElementsByTagName("div")) { - var divElements = document.getElementsByTagName("div"); - } else { - return; - } - for(var i = 0; i < divElements.length; i++) { - if(divElements[i].className == "pakapaka") { - divElements[i].style.display = "none"; - } - } -} - -function initAllPakapaka2() { - if(document.getElementsByTagName("div")) { - var divElements = document.getElementsByTagName("div"); - } else { - return; - } - for(var i = 0; i < divElements.length; i++) { - if(divElements[i].className == "pakapaka2") { - divElements[i].style.display = "none"; - } - } -} - - -//文章の表示・非表示切り替え用関数 -function pakapaka(id) { - if(document.getElementById) { - var paka = document.getElementById(id); - } else { - return; - } - if(paka.style.display == "block") { - paka.style.display = "none"; - - } else { - paka.style.display = "block"; - } -} - - -//文章の表示・非表示切り替え用関数(ver.index) -function pakapakain(id) { - if(document.getElementById) { - var paka = document.getElementById(id); - } else { - return; - } - if(paka.style.display == "block") { - paka.style.display = "none"; - - } else { - paka.style.display = "block"; - } -} - - -//文章の表示・非表示切り替え用関数 -function pakapaka2() { - if(document.getElementById) { - var pakas = document.getElementById("form"); - var pakam = document.getElementById("index"); - } else { - return; - } - if(pakas.style.display == "block") { - pakas.style.display = "none"; - pakam.style.display = "block"; - - } else { - pakas.style.display = "block"; - pakam.style.display = "none"; - } -} - - -function entryChange1(){ - radio = document.getElementsByName('which') - if(radio[0].checked) { - //フォーム - document.getElementById('have').style.display = ""; - document.getElementById('want').style.display = "none"; - //特典 - document.getElementById('firstNotice').style.display = ""; - }else if(radio[1].checked) { - //フォーム - document.getElementById('have').style.display = "none"; - document.getElementById('want').style.display = ""; - //特典 - document.getElementById('firstNotice').style.display = "none"; - } -} - -//サイトのfont変更 - -//オンロードさせ、リロード時に選択を保持 -window.onload = entryChange1; - diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/koeki-network.png Binary file program/GiveMeALiftInYourCar/koeki-network.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/login.html --- a/program/GiveMeALiftInYourCar/login.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ - - - - -ログイン -koeki network- - - - - -
    -

    300x167(14204bytes)

    -

    ろぐいん

    -
    -
    - -
    -ユーザーID:
    -パスワード:
    - - -
    -
    あかうんとを作る。 チームjapanetのページへ -
    -
    - -
    c112124@h.koeki-u.ac.jp
    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/login_pre.rb --- a/program/GiveMeALiftInYourCar/login_pre.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,174 +0,0 @@ -#!/usr/bin/env ruby -# coding: euc-jp - -require 'pg' -require 'cgi' - -c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") -id = c["id"].to_s -pass = c["pass"].to_s -if id == "" && pass == "" -id = c.cookies["id"][0] -pass = c.cookies["pass"][0] -end -str = CGI::rfc1123_date(Time.now + (24 * 60 * 60)) -p_str = CGI::rfc1123_date(Time.now - (24 * 60 * 60)) - -#HTTPヘッダー -out = c["out"].to_s - -if out == "ok" -print("Content-type: text/html; charset=EUC-JP -Set-Cookie: id=#{id}; expires=#{p_str}; -Set-Cookie: pass=#{pass}; expires=#{p_str}; \n\n") -id = "" -pass = "" -else -print("Content-type: text/html; charset=EUC-JP -Set-Cookie: id=#{id}; expires=#{str}; -Set-Cookie: pass=#{pass}; expires=#{str}; \n\n") -end - -vist = c["vsit"] - -table = "group_works_id" -myname = "login.rb" - -pghost = "localhost" -pgport = 5432 -pgoptions = nil -pgtty = nil -dbname = "c112124" -dbuser = "c112124" -passwd = nil - - - -sql = "SELECT * FROM #{table} " - -conn = PGconn.connect(pghost, pgport, pgoptions, pgtty, dbname, dbuser, passwd) -tuple = conn.exec(sql) - -value = [] -id_list = [] -x = 0 - -tuple.each{|line| - value = line.values - id_list[x] = [value[0].to_s, value[1].to_s] - x += 1 -} - -tuple.clear -conn.close - -#p id_list -#p id -#p pass - -no = 0 - -id_list.each{|ids| - if id == ids[0] && pass == ids[1] - printf(' - - - -トップページ -koeki network- - - - - - -
    -

    300x167(14204bytes) -

    - - -

    ようこそ! %sさん

    - - -

    -御利用の際にはKoeki Networkの使い方をよく読んで楽しく、便利なKOEKIライフを! -

    - -
    -乗せてって掲示板 -

    -同乗者を募るカーシェア掲示板です! -

    -グルメデータベース -

    --- β版(スタッフ作業用) ---

    -その他情報報告所 -

    --- 現在調整中(under construction) ---

    -雑談掲示板 -

    --- 現在調整中(under construction) ---

    -
    -', id) -print" -もどる。 -ろぐあうと。 -
    -" - no = 0 - break - else - no += 1 - end -} -if no > 0 - print' - - - -ログイン -koeki network- - - - - -
    -

    300x167(14204bytes) -

    -

    ろぐいん

    -
    -' - if vist == "visted" - print"

    エラー
    パスワードかIDが間違っています!!

    " - end - printf("\n", myname) - printf'

    -ユーザーID:
    -パスワード :
    - - -
    -

    あかうんとを作る。 もどる。 -
    -
    -' -end -print' -
    -
    c112124@h.koeki-u.ac.jp
    -
    - - -' - diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/nazo6.png Binary file program/GiveMeALiftInYourCar/nazo6.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/new_acount.rb --- a/program/GiveMeALiftInYourCar/new_acount.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,124 +0,0 @@ -#!/usr/bin/env ruby -# coding: euc-jp - -require 'sqlite3' -require 'cgi' - -c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") -sub_name = c["sub_name"] -pass = c["pass"] -# Check user visted this page. -visit = c["visit"] - -#HTTPヘッダー -print("Content-type: text/html; charset=EUC-JP \n\n") - -db = SQLite3::Database.new("sql/acounts.sq3") -# sqlite_masterからテーブルを取得 -sql_master = "SELECT name FROM sqlite_master;" -# acounts テーブルの設定 -sql = "CREATE TABLE acounts ( -sub_name TEXT PRIMARY KEY, -name TEXT, -address TEXT, -student_number TEXT, -password TEXT -);" -# sql_masterの実行結果をsqlite_masterに代入 -sqlite_master = db.execute(sql_master) -x = 0 -value_master = Array.new -sqlite_master.each {|line| - value_master[x] = line - x += 1 -} - -# テーブルが存在しなければテーブルを作成 -check = 0 -if !(value_master == []) - for n in value_master[check] - if n == "acounts" - check += 1 - break - end - end -end -if check == 0 - db.execute(sql) -end -# HTML(入力フォーム) -# ヘッダー -print' - - - -アカウント作成 -koeki network- - - - -
    -

    300x167(14204bytes) -

    -

    あかうんと作成

    -
    -' -# 入力データの確認 -if sub_name > "" && pass > "" -# 入力データをデータベースと照合 - sql_check = "select sub_name from acounts where sub_name=?;" - acounts = db.execute(sql_check, sub_name) - if acounts == [] - # アカウントの追加 - sql_acount = "INSERT INTO acounts VALUES(?,'n','n','n',?);" - db.execute(sql_acount, sub_name, pass) - # アカウント作成成功時の画面 - print' -アカウントの作成に成功しました。
    -下のリンクからログインして下さい。

    -ログイン -' - else - # アカウント作成失敗時（ユーザー名重複） - print' -すでに使用されているユーザー名です。
    -下のリンクから再度アカウント作成を行ってください.

    -アカウント作成画面に戻る -' - end -else - if visit > "" - print'

    入力されてない項目があります！

    ' - end -# 入力画面 -print' - -

    - - - -
    ユーザー名:
    パスワード:
    - - -
    -

    -' -end - -db.close - -# フッダー -print' -
    -ログイン画面に戻る
    -
    -
    -
    c112124@h.koeki-u.ac.jp
    -
    - - -' diff -r 2e332b1abf94 -r d2d89793be14 program/GiveMeALiftInYourCar/top.rb --- a/program/GiveMeALiftInYourCar/top.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,110 +0,0 @@ -#!/usr/bin/env ruby -# coding: euc-jp - -require 'sqlite3' -require 'cgi' - -c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP") -sub_name = c["sub_name"] -pass = c["pass"] -visited_login = c["vis_log"] -# cookieの情報を取得 -if sub_name == "" && pass == "" - sub_name = c.cookies["sub_name"][0] - pass = c.cookies["pass"][0] -end - -db = SQLite3::Database.new("sql/acounts.sq3") - -permission_display = "ok" -# ユーザー認証 -if visited_login == "visited_login" - sql_check = "SELECT * FROM acounts WHERE sub_name=? AND password=?;" - checked_acount = db.execute(sql_check, sub_name, pass) - if !(checked_acount == []) - # HTTPヘッダー - str = CGI::rfc1123_date(Time.now + (24 * 60 * 60)) - # cookie発行 - print("Content-type: text/html; charset=EUC-JP -Set-Cookie: sub_name=#{sub_name}; expires=#{str}; -Set-Cookie: pass=#{pass}; expires=#{str}; \n\n") - else - print("Content-type: text/html; charset=EUC-JP \n\n") - permission_display = "no" - end -elsif visited_login == "out" - # cookieの失効 - p_str = CGI::rfc1123_date(Time.now - (24 * 60 * 60)) - print("Content-type: text/html; charset=EUC-JP -Set-Cookie: sub_name=#{sub_name}; expires=#{p_str}; -Set-Cookie: pass=#{pass}; expires=#{p_str}; \n\n") - sub_name = "" - pass = "" -else - print("Content-type: text/html; charset=EUC-JP \n\n") -end -# HTML -# ヘッダー -print' - - - -トップページ -koeki network- - - - - -
    -

    300x167(14204bytes) -

    -' -if permission_display == "ok" - # ログイン成功時のみ表示 - if sub_name > "" && pass > "" - printf(' -

    ようこそ! %sさん

    -', sub_name) - else - print'

    ようこそ! ログインはこちら
    アカウントをお持ちでない方はこちらで作成できます。
    *アカウントを取得し、ログインすることで書込み等の機能を利用できます。

    ' - end - print' - -

    -御利用の際にはKoeki Networkの使い方をよく読んで楽しく、便利なKOEKIライフを! -

    -
    -乗せてって掲示板 -

    -同乗者を募るカーシェア掲示板です! -

    -グルメデータベース -

    --- β版(スタッフ作業用) ---

    -その他情報報告所 -

    --- 現在調整中(under construction) ---

    -雑談掲示板 -

    --- 現在調整中(under construction) ---

    -' -else -print' -
    -

    エラー
    パスワードかIDが間違っています!! -もう一度ログインページからログインして下さい。 -

    -' -end -# フッダ− -print' -
    c112124@h.koeki-u.ac.jp
    -
    -
    -ろぐあうと。 -ほかのアカウントでログイン。 -
    - - -' diff -r 2e332b1abf94 -r d2d89793be14 program/bana1-7.png Binary file program/bana1-7.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/bana3-17.png Binary file program/bana3-17.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/.htaccess --- a/program/bus_cgi/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -AddHandler cgi-script .rb -Options +ExecCGI diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/bus.css --- a/program/bus_cgi/bus.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,29 +0,0 @@ -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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/bus.png Binary file program/bus_cgi/bus.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/bus.rb --- a/program/bus_cgi/bus.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,124 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/daigaku.html --- a/program/bus_cgi/daigaku.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,107 +0,0 @@ - - - -るんるんバス時刻検索 - - - - - - - -

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

    -
    -

    路線図

    -

    作成中です・・・

    -
    -

    時刻検索

    - -

    駅方面 -かんぽの郷方面

    -

    出発＊ -

    - -

    到着＊ -

    - -

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

    - -

    - - -

    - -
    -

    プログラムに関して

    -

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

    -
    -戻る -SKIP - - diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/daigaku.rb --- a/program/bus_cgi/daigaku.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,124 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/home.html --- a/program/bus_cgi/home.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ - - - -るんるんバス時刻検索 - - - - - -

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

    -
    -

    路線図

    -
    - -
    -
    -

    路線一覧

    - -
    -
    -

    プログラムに関して

    -

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

    -
    -SKIP - - diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/kanpo.html --- a/program/bus_cgi/kanpo.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,101 +0,0 @@ - - - -るんるんバス時刻検索 - - - - - -
    - -

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

    -
    -

    路線図

    -

    作成中です・・・

    -
    -

    時刻検索

    - -

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

    -

    出発＊ -

    - -

    到着＊ -

    - -

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

    - -

    - - -

    -
    -
    -

    プログラムに関して

    -

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

    - - diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/kominato.html --- a/program/bus_cgi/kominato.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,101 +0,0 @@ - - - -るんるんバス時刻検索 - - - - - -
    - -

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

    -
    -

    路線図

    -

    作成中です・・・

    -
    -

    時刻検索

    - -

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

    -

    出発＊ -

    - -

    到着＊ -

    - -

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

    - -

    - - -

    -
    -
    -

    プログラムに関して

    -

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

    - - diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/rosen.obj --- a/program/bus_cgi/rosen.obj Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,581 +0,0 @@ -%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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/rosen.png Binary file program/bus_cgi/rosen.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/rosenzu.obj --- a/program/bus_cgi/rosenzu.obj Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,611 +0,0 @@ -%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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/rosenzu.png Binary file program/bus_cgi/rosenzu.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/shinai.html --- a/program/bus_cgi/shinai.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,176 +0,0 @@ - - - -るんるんバス時刻検索 - - - - - -
    - -

    市内循環線バス時刻検索

    -
    -

    路線図

    -

    作成中です・・・

    -
    -

    時刻検索

    - -

    右回り -左回り

    -

    出発＊ -

    - -

    到着＊ -

    - -

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

    - -

    - - -

    -
    -
    -

    プログラムに関して

    -

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

    -
    -戻る -SKIP - - diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/shinai.rb --- a/program/bus_cgi/shinai.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,117 +0,0 @@ -#!/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("

    検索結果

    ") -a = 0 -if which == "t" - while true - if time.to_i < bus[arr][0].to_i - if /(\S\S)(\S\S)/ =~ bus[dep][8] - dhour = $1 - dmin = $2 - end - if /(\S\S)(\S\S)/ =~ bus[arr][8] - ahour = $1 - amin = $2 - end - printf("

    乗車 %s %s:%s\n

    \n",dep ,dhour, dmin) - 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 - printf("

    乗車 %s %s:%s\n

    \n",dep ,dhour, dmin) - 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 - printf("

    乗車 %s %s:%s\n

    \n",dep ,dhour, dmin) - 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 - printf("

    乗車 %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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/yahata.html --- a/program/bus_cgi/yahata.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,100 +0,0 @@ - - - -るんるんバス時刻検索 - - - - -
    - -

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

    -
    -

    路線図

    -

    作成中です・・・

    -
    -

    時刻検索

    - -

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

    -

    出発＊ -

    - -

    到着＊ -

    - -

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

    - -

    - - -

    -
    -
    -

    プログラムに関して

    -

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

    - - diff -r 2e332b1abf94 -r d2d89793be14 program/bus_cgi/zikan.rb --- a/program/bus_cgi/zikan.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,18 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/zikoku1.txt --- a/program/bus_cgi/zikoku1.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,12 +0,0 @@ -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 2e332b1abf94 -r d2d89793be14 program/bus_cgi/zikoku2.txt --- a/program/bus_cgi/zikoku2.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,12 +0,0 @@ -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 2e332b1abf94 -r d2d89793be14 program/button.png Binary file program/button.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/button2.png Binary file program/button2.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/cgi/.htaccess --- a/program/cgi/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -Options +ExecCGI -AddType "text/html; charset=utf-8" .rb -AddHandler cgi-script .rb -AddHandler cgi-script .sh diff -r 2e332b1abf94 -r d2d89793be14 program/cgi/bus.html --- a/program/cgi/bus.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,96 +0,0 @@ - - - -るんるんバス時刻検索 - - - - - -
    - -

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

    -
    -

    るんるんバス時刻検索

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

    出発＊ -

    - -

    到着＊ -

    - -

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

    - -

    - - -

    -
    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/cgi/bus.rb --- a/program/cgi/bus.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,86 +0,0 @@ -#!/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 2e332b1abf94 -r d2d89793be14 program/cgi/env.sh --- a/program/cgi/env.sh Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -#!/bin/sh -echo Content-type: text/plain -env|sort diff -r 2e332b1abf94 -r d2d89793be14 program/cgi/test.rb --- a/program/cgi/test.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,14 +0,0 @@ -#!/usr/bin/env ruby19 -# coding: utf-8 - -print <<_EOF_ -Content-Type: text/html; charset=utf-8 - - -Test CGI script - - -

    ユ茯阪鴻

    - - -_EOF_ diff -r 2e332b1abf94 -r d2d89793be14 program/menubutton.png Binary file program/menubutton.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/program.html --- a/program/program.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ - - - -SKIP - Shonai Koeki Information Project - - - - - -
    -
    - -
    top取材プログラムアンケートきらりびと -
    -
    -
    - -
    -kamon -
    - - -

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

    -

    復刻版

    -
    -

    るんるんバスを利用しよう♪

    -

    CookKitchen

    -

    ぶりーだぁ

    -

    わーやぁ、どの店いー？

    -

    スイーツパラダイス

    -

    最長６時間

    -
    - - - diff -r 2e332b1abf94 -r d2d89793be14 program/program128.png Binary file program/program128.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/program256.png Binary file program/program256.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/program32.png Binary file program/program32.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/program64.png Binary file program/program64.png has changed diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/.htaccess --- a/program/runrun/.htaccess Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -AddHandler cgi-script .rb -Options +ExecCGI -AddType "text/html; charset=utf-8" .html diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/ekime.txt --- a/program/runrun/ekime.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,164 +0,0 @@ - #勀綏 -育 ------篁ヤ絽緇医勀糸窪----- -筝肴タ -絽綵号茱 -絮怨 -医紫祉潟帥弱 -医紫祉潟帥弱 -篋九灸梢絮 -帥1筝 -帥2筝 -坂困 -ユ羌欠 -紙 -筝∞晶 -篋九6筝 -篋九3筝 -上潟ャｃ祉潟帥弱 -怨ぇ2筝 -ゅ頑胼霛祉潟帥弱 -羂顔 -延賢 -筝 -篋 -筝 -筝肴タ -筝3筝 -絲睡 -祉潟帥弱 -亥1筝 -腮臀峨 -銀1筝 -絮若 -級≦ -ョ -羈茱水 -級≦ -ョ -羈茱水 -茱翠≦ -ゃ泣若鴻祉潟帥若水 -羈 -掩2筝 - -薈怨 -薈怨遺 -亥 -羌2筝 -羌1筝 -育 -悟 -激寂査祉潟帥弱 -筝紊 -筝肴タ - ---------篁ヤ育紊у膩-------- -育罩ｉ√ -牙腓上 -祉潟帥惹ｉ√ -祉潟帥弱 -筝肴タ -篋 -絮怨綺 -絽銀臥え -蕭荀 -膩銀1筝 -絎羌灸梢絮 -九ｅ医 -紊у -活綽級え -綏ユキｅ医 -榊晶綽蕕紫茵蕕 -純絎 - - --------篁ヤ育順------- -育罩ｉ√ -綺篋ゃ帥若 -羈 -1筝 -茱翠違潟 -ゃ泣若鴻祉潟帥若水 -筝絎 -筝絎 -筝絎3筝 -筝絎 -井 -井 -井灸梢絮 -羌2筝 -羌遺峨 -筝紊 -ュ嵯祉潟帥弱 -筝 -羌潔絽翫 -絮怨罘 -絮怨綺 -医紫祉潟帥弱 -医紫祉潟帥弱 -篋九4筝 -篋九5筝 -紊紙 -紙 -ユ羌欠 -筝 -綏罘 -3筝 -篆俄鎘 -蕋罍絮怨羂蕕 -活綽級え -紊у() -九ｅ医 -絎羌灸梢絮 -膩銀1筝 -蕭荀 -紊у() -榊晶綽蕕紫茵蕕 -純絎 -九ｅ医 - --------篁ヤゆ莇膩-------- -ゆ -蕭 -絮怨合√ -銀4筝 -娯腴倶翫 -娯腴倶頑 -銀2筝 -亥2筝 -亥2筝 -ュ1筝 - -篏 -銀1筝 -腮臀峨 -亥1筝 -祉潟帥弱 -絲睡 -筝3筝 -筝肴タ -絽綵号茱 -絮怨肴タ -羝 -ョ合 -医紫祉潟帥弱 -篋九灸梢絮 -帥1筝 -帥2筝 -坂困 -ユ羌欠 -紊у3筝 -紊у4筝 -咲 -絨 -亥 -莇薈 -莇膩 -紊腑 -恰 -罅 -≦臼 -筝 -絮掩ク -羝羈 diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/mituyuki diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/prac.css --- a/program/runrun/prac.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -body{background-image: url(mizutama4.png); -background-repeat: repeat;} -p{font-size: 120%; font-weight: 700;} diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/rosen.txt --- a/program/runrun/rosen.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,9 +0,0 @@ -育紊у膩 育 牙腓上 祉潟帥惹ｉ√ 祉潟帥弱 筝肴タ 篋 絮怨綺 絽銀臥え 蕭荀 膩銀1筝 絎羌灸梢絮 九 ｅ医 紊у 活綽級え 綏ユキｅ医 榊晶綽蕕紫茵蕕 純絎 - -育順(紙糸ラ茵) 育罩ｉ√ 綺篋ゃ帥若 羈 1筝 茱翠違潟 ゃ泣若鴻祉潟帥若水 筝絎 筝絎 筝絎3筝 筝絎 井 井 井灸梢絮 羌2筝 羌遺峨 筝紊 筝肴タ ュ嵯祉潟帥弱 羌潔絽翫 絮怨罘 絮怨綺 医紫祉潟帥弱 医紫祉潟帥弱 篋怨4筝 篋怨5筝 紊紙 ユ羌欠 紙 筝 綏罘 3筝 篆俄鎘 蕋罍絮怨羂蕕 活綽級え 紊у鐚器 九ｅ医 絎羌灸梢絮 膩延1筝 蕭荀 紊у鐚器 榊晶綽蕕紫茵蕕 純絎 - -絽緇医勀 筝肴タ 絽綵号茱 絮怨 医紫祉潟帥 ｉ医紫祉潟帥 篋怨灸梢絮 帥1筝 帥2筝 坂困 ユ羌欠 紙 筝∞晶 篋怨6筝 篋怨3筝 上潟ャｉ牙純祉潟帥弱 怨ぇ2筝 ゅ頑胼霛祉潟帥弱 羂顔 延賢 筝 篋 筝 筝3筝 絲睡 祉潟帥弱 亥1筝 腮臀峨 延1筝 絮若 級≦ ョ 羈茱水 茱翠≦ ゃ泣若鴻祉潟帥若水 羈 掩2筝 薈怨 薈怨遺 亥 羌2筝 羌1筝 育悟 激寂査祉潟帥弱 筝紊 筝肴タ - -絽緇医窪 筝 筝紊 激寂査祉潟帥弱 悟 育 羌1筝 羌2筝 亥 薈怨遺 薈怨 羈茱水 茱翠≦ ゃ泣若鴻祉潟帥若水 羈 掩2筝 ョ 級≦ 絮若 延1筝 腮臀峨 亥1筝 祉潟帥弱 絲睡 筝3筝 筝肴タ 篋 筝 延賢 羂顔 ゅ頑胼霛祉潟帥弱 怨ぇ2筝 上潟ャｉ牙純祉潟帥弱 篋怨3筝 篋怨6筝 筝∞晶 紙 ユ羌欠 坂困 帥2筝 帥1筝 篋怨灸梢絮 医紫祉潟帥弱 医紫祉潟帥弱 絮怨 絽綵号茱 筝 - -ゆ莇薈(紙梓脂ラ茵) ゆ 蕭 絮怨合√ 延4筝 娯腴倶翫 娯腴倶頑 延2筝 亥2筝 亥2筝 ュ1筝 篏 延1筝 腮臀峨 亥1筝 祉潟帥弱 絲睡 筝3筝 筝肴タ 絽綵号茱 絮怨 茱炊遣 ョ合 医紫祉潟帥弱 篋怨灸梢絮 帥1筝 帥2筝 坂困 ユ羌欠 紊у3筝 紊у4筝 咲 絨 亥 莇薈 莇膩 紊腑 恰 罅 ≦臼 筝 絮掩ク 羝羈 diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/runrunbus.rb --- a/program/runrun/runrunbus.rb Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,124 +0,0 @@ -#!/usr/bin/env ruby -# coding: utf-8 -require 'cgi' -require 'kconv' -c = CGI.new(:accept_charset => "UTF-8") - -def zikoku(req, sel, fir, time) - hoge = req + sel - if i = fir[hoge].find { |n| time <= n.to_i } - printf("%4d冴с
    ", i) - i = i.to_i - y = fir[hoge].find { |m| i < m.to_i } - if y == nil - print "篁ラ膺ャс" - elsif y > "" - printf("罨＜%4d冴障
    ", y) - end - print "茗眼障\n" - else - print "膺ヤ札с\n" - end -end - -q = Hash.new() -open("zikokuhyo.txt", "r") do |stst| - while line = stst.gets - line = line.toutf8 - if /^(\S+)\s(.*)/ =~ line - q[$1] = $2.split - end - end -end - -rosen = Hash.new() -open("rosen.txt", "r") do |ro| - while line = ro.gets - line = line.toutf8 - if /^(\S+)\s(.*)/ =~ line - rosen[$1] = $2.split - end - end -end - -ekime = {} -n = 0 -open("ekime.txt", "r") do |yomi| - while line = yomi.gets - if /^(\S+)/ =~ line.toutf8 - ekime[n] = $1 - ekime[n] = ekime[n].toutf8 - n += 1 - end - end -end -n1 = n -n = 0 -sel = ARGV[0] -req = c["start"].toutf8 -sel = c["goal"].toutf8 - -puts"Content-type: text/html; charset=utf-8\n - - -runrun bus" -#puts"

    違

    -puts"\"bus\" -
    -" - -puts"

    箙

    ") -if sel == "" - n = 0 - puts"

    \n" -print"

    \n

    箙:

    " -printf("\n

    ", sel) -print"

    - -" -h = c["hour"].to_i -m1 = c["minute"] -m = c["minute"].to_i -a = h * 100 + m -if req > "" - print "

    \n" - print "

    鴻罎膣∝

    \n" - print "

    #{req}#{sel}拷∵

    \n" - print "

    #{h}:#{m1}鴻筝菴

    \n" - print "

    " - printf("%s

    \n", zikoku(req, sel, q, a)) -end -print "
    TOP
    " -print "荀喝井膣≪" -puts"

    鴻若活；腓

    " -print"
    \n\n" diff -r 2e332b1abf94 -r d2d89793be14 program/runrun/zikokuhyo.txt --- a/program/runrun/zikokuhyo.txt Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,6268 +0,0 @@ -育罩ｉ√ｅぇ絖 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｅ牙腓上 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｆ祉潟帥惹ｉ√ 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｆ祉潟帥弱 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｄ賢肴タ 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｄ 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｅ臼絮綺 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｅ銀臥え 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｉ荀 820 1010 1130 1415 1600 1735 -育罩ｉ√ｇ延1筝 820 1010 1130 1415 1600 1735 -育罩ｉ√ｅ羌灸梢絮 820 1010 1300 1415 1600 1735 -育罩ｉ√ｇ九ｅ医 820 1010 1300 1415 1600 1735 -育罩ｉ√ｅ轡罐ｅ医 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｅ活綽級え 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｅ榊晶綽蕕紫茵蕕 705 820 1010 1130 1300 1415 1600 1735 1920 -育罩ｉ√ｃ純絎 705 820 1010 1130 1300 1415 1600 1735 1920 - -牙腓上祉潟帥惹ｉ√ 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上祉潟帥弱 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上筝肴タ 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上篋 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上絮怨綺 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上絽銀臥え 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上蕭荀 821 1011 1131 1416 1601 1736 -牙腓上膩延鐚筝 821 1011 1131 1416 1601 1736 -牙腓上絎羌灸梢絮 821 1011 1131 1416 1601 1736 -牙腓上九ｅ医 821 1011 1131 1416 1601 1736 -牙腓上紊у 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上活綽級え 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上綏ユキｅ医 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上榊晶綽蕕紫茵蕕 706 821 1011 1131 1301 1416 1601 1736 1921 -牙腓上純絎 706 821 1011 1131 1301 1416 1601 1736 1921 - -祉潟帥惹ｉ√ｆ祉潟帥弱 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｄ賢肴タ 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｄ 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅ臼絮綺 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅ銀臥え 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｉ荀 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｇ延鐚筝 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅ羌灸梢絮 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｇ九ｅ医 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅぇ絖 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅ活綽級え 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅ轡罐ｅ医 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｅ榊晶綽蕕紫茵蕕 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥惹ｉ√ｃ純絎 707 822 1012 1132 1302 1417 1602 1737 - -祉潟帥弱筝肴タ 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱篋 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱絮怨綺 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱絽銀臥え 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱蕭荀 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱膩延鐚筝 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱絎羌灸梢絮 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱九ｅ医 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱紊у 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱活綽級え 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱綏ユキｅ医 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱榊晶綽蕕紫茵蕕 707 822 1012 1132 1302 1417 1602 1737 -祉潟帥弱純絎 707 822 1012 1132 1302 1417 1602 1737 - -筝肴タ篋 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ絮怨綺 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ絽銀臥え 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ蕭荀 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ膩延鐚筝 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ絎羌灸梢絮 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ九ｅ医 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ紊у 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ活綽級え 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ綏ユキｅ医 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ榊晶綽蕕紫茵蕕 710 825 1015 1135 1305 1420 1605 1740 1925 -筝肴タ純絎 710 825 1015 1135 1305 1420 1605 1740 1925 - -篋阪臼絮綺 711 826 1016 1136 1306 1421 1606 1741 1926 -篋阪銀臥え 711 826 1016 1136 1306 1421 1606 1741 1926 -篋咲荀 711 826 1016 1136 1306 1421 1606 1741 1926 -篋榊延鐚筝 711 826 1016 1136 1306 1421 1606 1741 1926 -篋阪羌灸梢絮 711 826 1016 1136 1306 1421 1606 1741 1926 -篋榊九ｅ医 711 826 1016 1136 1306 1421 1606 1741 1926 -篋阪ぇ絖 711 826 1016 1136 1306 1421 1606 1741 1926 -篋阪活綽級え 711 826 1016 1136 1306 1421 1606 1741 1926 -篋阪轡罐ｅ医 711 826 1016 1136 1306 1421 1606 1741 1926 -篋阪榊晶綽蕕紫茵蕕 711 826 1016 1136 1306 1421 1606 1741 1926 -篋冴純絎 711 826 1016 1136 1306 1421 1606 1741 1926 - -絮怨綺絽銀臥え 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺蕭荀 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺膩延鐚筝 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺絎羌灸梢絮 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺九ｅ医 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺紊у 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺活綽級え 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺綏ユキｅ医 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺榊晶綽蕕紫茵蕕 713 828 1018 1138 1308 1423 1608 1743 1928 -絮怨綺純絎 713 828 1018 1138 1308 1423 1608 1743 1928 - -絽銀臥え蕭荀 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え膩延鐚筝 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え絎羌灸梢絮 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え九ｅ医 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え紊у 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え活綽級え 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え綏ユキｅ医 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え榊晶綽蕕紫茵蕕 715 830 1020 1140 1310 1425 1610 1745 1930 -絽銀臥え純絎 715 830 1020 1140 1310 1425 1610 1745 1930 - -蕭荀佂延鐚筝 833 1023 1143 1428 1613 1748 -蕭荀伾羌灸梢絮 833 1023 1143 1428 1613 1748 -蕭荀佂九ｅ医 833 1023 1143 1428 1613 1748 -蕭荀伾ぇ絖 833 1023 1143 1428 1613 1748 -蕭荀伾活綽級え 833 1023 1143 1428 1613 1748 -蕭荀伾轡罐ｅ医 833 1023 1143 1428 1613 1748 -蕭荀伾榊晶綽蕕紫茵蕕 833 1023 1143 1428 1613 1748 -蕭荀伹純絎 833 1023 1143 1428 1613 1748 - -膩延1筝絎羌灸梢絮 834 1024 1429 1614 1749 -膩延1筝九ｅ医 834 1024 1429 1614 1749 -膩延1筝紊у 834 1024 1429 1614 1749 -膩延1筝活綽級え 834 1024 1429 1614 1749 -膩延1筝綏ユキｅ医 834 1024 1429 1614 1749 -膩延1筝榊晶綽蕕紫茵蕕 834 1024 1429 1614 1749 -膩延1筝純絎 834 1024 1429 1614 1749 - -絎羌灸梢絮九ｅ医 834 1024 1429 1614 1749 -絎羌灸梢絮紊у 834 1024 1429 1614 1749 -絎羌灸梢絮活綽級え 834 1024 1429 1614 1749 -絎羌灸梢絮綏ユキｅ医 834 1024 1429 1614 1749 -絎羌灸梢絮榊晶綽蕕紫茵蕕 834 1024 1429 1614 1749 -絎羌灸梢絮純絎 834 1024 1429 1614 1749 - -九ｅ医紊у 835 1025 1430 1615 1750 -九ｅ医活綽級え 835 1025 1430 1615 1750 -九ｅ医綏ユキｅ医 835 1025 1430 1615 1750 -九ｅ医榊晶綽蕕紫茵蕕 835 1025 1430 1615 1750 -九ｅ医純絎 835 1025 1430 1615 1750 - -紊у活綽級え 720 840 1030 1150 1315 1435 1620 1755 1930 -紊у綏ユキｅ医 720 840 1030 1150 1315 1435 1620 1755 1930 -紊у榊晶綽蕕紫茵蕕 720 840 1030 1150 1315 1435 1620 1755 1930 -紊у純絎 720 840 1030 1150 1315 1435 1620 1755 1930 - -活綽級え綏ユキｅ医 721 841 1031 1151 1316 1436 1621 1756 1931 -活綽級え榊晶綽蕕紫茵蕕 721 841 1031 1151 1316 1436 1621 1756 1931 -活綽級え純絎 721 841 1031 1151 1316 1436 1621 1756 1931 - -綏ユキｅ医榊晶綽蕕紫茵蕕 724 844 1034 1154 1319 1439 1624 1759 1934 -綏ユキｅ医純絎 724 844 1034 1154 1319 1439 1624 1759 1934 - -榊晶綽蕕紫茵蕕純絎 725 845 1035 1155 1320 1440 1627 1802 1942 - - - - -純絎水榊晶綽蕕紫茵蕕 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水轡罐ｅ医 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水活綽級え 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水ぇ絖 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎睡九ｅ医 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水羌灸梢絮 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎睡延1筝 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎翠荀 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水銀臥え 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水臼絮綺 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎推 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎推賢 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎炊祉潟帥弱 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎炊祉潟帥惹ｉ√ 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎水牙腓上 740 910 1050 1210 1335 1500 1700 1815 2010 -純絎翠育罩ｉ√ 740 910 1050 1210 1335 1500 1700 1815 2010 - -榊晶綽蕕紫茵蕕綏ユキｅ医 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕活綽級え 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕紊у 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕九ｅ医 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕絎羌灸梢絮 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕膩延1筝 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕蕭荀 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕絽銀臥え 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕絮怨綺 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕篋 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕筝 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕祉潟帥弱 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕祉潟帥惹ｉ√ 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕牙腓上 742 912 1052 1212 1337 1502 1702 1817 2012 -榊晶綽蕕紫茵蕕育罩ｉ√ 742 912 1052 1212 1337 1502 1702 1817 2012 - -綏ユキｅ医活綽級え 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医紊у 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医九ｅ医 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医絎羌灸梢絮 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医膩延1筝 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医蕭荀 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医絽銀臥え 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医絮怨綺 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医篋 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医筝 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医祉潟帥弱 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医祉潟帥惹ｉ√ 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医牙腓上 743 913 1053 1213 1338 1503 1703 1818 2013 -綏ユキｅ医育罩ｉ√ 743 913 1053 1213 1338 1503 1703 1818 2013 - -活綽級え紊у 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え九ｅ医 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え絎羌灸梢絮 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え膩延1筝 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え蕭荀 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え絽銀臥え 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え絮怨綺 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え篋 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え筝 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え祉潟帥弱 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え祉潟帥惹ｉ√ 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え牙腓上 746 916 1056 1216 1341 1506 1706 1821 2016 -活綽級え育罩ｉ√ 746 916 1056 1216 1341 1506 1706 1821 2016 - -紊у九ｅ医 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у絎羌灸梢絮 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у膩延1筝 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у蕭荀 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у絽銀臥え 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у絮怨綺 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у篋 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у筝 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у祉潟帥弱 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у祉潟帥惹ｉ√ 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у牙腓上 747 917 1057 1217 1342 1507 1707 1822 2017 -紊у育罩ｉ√ 747 917 1057 1217 1342 1507 1707 1822 2017 - -九ｅ医絎羌灸梢絮 922 1102 1222 1512 1712 1827 -九ｅ医膩延1筝 922 1102 1222 1512 1712 1827 -九ｅ医蕭荀 922 1102 1222 1512 1712 1827 -九ｅ医絽銀臥え 922 1102 1222 1512 1712 1827 -九ｅ医絮怨綺 922 1102 1222 1512 1712 1827 -九ｅ医篋 922 1102 1222 1512 1712 1827 -九ｅ医筝 922 1102 1222 1512 1712 1827 -九ｅ医祉潟帥弱 922 1102 1222 1512 1712 1827 -九ｅ医祉潟帥惹ｉ√ 922 1102 1222 1512 1712 1827 -九ｅ医牙腓上 922 1102 1222 1512 1712 1827 -九ｅ医育罩ｉ√ 922 1102 1222 1512 1712 1827 - -絎羌灸梢絮膩延1筝 923 1103 1223 1513 1713 1828 -絎羌灸梢絮蕭荀 923 1103 1223 1513 1713 1828 -絎羌灸梢絮絽銀臥え 923 1103 1223 1513 1713 1828 -絎羌灸梢絮絮怨綺 923 1103 1223 1513 1713 1828 -絎羌灸梢絮篋 923 1103 1223 1513 1713 1828 -絎羌灸梢絮筝 923 1103 1223 1513 1713 1828 -絎羌灸梢絮祉潟帥弱 923 1103 1223 1513 1713 1828 -絎羌灸梢絮祉潟帥惹ｉ√ 923 1103 1223 1513 1713 1828 -絎羌灸梢絮牙腓上 923 1103 1223 1513 1713 1828 -絎羌灸梢絮育罩ｉ√ 923 1103 1223 1513 1713 1828 - -膩延1筝蕭荀 923 1103 1223 1513 1713 1828 -膩延1筝絽銀臥え 923 1103 1223 1513 1713 1828 -膩延1筝絮怨綺 923 1103 1223 1513 1713 1828 -膩延1筝篋 923 1103 1223 1513 1713 1828 -膩延1筝筝 923 1103 1223 1513 1713 1828 -膩延1筝祉潟帥弱 923 1103 1223 1513 1713 1828 -膩延1筝祉潟帥惹ｉ√ 923 1103 1223 1513 1713 1828 -膩延1筝牙腓上 923 1103 1223 1513 1713 1828 -膩延1筝育罩ｉ√ 923 1103 1223 1513 1713 1828 - -蕭荀伾銀臥え 924 1104 1224 1514 1714 1829 -蕭荀伾臼絮綺 924 1104 1224 1514 1714 1829 -蕭荀伻 924 1104 1224 1514 1714 1829 -蕭荀伻賢 924 1104 1224 1514 1714 1829 -蕭荀佀祉潟帥弱 924 1104 1224 1514 1714 1829 -蕭荀佀祉潟帥惹ｉ√ 924 1104 1224 1514 1714 1829 -蕭荀伾牙腓上 924 1104 1224 1514 1714 1829 -蕭荀佉育罩ｉ√ 924 1104 1224 1514 1714 1829 - -絽銀臥え絮怨綺 752 927 1107 1227 1347 1517 1717 1832 2022 -絽銀臥え篋 752 927 1107 1227 1347 1517 1717 1832 2022 -絽銀臥え筝 752 927 1107 1227 1347 1517 1717 1832 2022 -絽銀臥え祉潟帥弱 752 927 1107 1227 1347 1517 1717 1832 2022 -絽銀臥え祉潟帥惹ｉ√ 752 927 1107 1227 1347 1517 1717 1832 2022 -絽銀臥え牙腓上 752 927 1107 1227 1347 1517 1717 1832 2022 -絽銀臥え育罩ｉ√ 752 927 1107 1227 1347 1517 1717 1832 2022 - -絮怨綺篋 754 929 1109 1229 1349 1519 1719 1834 2024 -絮怨綺筝 754 929 1109 1229 1349 1519 1719 1834 2024 -絮怨綺祉潟帥弱 754 929 1109 1229 1349 1519 1719 1834 2024 -絮怨綺祉潟帥惹ｉ√ 754 929 1109 1229 1349 1519 1719 1834 2024 -絮怨綺牙腓上 754 929 1109 1229 1349 1519 1719 1834 2024 -絮怨綺育罩ｉ√ 754 929 1109 1229 1349 1519 1719 1834 2024 - -篋坂賢 756 931 1111 1231 1351 1521 1721 1836 2026 -篋堺祉潟帥弱 756 931 1111 1231 1351 1521 1721 1836 2026 -篋堺祉潟帥惹ｉ√ 756 931 1111 1231 1351 1521 1721 1836 2026 -篋阪牙腓上 756 931 1111 1231 1351 1521 1721 1836 2026 -篋咲育罩ｉ√ 756 931 1111 1231 1351 1521 1721 1836 2026 - -筝堺祉潟帥弱 757 932 1112 1232 1352 1522 1722 1837 2027 -筝堺祉潟帥惹ｉ√ 757 932 1112 1232 1352 1522 1722 1837 2027 -筝阪牙腓上 757 932 1112 1232 1352 1522 1722 1837 2027 -筝咲育罩ｉ√ 757 932 1112 1232 1352 1522 1722 1837 2027 - -祉潟帥弱祉潟帥惹ｉ√ 800 935 1115 1235 1355 1525 1725 1840 2030 -祉潟帥弱牙腓上 800 935 1115 1235 1355 1525 1725 1840 2030 -祉潟帥弱育罩ｉ√ 800 935 1115 1235 1355 1525 1725 1840 2030 - -祉潟帥惹ｉ√ｅ牙腓上 800 935 1115 1235 1355 1525 1725 1840 2030 -祉潟帥惹ｉ√ｉ育罩ｉ√ 800 935 1115 1235 1355 1525 1725 1840 2030 - -牙腓上育罩ｉ√ 801 936 1116 1236 1356 1526 1726 1841 2031 - - - - -筝肴タ絽綵号茱 800 930 1100 1330 1500 1630 1800 -筝肴タ絮怨 800 930 1100 1330 1500 1630 1800 -筝肴タ医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 -筝肴タ医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 -筝肴タ篋九灸梢絮 800 930 1100 1330 1500 1630 1800 -筝肴タ帥1筝 800 930 1100 1330 1500 1630 1800 -筝肴タ帥2筝 800 930 1100 1330 1500 1630 1800 -筝肴タ坂困 800 930 1100 1330 1500 1630 1800 -筝肴タユ羌欠 800 930 1100 1330 1500 1630 1800 -筝肴タ紙 800 930 1100 1330 1500 1630 1800 -筝肴タ筝∞晶 800 930 1100 1330 1500 1630 1800 -筝肴タ篋九6筝 800 930 1100 1330 1500 1630 1800 -筝肴タ篋九3筝 800 930 1100 1330 1500 1630 1800 -筝肴タ上潟ャｉ牙純祉潟帥弱 800 930 1100 1330 1500 1630 1800 -筝肴タ怨ぇ2筝 800 930 1100 1330 1500 1630 1800 -筝肴タゅ頑胼霛祉潟帥弱 800 930 1100 1330 1500 1630 1800 -筝肴タ羂顔 800 930 1100 1330 1500 1630 1800 -筝肴タ延賢 800 930 1100 1330 1500 1630 1800 -筝肴タ筝 800 930 1100 1330 1500 1630 1800 -筝肴タ篋 800 930 1100 1330 1500 1630 1800 -筝肴タ筝 800 930 1100 1330 1500 1630 1800 -筝肴タ筝3筝 800 930 1100 1330 1500 1630 1800 -筝肴タ絲睡 800 930 1100 1330 1500 1630 1800 -筝肴タ祉潟帥弱 800 930 1100 1330 1500 1630 1800 -筝肴タ亥1筝 800 930 1100 1330 1500 1630 1800 -筝肴タ腮臀峨 800 930 1100 1330 1500 1630 1800 -筝肴タ筝1筝 800 930 1100 1330 1500 1630 1800 -筝肴タ絮若 800 930 1100 1330 1500 1630 1800 -筝肴タ級≦ 800 930 1100 1330 1500 1630 1800 -筝肴タョ 800 930 1100 1330 1500 1630 1800 -筝肴タ羈茱水 800 930 1100 1330 1500 1630 1800 -絽綵号茱粋タ蕭≦ 800 930 1100 1330 1500 1630 1800 -絽綵号茱帥ゃ泣若鴻祉潟帥若水 800 930 1100 1330 1500 1630 1800 -絽綵号茱炊 800 930 1100 1330 1500 1630 1800 -筝肴タ掩2筝 800 930 1100 1330 1500 1630 1800 -筝肴タ 800 930 1100 1330 1500 1630 1800 -筝肴タ薈怨 800 930 1100 1330 1500 1630 1800 -筝肴タ薈怨遺 800 930 1100 1330 1500 1630 1800 -筝肴タ亥 800 930 1100 1330 1500 1630 1800 -筝肴タ羌2筝 800 930 1100 1330 1500 1630 1800 -筝肴タ羌1筝 800 930 1100 1330 1500 1630 1800 -筝肴タ育 800 930 1100 1330 1500 1630 1800 -筝肴タ悟 800 930 1100 1330 1500 1630 1800 -筝肴タ激寂査祉潟帥弱 800 930 1100 1330 1500 1630 1800 -筝肴タ筝紊 800 930 1100 1330 1500 1630 1800 -筝肴タ筝肴タ 800 930 1100 1330 1500 1630 1800 - -絽綵号茱翠医紫絮怨 801 931 1101 1331 1501 1631 1801 -絽綵号茱翠医紫祉潟帥弱 801 931 1101 1331 1501 1631 1801 -絽綵号茱翠医紫祉潟帥弱 801 931 1101 1331 1501 1631 1801 -絽綵号茱推九灸梢絮 801 931 1101 1331 1501 1631 1801 -絽綵号茱帥帥1筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱帥帥2筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱帥坂困 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊ユ羌欠 801 931 1101 1331 1501 1631 1801 -絽綵号茱帥紙 801 931 1101 1331 1501 1631 1801 -絽綵号茱推検臂順 801 931 1101 1331 1501 1631 1801 -絽綵号茱推九6筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱推九3筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊上潟ャｉ牙純祉潟帥弱 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊怨ぇ2筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱水ゅ頑胼霛祉潟帥弱 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊梓 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊延賢 801 931 1101 1331 1501 1631 1801 -絽綵号茱推 801 931 1101 1331 1501 1631 1801 -絽綵号茱推 801 931 1101 1331 1501 1631 1801 -絽綵号茱推賢 801 931 1101 1331 1501 1631 1801 -絽綵号茱推賢3筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱水睡 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊祉潟帥弱 801 931 1101 1331 1501 1631 1801 -絽綵号茱水亥1筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱睡臀峨 801 931 1101 1331 1501 1631 1801 -絽綵号茱水筝1筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱水若 801 931 1101 1331 1501 1631 1801 -絽綵号茱水級≦ 801 931 1101 1331 1501 1631 1801 -絽綵号茱水ョ 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊茱水 801 931 1101 1331 1501 1631 1801 -絽綵号茱粋タ蕭≦ 801 931 1101 1331 1501 1631 1801 -絽綵号茱帥ゃ泣若鴻祉潟帥若水 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊掩2筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱水 801 931 1101 1331 1501 1631 1801 -絽綵号茱翠怨 801 931 1101 1331 1501 1631 1801 -絽綵号茱翠怨遺 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊亥 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊2筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱炊1筝 801 931 1101 1331 1501 1631 1801 -絽綵号茱翠育 801 931 1101 1331 1501 1631 1801 -絽綵号茱睡悟 801 931 1101 1331 1501 1631 1801 -絽綵号茱帥激寂査祉潟帥弱 801 931 1101 1331 1501 1631 1801 -絽綵号茱推賢紊 801 931 1101 1331 1501 1631 1801 -絽綵号茱推賢肴タ 801 931 1101 1331 1501 1631 1801 - -絮怨咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 -絮怨咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 -絮怨坂九灸梢絮 803 933 1103 1333 1503 1633 1803 -絮怨冴帥1筝 803 933 1103 1333 1503 1633 1803 -絮怨冴帥2筝 803 933 1103 1333 1503 1633 1803 -絮怨冴坂困 803 933 1103 1333 1503 1633 1803 -絮怨堺ユ羌欠 803 933 1103 1333 1503 1633 1803 -絮怨冴紙 803 933 1103 1333 1503 1633 1803 -絮怨坂検臂順 803 933 1103 1333 1503 1633 1803 -絮怨坂九6筝 803 933 1103 1333 1503 1633 1803 -絮怨坂九3筝 803 933 1103 1333 1503 1633 1803 -絮怨堺上潟ャｉ牙純祉潟帥弱 803 933 1103 1333 1503 1633 1803 -絮怨堺怨ぇ2筝 803 933 1103 1333 1503 1633 1803 -絮怨阪ゅ頑胼霛祉潟帥弱 803 933 1103 1333 1503 1633 1803 -絮怨堺梓 803 933 1103 1333 1503 1633 1803 -絮怨堺延賢 803 933 1103 1333 1503 1633 1803 -絮怨坂 803 933 1103 1333 1503 1633 1803 -絮怨坂 803 933 1103 1333 1503 1633 1803 -絮怨坂賢 803 933 1103 1333 1503 1633 1803 -絮怨坂賢3筝 803 933 1103 1333 1503 1633 1803 -絮怨阪睡 803 933 1103 1333 1503 1633 1803 -絮怨堺祉潟帥弱 803 933 1103 1333 1503 1633 1803 -絮怨阪亥1筝 803 933 1103 1333 1503 1633 1803 -絮怨榊臀峨 803 933 1103 1333 1503 1633 1803 -絮怨阪筝1筝 803 933 1103 1333 1503 1633 1803 -絮怨阪若 803 933 1103 1333 1503 1633 1803 -絮怨阪級≦ 803 933 1103 1333 1503 1633 1803 -絮怨阪ョ 803 933 1103 1333 1503 1633 1803 -絮怨堺茱水 803 933 1103 1333 1503 1633 1803 -絮怨肴タ蕭≦ 803 933 1103 1333 1503 1633 1803 -絮怨冴ゃ泣若鴻祉潟帥若水 803 933 1103 1333 1503 1633 1803 -絮怨堺 803 933 1103 1333 1503 1633 1803 -絮怨堺掩2筝 803 933 1103 1333 1503 1633 1803 -絮怨阪 803 933 1103 1333 1503 1633 1803 -絮怨咲怨 803 933 1103 1333 1503 1633 1803 -絮怨咲怨遺 803 933 1103 1333 1503 1633 1803 -絮怨堺亥 803 933 1103 1333 1503 1633 1803 -絮怨堺2筝 803 933 1103 1333 1503 1633 1803 -絮怨堺1筝 803 933 1103 1333 1503 1633 1803 -絮怨咲育 803 933 1103 1333 1503 1633 1803 -絮怨榊悟 803 933 1103 1333 1503 1633 1803 -絮怨冴激寂査祉潟帥弱 803 933 1103 1333 1503 1633 1803 -絮怨坂賢紊 803 933 1103 1333 1503 1633 1803 -絮怨坂賢肴タ 803 933 1103 1333 1503 1633 1803 - -医紫祉潟帥弱ｉ医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｉ医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ九灸梢絮 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｃ帥1筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｃ帥2筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｃ坂困 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆユ羌欠 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｃ紙 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ検臂順 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ九6筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ九3筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ上潟ャｉ牙純祉潟帥弱 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ怨ぇ2筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅゅ頑胼霛祉潟帥弱 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ梓 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ延賢 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ賢 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ賢3筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅ睡 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ祉潟帥弱 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅ亥1筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｇ臀峨 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅ筝1筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅ若 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅ級≦ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅョ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ茱水 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｈタ蕭≦ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｃゃ泣若鴻祉潟帥若水 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ掩2筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｅ 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｉ怨 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｉ怨遺 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ亥 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ2筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｆ1筝 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｉ育 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｇ悟 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｃ激寂査祉潟帥弱 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ賢紊 805 935 1105 1335 1505 1635 1805 -医紫祉潟帥弱ｄ賢肴タ 805 935 1105 1335 1505 1635 1805 - -医紫祉潟帥弱篋九灸梢絮 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱帥1筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱帥2筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱坂困 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱ユ羌欠 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱紙 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝∞晶 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱篋九6筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱篋九3筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱上潟ャｉ牙純祉潟帥弱 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱怨ぇ2筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱ゅ頑胼霛祉潟帥弱 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱羂顔 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱延賢 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱篋 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝3筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱絲睡 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱祉潟帥弱 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱亥1筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱腮臀峨 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝1筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱絮若 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱級≦ 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱ョ 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱羈茱水 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱茱翠≦ 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱ゃ泣若鴻祉潟帥若水 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱羈 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱掩2筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱薈怨 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱薈怨遺 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱亥 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱羌2筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱羌1筝 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱育 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱悟 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱激寂査祉潟帥弱 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝紊 806 936 1106 1336 1506 1636 1806 -医紫祉潟帥弱筝肴タ 806 936 1106 1336 1506 1636 1806 - -篋九灸梢絮帥1筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮帥2筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮坂困 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮ユ羌欠 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮紙 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝∞晶 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮篋九6筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮篋九3筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮上潟ャｉ牙純祉潟帥弱 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮怨ぇ2筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮ゅ頑胼霛祉潟帥弱 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮羂顔 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮延賢 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮篋 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝3筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮絲睡 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮祉潟帥弱 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮亥1筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮腮臀峨 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝1筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮絮若 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮級≦ 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮ョ 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮羈茱水 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮茱翠≦ 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮ゃ泣若鴻祉潟帥若水 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮羈 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮掩2筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮薈怨 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮薈怨遺 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮亥 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮羌2筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮羌1筝 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮育 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮悟 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮激寂査祉潟帥弱 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝紊 807 937 1107 1337 1507 1637 1807 -篋九灸梢絮筝肴タ 807 937 1107 1337 1507 1637 1807 - -帥1筝帥2筝 809 939 1109 1339 1509 1639 1809 -帥1筝坂困 809 939 1109 1339 1509 1639 1809 -帥1筝ユ羌欠 809 939 1109 1339 1509 1639 1809 -帥1筝紙 809 939 1109 1339 1509 1639 1809 -帥1筝筝∞晶 809 939 1109 1339 1509 1639 1809 -帥1筝篋九6筝 809 939 1109 1339 1509 1639 1809 -帥1筝篋九3筝 809 939 1109 1339 1509 1639 1809 -帥1筝上潟ャｉ牙純祉潟帥弱 809 939 1109 1339 1509 1639 1809 -帥1筝怨ぇ2筝 809 939 1109 1339 1509 1639 1809 -帥1筝ゅ頑胼霛祉潟帥弱 809 939 1109 1339 1509 1639 1809 -帥1筝羂顔 809 939 1109 1339 1509 1639 1809 -帥1筝延賢 809 939 1109 1339 1509 1639 1809 -帥1筝筝 809 939 1109 1339 1509 1639 1809 -帥1筝篋 809 939 1109 1339 1509 1639 1809 -帥1筝筝 809 939 1109 1339 1509 1639 1809 -帥1筝筝3筝 809 939 1109 1339 1509 1639 1809 -帥1筝絲睡 809 939 1109 1339 1509 1639 1809 -帥1筝祉潟帥弱 809 939 1109 1339 1509 1639 1809 -帥1筝亥1筝 809 939 1109 1339 1509 1639 1809 -帥1筝腮臀峨 809 939 1109 1339 1509 1639 1809 -帥1筝筝1筝 809 939 1109 1339 1509 1639 1809 -帥1筝絮若 809 939 1109 1339 1509 1639 1809 -帥1筝級≦ 809 939 1109 1339 1509 1639 1809 -帥1筝ョ 809 939 1109 1339 1509 1639 1809 -帥1筝羈茱水 809 939 1109 1339 1509 1639 1809 -帥1筝茱翠≦ 809 939 1109 1339 1509 1639 1809 -帥1筝ゃ泣若鴻祉潟帥若水 809 939 1109 1339 1509 1639 1809 -帥1筝羈 809 939 1109 1339 1509 1639 1809 -帥1筝掩2筝 809 939 1109 1339 1509 1639 1809 -帥1筝 809 939 1109 1339 1509 1639 1809 -帥1筝薈怨 809 939 1109 1339 1509 1639 1809 -帥1筝薈怨遺 809 939 1109 1339 1509 1639 1809 -帥1筝亥 809 939 1109 1339 1509 1639 1809 -帥1筝羌2筝 809 939 1109 1339 1509 1639 1809 -帥1筝羌1筝 809 939 1109 1339 1509 1639 1809 -帥1筝育 809 939 1109 1339 1509 1639 1809 -帥1筝悟 809 939 1109 1339 1509 1639 1809 -帥1筝激寂査祉潟帥弱 809 939 1109 1339 1509 1639 1809 -帥1筝筝紊 809 939 1109 1339 1509 1639 1809 -帥1筝筝肴タ 809 939 1109 1339 1509 1639 1809 - -帥2筝坂困 810 940 1110 1340 1510 1640 1810 -帥2筝ユ羌欠 810 940 1110 1340 1510 1640 1810 -帥2筝紙 810 940 1110 1340 1510 1640 1810 -帥2筝筝∞晶 810 940 1110 1340 1510 1640 1810 -帥2筝篋九6筝 810 940 1110 1340 1510 1640 1810 -帥2筝篋九3筝 810 940 1110 1340 1510 1640 1810 -帥2筝上潟ャｉ牙純祉潟帥弱 810 940 1110 1340 1510 1640 1810 -帥2筝怨ぇ2筝 810 940 1110 1340 1510 1640 1810 -帥2筝ゅ頑胼霛祉潟帥弱 810 940 1110 1340 1510 1640 1810 -帥2筝羂顔 810 940 1110 1340 1510 1640 1810 -帥2筝延賢 810 940 1110 1340 1510 1640 1810 -帥2筝筝 810 940 1110 1340 1510 1640 1810 -帥2筝篋 810 940 1110 1340 1510 1640 1810 -帥2筝筝 810 940 1110 1340 1510 1640 1810 -帥2筝筝3筝 810 940 1110 1340 1510 1640 1810 -帥2筝絲睡 810 940 1110 1340 1510 1640 1810 -帥2筝祉潟帥弱 810 940 1110 1340 1510 1640 1810 -帥2筝亥1筝 810 940 1110 1340 1510 1640 1810 -帥2筝腮臀峨 810 940 1110 1340 1510 1640 1810 -帥2筝筝1筝 810 940 1110 1340 1510 1640 1810 -帥2筝絮若 810 940 1110 1340 1510 1640 1810 -帥2筝級≦ 810 940 1110 1340 1510 1640 1810 -帥2筝ョ 810 940 1110 1340 1510 1640 1810 -帥2筝羈茱水 810 940 1110 1340 1510 1640 1810 -帥2筝茱翠≦ 810 940 1110 1340 1510 1640 1810 -帥2筝ゃ泣若鴻祉潟帥若水 810 940 1110 1340 1510 1640 1810 -帥2筝羈 810 940 1110 1340 1510 1640 1810 -帥2筝掩2筝 810 940 1110 1340 1510 1640 1810 -帥2筝 810 940 1110 1340 1510 1640 1810 -帥2筝薈怨 810 940 1110 1340 1510 1640 1810 -帥2筝薈怨遺 810 940 1110 1340 1510 1640 1810 -帥2筝亥 810 940 1110 1340 1510 1640 1810 -帥2筝羌2筝 810 940 1110 1340 1510 1640 1810 -帥2筝羌1筝 810 940 1110 1340 1510 1640 1810 -帥2筝育 810 940 1110 1340 1510 1640 1810 -帥2筝悟 810 940 1110 1340 1510 1640 1810 -帥2筝激寂査祉潟帥弱 810 940 1110 1340 1510 1640 1810 -帥2筝筝紊 810 940 1110 1340 1510 1640 1810 -帥2筝筝肴タ 810 940 1110 1340 1510 1640 1810 - -坂困ユ羌欠 812 942 1112 1342 1512 1642 1812 -坂困紙 812 942 1112 1342 1512 1642 1812 -坂困筝∞晶 812 942 1112 1342 1512 1642 1812 -坂困篋九6筝 812 942 1112 1342 1512 1642 1812 -坂困篋九3筝 812 942 1112 1342 1512 1642 1812 -坂困上潟ャｉ牙純祉潟帥弱 812 942 1112 1342 1512 1642 1812 -坂困怨ぇ2筝 812 942 1112 1342 1512 1642 1812 -坂困ゅ頑胼霛祉潟帥弱 812 942 1112 1342 1512 1642 1812 -坂困羂顔 812 942 1112 1342 1512 1642 1812 -坂困延賢 812 942 1112 1342 1512 1642 1812 -坂困筝 812 942 1112 1342 1512 1642 1812 -坂困篋 812 942 1112 1342 1512 1642 1812 -坂困筝 812 942 1112 1342 1512 1642 1812 -坂困筝3筝 812 942 1112 1342 1512 1642 1812 -坂困絲睡 812 942 1112 1342 1512 1642 1812 -坂困祉潟帥弱 812 942 1112 1342 1512 1642 1812 -坂困亥1筝 812 942 1112 1342 1512 1642 1812 -坂困腮臀峨 812 942 1112 1342 1512 1642 1812 -坂困筝1筝 812 942 1112 1342 1512 1642 1812 -坂困絮若 812 942 1112 1342 1512 1642 1812 -坂困級≦ 812 942 1112 1342 1512 1642 1812 -坂困ョ 812 942 1112 1342 1512 1642 1812 -坂困羈茱水 812 942 1112 1342 1512 1642 1812 -坂困茱翠≦ 812 942 1112 1342 1512 1642 1812 -坂困ゃ泣若鴻祉潟帥若水 812 942 1112 1342 1512 1642 1812 -坂困羈 812 942 1112 1342 1512 1642 1812 -坂困掩2筝 812 942 1112 1342 1512 1642 1812 -坂困 812 942 1112 1342 1512 1642 1812 -坂困薈怨 812 942 1112 1342 1512 1642 1812 -坂困薈怨遺 812 942 1112 1342 1512 1642 1812 -坂困亥 812 942 1112 1342 1512 1642 1812 -坂困羌2筝 812 942 1112 1342 1512 1642 1812 -坂困羌1筝 812 942 1112 1342 1512 1642 1812 -坂困育 812 942 1112 1342 1512 1642 1812 -坂困悟 812 942 1112 1342 1512 1642 1812 -坂困激寂査祉潟帥弱 812 942 1112 1342 1512 1642 1812 -坂困筝紊 812 942 1112 1342 1512 1642 1812 -坂困筝肴タ 812 942 1112 1342 1512 1642 1812 - -ユ羌欠≪紙 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫検臂順 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫九6筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫九3筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽上潟ャｉ牙純祉潟帥弱 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽怨ぇ2筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠√ゅ頑胼霛祉潟帥弱 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽梓 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽延賢 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫ 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫ 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫賢 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫賢3筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠√睡 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽祉潟帥弱 815 945 1115 1345 1515 1645 1815 -ユ羌欠√亥1筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠∝臀峨 815 945 1115 1345 1515 1645 1815 -ユ羌欠√筝1筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠√若 815 945 1115 1345 1515 1645 1815 -ユ羌欠√級≦ 815 945 1115 1345 1515 1645 1815 -ユ羌欠√ョ 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽茱水 815 945 1115 1345 1515 1645 1815 -ユ羌欠∵タ蕭≦ 815 945 1115 1345 1515 1645 1815 -ユ羌欠≪ゃ泣若鴻祉潟帥若水 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽ 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽掩2筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠√ 815 945 1115 1345 1515 1645 1815 -ユ羌欠∫怨 815 945 1115 1345 1515 1645 1815 -ユ羌欠∫怨遺 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽亥 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽2筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠∽1筝 815 945 1115 1345 1515 1645 1815 -ユ羌欠∫育 815 945 1115 1345 1515 1645 1815 -ユ羌欠∝悟 815 945 1115 1345 1515 1645 1815 -ユ羌欠≪激寂査祉潟帥弱 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫賢紊 815 945 1115 1345 1515 1645 1815 -ユ羌欠≫賢肴タ 815 945 1115 1345 1515 1645 1815 - -紙筝∞晶 817 947 1117 1347 1517 1647 1817 -紙篋九6筝 817 947 1117 1347 1517 1647 1817 -紙篋九3筝 817 947 1117 1347 1517 1647 1817 -紙上潟ャｉ牙純祉潟帥弱 817 947 1117 1347 1517 1647 1817 -紙怨ぇ2筝 817 947 1117 1347 1517 1647 1817 -紙ゅ頑胼霛祉潟帥弱 817 947 1117 1347 1517 1647 1817 -紙羂顔 817 947 1117 1347 1517 1647 1817 -紙延賢 817 947 1117 1347 1517 1647 1817 -紙筝 817 947 1117 1347 1517 1647 1817 -紙篋 817 947 1117 1347 1517 1647 1817 -紙筝 817 947 1117 1347 1517 1647 1817 -紙筝3筝 817 947 1117 1347 1517 1647 1817 -紙絲睡 817 947 1117 1347 1517 1647 1817 -紙祉潟帥弱 817 947 1117 1347 1517 1647 1817 -紙亥1筝 817 947 1117 1347 1517 1647 1817 -紙腮臀峨 817 947 1117 1347 1517 1647 1817 -紙筝1筝 817 947 1117 1347 1517 1647 1817 -紙絮若 817 947 1117 1347 1517 1647 1817 -紙級≦ 817 947 1117 1347 1517 1647 1817 -紙ョ 817 947 1117 1347 1517 1647 1817 -紙羈茱水 817 947 1117 1347 1517 1647 1817 -紙茱翠≦ 817 947 1117 1347 1517 1647 1817 -紙ゃ泣若鴻祉潟帥若水 817 947 1117 1347 1517 1647 1817 -紙羈 817 947 1117 1347 1517 1647 1817 -紙掩2筝 817 947 1117 1347 1517 1647 1817 -紙 817 947 1117 1347 1517 1647 1817 -紙薈怨 817 947 1117 1347 1517 1647 1817 -紙薈怨遺 817 947 1117 1347 1517 1647 1817 -紙亥 817 947 1117 1347 1517 1647 1817 -紙羌2筝 817 947 1117 1347 1517 1647 1817 -紙羌1筝 817 947 1117 1347 1517 1647 1817 -紙育 817 947 1117 1347 1517 1647 1817 -紙悟 817 947 1117 1347 1517 1647 1817 -紙激寂査祉潟帥弱 817 947 1117 1347 1517 1647 1817 -紙筝紊 817 947 1117 1347 1517 1647 1817 -紙筝肴タ 817 947 1117 1347 1517 1647 1817 - -筝∞晶坂九6筝 819 949 1119 1349 1519 1649 1819 -筝∞晶坂九3筝 819 949 1119 1349 1519 1649 1819 -筝∞晶堺上潟ャｉ牙純祉潟帥弱 819 949 1119 1349 1519 1649 1819 -筝∞晶堺怨ぇ2筝 819 949 1119 1349 1519 1649 1819 -筝∞晶阪ゅ頑胼霛祉潟帥弱 819 949 1119 1349 1519 1649 1819 -筝∞晶堺梓 819 949 1119 1349 1519 1649 1819 -筝∞晶堺延賢 819 949 1119 1349 1519 1649 1819 -筝∞晶坂 819 949 1119 1349 1519 1649 1819 -筝∞晶坂 819 949 1119 1349 1519 1649 1819 -筝∞晶坂賢 819 949 1119 1349 1519 1649 1819 -筝∞晶坂賢3筝 819 949 1119 1349 1519 1649 1819 -筝∞晶阪睡 819 949 1119 1349 1519 1649 1819 -筝∞晶堺祉潟帥弱 819 949 1119 1349 1519 1649 1819 -筝∞晶阪亥1筝 819 949 1119 1349 1519 1649 1819 -筝∞晶榊臀峨 819 949 1119 1349 1519 1649 1819 -筝∞晶阪筝1筝 819 949 1119 1349 1519 1649 1819 -筝∞晶阪若 819 949 1119 1349 1519 1649 1819 -筝∞晶阪級≦ 819 949 1119 1349 1519 1649 1819 -筝∞晶阪ョ 819 949 1119 1349 1519 1649 1819 -筝∞晶堺茱水 819 949 1119 1349 1519 1649 1819 -筝∞晶肴タ蕭≦ 819 949 1119 1349 1519 1649 1819 -筝∞晶冴ゃ泣若鴻祉潟帥若水 819 949 1119 1349 1519 1649 1819 -筝∞晶堺 819 949 1119 1349 1519 1649 1819 -筝∞晶堺掩2筝 819 949 1119 1349 1519 1649 1819 -筝∞晶阪 819 949 1119 1349 1519 1649 1819 -筝∞晶咲怨 819 949 1119 1349 1519 1649 1819 -筝∞晶咲怨遺 819 949 1119 1349 1519 1649 1819 -筝∞晶堺亥 819 949 1119 1349 1519 1649 1819 -筝∞晶堺2筝 819 949 1119 1349 1519 1649 1819 -筝∞晶堺1筝 819 949 1119 1349 1519 1649 1819 -筝∞晶咲育 819 949 1119 1349 1519 1649 1819 -筝∞晶榊悟 819 949 1119 1349 1519 1649 1819 -筝∞晶冴激寂査祉潟帥弱 819 949 1119 1349 1519 1649 1819 -筝∞晶坂賢紊 819 949 1119 1349 1519 1649 1819 -筝∞晶坂賢肴タ 819 949 1119 1349 1519 1649 1819 - -篋九6筝篋九3筝 820 950 1120 1350 1520 1650 1820 -篋九6筝上潟ャｉ牙純祉潟帥弱 820 950 1120 1350 1520 1650 1820 -篋九6筝怨ぇ2筝 820 950 1120 1350 1520 1650 1820 -篋九6筝ゅ頑胼霛祉潟帥弱 820 950 1120 1350 1520 1650 1820 -篋九6筝羂顔 820 950 1120 1350 1520 1650 1820 -篋九6筝延賢 820 950 1120 1350 1520 1650 1820 -篋九6筝筝 820 950 1120 1350 1520 1650 1820 -篋九6筝篋 820 950 1120 1350 1520 1650 1820 -篋九6筝筝 820 950 1120 1350 1520 1650 1820 -篋九6筝筝3筝 820 950 1120 1350 1520 1650 1820 -篋九6筝絲睡 820 950 1120 1350 1520 1650 1820 -篋九6筝祉潟帥弱 820 950 1120 1350 1520 1650 1820 -篋九6筝亥1筝 820 950 1120 1350 1520 1650 1820 -篋九6筝腮臀峨 820 950 1120 1350 1520 1650 1820 -篋九6筝筝1筝 820 950 1120 1350 1520 1650 1820 -篋九6筝絮若 820 950 1120 1350 1520 1650 1820 -篋九6筝級≦ 820 950 1120 1350 1520 1650 1820 -篋九6筝ョ 820 950 1120 1350 1520 1650 1820 -篋九6筝羈茱水 820 950 1120 1350 1520 1650 1820 -篋九6筝茱翠≦ 820 950 1120 1350 1520 1650 1820 -篋九6筝ゃ泣若鴻祉潟帥若水 820 950 1120 1350 1520 1650 1820 -篋九6筝羈 820 950 1120 1350 1520 1650 1820 -篋九6筝掩2筝 820 950 1120 1350 1520 1650 1820 -篋九6筝 820 950 1120 1350 1520 1650 1820 -篋九6筝薈怨 820 950 1120 1350 1520 1650 1820 -篋九6筝薈怨遺 820 950 1120 1350 1520 1650 1820 -篋九6筝亥 820 950 1120 1350 1520 1650 1820 -篋九6筝羌2筝 820 950 1120 1350 1520 1650 1820 -篋九6筝羌1筝 820 950 1120 1350 1520 1650 1820 -篋九6筝育 820 950 1120 1350 1520 1650 1820 -篋九6筝悟 820 950 1120 1350 1520 1650 1820 -篋九6筝激寂査祉潟帥弱 820 950 1120 1350 1520 1650 1820 -篋九6筝筝紊 820 950 1120 1350 1520 1650 1820 -篋九6筝筝肴タ 820 950 1120 1350 1520 1650 1820 - -篋九3筝上潟ャｉ牙純祉潟帥弱 821 951 1121 1351 1521 1651 1821 -篋九3筝怨ぇ2筝 821 951 1121 1351 1521 1651 1821 -篋九3筝ゅ頑胼霛祉潟帥弱 821 951 1121 1351 1521 1651 1821 -篋九3筝羂顔 821 951 1121 1351 1521 1651 1821 -篋九3筝延賢 821 951 1121 1351 1521 1651 1821 -篋九3筝筝 821 951 1121 1351 1521 1651 1821 -篋九3筝篋 821 951 1121 1351 1521 1651 1821 -篋九3筝筝 821 951 1121 1351 1521 1651 1821 -篋九3筝筝3筝 821 951 1121 1351 1521 1651 1821 -篋九3筝絲睡 821 951 1121 1351 1521 1651 1821 -篋九3筝祉潟帥弱 821 951 1121 1351 1521 1651 1821 -篋九3筝亥1筝 821 951 1121 1351 1521 1651 1821 -篋九3筝腮臀峨 821 951 1121 1351 1521 1651 1821 -篋九3筝筝1筝 821 951 1121 1351 1521 1651 1821 -篋九3筝絮若 821 951 1121 1351 1521 1651 1821 -篋九3筝級≦ 821 951 1121 1351 1521 1651 1821 -篋九3筝ョ 821 951 1121 1351 1521 1651 1821 -篋九3筝羈茱水 821 951 1121 1351 1521 1651 1821 -篋九3筝茱翠≦ 821 951 1121 1351 1521 1651 1821 -篋九3筝ゃ泣若鴻祉潟帥若水 821 951 1121 1351 1521 1651 1821 -篋九3筝羈 821 951 1121 1351 1521 1651 1821 -篋九3筝掩2筝 821 951 1121 1351 1521 1651 1821 -篋九3筝 821 951 1121 1351 1521 1651 1821 -篋九3筝薈怨 821 951 1121 1351 1521 1651 1821 -篋九3筝薈怨遺 821 951 1121 1351 1521 1651 1821 -篋九3筝亥 821 951 1121 1351 1521 1651 1821 -篋九3筝羌2筝 821 951 1121 1351 1521 1651 1821 -篋九3筝羌1筝 821 951 1121 1351 1521 1651 1821 -篋九3筝育 821 951 1121 1351 1521 1651 1821 -篋九3筝悟 821 951 1121 1351 1521 1651 1821 -篋九3筝激寂査祉潟帥弱 821 951 1121 1351 1521 1651 1821 -篋九3筝筝紊 821 951 1121 1351 1521 1651 1821 -篋九3筝筝肴タ 821 951 1121 1351 1521 1651 1821 - -上潟ャｉ牙純祉潟帥弱怨ぇ2筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱ゅ頑胼霛祉潟帥弱 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱羂顔 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱延賢 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱篋 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱筝3筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱絲睡 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱祉潟帥弱 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱亥1筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱腮臀峨 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱筝1筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱絮若 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱級≦ 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱ョ 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱羈茱水 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱茱翠≦ 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱ゃ泣若鴻祉潟帥若水 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱羈 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱掩2筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱薈怨 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱薈怨遺 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱亥 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱羌2筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱羌1筝 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱育 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱悟 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱激寂査祉潟帥弱 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱筝紊 823 953 1123 1353 1523 1653 1823 -上潟ャｉ牙純祉潟帥弱筝肴タ 823 953 1123 1353 1523 1653 1823 - -怨ぇ2筝ゅ頑胼霛祉潟帥弱 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝羂顔 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝延賢 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝篋 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝筝3筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝絲睡 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝祉潟帥弱 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝亥1筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝腮臀峨 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝筝1筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝絮若 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝級≦ 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝ョ 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝羈茱水 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝茱翠≦ 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝ゃ泣若鴻祉潟帥若水 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝羈 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝掩2筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝薈怨 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝薈怨遺 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝亥 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝羌2筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝羌1筝 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝育 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝悟 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝激寂査祉潟帥弱 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝筝紊 824 954 1124 1354 1524 1654 1824 -怨ぇ2筝筝肴タ 824 954 1124 1354 1524 1654 1824 - -ゅ頑胼霛祉潟帥弱羂顔 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱延賢 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱篋 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱筝3筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱絲睡 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱祉潟帥弱 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱亥1筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱腮臀峨 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱筝1筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱絮若 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱級≦ 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱ョ 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱羈茱水 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱茱翠≦ 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱ゃ泣若鴻祉潟帥若水 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱羈 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱掩2筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱薈怨 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱薈怨遺 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱亥 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱羌2筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱羌1筝 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱育 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱悟 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱激寂査祉潟帥弱 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱筝紊 825 955 1125 1355 1525 1655 1825 -ゅ頑胼霛祉潟帥弱筝肴タ 825 955 1125 1355 1525 1655 1825 - -羂顔延賢 826 956 1126 1356 1526 1656 1826 -羂顔筝 826 956 1126 1356 1526 1656 1826 -羂顔篋 826 956 1126 1356 1526 1656 1826 -羂顔筝 826 956 1126 1356 1526 1656 1826 -羂顔筝3筝 826 956 1126 1356 1526 1656 1826 -羂顔絲睡 826 956 1126 1356 1526 1656 1826 -羂顔祉潟帥弱 826 956 1126 1356 1526 1656 1826 -羂顔亥1筝 826 956 1126 1356 1526 1656 1826 -羂顔腮臀峨 826 956 1126 1356 1526 1656 1826 -羂顔筝1筝 826 956 1126 1356 1526 1656 1826 -羂顔絮若 826 956 1126 1356 1526 1656 1826 -羂顔級≦ 826 956 1126 1356 1526 1656 1826 -羂顔ョ 826 956 1126 1356 1526 1656 1826 -羂顔羈茱水 826 956 1126 1356 1526 1656 1826 -羂顔茱翠≦ 826 956 1126 1356 1526 1656 1826 -羂顔ゃ泣若鴻祉潟帥若水 826 956 1126 1356 1526 1656 1826 -羂顔羈 826 956 1126 1356 1526 1656 1826 -羂顔掩2筝 826 956 1126 1356 1526 1656 1826 -羂顔 826 956 1126 1356 1526 1656 1826 -羂顔薈怨 826 956 1126 1356 1526 1656 1826 -羂顔薈怨遺 826 956 1126 1356 1526 1656 1826 -羂顔亥 826 956 1126 1356 1526 1656 1826 -羂顔羌2筝 826 956 1126 1356 1526 1656 1826 -羂顔羌1筝 826 956 1126 1356 1526 1656 1826 -羂顔育 826 956 1126 1356 1526 1656 1826 -羂顔悟 826 956 1126 1356 1526 1656 1826 -羂顔激寂査祉潟帥弱 826 956 1126 1356 1526 1656 1826 -羂顔筝紊 826 956 1126 1356 1526 1656 1826 -羂顔筝肴タ 826 956 1126 1356 1526 1656 1826 - -延賢ｄ 827 957 1127 1357 1527 1657 1827 -延賢ｄ 827 957 1127 1357 1527 1657 1827 -延賢ｄ賢 827 957 1127 1357 1527 1657 1827 -延賢ｄ賢3筝 827 957 1127 1357 1527 1657 1827 -延賢ｅ睡 827 957 1127 1357 1527 1657 1827 -延賢ｆ祉潟帥弱 827 957 1127 1357 1527 1657 1827 -延賢ｅ亥1筝 827 957 1127 1357 1527 1657 1827 -延賢ｇ臀峨 827 957 1127 1357 1527 1657 1827 -延賢ｅ筝1筝 827 957 1127 1357 1527 1657 1827 -延賢ｅ若 827 957 1127 1357 1527 1657 1827 -延賢ｅ級≦ 827 957 1127 1357 1527 1657 1827 -延賢ｅョ 827 957 1127 1357 1527 1657 1827 -延賢ｆ茱水 827 957 1127 1357 1527 1657 1827 -延賢ｈタ蕭≦ 827 957 1127 1357 1527 1657 1827 -延賢ｃゃ泣若鴻祉潟帥若水 827 957 1127 1357 1527 1657 1827 -延賢ｆ 827 957 1127 1357 1527 1657 1827 -延賢ｆ掩2筝 827 957 1127 1357 1527 1657 1827 -延賢ｅ 827 957 1127 1357 1527 1657 1827 -延賢ｉ怨 827 957 1127 1357 1527 1657 1827 -延賢ｉ怨遺 827 957 1127 1357 1527 1657 1827 -延賢ｆ亥 827 957 1127 1357 1527 1657 1827 -延賢ｆ2筝 827 957 1127 1357 1527 1657 1827 -延賢ｆ1筝 827 957 1127 1357 1527 1657 1827 -延賢ｉ育 827 957 1127 1357 1527 1657 1827 -延賢ｇ悟 827 957 1127 1357 1527 1657 1827 -延賢ｃ激寂査祉潟帥弱 827 957 1127 1357 1527 1657 1827 -延賢ｄ賢紊 827 957 1127 1357 1527 1657 1827 -延賢ｄ賢肴タ 827 957 1127 1357 1527 1657 1827 - -筝坂 828 958 1128 1358 1528 1658 1828 -筝坂賢 828 958 1128 1358 1528 1658 1828 -筝坂賢3筝 828 958 1128 1358 1528 1658 1828 -筝阪睡 828 958 1128 1358 1528 1658 1828 -筝堺祉潟帥弱 828 958 1128 1358 1528 1658 1828 -筝阪亥1筝 828 958 1128 1358 1528 1658 1828 -筝榊臀峨 828 958 1128 1358 1528 1658 1828 -筝阪筝1筝 828 958 1128 1358 1528 1658 1828 -筝阪若 828 958 1128 1358 1528 1658 1828 -筝阪級≦ 828 958 1128 1358 1528 1658 1828 -筝阪ョ 828 958 1128 1358 1528 1658 1828 -筝堺茱水 828 958 1128 1358 1528 1658 1828 -筝肴タ蕭≦ 828 958 1128 1358 1528 1658 1828 -筝冴ゃ泣若鴻祉潟帥若水 828 958 1128 1358 1528 1658 1828 -筝堺 828 958 1128 1358 1528 1658 1828 -筝堺掩2筝 828 958 1128 1358 1528 1658 1828 -筝阪 828 958 1128 1358 1528 1658 1828 -筝咲怨 828 958 1128 1358 1528 1658 1828 -筝咲怨遺 828 958 1128 1358 1528 1658 1828 -筝堺亥 828 958 1128 1358 1528 1658 1828 -筝堺2筝 828 958 1128 1358 1528 1658 1828 -筝堺1筝 828 958 1128 1358 1528 1658 1828 -筝咲育 828 958 1128 1358 1528 1658 1828 -筝榊悟 828 958 1128 1358 1528 1658 1828 -筝冴激寂査祉潟帥弱 828 958 1128 1358 1528 1658 1828 -筝坂賢紊 828 958 1128 1358 1528 1658 1828 -筝坂賢肴タ 828 958 1128 1358 1528 1658 1828 - -篋坂賢 829 959 1129 1359 1529 1659 1829 -篋坂賢3筝 829 959 1129 1359 1529 1659 1829 -篋阪睡 829 959 1129 1359 1529 1659 1829 -篋堺祉潟帥弱 829 959 1129 1359 1529 1659 1829 -篋阪亥1筝 829 959 1129 1359 1529 1659 1829 -篋榊臀峨 829 959 1129 1359 1529 1659 1829 -篋阪筝1筝 829 959 1129 1359 1529 1659 1829 -篋阪若 829 959 1129 1359 1529 1659 1829 -篋阪級≦ 829 959 1129 1359 1529 1659 1829 -篋阪ョ 829 959 1129 1359 1529 1659 1829 -篋堺茱水 829 959 1129 1359 1529 1659 1829 -篋肴タ蕭≦ 829 959 1129 1359 1529 1659 1829 -篋冴ゃ泣若鴻祉潟帥若水 829 959 1129 1359 1529 1659 1829 -篋堺 829 959 1129 1359 1529 1659 1829 -篋堺掩2筝 829 959 1129 1359 1529 1659 1829 -篋阪 829 959 1129 1359 1529 1659 1829 -篋咲怨 829 959 1129 1359 1529 1659 1829 -篋咲怨遺 829 959 1129 1359 1529 1659 1829 -篋堺亥 829 959 1129 1359 1529 1659 1829 -篋堺2筝 829 959 1129 1359 1529 1659 1829 -篋堺1筝 829 959 1129 1359 1529 1659 1829 -篋咲育 829 959 1129 1359 1529 1659 1829 -篋榊悟 829 959 1129 1359 1529 1659 1829 -篋冴激寂査祉潟帥弱 829 959 1129 1359 1529 1659 1829 -篋坂賢紊 829 959 1129 1359 1529 1659 1829 -篋坂賢肴タ 829 959 1129 1359 1529 1659 1829 - -筝坂賢3筝 830 1000 1130 1400 1530 1700 1830 -筝阪睡 830 1000 1130 1400 1530 1700 1830 -筝堺祉潟帥弱 830 1000 1130 1400 1530 1700 1830 -筝阪亥1筝 830 1000 1130 1400 1530 1700 1830 -筝榊臀峨 830 1000 1130 1400 1530 1700 1830 -筝阪筝1筝 830 1000 1130 1400 1530 1700 1830 -筝阪若 830 1000 1130 1400 1530 1700 1830 -筝阪級≦ 830 1000 1130 1400 1530 1700 1830 -筝阪ョ 830 1000 1130 1400 1530 1700 1830 -筝堺茱水 830 1000 1130 1400 1530 1700 1830 -筝肴タ蕭≦ 830 1000 1130 1400 1530 1700 1830 -筝冴ゃ泣若鴻祉潟帥若水 830 1000 1130 1400 1530 1700 1830 -筝堺 830 1000 1130 1400 1530 1700 1830 -筝堺掩2筝 830 1000 1130 1400 1530 1700 1830 -筝阪 830 1000 1130 1400 1530 1700 1830 -筝咲怨 830 1000 1130 1400 1530 1700 1830 -筝咲怨遺 830 1000 1130 1400 1530 1700 1830 -筝堺亥 830 1000 1130 1400 1530 1700 1830 -筝堺2筝 830 1000 1130 1400 1530 1700 1830 -筝堺1筝 830 1000 1130 1400 1530 1700 1830 -筝咲育 830 1000 1130 1400 1530 1700 1830 -筝榊悟 830 1000 1130 1400 1530 1700 1830 -筝冴激寂査祉潟帥弱 830 1000 1130 1400 1530 1700 1830 -筝坂賢紊 830 1000 1130 1400 1530 1700 1830 -筝坂賢肴タ 830 1000 1130 1400 1530 1700 1830 - -筝3筝絲睡 831 1001 1131 1401 1531 1701 1831 -筝3筝祉潟帥弱 831 1001 1131 1401 1531 1701 1831 -筝3筝亥1筝 831 1001 1131 1401 1531 1701 1831 -筝3筝腮臀峨 831 1001 1131 1401 1531 1701 1831 -筝3筝筝1筝 831 1001 1131 1401 1531 1701 1831 -筝3筝絮若 831 1001 1131 1401 1531 1701 1831 -筝3筝級≦ 831 1001 1131 1401 1531 1701 1831 -筝3筝ョ 831 1001 1131 1401 1531 1701 1831 -筝3筝羈茱水 831 1001 1131 1401 1531 1701 1831 -筝3筝茱翠≦ 831 1001 1131 1401 1531 1701 1831 -筝3筝ゃ泣若鴻祉潟帥若水 831 1001 1131 1401 1531 1701 1831 -筝3筝羈 831 1001 1131 1401 1531 1701 1831 -筝3筝掩2筝 831 1001 1131 1401 1531 1701 1831 -筝3筝 831 1001 1131 1401 1531 1701 1831 -筝3筝薈怨 831 1001 1131 1401 1531 1701 1831 -筝3筝薈怨遺 831 1001 1131 1401 1531 1701 1831 -筝3筝亥 831 1001 1131 1401 1531 1701 1831 -筝3筝羌2筝 831 1001 1131 1401 1531 1701 1831 -筝3筝羌1筝 831 1001 1131 1401 1531 1701 1831 -筝3筝育 831 1001 1131 1401 1531 1701 1831 -筝3筝悟 831 1001 1131 1401 1531 1701 1831 -筝3筝激寂査祉潟帥弱 831 1001 1131 1401 1531 1701 1831 -筝3筝筝紊 831 1001 1131 1401 1531 1701 1831 -筝3筝筝肴タ 831 1001 1131 1401 1531 1701 1831 - -絲睡堺祉潟帥弱 832 1002 1132 1402 1532 1702 1832 -絲睡阪亥1筝 832 1002 1132 1402 1532 1702 1832 -絲睡榊臀峨 832 1002 1132 1402 1532 1702 1832 -絲睡阪筝1筝 832 1002 1132 1402 1532 1702 1832 -絲睡阪若 832 1002 1132 1402 1532 1702 1832 -絲睡阪級≦ 832 1002 1132 1402 1532 1702 1832 -絲睡阪ョ 832 1002 1132 1402 1532 1702 1832 -絲睡堺茱水 832 1002 1132 1402 1532 1702 1832 -絲睡肴タ蕭≦ 832 1002 1132 1402 1532 1702 1832 -絲睡冴ゃ泣若鴻祉潟帥若水 832 1002 1132 1402 1532 1702 1832 -絲睡堺 832 1002 1132 1402 1532 1702 1832 -絲睡堺掩2筝 832 1002 1132 1402 1532 1702 1832 -絲睡阪 832 1002 1132 1402 1532 1702 1832 -絲睡咲怨 832 1002 1132 1402 1532 1702 1832 -絲睡咲怨遺 832 1002 1132 1402 1532 1702 1832 -絲睡堺亥 832 1002 1132 1402 1532 1702 1832 -絲睡堺2筝 832 1002 1132 1402 1532 1702 1832 -絲睡堺1筝 832 1002 1132 1402 1532 1702 1832 -絲睡咲育 832 1002 1132 1402 1532 1702 1832 -絲睡榊悟 832 1002 1132 1402 1532 1702 1832 -絲睡冴激寂査祉潟帥弱 832 1002 1132 1402 1532 1702 1832 -絲睡坂賢紊 832 1002 1132 1402 1532 1702 1832 -絲睡坂賢肴タ 832 1002 1132 1402 1532 1702 1832 - -祉潟帥弱亥1筝 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱腮臀峨 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱筝1筝 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱絮若 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱級≦ 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱ョ 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱羈茱水 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱茱翠≦ 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱ゃ泣若鴻祉潟帥若水 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱羈 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱掩2筝 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱薈怨 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱薈怨遺 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱亥 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱羌2筝 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱羌1筝 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱育 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱悟 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱激寂査祉潟帥弱 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱筝紊 834 1004 1134 1404 1534 1704 1834 -祉潟帥弱筝肴タ 834 1004 1134 1404 1534 1704 1834 - -亥1筝腮臀峨 836 1006 1136 1406 1536 1706 1836 -亥1筝筝1筝 836 1006 1136 1406 1536 1706 1836 -亥1筝絮若 836 1006 1136 1406 1536 1706 1836 -亥1筝級≦ 836 1006 1136 1406 1536 1706 1836 -亥1筝ョ 836 1006 1136 1406 1536 1706 1836 -亥1筝羈茱水 836 1006 1136 1406 1536 1706 1836 -亥1筝茱翠≦ 836 1006 1136 1406 1536 1706 1836 -亥1筝ゃ泣若鴻祉潟帥若水 836 1006 1136 1406 1536 1706 1836 -亥1筝羈 836 1006 1136 1406 1536 1706 1836 -亥1筝掩2筝 836 1006 1136 1406 1536 1706 1836 -亥1筝 836 1006 1136 1406 1536 1706 1836 -亥1筝薈怨 836 1006 1136 1406 1536 1706 1836 -亥1筝薈怨遺 836 1006 1136 1406 1536 1706 1836 -亥1筝亥 836 1006 1136 1406 1536 1706 1836 -亥1筝羌2筝 836 1006 1136 1406 1536 1706 1836 -亥1筝羌1筝 836 1006 1136 1406 1536 1706 1836 -亥1筝育 836 1006 1136 1406 1536 1706 1836 -亥1筝悟 836 1006 1136 1406 1536 1706 1836 -亥1筝激寂査祉潟帥弱 836 1006 1136 1406 1536 1706 1836 -亥1筝筝紊 836 1006 1136 1406 1536 1706 1836 -亥1筝筝肴タ 836 1006 1136 1406 1536 1706 1836 - -腮臀峨筝1筝 837 1007 1137 1407 1537 1707 1837 -腮臀峨絮若 837 1007 1137 1407 1537 1707 1837 -腮臀峨級≦ 837 1007 1137 1407 1537 1707 1837 -腮臀峨ョ 837 1007 1137 1407 1537 1707 1837 -腮臀峨羈茱水 837 1007 1137 1407 1537 1707 1837 -腮臀峨茱翠≦ 837 1007 1137 1407 1537 1707 1837 -腮臀峨ゃ泣若鴻祉潟帥若水 837 1007 1137 1407 1537 1707 1837 -腮臀峨羈 837 1007 1137 1407 1537 1707 1837 -腮臀峨掩2筝 837 1007 1137 1407 1537 1707 1837 -腮臀峨 837 1007 1137 1407 1537 1707 1837 -腮臀峨薈怨 837 1007 1137 1407 1537 1707 1837 -腮臀峨薈怨遺 837 1007 1137 1407 1537 1707 1837 -腮臀峨亥 837 1007 1137 1407 1537 1707 1837 -腮臀峨羌2筝 837 1007 1137 1407 1537 1707 1837 -腮臀峨羌1筝 837 1007 1137 1407 1537 1707 1837 -腮臀峨育 837 1007 1137 1407 1537 1707 1837 -腮臀峨悟 837 1007 1137 1407 1537 1707 1837 -腮臀峨激寂査祉潟帥弱 837 1007 1137 1407 1537 1707 1837 -腮臀峨筝紊 837 1007 1137 1407 1537 1707 1837 -腮臀峨筝肴タ 837 1007 1137 1407 1537 1707 1837 - -筝1筝絮若 838 1008 1138 1408 1538 1708 1838 -筝1筝級≦ 838 1008 1138 1408 1538 1708 1838 -筝1筝ョ 838 1008 1138 1408 1538 1708 1838 -筝1筝羈茱水 838 1008 1138 1408 1538 1708 1838 -筝1筝茱翠≦ 838 1008 1138 1408 1538 1708 1838 -筝1筝ゃ泣若鴻祉潟帥若水 838 1008 1138 1408 1538 1708 1838 -筝1筝羈 838 1008 1138 1408 1538 1708 1838 -筝1筝掩2筝 838 1008 1138 1408 1538 1708 1838 -筝1筝 838 1008 1138 1408 1538 1708 1838 -筝1筝薈怨 838 1008 1138 1408 1538 1708 1838 -筝1筝薈怨遺 838 1008 1138 1408 1538 1708 1838 -筝1筝亥 838 1008 1138 1408 1538 1708 1838 -筝1筝羌2筝 838 1008 1138 1408 1538 1708 1838 -筝1筝羌1筝 838 1008 1138 1408 1538 1708 1838 -筝1筝育 838 1008 1138 1408 1538 1708 1838 -筝1筝悟 838 1008 1138 1408 1538 1708 1838 -筝1筝激寂査祉潟帥弱 838 1008 1138 1408 1538 1708 1838 -筝1筝筝紊 838 1008 1138 1408 1538 1708 1838 -筝1筝筝肴タ 838 1008 1138 1408 1538 1708 1838 - -絮若級≦ 839 1009 1139 1409 1539 1709 1839 -絮若ョ 839 1009 1139 1409 1539 1709 1839 -絮若羈茱水 839 1009 1139 1409 1539 1709 1839 -絮若茱翠≦ 839 1009 1139 1409 1539 1709 1839 -絮若ゃ泣若鴻祉潟帥若水 839 1009 1139 1409 1539 1709 1839 -絮若羈 839 1009 1139 1409 1539 1709 1839 -絮若掩2筝 839 1009 1139 1409 1539 1709 1839 -絮若 839 1009 1139 1409 1539 1709 1839 -絮若薈怨 839 1009 1139 1409 1539 1709 1839 -絮若薈怨遺 839 1009 1139 1409 1539 1709 1839 -絮若亥 839 1009 1139 1409 1539 1709 1839 -絮若羌2筝 839 1009 1139 1409 1539 1709 1839 -絮若羌1筝 839 1009 1139 1409 1539 1709 1839 -絮若育 839 1009 1139 1409 1539 1709 1839 -絮若悟 839 1009 1139 1409 1539 1709 1839 -絮若激寂査祉潟帥弱 839 1009 1139 1409 1539 1709 1839 -絮若筝紊 839 1009 1139 1409 1539 1709 1839 -絮若筝肴タ 839 1009 1139 1409 1539 1709 1839 - -級≦ョ 840 1010 1140 1410 1540 1710 1840 -級≦羈茱水 840 1010 1140 1410 1540 1710 1840 -級≦茱翠≦ 840 1010 1140 1410 1540 1710 1840 -級≦ゃ泣若鴻祉潟帥若水 840 1010 1140 1410 1540 1710 1840 -級≦羈 840 1010 1140 1410 1540 1710 1840 -級≦掩2筝 840 1010 1140 1410 1540 1710 1840 -級≦ 840 1010 1140 1410 1540 1710 1840 -級≦薈怨 840 1010 1140 1410 1540 1710 1840 -級≦薈怨遺 840 1010 1140 1410 1540 1710 1840 -級≦亥 840 1010 1140 1410 1540 1710 1840 -級≦羌2筝 840 1010 1140 1410 1540 1710 1840 -級≦羌1筝 840 1010 1140 1410 1540 1710 1840 -級≦育 840 1010 1140 1410 1540 1710 1840 -級≦悟 840 1010 1140 1410 1540 1710 1840 -級≦激寂査祉潟帥弱 840 1010 1140 1410 1540 1710 1840 -級≦筝紊 840 1010 1140 1410 1540 1710 1840 -級≦筝肴タ 840 1010 1140 1410 1540 1710 1840 - -ョ堺茱水 842 1012 1142 1412 1542 1712 1842 -ョ肴タ蕭≦ 842 1012 1142 1412 1542 1712 1842 -ョ冴ゃ泣若鴻祉潟帥若水 842 1012 1142 1412 1542 1712 1842 -ョ堺 842 1012 1142 1412 1542 1712 1842 -ョ堺掩2筝 842 1012 1142 1412 1542 1712 1842 -ョ阪 842 1012 1142 1412 1542 1712 1842 -ョ咲怨 842 1012 1142 1412 1542 1712 1842 -ョ咲怨遺 842 1012 1142 1412 1542 1712 1842 -ョ堺亥 842 1012 1142 1412 1542 1712 1842 -ョ堺2筝 842 1012 1142 1412 1542 1712 1842 -ョ堺1筝 842 1012 1142 1412 1542 1712 1842 -ョ咲育 842 1012 1142 1412 1542 1712 1842 -ョ榊悟 842 1012 1142 1412 1542 1712 1842 -ョ冴激寂査祉潟帥弱 842 1012 1142 1412 1542 1712 1842 -ョ坂賢紊 842 1012 1142 1412 1542 1712 1842 -ョ坂賢肴タ 842 1012 1142 1412 1542 1712 1842 - -羈茱水茱翠≦ 845 1015 1145 1415 1545 1715 1845 -羈茱水ゃ泣若鴻祉潟帥若水 845 1015 1145 1415 1545 1715 1845 -羈茱水羈 845 1015 1145 1415 1545 1715 1845 -羈茱水掩2筝 845 1015 1145 1415 1545 1715 1845 -羈茱水 845 1015 1145 1415 1545 1715 1845 -羈茱水薈怨 845 1015 1145 1415 1545 1715 1845 -羈茱水薈怨遺 845 1015 1145 1415 1545 1715 1845 -羈茱水亥 845 1015 1145 1415 1545 1715 1845 -羈茱水羌2筝 845 1015 1145 1415 1545 1715 1845 -羈茱水羌1筝 845 1015 1145 1415 1545 1715 1845 -羈茱水育 845 1015 1145 1415 1545 1715 1845 -羈茱水悟 845 1015 1145 1415 1545 1715 1845 -羈茱水激寂査祉潟帥弱 845 1015 1145 1415 1545 1715 1845 -羈茱水筝紊 845 1015 1145 1415 1545 1715 1845 -羈茱水筝肴タ 845 1015 1145 1415 1545 1715 1845 - -茱翠≦ゃ泣若鴻祉潟帥若水 845 1015 1145 1415 1545 1715 1845 -茱翠≦羈 845 1015 1145 1415 1545 1715 1845 -茱翠≦掩2筝 845 1015 1145 1415 1545 1715 1845 -茱翠≦ 845 1015 1145 1415 1545 1715 1845 -茱翠≦薈怨 845 1015 1145 1415 1545 1715 1845 -茱翠≦薈怨遺 845 1015 1145 1415 1545 1715 1845 -茱翠≦亥 845 1015 1145 1415 1545 1715 1845 -茱翠≦羌2筝 845 1015 1145 1415 1545 1715 1845 -茱翠≦羌1筝 845 1015 1145 1415 1545 1715 1845 -茱翠≦育 845 1015 1145 1415 1545 1715 1845 -茱翠≦悟 845 1015 1145 1415 1545 1715 1845 -茱翠≦激寂査祉潟帥弱 845 1015 1145 1415 1545 1715 1845 -茱翠≦筝紊 845 1015 1145 1415 1545 1715 1845 -茱翠≦筝肴タ 845 1015 1145 1415 1545 1715 1845 - -ゃ泣若鴻祉潟帥若水羈 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水掩2筝 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水薈怨 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水薈怨遺 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水亥 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水羌2筝 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水羌1筝 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水育 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水悟 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水激寂査祉潟帥弱 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水筝紊 846 1016 1146 1416 1546 1716 1846 -ゃ泣若鴻祉潟帥若水筝肴タ 846 1016 1146 1416 1546 1716 1846 - -羈掩2筝 846 1016 1146 1416 1546 1716 1846 -羈 846 1016 1146 1416 1546 1716 1846 -羈薈怨 846 1016 1146 1416 1546 1716 1846 -羈薈怨遺 846 1016 1146 1416 1546 1716 1846 -羈亥 846 1016 1146 1416 1546 1716 1846 -羈羌2筝 846 1016 1146 1416 1546 1716 1846 -羈羌1筝 846 1016 1146 1416 1546 1716 1846 -羈育 846 1016 1146 1416 1546 1716 1846 -羈悟 846 1016 1146 1416 1546 1716 1846 -羈激寂査祉潟帥弱 846 1016 1146 1416 1546 1716 1846 -羈筝紊 846 1016 1146 1416 1546 1716 1846 -羈筝肴タ 846 1016 1146 1416 1546 1716 1846 - -掩2筝 847 1017 1147 1417 1547 1717 1847 -掩2筝薈怨 847 1017 1147 1417 1547 1717 1847 -掩2筝薈怨遺 847 1017 1147 1417 1547 1717 1847 -掩2筝亥 847 1017 1147 1417 1547 1717 1847 -掩2筝羌2筝 847 1017 1147 1417 1547 1717 1847 -掩2筝羌1筝 847 1017 1147 1417 1547 1717 1847 -掩2筝育 847 1017 1147 1417 1547 1717 1847 -掩2筝悟 847 1017 1147 1417 1547 1717 1847 -掩2筝激寂査祉潟帥弱 847 1017 1147 1417 1547 1717 1847 -掩2筝筝紊 847 1017 1147 1417 1547 1717 1847 -掩2筝筝肴タ 847 1017 1147 1417 1547 1717 1847 - -薈怨 848 1018 1148 1418 1548 1718 1848 -薈怨遺 848 1018 1148 1418 1548 1718 1848 -亥 848 1018 1148 1418 1548 1718 1848 -羌2筝 848 1018 1148 1418 1548 1718 1848 -羌1筝 848 1018 1148 1418 1548 1718 1848 -育 848 1018 1148 1418 1548 1718 1848 -悟 848 1018 1148 1418 1548 1718 1848 -激寂査祉潟帥弱 848 1018 1148 1418 1548 1718 1848 -筝紊 848 1018 1148 1418 1548 1718 1848 -筝肴タ 848 1018 1148 1418 1548 1718 1848 - -薈怨薈怨遺 849 1019 1149 1419 1549 1719 1849 -薈怨亥 849 1019 1149 1419 1549 1719 1849 -薈怨羌2筝 849 1019 1149 1419 1549 1719 1849 -薈怨羌1筝 849 1019 1149 1419 1549 1719 1849 -薈怨育 849 1019 1149 1419 1549 1719 1849 -薈怨悟 849 1019 1149 1419 1549 1719 1849 -薈怨激寂査祉潟帥弱 849 1019 1149 1419 1549 1719 1849 -薈怨筝紊 849 1019 1149 1419 1549 1719 1849 -薈怨筝肴タ 849 1019 1149 1419 1549 1719 1849 - -薈怨遺亥 850 1020 1150 1420 1550 1720 1850 -薈怨遺羌2筝 850 1020 1150 1420 1550 1720 1850 -薈怨遺羌1筝 850 1020 1150 1420 1550 1720 1850 -薈怨遺育 850 1020 1150 1420 1550 1720 1850 -薈怨遺悟 850 1020 1150 1420 1550 1720 1850 -薈怨遺激寂査祉潟帥弱 850 1020 1150 1420 1550 1720 1850 -薈怨遺筝紊 850 1020 1150 1420 1550 1720 1850 -薈怨遺筝肴タ 850 1020 1150 1420 1550 1720 1850 - -亥堺2筝 851 1021 1151 1421 1551 1721 1851 -亥堺1筝 851 1021 1151 1421 1551 1721 1851 -亥咲育 851 1021 1151 1421 1551 1721 1851 -亥榊悟 851 1021 1151 1421 1551 1721 1851 -亥冴激寂査祉潟帥弱 851 1021 1151 1421 1551 1721 1851 -亥坂賢紊 851 1021 1151 1421 1551 1721 1851 -亥坂賢肴タ 851 1021 1151 1421 1551 1721 1851 - -羌2筝羌1筝 853 1023 1153 1423 1553 1723 1853 -羌2筝育 853 1023 1153 1423 1553 1723 1853 -羌2筝悟 853 1023 1153 1423 1553 1723 1853 -羌2筝激寂査祉潟帥弱 853 1023 1153 1423 1553 1723 1853 -羌2筝筝紊 853 1023 1153 1423 1553 1723 1853 -羌2筝筝肴タ 853 1023 1153 1423 1553 1723 1853 - -羌1筝育 856 1026 1156 1426 1556 1726 1856 -羌1筝悟 856 1026 1156 1426 1556 1726 1856 -羌1筝激寂査祉潟帥弱 856 1026 1156 1426 1556 1726 1856 -羌1筝筝紊 856 1026 1156 1426 1556 1726 1856 -羌1筝筝肴タ 856 1026 1156 1426 1556 1726 1856 - -育悟 856 1026 1156 1426 1556 1726 1856 -育激寂査祉潟帥弱 856 1026 1156 1426 1556 1726 1856 -育筝紊 856 1026 1156 1426 1556 1726 1856 -育筝肴タ 856 1026 1156 1426 1556 1726 1856 - -悟冴激寂査祉潟帥弱 858 1028 1158 1428 1558 1728 1858 -悟坂賢紊 858 1028 1158 1428 1558 1728 1858 -悟坂賢肴タ 858 1028 1158 1428 1558 1728 1858 - -激寂査祉潟帥弱筝紊 858 1028 1158 1428 1558 1728 1858 -激寂査祉潟帥弱筝肴タ 858 1028 1158 1428 1558 1728 1858 - -筝紊筝肴タ 900 1030 1250 1430 1600 1730 1900 - - - - - - - -筝坂賢紊 745 915 1045 1315 1445 1615 1745 -筝冴激寂査祉潟帥弱 745 915 1045 1315 1445 1615 1745 -筝榊悟 745 915 1045 1315 1445 1615 1745 -筝咲育 745 915 1045 1315 1445 1615 1745 -筝堺1筝 745 915 1045 1315 1445 1615 1745 -筝堺2筝 745 915 1045 1315 1445 1615 1745 -筝堺亥 745 915 1045 1315 1445 1615 1745 -筝咲怨遺 745 915 1045 1315 1445 1615 1745 -筝咲怨 745 915 1045 1315 1445 1615 1745 -筝阪 745 915 1045 1315 1445 1615 1745 -筝堺茱水 745 915 1045 1315 1445 1615 1745 -筝肴タ蕭≦ 745 915 1045 1315 1445 1615 1745 -筝冴ゃ泣若鴻祉潟帥若水 745 915 1045 1315 1445 1615 1745 -筝堺 745 915 1045 1315 1445 1615 1745 -筝堺掩2筝 745 915 1045 1315 1445 1615 1745 -筝阪ョ 745 915 1045 1315 1445 1615 1745 -筝阪級≦ 745 915 1045 1315 1445 1615 1745 -筝阪若 745 915 1045 1315 1445 1615 1745 -筝阪筝1筝 745 915 1045 1315 1445 1615 1745 -筝榊臀峨 745 915 1045 1315 1445 1615 1745 -筝阪亥1筝 745 915 1045 1315 1445 1615 1745 -筝堺祉潟帥弱 745 915 1045 1315 1445 1615 1745 -筝阪睡 745 915 1045 1315 1445 1615 1745 -筝坂賢3筝 745 915 1045 1315 1445 1615 1745 -筝坂賢肴タ 745 915 1045 1315 1445 1615 1745 -筝坂 745 915 1045 1315 1445 1615 1745 -筝坂 745 915 1045 1315 1445 1615 1745 -筝堺延賢 745 915 1045 1315 1445 1615 1745 -筝堺梓 745 915 1045 1315 1445 1615 1745 -筝阪ゅ頑胼霛祉潟帥弱 745 915 1045 1315 1445 1615 1745 -筝堺怨ぇ2筝 745 915 1045 1315 1445 1615 1745 -筝堺上潟ャｉ牙純祉潟帥弱 745 915 1045 1315 1445 1615 1745 -筝坂九3筝 745 915 1045 1315 1445 1615 1745 -筝坂九6筝 745 915 1045 1315 1445 1615 1745 -筝坂検臂順 745 915 1045 1315 1445 1615 1745 -筝冴紙 745 915 1045 1315 1445 1615 1745 -筝堺ユ羌欠 745 915 1045 1315 1445 1615 1745 -筝冴坂困 745 915 1045 1315 1445 1615 1745 -筝冴帥2筝 745 915 1045 1315 1445 1615 1745 -筝冴帥1筝 745 915 1045 1315 1445 1615 1745 -筝坂九灸梢絮 745 915 1045 1315 1445 1615 1745 -筝咲医紫祉潟帥弱 745 915 1045 1315 1445 1615 1745 -筝咲医紫祉潟帥弱 745 915 1045 1315 1445 1615 1745 -筝阪臼絮 745 915 1045 1315 1445 1615 1745 -筝阪綵号茱 745 915 1045 1315 1445 1615 1745 -筝坂賢 745 915 1045 1315 1445 1615 1745 - -筝紊激寂査祉潟帥弱 746 916 1046 1316 1446 1616 1746 -筝紊悟 746 916 1046 1316 1446 1616 1746 -筝紊育 746 916 1046 1316 1446 1616 1746 -筝紊羌1筝 746 916 1046 1316 1446 1616 1746 -筝紊羌2筝 746 916 1046 1316 1446 1616 1746 -筝紊亥 746 916 1046 1316 1446 1616 1746 -筝紊薈怨遺 746 916 1046 1316 1446 1616 1746 -筝紊薈怨 746 916 1046 1316 1446 1616 1746 -筝紊 746 916 1046 1316 1446 1616 1746 -筝紊羈茱水 746 916 1046 1316 1446 1616 1746 -筝紊茱翠≦ 746 916 1046 1316 1446 1616 1746 -筝紊ゃ泣若鴻祉潟帥若水 746 916 1046 1316 1446 1616 1746 -筝紊羈 746 916 1046 1316 1446 1616 1746 -筝紊掩2筝 746 916 1046 1316 1446 1616 1746 -筝紊ョ 746 916 1046 1316 1446 1616 1746 -筝紊級≦ 746 916 1046 1316 1446 1616 1746 -筝紊絮若 746 916 1046 1316 1446 1616 1746 -筝紊筝1筝 746 916 1046 1316 1446 1616 1746 -筝紊腮臀峨 746 916 1046 1316 1446 1616 1746 -筝紊亥1筝 746 916 1046 1316 1446 1616 1746 -筝紊祉潟帥弱 746 916 1046 1316 1446 1616 1746 -筝紊絲睡 746 916 1046 1316 1446 1616 1746 -筝紊筝3筝 746 916 1046 1316 1446 1616 1746 -筝紊筝肴タ 746 916 1046 1316 1446 1616 1746 -筝紊篋 746 916 1046 1316 1446 1616 1746 -筝紊筝 746 916 1046 1316 1446 1616 1746 -筝紊延賢 746 916 1046 1316 1446 1616 1746 -筝紊羂顔 746 916 1046 1316 1446 1616 1746 -筝紊ゅ頑胼霛祉潟帥弱 746 916 1046 1316 1446 1616 1746 -筝紊怨ぇ2筝 746 916 1046 1316 1446 1616 1746 -筝紊上潟ャｉ牙純祉潟帥弱 746 916 1046 1316 1446 1616 1746 -筝紊篋九3筝 746 916 1046 1316 1446 1616 1746 -筝紊篋九6筝 746 916 1046 1316 1446 1616 1746 -筝紊筝∞晶 746 916 1046 1316 1446 1616 1746 -筝紊紙 746 916 1046 1316 1446 1616 1746 -筝紊ユ羌欠 746 916 1046 1316 1446 1616 1746 -筝紊坂困 746 916 1046 1316 1446 1616 1746 -筝紊帥2筝 746 916 1046 1316 1446 1616 1746 -筝紊帥1筝 746 916 1046 1316 1446 1616 1746 -筝紊篋九灸梢絮 746 916 1046 1316 1446 1616 1746 -筝紊医紫祉潟帥弱 746 916 1046 1316 1446 1616 1746 -筝紊医紫祉潟帥弱 746 916 1046 1316 1446 1616 1746 -筝紊絮怨 746 916 1046 1316 1446 1616 1746 -筝紊絽綵号茱 746 916 1046 1316 1446 1616 1746 -筝紊筝 746 916 1046 1316 1446 1616 1746 - -激寂査祉潟帥弱悟 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱育 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱羌1筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱羌2筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱亥 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱薈怨遺 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱薈怨 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱羈茱水 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱茱翠≦ 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱ゃ泣若鴻祉潟帥若水 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱羈 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱掩2筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱ョ 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱級≦ 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱絮若 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱筝1筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱腮臀峨 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱亥1筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱祉潟帥弱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱絲睡 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱筝3筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱筝肴タ 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱篋 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱延賢 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱羂顔 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱ゅ頑胼霛祉潟帥弱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱怨ぇ2筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱上潟ャｉ牙純祉潟帥弱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱篋九3筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱篋九6筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱筝∞晶 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱紙 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱ユ羌欠 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱坂困 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱帥2筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱帥1筝 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱篋九灸梢絮 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱絮怨 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱絽綵号茱 747 917 1047 1317 1447 1617 1747 -激寂査祉潟帥弱筝 747 917 1047 1317 1447 1617 1747 - -悟咲育 747 917 1047 1317 1447 1617 1747 -悟堺1筝 747 917 1047 1317 1447 1617 1747 -悟堺2筝 747 917 1047 1317 1447 1617 1747 -悟堺亥 747 917 1047 1317 1447 1617 1747 -悟咲怨遺 747 917 1047 1317 1447 1617 1747 -悟咲怨 747 917 1047 1317 1447 1617 1747 -悟阪 747 917 1047 1317 1447 1617 1747 -悟堺茱水 747 917 1047 1317 1447 1617 1747 -悟肴タ蕭≦ 747 917 1047 1317 1447 1617 1747 -悟冴ゃ泣若鴻祉潟帥若水 747 917 1047 1317 1447 1617 1747 -悟堺 747 917 1047 1317 1447 1617 1747 -悟堺掩2筝 747 917 1047 1317 1447 1617 1747 -悟阪ョ 747 917 1047 1317 1447 1617 1747 -悟阪級≦ 747 917 1047 1317 1447 1617 1747 -悟阪若 747 917 1047 1317 1447 1617 1747 -悟阪筝1筝 747 917 1047 1317 1447 1617 1747 -悟榊臀峨 747 917 1047 1317 1447 1617 1747 -悟阪亥1筝 747 917 1047 1317 1447 1617 1747 -悟堺祉潟帥弱 747 917 1047 1317 1447 1617 1747 -悟阪睡 747 917 1047 1317 1447 1617 1747 -悟坂賢3筝 747 917 1047 1317 1447 1617 1747 -悟坂賢肴タ 747 917 1047 1317 1447 1617 1747 -悟坂 747 917 1047 1317 1447 1617 1747 -悟坂 747 917 1047 1317 1447 1617 1747 -悟堺延賢 747 917 1047 1317 1447 1617 1747 -悟堺梓 747 917 1047 1317 1447 1617 1747 -悟阪ゅ頑胼霛祉潟帥弱 747 917 1047 1317 1447 1617 1747 -悟堺怨ぇ2筝 747 917 1047 1317 1447 1617 1747 -悟堺上潟ャｉ牙純祉潟帥弱 747 917 1047 1317 1447 1617 1747 -悟坂九3筝 747 917 1047 1317 1447 1617 1747 -悟坂九6筝 747 917 1047 1317 1447 1617 1747 -悟坂検臂順 747 917 1047 1317 1447 1617 1747 -悟冴紙 747 917 1047 1317 1447 1617 1747 -悟堺ユ羌欠 747 917 1047 1317 1447 1617 1747 -悟冴坂困 747 917 1047 1317 1447 1617 1747 -悟冴帥2筝 747 917 1047 1317 1447 1617 1747 -悟冴帥1筝 747 917 1047 1317 1447 1617 1747 -悟坂九灸梢絮 747 917 1047 1317 1447 1617 1747 -悟咲医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 -悟咲医紫祉潟帥弱 747 917 1047 1317 1447 1617 1747 -悟阪臼絮 747 917 1047 1317 1447 1617 1747 -悟阪綵号茱 747 917 1047 1317 1447 1617 1747 -悟坂賢 747 917 1047 1317 1447 1617 1747 - -育羌1筝 749 919 1049 1319 1449 1619 1749 -育羌2筝 749 919 1049 1319 1449 1619 1749 -育亥 749 919 1049 1319 1449 1619 1749 -育薈怨遺 749 919 1049 1319 1449 1619 1749 -育薈怨 749 919 1049 1319 1449 1619 1749 -育 749 919 1049 1319 1449 1619 1749 -育羈茱水 749 919 1049 1319 1449 1619 1749 -育茱翠≦ 749 919 1049 1319 1449 1619 1749 -育ゃ泣若鴻祉潟帥若水 749 919 1049 1319 1449 1619 1749 -育羈 749 919 1049 1319 1449 1619 1749 -育掩2筝 749 919 1049 1319 1449 1619 1749 -育ョ 749 919 1049 1319 1449 1619 1749 -育級≦ 749 919 1049 1319 1449 1619 1749 -育絮若 749 919 1049 1319 1449 1619 1749 -育筝1筝 749 919 1049 1319 1449 1619 1749 -育腮臀峨 749 919 1049 1319 1449 1619 1749 -育亥1筝 749 919 1049 1319 1449 1619 1749 -育祉潟帥弱 749 919 1049 1319 1449 1619 1749 -育絲睡 749 919 1049 1319 1449 1619 1749 -育筝3筝 749 919 1049 1319 1449 1619 1749 -育筝肴タ 749 919 1049 1319 1449 1619 1749 -育篋 749 919 1049 1319 1449 1619 1749 -育筝 749 919 1049 1319 1449 1619 1749 -育延賢 749 919 1049 1319 1449 1619 1749 -育羂顔 749 919 1049 1319 1449 1619 1749 -育ゅ頑胼霛祉潟帥弱 749 919 1049 1319 1449 1619 1749 -育怨ぇ2筝 749 919 1049 1319 1449 1619 1749 -育上潟ャｉ牙純祉潟帥弱 749 919 1049 1319 1449 1619 1749 -育篋九3筝 749 919 1049 1319 1449 1619 1749 -育篋九6筝 749 919 1049 1319 1449 1619 1749 -育筝∞晶 749 919 1049 1319 1449 1619 1749 -育紙 749 919 1049 1319 1449 1619 1749 -育ユ羌欠 749 919 1049 1319 1449 1619 1749 -育坂困 749 919 1049 1319 1449 1619 1749 -育帥2筝 749 919 1049 1319 1449 1619 1749 -育帥1筝 749 919 1049 1319 1449 1619 1749 -育篋九灸梢絮 749 919 1049 1319 1449 1619 1749 -育医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 -育医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 -育絮怨 749 919 1049 1319 1449 1619 1749 -育絽綵号茱 749 919 1049 1319 1449 1619 1749 -育筝 749 919 1049 1319 1449 1619 1749 - -羌1筝羌2筝 749 919 1049 1319 1449 1619 1749 -羌1筝亥 749 919 1049 1319 1449 1619 1749 -羌1筝薈怨遺 749 919 1049 1319 1449 1619 1749 -羌1筝薈怨 749 919 1049 1319 1449 1619 1749 -羌1筝 749 919 1049 1319 1449 1619 1749 -羌1筝羈茱水 749 919 1049 1319 1449 1619 1749 -羌1筝茱翠≦ 749 919 1049 1319 1449 1619 1749 -羌1筝ゃ泣若鴻祉潟帥若水 749 919 1049 1319 1449 1619 1749 -羌1筝羈 749 919 1049 1319 1449 1619 1749 -羌1筝掩2筝 749 919 1049 1319 1449 1619 1749 -羌1筝ョ 749 919 1049 1319 1449 1619 1749 -羌1筝級≦ 749 919 1049 1319 1449 1619 1749 -羌1筝絮若 749 919 1049 1319 1449 1619 1749 -羌1筝筝1筝 749 919 1049 1319 1449 1619 1749 -羌1筝腮臀峨 749 919 1049 1319 1449 1619 1749 -羌1筝亥1筝 749 919 1049 1319 1449 1619 1749 -羌1筝祉潟帥弱 749 919 1049 1319 1449 1619 1749 -羌1筝絲睡 749 919 1049 1319 1449 1619 1749 -羌1筝筝3筝 749 919 1049 1319 1449 1619 1749 -羌1筝筝肴タ 749 919 1049 1319 1449 1619 1749 -羌1筝篋 749 919 1049 1319 1449 1619 1749 -羌1筝筝 749 919 1049 1319 1449 1619 1749 -羌1筝延賢 749 919 1049 1319 1449 1619 1749 -羌1筝羂顔 749 919 1049 1319 1449 1619 1749 -羌1筝ゅ頑胼霛祉潟帥弱 749 919 1049 1319 1449 1619 1749 -羌1筝怨ぇ2筝 749 919 1049 1319 1449 1619 1749 -羌1筝上潟ャｉ牙純祉潟帥弱 749 919 1049 1319 1449 1619 1749 -羌1筝篋九3筝 749 919 1049 1319 1449 1619 1749 -羌1筝篋九6筝 749 919 1049 1319 1449 1619 1749 -羌1筝筝∞晶 749 919 1049 1319 1449 1619 1749 -羌1筝紙 749 919 1049 1319 1449 1619 1749 -羌1筝ユ羌欠 749 919 1049 1319 1449 1619 1749 -羌1筝坂困 749 919 1049 1319 1449 1619 1749 -羌1筝帥2筝 749 919 1049 1319 1449 1619 1749 -羌1筝帥1筝 749 919 1049 1319 1449 1619 1749 -羌1筝篋九灸梢絮 749 919 1049 1319 1449 1619 1749 -羌1筝医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 -羌1筝医紫祉潟帥弱 749 919 1049 1319 1449 1619 1749 -羌1筝絮怨 749 919 1049 1319 1449 1619 1749 -羌1筝絽綵号茱 749 919 1049 1319 1449 1619 1749 -羌1筝筝 749 919 1049 1319 1449 1619 1749 - -羌2筝亥 752 922 1052 1322 1452 1622 1752 -羌2筝薈怨遺 752 922 1052 1322 1452 1622 1752 -羌2筝薈怨 752 922 1052 1322 1452 1622 1752 -羌2筝 752 922 1052 1322 1452 1622 1752 -羌2筝羈茱水 752 922 1052 1322 1452 1622 1752 -羌2筝茱翠≦ 752 922 1052 1322 1452 1622 1752 -羌2筝ゃ泣若鴻祉潟帥若水 752 922 1052 1322 1452 1622 1752 -羌2筝羈 752 922 1052 1322 1452 1622 1752 -羌2筝掩2筝 752 922 1052 1322 1452 1622 1752 -羌2筝ョ 752 922 1052 1322 1452 1622 1752 -羌2筝級≦ 752 922 1052 1322 1452 1622 1752 -羌2筝絮若 752 922 1052 1322 1452 1622 1752 -羌2筝筝1筝 752 922 1052 1322 1452 1622 1752 -羌2筝腮臀峨 752 922 1052 1322 1452 1622 1752 -羌2筝亥1筝 752 922 1052 1322 1452 1622 1752 -羌2筝祉潟帥弱 752 922 1052 1322 1452 1622 1752 -羌2筝絲睡 752 922 1052 1322 1452 1622 1752 -羌2筝筝3筝 752 922 1052 1322 1452 1622 1752 -羌2筝筝肴タ 752 922 1052 1322 1452 1622 1752 -羌2筝篋 752 922 1052 1322 1452 1622 1752 -羌2筝筝 752 922 1052 1322 1452 1622 1752 -羌2筝延賢 752 922 1052 1322 1452 1622 1752 -羌2筝羂顔 752 922 1052 1322 1452 1622 1752 -羌2筝ゅ頑胼霛祉潟帥弱 752 922 1052 1322 1452 1622 1752 -羌2筝怨ぇ2筝 752 922 1052 1322 1452 1622 1752 -羌2筝上潟ャｉ牙純祉潟帥弱 752 922 1052 1322 1452 1622 1752 -羌2筝篋九3筝 752 922 1052 1322 1452 1622 1752 -羌2筝篋九6筝 752 922 1052 1322 1452 1622 1752 -羌2筝筝∞晶 752 922 1052 1322 1452 1622 1752 -羌2筝紙 752 922 1052 1322 1452 1622 1752 -羌2筝ユ羌欠 752 922 1052 1322 1452 1622 1752 -羌2筝坂困 752 922 1052 1322 1452 1622 1752 -羌2筝帥2筝 752 922 1052 1322 1452 1622 1752 -羌2筝帥1筝 752 922 1052 1322 1452 1622 1752 -羌2筝篋九灸梢絮 752 922 1052 1322 1452 1622 1752 -羌2筝医紫祉潟帥弱 752 922 1052 1322 1452 1622 1752 -羌2筝医紫祉潟帥弱 752 922 1052 1322 1452 1622 1752 -羌2筝絮怨 752 922 1052 1322 1452 1622 1752 -羌2筝絽綵号茱 752 922 1052 1322 1452 1622 1752 -羌2筝筝 752 922 1052 1322 1452 1622 1752 - -亥咲怨遺 754 924 1054 1324 1454 1624 1754 -亥咲怨 754 924 1054 1324 1454 1624 1754 -亥阪 754 924 1054 1324 1454 1624 1754 -亥堺茱水 754 924 1054 1324 1454 1624 1754 -亥肴タ蕭≦ 754 924 1054 1324 1454 1624 1754 -亥冴ゃ泣若鴻祉潟帥若水 754 924 1054 1324 1454 1624 1754 -亥堺 754 924 1054 1324 1454 1624 1754 -亥堺掩2筝 754 924 1054 1324 1454 1624 1754 -亥阪ョ 754 924 1054 1324 1454 1624 1754 -亥阪級≦ 754 924 1054 1324 1454 1624 1754 -亥阪若 754 924 1054 1324 1454 1624 1754 -亥阪筝1筝 754 924 1054 1324 1454 1624 1754 -亥榊臀峨 754 924 1054 1324 1454 1624 1754 -亥阪亥1筝 754 924 1054 1324 1454 1624 1754 -亥堺祉潟帥弱 754 924 1054 1324 1454 1624 1754 -亥阪睡 754 924 1054 1324 1454 1624 1754 -亥坂賢3筝 754 924 1054 1324 1454 1624 1754 -亥坂賢肴タ 754 924 1054 1324 1454 1624 1754 -亥坂 754 924 1054 1324 1454 1624 1754 -亥坂 754 924 1054 1324 1454 1624 1754 -亥堺延賢 754 924 1054 1324 1454 1624 1754 -亥堺梓 754 924 1054 1324 1454 1624 1754 -亥阪ゅ頑胼霛祉潟帥弱 754 924 1054 1324 1454 1624 1754 -亥堺怨ぇ2筝 754 924 1054 1324 1454 1624 1754 -亥堺上潟ャｉ牙純祉潟帥弱 754 924 1054 1324 1454 1624 1754 -亥坂九3筝 754 924 1054 1324 1454 1624 1754 -亥坂九6筝 754 924 1054 1324 1454 1624 1754 -亥坂検臂順 754 924 1054 1324 1454 1624 1754 -亥冴紙 754 924 1054 1324 1454 1624 1754 -亥堺ユ羌欠 754 924 1054 1324 1454 1624 1754 -亥冴坂困 754 924 1054 1324 1454 1624 1754 -亥冴帥2筝 754 924 1054 1324 1454 1624 1754 -亥冴帥1筝 754 924 1054 1324 1454 1624 1754 -亥坂九灸梢絮 754 924 1054 1324 1454 1624 1754 -亥咲医紫祉潟帥弱 754 924 1054 1324 1454 1624 1754 -亥咲医紫祉潟帥弱 754 924 1054 1324 1454 1624 1754 -亥阪臼絮 754 924 1054 1324 1454 1624 1754 -亥阪綵号茱 754 924 1054 1324 1454 1624 1754 -亥坂賢 754 924 1054 1324 1454 1624 1754 - -薈怨遺薈怨 755 925 1055 1325 1455 1625 1755 -薈怨遺 755 925 1055 1325 1455 1625 1755 -薈怨遺羈茱水 755 925 1055 1325 1455 1625 1755 -薈怨遺茱翠≦ 755 925 1055 1325 1455 1625 1755 -薈怨遺ゃ泣若鴻祉潟帥若水 755 925 1055 1325 1455 1625 1755 -薈怨遺羈 755 925 1055 1325 1455 1625 1755 -薈怨遺掩2筝 755 925 1055 1325 1455 1625 1755 -薈怨遺ョ 755 925 1055 1325 1455 1625 1755 -薈怨遺級≦ 755 925 1055 1325 1455 1625 1755 -薈怨遺絮若 755 925 1055 1325 1455 1625 1755 -薈怨遺筝1筝 755 925 1055 1325 1455 1625 1755 -薈怨遺腮臀峨 755 925 1055 1325 1455 1625 1755 -薈怨遺亥1筝 755 925 1055 1325 1455 1625 1755 -薈怨遺祉潟帥弱 755 925 1055 1325 1455 1625 1755 -薈怨遺絲睡 755 925 1055 1325 1455 1625 1755 -薈怨遺筝3筝 755 925 1055 1325 1455 1625 1755 -薈怨遺筝肴タ 755 925 1055 1325 1455 1625 1755 -薈怨遺篋 755 925 1055 1325 1455 1625 1755 -薈怨遺筝 755 925 1055 1325 1455 1625 1755 -薈怨遺延賢 755 925 1055 1325 1455 1625 1755 -薈怨遺羂顔 755 925 1055 1325 1455 1625 1755 -薈怨遺ゅ頑胼霛祉潟帥弱 755 925 1055 1325 1455 1625 1755 -薈怨遺怨ぇ2筝 755 925 1055 1325 1455 1625 1755 -薈怨遺上潟ャｉ牙純祉潟帥弱 755 925 1055 1325 1455 1625 1755 -薈怨遺篋九3筝 755 925 1055 1325 1455 1625 1755 -薈怨遺篋九6筝 755 925 1055 1325 1455 1625 1755 -薈怨遺筝∞晶 755 925 1055 1325 1455 1625 1755 -薈怨遺紙 755 925 1055 1325 1455 1625 1755 -薈怨遺ユ羌欠 755 925 1055 1325 1455 1625 1755 -薈怨遺坂困 755 925 1055 1325 1455 1625 1755 -薈怨遺帥2筝 755 925 1055 1325 1455 1625 1755 -薈怨遺帥1筝 755 925 1055 1325 1455 1625 1755 -薈怨遺篋九灸梢絮 755 925 1055 1325 1455 1625 1755 -薈怨遺医紫祉潟帥弱 755 925 1055 1325 1455 1625 1755 -薈怨遺医紫祉潟帥弱 755 925 1055 1325 1455 1625 1755 -薈怨遺絮怨 755 925 1055 1325 1455 1625 1755 -薈怨遺絽綵号茱 755 925 1055 1325 1455 1625 1755 -薈怨遺筝 755 925 1055 1325 1455 1625 1755 - -薈怨 756 926 1056 1326 1456 1626 1756 -薈怨羈茱水 756 926 1056 1326 1456 1626 1756 -薈怨茱翠≦ 756 926 1056 1326 1456 1626 1756 -薈怨ゃ泣若鴻祉潟帥若水 756 926 1056 1326 1456 1626 1756 -薈怨羈 756 926 1056 1326 1456 1626 1756 -薈怨掩2筝 756 926 1056 1326 1456 1626 1756 -薈怨ョ 756 926 1056 1326 1456 1626 1756 -薈怨級≦ 756 926 1056 1326 1456 1626 1756 -薈怨絮若 756 926 1056 1326 1456 1626 1756 -薈怨筝1筝 756 926 1056 1326 1456 1626 1756 -薈怨腮臀峨 756 926 1056 1326 1456 1626 1756 -薈怨亥1筝 756 926 1056 1326 1456 1626 1756 -薈怨祉潟帥弱 756 926 1056 1326 1456 1626 1756 -薈怨絲睡 756 926 1056 1326 1456 1626 1756 -薈怨筝3筝 756 926 1056 1326 1456 1626 1756 -薈怨筝肴タ 756 926 1056 1326 1456 1626 1756 -薈怨篋 756 926 1056 1326 1456 1626 1756 -薈怨筝 756 926 1056 1326 1456 1626 1756 -薈怨延賢 756 926 1056 1326 1456 1626 1756 -薈怨羂顔 756 926 1056 1326 1456 1626 1756 -薈怨ゅ頑胼霛祉潟帥弱 756 926 1056 1326 1456 1626 1756 -薈怨怨ぇ2筝 756 926 1056 1326 1456 1626 1756 -薈怨上潟ャｉ牙純祉潟帥弱 756 926 1056 1326 1456 1626 1756 -薈怨篋九3筝 756 926 1056 1326 1456 1626 1756 -薈怨篋九6筝 756 926 1056 1326 1456 1626 1756 -薈怨筝∞晶 756 926 1056 1326 1456 1626 1756 -薈怨紙 756 926 1056 1326 1456 1626 1756 -薈怨ユ羌欠 756 926 1056 1326 1456 1626 1756 -薈怨坂困 756 926 1056 1326 1456 1626 1756 -薈怨帥2筝 756 926 1056 1326 1456 1626 1756 -薈怨帥1筝 756 926 1056 1326 1456 1626 1756 -薈怨篋九灸梢絮 756 926 1056 1326 1456 1626 1756 -薈怨医紫祉潟帥弱 756 926 1056 1326 1456 1626 1756 -薈怨医紫祉潟帥弱 756 926 1056 1326 1456 1626 1756 -薈怨絮怨 756 926 1056 1326 1456 1626 1756 -薈怨絽綵号茱 756 926 1056 1326 1456 1626 1756 -薈怨筝 756 926 1056 1326 1456 1626 1756 - -羈茱水 757 927 1057 1327 1457 1627 1757 -茱翠≦ 757 927 1057 1327 1457 1627 1757 -ゃ泣若鴻祉潟帥若水 757 927 1057 1327 1457 1627 1757 -羈 757 927 1057 1327 1457 1627 1757 -掩2筝 757 927 1057 1327 1457 1627 1757 -ョ 757 927 1057 1327 1457 1627 1757 -級≦ 757 927 1057 1327 1457 1627 1757 -絮若 757 927 1057 1327 1457 1627 1757 -筝1筝 757 927 1057 1327 1457 1627 1757 -腮臀峨 757 927 1057 1327 1457 1627 1757 -亥1筝 757 927 1057 1327 1457 1627 1757 -祉潟帥弱 757 927 1057 1327 1457 1627 1757 -絲睡 757 927 1057 1327 1457 1627 1757 -筝3筝 757 927 1057 1327 1457 1627 1757 -筝肴タ 757 927 1057 1327 1457 1627 1757 -篋 757 927 1057 1327 1457 1627 1757 -筝 757 927 1057 1327 1457 1627 1757 -延賢 757 927 1057 1327 1457 1627 1757 -羂顔 757 927 1057 1327 1457 1627 1757 -ゅ頑胼霛祉潟帥弱 757 927 1057 1327 1457 1627 1757 -怨ぇ2筝 757 927 1057 1327 1457 1627 1757 -上潟ャｉ牙純祉潟帥弱 757 927 1057 1327 1457 1627 1757 -篋九3筝 757 927 1057 1327 1457 1627 1757 -篋九6筝 757 927 1057 1327 1457 1627 1757 -筝∞晶 757 927 1057 1327 1457 1627 1757 -紙 757 927 1057 1327 1457 1627 1757 -ユ羌欠 757 927 1057 1327 1457 1627 1757 -坂困 757 927 1057 1327 1457 1627 1757 -帥2筝 757 927 1057 1327 1457 1627 1757 -帥1筝 757 927 1057 1327 1457 1627 1757 -篋九灸梢絮 757 927 1057 1327 1457 1627 1757 -医紫祉潟帥弱 757 927 1057 1327 1457 1627 1757 -医紫祉潟帥弱 757 927 1057 1327 1457 1627 1757 -絮怨 757 927 1057 1327 1457 1627 1757 -絽綵号茱 757 927 1057 1327 1457 1627 1757 -筝 757 927 1057 1327 1457 1627 1757 - -羈茱水茱翠≦ 758 928 1058 1328 1458 1628 1758 -羈茱水ゃ泣若鴻祉潟帥若水 758 928 1058 1328 1458 1628 1758 -羈茱水羈 758 928 1058 1328 1458 1628 1758 -羈茱水掩2筝 758 928 1058 1328 1458 1628 1758 -羈茱水ョ 758 928 1058 1328 1458 1628 1758 -羈茱水級≦ 758 928 1058 1328 1458 1628 1758 -羈茱水絮若 758 928 1058 1328 1458 1628 1758 -羈茱水筝1筝 758 928 1058 1328 1458 1628 1758 -羈茱水腮臀峨 758 928 1058 1328 1458 1628 1758 -羈茱水亥1筝 758 928 1058 1328 1458 1628 1758 -羈茱水祉潟帥弱 758 928 1058 1328 1458 1628 1758 -羈茱水絲睡 758 928 1058 1328 1458 1628 1758 -羈茱水筝3筝 758 928 1058 1328 1458 1628 1758 -羈茱水筝肴タ 758 928 1058 1328 1458 1628 1758 -羈茱水篋 758 928 1058 1328 1458 1628 1758 -羈茱水筝 758 928 1058 1328 1458 1628 1758 -羈茱水延賢 758 928 1058 1328 1458 1628 1758 -羈茱水羂顔 758 928 1058 1328 1458 1628 1758 -羈茱水ゅ頑胼霛祉潟帥弱 758 928 1058 1328 1458 1628 1758 -羈茱水怨ぇ2筝 758 928 1058 1328 1458 1628 1758 -羈茱水上潟ャｉ牙純祉潟帥弱 758 928 1058 1328 1458 1628 1758 -羈茱水篋九3筝 758 928 1058 1328 1458 1628 1758 -羈茱水篋九6筝 758 928 1058 1328 1458 1628 1758 -羈茱水筝∞晶 758 928 1058 1328 1458 1628 1758 -羈茱水紙 758 928 1058 1328 1458 1628 1758 -羈茱水ユ羌欠 758 928 1058 1328 1458 1628 1758 -羈茱水坂困 758 928 1058 1328 1458 1628 1758 -羈茱水帥2筝 758 928 1058 1328 1458 1628 1758 -羈茱水帥1筝 758 928 1058 1328 1458 1628 1758 -羈茱水篋九灸梢絮 758 928 1058 1328 1458 1628 1758 -羈茱水医紫祉潟帥弱 758 928 1058 1328 1458 1628 1758 -羈茱水医紫祉潟帥弱 758 928 1058 1328 1458 1628 1758 -羈茱水絮怨 758 928 1058 1328 1458 1628 1758 -羈茱水絽綵号茱 758 928 1058 1328 1458 1628 1758 -羈茱水筝 758 928 1058 1328 1458 1628 1758 - -茱翠≦ゃ泣若鴻祉潟帥若水 759 929 1059 1329 1459 1629 1759 -茱翠≦羈 759 929 1059 1329 1459 1629 1759 -茱翠≦掩2筝 759 929 1059 1329 1459 1629 1759 -茱翠≦ョ 759 929 1059 1329 1459 1629 1759 -茱翠≦級≦ 759 929 1059 1329 1459 1629 1759 -茱翠≦絮若 759 929 1059 1329 1459 1629 1759 -茱翠≦筝1筝 759 929 1059 1329 1459 1629 1759 -茱翠≦腮臀峨 759 929 1059 1329 1459 1629 1759 -茱翠≦亥1筝 759 929 1059 1329 1459 1629 1759 -茱翠≦祉潟帥弱 759 929 1059 1329 1459 1629 1759 -茱翠≦絲睡 759 929 1059 1329 1459 1629 1759 -茱翠≦筝3筝 759 929 1059 1329 1459 1629 1759 -茱翠≦筝肴タ 759 929 1059 1329 1459 1629 1759 -茱翠≦篋 759 929 1059 1329 1459 1629 1759 -茱翠≦筝 759 929 1059 1329 1459 1629 1759 -茱翠≦延賢 759 929 1059 1329 1459 1629 1759 -茱翠≦羂顔 759 929 1059 1329 1459 1629 1759 -茱翠≦ゅ頑胼霛祉潟帥弱 759 929 1059 1329 1459 1629 1759 -茱翠≦怨ぇ2筝 759 929 1059 1329 1459 1629 1759 -茱翠≦上潟ャｉ牙純祉潟帥弱 759 929 1059 1329 1459 1629 1759 -茱翠≦篋九3筝 759 929 1059 1329 1459 1629 1759 -茱翠≦篋九6筝 759 929 1059 1329 1459 1629 1759 -茱翠≦筝∞晶 759 929 1059 1329 1459 1629 1759 -茱翠≦紙 759 929 1059 1329 1459 1629 1759 -茱翠≦ユ羌欠 759 929 1059 1329 1459 1629 1759 -茱翠≦坂困 759 929 1059 1329 1459 1629 1759 -茱翠≦帥2筝 759 929 1059 1329 1459 1629 1759 -茱翠≦帥1筝 759 929 1059 1329 1459 1629 1759 -茱翠≦篋九灸梢絮 759 929 1059 1329 1459 1629 1759 -茱翠≦医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 -茱翠≦医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 -茱翠≦絮怨 759 929 1059 1329 1459 1629 1759 -茱翠≦絽綵号茱 759 929 1059 1329 1459 1629 1759 -茱翠≦筝 759 929 1059 1329 1459 1629 1759 - -ゃ泣若鴻祉潟帥若水羈 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水掩2筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水ョ 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水級≦ 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水絮若 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水筝1筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水腮臀峨 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水亥1筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水祉潟帥弱 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水絲睡 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水筝3筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水筝肴タ 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水篋 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水延賢 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水羂顔 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水ゅ頑胼霛祉潟帥弱 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水怨ぇ2筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水上潟ャｉ牙純祉潟帥弱 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水篋九3筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水篋九6筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水筝∞晶 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水紙 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水ユ羌欠 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水坂困 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水帥2筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水帥1筝 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水篋九灸梢絮 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水絮怨 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水絽綵号茱 759 929 1059 1329 1459 1629 1759 -ゃ泣若鴻祉潟帥若水筝 759 929 1059 1329 1459 1629 1759 - -羈掩2筝 800 930 1100 1330 1500 1630 1800 -羈ョ 800 930 1100 1330 1500 1630 1800 -羈級≦ 800 930 1100 1330 1500 1630 1800 -羈絮若 800 930 1100 1330 1500 1630 1800 -羈筝1筝 800 930 1100 1330 1500 1630 1800 -羈腮臀峨 800 930 1100 1330 1500 1630 1800 -羈亥1筝 800 930 1100 1330 1500 1630 1800 -羈祉潟帥弱 800 930 1100 1330 1500 1630 1800 -羈絲睡 800 930 1100 1330 1500 1630 1800 -羈筝3筝 800 930 1100 1330 1500 1630 1800 -羈筝肴タ 800 930 1100 1330 1500 1630 1800 -羈篋 800 930 1100 1330 1500 1630 1800 -羈筝 800 930 1100 1330 1500 1630 1800 -羈延賢 800 930 1100 1330 1500 1630 1800 -羈羂顔 800 930 1100 1330 1500 1630 1800 -羈ゅ頑胼霛祉潟帥弱 800 930 1100 1330 1500 1630 1800 -羈怨ぇ2筝 800 930 1100 1330 1500 1630 1800 -羈上潟ャｉ牙純祉潟帥弱 800 930 1100 1330 1500 1630 1800 -羈篋九3筝 800 930 1100 1330 1500 1630 1800 -羈篋九6筝 800 930 1100 1330 1500 1630 1800 -羈筝∞晶 800 930 1100 1330 1500 1630 1800 -羈紙 800 930 1100 1330 1500 1630 1800 -羈ユ羌欠 800 930 1100 1330 1500 1630 1800 -羈坂困 800 930 1100 1330 1500 1630 1800 -羈帥2筝 800 930 1100 1330 1500 1630 1800 -羈帥1筝 800 930 1100 1330 1500 1630 1800 -羈篋九灸梢絮 800 930 1100 1330 1500 1630 1800 -羈医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 -羈医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 -羈絮怨 800 930 1100 1330 1500 1630 1800 -羈絽綵号茱 800 930 1100 1330 1500 1630 1800 -羈筝 800 930 1100 1330 1500 1630 1800 - -掩2筝ョ 800 930 1100 1330 1500 1630 1800 -掩2筝級≦ 800 930 1100 1330 1500 1630 1800 -掩2筝絮若 800 930 1100 1330 1500 1630 1800 -掩2筝筝1筝 800 930 1100 1330 1500 1630 1800 -掩2筝腮臀峨 800 930 1100 1330 1500 1630 1800 -掩2筝亥1筝 800 930 1100 1330 1500 1630 1800 -掩2筝祉潟帥弱 800 930 1100 1330 1500 1630 1800 -掩2筝絲睡 800 930 1100 1330 1500 1630 1800 -掩2筝筝3筝 800 930 1100 1330 1500 1630 1800 -掩2筝筝肴タ 800 930 1100 1330 1500 1630 1800 -掩2筝篋 800 930 1100 1330 1500 1630 1800 -掩2筝筝 800 930 1100 1330 1500 1630 1800 -掩2筝延賢 800 930 1100 1330 1500 1630 1800 -掩2筝羂顔 800 930 1100 1330 1500 1630 1800 -掩2筝ゅ頑胼霛祉潟帥弱 800 930 1100 1330 1500 1630 1800 -掩2筝怨ぇ2筝 800 930 1100 1330 1500 1630 1800 -掩2筝上潟ャｉ牙純祉潟帥弱 800 930 1100 1330 1500 1630 1800 -掩2筝篋九3筝 800 930 1100 1330 1500 1630 1800 -掩2筝篋九6筝 800 930 1100 1330 1500 1630 1800 -掩2筝筝∞晶 800 930 1100 1330 1500 1630 1800 -掩2筝紙 800 930 1100 1330 1500 1630 1800 -掩2筝ユ羌欠 800 930 1100 1330 1500 1630 1800 -掩2筝坂困 800 930 1100 1330 1500 1630 1800 -掩2筝帥2筝 800 930 1100 1330 1500 1630 1800 -掩2筝帥1筝 800 930 1100 1330 1500 1630 1800 -掩2筝篋九灸梢絮 800 930 1100 1330 1500 1630 1800 -掩2筝医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 -掩2筝医紫祉潟帥弱 800 930 1100 1330 1500 1630 1800 -掩2筝絮怨 800 930 1100 1330 1500 1630 1800 -掩2筝絽綵号茱 800 930 1100 1330 1500 1630 1800 -掩2筝筝 800 930 1100 1330 1500 1630 1800 - -ョ阪級≦ 803 933 1103 1333 1503 1633 1803 -ョ阪若 803 933 1103 1333 1503 1633 1803 -ョ阪筝1筝 803 933 1103 1333 1503 1633 1803 -ョ榊臀峨 803 933 1103 1333 1503 1633 1803 -ョ阪亥1筝 803 933 1103 1333 1503 1633 1803 -ョ堺祉潟帥弱 803 933 1103 1333 1503 1633 1803 -ョ阪睡 803 933 1103 1333 1503 1633 1803 -ョ坂賢3筝 803 933 1103 1333 1503 1633 1803 -ョ坂賢肴タ 803 933 1103 1333 1503 1633 1803 -ョ坂 803 933 1103 1333 1503 1633 1803 -ョ坂 803 933 1103 1333 1503 1633 1803 -ョ堺延賢 803 933 1103 1333 1503 1633 1803 -ョ堺梓 803 933 1103 1333 1503 1633 1803 -ョ阪ゅ頑胼霛祉潟帥弱 803 933 1103 1333 1503 1633 1803 -ョ堺怨ぇ2筝 803 933 1103 1333 1503 1633 1803 -ョ堺上潟ャｉ牙純祉潟帥弱 803 933 1103 1333 1503 1633 1803 -ョ坂九3筝 803 933 1103 1333 1503 1633 1803 -ョ坂九6筝 803 933 1103 1333 1503 1633 1803 -ョ坂検臂順 803 933 1103 1333 1503 1633 1803 -ョ冴紙 803 933 1103 1333 1503 1633 1803 -ョ堺ユ羌欠 803 933 1103 1333 1503 1633 1803 -ョ冴坂困 803 933 1103 1333 1503 1633 1803 -ョ冴帥2筝 803 933 1103 1333 1503 1633 1803 -ョ冴帥1筝 803 933 1103 1333 1503 1633 1803 -ョ坂九灸梢絮 803 933 1103 1333 1503 1633 1803 -ョ咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 -ョ咲医紫祉潟帥弱 803 933 1103 1333 1503 1633 1803 -ョ阪臼絮 803 933 1103 1333 1503 1633 1803 -ョ阪綵号茱 803 933 1103 1333 1503 1633 1803 -ョ坂賢 803 933 1103 1333 1503 1633 1803 - -級≦絮若 804 934 1104 1334 1504 1634 1804 -級≦筝1筝 804 934 1104 1334 1504 1634 1804 -級≦腮臀峨 804 934 1104 1334 1504 1634 1804 -級≦亥1筝 804 934 1104 1334 1504 1634 1804 -級≦祉潟帥弱 804 934 1104 1334 1504 1634 1804 -級≦絲睡 804 934 1104 1334 1504 1634 1804 -級≦筝3筝 804 934 1104 1334 1504 1634 1804 -級≦筝肴タ 804 934 1104 1334 1504 1634 1804 -級≦篋 804 934 1104 1334 1504 1634 1804 -級≦筝 804 934 1104 1334 1504 1634 1804 -級≦延賢 804 934 1104 1334 1504 1634 1804 -級≦羂顔 804 934 1104 1334 1504 1634 1804 -級≦ゅ頑胼霛祉潟帥弱 804 934 1104 1334 1504 1634 1804 -級≦怨ぇ2筝 804 934 1104 1334 1504 1634 1804 -級≦上潟ャｉ牙純祉潟帥弱 804 934 1104 1334 1504 1634 1804 -級≦篋九3筝 804 934 1104 1334 1504 1634 1804 -級≦篋九6筝 804 934 1104 1334 1504 1634 1804 -級≦筝∞晶 804 934 1104 1334 1504 1634 1804 -級≦紙 804 934 1104 1334 1504 1634 1804 -級≦ユ羌欠 804 934 1104 1334 1504 1634 1804 -級≦坂困 804 934 1104 1334 1504 1634 1804 -級≦帥2筝 804 934 1104 1334 1504 1634 1804 -級≦帥1筝 804 934 1104 1334 1504 1634 1804 -級≦篋九灸梢絮 804 934 1104 1334 1504 1634 1804 -級≦医紫祉潟帥弱 804 934 1104 1334 1504 1634 1804 -級≦医紫祉潟帥弱 804 934 1104 1334 1504 1634 1804 -級≦絮怨 804 934 1104 1334 1504 1634 1804 -級≦絽綵号茱 804 934 1104 1334 1504 1634 1804 -級≦筝 804 934 1104 1334 1504 1634 1804 - -絮若筝1筝 805 935 1105 1335 1505 1635 1805 -絮若腮臀峨 805 935 1105 1335 1505 1635 1805 -絮若亥1筝 805 935 1105 1335 1505 1635 1805 -絮若祉潟帥弱 805 935 1105 1335 1505 1635 1805 -絮若絲睡 805 935 1105 1335 1505 1635 1805 -絮若筝3筝 805 935 1105 1335 1505 1635 1805 -絮若筝肴タ 805 935 1105 1335 1505 1635 1805 -絮若篋 805 935 1105 1335 1505 1635 1805 -絮若筝 805 935 1105 1335 1505 1635 1805 -絮若延賢 805 935 1105 1335 1505 1635 1805 -絮若羂顔 805 935 1105 1335 1505 1635 1805 -絮若ゅ頑胼霛祉潟帥弱 805 935 1105 1335 1505 1635 1805 -絮若怨ぇ2筝 805 935 1105 1335 1505 1635 1805 -絮若上潟ャｉ牙純祉潟帥弱 805 935 1105 1335 1505 1635 1805 -絮若篋九3筝 805 935 1105 1335 1505 1635 1805 -絮若篋九6筝 805 935 1105 1335 1505 1635 1805 -絮若筝∞晶 805 935 1105 1335 1505 1635 1805 -絮若紙 805 935 1105 1335 1505 1635 1805 -絮若ユ羌欠 805 935 1105 1335 1505 1635 1805 -絮若坂困 805 935 1105 1335 1505 1635 1805 -絮若帥2筝 805 935 1105 1335 1505 1635 1805 -絮若帥1筝 805 935 1105 1335 1505 1635 1805 -絮若篋九灸梢絮 805 935 1105 1335 1505 1635 1805 -絮若医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 -絮若医紫祉潟帥弱 805 935 1105 1335 1505 1635 1805 -絮若絮怨 805 935 1105 1335 1505 1635 1805 -絮若絽綵号茱 805 935 1105 1335 1505 1635 1805 -絮若筝 805 935 1105 1335 1505 1635 1805 - -筝1筝腮臀峨 807 937 1107 1337 1507 1637 1807 -筝1筝亥1筝 807 937 1107 1337 1507 1637 1807 -筝1筝祉潟帥弱 807 937 1107 1337 1507 1637 1807 -筝1筝絲睡 807 937 1107 1337 1507 1637 1807 -筝1筝筝3筝 807 937 1107 1337 1507 1637 1807 -筝1筝筝肴タ 807 937 1107 1337 1507 1637 1807 -筝1筝篋 807 937 1107 1337 1507 1637 1807 -筝1筝筝 807 937 1107 1337 1507 1637 1807 -筝1筝延賢 807 937 1107 1337 1507 1637 1807 -筝1筝羂顔 807 937 1107 1337 1507 1637 1807 -筝1筝ゅ頑胼霛祉潟帥弱 807 937 1107 1337 1507 1637 1807 -筝1筝怨ぇ2筝 807 937 1107 1337 1507 1637 1807 -筝1筝上潟ャｉ牙純祉潟帥弱 807 937 1107 1337 1507 1637 1807 -筝1筝篋九3筝 807 937 1107 1337 1507 1637 1807 -筝1筝篋九6筝 807 937 1107 1337 1507 1637 1807 -筝1筝筝∞晶 807 937 1107 1337 1507 1637 1807 -筝1筝紙 807 937 1107 1337 1507 1637 1807 -筝1筝ユ羌欠 807 937 1107 1337 1507 1637 1807 -筝1筝坂困 807 937 1107 1337 1507 1637 1807 -筝1筝帥2筝 807 937 1107 1337 1507 1637 1807 -筝1筝帥1筝 807 937 1107 1337 1507 1637 1807 -筝1筝篋九灸梢絮 807 937 1107 1337 1507 1637 1807 -筝1筝医紫祉潟帥弱 807 937 1107 1337 1507 1637 1807 -筝1筝医紫祉潟帥弱 807 937 1107 1337 1507 1637 1807 -筝1筝絮怨 807 937 1107 1337 1507 1637 1807 -筝1筝絽綵号茱 807 937 1107 1337 1507 1637 1807 -筝1筝筝 807 937 1107 1337 1507 1637 1807 - -腮臀峨亥1筝 808 938 1108 1338 1508 1638 1808 -腮臀峨祉潟帥弱 808 938 1108 1338 1508 1638 1808 -腮臀峨絲睡 808 938 1108 1338 1508 1638 1808 -腮臀峨筝3筝 808 938 1108 1338 1508 1638 1808 -腮臀峨筝肴タ 808 938 1108 1338 1508 1638 1808 -腮臀峨篋 808 938 1108 1338 1508 1638 1808 -腮臀峨筝 808 938 1108 1338 1508 1638 1808 -腮臀峨延賢 808 938 1108 1338 1508 1638 1808 -腮臀峨羂顔 808 938 1108 1338 1508 1638 1808 -腮臀峨ゅ頑胼霛祉潟帥弱 808 938 1108 1338 1508 1638 1808 -腮臀峨怨ぇ2筝 808 938 1108 1338 1508 1638 1808 -腮臀峨上潟ャｉ牙純祉潟帥弱 808 938 1108 1338 1508 1638 1808 -腮臀峨篋九3筝 808 938 1108 1338 1508 1638 1808 -腮臀峨篋九6筝 808 938 1108 1338 1508 1638 1808 -腮臀峨筝∞晶 808 938 1108 1338 1508 1638 1808 -腮臀峨紙 808 938 1108 1338 1508 1638 1808 -腮臀峨ユ羌欠 808 938 1108 1338 1508 1638 1808 -腮臀峨坂困 808 938 1108 1338 1508 1638 1808 -腮臀峨帥2筝 808 938 1108 1338 1508 1638 1808 -腮臀峨帥1筝 808 938 1108 1338 1508 1638 1808 -腮臀峨篋九灸梢絮 808 938 1108 1338 1508 1638 1808 -腮臀峨医紫祉潟帥弱 808 938 1108 1338 1508 1638 1808 -腮臀峨医紫祉潟帥弱 808 938 1108 1338 1508 1638 1808 -腮臀峨絮怨 808 938 1108 1338 1508 1638 1808 -腮臀峨絽綵号茱 808 938 1108 1338 1508 1638 1808 -腮臀峨筝 808 938 1108 1338 1508 1638 1808 - -亥1筝祉潟帥弱 809 939 1109 1339 1509 1639 1809 -亥1筝絲睡 809 939 1109 1339 1509 1639 1809 -亥1筝筝3筝 809 939 1109 1339 1509 1639 1809 -亥1筝筝肴タ 809 939 1109 1339 1509 1639 1809 -亥1筝篋 809 939 1109 1339 1509 1639 1809 -亥1筝筝 809 939 1109 1339 1509 1639 1809 -亥1筝延賢 809 939 1109 1339 1509 1639 1809 -亥1筝羂顔 809 939 1109 1339 1509 1639 1809 -亥1筝ゅ頑胼霛祉潟帥弱 809 939 1109 1339 1509 1639 1809 -亥1筝怨ぇ2筝 809 939 1109 1339 1509 1639 1809 -亥1筝上潟ャｉ牙純祉潟帥弱 809 939 1109 1339 1509 1639 1809 -亥1筝篋九3筝 809 939 1109 1339 1509 1639 1809 -亥1筝篋九6筝 809 939 1109 1339 1509 1639 1809 -亥1筝筝∞晶 809 939 1109 1339 1509 1639 1809 -亥1筝紙 809 939 1109 1339 1509 1639 1809 -亥1筝ユ羌欠 809 939 1109 1339 1509 1639 1809 -亥1筝坂困 809 939 1109 1339 1509 1639 1809 -亥1筝帥2筝 809 939 1109 1339 1509 1639 1809 -亥1筝帥1筝 809 939 1109 1339 1509 1639 1809 -亥1筝篋九灸梢絮 809 939 1109 1339 1509 1639 1809 -亥1筝医紫祉潟帥弱 809 939 1109 1339 1509 1639 1809 -亥1筝医紫祉潟帥弱 809 939 1109 1339 1509 1639 1809 -亥1筝絮怨 809 939 1109 1339 1509 1639 1809 -亥1筝絽綵号茱 809 939 1109 1339 1509 1639 1809 -亥1筝筝 809 939 1109 1339 1509 1639 1809 - -祉潟帥弱絲睡 811 941 1111 1341 1511 1641 1811 -祉潟帥弱筝3筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱筝肴タ 811 941 1111 1341 1511 1641 1811 -祉潟帥弱篋 811 941 1111 1341 1511 1641 1811 -祉潟帥弱筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱延賢 811 941 1111 1341 1511 1641 1811 -祉潟帥弱羂顔 811 941 1111 1341 1511 1641 1811 -祉潟帥弱ゅ頑胼霛祉潟帥弱 811 941 1111 1341 1511 1641 1811 -祉潟帥弱怨ぇ2筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱上潟ャｉ牙純祉潟帥弱 811 941 1111 1341 1511 1641 1811 -祉潟帥弱篋九3筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱篋九6筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱筝∞晶 811 941 1111 1341 1511 1641 1811 -祉潟帥弱紙 811 941 1111 1341 1511 1641 1811 -祉潟帥弱ユ羌欠 811 941 1111 1341 1511 1641 1811 -祉潟帥弱坂困 811 941 1111 1341 1511 1641 1811 -祉潟帥弱帥2筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱帥1筝 811 941 1111 1341 1511 1641 1811 -祉潟帥弱篋九灸梢絮 811 941 1111 1341 1511 1641 1811 -祉潟帥弱医紫祉潟帥弱 811 941 1111 1341 1511 1641 1811 -祉潟帥弱医紫祉潟帥弱 811 941 1111 1341 1511 1641 1811 -祉潟帥弱絮怨 811 941 1111 1341 1511 1641 1811 -祉潟帥弱絽綵号茱 811 941 1111 1341 1511 1641 1811 -祉潟帥弱筝 811 941 1111 1341 1511 1641 1811 - -絲睡坂賢3筝 813 943 1113 1343 1513 1643 1813 -絲睡坂賢肴タ 813 943 1113 1343 1513 1643 1813 -絲睡坂 813 943 1113 1343 1513 1643 1813 -絲睡坂 813 943 1113 1343 1513 1643 1813 -絲睡堺延賢 813 943 1113 1343 1513 1643 1813 -絲睡堺梓 813 943 1113 1343 1513 1643 1813 -絲睡阪ゅ頑胼霛祉潟帥弱 813 943 1113 1343 1513 1643 1813 -絲睡堺怨ぇ2筝 813 943 1113 1343 1513 1643 1813 -絲睡堺上潟ャｉ牙純祉潟帥弱 813 943 1113 1343 1513 1643 1813 -絲睡坂九3筝 813 943 1113 1343 1513 1643 1813 -絲睡坂九6筝 813 943 1113 1343 1513 1643 1813 -絲睡坂検臂順 813 943 1113 1343 1513 1643 1813 -絲睡冴紙 813 943 1113 1343 1513 1643 1813 -絲睡堺ユ羌欠 813 943 1113 1343 1513 1643 1813 -絲睡冴坂困 813 943 1113 1343 1513 1643 1813 -絲睡冴帥2筝 813 943 1113 1343 1513 1643 1813 -絲睡冴帥1筝 813 943 1113 1343 1513 1643 1813 -絲睡坂九灸梢絮 813 943 1113 1343 1513 1643 1813 -絲睡咲医紫祉潟帥弱 813 943 1113 1343 1513 1643 1813 -絲睡咲医紫祉潟帥弱 813 943 1113 1343 1513 1643 1813 -絲睡阪臼絮 813 943 1113 1343 1513 1643 1813 -絲睡阪綵号茱 813 943 1113 1343 1513 1643 1813 -絲睡坂賢 813 943 1113 1343 1513 1643 1813 - -筝3筝筝肴タ 814 944 1114 1344 1514 1644 1814 -筝3筝篋 814 944 1114 1344 1514 1644 1814 -筝3筝筝 814 944 1114 1344 1514 1644 1814 -筝3筝延賢 814 944 1114 1344 1514 1644 1814 -筝3筝羂顔 814 944 1114 1344 1514 1644 1814 -筝3筝ゅ頑胼霛祉潟帥弱 814 944 1114 1344 1514 1644 1814 -筝3筝怨ぇ2筝 814 944 1114 1344 1514 1644 1814 -筝3筝上潟ャｉ牙純祉潟帥弱 814 944 1114 1344 1514 1644 1814 -筝3筝篋九3筝 814 944 1114 1344 1514 1644 1814 -筝3筝篋九6筝 814 944 1114 1344 1514 1644 1814 -筝3筝筝∞晶 814 944 1114 1344 1514 1644 1814 -筝3筝紙 814 944 1114 1344 1514 1644 1814 -筝3筝ユ羌欠 814 944 1114 1344 1514 1644 1814 -筝3筝坂困 814 944 1114 1344 1514 1644 1814 -筝3筝帥2筝 814 944 1114 1344 1514 1644 1814 -筝3筝帥1筝 814 944 1114 1344 1514 1644 1814 -筝3筝篋九灸梢絮 814 944 1114 1344 1514 1644 1814 -筝3筝医紫祉潟帥弱 814 944 1114 1344 1514 1644 1814 -筝3筝医紫祉潟帥弱 814 944 1114 1344 1514 1644 1814 -筝3筝絮怨 814 944 1114 1344 1514 1644 1814 -筝3筝絽綵号茱 814 944 1114 1344 1514 1644 1814 -筝3筝筝 814 944 1114 1344 1514 1644 1814 - -筝肴タ篋 815 945 1115 1345 1515 1645 1815 -筝肴タ筝 815 945 1115 1345 1515 1645 1815 -筝肴タ延賢 815 945 1115 1345 1515 1645 1815 -筝肴タ羂顔 815 945 1115 1345 1515 1645 1815 -筝肴タゅ頑胼霛祉潟帥弱 815 945 1115 1345 1515 1645 1815 -筝肴タ怨ぇ2筝 815 945 1115 1345 1515 1645 1815 -筝肴タ上潟ャｉ牙純祉潟帥弱 815 945 1115 1345 1515 1645 1815 -筝肴タ篋九3筝 815 945 1115 1345 1515 1645 1815 -筝肴タ篋九6筝 815 945 1115 1345 1515 1645 1815 -筝肴タ筝∞晶 815 945 1115 1345 1515 1645 1815 -筝肴タ紙 815 945 1115 1345 1515 1645 1815 -筝肴タユ羌欠 815 945 1115 1345 1515 1645 1815 -筝肴タ坂困 815 945 1115 1345 1515 1645 1815 -筝肴タ帥2筝 815 945 1115 1345 1515 1645 1815 -筝肴タ帥1筝 815 945 1115 1345 1515 1645 1815 -筝肴タ篋九灸梢絮 815 945 1115 1345 1515 1645 1815 -筝肴タ医紫祉潟帥弱 815 945 1115 1345 1515 1645 1815 -筝肴タ医紫祉潟帥弱 815 945 1115 1345 1515 1645 1815 -筝肴タ絮怨 815 945 1115 1345 1515 1645 1815 -筝肴タ絽綵号茱 815 945 1115 1345 1515 1645 1815 -筝肴タ筝 815 945 1115 1345 1515 1645 1815 - -篋坂 816 946 1116 1346 1516 1646 1816 -篋堺延賢 816 946 1116 1346 1516 1646 1816 -篋堺梓 816 946 1116 1346 1516 1646 1816 -篋阪ゅ頑胼霛祉潟帥弱 816 946 1116 1346 1516 1646 1816 -篋堺怨ぇ2筝 816 946 1116 1346 1516 1646 1816 -篋堺上潟ャｉ牙純祉潟帥弱 816 946 1116 1346 1516 1646 1816 -篋坂九3筝 816 946 1116 1346 1516 1646 1816 -篋坂九6筝 816 946 1116 1346 1516 1646 1816 -篋坂検臂順 816 946 1116 1346 1516 1646 1816 -篋冴紙 816 946 1116 1346 1516 1646 1816 -篋堺ユ羌欠 816 946 1116 1346 1516 1646 1816 -篋冴坂困 816 946 1116 1346 1516 1646 1816 -篋冴帥2筝 816 946 1116 1346 1516 1646 1816 -篋冴帥1筝 816 946 1116 1346 1516 1646 1816 -篋坂九灸梢絮 816 946 1116 1346 1516 1646 1816 -篋咲医紫祉潟帥弱 816 946 1116 1346 1516 1646 1816 -篋咲医紫祉潟帥弱 816 946 1116 1346 1516 1646 1816 -篋阪臼絮 816 946 1116 1346 1516 1646 1816 -篋阪綵号茱 816 946 1116 1346 1516 1646 1816 -篋坂賢 816 946 1116 1346 1516 1646 1816 - -筝堺延賢 817 947 1117 1347 1517 1647 1817 -筝堺梓 817 947 1117 1347 1517 1647 1817 -筝阪ゅ頑胼霛祉潟帥弱 817 947 1117 1347 1517 1647 1817 -筝堺怨ぇ2筝 817 947 1117 1347 1517 1647 1817 -筝堺上潟ャｉ牙純祉潟帥弱 817 947 1117 1347 1517 1647 1817 -筝坂九3筝 817 947 1117 1347 1517 1647 1817 -筝坂九6筝 817 947 1117 1347 1517 1647 1817 -筝坂検臂順 817 947 1117 1347 1517 1647 1817 -筝冴紙 817 947 1117 1347 1517 1647 1817 -筝堺ユ羌欠 817 947 1117 1347 1517 1647 1817 -筝冴坂困 817 947 1117 1347 1517 1647 1817 -筝冴帥2筝 817 947 1117 1347 1517 1647 1817 -筝冴帥1筝 817 947 1117 1347 1517 1647 1817 -筝坂九灸梢絮 817 947 1117 1347 1517 1647 1817 -筝咲医紫祉潟帥弱 817 947 1117 1347 1517 1647 1817 -筝咲医紫祉潟帥弱 817 947 1117 1347 1517 1647 1817 -筝阪臼絮 817 947 1117 1347 1517 1647 1817 -筝阪綵号茱 817 947 1117 1347 1517 1647 1817 -筝坂賢 817 947 1117 1347 1517 1647 1817 - -延賢ｆ梓 818 948 1118 1348 1518 1648 1818 -延賢ｅゅ頑胼霛祉潟帥弱 818 948 1118 1348 1518 1648 1818 -延賢ｆ怨ぇ2筝 818 948 1118 1348 1518 1648 1818 -延賢ｆ上潟ャｉ牙純祉潟帥弱 818 948 1118 1348 1518 1648 1818 -延賢ｄ九3筝 818 948 1118 1348 1518 1648 1818 -延賢ｄ九6筝 818 948 1118 1348 1518 1648 1818 -延賢ｄ検臂順 818 948 1118 1348 1518 1648 1818 -延賢ｃ紙 818 948 1118 1348 1518 1648 1818 -延賢ｆユ羌欠 818 948 1118 1348 1518 1648 1818 -延賢ｃ坂困 818 948 1118 1348 1518 1648 1818 -延賢ｃ帥2筝 818 948 1118 1348 1518 1648 1818 -延賢ｃ帥1筝 818 948 1118 1348 1518 1648 1818 -延賢ｄ九灸梢絮 818 948 1118 1348 1518 1648 1818 -延賢ｉ医紫祉潟帥弱 818 948 1118 1348 1518 1648 1818 -延賢ｉ医紫祉潟帥弱 818 948 1118 1348 1518 1648 1818 -延賢ｅ臼絮 818 948 1118 1348 1518 1648 1818 -延賢ｅ綵号茱 818 948 1118 1348 1518 1648 1818 -延賢ｄ賢 818 948 1118 1348 1518 1648 1818 - -羂顔ゅ頑胼霛祉潟帥弱 819 949 1119 1349 1519 1649 1819 -羂顔怨ぇ2筝 819 949 1119 1349 1519 1649 1819 -羂顔上潟ャｉ牙純祉潟帥弱 819 949 1119 1349 1519 1649 1819 -羂顔篋九3筝 819 949 1119 1349 1519 1649 1819 -羂顔篋九6筝 819 949 1119 1349 1519 1649 1819 -羂顔筝∞晶 819 949 1119 1349 1519 1649 1819 -羂顔紙 819 949 1119 1349 1519 1649 1819 -羂顔ユ羌欠 819 949 1119 1349 1519 1649 1819 -羂顔坂困 819 949 1119 1349 1519 1649 1819 -羂顔帥2筝 819 949 1119 1349 1519 1649 1819 -羂顔帥1筝 819 949 1119 1349 1519 1649 1819 -羂顔篋九灸梢絮 819 949 1119 1349 1519 1649 1819 -羂顔医紫祉潟帥弱 819 949 1119 1349 1519 1649 1819 -羂顔医紫祉潟帥弱 819 949 1119 1349 1519 1649 1819 -羂顔絮怨 819 949 1119 1349 1519 1649 1819 -羂顔絽綵号茱 819 949 1119 1349 1519 1649 1819 -羂顔筝 819 949 1119 1349 1519 1649 1819 - -ゅ頑胼霛祉潟帥弱怨ぇ2筝 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱上潟ャｉ牙純祉潟帥弱 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱篋九3筝 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱篋九6筝 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱筝∞晶 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱紙 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱ユ羌欠 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱坂困 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱帥2筝 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱帥1筝 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱篋九灸梢絮 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱医紫祉潟帥弱 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱医紫祉潟帥弱 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱絮怨 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱絽綵号茱 820 950 1120 1350 1520 1650 1820 -ゅ頑胼霛祉潟帥弱筝 820 950 1120 1350 1520 1650 1820 - -怨ぇ2筝上潟ャｉ牙純祉潟帥弱 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝篋九3筝 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝篋九6筝 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝筝∞晶 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝紙 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝ユ羌欠 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝坂困 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝帥2筝 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝帥1筝 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝篋九灸梢絮 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝医紫祉潟帥弱 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝医紫祉潟帥弱 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝絮怨 821 951 1121 1351 1521 1651 1821 -怨ぇ2筝絽綵号茱 821 951 1121 1351 1521 1651 182 -怨ぇ2筝筝 821 951 1121 1351 1521 1651 1821 - -上潟ャｉ牙純祉潟帥弱篋九3筝 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱篋九6筝 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱筝∞晶 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱紙 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱ユ羌欠 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱坂困 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱帥2筝 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱帥1筝 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱篋九灸梢絮 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱医紫祉潟帥弱 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱医紫祉潟帥弱 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱絮怨 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱絽綵号茱 822 952 1122 1352 1522 1652 1822 -上潟ャｉ牙純祉潟帥弱筝 822 952 1122 1352 1522 1652 1822 - -篋九3筝篋九6筝 823 953 1123 1353 1523 1653 1823 -篋九3筝筝∞晶 823 953 1123 1353 1523 1653 1823 -篋九3筝紙 823 953 1123 1353 1523 1653 1823 -篋九3筝ユ羌欠 823 953 1123 1353 1523 1653 1823 -篋九3筝坂困 823 953 1123 1353 1523 1653 1823 -篋九3筝帥2筝 823 953 1123 1353 1523 1653 1823 -篋九3筝帥1筝 823 953 1123 1353 1523 1653 1823 -篋九3筝篋九灸梢絮 823 953 1123 1353 1523 1653 1823 -篋九3筝医紫祉潟帥弱 823 953 1123 1353 1523 1653 1823 -篋九3筝医紫祉潟帥弱 823 953 1123 1353 1523 1653 1823 -篋九3筝絮怨 823 953 1123 1353 1523 1653 1823 -篋九3筝絽綵号茱 823 953 1123 1353 1523 1653 1823 -篋九3筝筝 823 953 1123 1353 1523 1653 1823 - -篋九6筝筝∞晶 824 954 1124 1354 1524 1654 1824 -篋九6筝紙 824 954 1124 1354 1524 1654 1824 -篋九6筝ユ羌欠 824 954 1124 1354 1524 1654 1824 -篋九6筝坂困 824 954 1124 1354 1524 1654 1824 -篋九6筝帥2筝 824 954 1124 1354 1524 1654 1824 -篋九6筝帥1筝 824 954 1124 1354 1524 1654 1824 -篋九6筝篋九灸梢絮 824 954 1124 1354 1524 1654 1824 -篋九6筝医紫祉潟帥弱 824 954 1124 1354 1524 1654 1824 -篋九6筝医紫祉潟帥弱 824 954 1124 1354 1524 1654 1824 -篋九6筝絮怨 824 954 1124 1354 1524 1654 1824 -篋九6筝絽綵号茱 824 954 1124 1354 1524 1654 1824 -篋九6筝筝 824 954 1124 1354 1524 1654 1824 - -筝∞晶冴紙 826 956 1126 1356 1526 1656 1826 -筝∞晶堺ユ羌欠 826 956 1126 1356 1526 1656 1826 -筝∞晶冴坂困 826 956 1126 1356 1526 1656 1826 -筝∞晶冴帥2筝 826 956 1126 1356 1526 1656 1826 -筝∞晶冴帥1筝 826 956 1126 1356 1526 1656 1826 -筝∞晶坂九灸梢絮 826 956 1126 1356 1526 1656 1826 -筝∞晶咲医紫祉潟帥弱 826 956 1126 1356 1526 1656 1826 -筝∞晶咲医紫祉潟帥弱 826 956 1126 1356 1526 1656 1826 -筝∞晶阪臼絮 826 956 1126 1356 1526 1656 1826 -筝∞晶坂賢 826 956 1126 1356 1526 1656 1826 - -紙ユ羌欠 828 958 1128 1358 1528 1658 1828 -紙坂困 828 958 1128 1358 1528 1658 1828 -紙帥2筝 828 958 1128 1358 1528 1658 1828 -紙帥1筝 828 958 1128 1358 1528 1658 1828 -紙篋九灸梢絮 828 958 1128 1358 1528 1658 1828 -紙医紫祉潟帥弱 828 958 1128 1358 1528 1658 1828 -紙医紫祉潟帥弱 828 958 1128 1358 1528 1658 1828 -紙絮怨 828 958 1128 1358 1528 1658 1828 -紙絽綵号茱 828 958 1128 1358 1528 1658 1828 -紙筝 828 958 1128 1358 1528 1658 1828 - -ユ羌欠≪坂困 830 1000 1130 1400 1530 1700 1830 -ユ羌欠≪帥2筝 830 1000 1130 1400 1530 1700 1830 -ユ羌欠≪帥1筝 830 1000 1130 1400 1530 1700 1830 -ユ羌欠≫九灸梢絮 830 1000 1130 1400 1530 1700 1830 -ユ羌欠∫医紫祉潟帥弱 830 1000 1130 1400 1530 1700 1830 -ユ羌欠∫医紫祉潟帥弱 830 1000 1130 1400 1530 1700 1830 -ユ羌欠√臼絮 830 1000 1130 1400 1530 1700 1830 -ユ羌欠√綵号茱 830 1000 1130 1400 1530 1700 1830 -ユ羌欠≫賢 830 1000 1130 1400 1530 1700 1830 - -坂困帥2筝 833 1003 1133 1403 1533 1703 1833 -坂困帥1筝 833 1003 1133 1403 1533 1703 1833 -坂困篋九灸梢絮 833 1003 1133 1403 1533 1703 1833 -坂困医紫祉潟帥弱 833 1003 1133 1403 1533 1703 1833 -坂困医紫祉潟帥弱 833 1003 1133 1403 1533 1703 1833 -坂困絮怨 833 1003 1133 1403 1533 1703 1833 -阪絽綵号茱 833 1003 1133 1403 1533 1703 1833 -坂困筝 833 1003 1133 1403 1533 1703 1833 - -帥2筝帥1筝 835 1005 1135 1405 1535 1705 1835 -帥2筝篋九灸梢絮 835 1005 1135 1405 1535 1705 1835 -帥2筝医紫祉潟帥弱 835 1005 1135 1405 1535 1705 1835 -帥2筝医紫祉潟帥弱 835 1005 1135 1405 1535 1705 1835 -帥2筝絮怨 835 1005 1135 1405 1535 1705 1835 -帥2筝絽綵号茱 835 1005 1135 1405 1535 1705 1835 -帥2筝筝 835 1005 1135 1405 1535 1705 1835 - -帥1筝篋九灸梢絮 836 1006 1136 1406 1536 1706 1836 -帥1筝医紫祉潟帥弱 836 1006 1136 1406 1536 1706 1836 -帥1筝医紫祉潟帥弱 836 1006 1136 1406 1536 1706 1836 -帥1筝絮怨 836 1006 1136 1406 1536 1706 1836 -帥1筝絽綵号茱 836 1006 1136 1406 1536 1706 1836 -帥1筝筝 836 1006 1136 1406 1536 1706 1836 - -篋九灸梢絮医紫祉潟帥弱 838 1008 1138 1408 1538 1708 1838 -篋九灸梢絮医紫祉潟帥弱 838 1008 1138 1408 1538 1708 1838 -篋九灸梢絮絮怨 838 1008 1138 1408 1538 1708 1838 -篋九灸梢絮絽綵号茱 838 1008 1138 1408 1538 1708 1838 -篋九灸梢絮筝 838 1008 1138 1408 1538 1708 1838 - -医紫祉潟帥弱医紫祉潟帥弱 839 1009 1139 1409 1539 1709 1839 -医紫祉潟帥弱絮怨 839 1009 1139 1409 1539 1709 1839 -医紫祉潟帥弱絽綵号茱 839 1009 1139 1409 1539 1709 1839 -医紫祉潟帥弱筝 839 1009 1139 1409 1539 1709 1839 - -医紫祉潟帥弱ｅ臼絮 840 1010 1140 1410 1540 1710 1840 -医紫祉潟帥弱ｅ綵号茱 840 1010 1140 1410 1540 1710 1840 -医紫祉潟帥弱ｄ賢 840 1010 1140 1410 1540 1710 1840 - -絮怨阪綵号茱 842 1012 1142 1412 1542 1712 1842 -絮怨坂賢 842 1012 1142 1412 1542 1712 1842 - -絽綵号茱推賢 844 1014 1144 1414 1544 1714 1844 - -育罩ｉ√ｉ育罩ｉ√ 720 1030 1335 1640 -育罩ｉ√ｅ篋ゃ帥若 720 1030 1335 1640 -育罩ｉ√ｆ 720 1030 1335 1640 -育罩ｉ√ｃ筝筝 720 1030 1335 1640 -育罩ｉ√ｈタ蕭違潟 720 1030 1335 1640 -育罩ｉ√ｃゃ泣若鴻祉潟帥若水 720 1030 1335 1640 -育罩ｉ√ｄ絎 720 1030 1335 1640 -育罩ｉ√ｄ絎 720 1030 1335 1640 -育罩ｉ√ｄ絎3筝 720 1030 1335 1640 -育罩ｉ√ｄ絎 720 1030 1335 1640 -育罩ｉ√ｆ井 720 1030 1335 1640 -育罩ｉ√ｅ井 720 1030 1335 1640 -育罩ｉ√ｅ井灸梢絮 720 1030 1335 1640 -育罩ｉ√ｆ2筝 720 1030 1335 1640 -育罩ｉ√ｆ遺峨 720 1030 1335 1640 -育罩ｉ√ｄ賢紊 720 1030 1335 1640 -育罩ｉ√ｄ賢肴タ 720 1030 1335 1640 -育罩ｉ√ｅュ嵯祉潟帥弱 720 1030 1335 1640 -育罩ｉ√ｃ羌潔絽翫 720 1030 1335 1640 -育罩ｉ√ｅ臼絮罘 720 1030 1335 1640 -育罩ｉ√ｅ臼絮綺 720 1030 1335 1640 -育罩ｉ√ｉ医紫祉潟帥弱 720 1030 1335 1640 -育罩ｉ√ｉ医紫祉潟帥弱 720 1030 1335 1640 -育罩ｉ√ｄ九4筝 720 1030 1335 1640 -育罩ｉ√ｄ九5筝 720 1030 1335 1640 -育罩ｉ√ｅ紙 720 1030 1335 1640 -育罩ｉ√ｆユ羌欠 720 1030 1335 1640 -育罩ｉ√ｃ紙 720 1030 1335 1640 -育罩ｉ√ｅ筝 720 1030 1335 1640 -育罩ｉ√ｅ罘 720 1030 1335 1640 -育罩ｉ√ｉ3筝 720 1030 1335 1640 -育罩ｉ√ｉ篆俄鎘 720 1030 1335 1640 -育罩ｉ√ｉ罍絮怨羂蕕 720 1030 1335 1640 -育罩ｉ√ｅ活綽級え 720 1030 1335 1640 -育罩ｉ√ｅぇ絖() 720 1030 1335 1640 -育罩ｉ√ｇ九ｅ医 720 1030 1335 1640 -育罩ｉ√ｅ羌灸梢絮 720 1030 1335 1640 -育罩ｉ√ｇ銀1筝 720 1030 1335 1640 -育罩ｉ√ｉ荀 720 1030 1335 1640 -育罩ｉ√ｅぇ絖() 720 1030 1335 1640 -育罩ｉ√ｅ榊晶綽蕕紫茵蕕 720 1030 1335 1640 -育罩ｉ√ｃ純絎 720 1030 1335 1640 - - -綺篋ゃ帥若羈 721 1031 1336 1641 -綺篋ゃ帥若筝筝 721 1031 1336 1641 -綺篋ゃ帥若茱翠違潟 721 1031 1336 1641 -綺篋ゃ帥若ゃ泣若鴻祉潟帥若水 721 1031 1336 1641 -綺篋ゃ帥若筝絎 721 1031 1336 1641 -綺篋ゃ帥若筝絎 721 1031 1336 1641 -綺篋ゃ帥若筝絎3筝 721 1031 1336 1641 -綺篋ゃ帥若筝絎 721 1031 1336 1641 -綺篋ゃ帥若井 721 1031 1336 1641 -綺篋ゃ帥若井 721 1031 1336 1641 -綺篋ゃ帥若井灸梢絮 721 1031 1336 1641 -綺篋ゃ帥若羌2筝 721 1031 1336 1641 -綺篋ゃ帥若羌遺峨 721 1031 1336 1641 -綺篋ゃ帥若筝紊 721 1031 1336 1641 -綺篋ゃ帥若筝肴タ 721 1031 1336 1641 -綺篋ゃ帥若ュ嵯祉潟帥弱 721 1031 1336 1641 -綺篋ゃ帥若羌潔絽翫 721 1031 1336 1641 -綺篋ゃ帥若絮怨罘 721 1031 1336 1641 -綺篋ゃ帥若絮怨綺 721 1031 1336 1641 -綺篋ゃ帥若医紫祉潟帥弱 721 1031 1336 1641 -綺篋ゃ帥若医紫祉潟帥弱 721 1031 1336 1641 -綺篋ゃ帥若篋九4筝 721 1031 1336 1641 -綺篋ゃ帥若篋九5筝 721 1031 1336 1641 -綺篋ゃ帥若紊紙 721 1031 1336 1641 -綺篋ゃ帥若ユ羌欠 721 1031 1336 1641 -綺篋ゃ帥若紙 721 1031 1336 1641 -綺篋ゃ帥若筝 721 1031 1336 1641 -綺篋ゃ帥若綏罘 721 1031 1336 1641 -綺篋ゃ帥若3筝 721 1031 1336 1641 -綺篋ゃ帥若篆俄鎘 721 1031 1336 1641 -綺篋ゃ帥若蕋罍絮怨羂蕕 721 1031 1336 1641 -綺篋ゃ帥若活綽級え 721 1031 1336 1641 -綺篋ゃ帥若紊у() 721 1031 1336 1641 -綺篋ゃ帥若九ｅ医 721 1031 1336 1641 -綺篋ゃ帥若絎羌灸梢絮 721 1031 1336 1641 -綺篋ゃ帥若膩銀1筝 721 1031 1336 1641 -綺篋ゃ帥若蕭荀 721 1031 1336 1641 -綺篋ゃ帥若紊у() 721 1031 1336 1641 -綺篋ゃ帥若榊晶綽蕕紫茵蕕 721 1031 1336 1641 -綺篋ゃ帥若純絎 721 1031 1336 1641 - -羈冴筝筝 722 1032 1337 1642 -羈肴タ蕭違潟 722 1032 1337 1642 -羈冴ゃ泣若鴻祉潟帥若水 722 1032 1337 1642 -羈坂絎 722 1032 1337 1642 -羈坂絎 722 1032 1337 1642 -羈坂絎3筝 722 1032 1337 1642 -羈坂絎 722 1032 1337 1642 -羈堺井 722 1032 1337 1642 -羈阪井 722 1032 1337 1642 -羈阪井灸梢絮 722 1032 1337 1642 -羈堺2筝 722 1032 1337 1642 -羈堺遺峨 722 1032 1337 1642 -羈坂賢紊 722 1032 1337 1642 -羈坂賢肴タ 722 1032 1337 1642 -羈阪ュ嵯祉潟帥弱 722 1032 1337 1642 -羈冴羌潔絽翫 722 1032 1337 1642 -羈阪臼絮罘 722 1032 1337 1642 -羈阪臼絮綺 722 1032 1337 1642 -羈咲医紫祉潟帥弱 722 1032 1337 1642 -羈咲医紫祉潟帥弱 722 1032 1337 1642 -羈坂九4筝 722 1032 1337 1642 -羈坂九5筝 722 1032 1337 1642 -羈阪紙 722 1032 1337 1642 -羈堺ユ羌欠 722 1032 1337 1642 -羈冴紙 722 1032 1337 1642 -羈阪筝 722 1032 1337 1642 -羈阪罘 722 1032 1337 1642 -羈咲3筝 722 1032 1337 1642 -羈咲篆俄鎘 722 1032 1337 1642 -羈咲罍絮怨羂蕕 722 1032 1337 1642 -羈阪活綽級え 722 1032 1337 1642 -羈阪ぇ絖() 722 1032 1337 1642 -羈榊九ｅ医 722 1032 1337 1642 -羈阪羌灸梢絮 722 1032 1337 1642 -羈榊銀1筝 722 1032 1337 1642 -羈咲荀 722 1032 1337 1642 -羈阪ぇ絖() 722 1032 1337 1642 -羈阪榊晶綽蕕紫茵蕕 722 1032 1337 1642 -羈冴純絎 722 1032 1337 1642 - -1筝茱翠違潟 723 1033 1338 1643 -1筝ゃ泣若鴻祉潟帥若水 723 1033 1338 1643 -1筝筝絎 723 1033 1338 1643 -1筝筝絎 723 1033 1338 1643 -1筝筝絎3筝 723 1033 1338 1643 -1筝筝絎 723 1033 1338 1643 -1筝井 723 1033 1338 1643 -1筝井 723 1033 1338 1643 -1筝井灸梢絮 723 1033 1338 1643 -1筝羌2筝 723 1033 1338 1643 -1筝羌遺峨 723 1033 1338 1643 -1筝筝紊 723 1033 1338 1643 -1筝筝肴タ 723 1033 1338 1643 -1筝ュ嵯祉潟帥弱 723 1033 1338 1643 -1筝羌潔絽翫 723 1033 1338 1643 -1筝絮怨罘 723 1033 1338 1643 -1筝絮怨綺 723 1033 1338 1643 -1筝医紫祉潟帥弱 723 1033 1338 1643 -1筝医紫祉潟帥弱 723 1033 1338 1643 -1筝篋九4筝 723 1033 1338 1643 -1筝篋九5筝 723 1033 1338 1643 -1筝紊紙 723 1033 1338 1643 -1筝ユ羌欠 723 1033 1338 1643 -1筝紙 723 1033 1338 1643 -1筝筝 723 1033 1338 1643 -1筝綏罘 723 1033 1338 1643 -1筝3筝 723 1033 1338 1643 -1筝篆俄鎘 723 1033 1338 1643 -1筝蕋罍絮怨羂蕕 723 1033 1338 1643 -1筝活綽級え 723 1033 1338 1643 -1筝紊у() 723 1033 1338 1643 -1筝九ｅ医 723 1033 1338 1643 -1筝絎羌灸梢絮 723 1033 1338 1643 -1筝膩銀1筝 723 1033 1338 1643 -1筝蕭荀 723 1033 1338 1643 -1筝紊у() 723 1033 1338 1643 -1筝榊晶綽蕕紫茵蕕 723 1033 1338 1643 -1筝純絎 723 1033 1338 1643 - -茱翠違潟ゃ泣若鴻祉潟帥若水 725 1035 1340 1645 -茱翠違潟筝絎 725 1035 1340 1645 -茱翠違潟筝絎 725 1035 1340 1645 -茱翠違潟筝絎3筝 725 1035 1340 1645 -茱翠違潟筝絎 725 1035 1340 1645 -茱翠違潟井 725 1035 1340 1645 -茱翠違潟井 725 1035 1340 1645 -茱翠違潟井灸梢絮 725 1035 1340 1645 -茱翠違潟羌2筝 725 1035 1340 1645 -茱翠違潟羌遺峨 725 1035 1340 1645 -茱翠違潟筝紊 725 1035 1340 1645 -茱翠違潟筝肴タ 725 1035 1340 1645 -茱翠違潟ュ嵯祉潟帥弱 725 1035 1340 1645 -茱翠違潟羌潔絽翫 725 1035 1340 1645 -茱翠違潟絮怨罘 725 1035 1340 1645 -茱翠違潟絮怨綺 725 1035 1340 1645 -茱翠違潟医紫祉潟帥弱 725 1035 1340 1645 -茱翠違潟医紫祉潟帥弱 725 1035 1340 1645 -茱翠違潟篋九4筝 725 1035 1340 1645 -茱翠違潟篋九5筝 725 1035 1340 1645 -茱翠違潟紊紙 725 1035 1340 1645 -茱翠違潟ユ羌欠 725 1035 1340 1645 -茱翠違潟紙 725 1035 1340 1645 -茱翠違潟筝 725 1035 1340 1645 -茱翠違潟綏罘 725 1035 1340 1645 -茱翠違潟3筝 725 1035 1340 1645 -茱翠違潟篆俄鎘 725 1035 1340 1645 -茱翠違潟蕋罍絮怨羂蕕 725 1035 1340 1645 -茱翠違潟活綽級え 725 1035 1340 1645 -茱翠違潟紊у() 725 1035 1340 1645 -茱翠違潟九ｅ医 725 1035 1340 1645 -茱翠違潟絎羌灸梢絮 725 1035 1340 1645 -茱翠違潟膩銀1筝 725 1035 1340 1645 -茱翠違潟蕭荀 725 1035 1340 1645 -茱翠違潟紊у() 725 1035 1340 1645 -茱翠違潟榊晶綽蕕紫茵蕕 725 1035 1340 1645 -茱翠違潟純絎 725 1035 1340 1645 - -ゃ泣若鴻祉潟帥若水筝絎 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水筝絎 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水筝絎3筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水筝絎 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水井 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水井 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水井灸梢絮 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水羌2筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水羌遺峨 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水筝紊 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水筝肴タ 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水ュ嵯祉潟帥弱 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水羌潔絽翫 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水絮怨罘 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水絮怨綺 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水医紫祉潟帥弱 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水篋九4筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水篋九5筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水紊紙 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水ユ羌欠 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水紙 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水綏罘 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水3筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水篆俄鎘 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水蕋罍絮怨羂蕕 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水活綽級え 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水紊у() 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水九ｅ医 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水絎羌灸梢絮 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水膩銀1筝 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水蕭荀 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水紊у() 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水榊晶綽蕕紫茵蕕 726 1036 1341 1646 -ゃ泣若鴻祉潟帥若水純絎 726 1036 1341 1646 - -筝絎坂絎 727 1037 1342 1647 -筝絎坂絎3筝 727 1037 1342 1647 -筝絎坂絎 727 1037 1342 1647 -筝絎堺井 727 1037 1342 1647 -筝絎阪井 727 1037 1342 1647 -筝絎阪井灸梢絮 727 1037 1342 1647 -筝絎堺2筝 727 1037 1342 1647 -筝絎堺遺峨 727 1037 1342 1647 -筝絎坂賢紊 727 1037 1342 1647 -筝絎坂賢肴タ 727 1037 1342 1647 -筝絎阪ュ嵯祉潟帥弱 727 1037 1342 1647 -筝絎冴羌潔絽翫 727 1037 1342 1647 -筝絎阪臼絮罘 727 1037 1342 1647 -筝絎阪臼絮綺 727 1037 1342 1647 -筝絎咲医紫祉潟帥弱 727 1037 1342 1647 -筝絎咲医紫祉潟帥弱 727 1037 1342 1647 -筝絎坂九4筝 727 1037 1342 1647 -筝絎坂九5筝 727 1037 1342 1647 -筝絎阪紙 727 1037 1342 1647 -筝絎堺ユ羌欠 727 1037 1342 1647 -筝絎冴紙 727 1037 1342 1647 -筝絎阪筝 727 1037 1342 1647 -筝絎阪罘 727 1037 1342 1647 -筝絎咲3筝 727 1037 1342 1647 -筝絎咲篆俄鎘 727 1037 1342 1647 -筝絎咲罍絮怨羂蕕 727 1037 1342 1647 -筝絎阪活綽級え 727 1037 1342 1647 -筝絎阪ぇ絖() 727 1037 1342 1647 -筝絎榊九ｅ医 727 1037 1342 1647 -筝絎阪羌灸梢絮 727 1037 1342 1647 -筝絎榊銀1筝 727 1037 1342 1647 -筝絎咲荀 727 1037 1342 1647 -筝絎阪ぇ絖() 727 1037 1342 1647 -筝絎阪榊晶綽蕕紫茵蕕 727 1037 1342 1647 -筝絎冴純絎 727 1037 1342 1647 - -筝絎筝絎3筝 728 1038 1343 1648 -筝絎筝絎 728 1038 1343 1648 -筝絎井 728 1038 1343 1648 -筝絎井 728 1038 1343 1648 -筝絎井灸梢絮 728 1038 1343 1648 -筝絎羌2筝 728 1038 1343 1648 -筝絎羌遺峨 728 1038 1343 1648 -筝絎筝紊 728 1038 1343 1648 -筝絎筝肴タ 728 1038 1343 1648 -筝絎ュ嵯祉潟帥弱 728 1038 1343 1648 -筝絎羌潔絽翫 728 1038 1343 1648 -筝絎絮怨罘 728 1038 1343 1648 -筝絎絮怨綺 728 1038 1343 1648 -筝絎医紫祉潟帥弱 728 1038 1343 1648 -筝絎医紫祉潟帥弱 728 1038 1343 1648 -筝絎篋九4筝 728 1038 1343 1648 -筝絎篋九5筝 728 1038 1343 1648 -筝絎紊紙 728 1038 1343 1648 -筝絎ユ羌欠 728 1038 1343 1648 -筝絎紙 728 1038 1343 1648 -筝絎筝 728 1038 1343 1648 -筝絎綏罘 728 1038 1343 1648 -筝絎3筝 728 1038 1343 1648 -筝絎篆俄鎘 728 1038 1343 1648 -筝絎蕋罍絮怨羂蕕 728 1038 1343 1648 -筝絎活綽級え 728 1038 1343 1648 -筝絎紊у() 728 1038 1343 1648 -筝絎九ｅ医 728 1038 1343 1648 -筝絎絎羌灸梢絮 728 1038 1343 1648 -筝絎膩銀1筝 728 1038 1343 1648 -筝絎蕭荀 728 1038 1343 1648 -筝絎紊у() 728 1038 1343 1648 -筝絎榊晶綽蕕紫茵蕕 728 1038 1343 1648 -筝絎純絎 728 1038 1343 1648 - -筝絎3筝筝絎 729 1039 1344 1649 -筝絎3筝井 729 1039 1344 1649 -筝絎3筝井 729 1039 1344 1649 -筝絎3筝井灸梢絮 729 1039 1344 1649 -筝絎3筝羌2筝 729 1039 1344 1649 -筝絎3筝羌遺峨 729 1039 1344 1649 -筝絎3筝筝紊 729 1039 1344 1649 -筝絎3筝筝肴タ 729 1039 1344 1649 -筝絎3筝ュ嵯祉潟帥弱 729 1039 1344 1649 -筝絎3筝羌潔絽翫 729 1039 1344 1649 -筝絎3筝絮怨罘 729 1039 1344 1649 -筝絎3筝絮怨綺 729 1039 1344 1649 -筝絎3筝医紫祉潟帥弱 729 1039 1344 1649 -筝絎3筝医紫祉潟帥弱 729 1039 1344 1649 -筝絎3筝篋九4筝 729 1039 1344 1649 -筝絎3筝篋九5筝 729 1039 1344 1649 -筝絎3筝紊紙 729 1039 1344 1649 -筝絎3筝ユ羌欠 729 1039 1344 1649 -筝絎3筝紙 729 1039 1344 1649 -筝絎3筝筝 729 1039 1344 1649 -筝絎3筝綏罘 729 1039 1344 1649 -筝絎3筝3筝 729 1039 1344 1649 -筝絎3筝篆俄鎘 729 1039 1344 1649 -筝絎3筝蕋罍絮怨羂蕕 729 1039 1344 1649 -筝絎3筝活綽級え 729 1039 1344 1649 -筝絎3筝紊у() 729 1039 1344 1649 -筝絎3筝九ｅ医 729 1039 1344 1649 -筝絎3筝絎羌灸梢絮 729 1039 1344 1649 -筝絎3筝膩銀1筝 729 1039 1344 1649 -筝絎3筝蕭荀 729 1039 1344 1649 -筝絎3筝紊у() 729 1039 1344 1649 -筝絎3筝榊晶綽蕕紫茵蕕 729 1039 1344 1649 -筝絎3筝純絎 729 1039 1344 1649 - -筝絎堺井 730 1040 1345 1650 -筝絎阪井 730 1040 1345 1650 -筝絎阪井灸梢絮 730 1040 1345 1650 -筝絎堺2筝 730 1040 1345 1650 -筝絎堺遺峨 730 1040 1345 1650 -筝絎坂賢紊 730 1040 1345 1650 -筝絎坂賢肴タ 730 1040 1345 1650 -筝絎阪ュ嵯祉潟帥弱 730 1040 1345 1650 -筝絎冴羌潔絽翫 730 1040 1345 1650 -筝絎阪臼絮罘 730 1040 1345 1650 -筝絎阪臼絮綺 730 1040 1345 1650 -筝絎咲医紫祉潟帥弱 730 1040 1345 1650 -筝絎咲医紫祉潟帥弱 730 1040 1345 1650 -筝絎坂九4筝 730 1040 1345 1650 -筝絎坂九5筝 730 1040 1345 1650 -筝絎阪紙 730 1040 1345 1650 -筝絎堺ユ羌欠 730 1040 1345 1650 -筝絎冴紙 730 1040 1345 1650 -筝絎阪筝 730 1040 1345 1650 -筝絎阪罘 730 1040 1345 1650 -筝絎咲3筝 730 1040 1345 1650 -筝絎咲篆俄鎘 730 1040 1345 1650 -筝絎咲罍絮怨羂蕕 730 1040 1345 1650 -筝絎阪活綽級え 730 1040 1345 1650 -筝絎阪ぇ絖() 730 1040 1345 1650 -筝絎榊九ｅ医 730 1040 1345 1650 -筝絎阪羌灸梢絮 730 1040 1345 1650 -筝絎榊銀1筝 730 1040 1345 1650 -筝絎咲荀 730 1040 1345 1650 -筝絎阪ぇ絖() 730 1040 1345 1650 -筝絎阪榊晶綽蕕紫茵蕕 730 1040 1345 1650 -筝絎冴純絎 730 1040 1345 1650 - -井井 734 1044 1349 1654 -井井灸梢絮 734 1044 1349 1654 -井羌2筝 734 1044 1349 1654 -井羌遺峨 734 1044 1349 1654 -井筝紊 734 1044 1349 1654 -井筝肴タ 734 1044 1349 1654 -井ュ嵯祉潟帥弱 734 1044 1349 1654 -井羌潔絽翫 734 1044 1349 1654 -井絮怨罘 734 1044 1349 1654 -井絮怨綺 734 1044 1349 1654 -井医紫祉潟帥弱 734 1044 1349 1654 -井医紫祉潟帥弱 734 1044 1349 1654 -井篋九4筝 734 1044 1349 1654 -井篋九5筝 734 1044 1349 1654 -井紊紙 734 1044 1349 1654 -井ユ羌欠 734 1044 1349 1654 -井紙 734 1044 1349 1654 -井筝 734 1044 1349 1654 -井綏罘 734 1044 1349 1654 -井3筝 734 1044 1349 1654 -井篆俄鎘 734 1044 1349 1654 -井蕋罍絮怨羂蕕 734 1044 1349 1654 -井活綽級え 734 1044 1349 1654 -井紊у() 734 1044 1349 1654 -井九ｅ医 734 1044 1349 1654 -井絎羌灸梢絮 734 1044 1349 1654 -井膩銀1筝 734 1044 1349 1654 -井蕭荀 734 1044 1349 1654 -井紊у() 734 1044 1349 1654 -井榊晶綽蕕紫茵蕕 734 1044 1349 1654 -井純絎 734 1044 1349 1654 - -井井灸梢絮 735 1045 1350 1655 -井羌2筝 735 1045 1350 1655 -井羌遺峨 735 1045 1350 1655 -井筝紊 735 1045 1350 1655 -井筝肴タ 735 1045 1350 1655 -井ュ嵯祉潟帥弱 735 1045 1350 1655 -井羌潔絽翫 735 1045 1350 1655 -井絮怨罘 735 1045 1350 1655 -井絮怨綺 735 1045 1350 1655 -井医紫祉潟帥弱 735 1045 1350 1655 -井医紫祉潟帥弱 735 1045 1350 1655 -井篋九4筝 735 1045 1350 1655 -井篋九5筝 735 1045 1350 1655 -井紊紙 735 1045 1350 1655 -井ユ羌欠 735 1045 1350 1655 -井紙 735 1045 1350 1655 -井筝 735 1045 1350 1655 -井綏罘 735 1045 1350 1655 -井3筝 735 1045 1350 1655 -井篆俄鎘 735 1045 1350 1655 -井蕋罍絮怨羂蕕 735 1045 1350 1655 -井活綽級え 735 1045 1350 1655 -井紊у() 735 1045 1350 1655 -井九ｅ医 735 1045 1350 1655 -井絎羌灸梢絮 735 1045 1350 1655 -井膩銀1筝 735 1045 1350 1655 -井蕭荀 735 1045 1350 1655 -井紊у() 735 1045 1350 1655 -井榊晶綽蕕紫茵蕕 735 1045 1350 1655 -井純絎 735 1045 1350 1655 - -井灸梢絮羌2筝 736 1046 1351 1656 -井灸梢絮羌遺峨 736 1046 1351 1656 -井灸梢絮筝紊 736 1046 1351 1656 -井灸梢絮筝肴タ 736 1046 1351 1656 -井灸梢絮ュ嵯祉潟帥弱 736 1046 1351 1656 -井灸梢絮羌潔絽翫 736 1046 1351 1656 -井灸梢絮絮怨罘 736 1046 1351 1656 -井灸梢絮絮怨綺 736 1046 1351 1656 -井灸梢絮医紫祉潟帥弱 736 1046 1351 1656 -井灸梢絮医紫祉潟帥弱 736 1046 1351 1656 -井灸梢絮篋九4筝 736 1046 1351 1656 -井灸梢絮篋九5筝 736 1046 1351 1656 -井灸梢絮紊紙 736 1046 1351 1656 -井灸梢絮ユ羌欠 736 1046 1351 1656 -井灸梢絮紙 736 1046 1351 1656 -井灸梢絮筝 736 1046 1351 1656 -井灸梢絮綏罘 736 1046 1351 1656 -井灸梢絮3筝 736 1046 1351 1656 -井灸梢絮篆俄鎘 736 1046 1351 1656 -井灸梢絮蕋罍絮怨羂蕕 736 1046 1351 1656 -井灸梢絮活綽級え 736 1046 1351 1656 -井灸梢絮紊у() 736 1046 1351 1656 -井灸梢絮九ｅ医 736 1046 1351 1656 -井灸梢絮絎羌灸梢絮 736 1046 1351 1656 -井灸梢絮膩銀1筝 736 1046 1351 1656 -井灸梢絮蕭荀 736 1046 1351 1656 -井灸梢絮紊у() 736 1046 1351 1656 -井灸梢絮榊晶綽蕕紫茵蕕 736 1046 1351 1656 -井灸梢絮純絎 736 1046 1351 1656 - -羌2筝羌遺峨 738 1048 1353 1658 -羌2筝筝紊 738 1048 1353 1658 -羌2筝筝肴タ 738 1048 1353 1658 -羌2筝ュ嵯祉潟帥弱 738 1048 1353 1658 -羌2筝羌潔絽翫 738 1048 1353 1658 -羌2筝絮怨罘 738 1048 1353 1658 -羌2筝絮怨綺 738 1048 1353 1658 -羌2筝医紫祉潟帥弱 738 1048 1353 1658 -羌2筝医紫祉潟帥弱 738 1048 1353 1658 -羌2筝篋九4筝 738 1048 1353 1658 -羌2筝篋九5筝 738 1048 1353 1658 -羌2筝紊紙 738 1048 1353 1658 -羌2筝ユ羌欠 738 1048 1353 1658 -羌2筝紙 738 1048 1353 1658 -羌2筝筝 738 1048 1353 1658 -羌2筝綏罘 738 1048 1353 1658 -羌2筝3筝 738 1048 1353 1658 -羌2筝篆俄鎘 738 1048 1353 1658 -羌2筝蕋罍絮怨羂蕕 738 1048 1353 1658 -羌2筝活綽級え 738 1048 1353 1658 -羌2筝紊у() 738 1048 1353 1658 -羌2筝九ｅ医 738 1048 1353 1658 -羌2筝絎羌灸梢絮 738 1048 1353 1658 -羌2筝膩銀1筝 738 1048 1353 1658 -羌2筝蕭荀 738 1048 1353 1658 -羌2筝紊у() 738 1048 1353 1658 -羌2筝榊晶綽蕕紫茵蕕 738 1048 1353 1658 -羌2筝純絎 738 1048 1353 1658 - -羌遺峨筝紊 739 1049 1354 1659 -羌遺峨筝肴タ 739 1049 1354 1659 -羌遺峨ュ嵯祉潟帥弱 739 1049 1354 1659 -羌遺峨羌潔絽翫 739 1049 1354 1659 -羌遺峨絮怨罘 739 1049 1354 1659 -羌遺峨絮怨綺 739 1049 1354 1659 -羌遺峨医紫祉潟帥弱 739 1049 1354 1659 -羌遺峨医紫祉潟帥弱 739 1049 1354 1659 -羌遺峨篋九4筝 739 1049 1354 1659 -羌遺峨篋九5筝 739 1049 1354 1659 -羌遺峨紊紙 739 1049 1354 1659 -羌遺峨ユ羌欠 739 1049 1354 1659 -羌遺峨紙 739 1049 1354 1659 -羌遺峨筝 739 1049 1354 1659 -羌遺峨綏罘 739 1049 1354 1659 -羌遺峨3筝 739 1049 1354 1659 -羌遺峨篆俄鎘 739 1049 1354 1659 -羌遺峨蕋罍絮怨羂蕕 739 1049 1354 1659 -羌遺峨活綽級え 739 1049 1354 1659 -羌遺峨紊у() 739 1049 1354 1659 -羌遺峨九ｅ医 739 1049 1354 1659 -羌遺峨絎羌灸梢絮 739 1049 1354 1659 -羌遺峨膩銀1筝 739 1049 1354 1659 -羌遺峨蕭荀 739 1049 1354 1659 -羌遺峨紊у() 739 1049 1354 1659 -羌遺峨榊晶綽蕕紫茵蕕 739 1049 1354 1659 -羌遺峨純絎 739 1049 1354 1659 - -筝紊筝肴タ 740 1050 1355 1700 -筝紊ュ嵯祉潟帥弱 740 1050 1355 1700 -筝紊羌潔絽翫 740 1050 1355 1700 -筝紊絮怨罘 740 1050 1355 1700 -筝紊絮怨綺 740 1050 1355 1700 -筝紊医紫祉潟帥弱 740 1050 1355 1700 -筝紊医紫祉潟帥弱 740 1050 1355 1700 -筝紊篋九4筝 740 1050 1355 1700 -筝紊篋九5筝 740 1050 1355 1700 -筝紊紊紙 740 1050 1355 1700 -筝紊ユ羌欠 740 1050 1355 1700 -筝紊紙 740 1050 1355 1700 -筝紊筝 740 1050 1355 1700 -筝紊綏罘 740 1050 1355 1700 -筝紊3筝 740 1050 1355 1700 -筝紊篆俄鎘 740 1050 1355 1700 -筝紊蕋罍絮怨羂蕕 740 1050 1355 1700 -筝紊活綽級え 740 1050 1355 1700 -筝紊紊у() 740 1050 1355 1700 -筝紊九ｅ医 740 1050 1355 1700 -筝紊絎羌灸梢絮 740 1050 1355 1700 -筝紊膩銀1筝 740 1050 1355 1700 -筝紊蕭荀 740 1050 1355 1700 -筝紊紊у() 740 1050 1355 1700 -筝紊榊晶綽蕕紫茵蕕 740 1050 1355 1700 -筝紊純絎 740 1050 1355 1700 - -筝肴タュ嵯祉潟帥弱 742 1052 1357 1702 -筝肴タ羌潔絽翫 742 1052 1357 1702 -筝肴タ絮怨罘 742 1052 1357 1702 -筝肴タ絮怨綺 742 1052 1357 1702 -筝肴タ医紫祉潟帥弱 742 1052 1357 1702 -筝肴タ医紫祉潟帥弱 742 1052 1357 1702 -筝肴タ篋九4筝 742 1052 1357 1702 -筝肴タ篋九5筝 742 1052 1357 1702 -筝肴タ紊紙 742 1052 1357 1702 -筝肴タユ羌欠 742 1052 1357 1702 -筝肴タ紙 742 1052 1357 1702 -筝肴タ筝 742 1052 1357 1702 -筝肴タ綏罘 742 1052 1357 1702 -筝肴タ3筝 742 1052 1357 1702 -筝肴タ篆俄鎘 742 1052 1357 1702 -筝肴タ蕋罍絮怨羂蕕 742 1052 1357 1702 -筝肴タ活綽級え 742 1052 1357 1702 -筝肴タ紊у() 742 1052 1357 1702 -筝肴タ九ｅ医 742 1052 1357 1702 -筝肴タ絎羌灸梢絮 742 1052 1357 1702 -筝肴タ膩銀1筝 742 1052 1357 1702 -筝肴タ蕭荀 742 1052 1357 1702 -筝肴タ紊у() 742 1052 1357 1702 -筝肴タ榊晶綽蕕紫茵蕕 742 1052 1357 1702 -筝肴タ純絎 742 1052 1357 1702 - -ュ嵯祉潟帥弱羌潔絽翫 744 1054 1359 1704 -ュ嵯祉潟帥弱絮怨罘 744 1054 1359 1704 -ュ嵯祉潟帥弱絮怨綺 744 1054 1359 1704 -ュ嵯祉潟帥弱医紫祉潟帥弱 744 1054 1359 1704 -ュ嵯祉潟帥弱医紫祉潟帥弱 744 1054 1359 1704 -ュ嵯祉潟帥弱篋九4筝 744 1054 1359 1704 -ュ嵯祉潟帥弱篋九5筝 744 1054 1359 1704 -ュ嵯祉潟帥弱紊紙 744 1054 1359 1704 -ュ嵯祉潟帥弱ユ羌欠 744 1054 1359 1704 -ュ嵯祉潟帥弱紙 744 1054 1359 1704 -ュ嵯祉潟帥弱筝 744 1054 1359 1704 -ュ嵯祉潟帥弱綏罘 744 1054 1359 1704 -ュ嵯祉潟帥弱3筝 744 1054 1359 1704 -ュ嵯祉潟帥弱篆俄鎘 744 1054 1359 1704 -ュ嵯祉潟帥弱蕋罍絮怨羂蕕 744 1054 1359 1704 -ュ嵯祉潟帥弱活綽級え 744 1054 1359 1704 -ュ嵯祉潟帥弱紊у() 744 1054 1359 1704 -ュ嵯祉潟帥弱九ｅ医 744 1054 1359 1704 -ュ嵯祉潟帥弱絎羌灸梢絮 744 1054 1359 1704 -ュ嵯祉潟帥弱膩銀1筝 744 1054 1359 1704 -ュ嵯祉潟帥弱蕭荀 744 1054 1359 1704 -ュ嵯祉潟帥弱紊у() 744 1054 1359 1704 -ュ嵯祉潟帥弱榊晶綽蕕紫茵蕕 744 1054 1359 1704 -ュ嵯祉潟帥弱純絎 744 1054 1359 1704 - -羌潔絽翫絮怨罘 745 1055 1400 1705 -羌潔絽翫絮怨綺 745 1055 1400 1705 -羌潔絽翫医紫祉潟帥弱 745 1055 1400 1705 -羌潔絽翫医紫祉潟帥弱 745 1055 1400 1705 -羌潔絽翫篋九4筝 745 1055 1400 1705 -羌潔絽翫篋九5筝 745 1055 1400 1705 -羌潔絽翫紊紙 745 1055 1400 1705 -羌潔絽翫ユ羌欠 745 1055 1400 1705 -羌潔絽翫紙 745 1055 1400 1705 -羌潔絽翫筝 745 1055 1400 1705 -羌潔絽翫綏罘 745 1055 1400 1705 -羌潔絽翫3筝 745 1055 1400 1705 -羌潔絽翫篆俄鎘 745 1055 1400 1705 -羌潔絽翫蕋罍絮怨羂蕕 745 1055 1400 1705 -羌潔絽翫活綽級え 745 1055 1400 1705 -羌潔絽翫紊у() 745 1055 1400 1705 -羌潔絽翫九ｅ医 745 1055 1400 1705 -羌潔絽翫絎羌灸梢絮 745 1055 1400 1705 -羌潔絽翫膩銀1筝 745 1055 1400 1705 -羌潔絽翫蕭荀 745 1055 1400 1705 -羌潔絽翫紊у() 745 1055 1400 1705 -羌潔絽翫榊晶綽蕕紫茵蕕 745 1055 1400 1705 -羌潔絽翫純絎 745 1055 1400 1705 - -絮怨罘絮怨綺 747 1057 1402 1707 -絮怨罘医紫祉潟帥弱 747 1057 1402 1707 -絮怨罘医紫祉潟帥弱 747 1057 1402 1707 -絮怨罘篋九4筝 747 1057 1402 1707 -絮怨罘篋九5筝 747 1057 1402 1707 -絮怨罘紊紙 747 1057 1402 1707 -絮怨罘ユ羌欠 747 1057 1402 1707 -絮怨罘紙 747 1057 1402 1707 -絮怨罘筝 747 1057 1402 1707 -絮怨罘綏罘 747 1057 1402 1707 -絮怨罘3筝 747 1057 1402 1707 -絮怨罘篆俄鎘 747 1057 1402 1707 -絮怨罘蕋罍絮怨羂蕕 747 1057 1402 1707 -絮怨罘活綽級え 747 1057 1402 1707 -絮怨罘紊у() 747 1057 1402 1707 -絮怨罘九ｅ医 747 1057 1402 1707 -絮怨罘絎羌灸梢絮 747 1057 1402 1707 -絮怨罘膩銀1筝 747 1057 1402 1707 -絮怨罘蕭荀 747 1057 1402 1707 -絮怨罘紊у() 747 1057 1402 1707 -絮怨罘榊晶綽蕕紫茵蕕 747 1057 1402 1707 -絮怨罘純絎 747 1057 1402 1707 - -絮怨綺医紫祉潟帥弱 749 1059 1404 1709 -絮怨綺医紫祉潟帥弱 749 1059 1404 1709 -絮怨綺篋九4筝 749 1059 1404 1709 -絮怨綺篋九5筝 749 1059 1404 1709 -絮怨綺紊紙 749 1059 1404 1709 -絮怨綺ユ羌欠 749 1059 1404 1709 -絮怨綺紙 749 1059 1404 1709 -絮怨綺筝 749 1059 1404 1709 -絮怨綺綏罘 749 1059 1404 1709 -絮怨綺3筝 749 1059 1404 1709 -絮怨綺篆俄鎘 749 1059 1404 1709 -絮怨綺蕋罍絮怨羂蕕 749 1059 1404 1709 -絮怨綺活綽級え 749 1059 1404 1709 -絮怨綺紊у() 749 1059 1404 1709 -絮怨綺九ｅ医 749 1059 1404 1709 -絮怨綺絎羌灸梢絮 749 1059 1404 1709 -絮怨綺膩銀1筝 749 1059 1404 1709 -絮怨綺蕭荀 749 1059 1404 1709 -絮怨綺紊у() 749 1059 1404 1709 -絮怨綺榊晶綽蕕紫茵蕕 749 1059 1404 1709 -絮怨綺純絎 749 1059 1404 1709 - -医紫祉潟帥弱ｉ医紫祉潟帥弱 751 1101 1406 1711 -医紫祉潟帥弱ｄ九4筝 751 1101 1406 1711 -医紫祉潟帥弱ｄ九5筝 751 1101 1406 1711 -医紫祉潟帥弱ｅ紙 751 1101 1406 1711 -医紫祉潟帥弱ｆユ羌欠 751 1101 1406 1711 -医紫祉潟帥弱ｃ紙 751 1101 1406 1711 -医紫祉潟帥弱ｅ筝 751 1101 1406 1711 -医紫祉潟帥弱ｅ罘 751 1101 1406 1711 -医紫祉潟帥弱ｉ3筝 751 1101 1406 1711 -医紫祉潟帥弱ｉ篆俄鎘 751 1101 1406 1711 -医紫祉潟帥弱ｉ罍絮怨羂蕕 751 1101 1406 1711 -医紫祉潟帥弱ｅ活綽級え 751 1101 1406 1711 -医紫祉潟帥弱ｅぇ絖() 751 1101 1406 1711 -医紫祉潟帥弱ｇ九ｅ医 751 1101 1406 1711 -医紫祉潟帥弱ｅ羌灸梢絮 751 1101 1406 1711 -医紫祉潟帥弱ｇ銀1筝 751 1101 1406 1711 -医紫祉潟帥弱ｉ荀 751 1101 1406 1711 -医紫祉潟帥弱ｅぇ絖() 751 1101 1406 1711 -医紫祉潟帥弱ｅ榊晶綽蕕紫茵蕕 751 1101 1406 1711 -医紫祉潟帥弱ｃ純絎 751 1101 1406 1711 - -医紫祉潟帥弱篋九4筝 752 1102 1407 1712 -医紫祉潟帥弱篋九5筝 752 1102 1407 1712 -医紫祉潟帥弱紊紙 752 1102 1407 1712 -医紫祉潟帥弱ユ羌欠 752 1102 1407 1712 -医紫祉潟帥弱紙 752 1102 1407 1712 -医紫祉潟帥弱筝 752 1102 1407 1712 -医紫祉潟帥弱綏罘 752 1102 1407 1712 -医紫祉潟帥弱3筝 752 1102 1407 1712 -医紫祉潟帥弱篆俄鎘 752 1102 1407 1712 -医紫祉潟帥弱蕋罍絮怨羂蕕 752 1102 1407 1712 -医紫祉潟帥弱活綽級え 752 1102 1407 1712 -医紫祉潟帥弱紊у() 752 1102 1407 1712 -医紫祉潟帥弱九ｅ医 752 1102 1407 1712 -医紫祉潟帥弱絎羌灸梢絮 752 1102 1407 1712 -医紫祉潟帥弱膩銀1筝 752 1102 1407 1712 -医紫祉潟帥弱蕭荀 752 1102 1407 1712 -医紫祉潟帥弱紊у() 752 1102 1407 1712 -医紫祉潟帥弱榊晶綽蕕紫茵蕕 752 1102 1407 1712 -医紫祉潟帥弱純絎 752 1102 1407 1712 - -篋九4筝篋九5筝 753 1103 1408 1713 -篋九4筝紊紙 753 1103 1408 1713 -篋九4筝ユ羌欠 753 1103 1408 1713 -篋九4筝紙 753 1103 1408 1713 -篋九4筝筝 753 1103 1408 1713 -篋九4筝綏罘 753 1103 1408 1713 -篋九4筝3筝 753 1103 1408 1713 -篋九4筝篆俄鎘 753 1103 1408 1713 -篋九4筝蕋罍絮怨羂蕕 753 1103 1408 1713 -篋九4筝活綽級え 753 1103 1408 1713 -篋九4筝紊у() 753 1103 1408 1713 -篋九4筝九ｅ医 753 1103 1408 1713 -篋九4筝絎羌灸梢絮 753 1103 1408 1713 -篋九4筝膩銀1筝 753 1103 1408 1713 -篋九4筝蕭荀 753 1103 1408 1713 -篋九4筝紊у() 753 1103 1408 1713 -篋九4筝榊晶綽蕕紫茵蕕 753 1103 1408 1713 -篋九4筝純絎 753 1103 1408 1713 - -篋九5筝紊紙 754 1104 1409 1714 -篋九5筝ユ羌欠 754 1104 1409 1714 -篋九5筝紙 754 1104 1409 1714 -篋九5筝筝 754 1104 1409 1714 -篋九5筝綏罘 754 1104 1409 1714 -篋九5筝3筝 754 1104 1409 1714 -篋九5筝篆俄鎘 754 1104 1409 1714 -篋九5筝蕋罍絮怨羂蕕 754 1104 1409 1714 -篋九5筝活綽級え 754 1104 1409 1714 -篋九5筝紊у() 754 1104 1409 1714 -篋九5筝九ｅ医 754 1104 1409 1714 -篋九5筝絎羌灸梢絮 754 1104 1409 1714 -篋九5筝膩銀1筝 754 1104 1409 1714 -篋九5筝蕭荀 754 1104 1409 1714 -篋九5筝紊у() 754 1104 1409 1714 -篋九5筝榊晶綽蕕紫茵蕕 754 1104 1409 1714 -篋九5筝純絎 754 1104 1409 1714 - -紊紙ユ羌欠 755 1105 1410 1715 -紊紙紙 755 1105 1410 1715 -紊紙筝 755 1105 1410 1715 -紊紙綏罘 755 1105 1410 1715 -紊紙3筝 755 1105 1410 1715 -紊紙篆俄鎘 755 1105 1410 1715 -紊紙蕋罍絮怨羂蕕 755 1105 1410 1715 -紊紙活綽級え 755 1105 1410 1715 -紊紙紊у() 755 1105 1410 1715 -紊紙九ｅ医 755 1105 1410 1715 -紊紙絎羌灸梢絮 755 1105 1410 1715 -紊紙膩銀1筝 755 1105 1410 1715 -紊紙蕭荀 755 1105 1410 1715 -紊紙紊у() 755 1105 1410 1715 -紊紙榊晶綽蕕紫茵蕕 755 1105 1410 1715 -紊紙純絎 755 1105 1410 1715 - -ユ羌欠≪紙 758 1108 1413 1718 -ユ羌欠√筝 758 1108 1413 1718 -ユ羌欠√罘 758 1108 1413 1718 -ユ羌欠∫3筝 758 1108 1413 1718 -ユ羌欠∫篆俄鎘 758 1108 1413 1718 -ユ羌欠∫罍絮怨羂蕕 758 1108 1413 1718 -ユ羌欠√活綽級え 758 1108 1413 1718 -ユ羌欠√ぇ絖() 758 1108 1413 1718 -ユ羌欠∝九ｅ医 758 1108 1413 1718 -ユ羌欠√羌灸梢絮 758 1108 1413 1718 -ユ羌欠∝銀1筝 758 1108 1413 1718 -ユ羌欠∫荀 758 1108 1413 1718 -ユ羌欠√ぇ絖() 758 1108 1413 1718 -ユ羌欠√榊晶綽蕕紫茵蕕 758 1108 1413 1718 -ユ羌欠≪純絎 758 1108 1413 1718 - -紙筝 800 1110 1415 1720 -紙綏罘 800 1110 1415 1720 -紙3筝 800 1110 1415 1720 -紙篆俄鎘 800 1110 1415 1720 -紙蕋罍絮怨羂蕕 800 1110 1415 1720 -紙活綽級え 800 1110 1415 1720 -紙紊у() 800 1110 1415 1720 -紙九ｅ医 800 1110 1415 1720 -紙絎羌灸梢絮 800 1110 1415 1720 -紙膩銀1筝 800 1110 1415 1720 -紙蕭荀 800 1110 1415 1720 -紙紊у() 800 1110 1415 1720 -紙榊晶綽蕕紫茵蕕 800 1110 1415 1720 -紙純絎 800 1110 1415 1720 - -筝綏罘 804 1114 1419 1724 -筝3筝 804 1114 1419 1724 -筝篆俄鎘 804 1114 1419 1724 -筝蕋罍絮怨羂蕕 804 1114 1419 1724 -筝活綽級え 804 1114 1419 1724 -筝紊у() 804 1114 1419 1724 -筝九ｅ医 804 1114 1419 1724 -筝絎羌灸梢絮 804 1114 1419 1724 -筝膩銀1筝 804 1114 1419 1724 -筝蕭荀 804 1114 1419 1724 -筝紊у() 804 1114 1419 1724 -筝榊晶綽蕕紫茵蕕 804 1114 1419 1724 -筝純絎 804 1114 1419 1724 - -綏罘3筝 805 1115 1420 1725 -綏罘篆俄鎘 805 1115 1420 1725 -綏罘蕋罍絮怨羂蕕 805 1115 1420 1725 -綏罘活綽級え 805 1115 1420 1725 -綏罘紊у() 805 1115 1420 1725 -綏罘九ｅ医 805 1115 1420 1725 -綏罘絎羌灸梢絮 805 1115 1420 1725 -綏罘膩銀1筝 805 1115 1420 1725 -綏罘蕭荀 805 1115 1420 1725 -綏罘紊у() 805 1115 1420 1725 -綏罘榊晶綽蕕紫茵蕕 805 1115 1420 1725 -綏罘純絎 805 1115 1420 1725 - -3筝篆俄鎘 806 1116 1421 1726 -3筝蕋罍絮怨羂蕕 806 1116 1421 1726 -3筝活綽級え 806 1116 1421 1726 -3筝紊у() 806 1116 1421 1726 -3筝九ｅ医 806 1116 1421 1726 -3筝絎羌灸梢絮 806 1116 1421 1726 -3筝膩銀1筝 806 1116 1421 1726 -3筝蕭荀 806 1116 1421 1726 -3筝紊у() 806 1116 1421 1726 -3筝榊晶綽蕕紫茵蕕 806 1116 1421 1726 -3筝純絎 806 1116 1421 1726 - -篆俄鎘蕋罍絮怨羂蕕 806 1116 1421 1726 -篆俄鎘活綽級え 806 1116 1421 1726 -篆俄鎘紊у() 806 1116 1421 1726 -篆俄鎘九ｅ医 806 1116 1421 1726 -篆俄鎘絎羌灸梢絮 806 1116 1421 1726 -篆俄鎘膩銀1筝 806 1116 1421 1726 -篆俄鎘蕭荀 806 1116 1421 1726 -篆俄鎘紊у() 806 1116 1421 1726 -篆俄鎘榊晶綽蕕紫茵蕕 806 1116 1421 1726 -篆俄鎘純絎 806 1116 1421 1726 - -蕋罍絮怨羂蕕活綽級え 807 1117 1422 1727 -蕋罍絮怨羂蕕紊у() 807 1117 1422 1727 -蕋罍絮怨羂蕕九ｅ医 807 1117 1422 1727 -蕋罍絮怨羂蕕絎羌灸梢絮 807 1117 1422 1727 -蕋罍絮怨羂蕕膩銀1筝 807 1117 1422 1727 -蕋罍絮怨羂蕕蕭荀 807 1117 1422 1727 -蕋罍絮怨羂蕕紊у() 807 1117 1422 1727 -蕋罍絮怨羂蕕榊晶綽蕕紫茵蕕 807 1117 1422 1727 -蕋罍絮怨羂蕕純絎 807 1117 1422 1727 - -活綽級え紊у() 811 1121 1426 1731 -活綽級え九ｅ医 811 1121 1426 1731 -活綽級え絎羌灸梢絮 811 1121 1426 1731 -活綽級え膩銀1筝 811 1121 1426 1731 -活綽級え蕭荀 811 1121 1426 1731 -活綽級え紊у() 811 1121 1426 1731 -活綽級え榊晶綽蕕紫茵蕕 811 1121 1426 1731 -活綽級え純絎 811 1121 1426 1731 - -紊у()九ｅ医 812 1122 1427 1732 -紊у()絎羌灸梢絮 812 1122 1427 1732 -紊у()膩銀1筝 812 1122 1427 1732 -紊у()蕭荀 812 1122 1427 1732 -紊у()紊у() 812 1122 1427 1732 -紊у()榊晶綽蕕紫茵蕕 812 1122 1427 1732 -紊у()純絎 812 1122 1427 1732 - -九ｅ医絎羌灸梢絮 817 1127 1432 1737 -九ｅ医膩銀1筝 817 1127 1432 1737 -九ｅ医蕭荀 817 1127 1432 1737 -九ｅ医紊у() 817 1127 1432 1737 -九ｅ医榊晶綽蕕紫茵蕕 817 1127 1432 1737 -九ｅ医純絎 817 1127 1432 1737 - -絎羌灸梢絮膩銀1筝 818 1128 1433 1738 -絎羌灸梢絮蕭荀 818 1128 1433 1738 -絎羌灸梢絮紊у() 818 1128 1433 1738 -絎羌灸梢絮榊晶綽蕕紫茵蕕 818 1128 1433 1738 -絎羌灸梢絮純絎 818 1128 1433 1738 - -膩銀1筝蕭荀 818 1128 1433 1738 -膩銀1筝紊у() 818 1128 1433 1738 -膩銀1筝榊晶綽蕕紫茵蕕 818 1128 1433 1738 -膩銀1筝純絎 818 1128 1433 1738 - -蕭荀伾ぇ絖() 819 1129 1434 1739 -蕭荀伾榊晶綽蕕紫茵蕕 819 1129 1434 1739 -蕭荀伹純絎 819 1129 1434 1739 - -紊у()榊晶綽蕕紫茵蕕 824 1134 1439 1744 -紊у()純絎 824 1134 1439 1744 - -榊晶綽蕕紫茵蕕純絎 826 1136 1441 1746 - -純絎水榊晶綽蕕紫茵蕕 850 1200 1505 1810 -純絎水ぇ絖() 850 1200 1505 1810 -純絎睡九ｅ医 850 1200 1505 1810 -純絎水羌灸梢絮 850 1200 1505 1810 -純絎睡銀1筝 850 1200 1505 1810 -純絎翠荀 850 1200 1505 1810 -純絎水ぇ絖() 850 1200 1505 1810 -純絎水活綽級え 850 1200 1505 1810 -純絎翠罍絮怨羂蕕 850 1200 1505 1810 -純絎翠篆俄鎘 850 1200 1505 1810 -純絎翠3筝 850 1200 1505 1810 -純絎水罘 850 1200 1505 1810 -純絎水筝 850 1200 1505 1810 -純絎帥紙 850 1200 1505 1810 -純絎炊ユ羌欠 850 1200 1505 1810 -純絎水紙 850 1200 1505 1810 -純絎推九5筝 850 1200 1505 1810 -純絎推九4筝 850 1200 1505 1810 -純絎翠医紫祉潟帥弱 850 1200 1505 1810 -純絎翠医紫祉潟帥弱 850 1200 1505 1810 -純絎水臼絮綺 850 1200 1505 1810 -純絎水臼絮罘 850 1200 1505 1810 -純絎水ュ嵯祉潟帥弱 850 1200 1505 1810 -純絎帥羌潔絽翫 850 1200 1505 1810 -純絎推賢 850 1200 1505 1810 -純絎推賢紊 850 1200 1505 1810 -純絎炊遺峨 850 1200 1505 1810 -純絎炊2筝 850 1200 1505 1810 -純絎水井灸梢絮 850 1200 1505 1810 -純絎水井 850 1200 1505 1810 -純絎炊井 850 1200 1505 1810 -純絎推絎 850 1200 1505 1810 -純絎推絎3筝 850 1200 1505 1810 -純絎推絎 850 1200 1505 1810 -純絎推絎 850 1200 1505 1810 -純絎帥ゃ泣若鴻祉潟帥若水 850 1200 1505 1810 -純絎粋タ蕭違潟 850 1200 1505 1810 -純絎帥筝筝 850 1200 1505 1810 -純絎炊 850 1200 1505 1810 -純絎水篋ゃ帥若 850 1200 1505 1810 -純絎翠育罩ｉ√ 850 1200 1505 1810 - -榊晶綽蕕紫茵蕕紊у() 851 1201 1506 1811 -榊晶綽蕕紫茵蕕九ｅ医 851 1201 1506 1811 -榊晶綽蕕紫茵蕕絎羌灸梢絮 851 1201 1506 1811 -榊晶綽蕕紫茵蕕膩銀1筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕蕭荀 851 1201 1506 1811 -榊晶綽蕕紫茵蕕紊у() 851 1201 1506 1811 -榊晶綽蕕紫茵蕕活綽級え 851 1201 1506 1811 -榊晶綽蕕紫茵蕕蕋罍絮怨羂蕕 851 1201 1506 1811 -榊晶綽蕕紫茵蕕篆俄鎘 851 1201 1506 1811 -榊晶綽蕕紫茵蕕3筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕綏罘 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕紙 851 1201 1506 1811 -榊晶綽蕕紫茵蕕ユ羌欠 851 1201 1506 1811 -榊晶綽蕕紫茵蕕紊紙 851 1201 1506 1811 -榊晶綽蕕紫茵蕕篋九5筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕篋九4筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕医紫祉潟帥弱 851 1201 1506 1811 -榊晶綽蕕紫茵蕕医紫祉潟帥弱 851 1201 1506 1811 -榊晶綽蕕紫茵蕕絮怨綺 851 1201 1506 1811 -榊晶綽蕕紫茵蕕絮怨罘 851 1201 1506 1811 -榊晶綽蕕紫茵蕕ュ嵯祉潟帥弱 851 1201 1506 1811 -榊晶綽蕕紫茵蕕羌潔絽翫 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝紊 851 1201 1506 1811 -榊晶綽蕕紫茵蕕羌遺峨 851 1201 1506 1811 -榊晶綽蕕紫茵蕕羌2筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕井灸梢絮 851 1201 1506 1811 -榊晶綽蕕紫茵蕕井 851 1201 1506 1811 -榊晶綽蕕紫茵蕕井 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝絎 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝絎3筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝絎 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝絎 851 1201 1506 1811 -榊晶綽蕕紫茵蕕ゃ泣若鴻祉潟帥若水 851 1201 1506 1811 -榊晶綽蕕紫茵蕕茱翠違潟 851 1201 1506 1811 -榊晶綽蕕紫茵蕕筝筝 851 1201 1506 1811 -榊晶綽蕕紫茵蕕羈 851 1201 1506 1811 -榊晶綽蕕紫茵蕕綺篋ゃ帥若 851 1201 1506 1811 -榊晶綽蕕紫茵蕕育罩ｉ√ 851 1201 1506 1811 - -紊у()九ｅ医 853 1203 1508 1813 -紊у()絎羌灸梢絮 853 1203 1508 1813 -紊у()膩銀1筝 853 1203 1508 1813 -紊у()蕭荀 853 1203 1508 1813 -紊у()紊у() 853 1203 1508 1813 -紊у()活綽級え 853 1203 1508 1813 -紊у()蕋罍絮怨羂蕕 853 1203 1508 1813 -紊у()篆俄鎘 853 1203 1508 1813 -紊у()3筝 853 1203 1508 1813 -紊у()綏罘 853 1203 1508 1813 -紊у()筝 853 1203 1508 1813 -紊у()紙 853 1203 1508 1813 -紊у()ユ羌欠 853 1203 1508 1813 -紊у()紊紙 853 1203 1508 1813 -紊у()篋九5筝 853 1203 1508 1813 -紊у()篋九4筝 853 1203 1508 1813 -紊у()医紫祉潟帥弱 853 1203 1508 1813 -紊у()医紫祉潟帥弱 853 1203 1508 1813 -紊у()絮怨綺 853 1203 1508 1813 -紊у()絮怨罘 853 1203 1508 1813 -紊у()ュ嵯祉潟帥弱 853 1203 1508 1813 -紊у()羌潔絽翫 853 1203 1508 1813 -紊у()筝 853 1203 1508 1813 -紊у()筝紊 853 1203 1508 1813 -紊у()羌遺峨 853 1203 1508 1813 -紊у()羌2筝 853 1203 1508 1813 -紊у()井灸梢絮 853 1203 1508 1813 -紊у()井 853 1203 1508 1813 -紊у()井 853 1203 1508 1813 -紊у()筝絎 853 1203 1508 1813 -紊у()筝絎3筝 853 1203 1508 1813 -紊у()筝絎 853 1203 1508 1813 -紊у()筝絎 853 1203 1508 1813 -紊у()ゃ泣若鴻祉潟帥若水 853 1203 1508 1813 -紊у()茱翠違潟 853 1203 1508 1813 -紊у()筝筝 853 1203 1508 1813 -紊у()羈 853 1203 1508 1813 -紊у()綺篋ゃ帥若 853 1203 1508 1813 -紊у()育罩ｉ√ 853 1203 1508 1813 - -九ｅ医絎羌灸梢絮 858 1208 1513 1818 -九ｅ医膩銀1筝 858 1208 1513 1818 -九ｅ医蕭荀 858 1208 1513 1818 -九ｅ医紊у() 858 1208 1513 1818 -九ｅ医活綽級え 858 1208 1513 1818 -九ｅ医蕋罍絮怨羂蕕 858 1208 1513 1818 -九ｅ医篆俄鎘 858 1208 1513 1818 -九ｅ医3筝 858 1208 1513 1818 -九ｅ医綏罘 858 1208 1513 1818 -九ｅ医筝 858 1208 1513 1818 -九ｅ医紙 858 1208 1513 1818 -九ｅ医ユ羌欠 858 1208 1513 1818 -九ｅ医紊紙 858 1208 1513 1818 -九ｅ医篋九5筝 858 1208 1513 1818 -九ｅ医篋九4筝 858 1208 1513 1818 -九ｅ医医紫祉潟帥弱 858 1208 1513 1818 -九ｅ医医紫祉潟帥弱 858 1208 1513 1818 -九ｅ医絮怨綺 858 1208 1513 1818 -九ｅ医絮怨罘 858 1208 1513 1818 -九ｅ医ュ嵯祉潟帥弱 858 1208 1513 1818 -九ｅ医羌潔絽翫 858 1208 1513 1818 -九ｅ医筝 858 1208 1513 1818 -九ｅ医筝紊 858 1208 1513 1818 -九ｅ医羌遺峨 858 1208 1513 1818 -九ｅ医羌2筝 858 1208 1513 1818 -九ｅ医井灸梢絮 858 1208 1513 1818 -九ｅ医井 858 1208 1513 1818 -九ｅ医井 858 1208 1513 1818 -九ｅ医筝絎 858 1208 1513 1818 -九ｅ医筝絎3筝 858 1208 1513 1818 -九ｅ医筝絎 858 1208 1513 1818 -九ｅ医筝絎 858 1208 1513 1818 -九ｅ医ゃ泣若鴻祉潟帥若水 858 1208 1513 1818 -九ｅ医茱翠違潟 858 1208 1513 1818 -九ｅ医筝筝 858 1208 1513 1818 -九ｅ医羈 858 1208 1513 1818 -九ｅ医綺篋ゃ帥若 858 1208 1513 1818 -九ｅ医育罩ｉ√ 858 1208 1513 1818 - -絎羌灸梢絮膩銀1筝 859 1209 1514 1819 -絎羌灸梢絮蕭荀 859 1209 1514 1819 -絎羌灸梢絮紊у() 859 1209 1514 1819 -絎羌灸梢絮活綽級え 859 1209 1514 1819 -絎羌灸梢絮蕋罍絮怨羂蕕 859 1209 1514 1819 -絎羌灸梢絮篆俄鎘 859 1209 1514 1819 -絎羌灸梢絮3筝 859 1209 1514 1819 -絎羌灸梢絮綏罘 859 1209 1514 1819 -絎羌灸梢絮筝 859 1209 1514 1819 -絎羌灸梢絮紙 859 1209 1514 1819 -絎羌灸梢絮ユ羌欠 859 1209 1514 1819 -絎羌灸梢絮紊紙 859 1209 1514 1819 -絎羌灸梢絮篋九5筝 859 1209 1514 1819 -絎羌灸梢絮篋九4筝 859 1209 1514 1819 -絎羌灸梢絮医紫祉潟帥弱 859 1209 1514 1819 -絎羌灸梢絮医紫祉潟帥弱 859 1209 1514 1819 -絎羌灸梢絮絮怨綺 859 1209 1514 1819 -絎羌灸梢絮絮怨罘 859 1209 1514 1819 -絎羌灸梢絮ュ嵯祉潟帥弱 859 1209 1514 1819 -絎羌灸梢絮羌潔絽翫 859 1209 1514 1819 -絎羌灸梢絮筝 859 1209 1514 1819 -絎羌灸梢絮筝紊 859 1209 1514 1819 -絎羌灸梢絮羌遺峨 859 1209 1514 1819 -絎羌灸梢絮羌2筝 859 1209 1514 1819 -絎羌灸梢絮井灸梢絮 859 1209 1514 1819 -絎羌灸梢絮井 859 1209 1514 1819 -絎羌灸梢絮井 859 1209 1514 1819 -絎羌灸梢絮筝絎 859 1209 1514 1819 -絎羌灸梢絮筝絎3筝 859 1209 1514 1819 -絎羌灸梢絮筝絎 859 1209 1514 1819 -絎羌灸梢絮筝絎 859 1209 1514 1819 -絎羌灸梢絮ゃ泣若鴻祉潟帥若水 859 1209 1514 1819 -絎羌灸梢絮茱翠違潟 859 1209 1514 1819 -絎羌灸梢絮筝筝 859 1209 1514 1819 -絎羌灸梢絮羈 859 1209 1514 1819 -絎羌灸梢絮綺篋ゃ帥若 859 1209 1514 1819 -絎羌灸梢絮育罩ｉ√ 859 1209 1514 1819 - -膩銀1筝蕭荀 859 1209 1514 1819 -膩銀1筝紊у() 859 1209 1514 1819 -膩銀1筝活綽級え 859 1209 1514 1819 -膩銀1筝蕋罍絮怨羂蕕 859 1209 1514 1819 -膩銀1筝篆俄鎘 859 1209 1514 1819 -膩銀1筝3筝 859 1209 1514 1819 -膩銀1筝綏罘 859 1209 1514 1819 -膩銀1筝筝 859 1209 1514 1819 -膩銀1筝紙 859 1209 1514 1819 -膩銀1筝ユ羌欠 859 1209 1514 1819 -膩銀1筝紊紙 859 1209 1514 1819 -膩銀1筝篋九5筝 859 1209 1514 1819 -膩銀1筝篋九4筝 859 1209 1514 1819 -膩銀1筝医紫祉潟帥弱 859 1209 1514 1819 -膩銀1筝医紫祉潟帥弱 859 1209 1514 1819 -膩銀1筝絮怨綺 859 1209 1514 1819 -膩銀1筝絮怨罘 859 1209 1514 1819 -膩銀1筝ュ嵯祉潟帥弱 859 1209 1514 1819 -膩銀1筝羌潔絽翫 859 1209 1514 1819 -膩銀1筝筝 859 1209 1514 1819 -膩銀1筝筝紊 859 1209 1514 1819 -膩銀1筝羌遺峨 859 1209 1514 1819 -膩銀1筝羌2筝 859 1209 1514 1819 -膩銀1筝井灸梢絮 859 1209 1514 1819 -膩銀1筝井 859 1209 1514 1819 -膩銀1筝井 859 1209 1514 1819 -膩銀1筝筝絎 859 1209 1514 1819 -膩銀1筝筝絎3筝 859 1209 1514 1819 -膩銀1筝筝絎 859 1209 1514 1819 -膩銀1筝筝絎 859 1209 1514 1819 -膩銀1筝ゃ泣若鴻祉潟帥若水 859 1209 1514 1819 -膩銀1筝茱翠違潟 859 1209 1514 1819 -膩銀1筝筝筝 859 1209 1514 1819 -膩銀1筝羈 859 1209 1514 1819 -膩銀1筝綺篋ゃ帥若 859 1209 1514 1819 -膩銀1筝育罩ｉ√ 859 1209 1514 1819 - -蕭荀伾ぇ絖() 900 1210 1515 1820 -蕭荀伾活綽級え 900 1210 1515 1820 -蕭荀佉罍絮怨羂蕕 900 1210 1515 1820 -蕭荀佉篆俄鎘 900 1210 1515 1820 -蕭荀佉3筝 900 1210 1515 1820 -蕭荀伾罘 900 1210 1515 1820 -蕭荀伾筝 900 1210 1515 1820 -蕭荀伹紙 900 1210 1515 1820 -蕭荀佀ユ羌欠 900 1210 1515 1820 -蕭荀伾紙 900 1210 1515 1820 -蕭荀伻九5筝 900 1210 1515 1820 -蕭荀伻九4筝 900 1210 1515 1820 -蕭荀佉医紫祉潟帥弱 900 1210 1515 1820 -蕭荀佉医紫祉潟帥弱 900 1210 1515 1820 -蕭荀伾臼絮綺 900 1210 1515 1820 -蕭荀伾臼絮罘 900 1210 1515 1820 -蕭荀伾ュ嵯祉潟帥弱 900 1210 1515 1820 -蕭荀伹羌潔絽翫 900 1210 1515 1820 -蕭荀伻賢 900 1210 1515 1820 -蕭荀伻賢紊 900 1210 1515 1820 -蕭荀佀遺峨 900 1210 1515 1820 -蕭荀佀2筝 900 1210 1515 1820 -蕭荀伾井灸梢絮 900 1210 1515 1820 -蕭荀伾井 900 1210 1515 1820 -蕭荀佀井 900 1210 1515 1820 -蕭荀伻絎 900 1210 1515 1820 -蕭荀伻絎3筝 900 1210 1515 1820 -蕭荀伻絎 900 1210 1515 1820 -蕭荀伻絎 900 1210 1515 1820 -蕭荀伹ゃ泣若鴻祉潟帥若水 900 1210 1515 1820 -蕭荀佈タ蕭違潟 900 1210 1515 1820 -蕭荀伹筝筝 900 1210 1515 1820 -蕭荀佀 900 1210 1515 1820 -蕭荀伾篋ゃ帥若 900 1210 1515 1820 -蕭荀佉育罩ｉ√ 900 1210 1515 1820 - -紊у()活綽級え 905 1215 1520 1825 -紊у()蕋罍絮怨羂蕕 905 1215 1520 1825 -紊у()篆俄鎘 905 1215 1520 1825 -紊у()3筝 905 1215 1520 1825 -紊у()綏罘 905 1215 1520 1825 -紊у()筝 905 1215 1520 1825 -紊у()紙 905 1215 1520 1825 -紊у()ユ羌欠 905 1215 1520 1825 -紊у()紊紙 905 1215 1520 1825 -紊у()篋九5筝 905 1215 1520 1825 -紊у()篋九4筝 905 1215 1520 1825 -紊у()医紫祉潟帥弱 905 1215 1520 1825 -紊у()医紫祉潟帥弱 905 1215 1520 1825 -紊у()絮怨綺 905 1215 1520 1825 -紊у()絮怨罘 905 1215 1520 1825 -紊у()ュ嵯祉潟帥弱 905 1215 1520 1825 -紊у()羌潔絽翫 905 1215 1520 1825 -紊у()筝 905 1215 1520 1825 -紊у()筝紊 905 1215 1520 1825 -紊у()羌遺峨 905 1215 1520 1825 -紊у()羌2筝 905 1215 1520 1825 -紊у()井灸梢絮 905 1215 1520 1825 -紊у()井 905 1215 1520 1825 -紊у()井 905 1215 1520 1825 -紊у()筝絎 905 1215 1520 1825 -紊у()筝絎3筝 905 1215 1520 1825 -紊у()筝絎 905 1215 1520 1825 -紊у()筝絎 905 1215 1520 1825 -紊у()ゃ泣若鴻祉潟帥若水 905 1215 1520 1825 -紊у()茱翠違潟 905 1215 1520 1825 -紊у()筝筝 905 1215 1520 1825 -紊у()羈 905 1215 1520 1825 -紊у()綺篋ゃ帥若 905 1215 1520 1825 -紊у()育罩ｉ√ 905 1215 1520 1825 - -活綽級え蕋罍絮怨羂蕕 906 1216 1521 1826 -活綽級え篆俄鎘 906 1216 1521 1826 -活綽級え3筝 906 1216 1521 1826 -活綽級え綏罘 906 1216 1521 1826 -活綽級え筝 906 1216 1521 1826 -活綽級え紙 906 1216 1521 1826 -活綽級えユ羌欠 906 1216 1521 1826 -活綽級え紊紙 906 1216 1521 1826 -活綽級え篋九5筝 906 1216 1521 1826 -活綽級え篋九4筝 906 1216 1521 1826 -活綽級え医紫祉潟帥弱 906 1216 1521 1826 -活綽級え医紫祉潟帥弱 906 1216 1521 1826 -活綽級え絮怨綺 906 1216 1521 1826 -活綽級え絮怨罘 906 1216 1521 1826 -活綽級えュ嵯祉潟帥弱 906 1216 1521 1826 -活綽級え羌潔絽翫 906 1216 1521 1826 -活綽級え筝 906 1216 1521 1826 -活綽級え筝紊 906 1216 1521 1826 -活綽級え羌遺峨 906 1216 1521 1826 -活綽級え羌2筝 906 1216 1521 1826 -活綽級え井灸梢絮 906 1216 1521 1826 -活綽級え井 906 1216 1521 1826 -活綽級え井 906 1216 1521 1826 -活綽級え筝絎 906 1216 1521 1826 -活綽級え筝絎3筝 906 1216 1521 1826 -活綽級え筝絎 906 1216 1521 1826 -活綽級え筝絎 906 1216 1521 1826 -活綽級えゃ泣若鴻祉潟帥若水 906 1216 1521 1826 -活綽級え茱翠違潟 906 1216 1521 1826 -活綽級え筝筝 906 1216 1521 1826 -活綽級え羈 906 1216 1521 1826 -活綽級え綺篋ゃ帥若 906 1216 1521 1826 -活綽級え育罩ｉ√ 906 1216 1521 1826 - -蕋罍絮怨羂蕕篆俄鎘 910 1220 1525 1830 -蕋罍絮怨羂蕕3筝 910 1220 1525 1830 -蕋罍絮怨羂蕕綏罘 910 1220 1525 1830 -蕋罍絮怨羂蕕筝 910 1220 1525 1830 -蕋罍絮怨羂蕕紙 910 1220 1525 1830 -蕋罍絮怨羂蕕ユ羌欠 910 1220 1525 1830 -蕋罍絮怨羂蕕紊紙 910 1220 1525 1830 -蕋罍絮怨羂蕕篋九5筝 910 1220 1525 1830 -蕋罍絮怨羂蕕篋九4筝 910 1220 1525 1830 -蕋罍絮怨羂蕕医紫祉潟帥弱 910 1220 1525 1830 -蕋罍絮怨羂蕕医紫祉潟帥弱 910 1220 1525 1830 -蕋罍絮怨羂蕕絮怨綺 910 1220 1525 1830 -蕋罍絮怨羂蕕絮怨罘 910 1220 1525 1830 -蕋罍絮怨羂蕕ュ嵯祉潟帥弱 910 1220 1525 1830 -蕋罍絮怨羂蕕羌潔絽翫 910 1220 1525 1830 -蕋罍絮怨羂蕕筝 910 1220 1525 1830 -蕋罍絮怨羂蕕筝紊 910 1220 1525 1830 -蕋罍絮怨羂蕕羌遺峨 910 1220 1525 1830 -蕋罍絮怨羂蕕羌2筝 910 1220 1525 1830 -蕋罍絮怨羂蕕井灸梢絮 910 1220 1525 1830 -蕋罍絮怨羂蕕井 910 1220 1525 1830 -蕋罍絮怨羂蕕井 910 1220 1525 1830 -蕋罍絮怨羂蕕筝絎 910 1220 1525 1830 -蕋罍絮怨羂蕕筝絎3筝 910 1220 1525 1830 -蕋罍絮怨羂蕕筝絎 910 1220 1525 1830 -蕋罍絮怨羂蕕筝絎 910 1220 1525 1830 -蕋罍絮怨羂蕕ゃ泣若鴻祉潟帥若水 910 1220 1525 1830 -蕋罍絮怨羂蕕茱翠違潟 910 1220 1525 1830 -蕋罍絮怨羂蕕1筝 910 1220 1525 1830 -蕋罍絮怨羂蕕羈 910 1220 1525 1830 -蕋罍絮怨羂蕕綺篋ゃ帥若 910 1220 1525 1830 -蕋罍絮怨羂蕕育罩ｉ√ 910 1220 1525 1830 - -篆俄鎘3筝 911 1221 1526 1831 -篆俄鎘綏罘 911 1221 1526 1831 -篆俄鎘筝 911 1221 1526 1831 -篆俄鎘紙 911 1221 1526 1831 -篆俄鎘ユ羌欠 911 1221 1526 1831 -篆俄鎘紊紙 911 1221 1526 1831 -篆俄鎘篋九5筝 911 1221 1526 1831 -篆俄鎘篋九4筝 911 1221 1526 1831 -篆俄鎘医紫祉潟帥弱 911 1221 1526 1831 -篆俄鎘医紫祉潟帥弱 911 1221 1526 1831 -篆俄鎘絮怨綺 911 1221 1526 1831 -篆俄鎘絮怨罘 911 1221 1526 1831 -篆俄鎘ュ嵯祉潟帥弱 911 1221 1526 1831 -篆俄鎘羌潔絽翫 911 1221 1526 1831 -篆俄鎘筝 911 1221 1526 1831 -篆俄鎘筝紊 911 1221 1526 1831 -篆俄鎘羌遺峨 911 1221 1526 1831 -篆俄鎘羌2筝 911 1221 1526 1831 -篆俄鎘井灸梢絮 911 1221 1526 1831 -篆俄鎘井 911 1221 1526 1831 -篆俄鎘井 911 1221 1526 1831 -篆俄鎘筝絎 911 1221 1526 1831 -篆俄鎘筝絎3筝 911 1221 1526 1831 -篆俄鎘筝絎 911 1221 1526 1831 -篆俄鎘筝絎 911 1221 1526 1831 -篆俄鎘ゃ泣若鴻祉潟帥若水 911 1221 1526 1831 -篆俄鎘茱翠違潟 911 1221 1526 1831 -篆俄鎘1筝 911 1221 1526 1831 -篆俄鎘羈 911 1221 1526 1831 -篆俄鎘綺篋ゃ帥若 911 1221 1526 1831 -篆俄鎘育罩ｉ√ 911 1221 1526 18313筝3筝 911 1221 1526 1831 -3筝綏罘 911 1221 1526 1831 -3筝筝 911 1221 1526 1831 -3筝紙 911 1221 1526 1831 -3筝ユ羌欠 911 1221 1526 1831 -3筝紊紙 911 1221 1526 1831 -3筝篋九5筝 911 1221 1526 1831 -3筝篋九4筝 911 1221 1526 1831 -3筝医紫祉潟帥弱 911 1221 1526 1831 -3筝医紫祉潟帥弱 911 1221 1526 1831 -3筝絮怨綺 911 1221 1526 1831 -3筝絮怨罘 911 1221 1526 1831 -3筝ュ嵯祉潟帥弱 911 1221 1526 1831 -3筝羌潔絽翫 911 1221 1526 1831 -3筝筝 911 1221 1526 1831 -3筝筝紊 911 1221 1526 1831 -3筝羌遺峨 911 1221 1526 1831 -3筝羌2筝 911 1221 1526 1831 -3筝井灸梢絮 911 1221 1526 1831 -3筝井 911 1221 1526 1831 -3筝井 911 1221 1526 1831 -3筝筝絎 911 1221 1526 1831 -3筝筝絎3筝 911 1221 1526 1831 -3筝筝絎 911 1221 1526 1831 -3筝筝絎 911 1221 1526 1831 -3筝ゃ泣若鴻祉潟帥若水 911 1221 1526 1831 -3筝茱翠違潟 911 1221 1526 1831 -3筝1筝 911 1221 1526 1831 -3筝羈 911 1221 1526 1831 -3筝綺篋ゃ帥若 911 1221 1526 1831 -3筝育罩ｉ√ 911 1221 1526 1831 - -綏罘筝 912 1222 1527 1832 -綏罘紙 912 1222 1527 1832 -綏罘ユ羌欠 912 1222 1527 1832 -綏罘紊紙 912 1222 1527 1832 -綏罘篋九5筝 912 1222 1527 1832 -綏罘篋九4筝 912 1222 1527 1832 -綏罘医紫祉潟帥弱 912 1222 1527 1832 -綏罘医紫祉潟帥弱 912 1222 1527 1832 -綏罘絮怨綺 912 1222 1527 1832 -綏罘絮怨罘 912 1222 1527 1832 -綏罘ュ嵯祉潟帥弱 912 1222 1527 1832 -綏罘羌潔絽翫 912 1222 1527 1832 -綏罘筝 912 1222 1527 1832 -綏罘筝紊 912 1222 1527 1832 -綏罘羌遺峨 912 1222 1527 1832 -綏罘羌2筝 912 1222 1527 1832 -綏罘井灸梢絮 912 1222 1527 1832 -綏罘井 912 1222 1527 1832 -綏罘井 912 1222 1527 1832 -綏罘筝絎 912 1222 1527 1832 -綏罘筝絎3筝 912 1222 1527 1832 -綏罘筝絎 912 1222 1527 1832 -綏罘筝絎 912 1222 1527 1832 -綏罘ゃ泣若鴻祉潟帥若水 912 1222 1527 1832 -綏罘茱翠違潟 912 1222 1527 1832 -綏罘1筝 912 1222 1527 1832 -綏罘羈 912 1222 1527 1832 -綏罘綺篋ゃ帥若 912 1222 1527 1832 -綏罘育罩ｉ√ 912 1222 1527 1832 - -筝紙 913 1223 1528 1833 -筝ユ羌欠 913 1223 1528 1833 -筝紊紙 913 1223 1528 1833 -筝篋九5筝 913 1223 1528 1833 -筝篋九4筝 913 1223 1528 1833 -筝医紫祉潟帥弱 913 1223 1528 1833 -筝医紫祉潟帥弱 913 1223 1528 1833 -筝絮怨綺 913 1223 1528 1833 -筝絮怨罘 913 1223 1528 1833 -筝ュ嵯祉潟帥弱 913 1223 1528 1833 -筝羌潔絽翫 913 1223 1528 1833 -筝筝 913 1223 1528 1833 -筝筝紊 913 1223 1528 1833 -筝羌遺峨 913 1223 1528 1833 -筝羌2筝 913 1223 1528 1833 -筝井灸梢絮 913 1223 1528 1833 -筝井 913 1223 1528 1833 -筝井 913 1223 1528 1833 -筝筝絎 913 1223 1528 1833 -筝筝絎3筝 913 1223 1528 1833 -筝筝絎 913 1223 1528 1833 -筝筝絎 913 1223 1528 1833 -筝ゃ泣若鴻祉潟帥若水 913 1223 1528 1833 -筝茱翠違潟 913 1223 1528 1833 -筝1筝 913 1223 1528 1833 -筝羈 913 1223 1528 1833 -筝綺篋ゃ帥若 913 1223 1528 1833 -筝育罩ｉ√ 913 1223 1528 1833 - -紙ユ羌欠 917 1227 1532 1837 -紙紊紙 917 1227 1532 1837 -紙篋九5筝 917 1227 1532 1837 -紙篋九4筝 917 1227 1532 1837 -紙医紫祉潟帥弱 917 1227 1532 1837 -紙医紫祉潟帥弱 917 1227 1532 1837 -紙絮怨綺 917 1227 1532 1837 -紙絮怨罘 917 1227 1532 1837 -紙ュ嵯祉潟帥弱 917 1227 1532 1837 -紙羌潔絽翫 917 1227 1532 1837 -紙筝 917 1227 1532 1837 -紙筝紊 917 1227 1532 1837 -紙羌遺峨 917 1227 1532 1837 -紙羌2筝 917 1227 1532 1837 -紙井灸梢絮 917 1227 1532 1837 -紙井 917 1227 1532 1837 -紙井 917 1227 1532 1837 -紙筝絎 917 1227 1532 1837 -紙筝絎3筝 917 1227 1532 1837 -紙筝絎 917 1227 1532 1837 -紙筝絎 917 1227 1532 1837 -紙ゃ泣若鴻祉潟帥若水 917 1227 1532 1837 -紙茱翠違潟 917 1227 1532 1837 -紙1筝 917 1227 1532 1837 -紙羈 917 1227 1532 1837 -紙綺篋ゃ帥若 917 1227 1532 1837 -紙育罩ｉ√ 917 1227 1532 1837 - -ユ羌欠√紙 919 1229 1534 1839 -ユ羌欠≫九5筝 919 1229 1534 1839 -ユ羌欠≫九4筝 919 1229 1534 1839 -ユ羌欠∫医紫祉潟帥弱 919 1229 1534 1839 -ユ羌欠∫医紫祉潟帥弱 919 1229 1534 1839 -ユ羌欠√臼絮綺 919 1229 1534 1839 -ユ羌欠√臼絮罘 919 1229 1534 1839 -ユ羌欠√ュ嵯祉潟帥弱 919 1229 1534 1839 -ユ羌欠≪羌潔絽翫 919 1229 1534 1839 -ユ羌欠≫賢 919 1229 1534 1839 -ユ羌欠≫賢紊 919 1229 1534 1839 -ユ羌欠∽遺峨 919 1229 1534 1839 -ユ羌欠∽2筝 919 1229 1534 1839 -ユ羌欠√井灸梢絮 919 1229 1534 1839 -ユ羌欠√井 919 1229 1534 1839 -ユ羌欠∽井 919 1229 1534 1839 -ユ羌欠≫絎 919 1229 1534 1839 -ユ羌欠≫絎3筝 919 1229 1534 1839 -ユ羌欠≫絎 919 1229 1534 1839 -ユ羌欠≫絎 919 1229 1534 1839 -ユ羌欠≪ゃ泣若鴻祉潟帥若水 919 1229 1534 1839 -ユ羌欠∵タ蕭違潟 919 1229 1534 1839 -ユ羌欠≪1筝 919 1229 1534 1839 -ユ羌欠∽ 919 1229 1534 1839 -ユ羌欠√篋ゃ帥若 919 1229 1534 1839 -ユ羌欠∫育罩ｉ√ 919 1229 1534 1839 - -紊紙篋九5筝 922 1232 1537 1842 -紊紙篋九4筝 922 1232 1537 1842 -紊紙医紫祉潟帥弱 922 1232 1537 1842 -紊紙医紫祉潟帥弱 922 1232 1537 1842 -紊紙絮怨綺 922 1232 1537 1842 -紊紙絮怨罘 922 1232 1537 1842 -紊紙ュ嵯祉潟帥弱 922 1232 1537 1842 -紊紙羌潔絽翫 922 1232 1537 1842 -紊紙筝 922 1232 1537 1842 -紊紙筝紊 922 1232 1537 1842 -紊紙羌遺峨 922 1232 1537 1842 -紊紙羌2筝 922 1232 1537 1842 -紊紙井灸梢絮 922 1232 1537 1842 -紊紙井 922 1232 1537 1842 -紊紙井 922 1232 1537 1842 -紊紙筝絎 922 1232 1537 1842 -紊紙筝絎3筝 922 1232 1537 1842 -紊紙筝絎 922 1232 1537 1842 -紊紙筝絎 922 1232 1537 1842 -紊紙ゃ泣若鴻祉潟帥若水 922 1232 1537 1842 -紊紙茱翠違潟 922 1232 1537 1842 -紊紙1筝 922 1232 1537 1842 -紊紙羈 922 1232 1537 1842 -紊紙綺篋ゃ帥若 922 1232 1537 1842 -紊紙育罩ｉ√ 922 1232 1537 1842 - -篋九5筝篋九4筝 923 1233 1538 1843 -篋九5筝医紫祉潟帥弱 923 1233 1538 1843 -篋九5筝医紫祉潟帥弱 923 1233 1538 1843 -篋九5筝絮怨綺 923 1233 1538 1843 -篋九5筝絮怨罘 923 1233 1538 1843 -篋九5筝ュ嵯祉潟帥弱 923 1233 1538 1843 -篋九5筝羌潔絽翫 923 1233 1538 1843 -篋九5筝筝 923 1233 1538 1843 -篋九5筝筝紊 923 1233 1538 1843 -篋九5筝羌遺峨 923 1233 1538 1843 -篋九5筝羌2筝 923 1233 1538 1843 -篋九5筝井灸梢絮 923 1233 1538 1843 -篋九5筝井 923 1233 1538 1843 -篋九5筝井 923 1233 1538 1843 -篋九5筝筝絎 923 1233 1538 1843 -篋九5筝筝絎3筝 923 1233 1538 1843 -篋九5筝筝絎 923 1233 1538 1843 -篋九5筝筝絎 923 1233 1538 1843 -篋九5筝ゃ泣若鴻祉潟帥若水 923 1233 1538 1843 -篋九5筝茱翠違潟 923 1233 1538 1843 -篋九5筝1筝 923 1233 1538 1843 -篋九5筝羈 923 1233 1538 1843 -篋九5筝綺篋ゃ帥若 923 1233 1538 1843 -篋九5筝育罩ｉ√ 923 1233 1538 1843 - -篋九4筝医紫祉潟帥弱 924 1234 1539 1844 -篋九4筝医紫祉潟帥弱 924 1234 1539 1844 -篋九4筝絮怨綺 924 1234 1539 1844 -篋九4筝絮怨罘 924 1234 1539 1844 -篋九4筝ュ嵯祉潟帥弱 924 1234 1539 1844 -篋九4筝羌潔絽翫 924 1234 1539 1844 -篋九4筝筝 924 1234 1539 1844 -篋九4筝筝紊 924 1234 1539 1844 -篋九4筝羌遺峨 924 1234 1539 1844 -篋九4筝羌2筝 924 1234 1539 1844 -篋九4筝井灸梢絮 924 1234 1539 1844 -篋九4筝井 924 1234 1539 1844 -篋九4筝井 924 1234 1539 1844 -篋九4筝筝絎 924 1234 1539 1844 -篋九4筝筝絎3筝 924 1234 1539 1844 -篋九4筝筝絎 924 1234 1539 1844 -篋九4筝筝絎 924 1234 1539 1844 -篋九4筝ゃ泣若鴻祉潟帥若水 924 1234 1539 1844 -篋九4筝茱翠違潟 924 1234 1539 1844 -篋九4筝1筝 924 1234 1539 1844 -篋九4筝羈 924 1234 1539 1844 -篋九4筝綺篋ゃ帥若 924 1234 1539 1844 -篋九4筝育罩ｉ√ 924 1234 1539 1844 - -医紫祉潟帥弱医紫祉潟帥弱 925 1235 1540 1845 -医紫祉潟帥弱絮怨綺 925 1235 1540 1845 -医紫祉潟帥弱絮怨罘 925 1235 1540 1845 -医紫祉潟帥弱ュ嵯祉潟帥弱 925 1235 1540 1845 -医紫祉潟帥弱羌潔絽翫 925 1235 1540 1845 -医紫祉潟帥弱筝 925 1235 1540 1845 -医紫祉潟帥弱筝紊 925 1235 1540 1845 -医紫祉潟帥弱羌遺峨 925 1235 1540 1845 -医紫祉潟帥弱羌2筝 925 1235 1540 1845 -医紫祉潟帥弱井灸梢絮 925 1235 1540 1845 -医紫祉潟帥弱井 925 1235 1540 1845 -医紫祉潟帥弱井 925 1235 1540 1845 -医紫祉潟帥弱筝絎 925 1235 1540 1845 -医紫祉潟帥弱筝絎3筝 925 1235 1540 1845 -医紫祉潟帥弱筝絎 925 1235 1540 1845 -医紫祉潟帥弱筝絎 925 1235 1540 1845 -医紫祉潟帥弱ゃ泣若鴻祉潟帥若水 925 1235 1540 1845 -医紫祉潟帥弱茱翠違潟 925 1235 1540 1845 -医紫祉潟帥弱1筝 925 1235 1540 1845 -医紫祉潟帥弱羈 925 1235 1540 1845 -医紫祉潟帥弱綺篋ゃ帥若 925 1235 1540 1845 -医紫祉潟帥弱育罩ｉ√ 925 1235 1540 1845 - -医紫祉潟帥弱ｅ臼絮綺 926 1236 1541 1846 -医紫祉潟帥弱ｅ臼絮罘 926 1236 1541 1846 -医紫祉潟帥弱ｅュ嵯祉潟帥弱 926 1236 1541 1846 -医紫祉潟帥弱ｃ羌潔絽翫 926 1236 1541 1846 -医紫祉潟帥弱ｄ賢 926 1236 1541 1846 -医紫祉潟帥弱ｄ賢紊 926 1236 1541 1846 -医紫祉潟帥弱ｆ遺峨 926 1236 1541 1846 -医紫祉潟帥弱ｆ2筝 926 1236 1541 1846 -医紫祉潟帥弱ｅ井灸梢絮 926 1236 1541 1846 -医紫祉潟帥弱ｅ井 926 1236 1541 1846 -医紫祉潟帥弱ｆ井 926 1236 1541 1846 -医紫祉潟帥弱ｄ絎 926 1236 1541 1846 -医紫祉潟帥弱ｄ絎3筝 926 1236 1541 1846 -医紫祉潟帥弱ｄ絎 926 1236 1541 1846 -医紫祉潟帥弱ｄ絎 926 1236 1541 1846 -医紫祉潟帥弱ｃゃ泣若鴻祉潟帥若水 926 1236 1541 1846 -医紫祉潟帥弱ｈタ蕭違潟 926 1236 1541 1846 -医紫祉潟帥弱ｃ1筝 926 1236 1541 1846 -医紫祉潟帥弱ｆ 926 1236 1541 1846 -医紫祉潟帥弱ｅ篋ゃ帥若 926 1236 1541 1846 -医紫祉潟帥弱ｉ育罩ｉ√ 926 1236 1541 1846 - -絮怨綺絮怨罘 928 1238 1543 1848 -絮怨綺ュ嵯祉潟帥弱 928 1238 1543 1848 -絮怨綺羌潔絽翫 928 1238 1543 1848 -絮怨綺筝 928 1238 1543 1848 -絮怨綺筝紊 928 1238 1543 1848 -絮怨綺羌遺峨 928 1238 1543 1848 -絮怨綺羌2筝 928 1238 1543 1848 -絮怨綺井灸梢絮 928 1238 1543 1848 -絮怨綺井 928 1238 1543 1848 -絮怨綺井 928 1238 1543 1848 -絮怨綺筝絎 928 1238 1543 1848 -絮怨綺筝絎3筝 928 1238 1543 1848 -絮怨綺筝絎 928 1238 1543 1848 -絮怨綺筝絎 928 1238 1543 1848 -絮怨綺ゃ泣若鴻祉潟帥若水 928 1238 1543 1848 -絮怨綺茱翠違潟 928 1238 1543 1848 -絮怨綺1筝 928 1238 1543 1848 -絮怨綺羈 928 1238 1543 1848 -絮怨綺綺篋ゃ帥若 928 1238 1543 1848 -絮怨綺育罩ｉ√ 928 1238 1543 1848 - -絮怨罘ュ嵯祉潟帥弱 930 1240 1545 1850 -絮怨罘羌潔絽翫 930 1240 1545 1850 -絮怨罘筝 930 1240 1545 1850 -絮怨罘筝紊 930 1240 1545 1850 -絮怨罘羌遺峨 930 1240 1545 1850 -絮怨罘羌2筝 930 1240 1545 1850 -絮怨罘井灸梢絮 930 1240 1545 1850 -絮怨罘井 930 1240 1545 1850 -絮怨罘井 930 1240 1545 1850 -絮怨罘筝絎 930 1240 1545 1850 -絮怨罘筝絎3筝 930 1240 1545 1850 -絮怨罘筝絎 930 1240 1545 1850 -絮怨罘筝絎 930 1240 1545 1850 -絮怨罘ゃ泣若鴻祉潟帥若水 930 1240 1545 1850 -絮怨罘茱翠違潟 930 1240 1545 1850 -絮怨罘1筝 930 1240 1545 1850 -絮怨罘羈 930 1240 1545 1850 -絮怨罘綺篋ゃ帥若 930 1240 1545 1850 -絮怨罘育罩ｉ√ 930 1240 1545 1850 - -ュ嵯祉潟帥弱羌潔絽翫 932 1242 1547 1852 -ュ嵯祉潟帥弱筝 932 1242 1547 1852 -ュ嵯祉潟帥弱筝紊 932 1242 1547 1852 -ュ嵯祉潟帥弱羌遺峨 932 1242 1547 1852 -ュ嵯祉潟帥弱羌2筝 932 1242 1547 1852 -ュ嵯祉潟帥弱井灸梢絮 932 1242 1547 1852 -ュ嵯祉潟帥弱井 932 1242 1547 1852 -ュ嵯祉潟帥弱井 932 1242 1547 1852 -ュ嵯祉潟帥弱筝絎 932 1242 1547 1852 -ュ嵯祉潟帥弱筝絎3筝 932 1242 1547 1852 -ュ嵯祉潟帥弱筝絎 932 1242 1547 1852 -ュ嵯祉潟帥弱筝絎 932 1242 1547 1852 -ュ嵯祉潟帥弱ゃ泣若鴻祉潟帥若水 932 1242 1547 1852 -ュ嵯祉潟帥弱茱翠違潟 932 1242 1547 1852 -ュ嵯祉潟帥弱1筝 932 1242 1547 1852 -ュ嵯祉潟帥弱羈 932 1242 1547 1852 -ュ嵯祉潟帥弱綺篋ゃ帥若 932 1242 1547 1852 -ュ嵯祉潟帥弱育罩ｉ√ 932 1242 1547 1852 - -羌潔絽翫筝 933 1243 1548 1853 -羌潔絽翫筝紊 933 1243 1548 1853 -羌潔絽翫羌遺峨 933 1243 1548 1853 -羌潔絽翫羌2筝 933 1243 1548 1853 -羌潔絽翫井灸梢絮 933 1243 1548 1853 -羌潔絽翫井 933 1243 1548 1853 -羌潔絽翫井 933 1243 1548 1853 -羌潔絽翫筝絎 933 1243 1548 1853 -羌潔絽翫筝絎3筝 933 1243 1548 1853 -羌潔絽翫筝絎 933 1243 1548 1853 -羌潔絽翫筝絎 933 1243 1548 1853 -羌潔絽翫ゃ泣若鴻祉潟帥若水 933 1243 1548 1853 -羌潔絽翫茱翠違潟 933 1243 1548 1853 -羌潔絽翫1筝 933 1243 1548 1853 -羌潔絽翫羈 933 1243 1548 1853 -羌潔絽翫綺篋ゃ帥若 933 1243 1548 1853 -羌潔絽翫育罩ｉ√ 933 1243 1548 1853 - -筝坂賢紊 935 1245 1550 1855 -筝堺遺峨 935 1245 1550 1855 -筝堺2筝 935 1245 1550 1855 -筝阪井灸梢絮 935 1245 1550 1855 -筝阪井 935 1245 1550 1855 -筝堺井 935 1245 1550 1855 -筝坂絎 935 1245 1550 1855 -筝坂絎3筝 935 1245 1550 1855 -筝坂絎 935 1245 1550 1855 -筝坂絎 935 1245 1550 1855 -筝冴ゃ泣若鴻祉潟帥若水 935 1245 1550 1855 -筝肴タ蕭違潟 935 1245 1550 1855 -筝冴1筝 935 1245 1550 1855 -筝堺 935 1245 1550 1855 -筝阪篋ゃ帥若 935 1245 1550 1855 -筝咲育罩ｉ√ 935 1245 1550 1855 - -筝紊羌遺峨 937 1247 1552 1857 -筝紊羌2筝 937 1247 1552 1857 -筝紊井灸梢絮 937 1247 1552 1857 -筝紊井 937 1247 1552 1857 -筝紊井 937 1247 1552 1857 -筝紊筝絎 937 1247 1552 1857 -筝紊筝絎3筝 937 1247 1552 1857 -筝紊筝絎 937 1247 1552 1857 -筝紊筝絎 937 1247 1552 1857 -筝紊ゃ泣若鴻祉潟帥若水 937 1247 1552 1857 -筝紊茱翠違潟 937 1247 1552 1857 -筝紊1筝 937 1247 1552 1857 -筝紊羈 937 1247 1552 1857 -筝紊綺篋ゃ帥若 937 1247 1552 1857 -筝紊育罩ｉ√ 937 1247 1552 1857 - -羌遺峨羌2筝 938 1248 1553 1858 -羌遺峨井灸梢絮 938 1248 1553 1858 -羌遺峨井 938 1248 1553 1858 -羌遺峨井 938 1248 1553 1858 -羌遺峨筝絎 938 1248 1553 1858 -羌遺峨筝絎3筝 938 1248 1553 1858 -羌遺峨筝絎 938 1248 1553 1858 -羌遺峨筝絎 938 1248 1553 1858 -羌遺峨ゃ泣若鴻祉潟帥若水 938 1248 1553 1858 -羌遺峨茱翠違潟 938 1248 1553 1858 -羌遺峨1筝 938 1248 1553 1858 -羌遺峨羈 938 1248 1553 1858 -羌遺峨綺篋ゃ帥若 938 1248 1553 1858 -羌遺峨育罩ｉ√ 938 1248 1553 1858 - -羌2筝井灸梢絮 939 1249 1554 1859 -羌2筝井 939 1249 1554 1859 -羌2筝井 939 1249 1554 1859 -羌2筝筝絎 939 1249 1554 1859 -羌2筝筝絎3筝 939 1249 1554 1859 -羌2筝筝絎 939 1249 1554 1859 -羌2筝筝絎 939 1249 1554 1859 -羌2筝ゃ泣若鴻祉潟帥若水 939 1249 1554 1859 -羌2筝茱翠違潟 939 1249 1554 1859 -羌2筝1筝 939 1249 1554 1859 -羌2筝羈 939 1249 1554 1859 -羌2筝綺篋ゃ帥若 939 1249 1554 1859 -羌2筝育罩ｉ√ 939 1249 1554 1859 - -井灸梢絮井 941 1251 1556 1901 -井灸梢絮井 941 1251 1556 1901 -井灸梢絮筝絎 941 1251 1556 1901 -井灸梢絮筝絎3筝 941 1251 1556 1901 -井灸梢絮筝絎 941 1251 1556 1901 -井灸梢絮筝絎 941 1251 1556 1901 -井灸梢絮ゃ泣若鴻祉潟帥若水 941 1251 1556 1901 -井灸梢絮茱翠違潟 941 1251 1556 1901 -井灸梢絮1筝 941 1251 1556 1901 -井灸梢絮羈 941 1251 1556 1901 -井灸梢絮綺篋ゃ帥若 941 1251 1556 1901 -井灸梢絮育罩ｉ√ 941 1251 1556 1901 - -井井 942 1252 1557 1902 -井筝絎 942 1252 1557 1902 -井筝絎3筝 942 1252 1557 1902 -井筝絎 942 1252 1557 1902 -井筝絎 942 1252 1557 1902 -井ゃ泣若鴻祉潟帥若水 942 1252 1557 1902 -井茱翠違潟 942 1252 1557 1902 -井1筝 942 1252 1557 1902 -井羈 942 1252 1557 1902 -井綺篋ゃ帥若 942 1252 1557 1902 -井育罩ｉ√ 942 1252 1557 1902 - -井筝絎 943 1253 1558 1903 -井筝絎3筝 943 1253 1558 1903 -井筝絎 943 1253 1558 1903 -井筝絎 943 1253 1558 1903 -井ゃ泣若鴻祉潟帥若水 943 1253 1558 1903 -井茱翠違潟 943 1253 1558 1903 -井1筝 943 1253 1558 1903 -井羈 943 1253 1558 1903 -井綺篋ゃ帥若 943 1253 1558 1903 -井育罩ｉ√ 943 1253 1558 1903 - -筝絎筝絎3筝 947 1257 1602 1907 -筝絎筝絎 947 1257 1602 1907 -筝絎筝絎 947 1257 1602 1907 -筝絎ゃ泣若鴻祉潟帥若水 947 1257 1602 1907 -筝絎茱翠違潟 947 1257 1602 1907 -筝絎1筝 947 1257 1602 1907 -筝絎羈 947 1257 1602 1907 -筝絎綺篋ゃ帥若 947 1257 1602 1907 -筝絎育罩ｉ√ 947 1257 1602 1907 - -筝絎3筝筝絎 948 1258 1603 1908 -筝絎3筝筝絎 948 1258 1603 1908 -筝絎3筝ゃ泣若鴻祉潟帥若水 948 1258 1603 1908 -筝絎3筝茱翠違潟 948 1258 1603 1908 -筝絎3筝1筝 948 1258 1603 1908 -筝絎3筝羈 948 1258 1603 1908 -筝絎3筝綺篋ゃ帥若 948 1258 1603 1908 -筝絎3筝育罩ｉ√ 948 1258 1603 1908 - -筝絎坂絎 949 1259 1604 1909 -筝絎冴ゃ泣若鴻祉潟帥若水 949 1259 1604 1909 -筝絎肴タ蕭違潟 949 1259 1604 1909 -筝絎冴1筝 949 1259 1604 1909 -筝絎堺 949 1259 1604 1909 -筝絎阪篋ゃ帥若 949 1259 1604 1909 -筝絎咲育罩ｉ√ 949 1259 1604 1909 - -筝絎冴ゃ泣若鴻祉潟帥若水 950 1300 1605 1910 -筝絎肴タ蕭違潟 950 1300 1605 1910 -筝絎冴1筝 950 1300 1605 1910 -筝絎堺 950 1300 1605 1910 -筝絎阪篋ゃ帥若 950 1300 1605 1910 -筝絎咲育罩ｉ√ 950 1300 1605 1910 - -ゃ泣若鴻祉潟帥若水茱翠違潟 951 1301 1606 1911 -ゃ泣若鴻祉潟帥若水1筝 951 1301 1606 1911 -ゃ泣若鴻祉潟帥若水羈 951 1301 1606 1911 -ゃ泣若鴻祉潟帥若水綺篋ゃ帥若 951 1301 1606 1911 -ゃ泣若鴻祉潟帥若水育罩ｉ√ 951 1301 1606 1911 - -茱翠違潟1筝 952 1302 1607 1912 -茱翠違潟羈 952 1302 1607 1912 -茱翠違潟綺篋ゃ帥若 952 1302 1607 1912 -茱翠違潟育罩ｉ√ 952 1302 1607 1912 - -1筝羈 954 1304 1609 1914 -1筝綺篋ゃ帥若 954 1304 1609 1914 -1筝育罩ｉ√ 954 1304 1609 1914 - -羈阪篋ゃ帥若 954 1304 1609 1914 -羈咲育罩ｉ√ 954 1304 1609 1914 - -綺篋ゃ帥若育罩ｉ√ 955 1305 1610 1915 - -ゆ蕭 725 1055 1410 1740 -ゆ絮怨合√ 725 1055 1410 1740 -ゆ銀4筝 725 1055 1410 1740 -ゆ娯腴倶翫 725 1055 1410 1740 -ゆ娯腴倶頑 725 1055 1410 1740 -ゆ銀2筝 725 1055 1410 1740 -ゆ亥2筝 725 1055 1410 1740 -ゆ亥2筝 725 1055 1410 1740 -ゆュ1筝 725 1055 1410 1740 -ゆ 725 1055 1410 1740 -ゆ篏 725 1055 1410 1740 -ゆ銀1筝 725 1055 1410 1740 -ゆ腮臀峨 725 1055 1410 1740 -ゆ亥1筝 725 1055 1410 1740 -ゆ祉潟帥弱 725 1055 1410 1740 -ゆ絲睡 725 1055 1410 1740 -ゆ筝3筝 725 1055 1410 1740 -ゆ筝肴タ 725 1055 1410 1740 -ゆ絽綵号茱 725 1055 1410 1740 -ゆ絮怨肴タ 725 1055 1410 1740 -ゆ羝 725 1055 1410 1740 -ゆョ合 725 1055 1410 1740 -ゆ医紫祉潟帥弱 725 1055 1410 1740 -ゆ篋九灸梢絮 725 1055 1410 1740 -ゆ帥1筝 725 1055 1410 1740 -ゆ帥2筝 725 1055 1410 1740 -ゆ阪 725 1055 1410 1740 -ゆユ羌欠 725 1055 1410 1740 -ゆ紊у3筝 725 1055 1410 1740 -ゆ紊у4筝 725 1055 1410 1740 -ゆ咲 725 1055 1410 1740 -ゆ絨 725 1055 1410 1740 -ゆ亥 725 1055 1410 1740 -ゆ莇薈 725 1055 1410 1740 -ゆ莇膩 725 1055 1410 1740 -ゆ紊腑 725 1055 1410 1740 -ゆ恰 725 1055 1410 1740 -ゆ罅 725 1055 1410 1740 -ゆ≦臼 725 1055 1410 1740 -ゆ筝 725 1055 1410 1740 -ゆ絮掩ク 725 1055 1410 1740 -ゆ羝羈 725 1055 1410 1740 - -蕭絮怨合√ 727 1057 1412 1742 -蕭銀4筝 727 1057 1412 1742 -蕭娯腴倶翫 727 1057 1412 1742 -蕭娯腴倶頑 727 1057 1412 1742 -蕭銀2筝 727 1057 1412 1742 -蕭亥2筝 727 1057 1412 1742 -蕭亥2筝 727 1057 1412 1742 -蕭ュ1筝 727 1057 1412 1742 -蕭 727 1057 1412 1742 -蕭篏 727 1057 1412 1742 -蕭銀1筝 727 1057 1412 1742 -蕭腮臀峨 727 1057 1412 1742 -蕭亥1筝 727 1057 1412 1742 -蕭祉潟帥弱 727 1057 1412 1742 -蕭絲睡 727 1057 1412 1742 -蕭筝3筝 727 1057 1412 1742 -蕭筝肴タ 727 1057 1412 1742 -蕭絽綵号茱 727 1057 1412 1742 -蕭絮怨肴タ 727 1057 1412 1742 -蕭羝 727 1057 1412 1742 -蕭ョ合 727 1057 1412 1742 -蕭医紫祉潟帥弱 727 1057 1412 1742 -蕭篋九灸梢絮 727 1057 1412 1742 -蕭帥1筝 727 1057 1412 1742 -蕭帥2筝 727 1057 1412 1742 -蕭阪 727 1057 1412 1742 -蕭ユ羌欠 727 1057 1412 1742 -蕭紊у3筝 727 1057 1412 1742 -蕭紊у4筝 727 1057 1412 1742 -蕭咲 727 1057 1412 1742 -蕭絨 727 1057 1412 1742 -蕭亥 727 1057 1412 1742 -蕭莇薈 727 1057 1412 1742 -蕭莇膩 727 1057 1412 1742 -蕭紊腑 727 1057 1412 1742 -蕭恰 727 1057 1412 1742 -蕭罅 727 1057 1412 1742 -蕭≦臼 727 1057 1412 1742 -蕭筝 727 1057 1412 1742 -蕭絮掩ク 727 1057 1412 1742 -蕭羝羈 727 1057 1412 1742 - -絮怨合√銀4筝 728 1058 1413 1743 -絮怨合√娯腴倶翫 728 1058 1413 1743 -絮怨合√娯腴倶頑 728 1058 1413 1743 -絮怨合√銀2筝 728 1058 1413 1743 -絮怨合√亥2筝 728 1058 1413 1743 -絮怨合√亥2筝 728 1058 1413 1743 -絮怨合√ュ1筝 728 1058 1413 1743 -絮怨合√ 728 1058 1413 1743 -絮怨合√篏 728 1058 1413 1743 -絮怨合√銀1筝 728 1058 1413 1743 -絮怨合√腮臀峨 728 1058 1413 1743 -絮怨合√亥1筝 728 1058 1413 1743 -絮怨合√祉潟帥弱 728 1058 1413 1743 -絮怨合√絲睡 728 1058 1413 1743 -絮怨合√筝3筝 728 1058 1413 1743 -絮怨合√筝肴タ 728 1058 1413 1743 -絮怨合√絽綵号茱 728 1058 1413 1743 -絮怨合√絮怨肴タ 728 1058 1413 1743 -絮怨合√羝 728 1058 1413 1743 -絮怨合√ョ合 728 1058 1413 1743 -絮怨合√医紫祉潟帥弱 728 1058 1413 1743 -絮怨合√篋九灸梢絮 728 1058 1413 1743 -絮怨合√帥1筝 728 1058 1413 1743 -絮怨合√帥2筝 728 1058 1413 1743 -絮怨合√阪 728 1058 1413 1743 -絮怨合√ユ羌欠 728 1058 1413 1743 -絮怨合√紊у3筝 728 1058 1413 1743 -絮怨合√紊у4筝 728 1058 1413 1743 -絮怨合√咲 728 1058 1413 1743 -絮怨合√絨 728 1058 1413 1743 -絮怨合√亥 728 1058 1413 1743 -絮怨合√莇薈 728 1058 1413 1743 -絮怨合√莇膩 728 1058 1413 1743 -絮怨合√紊腑 728 1058 1413 1743 -絮怨合√恰 728 1058 1413 1743 -絮怨合√罅 728 1058 1413 1743 -絮怨合√≦臼 728 1058 1413 1743 -絮怨合√筝 728 1058 1413 1743 -絮怨合√絮掩ク 728 1058 1413 1743 -絮怨合√羝羈 728 1058 1413 1743 - -銀4筝娯腴倶翫 730 1100 1415 1745 -銀4筝娯腴倶頑 730 1100 1415 1745 -銀4筝銀2筝 730 1100 1415 1745 -銀4筝亥2筝 730 1100 1415 1745 -銀4筝亥2筝 730 1100 1415 1745 -銀4筝ュ1筝 730 1100 1415 1745 -銀4筝 730 1100 1415 1745 -銀4筝篏 730 1100 1415 1745 -銀4筝銀1筝 730 1100 1415 1745 -銀4筝腮臀峨 730 1100 1415 1745 -銀4筝亥1筝 730 1100 1415 1745 -銀4筝祉潟帥弱 730 1100 1415 1745 -銀4筝絲睡 730 1100 1415 1745 -銀4筝筝3筝 730 1100 1415 1745 -銀4筝筝肴タ 730 1100 1415 1745 -銀4筝絽綵号茱 730 1100 1415 1745 -銀4筝絮怨肴タ 730 1100 1415 1745 -銀4筝羝 730 1100 1415 1745 -銀4筝ョ合 730 1100 1415 1745 -銀4筝医紫祉潟帥弱 730 1100 1415 1745 -銀4筝篋九灸梢絮 730 1100 1415 1745 -銀4筝帥1筝 730 1100 1415 1745 -銀4筝帥2筝 730 1100 1415 1745 -銀4筝阪 730 1100 1415 1745 -銀4筝ユ羌欠 730 1100 1415 1745 -銀4筝紊у3筝 730 1100 1415 1745 -銀4筝紊у4筝 730 1100 1415 1745 -銀4筝咲 730 1100 1415 1745 -銀4筝絨 730 1100 1415 1745 -銀4筝亥 730 1100 1415 1745 -銀4筝莇薈 730 1100 1415 1745 -銀4筝莇膩 730 1100 1415 1745 -銀4筝紊腑 730 1100 1415 1745 -銀4筝恰 730 1100 1415 1745 -銀4筝罅 730 1100 1415 1745 -銀4筝≦臼 730 1100 1415 1745 -銀4筝筝 730 1100 1415 1745 -銀4筝絮掩ク 730 1100 1415 1745 -銀4筝羝羈 730 1100 1415 1745 - -娯腴倶翫娯腴倶頑 731 1101 1416 1746 -娯腴倶翫銀2筝 731 1101 1416 1746 -娯腴倶翫亥2筝 731 1101 1416 1746 -娯腴倶翫亥2筝 731 1101 1416 1746 -娯腴倶翫ュ1筝 731 1101 1416 1746 -娯腴倶翫 731 1101 1416 1746 -娯腴倶翫篏 731 1101 1416 1746 -娯腴倶翫銀1筝 731 1101 1416 1746 -娯腴倶翫腮臀峨 731 1101 1416 1746 -娯腴倶翫亥1筝 731 1101 1416 1746 -娯腴倶翫祉潟帥弱 731 1101 1416 1746 -娯腴倶翫絲睡 731 1101 1416 1746 -娯腴倶翫筝3筝 731 1101 1416 1746 -娯腴倶翫筝肴タ 731 1101 1416 1746 -娯腴倶翫絽綵号茱 731 1101 1416 1746 -娯腴倶翫絮怨肴タ 731 1101 1416 1746 -娯腴倶翫羝 731 1101 1416 1746 -娯腴倶翫ョ合 731 1101 1416 1746 -娯腴倶翫医紫祉潟帥弱 731 1101 1416 1746 -娯腴倶翫篋九灸梢絮 731 1101 1416 1746 -娯腴倶翫帥1筝 731 1101 1416 1746 -娯腴倶翫帥2筝 731 1101 1416 1746 -娯腴倶翫阪 731 1101 1416 1746 -娯腴倶翫ユ羌欠 731 1101 1416 1746 -娯腴倶翫紊у3筝 731 1101 1416 1746 -娯腴倶翫紊у4筝 731 1101 1416 1746 -娯腴倶翫咲 731 1101 1416 1746 -娯腴倶翫絨 731 1101 1416 1746 -娯腴倶翫亥 731 1101 1416 1746 -娯腴倶翫莇薈 731 1101 1416 1746 -娯腴倶翫莇膩 731 1101 1416 1746 -娯腴倶翫紊腑 731 1101 1416 1746 -娯腴倶翫恰 731 1101 1416 1746 -娯腴倶翫罅 731 1101 1416 1746 -娯腴倶翫≦臼 731 1101 1416 1746 -娯腴倶翫筝 731 1101 1416 1746 -娯腴倶翫絮掩ク 731 1101 1416 1746 -娯腴倶翫羝羈 731 1101 1416 1746 - -娯腴倶頑銀2筝 732 1102 1417 1747 -娯腴倶頑亥2筝 732 1102 1417 1747 -娯腴倶頑亥2筝 732 1102 1417 1747 -娯腴倶頑ュ1筝 732 1102 1417 1747 -娯腴倶頑 732 1102 1417 1747 -娯腴倶頑篏 732 1102 1417 1747 -娯腴倶頑銀1筝 732 1102 1417 1747 -娯腴倶頑腮臀峨 732 1102 1417 1747 -娯腴倶頑亥1筝 732 1102 1417 1747 -娯腴倶頑祉潟帥弱 732 1102 1417 1747 -娯腴倶頑絲睡 732 1102 1417 1747 -娯腴倶頑筝3筝 732 1102 1417 1747 -娯腴倶頑筝肴タ 732 1102 1417 1747 -娯腴倶頑絽綵号茱 732 1102 1417 1747 -娯腴倶頑絮怨肴タ 732 1102 1417 1747 -娯腴倶頑羝 732 1102 1417 1747 -娯腴倶頑ョ合 732 1102 1417 1747 -娯腴倶頑医紫祉潟帥弱 732 1102 1417 1747 -娯腴倶頑篋九灸梢絮 732 1102 1417 1747 -娯腴倶頑帥1筝 732 1102 1417 1747 -娯腴倶頑帥2筝 732 1102 1417 1747 -娯腴倶頑阪 732 1102 1417 1747 -娯腴倶頑ユ羌欠 732 1102 1417 1747 -娯腴倶頑紊у3筝 732 1102 1417 1747 -娯腴倶頑紊у4筝 732 1102 1417 1747 -娯腴倶頑咲 732 1102 1417 1747 -娯腴倶頑絨 732 1102 1417 1747 -娯腴倶頑亥 732 1102 1417 1747 -娯腴倶頑莇薈 732 1102 1417 1747 -娯腴倶頑莇膩 732 1102 1417 1747 -娯腴倶頑紊腑 732 1102 1417 1747 -娯腴倶頑恰 732 1102 1417 1747 -娯腴倶頑罅 732 1102 1417 1747 -娯腴倶頑≦臼 732 1102 1417 1747 -娯腴倶頑筝 732 1102 1417 1747 -娯腴倶頑絮掩ク 732 1102 1417 1747 -娯腴倶頑羝羈 732 1102 1417 1747 - -銀2筝亥2筝 733 1103 1418 1748 -銀2筝亥2筝 733 1103 1418 1748 -銀2筝ュ1筝 733 1103 1418 1748 -銀2筝 733 1103 1418 1748 -銀2筝篏 733 1103 1418 1748 -銀2筝銀1筝 733 1103 1418 1748 -銀2筝腮臀峨 733 1103 1418 1748 -銀2筝亥1筝 733 1103 1418 1748 -銀2筝祉潟帥弱 733 1103 1418 1748 -銀2筝絲睡 733 1103 1418 1748 -銀2筝筝3筝 733 1103 1418 1748 -銀2筝筝肴タ 733 1103 1418 1748 -銀2筝絽綵号茱 733 1103 1418 1748 -銀2筝絮怨肴タ 733 1103 1418 1748 -銀2筝羝 733 1103 1418 1748 -銀2筝ョ合 733 1103 1418 1748 -銀2筝医紫祉潟帥弱 733 1103 1418 1748 -銀2筝篋九灸梢絮 733 1103 1418 1748 -銀2筝帥1筝 733 1103 1418 1748 -銀2筝帥2筝 733 1103 1418 1748 -銀2筝阪 733 1103 1418 1748 -銀2筝ユ羌欠 733 1103 1418 1748 -銀2筝紊у3筝 733 1103 1418 1748 -銀2筝紊у4筝 733 1103 1418 1748 -銀2筝咲 733 1103 1418 1748 -銀2筝絨 733 1103 1418 1748 -銀2筝亥 733 1103 1418 1748 -銀2筝莇薈 733 1103 1418 1748 -銀2筝莇膩 733 1103 1418 1748 -銀2筝紊腑 733 1103 1418 1748 -銀2筝恰 733 1103 1418 1748 -銀2筝罅 733 1103 1418 1748 -銀2筝≦臼 733 1103 1418 1748 -銀2筝筝 733 1103 1418 1748 -銀2筝絮掩ク 733 1103 1418 1748 -銀2筝羝羈 733 1103 1418 1748 - -亥2筝ュ1筝 734 1104 1419 1749 -亥2筝 734 1104 1419 1749 -亥2筝篏 734 1104 1419 1749 -亥2筝銀1筝 734 1104 1419 1749 -亥2筝腮臀峨 734 1104 1419 1749 -亥2筝亥1筝 734 1104 1419 1749 -亥2筝祉潟帥弱 734 1104 1419 1749 -亥2筝絲睡 734 1104 1419 1749 -亥2筝筝3筝 734 1104 1419 1749 -亥2筝筝肴タ 734 1104 1419 1749 -亥2筝絽綵号茱 734 1104 1419 1749 -亥2筝絮怨肴タ 734 1104 1419 1749 -亥2筝羝 734 1104 1419 1749 -亥2筝ョ合 734 1104 1419 1749 -亥2筝医紫祉潟帥弱 734 1104 1419 1749 -亥2筝篋九灸梢絮 734 1104 1419 1749 -亥2筝帥1筝 734 1104 1419 1749 -亥2筝帥2筝 734 1104 1419 1749 -亥2筝阪 734 1104 1419 1749 -亥2筝ユ羌欠 734 1104 1419 1749 -亥2筝紊у3筝 734 1104 1419 1749 -亥2筝紊у4筝 734 1104 1419 1749 -亥2筝咲 734 1104 1419 1749 -亥2筝絨 734 1104 1419 1749 -亥2筝亥 734 1104 1419 1749 -亥2筝莇薈 734 1104 1419 1749 -亥2筝莇膩 734 1104 1419 1749 -亥2筝紊腑 734 1104 1419 1749 -亥2筝恰 734 1104 1419 1749 -亥2筝罅 734 1104 1419 1749 -亥2筝≦臼 734 1104 1419 1749 -亥2筝筝 734 1104 1419 1749 -亥2筝絮掩ク 734 1104 1419 1749 -亥2筝羝羈 734 1104 1419 1749 - -亥2筝ュ1筝 735 1105 1420 1750 -亥2筝 735 1105 1420 1750 -亥2筝篏 735 1105 1420 1750 -亥2筝銀1筝 735 1105 1420 1750 -亥2筝腮臀峨 735 1105 1420 1750 -亥2筝亥1筝 735 1105 1420 1750 -亥2筝祉潟帥弱 735 1105 1420 1750 -亥2筝絲睡 735 1105 1420 1750 -亥2筝筝3筝 735 1105 1420 1750 -亥2筝筝肴タ 735 1105 1420 1750 -亥2筝絽綵号茱 735 1105 1420 1750 -亥2筝絮怨肴タ 735 1105 1420 1750 -亥2筝羝 735 1105 1420 1750 -亥2筝ョ合 735 1105 1420 1750 -亥2筝医紫祉潟帥弱 735 1105 1420 1750 -亥2筝篋九灸梢絮 735 1105 1420 1750 -亥2筝帥1筝 735 1105 1420 1750 -亥2筝帥2筝 735 1105 1420 1750 -亥2筝阪 735 1105 1420 1750 -亥2筝ユ羌欠 735 1105 1420 1750 -亥2筝紊у3筝 735 1105 1420 1750 -亥2筝紊у4筝 735 1105 1420 1750 -亥2筝咲 735 1105 1420 1750 -亥2筝絨 735 1105 1420 1750 -亥2筝亥 735 1105 1420 1750 -亥2筝莇薈 735 1105 1420 1750 -亥2筝莇膩 735 1105 1420 1750 -亥2筝紊腑 735 1105 1420 1750 -亥2筝恰 735 1105 1420 1750 -亥2筝罅 735 1105 1420 1750 -亥2筝≦臼 735 1105 1420 1750 -亥2筝筝 735 1105 1420 1750 -亥2筝絮掩ク 735 1105 1420 1750 -亥2筝羝羈 735 1105 1420 1750 - -ュ1筝 736 1106 1421 1751 -ュ1筝篏 736 1106 1421 1751 -ュ1筝銀1筝 736 1106 1421 1751 -ュ1筝腮臀峨 736 1106 1421 1751 -ュ1筝亥1筝 736 1106 1421 1751 -ュ1筝祉潟帥弱 736 1106 1421 1751 -ュ1筝絲睡 736 1106 1421 1751 -ュ1筝筝3筝 736 1106 1421 1751 -ュ1筝筝肴タ 736 1106 1421 1751 -ュ1筝絽綵号茱 736 1106 1421 1751 -ュ1筝絮怨肴タ 736 1106 1421 1751 -ュ1筝羝 736 1106 1421 1751 -ュ1筝ョ合 736 1106 1421 1751 -ュ1筝医紫祉潟帥弱 736 1106 1421 1751 -ュ1筝篋九灸梢絮 736 1106 1421 1751 -ュ1筝帥1筝 736 1106 1421 1751 -ュ1筝帥2筝 736 1106 1421 1751 -ュ1筝阪 736 1106 1421 1751 -ュ1筝ユ羌欠 736 1106 1421 1751 -ュ1筝紊у3筝 736 1106 1421 1751 -ュ1筝紊у4筝 736 1106 1421 1751 -ュ1筝咲 736 1106 1421 1751 -ュ1筝絨 736 1106 1421 1751 -ュ1筝亥 736 1106 1421 1751 -ュ1筝莇薈 736 1106 1421 1751 -ュ1筝莇膩 736 1106 1421 1751 -ュ1筝紊腑 736 1106 1421 1751 -ュ1筝恰 736 1106 1421 1751 -ュ1筝罅 736 1106 1421 1751 -ュ1筝≦臼 736 1106 1421 1721 -ュ1筝筝 736 1106 1421 1751 -ュ1筝絮掩ク 736 1106 1421 1751 -ュ1筝羝羈 736 1106 1421 1751 - -坂 737 1107 1422 1752 -阪銀1筝 737 1107 1422 1752 -榊臀峨 737 1107 1422 1752 -阪亥1筝 737 1107 1422 1752 -堺祉潟帥弱 737 1107 1422 1752 -阪睡 737 1107 1422 1752 -坂賢3筝 737 1107 1422 1752 -坂賢肴タ 737 1107 1422 1752 -阪綵号茱 737 1107 1422 1752 -阪臼絮肴タ 737 1107 1422 1752 -堺遣 737 1107 1422 1752 -肴ョ合 737 1107 1422 1752 -咲医紫祉潟帥弱 737 1107 1422 1752 -坂九灸梢絮 737 1107 1422 1752 -冴帥1筝 737 1107 1422 1752 -冴帥2筝 737 1107 1422 1752 -冴阪 737 1107 1422 1752 -堺ユ羌欠 737 1107 1422 1752 -阪ぇ絎3筝 737 1107 1422 1752 -阪ぇ絎4筝 737 1107 1422 1752 -咲咲 737 1107 1422 1752 -阪 737 1107 1422 1752 -肴亥 737 1107 1422 1752 -榊莇薈 737 1107 1422 1752 -榊莇膩 737 1107 1422 1752 -阪ぉ腑 737 1107 1422 1752 -榊恰 737 1107 1422 1752 -堺 737 1107 1422 1752 -咲≦臼 737 1107 1422 1752 -坂賢 737 1107 1422 1752 -阪臼罐 737 1107 1422 1752 -堺羝羈 737 1107 1422 1752 - -篏阪銀1筝 739 1109 1424 1754 -篏榊臀峨 739 1109 1424 1754 -篏阪亥1筝 739 1109 1424 1754 -篏堺祉潟帥弱 739 1109 1424 1754 -篏阪睡 739 1109 1424 1754 -篏坂賢3筝 739 1109 1424 1754 -篏坂賢肴タ 739 1109 1424 1754 -篏阪綵号茱 739 1109 1424 1754 -篏阪臼絮肴タ 739 1109 1424 1754 -篏堺遣 739 1109 1424 1754 -篏肴ョ合 739 1109 1424 1754 -篏咲医紫祉潟帥弱 739 1109 1424 1754 -篏坂九灸梢絮 739 1109 1424 1754 -篏冴帥1筝 739 1109 1424 1754 -篏冴帥2筝 739 1109 1424 1754 -篏冴阪 739 1109 1424 1754 -篏堺ユ羌欠 739 1109 1424 1754 -篏阪ぇ絎3筝 739 1109 1424 1754 -篏阪ぇ絎4筝 739 1109 1424 1754 -篏咲咲 739 1109 1424 1754 -篏阪 739 1109 1424 1754 -篏肴亥 739 1109 1424 1754 -篏榊莇薈 739 1109 1424 1754 -篏榊莇膩 739 1109 1424 1754 -篏阪ぉ腑 739 1109 1424 1754 -篏榊恰 739 1109 1424 1754 -篏堺 739 1109 1424 1754 -篏咲≦臼 739 1109 1424 1754 -篏坂賢 739 1109 1424 1754 -篏阪臼罐 739 1109 1424 1754 -篏堺羝羈 739 1109 1424 1754 - -銀1筝腮臀峨 745 1115 1430 1800 -銀1筝亥1筝 745 1115 1430 1800 -銀1筝祉潟帥弱 745 1115 1430 1800 -銀1筝絲睡 745 1115 1430 1800 -銀1筝筝3筝 745 1115 1430 1800 -銀1筝筝肴タ 745 1115 1430 1800 -銀1筝絽綵号茱 745 1115 1430 1800 -銀1筝絮怨肴タ 745 1115 1430 1800 -銀1筝羝 745 1115 1430 1800 -銀1筝ョ合 745 1115 1430 1800 -銀1筝医紫祉潟帥弱 745 1115 1430 1800 -銀1筝篋九灸梢絮 745 1115 1430 1800 -銀1筝帥1筝 745 1115 1430 1800 -銀1筝帥2筝 745 1115 1430 1800 -銀1筝阪 745 1115 1430 1800 -銀1筝ユ羌欠 745 1115 1430 1800 -銀1筝紊у3筝 745 1115 1430 1800 -銀1筝紊у4筝 745 1115 1430 1800 -銀1筝咲 745 1115 1430 1800 -銀1筝絨 745 1115 1430 1800 -銀1筝亥 745 1115 1430 1800 -銀1筝莇薈 745 1115 1430 1800 -銀1筝莇膩 745 1115 1430 1800 -銀1筝紊腑 745 1115 1430 1800 -銀1筝恰 745 1115 1430 1800 -銀1筝罅 745 1115 1430 1800 -銀1筝≦臼 745 1115 1430 1800 -銀1筝筝 745 1115 1430 1800 -銀1筝絮掩ク 745 1115 1430 1800 -銀1筝羝羈 745 1115 1430 1800 - -腮臀峨亥1筝 745 1115 1430 1800 -腮臀峨祉潟帥弱 745 1115 1430 1800 -腮臀峨絲睡 745 1115 1430 1800 -腮臀峨筝3筝 745 1115 1430 1800 -腮臀峨筝肴タ 745 1115 1430 1800 -腮臀峨絽綵号茱 745 1115 1430 1800 -腮臀峨絮怨肴タ 745 1115 1430 1800 -腮臀峨羝 745 1115 1430 1800 -腮臀峨ョ合 745 1115 1430 1800 -腮臀峨医紫祉潟帥弱 745 1115 1430 1800 -腮臀峨篋九灸梢絮 745 1115 1430 1800 -腮臀峨帥1筝 745 1115 1430 1800 -腮臀峨帥2筝 745 1115 1430 1800 -腮臀峨阪 745 1115 1430 1800 -腮臀峨ユ羌欠 745 1115 1430 1800 -腮臀峨紊у3筝 745 1115 1430 1800 -腮臀峨紊у4筝 745 1115 1430 1800 -腮臀峨咲 745 1115 1430 1800 -腮臀峨絨 745 1115 1430 1800 -腮臀峨亥 745 1115 1430 1800 -腮臀峨莇薈 745 1115 1430 1800 -腮臀峨莇膩 745 1115 1430 1800 -腮臀峨紊腑 745 1115 1430 1800 -腮臀峨恰 745 1115 1430 1800 -腮臀峨罅 745 1115 1430 1800 -腮臀峨≦臼 745 1115 1430 1800 -腮臀峨筝 745 1115 1430 1800 -腮臀峨絮掩ク 745 1115 1430 1800 -腮臀峨羝羈 745 1115 1430 1800 - -亥1筝祉潟帥弱 746 1116 1431 1801 -亥1筝絲睡 746 1116 1431 1801 -亥1筝筝3筝 746 1116 1431 1801 -亥1筝筝肴タ 746 1116 1431 1801 -亥1筝絽綵号茱 746 1116 1431 1801 -亥1筝絮怨肴タ 746 1116 1431 1801 -亥1筝羝 746 1116 1431 1801 -亥1筝ョ合 746 1116 1431 1801 -亥1筝医紫祉潟帥弱 746 1116 1431 1801 -亥1筝篋九灸梢絮 746 1116 1431 1801 -亥1筝帥1筝 746 1116 1431 1801 -亥1筝帥2筝 746 1116 1431 1801 -亥1筝阪 746 1116 1431 1801 -亥1筝ユ羌欠 746 1116 1431 1801 -亥1筝紊у3筝 746 1116 1431 1801 -亥1筝紊у4筝 746 1116 1431 1801 -亥1筝咲 746 1116 1431 1801 -亥1筝絨 746 1116 1431 1801 -亥1筝亥 746 1116 1431 1801 -亥1筝莇薈 746 1116 1431 1801 -亥1筝莇膩 746 1116 1431 1801 -亥1筝紊腑 746 1116 1431 1801 -亥1筝恰 746 1116 1431 1801 -亥1筝罅 746 1116 1431 1801 -亥1筝≦臼 746 1116 1431 1801 -亥1筝筝 746 1116 1431 1801 -亥1筝絮掩ク 746 1116 1431 1801 -亥1筝羝羈 746 1116 1431 1801 - -祉潟帥弱絲睡 747 1117 1432 1802 -祉潟帥弱筝3筝 747 1117 1432 1802 -祉潟帥弱筝肴タ 747 1117 1432 1802 -祉潟帥弱絽綵号茱 747 1117 1432 1802 -祉潟帥弱絮怨肴タ 747 1117 1432 1802 -祉潟帥弱羝 747 1117 1432 1802 -祉潟帥弱ョ合 747 1117 1432 1802 -祉潟帥弱医紫祉潟帥弱 747 1117 1432 1802 -祉潟帥弱篋九灸梢絮 747 1117 1432 1802 -祉潟帥弱帥1筝 747 1117 1432 1802 -祉潟帥弱帥2筝 747 1117 1432 1802 -祉潟帥弱阪 747 1117 1432 1802 -祉潟帥弱ユ羌欠 747 1117 1432 1802 -祉潟帥弱紊у3筝 747 1117 1432 1802 -祉潟帥弱紊у4筝 747 1117 1432 1802 -祉潟帥弱咲 747 1117 1432 1802 -祉潟帥弱絨 747 1117 1432 1802 -祉潟帥弱亥 747 1117 1432 1802 -祉潟帥弱莇薈 747 1117 1432 1802 -祉潟帥弱莇膩 747 1117 1432 1802 -祉潟帥弱紊腑 747 1117 1432 1802 -祉潟帥弱恰 747 1117 1432 1802 -祉潟帥弱罅 747 1117 1432 1802 -祉潟帥弱≦臼 747 1117 1432 1802 -祉潟帥弱筝 747 1117 1432 1802 -祉潟帥弱絮掩ク 747 1117 1432 1802 -祉潟帥弱羝羈 747 1117 1432 1802 - -絲睡坂賢3筝 749 1119 1434 1804 -絲睡坂賢肴タ 749 1119 1434 1804 -絲睡阪綵号茱 749 1119 1434 1804 -絲睡阪臼絮肴タ 749 1119 1434 1804 -絲睡堺遣 749 1119 1434 1804 -絲睡肴ョ合 749 1119 1434 1804 -絲睡咲医紫祉潟帥弱 749 1119 1434 1804 -絲睡坂九灸梢絮 749 1119 1434 1804 -絲睡冴帥1筝 749 1119 1434 1804 -絲睡冴帥2筝 749 1119 1434 1804 -絲睡冴阪 749 1119 1434 1804 -絲睡堺ユ羌欠 749 1119 1434 1804 -絲睡阪ぇ絎3筝 749 1119 1434 1804 -絲睡阪ぇ絎4筝 749 1119 1434 1804 -絲睡咲咲 749 1119 1434 1804 -絲睡阪 749 1119 1434 1804 -絲睡肴亥 749 1119 1434 1804 -絲睡榊莇薈 749 1119 1434 1804 -絲睡榊莇膩 749 1119 1434 1804 -絲睡阪ぉ腑 749 1119 1434 1804 -絲睡榊恰 749 1119 1434 1804 -絲睡堺 749 1119 1434 1804 -絲睡咲≦臼 749 1119 1434 1804 -絲睡坂賢 749 1119 1434 1804 -絲睡阪臼罐 749 1119 1434 1804 -絲睡堺羝羈 749 1119 1434 1804 - -筝3筝筝肴タ 750 1120 1435 1805 -筝3筝絽綵号茱 750 1120 1435 1805 -筝3筝絮怨肴タ 750 1120 1435 1805 -筝3筝羝 750 1120 1435 1805 -筝3筝ョ合 750 1120 1435 1805 -筝3筝医紫祉潟帥弱 750 1120 1435 1805 -筝3筝篋九灸梢絮 750 1120 1435 1805 -筝3筝帥1筝 750 1120 1435 1805 -筝3筝帥2筝 750 1120 1435 1805 -筝3筝阪 750 1120 1435 1805 -筝3筝ユ羌欠 750 1120 1435 1805 -筝3筝紊у3筝 750 1120 1435 1805 -筝3筝紊у4筝 750 1120 1435 1805 -筝3筝咲 750 1120 1435 1805 -筝3筝絨 750 1120 1435 1805 -筝3筝亥 750 1120 1435 1805 -筝3筝莇薈 750 1120 1435 1805 -筝3筝莇膩 750 1120 1435 1805 -筝3筝紊腑 750 1120 1435 1805 -筝3筝恰 750 1120 1435 1805 -筝3筝罅 750 1120 1435 1805 -筝3筝≦臼 750 1120 1435 1805 -筝3筝筝 750 1120 1435 1805 -筝3筝絮掩ク 750 1120 1435 1805 -筝3筝羝羈 750 1120 1435 1805 - -筝肴タ絽綵号茱 751 1121 1436 1806 -筝肴タ絮怨肴タ 751 1121 1436 1806 -筝肴タ羝 751 1121 1436 1806 -筝肴タョ合 751 1121 1436 1806 -筝肴タ医紫祉潟帥弱 751 1121 1436 1806 -筝肴タ篋九灸梢絮 751 1121 1436 1806 -筝肴タ帥1筝 751 1121 1436 1806 -筝肴タ帥2筝 751 1121 1436 1806 -筝肴タ阪 751 1121 1436 1806 -筝肴タユ羌欠 751 1121 1436 1806 -筝肴タ紊у3筝 751 1121 1436 1806 -筝肴タ紊у4筝 751 1121 1436 1806 -筝肴タ咲 751 1121 1436 1806 -筝肴タ絨 751 1121 1436 1806 -筝肴タ亥 751 1121 1436 1806 -筝肴タ莇薈 751 1121 1436 1806 -筝肴タ莇膩 751 1121 1436 1806 -筝肴タ紊腑 751 1121 1436 1806 -筝肴タ恰 751 1121 1436 1806 -筝肴タ罅 751 1121 1436 1806 -筝肴タ≦臼 751 1121 1436 1806 -筝肴タ筝 751 1121 1436 1806 -筝肴タ絮掩ク 751 1121 1436 1806 -筝肴タ羝羈 751 1121 1436 1806 - -絽綵号茱水綵号茱 752 1122 1437 1807 -絽綵号茱水臼絮肴タ 752 1122 1437 1807 -絽綵号茱炊遣 752 1122 1437 1807 -絽綵号茱粋ョ合 752 1122 1437 1807 -絽綵号茱翠医紫祉潟帥弱 752 1122 1437 1807 -絽綵号茱推九灸梢絮 752 1122 1437 1807 -絽綵号茱帥帥1筝 752 1122 1437 1807 -絽綵号茱帥帥2筝 752 1122 1437 1807 -絽綵号茱帥阪 752 1122 1437 1807 -絽綵号茱炊ユ羌欠 752 1122 1437 1807 -絽綵号茱水ぇ絎3筝 752 1122 1437 1807 -絽綵号茱水ぇ絎4筝 752 1122 1437 1807 -絽綵号茱翠咲 752 1122 1437 1807 -絽綵号茱水 752 1122 1437 1807 -絽綵号茱粋亥 752 1122 1437 1807 -絽綵号茱睡莇薈 752 1122 1437 1807 -絽綵号茱睡莇膩 752 1122 1437 1807 -絽綵号茱水ぉ腑 752 1122 1437 1807 -絽綵号茱睡恰 752 1122 1437 1807 -絽綵号茱炊 752 1122 1437 1807 -絽綵号茱翠≦臼 752 1122 1437 1807 -絽綵号茱推賢 752 1122 1437 1807 -絽綵号茱水臼罐 752 1122 1437 1807 -絽綵号茱炊羝羈 752 1122 1437 1807 - -絮怨肴タ羝 755 1125 1440 1810 -絮怨肴タョ合 755 1125 1440 1810 -絮怨肴タ医紫祉潟帥弱 755 1125 1440 1810 -絮怨肴タ篋九灸梢絮 755 1125 1440 1810 -絮怨肴タ帥1筝 755 1125 1440 1810 -絮怨肴タ帥2筝 755 1125 1440 1810 -絮怨肴タ阪 755 1125 1440 1810 -絮怨肴タユ羌欠 755 1125 1440 1810 -絮怨肴タ紊у3筝 755 1125 1440 1810 -絮怨肴タ紊у4筝 755 1125 1440 1810 -絮怨肴タ咲 755 1125 1440 1810 -絮怨肴タ絨 755 1125 1440 1810 -絮怨肴タ亥 755 1125 1440 1810 -絮怨肴タ莇薈 755 1125 1440 1810 -絮怨肴タ莇膩 755 1125 1440 1810 -絮怨肴タ紊腑 755 1125 1440 1810 -絮怨肴タ恰 755 1125 1440 1810 -絮怨肴タ罅 755 1125 1440 1810 -絮怨肴タ≦臼 755 1125 1440 1810 -絮怨肴タ筝 755 1125 1440 1810 -絮怨肴タ絮掩ク 755 1125 1440 1810 -絮怨肴タ羝羈 755 1125 1440 1810 - -羝ョ合 758 1128 1443 1813 -羝医紫祉潟帥弱 758 1128 1443 1813 -羝篋九灸梢絮 758 1128 1443 1813 -羝帥1筝 758 1128 1443 1813 -羝帥2筝 758 1128 1443 1813 -羝阪 758 1128 1443 1813 -羝ユ羌欠 758 1128 1443 1813 -羝紊у3筝 758 1128 1443 1813 -羝紊у4筝 758 1128 1443 1813 -羝咲 758 1128 1443 1813 -羝絨 758 1128 1443 1813 -羝亥 758 1128 1443 1813 -羝莇薈 758 1128 1443 1813 -羝莇膩 758 1128 1443 1813 -羝紊腑 758 1128 1443 1813 -羝恰 758 1128 1443 1813 -羝罅 758 1128 1443 1813 -羝≦臼 758 1128 1443 1813 -羝筝 758 1128 1443 1813 -羝絮掩ク 758 1128 1443 1813 -羝羝羈 758 1128 1443 1813 - -ョ合咲医紫祉潟帥弱 759 1129 1444 1814 -ョ合坂九灸梢絮 759 1129 1444 1814 -ョ合冴帥1筝 759 1129 1444 1814 -ョ合冴帥2筝 759 1129 1444 1814 -ョ合冴阪 759 1129 1444 1814 -ョ合堺ユ羌欠 759 1129 1444 1814 -ョ合阪ぇ絎3筝 759 1129 1444 1814 -ョ合阪ぇ絎4筝 759 1129 1444 1814 -ョ合咲咲 759 1129 1444 1814 -ョ合阪 759 1129 1444 1814 -ョ合肴亥 759 1129 1444 1814 -ョ合榊莇薈 759 1129 1444 1814 -ョ合榊莇膩 759 1129 1444 1814 -ョ合阪ぉ腑 759 1129 1444 1814 -ョ合榊恰 759 1129 1444 1814 -ョ合堺 759 1129 1444 1814 -ョ合咲≦臼 759 1129 1444 1814 -ョ合坂賢 759 1129 1444 1814 -ョ合阪臼罐 759 1129 1444 1814 -ョ合堺羝羈 759 1129 1444 1814 - -医紫祉潟帥弱篋九灸梢絮 801 1131 1446 1816 -医紫祉潟帥弱帥1筝 801 1131 1446 1816 -医紫祉潟帥弱帥2筝 801 1131 1446 1816 -医紫祉潟帥弱阪 801 1131 1446 1816 -医紫祉潟帥弱ユ羌欠 801 1131 1446 1816 -医紫祉潟帥弱紊у3筝 801 1131 1446 1816 -医紫祉潟帥弱紊у4筝 801 1131 1446 1816 -医紫祉潟帥弱咲 801 1131 1446 1816 -医紫祉潟帥弱絨 801 1131 1446 1816 -医紫祉潟帥弱亥 801 1131 1446 1816 -医紫祉潟帥弱莇薈 801 1131 1446 1816 -医紫祉潟帥弱莇膩 801 1131 1446 1816 -医紫祉潟帥弱紊腑 801 1131 1446 1816 -医紫祉潟帥弱恰 801 1131 1446 1816 -医紫祉潟帥弱罅 801 1131 1446 1816 -医紫祉潟帥弱≦臼 801 1131 1446 1816 -医紫祉潟帥弱筝 801 1131 1446 1816 -医紫祉潟帥弱絮掩ク 801 1131 1446 1816 -医紫祉潟帥弱羝羈 801 1131 1446 1816 - -篋九灸梢絮帥1筝 803 1133 1448 1818 -篋九灸梢絮帥2筝 803 1133 1448 1818 -篋九灸梢絮阪 803 1133 1448 1818 -篋九灸梢絮ユ羌欠 803 1133 1448 1818 -篋九灸梢絮紊у3筝 803 1133 1448 1818 -篋九灸梢絮紊у4筝 803 1133 1448 1818 -篋九灸梢絮咲 803 1133 1448 1818 -篋九灸梢絮絨 803 1133 1448 1818 -篋九灸梢絮亥 803 1133 1448 1818 -篋九灸梢絮莇薈 803 1133 1448 1818 -篋九灸梢絮莇膩 803 1133 1448 1818 -篋九灸梢絮紊腑 803 1133 1448 1818 -篋九灸梢絮恰 803 1133 1448 1818 -篋九灸梢絮罅 803 1133 1448 1818 -篋九灸梢絮≦臼 803 1133 1448 1818 -篋九灸梢絮筝 803 1133 1448 1818 -篋九灸梢絮絮掩ク 803 1133 1448 1818 -篋九灸梢絮羝羈 803 1133 1448 1818 - -帥1筝帥2筝 805 1135 1450 1820 -帥1筝阪 805 1135 1450 1820 -帥1筝ユ羌欠 805 1135 1450 1820 -帥1筝紊у3筝 805 1135 1450 1820 -帥1筝紊у4筝 805 1135 1450 1820 -帥1筝咲 805 1135 1450 1820 -帥1筝絨 805 1135 1450 1820 -帥1筝亥 805 1135 1450 1820 -帥1筝莇薈 805 1135 1450 1820 -帥1筝莇膩 805 1135 1450 1820 -帥1筝紊腑 805 1135 1450 1820 -帥1筝恰 805 1135 1450 1820 -帥1筝罅 805 1135 1450 1820 -帥1筝≦臼 805 1135 1450 1820 -帥1筝筝 805 1135 1450 1820 -帥1筝絮掩ク 805 1135 1450 1820 -帥1筝羝羈 805 1135 1450 1820 - -帥2筝阪 806 1136 1451 1821 -帥2筝ユ羌欠 806 1136 1451 1821 -帥2筝紊у3筝 806 1136 1451 1821 -帥2筝紊у4筝 806 1136 1451 1821 -帥2筝咲 806 1136 1451 1821 -帥2筝絨 806 1136 1451 1821 -帥2筝亥 806 1136 1451 1821 -帥2筝莇薈 806 1136 1451 1821 -帥2筝莇膩 806 1136 1451 1821 -帥2筝紊腑 806 1136 1451 1821 -帥2筝恰 806 1136 1451 1821 -帥2筝罅 806 1136 1451 1821 -帥2筝≦臼 806 1136 1451 1821 -帥2筝筝 806 1136 1451 1821 -帥2筝絮掩ク 806 1136 1451 1821 -帥2筝羝羈 806 1136 1451 1821 - -阪ユ羌欠 808 1138 1453 1823 -阪紊у3筝 808 1138 1453 1823 -阪紊у4筝 808 1138 1453 1823 -阪咲 808 1138 1453 1823 -阪絨 808 1138 1453 1823 -阪亥 808 1138 1453 1823 -阪莇薈 808 1138 1453 1823 -阪莇膩 808 1138 1453 1823 -阪紊腑 808 1138 1453 1823 -阪恰 808 1138 1453 1823 -阪罅 808 1138 1453 1823 -阪≦臼 808 1138 1453 1823 -阪筝 808 1138 1453 1823 -阪絮掩ク 808 1138 1453 1823 -阪羝羈 808 1138 1453 1823 - -ユ羌欠√ぇ絎3筝 812 1142 1457 1827 -ユ羌欠√ぇ絎4筝 812 1142 1457 1827 -ユ羌欠∫咲 812 1142 1457 1827 -ユ羌欠√ 812 1142 1457 1827 -ユ羌欠∵亥 812 1142 1457 1827 -ユ羌欠∝莇薈 812 1142 1457 1827 -ユ羌欠∝莇膩 812 1142 1457 1827 -ユ羌欠√ぉ腑 812 1142 1457 1827 -ユ羌欠∝恰 812 1142 1457 1827 -ユ羌欠∽ 812 1142 1457 1827 -ユ羌欠∫≦臼 812 1142 1457 1827 -ユ羌欠≫賢 812 1142 1457 1827 -ユ羌欠√臼罐 812 1142 1457 1827 -ユ羌欠∽羝羈 812 1142 1457 1827 - -紊у3筝紊у4筝 814 1144 1459 1829 -紊у3筝咲 814 1144 1459 1829 -紊у3筝絨 814 1144 1459 1829 -紊у3筝亥 814 1144 1459 1829 -紊у3筝莇薈 814 1144 1459 1829 -紊у3筝莇膩 814 1144 1459 1829 -紊у3筝紊腑 814 1144 1459 1829 -紊у3筝恰 814 1144 1459 1829 -紊у3筝罅 814 1144 1459 1829 -紊у3筝≦臼 814 1144 1459 1829 -紊у3筝筝 814 1144 1459 1829 -紊у3筝絮掩ク 814 1144 1459 1829 -紊у3筝羝羈 814 1144 1459 1829 - -紊у4筝咲 815 1145 1500 1830 -紊у4筝絨 815 1145 1500 1830 -紊у4筝亥 815 1145 1500 1830 -紊у4筝莇薈 815 1145 1500 1830 -紊у4筝莇膩 815 1145 1500 1830 -紊у4筝紊腑 815 1145 1500 1830 -紊у4筝恰 815 1145 1500 1830 -紊у4筝罅 815 1145 1500 1830 -紊у4筝≦臼 815 1145 1500 1830 -紊у4筝筝 815 1145 1500 1830 -紊у4筝絮掩ク 815 1145 1500 1830 -紊у4筝羝羈 815 1145 1500 1830 - -咲紊у4筝 818 1148 1503 1833 -咲咲 818 1148 1503 1833 -咲絨 818 1148 1503 1833 -咲亥 818 1148 1503 1833 -咲莇薈 818 1148 1503 1833 -咲莇膩 818 1148 1503 1833 -咲紊腑 818 1148 1503 1833 -咲恰 818 1148 1503 1833 -咲罅 818 1148 1503 1833 -咲≦臼 818 1148 1503 1833 -咲筝 818 1148 1503 1833 -咲絮掩ク 818 1148 1503 1833 -咲羝羈 818 1148 1503 1833 - -絨ц亥 821 1151 1506 1836 -絨х莇薈 821 1151 1506 1836 -絨х莇膩 821 1151 1506 1836 -絨уぉ腑 821 1151 1506 1836 -絨х恰 821 1151 1506 1836 -絨ф 821 1151 1506 1836 -絨ч≦臼 821 1151 1506 1836 -絨т賢 821 1151 1506 1836 -絨у臼罐 821 1151 1506 1836 -絨ф羝羈 821 1151 1506 1836 - -亥亥莇薈 823 1153 1508 1838 -亥亥莇膩 823 1153 1508 1838 -亥医ぉ腑 823 1153 1508 1838 -亥亥恰 823 1153 1508 1838 -亥井 823 1153 1508 1838 -亥育≦臼 823 1153 1508 1838 -亥遺賢 823 1153 1508 1838 -亥医臼罐 823 1153 1508 1838 -亥井羝羈 823 1153 1508 1838 - -莇薈莇膩 824 1154 1509 1839 -莇薈紊腑 824 1154 1509 1839 -莇薈恰 824 1154 1509 1839 -莇薈罅 824 1154 1509 1839 -莇薈≦臼 824 1154 1509 1839 -莇薈筝 824 1154 1509 1839 -莇薈絮掩ク 824 1154 1509 1839 -莇薈羝羈 824 1154 1509 1839 - -莇膩阪ぉ腑 826 1156 1511 1841 -莇膩榊恰 826 1156 1511 1841 -莇膩堺 826 1156 1511 1841 -莇膩咲≦臼 826 1156 1511 1841 -莇膩坂賢 826 1156 1511 1841 -莇膩阪臼罐 826 1156 1511 1841 -莇膩堺羝羈 826 1156 1511 1841 - -紊腑恰 827 1157 1512 1842 -紊腑罅 827 1157 1512 1842 -紊腑≦臼 827 1157 1512 1842 -紊腑筝 827 1157 1512 1842 -紊腑絮掩ク 827 1157 1512 1842 -紊腑羝羈 827 1157 1512 1842 - -恰罅 828 1158 1513 1843 -恰≦臼 828 1158 1513 1843 -恰筝 828 1158 1513 1843 -恰絮掩ク 828 1158 1513 1843 -恰羝羈 828 1158 1513 1843 - -罅≦臼 829 1159 1514 1844 -罅筝 829 1159 1514 1844 -罅絮掩ク 829 1159 1514 1844 -罅羝羈 829 1159 1514 1844 - -≦臼筝 830 1200 1515 1845 -≦臼絮掩ク 830 1200 1515 1845 -≦臼羝羈 830 1200 1515 1845 - -筝絮掩ク 831 1201 1516 1846 -筝羝羈 831 1201 1516 1846 - -絮掩ク羝羈 834 1204 1519 1849 - - -羝羈羝羈 905 1230 1540 1925 -羝羈絮掩ク 905 1230 1540 1925 -羝羈筝 905 1230 1540 1925 -羝羈≦臼 905 1230 1540 1925 -羝羈罅 905 1230 1540 1925 -羝羈恰 905 1230 1540 1925 -羝羈紊腑 905 1230 1540 1925 -羝羈莇膩 905 1230 1540 1925 -羝羈莇薈 905 1230 1540 1925 -羝羈亥 905 1230 1540 1925 -羝羈絨 905 1230 1540 1925 -羝羈咲 905 1230 1540 1925 -羝羈紊у4筝 905 1230 1540 1925 -羝羈紊у3筝 905 1230 1540 1925 -羝羈ユ羌欠 905 1230 1540 1925 -羝羈阪 905 1230 1540 1925 -羝羈帥2筝 905 1230 1540 1925 -羝羈帥1筝 905 1230 1540 1925 -羝羈篋九灸梢絮 905 1230 1540 1925 -羝羈医紫祉潟帥弱 905 1230 1540 1925 -羝羈ョ合 905 1230 1540 1925 -羝羈羝 905 1230 1540 1925 -羝羈絮怨肴タ 905 1230 1540 1925 -羝羈絽綵号茱 905 1230 1540 1925 -羝羈筝 905 1230 1540 1925 -羝羈筝3筝 905 1230 1540 1925 -羝羈絲睡 905 1230 1540 1925 -羝羈祉潟帥弱 905 1230 1540 1925 -羝羈亥1筝 905 1230 1540 1925 -羝羈腮臀峨 905 1230 1540 1925 -羝羈銀1筝 905 1230 1540 1925 -羝羈篏 905 1230 1540 1925 -羝羈 905 1230 1540 1925 -羝羈ュ1筝 905 1230 1540 1925 -羝羈亥2筝 905 1230 1540 1925 -羝羈亥2筝 905 1230 1540 1925 -羝羈銀2筝 905 1230 1540 1925 -羝羈娯腴倶頑 905 1230 1540 1925 -羝羈娯腴倶翫 905 1230 1540 1925 -羝羈銀4筝 905 1230 1540 1925 -羝羈絮怨合√ 905 1230 1540 1925 -羝羈蕭 905 1230 1540 1925 -羝羈絨闑 905 1230 1540 1925 - -絮掩ク筝 909 1234 1544 1929 -絮掩ク≦臼 909 1234 1544 1929 -絮掩ク罅 909 1234 1544 1929 -絮掩ク恰 909 1234 1544 1929 -絮掩ク紊腑 909 1234 1544 1929 -絮掩ク莇膩 909 1234 1544 1929 -絮掩ク莇薈 909 1234 1544 1929 -絮掩ク亥 909 1234 1544 1929 -絮掩ク絨 909 1234 1544 1929 -絮掩ク咲 909 1234 1544 1929 -絮掩ク紊у4筝 909 1234 1544 1929 -絮掩ク紊у3筝 909 1234 1544 1929 -絮掩クユ羌欠 909 1234 1544 1929 -絮掩ク阪 909 1234 1544 1929 -絮掩ク帥2筝 909 1234 1544 1929 -絮掩ク帥1筝 909 1234 1544 1929 -絮掩ク篋九灸梢絮 909 1234 1544 1929 -絮掩ク医紫祉潟帥弱 909 1234 1544 1929 -絮掩クョ合 909 1234 1544 1929 -絮掩ク羝 909 1234 1544 1929 -絮掩ク絮怨肴タ 909 1234 1544 1929 -絮掩ク絽綵号茱 909 1234 1544 1929 -絮掩ク筝 909 1234 1544 1929 -絮掩ク筝3筝 909 1234 1544 1929 -絮掩ク絲睡 909 1234 1544 1929 -絮掩ク祉潟帥弱 909 1234 1544 1929 -絮掩ク亥1筝 909 1234 1544 1929 -絮掩ク腮臀峨 909 1234 1544 1929 -絮掩ク銀1筝 909 1234 1544 1929 -絮掩ク篏 909 1234 1544 1929 -絮掩ク 909 1234 1544 1929 -絮掩クュ1筝 909 1234 1544 1929 -絮掩ク亥2筝 909 1234 1544 1929 -絮掩ク亥2筝 909 1234 1544 1929 -絮掩ク銀2筝 909 1234 1544 1929 -絮掩ク娯腴倶頑 909 1234 1544 1929 -絮掩ク娯腴倶翫 909 1234 1544 1929 -絮掩ク銀4筝 909 1234 1544 1929 -絮掩ク絮怨合√ 909 1234 1544 1929 -絮掩ク蕭 909 1234 1544 1929 -絮掩ク絨闑 909 1234 1544 1929 - -筝≦臼 912 1237 1547 1932 -筝罅 912 1237 1547 1932 -筝恰 912 1237 1547 1932 -筝紊腑 912 1237 1547 1932 -筝莇膩 912 1237 1547 1932 -筝莇薈 912 1237 1547 1932 -筝亥 912 1237 1547 1932 -筝絨 912 1237 1547 1932 -筝咲 912 1237 1547 1932 -筝紊у4筝 912 1237 1547 1932 -筝紊у3筝 912 1237 1547 1932 -筝ユ羌欠 912 1237 1547 1932 -筝阪 912 1237 1547 1932 -筝帥2筝 912 1237 1547 1932 -筝帥1筝 912 1237 1547 1932 -筝篋九灸梢絮 912 1237 1547 1932 -筝医紫祉潟帥弱 912 1237 1547 1932 -筝ョ合 912 1237 1547 1932 -筝羝 912 1237 1547 1932 -筝絮怨肴タ 912 1237 1547 1932 -筝絽綵号茱 912 1237 1547 1932 -筝筝 912 1237 1547 1932 -筝筝3筝 912 1237 1547 1932 -筝絲睡 912 1237 1547 1932 -筝祉潟帥弱 912 1237 1547 1932 -筝亥1筝 912 1237 1547 1932 -筝腮臀峨 912 1237 1547 1932 -筝銀1筝 912 1237 1547 1932 -筝篏 912 1237 1547 1932 -筝 912 1237 1547 1932 -筝ュ1筝 912 1237 1547 1932 -筝亥2筝 912 1237 1547 1932 -筝亥2筝 912 1237 1547 1932 -筝銀2筝 912 1237 1547 1932 -筝娯腴倶頑 912 1237 1547 1932 -筝娯腴倶翫 912 1237 1547 1932 -筝銀4筝 912 1237 1547 1932 -筝絮怨合√ 912 1237 1547 1932 -筝蕭 912 1237 1547 1932 -筝絨闑 912 1237 1547 1932 - -≦臼罅 913 1238 1548 1933 -≦臼恰 913 1238 1548 1933 -≦臼紊腑 913 1238 1548 1933 -≦臼莇膩 913 1238 1548 1933 -≦臼莇薈 913 1238 1548 1933 -≦臼亥 913 1238 1548 1933 -≦臼絨 913 1238 1548 1933 -≦臼咲 913 1238 1548 1933 -≦臼紊у4筝 913 1238 1548 1933 -≦臼紊у3筝 913 1238 1548 1933 -≦臼ユ羌欠 913 1238 1548 1933 -≦臼阪 913 1238 1548 1933 -≦臼帥2筝 913 1238 1548 1933 -≦臼帥1筝 913 1238 1548 1933 -≦臼篋九灸梢絮 913 1238 1548 1933 -≦臼医紫祉潟帥弱 913 1238 1548 1933 -≦臼ョ合 913 1238 1548 1933 -≦臼羝 913 1238 1548 1933 -≦臼絮怨肴タ 913 1238 1548 1933 -≦臼絽綵号茱 913 1238 1548 1933 -≦臼筝 913 1238 1548 1933 -≦臼筝3筝 913 1238 1548 1933 -≦臼絲睡 913 1238 1548 1933 -≦臼祉潟帥弱 913 1238 1548 1933 -≦臼亥1筝 913 1238 1548 1933 -≦臼腮臀峨 913 1238 1548 1933 -≦臼銀1筝 913 1238 1548 1933 -≦臼篏 913 1238 1548 1933 -≦臼 913 1238 1548 1933 -≦臼ュ1筝 913 1238 1548 1933 -≦臼亥2筝 913 1238 1548 1933 -≦臼亥2筝 913 1238 1548 1933 -≦臼銀2筝 913 1238 1548 1933 -≦臼娯腴倶頑 913 1238 1548 1933 -≦臼娯腴倶翫 913 1238 1548 1933 -≦臼銀4筝 913 1238 1548 1933 -≦臼絮怨合√ 913 1238 1548 1933 -≦臼蕭 913 1238 1548 1933 -≦臼絨闑 913 1238 1548 1933 - -罅恰 914 1239 1549 1934 -罅紊腑 914 1239 1549 1934 -罅莇膩 914 1239 1549 1934 -罅莇薈 914 1239 1549 1934 -罅亥 914 1239 1549 1934 -罅絨 914 1239 1549 1934 -罅咲 914 1239 1549 1934 -罅紊у4筝 914 1239 1549 1934 -罅紊у3筝 914 1239 1549 1934 -罅ユ羌欠 914 1239 1549 1934 -罅阪 914 1239 1549 1934 -罅帥2筝 914 1239 1549 1934 -罅帥1筝 914 1239 1549 1934 -罅篋九灸梢絮 914 1239 1549 1934 -罅医紫祉潟帥弱 914 1239 1549 1934 -罅ョ合 914 1239 1549 1934 -罅羝 914 1239 1549 1934 -罅絮怨肴タ 914 1239 1549 1934 -罅絽綵号茱 914 1239 1549 1934 -罅筝 914 1239 1549 1934 -罅筝3筝 914 1239 1549 1934 -罅絲睡 914 1239 1549 1934 -罅祉潟帥弱 914 1239 1549 1934 -罅亥1筝 914 1239 1549 1934 -罅腮臀峨 914 1239 1549 1934 -罅銀1筝 914 1239 1549 1934 -罅篏 914 1239 1549 1934 -罅 914 1239 1549 1934 -罅ュ1筝 914 1239 1549 1934 -罅亥2筝 914 1239 1549 1934 -罅亥2筝 914 1239 1549 1934 -罅銀2筝 914 1239 1549 1934 -罅娯腴倶頑 914 1239 1549 1934 -罅娯腴倶翫 914 1239 1549 1934 -罅銀4筝 914 1239 1549 1934 -罅絮怨合√ 914 1239 1549 1934 -罅蕭 914 1239 1549 1934 -罅絨闑 914 1239 1549 1934 - -恰紊腑 915 1240 1550 1935 -恰莇膩 915 1240 1550 1935 -恰莇薈 915 1240 1550 1935 -恰亥 915 1240 1550 1935 -恰絨 915 1240 1550 1935 -恰咲 915 1240 1550 1935 -恰紊у4筝 915 1240 1550 1935 -恰紊у3筝 915 1240 1550 1935 -恰ユ羌欠 915 1240 1550 1935 -恰阪 915 1240 1550 1935 -恰帥2筝 915 1240 1550 1935 -恰帥1筝 915 1240 1550 1935 -恰篋九灸梢絮 915 1240 1550 1935 -恰医紫祉潟帥弱 915 1240 1550 1935 -恰ョ合 915 1240 1550 1935 -恰羝 915 1240 1550 1935 -恰絮怨肴タ 915 1240 1550 1935 -恰絽綵号茱 915 1240 1550 1935 -恰筝 915 1240 1550 1935 -恰筝3筝 915 1240 1550 1935 -恰絲睡 915 1240 1550 1935 -恰祉潟帥弱 915 1240 1550 1935 -恰亥1筝 915 1240 1550 1935 -恰腮臀峨 915 1240 1550 1935 -恰銀1筝 915 1240 1550 1935 -恰篏 915 1240 1550 1935 -恰 915 1240 1550 1935 -恰ュ1筝 915 1240 1550 1935 -恰亥2筝 915 1240 1550 1935 -恰亥2筝 915 1240 1550 1935 -恰銀2筝 915 1240 1550 1935 -恰娯腴倶頑 915 1240 1550 1935 -恰娯腴倶翫 915 1240 1550 1935 -恰銀4筝 915 1240 1550 1935 -恰絮怨合√ 915 1240 1550 1935 -恰蕭 915 1240 1550 1935 -恰絨闑 915 1240 1550 1935 - -紊腑莇膩 916 1241 1551 1936 -紊腑莇薈 916 1241 1551 1936 -紊腑亥 916 1241 1551 1936 -紊腑絨 916 1241 1551 1936 -紊腑咲 916 1241 1551 1936 -紊腑紊у4筝 916 1241 1551 1936 -紊腑紊у3筝 916 1241 1551 1936 -紊腑ユ羌欠 916 1241 1551 1936 -紊腑阪 916 1241 1551 1936 -紊腑帥2筝 916 1241 1551 1936 -紊腑帥1筝 916 1241 1551 1936 -紊腑篋九灸梢絮 916 1241 1551 1936 -紊腑医紫祉潟帥弱 916 1241 1551 1936 -紊腑ョ合 916 1241 1551 1936 -紊腑羝 916 1241 1551 1936 -紊腑絮怨肴タ 916 1241 1551 1936 -紊腑絽綵号茱 916 1241 1551 1936 -紊腑筝 916 1241 1551 1936 -紊腑筝3筝 916 1241 1551 1936 -紊腑絲睡 916 1241 1551 1936 -紊腑祉潟帥弱 916 1241 1551 1936 -紊腑亥1筝 916 1241 1551 1936 -紊腑腮臀峨 916 1241 1551 1936 -紊腑銀1筝 916 1241 1551 1936 -紊腑篏 916 1241 1551 1936 -紊腑 916 1241 1551 1936 -紊腑ュ1筝 916 1241 1551 1936 -紊腑亥2筝 916 1241 1551 1936 -紊腑亥2筝 916 1241 1551 1936 -紊腑銀2筝 916 1241 1551 1936 -紊腑娯腴倶頑 916 1241 1551 1936 -紊腑娯腴倶翫 916 1241 1551 1936 -紊腑銀4筝 916 1241 1551 1936 -紊腑絮怨合√ 916 1241 1551 1936 -紊腑蕭 916 1241 1551 1936 -紊腑絨闑 916 1241 1551 1936 - -莇膩榊莇薈 917 1242 1552 1937 -莇膩肴亥 917 1242 1552 1937 -莇膩阪 917 1242 1552 1937 -莇膩咲咲 917 1242 1552 1937 -莇膩阪ぇ絎4筝 917 1242 1552 1937 -莇膩阪ぇ絎3筝 917 1242 1552 1937 -莇膩堺ユ羌欠 917 1242 1552 1937 -莇膩冴阪 917 1242 1552 1937 -莇膩冴帥2筝 917 1242 1552 1937 -莇膩冴帥1筝 917 1242 1552 1937 -莇膩坂九灸梢絮 917 1242 1552 1937 -莇膩咲医紫祉潟帥弱 917 1242 1552 1937 -莇膩肴ョ合 917 1242 1552 1937 -莇膩堺遣 917 1242 1552 1937 -莇膩阪臼絮肴タ 917 1242 1552 1937 -莇膩阪綵号茱 917 1242 1552 1937 -莇膩坂賢 917 1242 1552 1937 -莇膩坂賢3筝 917 1242 1552 1937 -莇膩阪睡 917 1242 1552 1937 -莇膩堺祉潟帥弱 917 1242 1552 1937 -莇膩阪亥1筝 917 1242 1552 1937 -莇膩榊臀峨 917 1242 1552 1937 -莇膩阪銀1筝 917 1242 1552 1937 -莇膩坂 917 1242 1552 1937 -莇膩堺 917 1242 1552 1937 -莇膩堺ュ1筝 917 1242 1552 1937 -莇膩阪亥2筝 917 1242 1552 1937 -莇膩阪亥2筝 917 1242 1552 1937 -莇膩阪銀2筝 917 1242 1552 1937 -莇膩咲娯腴倶頑 917 1242 1552 1937 -莇膩咲娯腴倶翫 917 1242 1552 1937 -莇膩阪銀4筝 917 1242 1552 1937 -莇膩阪臼絎合√ 917 1242 1552 1937 -莇膩咲 917 1242 1552 1937 -莇膩阪闑 917 1242 1552 1937 - -莇薈亥 919 1244 1554 1939 -莇薈絨 919 1244 1554 1939 -莇薈咲 919 1244 1554 1939 -莇薈紊у4筝 919 1244 1554 1939 -莇薈紊у3筝 919 1244 1554 1939 -莇薈ユ羌欠 919 1244 1554 1939 -莇薈阪 919 1244 1554 1939 -莇薈帥2筝 919 1244 1554 1939 -莇薈帥1筝 919 1244 1554 1939 -莇薈篋九灸梢絮 919 1244 1554 1939 -莇薈医紫祉潟帥弱 919 1244 1554 1939 -莇薈ョ合 919 1244 1554 1939 -莇薈羝 919 1244 1554 1939 -莇薈絮怨肴タ 919 1244 1554 1939 -莇薈絽綵号茱 919 1244 1554 1939 -莇薈筝 919 1244 1554 1939 -莇薈筝3筝 919 1244 1554 1939 -莇薈絲睡 919 1244 1554 1939 -莇薈祉潟帥弱 919 1244 1554 1939 -莇薈亥1筝 919 1244 1554 1939 -莇薈腮臀峨 919 1244 1554 1939 -莇薈銀1筝 919 1244 1554 1939 -莇薈篏 919 1244 1554 1939 -莇薈 919 1244 1554 1939 -莇薈ュ1筝 919 1244 1554 1939 -莇薈亥2筝 919 1244 1554 1939 -莇薈亥2筝 919 1244 1554 1939 -莇薈銀2筝 919 1244 1554 1939 -莇薈娯腴倶頑 919 1244 1554 1939 -莇薈娯腴倶翫 919 1244 1554 1939 -莇薈銀4筝 919 1244 1554 1939 -莇薈絮怨合√ 919 1244 1554 1939 -莇薈蕭 919 1244 1554 1939 -莇薈絨闑 919 1244 1554 1939 - -亥医 920 1245 1555 1940 -亥育咲 920 1245 1555 1940 -亥医ぇ絎4筝 920 1245 1555 1940 -亥医ぇ絎3筝 920 1245 1555 1940 -亥井ユ羌欠 920 1245 1555 1940 -亥違阪 920 1245 1555 1940 -亥違帥2筝 920 1245 1555 1940 -亥違帥1筝 920 1245 1555 1940 -亥遺九灸梢絮 920 1245 1555 1940 -亥育医紫祉潟帥弱 920 1245 1555 1940 -亥域ョ合 920 1245 1555 1940 -亥井遣 920 1245 1555 1940 -亥医臼絮肴タ 920 1245 1555 1940 -亥医綵号茱 920 1245 1555 1940 -亥遺賢 920 1245 1555 1940 -亥遺賢3筝 920 1245 1555 1940 -亥医睡 920 1245 1555 1940 -亥井祉潟帥弱 920 1245 1555 1940 -亥医亥1筝 920 1245 1555 1940 -亥亥臀峨 920 1245 1555 1940 -亥医銀1筝 920 1245 1555 1940 -亥遺 920 1245 1555 1940 -亥井 920 1245 1555 1940 -亥井ュ1筝 920 1245 1555 1940 -亥医亥2筝 920 1245 1555 1940 -亥医亥2筝 920 1245 1555 1940 -亥医銀2筝 920 1245 1555 1940 -亥育娯腴倶頑 920 1245 1555 1940 -亥育娯腴倶翫 920 1245 1555 1940 -亥医銀4筝 920 1245 1555 1940 -亥医臼絎合√ 920 1245 1555 1940 -亥育 920 1245 1555 1940 -亥医闑 920 1245 1555 1940 - -絨ч咲 922 1247 1557 1942 -絨уぇ絎4筝 922 1247 1557 1942 -絨уぇ絎3筝 922 1247 1557 1942 -絨фユ羌欠 922 1247 1557 1942 -絨с阪 922 1247 1557 1942 -絨с帥2筝 922 1247 1557 1942 -絨с帥1筝 922 1247 1557 1942 -絨т九灸梢絮 922 1247 1557 1942 -絨ч医紫祉潟帥弱 922 1247 1557 1942 -絨цョ合 922 1247 1557 1942 -絨ф遣 922 1247 1557 1942 -絨у臼絮肴タ 922 1247 1557 1942 -絨у綵号茱 922 1247 1557 1942 -絨т賢 922 1247 1557 1942 -絨т賢3筝 922 1247 1557 1942 -絨у睡 922 1247 1557 1942 -絨ф祉潟帥弱 922 1247 1557 1942 -絨у亥1筝 922 1247 1557 1942 -絨х臀峨 922 1247 1557 1942 -絨у銀1筝 922 1247 1557 1942 -絨т 922 1247 1557 1942 -絨ф 922 1247 1557 1942 -絨фュ1筝 922 1247 1557 1942 -絨у亥2筝 922 1247 1557 1942 -絨у亥2筝 922 1247 1557 1942 -絨у銀2筝 922 1247 1557 1942 -絨ч娯腴倶頑 922 1247 1557 1942 -絨ч娯腴倶翫 922 1247 1557 1942 -絨у銀4筝 922 1247 1557 1942 -絨у臼絎合√ 922 1247 1557 1942 -絨ч 922 1247 1557 1942 -絨у闑 922 1247 1557 1942 - -咲紊у4筝 925 1250 1600 1945 -咲紊у3筝 925 1250 1600 1945 -咲ユ羌欠 925 1250 1600 1945 -咲阪 925 1250 1600 1945 -咲帥2筝 925 1250 1600 1945 -咲帥1筝 925 1250 1600 1945 -咲篋九灸梢絮 925 1250 1600 1945 -咲医紫祉潟帥弱 925 1250 1600 1945 -咲ョ合 925 1250 1600 1945 -咲羝 925 1250 1600 1945 -咲絮怨肴タ 925 1250 1600 1945 -咲絽綵号茱 925 1250 1600 1945 -咲筝 925 1250 1600 1945 -咲筝3筝 925 1250 1600 1945 -咲絲睡 925 1250 1600 1945 -咲祉潟帥弱 925 1250 1600 1945 -咲亥1筝 925 1250 1600 1945 -咲腮臀峨 925 1250 1600 1945 -咲銀1筝 925 1250 1600 1945 -咲篏 925 1250 1600 1945 -咲 925 1250 1600 1945 -咲ュ1筝 925 1250 1600 1945 -咲亥2筝 925 1250 1600 1945 -咲亥2筝 925 1250 1600 1945 -咲銀2筝 925 1250 1600 1945 -咲娯腴倶頑 925 1250 1600 1945 -咲娯腴倶翫 925 1250 1600 1945 -咲銀4筝 925 1250 1600 1945 -咲絮怨合√ 925 1250 1600 1945 -咲蕭 925 1250 1600 1945 -咲絨闑 925 1250 1600 1945 - -紊у4筝紊у3筝 928 1253 1603 1948 -紊у4筝ユ羌欠 928 1253 1603 1948 -紊у4筝阪 928 1253 1603 1948 -紊у4筝帥2筝 928 1253 1603 1948 -紊у4筝帥1筝 928 1253 1603 1948 -紊у4筝篋九灸梢絮 928 1253 1603 1948 -紊у4筝医紫祉潟帥弱 928 1253 1603 1948 -紊у4筝ョ合 928 1253 1603 1948 -紊у4筝羝 928 1253 1603 1948 -紊у4筝絮怨肴タ 928 1253 1603 1948 -紊у4筝絽綵号茱 928 1253 1603 1948 -紊у4筝筝 928 1253 1603 1948 -紊у4筝筝3筝 928 1253 1603 1948 -紊у4筝絲睡 928 1253 1603 1948 -紊у4筝祉潟帥弱 928 1253 1603 1948 -紊у4筝亥1筝 928 1253 1603 1948 -紊у4筝腮臀峨 928 1253 1603 1948 -紊у4筝銀1筝 928 1253 1603 1948 -紊у4筝篏 928 1253 1603 1948 -紊у4筝 928 1253 1603 1948 -紊у4筝ュ1筝 928 1253 1603 1948 -紊у4筝亥2筝 928 1253 1603 1948 -紊у4筝亥2筝 928 1253 1603 1948 -紊у4筝銀2筝 928 1253 1603 1948 -紊у4筝娯腴倶頑 928 1253 1603 1948 -紊у4筝娯腴倶翫 928 1253 1603 1948 -紊у4筝銀4筝 928 1253 1603 1948 -紊у4筝絮怨合√ 928 1253 1603 1948 -紊у4筝蕭 928 1253 1603 1948 -紊у4筝絨闑 928 1253 1603 1948 - -紊у3筝ユ羌欠 929 1254 1604 1949 -紊у3筝阪 929 1254 1604 1949 -紊у3筝帥2筝 929 1254 1604 1949 -紊у3筝帥1筝 929 1254 1604 1949 -紊у3筝篋九灸梢絮 929 1254 1604 1949 -紊у3筝医紫祉潟帥弱 929 1254 1604 1949 -紊у3筝ョ合 929 1254 1604 1949 -紊у3筝羝 929 1254 1604 1949 -紊у3筝絮怨肴タ 929 1254 1604 1949 -紊у3筝絽綵号茱 929 1254 1604 1949 -紊у3筝筝 929 1254 1604 1949 -紊у3筝筝3筝 929 1254 1604 1949 -紊у3筝絲睡 929 1254 1604 1949 -紊у3筝祉潟帥弱 929 1254 1604 1949 -紊у3筝亥1筝 929 1254 1604 1949 -紊у3筝腮臀峨 929 1254 1604 1949 -紊у3筝銀1筝 929 1254 1604 1949 -紊у3筝篏 929 1254 1604 1949 -紊у3筝 929 1254 1604 1949 -紊у3筝ュ1筝 929 1254 1604 1949 -紊у3筝亥2筝 929 1254 1604 1949 -紊у3筝亥2筝 929 1254 1604 1949 -紊у3筝銀2筝 929 1254 1604 1949 -紊у3筝娯腴倶頑 929 1254 1604 1949 -紊у3筝娯腴倶翫 929 1254 1604 1949 -紊у3筝銀4筝 929 1254 1604 1949 -紊у3筝絮怨合√ 929 1254 1604 1949 -紊у3筝蕭 929 1254 1604 1949 -紊у3筝絨闑 929 1254 1604 1949 - -ユ羌欠≪阪 931 1256 1606 1951 -ユ羌欠≪帥2筝 931 1256 1606 1951 -ユ羌欠≪帥1筝 931 1256 1606 1951 -ユ羌欠≫九灸梢絮 931 1256 1606 1951 -ユ羌欠∫医紫祉潟帥弱 931 1256 1606 1951 -ユ羌欠∵ョ合 931 1256 1606 1951 -ユ羌欠∽遣 931 1256 1606 1951 -ユ羌欠√臼絮肴タ 931 1256 1606 1951 -ユ羌欠√綵号茱 931 1256 1606 1951 -ユ羌欠≫賢 931 1256 1606 1951 -ユ羌欠≫賢3筝 931 1256 1606 1951 -ユ羌欠√睡 931 1256 1606 1951 -ユ羌欠∽祉潟帥弱 931 1256 1606 1951 -ユ羌欠√亥1筝 931 1256 1606 1951 -ユ羌欠∝臀峨 931 1256 1606 1951 -ユ羌欠√銀1筝 931 1256 1606 1951 -ユ羌欠≫ 931 1256 1606 1951 -ユ羌欠∽ 931 1256 1606 1951 -ユ羌欠∽ュ1筝 931 1256 1606 1951 -ユ羌欠√亥2筝 931 1256 1606 1951 -ユ羌欠√亥2筝 931 1256 1606 1951 -ユ羌欠√銀2筝 931 1256 1606 1951 -ユ羌欠∫娯腴倶頑 931 1256 1606 1951 -ユ羌欠∫娯腴倶翫 931 1256 1606 1951 -ユ羌欠√銀4筝 931 1256 1606 1951 -ユ羌欠√臼絎合√ 931 1256 1606 1951 -ユ羌欠∫ 931 1256 1606 1951 -ユ羌欠√闑 931 1256 1606 1951 - -阪帥2筝 935 1300 1610 1955 -阪帥1筝 935 1300 1610 1955 -阪篋九灸梢絮 935 1300 1610 1955 -阪医紫祉潟帥弱 935 1300 1610 1955 -阪ョ合 935 1300 1610 1955 -阪羝 935 1300 1610 1955 -阪絮怨肴タ 935 1300 1610 1955 -阪絽綵号茱 935 1300 1610 1955 -阪筝 935 1300 1610 1955 -阪筝3筝 935 1300 1610 1955 -阪絲睡 935 1300 1610 1955 -阪祉潟帥弱 935 1300 1610 1955 -阪亥1筝 935 1300 1610 1955 -阪腮臀峨 935 1300 1610 1955 -阪銀1筝 935 1300 1610 1955 -阪篏 935 1300 1610 1955 -阪 935 1300 1610 1955 -阪ュ1筝 935 1300 1610 1955 -阪亥2筝 935 1300 1610 1955 -阪亥2筝 935 1300 1610 1955 -阪銀2筝 935 1300 1610 1955 -阪娯腴倶頑 935 1300 1610 1955 -阪娯腴倶翫 935 1300 1610 1955 -阪銀4筝 935 1300 1610 1955 -阪絮怨合√ 935 1300 1610 1955 -阪蕭 935 1300 1610 1955 -阪絨闑 935 1300 1610 1955 - -帥2筝帥1筝 937 1302 1612 1957 -帥2筝篋九灸梢絮 937 1302 1612 1957 -帥2筝医紫祉潟帥弱 937 1302 1612 1957 -帥2筝ョ合 937 1302 1612 1957 -帥2筝羝 937 1302 1612 1957 -帥2筝絮怨肴タ 937 1302 1612 1957 -帥2筝絽綵号茱 937 1302 1612 1957 -帥2筝筝 937 1302 1612 1957 -帥2筝筝3筝 937 1302 1612 1957 -帥2筝絲睡 937 1302 1612 1957 -帥2筝祉潟帥弱 937 1302 1612 1957 -帥2筝亥1筝 937 1302 1612 1957 -帥2筝腮臀峨 937 1302 1612 1957 -帥2筝銀1筝 937 1302 1612 1957 -帥2筝篏 937 1302 1612 1957 -帥2筝 937 1302 1612 1957 -帥2筝ュ1筝 937 1302 1612 1957 -帥2筝亥2筝 937 1302 1612 1957 -帥2筝亥2筝 937 1302 1612 1957 -帥2筝銀2筝 937 1302 1612 1957 -帥2筝娯腴倶頑 937 1302 1612 1957 -帥2筝娯腴倶翫 937 1302 1612 1957 -帥2筝銀4筝 937 1302 1612 1957 -帥2筝絮怨合√ 937 1302 1612 1957 -帥2筝蕭 937 1302 1612 1957 -帥2筝絨闑 937 1302 1612 1957 - -帥1筝篋九灸梢絮 938 1303 1613 1958 -帥1筝医紫祉潟帥弱 938 1303 1613 1958 -帥1筝ョ合 938 1303 1613 1958 -帥1筝羝 938 1303 1613 1958 -帥1筝絮怨肴タ 938 1303 1613 1958 -帥1筝絽綵号茱 938 1303 1613 1958 -帥1筝筝 938 1303 1613 1958 -帥1筝筝3筝 938 1303 1613 1958 -帥1筝絲睡 938 1303 1613 1958 -帥1筝祉潟帥弱 938 1303 1613 1958 -帥1筝亥1筝 938 1303 1613 1958 -帥1筝腮臀峨 938 1303 1613 1958 -帥1筝銀1筝 938 1303 1613 1958 -帥1筝篏 938 1303 1613 1958 -帥1筝 938 1303 1613 1958 -帥1筝ュ1筝 938 1303 1613 1958 -帥1筝亥2筝 938 1303 1613 1958 -帥1筝亥2筝 938 1303 1613 1958 -帥1筝銀2筝 938 1303 1613 1958 -帥1筝娯腴倶頑 938 1303 1613 1958 -帥1筝娯腴倶翫 938 1303 1613 1958 -帥1筝銀4筝 938 1303 1613 1958 -帥1筝絮怨合√ 938 1303 1613 1958 -帥1筝蕭 938 1303 1613 1958 -帥1筝絨闑 938 1303 1613 1958 - -篋九灸梢絮医紫祉潟帥弱 940 1305 1615 2000 -篋九灸梢絮ョ合 940 1305 1615 2000 -篋九灸梢絮羝 940 1305 1615 2000 -篋九灸梢絮絮怨肴タ 940 1305 1615 2000 -篋九灸梢絮絽綵号茱 940 1305 1615 2000 -篋九灸梢絮筝 940 1305 1615 2000 -篋九灸梢絮筝3筝 940 1305 1615 2000 -篋九灸梢絮絲睡 940 1305 1615 2000 -篋九灸梢絮祉潟帥弱 940 1305 1615 2000 -篋九灸梢絮亥1筝 940 1305 1615 2000 -篋九灸梢絮腮臀峨 940 1305 1615 2000 -篋九灸梢絮銀1筝 940 1305 1615 2000 -篋九灸梢絮篏 940 1305 1615 2000 -篋九灸梢絮 940 1305 1615 2000 -篋九灸梢絮ュ1筝 940 1305 1615 2000 -篋九灸梢絮亥2筝 940 1305 1615 2000 -篋九灸梢絮亥2筝 940 1305 1615 2000 -篋九灸梢絮銀2筝 940 1305 1615 2000 -篋九灸梢絮娯腴倶頑 940 1305 1615 2000 -篋九灸梢絮娯腴倶翫 940 1305 1615 2000 -篋九灸梢絮銀4筝 940 1305 1615 2000 -篋九灸梢絮絮怨合√ 940 1305 1615 2000 -篋九灸梢絮蕭 940 1305 1615 2000 -篋九灸梢絮絨闑 940 1305 1615 2000 - -医紫祉潟帥弱ョ合 942 1307 1617 2002 -医紫祉潟帥弱羝 942 1307 1617 2002 -医紫祉潟帥弱絮怨肴タ 942 1307 1617 2002 -医紫祉潟帥弱絽綵号茱 942 1307 1617 2002 -医紫祉潟帥弱筝 942 1307 1617 2002 -医紫祉潟帥弱筝3筝 942 1307 1617 2002 -医紫祉潟帥弱絲睡 942 1307 1617 2002 -医紫祉潟帥弱祉潟帥弱 942 1307 1617 2002 -医紫祉潟帥弱亥1筝 942 1307 1617 2002 -医紫祉潟帥弱腮臀峨 942 1307 1617 2002 -医紫祉潟帥弱銀1筝 942 1307 1617 2002 -医紫祉潟帥弱篏 942 1307 1617 2002 -医紫祉潟帥弱 942 1307 1617 2002 -医紫祉潟帥弱ュ1筝 942 1307 1617 2002 -医紫祉潟帥弱亥2筝 942 1307 1617 2002 -医紫祉潟帥弱亥2筝 942 1307 1617 2002 -医紫祉潟帥弱銀2筝 942 1307 1617 2002 -医紫祉潟帥弱娯腴倶頑 942 1307 1617 2002 -医紫祉潟帥弱娯腴倶翫 942 1307 1617 2002 -医紫祉潟帥弱銀4筝 942 1307 1617 2002 -医紫祉潟帥弱絮怨合√ 942 1307 1617 2002 -医紫祉潟帥弱蕭 942 1307 1617 2002 -医紫祉潟帥弱絨闑 942 1307 1617 2002 - -ョ合堺遣 944 1309 1619 2004 -ョ合阪臼絮肴タ 944 1309 1619 2004 -ョ合阪綵号茱 944 1309 1619 2004 -ョ合坂賢 944 1309 1619 2004 -ョ合坂賢3筝 944 1309 1619 2004 -ョ合阪睡 944 1309 1619 2004 -ョ合堺祉潟帥弱 944 1309 1619 2004 -ョ合阪亥1筝 944 1309 1619 2004 -ョ合榊臀峨 944 1309 1619 2004 -ョ合阪銀1筝 944 1309 1619 2004 -ョ合坂 944 1309 1619 2004 -ョ合堺 944 1309 1619 2004 -ョ合堺ュ1筝 944 1309 1619 2004 -ョ合阪亥2筝 944 1309 1619 2004 -ョ合阪亥2筝 944 1309 1619 2004 -ョ合阪銀2筝 944 1309 1619 2004 -ョ合咲娯腴倶頑 944 1309 1619 2004 -ョ合咲娯腴倶翫 944 1309 1619 2004 -ョ合阪銀4筝 944 1309 1619 2004 -ョ合阪臼絎合√ 944 1309 1619 2004 -ョ合咲 944 1309 1619 2004 -ョ合阪闑 944 1309 1619 2004 - -羝絮怨肴タ 945 1310 1620 2005 -羝絽綵号茱 945 1310 1620 2005 -羝筝 945 1310 1620 2005 -羝筝3筝 945 1310 1620 2005 -羝絲睡 945 1310 1620 2005 -羝祉潟帥弱 945 1310 1620 2005 -羝亥1筝 945 1310 1620 2005 -羝腮臀峨 945 1310 1620 2005 -羝銀1筝 945 1310 1620 2005 -羝篏 945 1310 1620 2005 -羝 945 1310 1620 2005 -羝ュ1筝 945 1310 1620 2005 -羝亥2筝 945 1310 1620 2005 -羝亥2筝 945 1310 1620 2005 -羝銀2筝 945 1310 1620 2005 -羝娯腴倶頑 945 1310 1620 2005 -羝娯腴倶翫 945 1310 1620 2005 -羝銀4筝 945 1310 1620 2005 -羝絮怨合√ 945 1310 1620 2005 -羝蕭 945 1310 1620 2005 -羝絨闑 945 1310 1620 2005 - -絮怨肴タ絽綵号茱 948 1313 1623 2008 -絮怨肴タ筝 948 1313 1623 2008 -絮怨肴タ筝3筝 948 1313 1623 2008 -絮怨肴タ絲睡 948 1313 1623 2008 -絮怨肴タ祉潟帥弱 948 1313 1623 2008 -絮怨肴タ亥1筝 948 1313 1623 2008 -絮怨肴タ腮臀峨 948 1313 1623 2008 -絮怨肴タ銀1筝 948 1313 1623 2008 -絮怨肴タ篏 948 1313 1623 2008 -絮怨肴タ 948 1313 1623 2008 -絮怨肴タュ1筝 948 1313 1623 2008 -絮怨肴タ亥2筝 948 1313 1623 2008 -絮怨肴タ亥2筝 948 1313 1623 2008 -絮怨肴タ銀2筝 948 1313 1623 2008 -絮怨肴タ娯腴倶頑 948 1313 1623 2008 -絮怨肴タ娯腴倶翫 948 1313 1623 2008 -絮怨肴タ銀4筝 948 1313 1623 2008 -絮怨肴タ絮怨合√ 948 1313 1623 2008 -絮怨肴タ蕭 948 1313 1623 2008 -絮怨肴タ絨闑 948 1313 1623 2008 - -絽綵号茱推賢 951 1316 1626 2011 -絽綵号茱推賢3筝 951 1316 1626 2011 -絽綵号茱水睡 951 1316 1626 2011 -絽綵号茱炊祉潟帥弱 951 1316 1626 2011 -絽綵号茱水亥1筝 951 1316 1626 2011 -絽綵号茱睡臀峨 951 1316 1626 2011 -絽綵号茱水銀1筝 951 1316 1626 2011 -絽綵号茱推 951 1316 1626 2011 -絽綵号茱炊 951 1316 1626 2011 -絽綵号茱炊ュ1筝 951 1316 1626 2011 -絽綵号茱水亥2筝 951 1316 1626 2011 -絽綵号茱水亥2筝 951 1316 1626 2011 -絽綵号茱水銀2筝 951 1316 1626 2011 -絽綵号茱翠娯腴倶頑 951 1316 1626 2011 -絽綵号茱翠娯腴倶翫 951 1316 1626 2011 -絽綵号茱水銀4筝 951 1316 1626 2011 -絽綵号茱水臼絎合√ 951 1316 1626 2011 -絽綵号茱翠 951 1316 1626 2011 -絽綵号茱水闑 951 1316 1626 2011 - -筝坂賢3筝 952 1317 1627 2012 -筝阪睡 952 1317 1627 2012 -筝堺祉潟帥弱 952 1317 1627 2012 -筝阪亥1筝 952 1317 1627 2012 -筝榊臀峨 952 1317 1627 2012 -筝阪銀1筝 952 1317 1627 2012 -筝坂 952 1317 1627 2012 -筝堺 952 1317 1627 2012 -筝堺ュ1筝 952 1317 1627 2012 -筝阪亥2筝 952 1317 1627 2012 -筝阪亥2筝 952 1317 1627 2012 -筝阪銀2筝 952 1317 1627 2012 -筝咲娯腴倶頑 952 1317 1627 2012 -筝咲娯腴倶翫 952 1317 1627 2012 -筝阪銀4筝 952 1317 1627 2012 -筝阪臼絎合√ 952 1317 1627 2012 -筝咲 952 1317 1627 2012 -筝阪闑 952 1317 1627 2012 - -筝3筝絲睡 953 1318 1628 2013 -筝3筝祉潟帥弱 953 1318 1628 2013 -筝3筝亥1筝 953 1318 1628 2013 -筝3筝腮臀峨 953 1318 1628 2013 -筝3筝銀1筝 953 1318 1628 2013 -筝3筝篏 953 1318 1628 2013 -筝3筝 953 1318 1628 2013 -筝3筝ュ1筝 953 1318 1628 2013 -筝3筝亥2筝 953 1318 1628 2013 -筝3筝亥2筝 953 1318 1628 2013 -筝3筝銀2筝 953 1318 1628 2013 -筝3筝娯腴倶頑 953 1318 1628 2013 -筝3筝娯腴倶翫 953 1318 1628 2013 -筝3筝銀4筝 953 1318 1628 2013 -筝3筝絮怨合√ 953 1318 1628 2013 -筝3筝蕭 953 1318 1628 2013 -筝3筝絨闑 953 1318 1628 2013 - -絲睡堺祉潟帥弱 954 1319 1629 2014 -絲睡阪亥1筝 954 1319 1629 2014 -絲睡榊臀峨 954 1319 1629 2014 -絲睡阪銀1筝 954 1319 1629 2014 -絲睡坂 954 1319 1629 2014 -絲睡堺 954 1319 1629 2014 -絲睡堺ュ1筝 954 1319 1629 2014 -絲睡阪亥2筝 954 1319 1629 2014 -絲睡阪亥2筝 954 1319 1629 2014 -絲睡阪銀2筝 954 1319 1629 2014 -絲睡咲娯腴倶頑 954 1319 1629 2014 -絲睡咲娯腴倶翫 954 1319 1629 2014 -絲睡阪銀4筝 954 1319 1629 2014 -絲睡阪臼絎合√ 954 1319 1629 2014 -絲睡咲 954 1319 1629 2014 -絲睡阪闑 954 1319 1629 2014 - -祉潟帥弱亥1筝 956 1321 1631 2016 -祉潟帥弱腮臀峨 956 1321 1631 2016 -祉潟帥弱銀1筝 956 1321 1631 2016 -祉潟帥弱篏 956 1321 1631 2016 -祉潟帥弱 956 1321 1631 2016 -祉潟帥弱ュ1筝 956 1321 1631 2016 -祉潟帥弱亥2筝 956 1321 1631 2016 -祉潟帥弱亥2筝 956 1321 1631 2016 -祉潟帥弱銀2筝 956 1321 1631 2016 -祉潟帥弱娯腴倶頑 956 1321 1631 2016 -祉潟帥弱娯腴倶翫 956 1321 1631 2016 -祉潟帥弱銀4筝 956 1321 1631 2016 -祉潟帥弱絮怨合√ 956 1321 1631 2016 -祉潟帥弱蕭 956 1321 1631 2016 -祉潟帥弱絨闑 956 1321 1631 2016 - -亥1筝腮臀峨 957 1322 1632 2017 -亥1筝銀1筝 957 1322 1632 2017 -亥1筝篏 957 1322 1632 2017 -亥1筝 957 1322 1632 2017 -亥1筝ュ1筝 957 1322 1632 2017 -亥1筝亥2筝 957 1322 1632 2017 -亥1筝亥2筝 957 1322 1632 2017 -亥1筝銀2筝 957 1322 1632 2017 -亥1筝娯腴倶頑 957 1322 1632 2017 -亥1筝娯腴倶翫 957 1322 1632 2017 -亥1筝銀4筝 957 1322 1632 2017 -亥1筝絮怨合√ 957 1322 1632 2017 -亥1筝蕭 957 1322 1632 2017 -亥1筝絨闑 957 1322 1632 2017 - -腮臀峨銀1筝 958 1323 1633 2018 -腮臀峨篏 958 1323 1633 2018 -腮臀峨 958 1323 1633 2018 -腮臀峨ュ1筝 958 1323 1633 2018 -腮臀峨亥2筝 958 1323 1633 2018 -腮臀峨亥2筝 958 1323 1633 2018 -腮臀峨銀2筝 958 1323 1633 2018 -腮臀峨娯腴倶頑 958 1323 1633 2018 -腮臀峨娯腴倶翫 958 1323 1633 2018 -腮臀峨銀4筝 958 1323 1633 2018 -腮臀峨絮怨合√ 958 1323 1633 2018 -腮臀峨蕭 958 1323 1633 2018 -腮臀峨絨闑 958 1323 1633 2018 - -銀1筝篏 958 1323 1633 2018 -銀1筝 958 1323 1633 2018 -銀1筝ュ1筝 958 1323 1633 2018 -銀1筝亥2筝 958 1323 1633 2018 -銀1筝亥2筝 958 1323 1633 2018 -銀1筝銀2筝 958 1323 1633 2018 -銀1筝娯腴倶頑 958 1323 1633 2018 -銀1筝娯腴倶翫 958 1323 1633 2018 -銀1筝銀4筝 958 1323 1633 2018 -銀1筝絮怨合√ 958 1323 1633 2018 -銀1筝蕭 958 1323 1633 2018 -銀1筝絨闑 958 1323 1633 2018 - -篏堺 1004 1329 1639 2024 -篏堺ュ1筝 1004 1329 1639 2024 -篏阪亥2筝 1004 1329 1639 2024 -篏阪亥2筝 1004 1329 1639 2024 -篏阪銀2筝 1004 1329 1639 2024 -篏咲娯腴倶頑 1004 1329 1639 2024 -篏咲娯腴倶翫 1004 1329 1639 2024 -篏阪銀4筝 1004 1329 1639 2024 -篏阪臼絎合√ 1004 1329 1639 2024 -篏咲 1004 1329 1639 2024 -篏阪闑 1004 1329 1639 2024 - -堺ュ1筝 1006 1331 1641 2026 -阪亥2筝 1006 1331 1641 2026 -阪亥2筝 1006 1331 1641 2026 -阪銀2筝 1006 1331 1641 2026 -咲娯腴倶頑 1006 1331 1641 2026 -咲娯腴倶翫 1006 1331 1641 2026 -阪銀4筝 1006 1331 1641 2026 -阪臼絎合√ 1006 1331 1641 2026 -咲 1006 1331 1641 2026 -阪闑 1006 1331 1641 2026 - -阪亥2筝 1007 1332 1642 2027 -阪亥2筝 1007 1332 1642 2027 -阪銀2筝 1007 1332 1642 2027 -咲娯腴倶頑 1007 1332 1642 2027 -咲娯腴倶翫 1007 1332 1642 2027 -阪銀4筝 1007 1332 1642 2027 -阪臼絎合√ 1007 1332 1642 2027 -咲 1007 1332 1642 2027 -阪闑 1007 1332 1642 2027 - -亥2筝亥2筝 1008 1333 1643 2028 -亥2筝銀2筝 1008 1333 1643 2028 -亥2筝娯腴倶頑 1008 1333 1643 2028 -亥2筝娯腴倶翫 1008 1333 1643 2028 -亥2筝銀4筝 1008 1333 1643 2028 -亥2筝絮怨合√ 1008 1333 1643 2028 -亥2筝蕭 1008 1333 1643 2028 -亥2筝絨闑 1008 1333 1643 2028 - -亥2筝銀2筝 1009 1334 1644 2029 -亥2筝娯腴倶頑 1009 1334 1644 2029 -亥2筝娯腴倶翫 1009 1334 1644 2029 -亥2筝銀4筝 1009 1334 1644 2029 -亥2筝絮怨合√ 1009 1334 1644 2029 -亥2筝蕭 1009 1334 1644 2029 -亥2筝絨闑 1009 1334 1644 2029 - -銀2筝娯腴倶頑 1010 1335 1645 2030 -銀2筝娯腴倶翫 1010 1335 1645 2030 -銀2筝銀4筝 1010 1335 1645 2030 -銀2筝絮怨合√ 1010 1335 1645 2030 -銀2筝蕭 1010 1335 1645 2030 -銀2筝絨闑 1010 1335 1645 2030 - -娯腴倶頑娯腴倶翫 1011 1336 1646 2031 -娯腴倶頑銀4筝 1011 1336 1646 2031 -娯腴倶頑絮怨合√ 1011 1336 1646 2031 -娯腴倶頑蕭 1011 1336 1646 2031 -娯腴倶頑絨闑 1011 1336 1646 2031 - -娯腴倶翫銀4筝 1012 1337 1647 2032 -娯腴倶翫絮怨合√ 1012 1337 1647 2032 -娯腴倶翫蕭 1012 1337 1647 2032 -娯腴倶翫絨闑 1012 1337 1647 2032 - -銀4筝絮怨合√ 1013 1338 1648 2033 -銀4筝蕭 1013 1338 1648 2033 -銀4筝絨闑 1013 1338 1648 2033 - -絮怨合√蕭 1015 1340 1650 2035 -絮怨合√絨闑 1015 1340 1650 2035 - -蕭絨闑 1016 1341 1651 2036 diff -r 2e332b1abf94 -r d2d89793be14 shuzai/dezima/dezima.html --- a/shuzai/dezima/dezima.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/dezima/dezima.html Mon May 21 10:19:01 2018 +0900 @@ -3,7 +3,7 @@ 出島　取材 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/hoge.html --- a/shuzai/hoge.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/hoge.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ もあれ - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/iekda.html --- a/shuzai/iekda.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/iekda.html Mon May 21 10:19:01 2018 +0900 @@ -3,7 +3,7 @@ 出島　取材 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/ijuu.html --- a/shuzai/ijuu.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/ijuu.html Mon May 21 10:19:01 2018 +0900 @@ -29,7 +29,7 @@
    - + @@ -40,7 +40,7 @@

    -

    top > +

    top > 取材 > 移住Q&A

    取材
    取材 もぐもぐ 動物園 日替わりランチ
    diff -r 2e332b1abf94 -r d2d89793be14 shuzai/ijuuorg.html --- a/shuzai/ijuuorg.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/ijuuorg.html Mon May 21 10:19:01 2018 +0900 @@ -24,7 +24,7 @@
    - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/ikeda.html --- a/shuzai/ikeda.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/ikeda.html Mon May 21 10:19:01 2018 +0900 @@ -3,7 +3,7 @@ 出島　取材 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/iturn/iturn.html --- a/shuzai/iturn/iturn.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/iturn/iturn.html Mon May 21 10:19:01 2018 +0900 @@ -8,7 +8,7 @@ - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/kerun/kerun.html --- a/shuzai/kerun/kerun.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/kerun/kerun.html Mon May 21 10:19:01 2018 +0900 @@ -8,7 +8,7 @@ --> - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/keyaki/keyaki.html --- a/shuzai/keyaki/keyaki.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/keyaki/keyaki.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ 欅 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/minatoza/minatoza.html --- a/shuzai/minatoza/minatoza.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/minatoza/minatoza.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ 港座 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/moare/moare.html --- a/shuzai/moare/moare.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/moare/moare.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ モアレ - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/nakamura/nakamura.html --- a/shuzai/nakamura/nakamura.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/nakamura/nakamura.html Mon May 21 10:19:01 2018 +0900 @@ -9,7 +9,7 @@ --> - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/nisimura/nisimura.html --- a/shuzai/nisimura/nisimura.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/nisimura/nisimura.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ フルーツデリにしむら - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/romantei/romantei.html --- a/shuzai/romantei/romantei.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/romantei/romantei.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ 浪漫亭 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/rupo/rupo.html --- a/shuzai/rupo/rupo.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/rupo/rupo.html Mon May 21 10:19:01 2018 +0900 @@ -2,7 +2,7 @@ ル・ポットフー - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/shounaihormone/shonaihormone.html --- a/shuzai/shounaihormone/shonaihormone.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/shounaihormone/shonaihormone.html Mon May 21 10:19:01 2018 +0900 @@ -3,7 +3,7 @@ 庄内ホルモン - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/shuzai.css --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/shuzai/shuzai.css Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,19 @@ + +body{ + background: #FFEEFF; +} + +div.main{ + background: white; border: 10px solid #fdea0f; padding: 1em; margin: 10px; +} + +dt{background: #99FFFF; margin: 1em; padding: 3px; +} + +dd{background: #66FF33; padding: 3px; +} + +p.r{float: right; margin: 1em; +} + +h1{text-align: center;} diff -r 2e332b1abf94 -r d2d89793be14 shuzai/shuzai.html --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/shuzai/shuzai.html Mon May 21 10:19:01 2018 +0900 @@ -0,0 +1,69 @@ + + + +SKIP - Shonai Koeki Information Project + + + + + +
    +
    +
    取材
    取材 もぐもぐ 動物園 日替わりランチ
    + +
    top取材プログラム + アンケートきらりびと
    +
    +
    + +
    +kamon +
    + +

    新着情報 「花月」記事を更新！！

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

    取材一覧

    + + + + + + + + + + + + + + + + + + +
    もぐもぐ移住情報動物園日替わりランチ +特産物釣り情報
    +
    + + + + + + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/syuzai.css --- a/shuzai/syuzai.css Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,19 +0,0 @@ - -body{ - background: #FFEEFF; -} - -div.main{ - background: white; border: 10px solid #fdea0f; padding: 1em; margin: 10px; -} - -dt{background: #99FFFF; margin: 1em; padding: 3px; -} - -dd{background: #66FF33; padding: 3px; -} - -p.r{float: right; margin: 1em; -} - -h1{text-align: center;} diff -r 2e332b1abf94 -r d2d89793be14 shuzai/syuzai.html --- a/shuzai/syuzai.html Mon May 21 10:11:23 2018 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,69 +0,0 @@ - - - -SKIP - Shonai Koeki Information Project - - - - - -
    -
    - - -
    top取材プログラム - アンケートきらりびと
    -
    -
    - -
    -kamon -
    - -

    新着情報 「花月」記事を更新！！

    - - - - - -
    - - - - - -
    - - - -

    取材一覧

    - - - - - - - - - - - - - - - - - - -
    もぐもぐ移住情報動物園日替わりランチ -特産物釣り情報
    -
    - - - - - - diff -r 2e332b1abf94 -r d2d89793be14 shuzai/tokusan/tokusan.html --- a/shuzai/tokusan/tokusan.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/tokusan/tokusan.html Mon May 21 10:19:01 2018 +0900 @@ -33,7 +33,7 @@
    - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/tokusan/tukusi/tukusi.html --- a/shuzai/tokusan/tukusi/tukusi.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/tokusan/tukusi/tukusi.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ 土筆 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/tukusi/tukusi.html --- a/shuzai/tukusi/tukusi.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/tukusi/tukusi.html Mon May 21 10:19:01 2018 +0900 @@ -1,7 +1,7 @@ 土筆 - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/viminale/viminale.html --- a/shuzai/viminale/viminale.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/viminale/viminale.html Mon May 21 10:19:01 2018 +0900 @@ -3,7 +3,7 @@ ビミナーレ - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/zoo/index.html --- a/shuzai/zoo/index.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/zoo/index.html Mon May 21 10:19:01 2018 +0900 @@ -26,7 +26,7 @@
    取材
    取材 もぐもぐ 移住情報 動物園
    - + @@ -72,7 +72,7 @@
    取材
    取材 もぐもぐ 移住情報 日替わりランチ
    -戻る +戻る
    home diff -r 2e332b1abf94 -r d2d89793be14 shuzai/zoo/sakata.html --- a/shuzai/zoo/sakata.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/zoo/sakata.html Mon May 21 10:19:01 2018 +0900 @@ -39,7 +39,7 @@

    地図に戻る

    -

    取材一覧に戻る

    +

    取材一覧に戻る

    トップページに戻る

    diff -r 2e332b1abf94 -r d2d89793be14 shuzai/zoo/sakata2.html --- a/shuzai/zoo/sakata2.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/zoo/sakata2.html Mon May 21 10:19:01 2018 +0900 @@ -39,7 +39,7 @@

    地図に戻る

    -

    取材一覧に戻る

    +

    取材一覧に戻る

    トップページに戻る

    diff -r 2e332b1abf94 -r d2d89793be14 shuzai/zoo/shonaiA.html --- a/shuzai/zoo/shonaiA.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/zoo/shonaiA.html Mon May 21 10:19:01 2018 +0900 @@ -29,7 +29,7 @@
    - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/zoo/syounaiA.html --- a/shuzai/zoo/syounaiA.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/zoo/syounaiA.html Mon May 21 10:19:01 2018 +0900 @@ -21,7 +21,7 @@
    取材
    取材 もぐもぐ 移住情報 日替わりランチ
    - + diff -r 2e332b1abf94 -r d2d89793be14 shuzai/zoo/tsuruoka.html --- a/shuzai/zoo/tsuruoka.html Mon May 21 10:11:23 2018 +0900 +++ b/shuzai/zoo/tsuruoka.html Mon May 21 10:19:01 2018 +0900 @@ -40,7 +40,7 @@

    地図に戻る

    -

    取材一覧に戻る

    +

    取材一覧に戻る

    トップページに戻る

    diff -r 2e332b1abf94 -r d2d89793be14 skip.css --- a/skip.css Mon May 21 10:11:23 2018 +0900 +++ b/skip.css Mon May 21 10:19:01 2018 +0900 @@ -149,7 +149,7 @@ /*H@*/ -div.syuzai_pic img{ +div.shuzai_pic img{ border: 2px yellow solid; box-shadow: orange 3px 3px 3px; } diff -r 2e332b1abf94 -r d2d89793be14 staff/ayae/index.html --- a/staff/ayae/index.html Mon May 21 10:11:23 2018 +0900 +++ b/staff/ayae/index.html Mon May 21 10:19:01 2018 +0900 @@ -17,6 +17,6 @@

    あやえのつぶやき

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

    -

    +

    diff -r 2e332b1abf94 -r d2d89793be14 staff/staff.html --- a/staff/staff.html Mon May 21 10:11:23 2018 +0900 +++ b/staff/staff.html Mon May 21 10:19:01 2018 +0900 @@ -17,7 +17,7 @@
    取材
    取材 もぐもぐ 移住情報 日替わりランチ
    - +
    top取材プログラムアンケート
    top取材プログラムアンケート
    diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/akanegimiso_i.jpg Binary file syuzai/tokusan/akanegimiso_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/akebi_i.jpg Binary file syuzai/tokusan/akebi_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/babaroa_i.jpg Binary file syuzai/tokusan/babaroa_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/budou_i.jpg Binary file syuzai/tokusan/budou_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/ichigo_i.jpg Binary file syuzai/tokusan/ichigo_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/ingen_i.jpg Binary file syuzai/tokusan/ingen_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/kaki_i.jpg Binary file syuzai/tokusan/kaki_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/meron_i.jpg Binary file syuzai/tokusan/meron_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/nashi_i.jpg Binary file syuzai/tokusan/nashi_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/ringo2_i.jpg Binary file syuzai/tokusan/ringo2_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/tomatojamu2_i.jpg Binary file syuzai/tokusan/tomatojamu2_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/tokusan/tsukemono_i.jpg Binary file syuzai/tokusan/tsukemono_i.jpg has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/zoo/mikawa.png Binary file syuzai/zoo/mikawa.png has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/zoo/pict/domon.JPG Binary file syuzai/zoo/pict/domon.JPG has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/zoo/sakata.png Binary file syuzai/zoo/sakata.png has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/zoo/syounai.png Binary file syuzai/zoo/syounai.png has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/zoo/syounaitiiki.png Binary file syuzai/zoo/syounaitiiki.png has changed diff -r 2e332b1abf94 -r d2d89793be14 syuzai/zoo/turuoka.png Binary file syuzai/zoo/turuoka.png has changed