第 12 回 自由課題準備 (2) レポート課題 氏名:菊地瑞紀 学籍番号:c110067 語学クラス:英語6 コース(系):地域共創コース チーム名:最長6時間 チームホームページアドレス:http://roy/~c110127/6hour/ プロジェクト名:最短6秒 1、チームの進み具合はプログラムを作成中です。 デモ版は両プロジェクト共に完成しました。プレゼンテーション原稿、ポスター なども完成しました。 2、プロジェクト全体の進み具合は、デモ版が完成しました。 冬休み中は各自でデータを作成してくるという分担をし、時間調整をしながら各 自で集まってプログラムを完成させていきます。 今のところまだデータが出来ていないのでプログラムはあまり進んでいませんが、 学校が年明け開くので、皆で集まって考えていきます。 3、 プロジェクトの担当部分は、 チームのHP作成 データの作成 デモ版の作成 を担当しました。 4、 病院の科によってアイコンのような画像を表示させたらいいのではないかという 意見がありました。 5、その指摘による改良はアイコン画像の作成をするというところまでしました。 これから、作成したアイコン画像を表示させ、見やすいページにしていきます。 7、デモ版係 [作成意図] デモ版なので簡単なものを作ろうと思った。 鶴岡のみのデータなのでそこまで複雑なプログラムではないが、これをもっと発 展させたプログラムにしていきたい。 [プログラム本体] ■表示部分 #!/usr/koeki/bin/ruby require 'cgi' # cgiを使う宣言をする cgi = CGI.new("html4") # CGIをHTML文書に使う宣言 print("Content-type: text/html; charset=EUC-jp\n\n") ka = cgi["ka"] # kaとしてcgiでもってくる tiku = cgi["tiku"] # tikuとしてcgiでもってくる read = Hash.new # readで新しく配列をつくる print("\n") print("\n") print("\n") print("<\head>\n") print("\n") printf("

病院を検索します

") kamoku = Regexp.new(ka,true,"e") # Regexpで場合分け if kamoku == nil # nilの場合は print("

ありません

") # こっちを表示 elsif if tiku == "turuoka" # 鶴岡を選択した場合 print("

鶴岡市の病院

\n") if ka == "naika" # 内科を選択した場合 open("turuoka.txt","r") do |date| #データを読みこむ while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(内科+\S+)/ =~ line # 正規表現で、内科が入っているものだけをマッチさせる printf("

病院名 : %s\n

",$1) # htmlで表示 printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "sinryou" # 心療内科の場合 open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*心療+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "seisin" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*精神+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "kokyu" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*呼吸+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "syouka" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*消化+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "junkan" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*循環+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "riumati" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*リウマチ+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "syouni" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*小児+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "geka" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+\:+外科+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "seikeigeka" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*整形+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "rihabiri" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*リハビリ+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end if ka == "housya" open("turuoka.txt","r") do |date| while line = date.gets if /(\S+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S*放射+\S+)/ =~ line printf("

病院名 : %s\n

",$1) printf("

電話番号 : %s\n

",$2) printf("

診察時間 :%s\n

",$3) printf("

休診日 : %s\n

",$4) printf("

科 : %s\n

",$5) print("

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

\n") end end end end end end print("\n") print("\n") ■入力部分(html) 最短6秒

最短6秒

はじめに

これは庄内地域の病院を最短6秒で検索できる便利機能です!

鶴岡市