From: "成田恭一[NWH]" <ntnarita_prn@...>
Date: 2011-07-15T17:49:39+09:00
Subject: [ruby-list:48210] REXMLで無限ループがとまりません

$B$*@$OC$K$J$C$F$*$j$^$9!#@.ED$H?=$7$^$9!#(B
REXML$B$r;H$C$F$_$h$&$+$J$H;W$C$F(B
$B2<5-$N$h$&$J%=!<%9$r:n$C$?$s$G$9$,(B
$B8+;vL58B%k!<%W$7$F$^$9!#(B
Ruby$B$O$IAG?M$G$9!#(B
$B2?$,0-$$$N$+65$($F$$$?$@$1$k$H=u$+$j$^$9!#(B

$B%=!<%9$O0J2<$G$9(B
#!ruby -Ke
require 'rexml/document'
require 'net/https'

sqldata =[]
sqldata=[["1", "4", "", "10001", "20110710", "900", "1"], ["1", "1", "", 
"10001", "20110710", "1200", "1"]]
p sqldata

i=0
while i<sqldata.length

yoyakuday_tmp =sqldata[i][4].unpack("a4a2a2")
yoyakuday = yoyakuday_tmp[0]+"-"+yoyakuday_tmp[1]+"-"+yoyakuday_tmp[2]
yoyakutime_tmp = sprintf("%04d",sqldata[i][5]).unpack("a2a2")
yoyakutime = yoyakutime_tmp[0]+":"+yoyakutime_tmp[1]+":00"

doc = REXML::Document.new
doc << REXML::XMLDecl.new('1.0', 'UTF-8')

# add_element $B$ODI2C$7$?;RMWAG$rJV$9(B
feed = doc.add_element("record", {"name" => "appointreq"})
feed.add_element("string", {'name' => 'Patient_ID'}).add_text sqldata[i][1]
feed.add_element("string", {'name' => 'Appointment_Date'}).add_text 
yoyakuday
feed.add_element("string", {'name' => 'Appointment_Time'}).add_text 
yoyakutime
feed.add_element("string", {'name' => 'Appointment_Id'  }).add_text ""
feed.add_element("string", {'name' => 'Department_Code' }).add_text "01"
feed.add_element("string", {'name' => 'Physician_Code'  }).add_text 
sqldata[i][3]
feed.add_element("string", {'name' => 'Medical_Information'}).add_text  "01"
feed.add_element("string", {'name' => 'Appointment_Information'}).add_text 
"01"
feed.add_element("string", {'name' => 'Appointment_Note'}).add_text  ""
print doc.root
end

$B$4;XF3$*4j$$$$$?$7$^$9!#(B
$B!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g!g(B
$B!!@.ED!!630l!!3t<02q<R%M%C%H%o!<%/KL3$F;(B
$B!!!!!!!!(B $B3+H/<<!!;%KZ;T@>6hFs==;M8.(B1-4$B2C?9%S%k-(#33,(B
$B!!!!!!!!!!!!!!-d(B011-614-9130   fax011-614-2699
$B!!!!!!!!!!!!!!(B http://www.ntwork.co.jp
               mail$B!'(Bntnarita_prn@net-do.jp
$B!!!!!!!!(B $BK\!!<R!!;%KZ;T@>6h@>D.Fn#1#7!]#2!]#4#0(B
$B!!!!!!!!!!!!!!-d(B011-661-6618$B!!(B fax011-661-6931
         $BEl5~;YE9(B $BEl5~ET?7=I6h@>?7=I#6!]#1#0!]#1(B
$B!!!!!!!!!!!!!!!!!!!!F|EZCO?7=I%S%k(B $B#83,(B
$B!!!!!!!!!!!!!!!!!!(B $B-d(B 03-5325-3370
$B!g!g!g!g!g!g!g(B Network Hokkaido Inc. $B!g!g!g!g!g!g(B