ࡱ> 'jQh|} e g \ _dcba`S R$KbjbjcTcTF>>A7  ooo8L4d= = = U %Xq(T)^ccccccfilc9oq*$%q*q*c  = U *c...q*4 *= oU ZIL.q*^..@5:A= b-pAFId04dA8i-i(AA"ioAhq*q*.q*q*q*q*q*ccu.jq*q*q*4dq*q*q*q*iq*q*q*q*q*q*q*q*q* :  FORMTEXT kaisetu2011.dot Sb{v2k0O0!q}@\n0 FORMDROPDOWN   FORMTEXT      t^ FORMTEXT      g FORMTEXT      e0 FORMDROPDOWN 0 FORMTEXT        FORMDROPDOWN 0k  3u ˊ 0 FORMDROPDOWN  OjuS  FORMTEXT      FORMTEXT      OO@b0000  FORMTEXT       OO@b  FORMTEXT       0000  FORMTEXT       l TSo0 Ty  FORMTEXT      0pS Nhy_w  FORMTEXT       0000  FORMTEXT        FORMTEXT       Nhl T  FORMTEXT        FORMTEXT       qjuS  FORMTEXT       N t N _ N t N OjuS  FORMTEXT      FORMTEXT      OjuS  FORMTEXT      FORMTEXT       OO@b0000  FORMTEXT       OO@b0000  FORMTEXT       OO@b  FORMTEXT       OO@b  FORMTEXT       l T0000  FORMTEXT       l T0000  FORMTEXT       l T  FORMTEXT      0pS l T  FORMTEXT      0pS Nhy_w  FORMTEXT       Nhy_w  FORMTEXT       0000  FORMTEXT      0 FORMTEXT      0pS 0000  FORMTEXT      0 FORMTEXT      0pS Nhl T  FORMTEXT      0 FORMTEXT      0pS Nhl T  FORMTEXT 8:<RTprtvx땅rcMr:+hh^,CJOJPJaJ%jhh^,CJOJPJUaJ+jhhQCJOJPJUaJhh+CJOJPJaJ%jhh+CJOJPJUaJhhCJOJPJaJo((h6h6B*CJOJPJaJo(ph*h6B*CJOJPJaJmHnHphu4jh6h6B*CJOJPJUaJphh6B*CJOJPJaJph(jh6B*CJOJPJUaJph<v< d j ( X Z   dG$XD2gd+  @dG$gd/  @dG$gd6  dG$gd/  dG$gd/ dG$gd+$a$gd+ $4$a$gd+$a$gd $dxG$a$gd6ֽ֩m]Q;]+jPhohfCJOJPJUaJhoCJOJPJaJjhoCJOJPJUaJ+jhh+CJOJPJUaJ$hh+CJOJPJaJnHtH%jhh+CJOJPJUaJ'hh+CJOJPJaJnHo(tH0jhhmHCJOJPJUaJmHnHu%jhh^,CJOJPJUaJ+jBhhCJOJPJUaJ     * , . 8 : < > ƳsYs>s-!jhh+CJOJPJU4jhhmHCJOJPJUaJmHnHtHu3jThh+CJOJPJUaJnHtH-jhh+CJOJPJUaJnHtH+jhhQCJOJPJUaJ$hh+CJOJPJaJnHtH%jhh+CJOJPJUaJ'hh+CJOJPJaJnHo(tHjhoCJOJPJUaJ*jhoCJOJPJUaJmHnHu> Z \ ^ d f j l n p r t v x ʺwfYEf8h/CJKHOJPJo('jPhhQCJOJPJUhhCJOJPJ!jhhCJOJPJUhhCJOJPJo(hh+CJOJPJhh+CJOJPJo(3jhh.9xCJOJPJUaJmHnHo(uhh+CJOJPJaJo(!jhh+CJOJPJU'jhhQCJOJPJU hh+CJOJPJnHtH ŲtcS=tc+jhh/CJKHOJPJUhh/CJKHOJPJo(!jhh/CJOJPJU0jhh/CJKHOJPJUmHnHu+jhh/CJKHOJPJUhh/CJKHOJPJ%jhh/CJKHOJPJUh/CJKHOJPJo(*h/h/CJKHOJPJo(v.h/h/@7CJKHOJPJo(v     $ & ( * , . 0 λyh[?%2h/h+CJKHOJPJnHo(tHvʤ6h/h+@YCJKHOJPJnHo(tHvʤh/CJKHOJPJo(!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jVhh0@CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJUh6CJKHOJPJo(hh+CJKHOJPJo('hh+CJKHOJPJnHo(tH0 2 F H J T V X Z ` b d f z | ~ 쪙~fPC-쪙+jhh+CJKHOJPJUh6CJKHOJPJo(*h/h+CJKHOJPJo(v8.h/h+@<CJKHOJPJo(v8h/CJKHOJPJo(hh+CJOJPJo(!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jhh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJU ̼톜m\@6h6h+@CJKHOJPJnHo(tHv8!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+j hh+CJKHOJPJU%jhh+CJKHOJPJUh6CJKHOJPJo(hh+CJKHOJPJo('hh+CJKHOJPJnHo(tHh/CJKHOJPJo($hh+CJKHOJPJnHtH   ıĂq`S;%S*h6h6CJKHOJPJo(v8.h6h6@<CJKHOJPJo(v8h6CJKHOJPJo( hh+CJOJPJnHtH!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+j hh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJUh6CJKHOJPJo(6h6h+@CJKHOJPJnHo(tHv8 " $ . 0 2 4 H J L V X Z \ d f 쪙ك쪙xkO52h6h+CJKHOJPJnHo(tHvʤ6h6h+@CJKHOJPJnHo(tHvʤh/CJKHOJPJo(h6CJOJPJo(+j hh6CJKHOJPJU!jhh6CJOJPJU0jhh6CJKHOJPJUmHnHu+jb hh6CJKHOJPJU$hh6CJKHOJPJnHtH%jhh6CJKHOJPJUf h j ~ ̶ߝvߝdW;6h/h/@7CJKHOJPJnHo(tHvh/CJKHOJPJo(#hh+CJOJPJnHo(tH+jH hh+CJKHOJPJU!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+j hh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJUh6CJKHOJPJo(    ƳƄsaO>O0O0O0Ohh+CJOJPJo( hh+CJOJPJnHtH#hh+CJOJPJnHo(tH#hh/CJOJPJnHo(tH!jhh/CJOJPJU0jhh/CJKHOJPJUmHnHu+j hh/CJKHOJPJU$hh/CJKHOJPJnHtH%jhh/CJKHOJPJUh/CJKHOJPJo(2h/h/CJKHOJPJnHo(tHv      * , . 4 6 8 : N ʴoVE5hh+CJKHOJPJo(!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+j hh+CJKHOJPJUhh+CJKHOJPJ%jhh+CJKHOJPJUh6CJKHOJPJo(*h/h+CJKHOJPJo(vʤ.h/h+@7CJKHOJPJo(vʤh/CJKHOJPJo( hh+CJOJPJnHtHN P R Z \ ^ d f h j ~ ֽpcT>ֽ.Thh+CJKHOJPJo(+jhh+CJKHOJPJUhh+CJKHOJPJh/CJKHOJPJo(*hh+CJKHOJPJo(vʤ.hh+@7CJKHOJPJo(vʤhh+CJOJPJo(!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu%jhh+CJKHOJPJU+jFhh+CJKHOJPJU     ֽufPֽff:ֽ+jhh+CJKHOJPJU+jRhh+CJKHOJPJUhh+CJKHOJPJh6CJKHOJPJo(hh+CJKHOJPJo(h/CJKHOJPJo(hh+CJOJPJ!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu%jhh+CJKHOJPJU+jhh+CJKHOJPJU " T|>DDDJENE\Ex $Ifgd%#$a$gd4#%VDWD^`gd+gd+  @@dG$gd/  dG$gd/  @dG$gd/  dG$gd/  dG$gd/  dG$gd/  " $ & ( * , @ B D N P R T V X Z n Һґ{bJ4ґ*h/h+CJKHOJPJo(vʤ.h/h+@YCJKHOJPJo(vʤ0jhhmHCJKHOJPJUmHnHu+jhh+CJKHOJPJU%jhh+CJKHOJPJU*h/h+CJKHOJPJo(vʤ.h/h+@YCJKHOJPJo(vʤh/CJKHOJPJo(hh+CJKHOJPJ!jhh+CJOJPJUn p r | ~ ֽ֝jֽ֝TֽGhh+CJOJPJ+jJhh+CJKHOJPJU+jhh+CJKHOJPJUhh+CJKHOJPJo(h/CJKHOJPJo(hh+CJKHOJPJ!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu%jhh+CJKHOJPJU+j.hh+CJKHOJPJU  "$ʽhWC'6h/h+@YCJKHOJPJnHo(tHvʤ'hh+CJKHOJPJnHo(tH!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jhh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJUh/CJKHOJPJo(2h/h+CJKHOJPJnHo(tHvʤ6h/h+@YCJKHOJPJnHo(tHvʤ $&(*>@BLNRTV^`bƳƄs_C'6h/h+@CJKHOJPJnHo(tHv86h/h+@CJKHOJPJnHo(tHv8'hh+CJKHOJPJnHo(tH!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jfhh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJUh/CJKHOJPJo(2h/h+CJKHOJPJnHo(tHvʤbdxz|쪙}aT>쪙- hh+CJOJPJnHtH+jhh+CJKHOJPJUh/CJKHOJPJo(6h/h+@CJKHOJPJnHo(tHv86h/h+@CJKHOJPJnHo(tHv8!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jhh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJU  򱢌sbR@BLNPRfhjtvz|ŲtcS=tcS0hh/CJOJPJ+j8hh/CJKHOJPJUhh/CJKHOJPJo(!jhh/CJOJPJU0jhh/CJKHOJPJUmHnHu+jhh/CJKHOJPJUhh/CJKHOJPJ%jhh/CJKHOJPJUh/CJKHOJPJo(*h/h/CJKHOJPJo(v8.h/h/@<CJKHOJPJo(v8|~򱢌sbRD@DFDHDJDLD`DbDdDnDpDrDxDʰ杊t[J.6h/h+@7CJKHOJPJnHo(tHv ʤ!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jhhh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJU2h/h+CJKHOJPJnHo(tHv ʤ6h/h+@7CJKHOJPJnHo(tHv ʤh/CJKHOJPJo(hh+CJOJPJ xDzD|D~DDDDDDDDDDƳƄsbRB/%jhh+CJOJPJUaJhhCJOJPJaJo(hh4#%CJOJPJaJo( hh+CJOJPJnHtH!jhh+CJOJPJU0jhhmHCJKHOJPJUmHnHu+jhh+CJKHOJPJU$hh+CJKHOJPJnHtH%jhh+CJKHOJPJUh/CJKHOJPJo(2h/h+CJKHOJPJnHo(tHv ʤ DDDDEE.E0E2EHEJELENEPEZE\E^ErEȸȸp^N^B:h!$CJKHjh!$CJKHUhW h4#%CJOJPJaJo(#hW h4#%CJOJPJQJaJo( h+h4#%CJOJPJQJaJh+h4#%CJOJPJaJo( hhCJOJPJQJaJ+jbhhQCJOJPJUaJhhCJOJPJaJo(%jhh+CJOJPJUaJ+jhhQCJOJPJUaJhh+CJOJPJaJrEtEvEEEEEEEEEEEEEEEEEEEEEEEFFF仩䑂仩sdR#jh-CJOJPJQJUaJh-CJOJPJQJaJo(jh!$CJKHUjh!$CJKHUh!$CJKHhW h4#%CJOJPJaJo(#hW h4#%CJOJPJQJaJo(,hW h4#%B*CJOJPJQJaJo(ph"jhmHCJKHUmHnHujh!$CJKHUjh!$CJKHU\EEEEE~xkd\$$Ifc0'" t0'644 lal $Ifgd+EEEE~u $Ifgd+ $Ifgd%#xkd`$$Ifc0'" t0'644 lalEF(FPF~u $Ifgd+ $Ifgd%#xkdd $$Ifc0'" t0'644 lalF"F$F&F(F*F>F@FBFLFNFTFrFtFzF|FFFFȶqaO@O0hh.9xCJOJPJaJo(h'PCJOJPJQJaJo(#hh.9xCJOJPJQJaJo(hW h.9xCJOJPJaJo(hW h4#%CJOJPJaJo("jhmHCJKHUmHnHuj!h!$CJKHUh!$CJKHjh!$CJKHU#hW h4#%CJOJPJQJaJo(#jh-CJOJPJQJUaJ/j hmHhQCJOJPJQJUaJh-CJOJPJQJaJPFRFtFF~u $Ifgd'P $Ifgd%#xkd"$$Ifc0'" t0'644 lalFFFFFFFFFFFFFFꯚqbM<$/j&hh'PCJOJPJQJUaJ hh'PCJOJPJQJaJ)jhh'PCJOJPJQJUaJh'PCJOJPJQJaJo(/jP$hhQCJOJPJQJUaJ hh+CJOJPJQJaJ)jhh+CJOJPJQJUaJ#hh+CJOJPJQJaJo(/j"hywh' CJOJPJQJUaJ hh0@CJOJPJQJaJ)jhh0@CJOJPJQJUaJ FFFFFGGGGG0G2G4G>G@GBGNGXGƶƦnV;.hE1pCJOJPJaJo(4jhhmHCJKHOJPJUaJmHnHu/j'hh!$CJKHOJPJUaJ hh!$CJKHOJPJaJ)jhh!$CJKHOJPJUaJ#hh.9xCJOJPJQJaJo(hh.9xCJOJPJaJo(hW h4#%CJOJPJaJo(#hW h4#%CJOJPJQJaJo(#jhCJOJPJQJUaJ)jhh'PCJOJPJQJUaJFFGbGG{r{ $Ifgd.9x d$IfgdW xkd&$$Ifc0'" t0'644 lalXG`GbGdGxGzG|GGGGGGGGGGȷȄm[K[9)9hW h.9xCJOJPJaJo(#hW h.9xCJOJPJQJaJo(hW h4#%CJOJPJaJo(#hW h4#%CJOJPJQJaJo(,hW h4#%B*CJOJPJQJaJo(ph4jhhmHCJKHOJPJUaJmHnHu/j'hh!$CJKHOJPJUaJ hh!$CJKHOJPJaJ)jhh!$CJKHOJPJUaJ#hh.9xCJOJPJQJaJo(hh.9xCJOJPJaJo(GGGG{{ d$IfgdW xkdf($$Ifc0'" t0'644 lalGGGGG{ri $Ifgd+ $Ifgd%# d$IfgdW xkd($$Ifc0'" t0'644 lalGGGGGGGG H HH"H$H&H0H2H>HPHRHTHhHjHlHvHxHHHHHHHHH󸨸󸨸󸨸{i[h+CJOJPJQJaJ#jh+CJOJPJQJUaJh+CJOJPJQJaJo(j+h!$CJKHUj*h!$CJKHUhW h.9xCJOJPJaJo(#hW h.9xCJOJPJQJaJo("jhmHCJKHUmHnHuj)h!$CJKHUh!$CJKHjh!$CJKHU GGG H4Hrf]T $Ifgd+ $Ifgd%# d$IfgdW kd)$$Ifc4F'`" t0'6    44 lal4H6H8HRHzHrf]T $Ifgd+ $Ifgd%# d$IfgdW kd+$$Ifc4F' " t0'6    44 lalzH|H~HHHrf]] $Ifgd%# d$IfgdW kd(,$$Ifc4F' " t0'6    44 lalHHHHHrf]] $Ifgd%# d$IfgdW kd,$$Ifc4F' " t0'6    44 lalHHHIri` $Ifgd!$ $Ifgd+kd-$$Ifc4F' " t0'6    44 lalHHHHHHHHHHHHIîjZG8hh+CJOJPJaJ%jhh+CJOJPJUaJhh+CJOJPJaJo(4jhhmHCJKHOJPJUaJmHnHu/j.hh!$CJKHOJPJUaJ hh!$CJKHOJPJaJ)jhh!$CJKHOJPJUaJ#hW h4#%CJOJPJQJaJo(#jh+CJOJPJQJUaJ/j8.hmHhQCJOJPJQJUaJ III I"I>I@IBIDIFIbIdIfIhIjI~IƳ{lV{C4hh!$CJOJPJaJ%jhh!$CJOJPJUaJ+jz0hhQCJOJPJUaJhh CJOJPJaJ%jhh CJOJPJUaJ+j/hhQCJOJPJUaJhhrCJOJPJaJ%jhhrCJOJPJUaJhh+CJOJPJaJo(%jhh+CJOJPJUaJ+jP/hhQCJOJPJUaJ~IIIIIIIIIIIIIIֽ֫o_R@1h(CJOJPJQJaJo(#hW huuCJOJPJQJaJo(h4#%CJOJPJaJo(hW h.9xCJOJPJaJo(#hW h.9xCJOJPJQJaJo(.jh6CJOJPJQJUaJmHnHu#hW h4#%CJOJPJQJaJo(#hh4#%CJOJPJQJaJo(0jhhmHCJOJPJUaJmHnHu%jhh!$CJOJPJUaJ+j1hh!$CJOJPJUaJ IIIIII4JfJ~~~~~u $Ifgd!$ $Ifgd%#xkd1$$Ifc0'" t0'644 lalIIIIIIIIIIIIIIIJ J JJɸɅsɸ[ɅL7)jhhnCJKHOJPJUaJhnCJKHOJPJaJo(/j2hh!$CJKHOJPJUaJ#hh.9xCJOJPJQJaJo(4jhhmHCJKHOJPJUaJmHnHu/j2hh!$CJKHOJPJUaJ hh!$CJKHOJPJaJ)jhh!$CJKHOJPJUaJ#hh.9xCJOJPJQJaJo(hiCJOJPJQJaJo(J"J$J&J0J2J4JJ@JTJVJXJ§•q\K3\/jT3hh!$CJKHOJPJUaJ hh!$CJKHOJPJaJ)jhh!$CJKHOJPJUaJ#hh+CJOJPJQJaJo(#hh.9xCJOJPJQJaJo(#hh.9xCJOJPJQJaJo(4jhhnCJKHOJPJUaJmHnHu)jhhnCJKHOJPJUaJ/j2hhnCJKHOJPJUaJ hhnCJKHOJPJaJ XJbJdJhJjJlJnJpJrJtJvJxJоnZF2'j9hqSh6<KHOJQJUo('j8hqSh6<KHOJQJUo('j`8hqSh6<KHOJQJUo('j7hqSh6<KHOJQJUo('j07hqSh6<KHOJQJUo('j6hqSh6<KHOJQJUo('j 6hqSh6<KHOJQJUo('jP4hqSh6<KHOJQJUo(#hW h4#%CJOJPJQJaJo()jhh!$CJKHOJPJUaJ4jhhmHCJKHOJPJUaJmHnHu fJhJJJJJJJJJJJJJzxzxzxzxvxvgd+dgd$Fxkd3$$Ifc0'" t0'644 lal xJzJ|J~JJJJJJJJJJJJJJJJJJJJJJJJJJJJKKK Kï|k\h%#h!0B*CJaJph hZh!0B*CJaJo(phh!0B*CJaJo(ph h!0o(h!0hfhoh6jh6UhJTho('j;hqSh6<KHOJQJUo('jR;hqSh6<KHOJQJUo('j:hqSh6<KHOJQJUo('j":hqSh6<KHOJQJUo("JJJJJJJJJJJJJJJJJJJJJJJJJJJd<]dB]JJJJJJJJJJJJJJJKKKK K"K$Kdgd$FdgdkKdB]d6]d<] K"K$KhJTho(hLDP&P 1h2P:p1. A!"n#e$% DpD000000 Tkaisetu2011.dotDf00000004xbW0f0O0`0U0D0-J\f-@\ YfJ\QftDText1DK0L003uˊg InputForm CheckFormvDK0L003uˊeDfK0L00DB{v20DB{v2n0D K0L002WcDB{v2JS҉eW[xDfK0L00k InputForm CheckForm c[W0f0O0`0U0D0 SwmS}TO@\wqgS}TO@\wqg}TO@\wO}TO@\wSx}TO@\wqgwm}TO@\wяu}TO@\w-NV}TO@\wVV}TO@\w]N]}TO@\w l~}TONR@bwDf00000003 lN0VSO0 PNn0%RlNVSO PND K0L00NtNOjuSMR3AhJS҉eW[ InputForm CheckFormD K0L00NtNOjuS_4AhJS҉eW[ InputForm CheckFormD InputForm CheckFormDK0L003uˊOO@b InputForm CheckFormDK0L003uˊOO@b InputForm CheckFormDK0L003uˊl T InputForm CheckFormD K0L003uˊNhy_w InputForm CheckFormD K0L003uˊNhY InputForm CheckFormD K0L003uˊNh T InputForm CheckFormD K0L003uˊNhY InputForm CheckFormD K0L003uˊNh T InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormD K0L00NtNOjuSMR3AhJS҉eW[ InputForm CheckFormD K0L00NtNOjuS_4AhJS҉eW[ InputForm CheckFormDK0L00NtNOjuSMR3AhJS҉eW[ InputForm CheckFormDK0L00NtNOjuS_4Ah InputForm CheckFormDK0L00NtNOO@b InputForm CheckFormD K0L00NtNOO@b InputForm CheckFormDK0L00NtNOO@b InputForm CheckFormD K0L00NtNOO@b InputForm CheckForm|D NtNl T0000~D _NtNl T0000DK0L00NtNl T InputForm CheckFormD K0L00NtNl T InputForm CheckFormD K0L00NtNNhy_w InputForm CheckFormD K0L00NtNNhy_w InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormDf0000000600,{27agn031,{27agn032Df0000000500- YfjD$$Ifc!vh55"#v#v":V c t0'655"alrDJS҉eW[$$Ifc!vh55"#v#v":V c t0'655"alrDJS҉eW[$$Ifc!vh55"#v#v":V c t0'655"alDf Dropdown1xbW0f0O0`0U0D0K(uYn0ge Yf0Lc0_0erDJS҉eW[$$Ifc!vh55"#v#v":V c t0'655"alD 00 SwmS}TO@\{Qn0x N qgS}TO@\{Qn0x N qg}TO@\{Qn0x N O}TO@\{Qn0x N Sx}TO@\{Qn0x N qgwm}TO@\{Qn0x N яu}TO@\{Qn0x N -NV}TO@\{Qn0x N VV}TO@\{Qn0x N ]N]}TO@\{Qn0x Nl~}TONR@b{Qn0x NhQVn0x N4Df 00SwmS}TO@\{Qn0x NSs0]0n0 NzzqgS}TO@\{Qn0x NSs0]0n0 Nzzqg}TO@\{Qn0x NSs0]0n0 NzzO}TO@\{Qn0x NSs0]0n0 NzzSx}TO@\{Qn0x NSs0]0n0 Nzzqgwm}TO@\{Qn0x NSs0]0n0 Nzzяu}TO@\{Qn0x NSs0]0n0 Nzz-NV}TO@\{Qn0x NSs0]0n0 NzzVV}TO@\{Qn0x NSs0]0n0 Nzz]N]}TO@\{Qn0x NSs0]0n0 Nzzl~}TONR@b{Qn0x NSs0]0n0 Nzz hQVn0x NSs0]0n0 NzztD00001$$Ifc!vh55"#v#v":V c t0'655"alrDJS҉eW[jD$$Ifc!vh55"#v#v":V c t0'655"al$$Ifc!vh55"#v#v":V c t0'655"aljD$$Ifc!vh555"#v#v#v":V c4 t0'6+555"aljD$$Ifc!vh555"#v#v#v":V c4 t0'6+555"aljD$$Ifc!vh555"#v#v#v":V c4 t0'6+555"al$$Ifc!vh555"#v#v#v":V c4 t0'6+555"al$$Ifc!vh555"#v#v#v":V c4 t0'6+555"alDf00000008xbW0f0O0`0U0D0-W0_0!q}@\pe Yfn0t1ujDDf0000000700@\Df0000000900!q}-P0feX%ROSI{ Df 000000010008^n4X@bn0 YftD00002$$Ifc!vh55"#v#v":V c t0'655"aljDjDjDjD$$Ifc!vh55"#v#v":V c t0'655"alDd,X  C &Aarrow3"@@bqc*|!4nqc*|!PNG  IHDR PLTEӞhnŽɂ#bKGDH cmPPJCmp0712OmQIDATc` ) 08+  0( 00if*!,`1,n"hT@3l & *IENDB`Dd F  3 "@@Dd F  3 "@@Dd R  3 arrow3"@@Dd F  3 "@@Dd F  3 "@@Dd R  3 arrow3"@@Dd F  3 "@@Dd F   3 "@@Dd R   3 arrow3"@@ Dd F   3 "@@ Dd F   3 "@@ {( #9MultiPage1icO, )2000000ic &l  Microsoft Forms 2.0 FormEmbedded Object9qHv<VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} [Uj[ Caption = "j[" ClientHeight = 5820 ClientLeft = 45 ClientTop = 330 ClientWidth = 7515 StartUpPosition = 1 'I[VBAHpWPWaThisDocument)r__SRP_48$__SRP_49F  !"#$%&'()*+,-./01234568:<>?@ABCDEFGHIJKLMNOPQRSUVWYZ[\]^_`abcdefghijklmnopqrstuvwxz{}~_FILENAME"vt@̂܂܊JƂĂ@񂩁HvbCrLf & "炸 @ۑBA!ρ 3K/@v@@,ύX@@łA? G[@o%~G Word.ActE}.ClGQExitCEnd I>f%Df C:C .NumberX>&E+DescriW? d`  WXNewXC &#Y# ached!4L~A__IQ? @@YAmodOutputTextFile$a__SRP_2__SRP_3 7pConst2Y,E#ݕɂ͍ږitB[hjɁu݁vƕtĂ܂B JB@P2#ږƃf[^Ƃ̊Ԃɂ́u:vipjg܂B JB@P-#ږ̉pׂ͂Ĕppg܂B JB@P0#Rgsɂ́AsɁu#vipjg܂B JB@PA#lȂǂʼnsꍇɂ́uvbCrLfviׂĔpjg܂B JB@PE#tB[h́Aʏɓ͂łeLXgtB[hȊOɁA`FbN{b JB@PE#NXAv_Eihbv_Ej܂B`F, + 9 Y#<@ongC-gc F88Kbtv/x88Kbtv/@ongC-gcME4[LSS>"LL  <8<<<N0{00020906-0000-0000-C000-000000000046}  @` k 6`pk%@ % %(@$&*,(.0o@x @t @ p @8l @Ph @hd @` @P @@ @0 @ @ @ @ @X @ @ (@X*,(.0(@x @ph @HX @H @D @4 @$ @ @ @ @0 @ @` @x @ @ @ @ @ @ x @8h @PX @hH @8 @( @ @ @ @ @ @ @@r,P $*\Rffff*0x50dc2c74*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13$*\Rffff*1Z50dc2c74*\R0*#14*\R0*#e$*\Rffff*1850dc2c74*\R0*#94.  8 "X "  &.(l " (8@HP X $`lp "  8l0.  $l @ H X ЃnCp[_CE1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/] webmaster@hyperdyne.co.jpX"H !$http:// &   0C^[lbg̃T[oiz[y[Wjɂu *,vt@Ĉ܂܊JƂĂ܂񂩁H ,,Ȃ炸ۑĂJĂB , ̂u *&ṽt@CύXȂłBA@( G[o邽ߒ~! Word.ActiveDocument.Close|kA@.|" 0!2 0!2 , 0!4A@(kxop@"` !8!: * !8!: *x    Wordt@C̖Ou */ * xvu !8!:vɕύXĂ܂񂩁H ,u */ */xvt@C̖OςȂ悤ɂĂBA@(< !8B@B| kA@.|" 0!2 0!2 , 0!4A@(koųAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2' ЃnCp[_ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option ulic`it Pgk Sub _Open() rror GoTo ErrMLesIf+S@tr(1, Ɂ.Path, "+", vbTex tCompa) <> 0@ enGMsgBox " G^@Jlbg̃T@ oizy@Wjɂu" _%& MYbN{bNX`F JB@PF#bNĂƂ́uTruevip@T͑啶jA`FbNĂȂ JB@PG#Ƃ́uFlasevip@F͑啶j܂͋󗓂ɁBv_ÉAj[ JB@PE#̐擪1Aȍ~2ȉɂȂ܂ipjB󗓂̏ꍇ JB@PF#ɂ́u1vw肵ĂB܂Av_E̐͂ꂼقȂĂ JB@PG#܂Bv_E͈͓̔̐lw肵AُȐl╶w肵Ȃ JB@P #łB JB@PG#ڂƂđ݂ȂAgpĂȂڂ܂̂Œӂ JB@P #B JB@P]]'V R !8!Xݕ̃f[^擾 V Z R!l \ b V D!^%`: R!f h D%d JB@P R!l je b V D!^%`: R!l!n JB@P R!l pe b V D!^%`: R!r!n JB@Pk`kX V 'V ROt@C‚ JB@B'@z" 0!2 0!2 , 0!4A@(ki޶Attribute VB_Name = "modOutputTextFile" ' ЃnCp[_2Copyright (c) HyperDyne Inc. All 8reserved.fhttp://www.h0d0.co.jp/webma ster@  Option Explici@t Pub FuncGetDataFor(ByVal my As Sng)Boolean.,rror GoTo ErrMes ,False  Dim cP(clsPa Set = NeLw fsObjecf$a "= Create("Scr"ing.Syemq0- ")?'łɃeLXgt@Ώ㏑, Aa6fs.QGP, Tr ue@ a.Wr iteLi~"#dq\T|gVAe@8dl=io^ɌW閳ǂ̊J ݓ/ύX͏opjR@@R@*h*tgJISɂĂB'Word@XBhiOC͕j́AォEɏQ@oR܂B̂ߓê Ƃ͖JɂȂZ- @}!`͍ږ2`tjɁu`݁vƕt2DĂ C ăf^5@@u:vip g̉pׂ͂ā$Rgs,hs#FX l)ǂʼn ꍇ" uvbCrLf ?#GB?ʏAB1sR1OA`FbN{b2:@XAv"E9h@vj|B !! Qu"J :9Af)@ T͑Ahj`DȂ2 e Flase F A͋0Ba'1A`eȍ~2ȡl :գ i`P ZKMB < ɡ1 bwCi0̐W` s3 "{h͈̔Dl A`FȐ`rA.e -|Q;N@ "Ag4p"RȔBpH`ŒQo "#bomyFieldnR.zm'kIntPegerSki1 Each}QIn AveDocumentw |!f1'SMÕJ擾If k <= K0u yxME"F)L6 LLL"" LLT+@` k@ BBiB  Dpx%`Hl `Jh R$%`V">%`@p`@z 7 PB< `Bt `Bt`Bt`Bt`Bt`Bt`Bt`Btp LZ\bhjp @X @H @(8 @( @X @ @ p(@O p (p @  (m @ @@X (@8 4@ e@x 8@  X@ x0,( @ @ (q r,P $*\Rffff*0y50dc2c74$*\Rffff*1@50dc2c74*\R1*#10b*\R0*#e*\R0*#19*\R0*#13*\R1*#10e*\R1*#10d$*\Rffff*1C50dc2c74$*\Rffff*1<50dc2c74*\R1*#5c$*\Rffff*0z50dc2c74*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#14H  8 "X B    *  *!H >`@F8THBT@@<>PTPTTVXTTV`V0 PX`/h   Dw 6h P6i`        $ l @ H X  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"H'@]`.D&]]Scripting.FileSystemObject$L.Hoft*$łɃeLXgt@CΏ㏑1 B H%N.J/#dq\T|[gVXe@eLXgt@Cdl JB@P2#io^ɌW閳ǂ̊Jݓ/J݋ǕύX͏oj JB@P# JB@P8#eLXgt@C̕R[h̓VtgJISɂĂB JB@P# JB@PE#Word̃tB[hiOC͕̓j́AォEɏԂɏo͂ JB@P3#܂B̂ߓȅԂƂ͖֌WɂȂĂ܂B JB@PAGAMI_COUNT The5`d .T 9 wd sInO0ncPr .GeЖPq(p, k) & " :"PSanitize2(Result, pNothing, B&z% qEЊ CheckBox b m pך .ИuDR@ Ѩ DropDown " c ld. End If!Cq)k + )NPu)CS'XO`S‚a.CloE` ܫ%WExitӦ# c:u.Number <> 0<MsgH& #m`&QDescoT/E A1B(y'Q'Y!-i)qc1aBqH6&&AI&tl CtKpz pX  X4l5X!t@c8%lX4h5X:H%h:H%h:H%h:H%h:H%h:H %h:H %h:H %h:H %h:H %h:H%h:H%h:H%h:H%h:H%h:H%h:H%h:H%h:H%h:H%h:H%h:H%hp"/$ 4 Q[$ k"F $ (l Fw$ lk"p d 0 l!*#++Y lp l*FX%h25X $ (l G*hk"p d 0 l!*FX$ x D"kH%h/)6XH $ (l Sik"p d 0 l!*# $ | 4#l #*FX%h2)5X k"p" $ h$pz$ % &l ml''' % &l #'*# % ,&l*FX (2)6Xt@($plht4 XkrU (`1nrU~| prU 1PaPPQnRrU 0 iwi)-qHwI& x(ixxyqyy!zqzzI  8 "X     8Ph $" (Hh  $  (08@HPX`hpx   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. h !) (xR0RRRRRRRR0RRHRMEP@x@z@@H H6 <XjC%xHhz`h|xh~sterh doz(]$@%h0hHh|`hxh hh0 (@%hH(  ZFBvBjCjCj(CjPCjxCjCjCj Cj Cj@ Cj CjCjCjCjCj0CjXCjCj Cj Cj Cj  CjH CjpCjCjCjCjCj8Cj`CjC ht(8jCjCj@Cjh Cj Cj Cj Cj Cj0 CjX Cj Cj Cj Cj Cj CjH Cjp Cj Cj Cj Cj CjCj` Cj Cj Cj Cj CPxj@ Cjh Cj Cj Cj Cj Cj CjX Cj Cj Cj Cj Cj CjHCjp Cj Cj Cj Cj Cj8Cj`CjCjCjCjCj(CjhC0 jCjCjCj Cj0 CjX Cj CjCjCjCj CjHCjpCjCj Cj Cj Cj8 Cj` CjCjCjCjCj(CjPCjxCjC:@~ jCjCj0CjX Cj Cj Cj CjCj CjHCjpCjCjCjCj Cj8 Cj` Cj Cj CjCjCjCjPCjxCjCjCjC{ hj0CjXCjCj Cj Cj Cj CjHCjpCjCjCjCjCj8Cj` Cj Cj Cj Cj Cj(CjPCjCXx8(`P0(00PHHp` 0`H5xr,P $*\Rffff*0z50dc2c74(*\Rffff*0z50dc2c74\0(*\Rffff*0z50dc2c74\1(*\Rffff*0z50dc2c74\2(*\Rffff*0z50dc2c74\3(*\Rffff*0z50dc2c74\4(*\Rffff*0z50dc2c74\5Ittp://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpdotpDLL@Const@O[o萔]$F`]$CallSign\.0^DHʕׂĂ^D`wbh^Dxԍ#d^DԀ@px^D ʕ̔ԍZbg閳^D ʕZbg̐B@Pp Licence\p^D0o^ԍׂ^DH wbhiցj^D` wbhiKj^Dxo^ԍ^D tbgij^Dp@^D o^̔ԍZbg^D o^̔ԍZbg̐p 0'''''''' ' ' ' 'x H''''''' ' ' ' ' ''''*Attribute VB_Name = "Const2" ' nCp[_dCopyright (c) HyperDyne Inc@. All 8reserved.fhttp://www.h`d`.co.jp/webmaste r@ dot@pDLL@ Option Explicit'Oo萔 Pub 3 KAGAMI_COUNT AsAtegery70 JIKOSYOGCallSign\̆Tk t s:Sng'ʕׂHead  wbh(No cLo' 'Ԝ #Inu ' End UH.*CtC()A@"5G.AZ&gC Count@ I g !'LicencewSCsD?So^#SiցjA^2*@/C^iKE  Nj_E FooAB tKiEgukD"tLk z'$biN4$EE num eD NopwȔi1DրR2M3%C45߀6R7l8J91csa-pkeM!H^ %̒"9Oʖ9qEb Eb B1"*1*1 1B 1c #__SRP_49J__SRP_5 ;fclsKagamiB__SRP_6=w肳Ă܂BA@(zKTkCʐMǓaijrmkstationHokkaido''KTkʐMǓaijrmkstationTohoku''KT֓ʐMǓaijrmkstationKanto''KTMzʐMǓaijrmkstationShinetsu''KTkʐMǓaijrmkstationHokuriku''KTCʐMǓaijrmkstationTokai''KTߋEʐMǓaijrmkstationKinki'' KTʐMǓaijrmkstationTyugoku' ' KTlʐMǓaijrmkstationShikoku' ' KTBʐMǓaijrmkstationKyushu' ' KTꑍʐMǓaijrmkstationOkinawa' 'S8*ڑf[^x[Xݒ肳Ă܂BA@(zn ' ''z" 0!2 0!2 , 0!4A@(ki Attribute VB_Name = "clsKagami" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ Op tion vlicitComp Binary' y @z+Dim cK as z PCE KS@endTo AHs Sng'݂@ bID Integer@'xID@ ub( ProDty Get() A!L %=c(A EndB|IDC&@ K@5Func_@% Info(bal myCheck4Boolean/Ũ9Onrr or GoZErrMes;l BmPA@mPaRS@ScP 8Newt my4f CYyXW;ڑ f ^"xXE8擾Sel ect C!cP. Value(pKAGAMI, "aD").D`>Down."1 $w肵Ăi jMsgB$oxc b܂8B`eExXit 52kCʐMǓbamyDr mksta?HokkaidoC.(= 2L3@ kTohoTku 3 4 ֓ Kan*t4 5 M z Shinets5 6pk7uTri)6 7CToE77 8 ߋE Kink+)bES8 9<M80Ty,ug)910 'l777"k10 1 'BKyus&h)b112 'Ok|wa"v= 1EERO]X WS S v_S=o a`$sjTruП) p:If .Numbp<> 0 ThenH& vbCrLf &DescriSya If@Wbr,P $*\Rffff*1050dc2c74$*\Rffff*1@50dc2c74*\R0*#e*\R0*#19*\R0*#13$*\Rffff*185!{y{ |&&AOA)O(@<)) WL- 4Cx/ (x H 8pz/ $ XK`pz tdhl+pt l |h 4ldq`)lhl`+''' :PN@@ 6@ /8l` pr8l`  pr8l`  pr8l`  pr8l`=  pr8l`^  pr8l` pr8l`   pr8l`   pr8l`   pr8l`   pr8+''' :PN@@ 6@ / v4 kr8pz/$d ll ldll''' d ll 3 A -kD7¥xFς *=h8+3qv7^FkUxv7^FkU7¥xFς ME4 SS S"F>"L LL"<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(0%,!hXx+p i ster,!h`z+ i ,`hk0 $??i X Dxi   Dt %`0rZ%b4@b8@ H(h C`x8CjxP0h `z@,x+xx p X8h `z x+H  b(0,@p @l x+@h @d @` P @(P @@@ %@X0 @p @ @ @ @ %@ @ @ 00H(r,P $*\Rffff*1050dc2c74$*\Rffff*1@50dc2c74*\R0*#e*\R0*#19*\R0*#13$*\Rffff*1850dc2c74*\R0*#14*\R1*#10e*\R1*#10b$*\Rffff*1<50dc2c74< X  8 "X    B  ( @ HBP X p xB      8 =, $+H p(x   &   &  8 P&X   &   &   8&@  h &   &    &(  P h&p    4+     ( 0$8lHh p ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@z Dim cK as clsKagami]@D ݂̈]@D!xID0 ݂̈ 'm ݂̈ 'm"h']x .D]2݃y[Wڑf[^x[XExID擾 b D%!r!nKTݎw肵Ăij悪 ld#*# hh ,l*F@ 2)lh6@ / (Xt0 lh@ !HrU H(h0(Ah!&,`%i #n__SRP_7TmodMenuJ __SRP_5aX__SRP_5by  !8%(  !8%(|`"X 0!2 0!2 , 0!4A@(k o"].D D!!' D!!|k0[NubNJꂽƂɊǗ҃j[J  !8%(  !8%(  B@|(d '4Ǘ҃j[𗘗pɂ́AǗҌKvłBA@(  !8%(  !8%(  B@|k|"x 0!2 0!2 , 0!4A@(k@o80=Attribute VB_Name = "modMenu" ' ЃnCp([_dCopyright (c) HyperDyne Inc. All 8reserved.fhttp:/@/www.h`d`.co.jp/webmaster@  Option Explicit  Pub Sub Open())%rror GoTo Err(Mes Dim cP As clsPa  Set = N$ew If .Config.Re adTrue` Then!#m yLocaT=  #DB.Da@tabase#nectChecka&Fals ')Exitr$End If'NubNJƂɊǗ҃j[Word.ActiveDoc ument:mmandBars(cAdminWA).Visibl 7UB=#K+.Show vbModeles@qDEE@N`O);M#@nUOEg; ú:BC@@.Number <> 0LMsgBoxd& .CrLf &DescrioC O ojq=q8 6tKg6^5 @q?-?-1?-}---7_____ab____me_V__Q_ ~" ṕAKvłB0e/5cc=hhsT[TcttTTrTQT=T|=@<  @8  @ ( 8 @8rU~| [Z i)a/P/ (y'Q'Y!//  J@ L&&AI&am@K x$rtx t krtz$rtx pt krtb?X:\%lt$ 4t 0 l H X )tlX?X:\ %lt$ 4t 0 l H X )tlX\% $z?X:\ %lt$ 4t 0 l H X )tlX?X:\%lt$ 4t 0 l H X )tlX\%$$D tt lDt9l'''D tt lD#@*#8< ll ,l<*F( 2@8<)tl6(@(x4 @<8tlX(8Kl%$?P:l %TX$ 4X 0 T H P )XTP?P:l%TX$ 4X 0 T H P )XTP$L XX lLX1l''' L XX lL#H*#@D TT ,lD*F0 2H@D)XT60 8$ 4 HD@XTP0 lK x$rtx t krtz$rtx pt krtb?X:\%lt$ 4t 0 l H X )tlX?X:\ %lt$ 4t 0 l H X )tlX\% $z+'''(:\N88 68(?X:\ %lt$ 4t 0 l H X )tlX?X:\%lt$ 4t 0 l H X )tlX\%$$ tt ltdl'''( tt l#*# ll ,l*F8 2)tl68(Il(x4 tlX8(a  6?rU Z$Z`$Z`$Z`nrU O (( xiixxyqyy!zqzz!{y{ Aa4  g"xMEP@"F6 L""LLLL" "+?(?@Xhpx  $l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"H]@.D D!!' D!!|k0[NubNJꂽƂɊǗ҃j[J  !8%(  !8%(  B@|hd`'  !8%(  !8%(  B@[|k|" 0!2 0!2 , 0!4A@(ko`"  B@tX-[000000000M]__SRP_4e|$__SRP_4fI0000000'59`V[W rmkstationHokkaidoKTj x !(nrmkstationTohokuKT ! (nrmkstationKantoKT ! (nrmkstationShinetsuKT !(nrmkstationHokurikuKT !(nrmkstationTokaiKT !(nrmkstationKinkiKT !(nrmkstationTyugokuKT !(nrmkstationShikokuKT !(nrmkstationKyushuKT !(nrmkstationOkinawaKT !(nS no@<ݒ{^NbNƂɎsCxgvV[W].D]] !!nrmkstationHokkaido'"kC' kH ! !nrmkstationTohoku'"k' k ! !nrmkstationKanto'"֓' k !!nrmkstationShinetsu'"Mz' kh !!nrmkstationHokuriku'"k' k !!nrmkstationTokai'"C' k !!nrmkstationKinki'"ߋE' k !!nrmkstationTyugoku'"' k8 !!nrmkstationShikoku'"l' k !!nrmkstationKyushu'"B' k !!nrmkstationOkinawa'"' kP " $ & ( " D!%* "'ݒۑ܂BA@(A@,dݒۑł܂łBA@(kd$f[^x[Xւ̐ڑ񂪈ُłBA@(|`kXoP A@r Me.HideoCAttribute VB_Name = "‹ݒ_CAO{bNX"D Basb0{E103C60E-7646-4F99-A5B7-E67C653FEA03}{C5ED201C-368A-420C-9296-A2AFD85CA38A} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD' Ѓnp[ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option vlic`it P35 Sub UForm_Initialize()A 'tH.ǂݍݎɎs6xgvV W Select CAmyDi"rmksta'Hokkaido@Me./hu.ValuOA|Cs To@ uUCKant%$ShinetsV%LurikTo0& B9Kinki   Tyugo +k  Kyush/yU_Okipnawa%E"CkEnd Co!xub}_Ck|b{^𠾊a`Ƃ~pDim cP As clsPa@#Set= NewLAmyBranchStri|ngc`E If Then my `ޚkC$4a*If iPh@k_hb y3BM*ewMz oN`~g]T S'abpC*0PCTïbߋE[oYn]Ip#\;n4l0Y//^ecB?aN7kT<> "" AgmySqr )anIPassw8ord; cP.Config.PSave(j)t#(FJ7!qMsgBox "1o@ۑnna1‚rGw5q /ŀs܂~8  KSt1fE8-ƣu(OˌCSO/+LQ/Ac+oQBvxAc+oQBv1fE8-ƣME4SPSSS"F>" "LL <8<<<0{E103C60E-7646-4F99-A5B7-E67C653FEA03}{C5ED201C-368A-420C-9296-A2AFD85CA38A} @`Tk `(kBB% Dx%` t`"p ,`xkg@8%h@ %@ %%  @x  @t @d @T N:]X  @l :L@(\ @pL h@< $&((@: @( @ @ @ X@ (@,,@r@@x h(@xpr,P $*\Rffff*1250dc2c74$*\Rffff*1@50dc2c74*\R0*#1d*\R0*#1e*\R0*#14$*\Rffff*1H50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*1850dc2c7448<@DHLPTX\`dhlm  8 "X " 8    8H `p      @P p    " B@ HX`*h* * 0@*H` * * (*0H `p*x * *0 HX*`x  0('   +  ( &+0X`.+h "     ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX2tH[ǂݍݎɎsCxgvt9d"f^xPXւ̐ڑ񂪈ُ  xit3  0 I 'Unload0u0 uHidX  08i)a/)I&iiAi4282 <21@2QD2qH2L2P2T1i X0I1`IN \0II`N`44` Nd2h2 l21kNWNNL vCx lx08cTt t t5T lx0fcTt t t5T lx0cTt t t5T lx0cTt t t5T lx0cTt t t5T lx0cTt t t5T lx 0LcTt t t5T lx 0zcTt t t5T lx 0cTt t t5T lx 0cTt t t5T lx 0cTt t t5T4( ( <xtT x*\l l \cL]3l5\ECpCt*\l l \cL]3l5\CpCt*\l l \cL]3l5\CpCt*\l l \cL]3l5\CpCt*\l l \cL]3l5\5CpCt*\l l \cL]3l5\qCpCt*\l l \cL]3l5\ CpCt*\l l \cL]3l5\ CpCt*\l l \cL]3l5\% CpCt*\l l \cL]3l5\a CpCt*\l l \cL]3l5\ CpCt(lp=v=v=v=^':lplx l k:l, lp+'''<:L N\\ !6\<"Y+'''<:L#N\\ !6\<+'''<:L$N\\ !6\<0txp l\<Plx%$& 'x$ x`X\HrU Nx$N`$AN`$N`nrU L$L`$AL`$L`$L`$L`$AL`*\R0*#2*\R0*#1$*\Rffff*1950dc2c74$*\Rffff*0y50dc2c74*\R0*#11$*\Rffff*1E50dc2c74$*\Rffff*0x50dc2c74*\R0*#f*\R0*#12*\R0*#23$*\Rffff*1K50dc2c74$*\Rffff*1Z50dc2c74$*\Rffff*1B50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#f*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*1550dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R3*#4e*\R3*#4d*\R3*#8c*\R1*#c6*\R1*#c1*\R1*#1%-.[/RQyB5 ^aD T颥Q8;0Db50CRvܟx0CRvܟQyB5 MESPSSS "F">" "" ""L" "LLLLLL"LLLLLL <<<<<<<<<<<<<<<<0{5E9E7142-D15E-4C82-B9E6-ADF91E2D56B5}{87C6B44F-7F70-4096-A234-06E593C983AD} @`(k  D`Hk & J` k / 68`h k8 Dx%`Nl X` k%%U Dx%`\p`Nl b `kz`d h``k r`@k .. Dx%`Bt. P%`NL `k"" Dh% D< %  `0k  D% 0 `PTk  p `hTk   `Tk  ,  `Tk$ 9 %H  %p `@80%% D\ %Xp@4068<@x @(t @d @` >@B0,(@@L @H @D @@ @< @, @ @0 @ @  0 FH8@@` x @H h @@ X @x H @D @ 4 (@$ @  @ x FH8@@ x @ h @@ X @ H @D @8 4 (@$ @P  @  8  @ P @X t @r @h h ,(V0@@p d @ T @ D @ 4 @ $ @  @(  @ @ (@ @ @ x(0@Xp@t @r @h @f p @d  @` ,(V0@\ @HL @`< @x, @ @ @ @@ (@ @ @ FH,(f0@@ x @h @@PX @8H @D @h4 @@$ @ @ @ @ (@ @ @ @(jl0,(@@Xx @h @X @H @D @p@ (@< @8 @4 @$ @ @ @ 8Pvtxz(@d @T @D @04 p@$ @H @` @x @ @ @@ @ @ @  X@ @@t @hp @l @h @X @T @@@0,@J @D @@ pP@(@,(0@@x @h @X @H @B @X8 @p4 @0 @ @ @ @ @ @ @ 0,(0@@x @8t @Hd @`T @xD @4 @$ (@ @ @  @ @ (@ @ @ 8r0@l @Ph @X @T 8 PrH@l @hh @X @T P8h r`@l @h @X @T hP8rx@l @h  h@X e@T ` (Pr,P $*\Rffff*1350dc2c74$*\Rffff*1@50dc2c74$*\Rffff*1Y50dc2c74*\R0*#1d*\R0*#1e$*\Rffff*1?50dc2c74$*\Rffff*1C50dc2c747b$*\Rffff*1850dc2c74U48<@DHLJPTXM\K`LdRhlSptx|OTG  8 "X "  ?BB? "(P   ` hx  $l " ,[@PXh p"x ,[     N& !"#$%'()*+,H/123456A89:;<=>?@.BCDEFGIJKLMHMPSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ "    .*( XhHWx ,+ "8@P X $`lp "  <  < *Hx  0  % "7( 0 @HWP,++  $(l8X `"h p ,]x4`h p *x*   $ l( H P "X  ` p "  "    $ l   "   & H  P ` Nh 8  0+   *( -H  h x &+   *         -( @  P X ` +h   $ l   "  *      ( 0  8 H $h     H -  2+   $ l0P X"` h Pp08 @ H$Xpx$  +  $l "  202@ P`2h2x " 22 22 8 @"H P2`2p 22 " 22 (202@Ph p  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"H  !8%(d  !8%(d  !8%(.  !8%(Ӂ@Ǘ҃j[ɂ 4 !0(2A@6 !8(: !<( !>( !@(n !B(n|@"8 0!2 0!2 , 0!4A@(ko@ !F!n !H!n !8(:d !8(:ko !F!n !H!n !8(:d8 !8(:k o"].D D!LB@6]  y[W\ y[W\ D!L%'N N'N y[W\ y[W\ N , %R D!L%P"y[W\ۑł܂łBA@(|k D!LB@Td N , %R'Nk N !V(d|" 0!2 0!2 , 0!4A@(kho`8"P5-----------------------------------------------------y[W̌5-----------------------------------------------------$݂̎ۂ̃y[Wo璲ׂ]x.D D!ZB@6]] \ D!Z!^ N \ D!Z%`'Nd N , \ D!Z%`'Nk \ D!LB@6 y[W\ y[W\ N , %R D!L%P"y[W\ۑł܂łBA@(|0k( D!LB@T N !V(dɏI܂BA@(|" 0!2 0!2 , 0!4A@(ko" !F!n !H!n XuJݓ͏oƂĐݒvuJ݋ǕύX͏oƂĐݒv̂ꂩ`FbNĂB ,>łɑ㗝lsĂꍇɂ́AsKv͂܂BA@(|k] !F!n Jݓ͏o'dkP !H!nJ݋ǕύX͏o'dk d$f|k|" 0!2 0!2 , 0!4A@(ko  B@j l!n( l!n(n l!p( l!p(n  lB@|8"0 0!2 0!2 , 0!4A@(ko`" eLXgt@Cw肵܂B].D]$v$t$v$x00$$v$z00$.txt'B !$ B D!|%~'B B&eLXgt@Cw肳Ă܂BA@(|k B D!|% B D!|%e BA@dt@Cgp̂悤łBA@(|PkH !@!n].] %@'N B N %|k !!ne B$@|kkI܂BA@(|x"p 0!2 0!2 , 0!4A@(k8o0"  !@!n]P. !|k]p.Dsystemׂď D!L!|xkp Me._Click  "eLXgt@Cǂݍ݂܂B ,LȂ炸f[^`FbNsȂŁA㖳exɂMB ,L\Ăꍇ́AۑĂIAxJĂBA@( !!ne (eLXgǂݍ݂ŃG[܂BA@(|kk|" 0!2 0!2 , 0!4A@(ko">Wordt@Cɂ邷ׂẴtB[h̃bN܂B ,2f[^`FbNŏsȂ΂Ȃ܂Bs܂H mF$( |k].D D!^!|k D!L!|`kXbN܂BA@(|0"( 0!2 0!2 , 0!4A@(ko ! $( $( A@rd $( $( A@r‚܂kXoP0 ! $( $( A@rd $( $( A@r‚܂k o p ! $( $( A@rdh  $( $( A@r‚܂k( o  ! $( $( A@rd  $( $( A@r‚܂k o ].D D!LB@ PAttribute VB_Name = "[Uj@[" Bas0{5E9E7142-D15E-4C82-B9E6-ADF91E2D56B5}{87C6B44F-7F70-409@234-06E593C@983AD} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD' ЃnC p_ ' Copyright (c) HyperDyne Inc. All reser;.http://www.hd.co.jp/webmaster@ Option vlicit Pgk Sub UForm_Initialize()B @ rror GoTo ErrMes Word.ActEDocument.CommandBars(cAMenup).V8isii`Leftp100 TopjAdmin0ĉ!'Ӂ@ǗÊɂMe.oW.Cab= cVE RSIONETDim cP As `clsPaSet= NewcP.INI.SearchTe`xtBox PagJF"s1.Enay8炷6dPtop`Method.Valut?Multi1;ExitS#O:%IfaQ.Number <> 0 ThencB sg!& vb@CrLf &D`escri1End Ifb b+dgJݓo_Changd!@jD _Or ǕύXc  e. 8)E⣡a x=)#p V1\$fy!+8uuRea*dgs~SngszGetf("s\",aO "",a !&, VBA.Reppce(s,4`")) A aMc8 łB ?9 avN/a\ ~" D A2txtH.qTP nHHmH KJHH}Hub0{z@_Ck?*y'-#('&!DDIۂ o)ಂׂ5s9_p 5i5Integersg6 i0do .ACount - 1_6?bB!'p;Q(i߄& *sii*N~ ipP1P 40CC=rr=vxH==[= <88%EɏI$0GD;;p8o:odI nx; `/dCV8A/ O`-Y u"u@Đpvŝ;`FbN<\ XO"@_ɑ㗝lꍇ́ARKv͑bb$S>myShinser@ vC5 o'8 k,!Ls Tp(?y1 i$  Exit Sub E@rrMes:pIf <.Number <> 0 0ThenpMsgBox H& vbCrLf &*DescriptiojEnd I8f xPr ivate f[^`FbN_Cl`ick().ne`.Hide *j[.ƋlxOXƂ킹.Visible = Fal"s?'alu#&M!'MShownModelessXGHeLXgHIOnor GoTo(C't@Cw肵 ܂B Dim cP As clsPaperSet= N ew myTe0xtFiSt0ringH= Year(Now())Format(MonthD, "00"Day".txDt"cP. ."Save(ThisDocument.Path,~ $Ajc 9"J"}"M))@Ă)B$ 닥*gs(Lo`~)t2E@vᮕKill( C 7#"EEgp̂xE Me.opFMet hod.VDqTr˨BOTDOA8OT@ OsNs cT.GetDataM!Da(T.WriteBg., s.£,A:"ĺb4Old+@_AIhE;I"FU?'䕓#E(N$NO;'P%InputE%&"?@WB20P@40Y'systemׂď3 P.INI.tCl`XAP@- ;  '1@<3hgCfǂݍsQC' _g#"Ȃ炸!sp`HŁA㖳exɂM-"\ [鏀ꍇ́Ap\Aaۑ2 C3xJPĈ YR(?O $C FŃG[ @ =1(&@7JS tH ̃!@p.s// s0("Worjdnp3@tăBh "$(,& "*Hŏ#p+Ր+`&pF)H", vbYesNomF堑= No!{ucOEsE֞Bsm.UnqMR%͡SG )(c /ka#**?*****ە`1)ǗV'OA CommandBars(cUsenuName)ۂ@:AdminMeOqUnload MTdJ COB '0,A2 3ذ CommandBars(cUserMenuName).Visible = F@alse  A AdminhTrufUnload M$E O# '‚ ܂kEnd If Sub Pr@ivate  3_Click()If Ǘ҃j[W ThenX|?[ =[4?[?[,[ __SRP_4c)__SRP_4d:HclsRmkINIe,71__SRP_8 2D<@)xt6L, @Hp( \4 D@<xt`L, [hx  x hcX]/H4D  D 4c$]/)xD6h4zx  x 8xx  x 8xx$ (xDhH4[hx  x hcX]/H4D  D 4c$]/)xD6h4zx  x 8xx  x 8xx$ (xDhH4DKS xrtx @ t t*htx @ t >h1lt ll0ClWll 1dr>d#htx @ t kr2hdt+'''$:TNDD 6D$rtx @ t t3"ll 1lllt  t ht$ tt ltl'''$ tt l#h*#d  ,ld*FD 2hd)t6D$,xl0 hdtD$pK xrtx X t Dt0phtx X t $lhtcd ll0%`kptx X t (>`1lt7ll*#\`kptx X t (l`*1l2\`t pdd[rtx @ t tWll 1\r>\#`tx @ t kr2`\tu+''':LN<< 6<rtx @ t tllt  t ht+''':LN<< 6<$h tt lhtkl'''h tt lh#`*#\  ,l\*F< 2`\)t6<p,xl0 `\t<K]hx  x hfX]/H4D  D 4f$]/')xD6h44''4'H *#!*Fh /6hH4*hx  x hcX]3x5h"C*hx  x hcX]3x5h#Cl $$ xx lxl''4'H xx l#*# DD ,l*Fh 2)xD6hH4(4 xDhH4@ x%$& 'x x"fXx%$& 'x x5Xx%$& 'x x"fXx%$& 'x x5Xh%%$&$D xx lDx9l'''$D xx lD#@*#48 << ,l8*FX 2@48)x<6X$@$ 0 @84x<X$DK xD (D4 ) ( *d (dT +T:$,N4 -:,N -:.t`1t6dD4TrU M0I (y'Q'Y!// D) i)UQE)))&&AI&q!*9FI**Q+HIIF 2+iMN)OM.IN8 Hq.A1Y/ D/1 22 4Cq4 5Cqc5 JiADE)EQED42:UUU822`IL <0Iy5 `L@22`LD4I4` L H0I5`LL1iEPI4 9:JJJTI4 y6 X0I6 `L\ 313MMM `0IY:KKK d0I:LLL` L h0I6RRR `QLlI4 7 p0I7SSS `IL t0I8`L x0I8` L|I4 : 0I9 `L 0I0`IL 0I1OOO1i1292TTTY22uLLWLLLWLLLLWLLLL_LpK?`:d%tx$ 4x 0t H` )xt`Bd`:d%tx$ 4x 0t H` )xt`Bd`:d%tx$ 4x 0t H` )xt`?`:d%tx$ 4x 0t H` )xt`x  x @ x \x\ @ x xx  x 8xx  x xx  x xcLx  x x5Lx  x x$H xx lHxhl'' ',H xx lH#D*#<@ tt ,l@*FL t8p/$0 4hltlplx l $1>h1t/pl lt09+'4'D'T:$2Ndd 6dTD4*Tltlx l (1lTlh*Tltlx l (1lTltM$@ 3+'4'D'T:$4Ndd 6dTD4*dl  l dc$]3l5d@ 5PpP P6>p1LJlLltP X6kJ;*dl  l dc$]3l5dlt 7}+'4'D'T:$8Ndd 6dTD4$T ll lTl?l'4'D'TT ll lT#p*#@h DD ,lh*Fd 2p@h)lD6dTD4<D4xPtLTph@lDdTD4t0K>*hx  x hcX]3x5h 5DBD T6kBS <$Bx< @ x kBxH'''H9*#8:*#4*#0;*Fh 28406hH9*hx  x hcX]3x5h9 <7+'''H:X=Nhh 6hH$ xx lxl'''H xx l#8*#04  ,l4*Fh 2804)x6hH,<D0 840xhH|KP''$:T>NDD?*#x@*#tA*Fd^2xt6dD$Z $ d  $Bk$ @  k+''$'D:TCNdd 6dD$$  lul''$'D  l#x*#t  ,lt*Fd 2xt)6dD$|(0 xtdD$XD$Eal.V5l2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh($ hTlXD$Eal.V5l2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh($ hTlXD$Eal.V5l2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh($ hTlXD$Eal.V5l2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh2T:X%h$ h HT )hT2T:X%h$ h HT )hTlhF$G Hh($ hTlD8@dHtx p < X  ho$L`$L` $L`$AL `$L `$L `$ L ` $IL `$nrU `/A )q|a)y V;    V;  x        $ l   BD&&  (  00 *`   &    . ( "#8 $#` $# $#  # , ( BH F  6 F( p : D HFX.   " ( 0 $8lHh p  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp      !"#$%&'()*+,./024678:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrtuvwxyz{|} y@z  Dim r As New clsRmkINI "']]]]] %.myPasst@CV[PV̓[hŊJt@C̍s𐔂%'$b$$t@CԍPIȂԂ܂ $ł͋ǂ݂łPsǂ $# H##Ŏn܂ĂȂƒkłȂ  '$sJEgkxpV$t@C‚  8---- $.myPatht@CV[PV̓[hŊJ----'\'$obt@NA$$a$ EOFłȂԂ $ 1sǂݍ $# H##Ŏn܂ĂȂƒkłȂ , &'HJ}̈ʒu𒲂ׂk x 0H*J}݂ΈȌ̏BȂΖ[   $$ \+LJ}OO̔zɁ[   $$ \+LJ}̔z \$server<4O̔z̒lserverȂAϐmyServer͌̔z̒l2 \$'$(k \$database<8O̔z̒ldatabaseȂAϐmyDatabase͌̔z̒lo \$'ǕύXk( \$username<8O̔z̒lusernameȂAϐmyUsername͌̔z̒ls \$'&BA@k \$password<8O̔z̒lpasswordȂAϐmyPassword͌̔z̒l \$'(ύXk( \$atis80O̔z̒latisȂAϐmyATIS͌̔z̒l \$'(kk \ '\jk%Do[viJԂjV%t@C‚ $ ݒt@C serverݒ肳Ă܂B  ̐ݒA@(xzk & ݒt@C  usernameݒ肳Ă܂B  ̐ݒA@($zpkh (.txt ݒt@C  passwordݒ肳Ă܂B  ̐ݒA@(zk  ݒt@C  databaseݒ肳Ă܂B  ̐ݒA@( gzpkhk`'zP"H 0!2 0!2 , 0!4A@(ki !@"')Microsoft Scripting RuntimeQƂ邱$myPatht@C烊l[0!2]`  .old B@ gp”\ȃt@Cԍ擾@]$'P(ݒt@CI[vAݒL^   server,  database, Xp username,  password,  atis,  #-----------------------------M #̍sȍ~ 3#㖳@NJǗf[^x[Xpݒt@CA@( 7#ݒ荀\es& <As{BT*=h8+3qɸf]aԳOoe8xɸf]aԳOoe8As{BTME< SS S 6"LL <N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}0H ,@`k@ QQ i ` hi  perdyy@`lclsR`j`\h`pf  ,` k 33Zi !i@iX!2ii *i @i   \x %``V"%@%@Xh `z  p`t `t``t``t``t``t`p@T &$&@D @4 @($ @ @p @ ((0,@ @ @ @ @ @ h$ `z `t`p`t`p P `Xl(0h  `h0 `d  ```tH`p`Xl`h@ `d ```Xl`t`ph`XlP`h8`d``( @`h`t`px`Xl@`h(`d```d h  P ` 0  x  P`` `t5@`p`Xl`h:`dl``Z @H X Dl0,( @ D 2@ 4 @ 0 @ , t@( `@$  @  G{@  {@ @( @ @  @@$r,P $*\Rffff*1450dc2c74*\R6*#16*\R6*#7*\R0*#e*\R0*#19*\R0*#13*\R0*#14*\R0*#1$*\Rffff*1850dc2c74*\R0*#9*\R0*#f*\R0*#114   8 "X   B   ( D 0 x:( N@& X %D "  H hN@ 2 >FHPFMV8P\X\8P\XP(@ H P` h  T; V;0́AserverAdatabaseAusernameApasswordAatis  #5¡ " (#1sAJ}ŋ؂ċLq邱ƁB 8#pX[hȂꍇɂ́upasswd,vƃJ}܂œ邱 #ơ ,#Rgsɂ́u#vs擪ɋLq邱ƁB 5#s͖B܂J}̂Ȃݒ荀ڂ͖B 9#J}ĂAserverAdatabaseAusernameApasswordA 7#atisȊO͖Bdɐݒ肵Ăꍇɂ́A #LqĂ̂D悳B VmyPass.oldt@C폜x .old B@'z" 0!2 0!2 , 0!4A@(kiAttribute VB_Name = "clsRmkINI" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ y@zDim r As` New O@ption licit Pub FuncBRead|( _ ByVal myPathS@ngA)BooleanB@rror GoTo ErrMe~sAj*myConfigArray(B Ã@BuffG  CountIntegeriRAmmaPos Open;F@3Inpu#1A, 'Csst@|VPV̓@hŊJ@' ̍sĂA$0= 0Do Whi@EOF(<1)EMC @FPIԂ܂3 LiA2#1N,7S@͋ǂ@łPs #If Left(my, `<> "#" A nd " Th(!c'#ŎnĂAƒk Ȃ' !%+ d/ '!c'JE.gJE If LHoop#Cl 7%3@(D2ReS- (l1) F2B EthEEi >DA.@""B 'o b QNA"HUntil H2)n'"0]AFE2E1Cݍ'?D}EG ?D>Daa1x= `S()[, ",", vbTex`tComp  'G}̈u𒲂H ( a0Zq ݠ1[Ȍ̏`B_"^x'( ǡi, 0Trim(mp R)) O`̔z == bMid>Xp8PiP oW d "or9' ̒lAϐp0srp  3 u; SCy "dщ  DD/ ImyO WO kO E u0nO 2I UDO YmyO O O O E passwxordO D I PDO Y~!O O O O E atis   ATIS #YmyO gO QO =aii~ `@')Aw 'PDov1jiJԂjzssWtzrSA@r' MsgBox "ݒ" & _FILE"`-verdQ @BdI nformon:,1p% ExitVsi 1   9/ / / ?/ / " E3? ?/ Ŧ8/ / / / _ " 8T__/ v\/ / / + ? #ڧ$8Tru<( =:SP.Number <> 0 Then  MsgBox Err.N& vbCrLf &TDescr iptiojEnd If !Func6Pu blic  SaveRmkINI( _ByVal myPath As String, ServDatabase?UserNam Password ATISN)Boolea Onor GoToqMes{ = False~'Micros oft Sng RuntimeQƂ邱Ƅt@C烊l[ Dim fsoUNew FileSystemObject .MoveADb,Ed& ".old"E2'gp”\ԍ)擾9my@AIntegerG@C$re()D7I4v@AA L^OpenE+F_Output Access Writ}# Pt GX, "@"",AC dD š un E pD Ū atis AV=#->WQ̍sȍ~㖳@@"@Ǘf;^ăxXp> ڂ́A5A1A+dA&A!v%#5¡ ""1sAJ}ŋ@n`ċLq!QasB8pX huȂPɀud ,vƤ ܂`œ!~8 Dơ R@g  # s擪ɿvah#; B܂̂?1g'ÕĂf?8AAX ;ȊOda`-A b#̂D悎1"<#ICloem'ss痍8폜'aDexlet!TruExitF7!z`: If!@u}3h}} (08Q@yI& q&&A 1Yq9 yQ)A)Q(@4)) W|l CtKypz lt]pj  l@lMT@D  D:4]<$ll='6D kjpj(=%kjp lt]phCl    l@lMT@D  D:4]<$ll='6Dllpfkf3HkflMT@D  D$ $`#khlp/6D$M'DkflMT@$ $ `#khlp/6D$khlp0khlp khlp 0Ukhlp khlp 0khlp khlp0khlpkhlp0khlp khph= v 0c;''*F$@*#*FD /6D$/ v 0;''*F$@*#*FD /6D$/ v0;''*F$@*#*FD /6D$/ v 0h;''*F$@*#*FD /6D$ v 0f/pz/$  l l'''$  l#*#  ,l*FD 2)6D$/ 8lpt0 D$&l CtlCplCllChlCdl C`Kpzlt*#Xlt\$ d/X'4 pV54ltkV]#*#Xlp*#0kV! 2X0# *#Xll*#0kV! 2X0# *#Xlh*#0kV! 2X0#*#Xld*#0kV! 2X0#*#Xl`*#0kV! 2X0"kV! #kV! $kV! %kV! &kV! 'kV! (kV! )kV! *kV! +kV! ,kV! -kV! .kV! kV=lt*#X\$ \/Xpz/$$( ,, l(,l'''( ,, l(#X*# 0 $$ ,l0*F4 2X 0),$64/$< @(dp`l\ht0 X0 ,$4PrU @,`#DA`! i   )#nrU , `#,A `__SRP_9"clsINIR__SRP_a*G__SRP_b!K 550dc2c74(*\Rffff*1550dc2c74\0$*\Rffff*1;50dc2c74*\R0*#19*\R1*#155*\R1*#152*\R1*#c6*\R1*#c1*\R1*#155*\R1*#152*\R1*#c6*\R1*#c1*\R1*#17b$*\Rffff*1850dc2c74*\R0*#10*\R0*#14*\R0*#e*\R0*#9*\R0*#19*\R0*#13*\R0*#fLO4 6@ ,x > < ( @ ` h 6 & &  &( P p    & & "  2H 6 $$&"0 :X **O*R|J>Ei.TX*=h8+3q[[A^Đsx[[A^Đs>Ei.TXRxR ME` @SS S H">"LLLLLLLLL Lx+ 4i ,!88 h@?x+ 8i ,!: hh@x+x <i ,!< hpAx+ @i ,!>X hxBx+8 Di ,!@ hCx+ Hi ,!BhDx+ L i ,!DxhEx+XPi ,!FhFx+Ti ,!H8 hGx+Xi ,!J hHx+x\%i ,!L hIx+`+i ,!NX hJx+8d1i ,!P hKx+h7i ,!RhLx+l=i ,!TxhMx+XpCi ,!VhOx+tIi ,!X8h0Px+xOi ,!Zh0Rx+x| Ui ,!\XhS\k![i^ i` i `\PSp,!bhXVtk" vi^ i ,!dh(Y\k#i` 8ifXi `\Wp,!h[Hk$i` ihij8pi `\Zh`&d,PH#`^2k %::i` ihin(i  |hx``\_d`&``(^\`lX % (,n8$`a>k &99ip ii  rl @ % tbhX@`\d`&``(\ %  % ,6%`Hdkx '>>"i  `vt`\p`&l`(h`xd`z``V^@ % h % ,T`&`gk (&&`i  `\t`xp,'`ik )i  `t`p,x(`lk0 *i  P % )`n|++ *`o|+,,+`hpk8 -i  `Nt  qp,p,`(sk.[i i 0 i ph%,-`Hvk/ki `t,`.`Pxk(0i `yt,|/`zk1??i `\z,p 0`H}k 2iN 8 i  `xp, 1`k 3i  #2``k4-- `VxP!(!%b!HHbPHb(Hb8 @" @p@bH"H @bL @bT @b0` @bXh @bt@b|@b @b H@ 6`##`Z  83`Xt+$58): P$X$ 8$i`\X$z"`zx`<t%&H&%0&x%h X %%x`pP&``%z  &`%`t`t@& @`&p @l ''`t`t@`t@''p((('8(x&h (p'`t`p'z `t`0`t'H)0)`tD A %`t@p @(` @(P @(@ @0 @) @ h`)xp))`tX))++`t)`t@*d @*T A %`t `tX)0)))0))(@D @8+4 +P+ `t@$ h`t,`t`P+x8--`t ,+-,+,)`tD @,` ,@`-P A %`t@x-@ `t--`t@0 @- @ h`-x`t-+D@H.` `.`t@h/P A %`t`t`t0--P/.-.+@/@ @0 80 0`t`t`t@/ (@ h ` 0x00`t`2`tH0`np@H0 01 01/`t`np`t(`np(22 [Dummy] 2@p h"`"1xP21`t282002`t`np`np2D@l 5``t83P5+`hp55+`jl28222221(@44585 5P543`.x0@d @P h5@T @L @J @5D 5`6`.x@@ 5/`th, `,5x 65`.x5`.x<`.x55065H6 H788`tH607 7888H7h0 `08z 8<x::`t 9:::9h2 :`2:x:;;`t;;;:h4 ;`4;x;<h6 ?`t??`np H "8#8 8x p "Xx! p"8 X  X88xX! H"`#(HP#X! ! ` #!0xxh "HX "`p??(?8<`6<x8<<Mx@@P@0@O`.xh8 `8@x@@@@ A AXA8Ah: `:AxXAHA APAAx(B(B`B@Bh< `<Bx`PB(BBxB0C0ChCHCh> `>Cx`XC0CCC8D8DpDPDh@ `@ Dx``D8D DD@E@ExEXEhB `B(Ex`hE@E(EEHFHFF`FhD `D0Fx`pFHF0FFPGPGGhGhF `F8Gx`xGPG8GGXHXHHpHhH `H@Hx`HXH@HH`I`IIxIhJ `JHIx`I`IHIIhJhJJJhL `LPJx`JhJPJJpKpKKKhN `NXKx`KpKXKKxLxLLLhP `P`Lx`LxL`LLMMMMhR `RhMx0MMhMNN``MtNNNNMhT N`TNxN``NtxOOPOhV P``Ot`VOxPOO QQ@Q QhX Q``t`XPx0QQP hZ `ZXQxQpQXQPxh\R``Qt`\QxR``tpQpQQQSQPT``t S(SQ``hppTPS`jl``Qt(``t@T8TQ TRx@Tl Z``tT8T `hpTT `jl@Uh @d UT@(U` @UU@\ PU(U(U@Thb`b`Ux``tUxU`hp`U`nl``t`hp`jlxUVxUUU@t ``t(hdhWW``tW(W`hpXW`nl`d(Wx(``t @(Xl XXX@h ``tX(X`hp``HXtXX `nl @d YY `pt(X`pxW88ZXYXWW@W`P(```t`hp(ZhZ`jl@\ (h`PZxZPZ``tZZ[`pt[[`pX[p[hZX]h\\\hZ\Z\``t`hp`jl0\[@@\` X\\ @p]\ \@\ \@X \h\ ]`pt]\ `pP]T*`(``t0]p]`hp]]h`nl@P (@]L @H X```t]]`hp@\`nl(_P_H_a``_^pa^hP `+`P^z X_^^_^``t@__,`hpp_h_(_ `nl _P_" @_T __ @_P `_ @L @ `H @`8`_ @D H` `x` `l`pt`` `p@ a@ (Ha<,````pt8a_%`p@8 `a a,4`.` Ha,x_TL @2 `(bXbxHc0dbXbbpbhn `n@bz bXbb@b`ptbb`pcbcT @ cX 8cb@pcT `c c&~@P c c@cL (cpc@cH cc@cD 0,dc$@@ dc$ dc* c2@> (ePeXfehe0feeeeeh6 `6dz (eeed|&~@fX @fH @e8 @f( e@$ 8e0,(@f   fe"@ Hff" @ f2@pf @ @f  @ @f @g @ (@ 0gHh h(i@ih8hPhghghT `Tgz gghhg$0,(@hl @h @xhd hhPh@` hxh @h\ xh`@Z H@T (@iP @L @Xi< @pi, (@i @i @i @ @ j k8kkkkPkjjj`8jth @`jz (jj j 6PT0,(`jt@x @kl @hkh @d @` @k\ @X @kH @k8 @l( (@(l @@l @ @ h `Xlz (v`hltlplmm(nhnmmplhmHmXmplXl0,(@x @mt @p @ml @h @nd @` @nP 8q q`8nt@n@ @n0 @n @n @ @ oX Ppx,pX`qPrqqxqq qhr@nh `qz q@rl @j @rX H@qH @r8 @4 `qt`NtHq r  0@r0 8r,( @@, @r( (@$ @r @s @ @ 0tPXttuutsptsh0,`sx tsHts`Nt`st0t@tl 0,(@th @d @` s@t\ @X @0uH @Hu8 @`u( xu@xu @u v@ @ 0,h  `ux uu u60,(@r w`Ntuvwwwv0wuuu@`wl @w\ @HwX @@T @P @xwL @H (@w8 @w( x0@x @8x @ |`Nt@ Hpyy0zyXyyy@y yh `xx0yyPyx60,(@r @zl @`z\ @yX @T {x{u@P @zL @H @Hz8 @xz( @z @z h@ @ %@|{X|{|x{}yh| `|`{x`{{0@{l @(|h @|X }w`Nt@T @}P @p|@ @|0 @| @| @ @ @ {,( @0} @ X ~H~H~~~(~(zh `}z 8~~`~}`NtH~(@~` @~P @~@ @0 @ @0 @ @ @` @x @ p~0,< @ @ @ @ pЁ@؀h 8`z  0,(@(t @Xp @` @\ @X @T @P @L @< @, @0 @H @ @ #!#H`x(8@0T @ЃP @L @J ` @H 8x@8 @4 @(0 @x @0 @H @` @ @ @ @ Є @ @ 0,@@ @ x$$$$z%`{0}(||||`y66xX!(!#xH(!%l`<r,P $*\Rffff*10 .8&h   (0"X$ & " :8 x $&& :( h& "  & "@ B h p 47    B    6   ( 0 8 B  @ H *<`  B    6      B    0 68  P &0`   B     B     "( *0 ` h p x                0 @ ` h p    ") "  ( 8H $`    "#(  H P `p 0      (  0 @BH P h p" x    B   "    B   B  ( H PBX ` x B   B   B   (B0 8 P XB` "h  B   B   B  8 @BH P p xB   B   B   B  ( H PBX `  B   B   B  ( 0B8 @ ` hB$p        0H %h   *  (0 8B @ H ` p  B     0P ` x    B,  $   (  HX` h !    ( 0 8B,@ `x     %( "@$#h") *"' 40( &`    (  "0 Pp   !      (B$0 H ,X       % @Ph x          % ( @ H "#P ")x        '! !8!P!X! `! h!p! x!!! !B! ! !!!!!  !!!"  $"0"8"@"H" P" 4`""(,";" 4" #%0#P#h# # ### # # $$($8$ P$ h$$x$ $"($$ $$ %% % %(% 0%$8%lH%h% p%Bx% %%%% % %% %%%% & (&0& 8& H&X& `&& & & 4&&&&&' '$'l '@' H'BP' X' `' h'p'x'&'' ' ',' (( ( (($8( `(h(p( x((( ($(l(( (B( ( (( ) 2) @)P)X)`)h) p)$x)l)) )")  ) )")  ) )B) ) ***  * 8*"H* p* * * ** ** 8*!**  +&#+ 8+ H+P+X+p+  x+ + + + ++ +++  +&, 0, @,H,P,h,  p,&, , ,,,,  ,,  - @- `-$x- - -- --  -*- . (.0.8.P.  X.*p. . ....  .*. (/8/@/ H/P/ ,X/  / / / / / // // 80 0  (0&@0 h0 x0000  0&0 0 011 1  (1$@1 h1 x11 11 1*1 1 11 22 2&(2 P2 `2h2 p2x222 2$2l22 2B$ 2 2 B3H3 P3`3x3 3$3l33 3B3 3 (34 4404 @4H4P4X4p4 x4$4l44 4B4 4  (44 55(5 85@5H5P5h5 p5$x5l55 5B5 (; 0;8;P@;H`;0A; (; B;;(A; (< B0<P<HAB A BABX<`<Ph<H<0A< (< B<=(A= (@= BX=x=HAXB A BAA ==P=H=0A= (> B >@>(AH> (p> B>>HAB A BBA >>>> >$>l>? 6B 7 7 77# 7*+@7p7x7#7(*7B77#7(*8B88X8#`8(*8B8888 8$8l89  9B(9 09 89 P@9B`99P9B99P9B9:: : (:$0:l@:`: h:"5 B566 6(686@6<H6Fh6 6 6 Q66 Qp:6 Q:6: :  :: <: ? (?0+8?; h? p? x? 0? .???@@ @ (@$0@l@@`@ h@" p@ x@@@ @ &@@ @ @ "@ A0A HA XA  `ApA xAA A Cx +r[hiRɕςĂ(^^;)jne I0------------------------------------------------.j& INIt@C𑀍삷NXW[7 Modewɂ胁ł̑ŝŁA”\6 Wordt@CActiveXRg[pɉ y@z  Dim INI As New clsINI yvpeBz0 AName / ^[QbgAtiveXRg[ Mode / [h̐ݒ2 SectCount ZNV KeyCount L[ GetSect ZNV GetKey L[ GetValue l擾 y\bhz SetValue l̃Zbg Delete ZNV/L[̍폜 Read INIt@C̓ǂݍ Save INIt@C֕ۑ, Release ̊J/vpeBl̏0------------------------------------------------]D[X!$Section`]D]!$Section`]D=$ke      !"#%&'()2+,-./01$3456789:;<=>?@ABCDEFGIJKLZOcQRSTUVWXYZ[\]^_`abNdefghijklmnopqrstuvwxyz{|}~y&Value`]D;!$ Comment Block]D|($%Section&Value؂蕶iʏ͉sj Section\x^D $ZNV "[Section]"^D $L[ "Key=Value"^$L[p]@DP$^[QbgActiveXRg[]@D!$SetValuȅ[h]@$ ZNV]@D!$ZNV]@D $INIt@Ce]@ "(ݖǂ̐]@H"(ݓo^̔ԍ]@(ݓo^̔ԍ\[gς]@p"(ݓo^̔ԍ̐]@(ݓo^̔ԍ̌]@(ݎʕ]@"(ݎʕ\[gς]@0(ݎʕ̐]@"(ݎʕ̌3--------------------------------------------------- kaisetuL]@X.݋ZKFؔԍ]@.݋ZKFؔԍ̐]@".݋ZKFؔԍ̌]@.݋ZKFؔԍ̔3---------------------------------------------------]@#(ݐԍ]@(ݐԍ\[gς]@(ݐԍ̐]@8#(ݐԍ̌]@ (ݓo^̔N]@`#(ݓo^ǂJ݂]@H(݉^pJn̊ Section  %    %  'k8i0Key  %    D %'kkiZNV   % % 'ih L[]  D %'\ \  \ % 'ki l]0  D %'\ \   % \ % 'kpihH[Section]`ɂ   ' i Key=Value`ɂ  D n'"ih#FilezSection\̂蓖Ă]]]]](] Dummy @P p|(k ANZXĂ݂$ 0!2 *+ Err.Clearkk蓖_x DoEvents N Gxj ($$ (   ZNVƃL[ Err.Clear \@| N \ $| Ps󂯂 \+| \ '\ \@|k@k8 N$! \+| & N$! \ '\ \@| & N$% \+| N 'N \ '\ ($$e) RgƂs, L[̓VJg \@| ($ \+| \ '\k ( '( \ 0 |' 0B@o8  AName̎擾 ',m  AName̐ݒ .'mX  Mode̎擾 '0m0X  Mode̐ݒ .'m  Section '2m ݂̖ǂ̐̑ '4mx ݂̎ʕ '6mx ݂̎ʕ\[gς '8m@8 ݂̎ʕ̑ ':m ݂̎ʕ̌ '<m  ݂̓o^̔ԍ '>m X ݂̓o^̔ԍ\[gς '@m`  ݂̓o^̔ԍ̐ 'Bm( ݂̓o^̔ԍ̌ 'Dm x݂̋ZKFؔԍ 'Fm ݂̋ZKFؔԍ̐ 'Hm 8݂̋ZKFؔԍ̌ 'JmH ݂̋ZKFؔԍ 'Lm ݂̐ԍ 'Nm X݂̐ԍ\[gς 'Pm ݂̐ԍ̐ 'Rmp ݂̐ԍ̌ 'Tm8 x݂̓o^̔N 'Vm ݂̓o^ǂJ݂ 'Xm 8݂̉^pJn̊ 'Zm SectionKey]@  ^G{j  G{j ^ NoŎw ^$!'\ `e NameŎw \   \$!$ ` \$!'\yX kP H d@ $ SẴL[(Section֌WȂ) \   \ \$! '\kmXNoԖڂSection01Ԗ ^ G{j  ^ ^$!$'bkHm@SectionNameNoԖڂKey01Ԗ]x  G{j f G{j \   \$5$ `5 f f7$'dkXyPkHq@8m0 SectionNameKeyNameɑ΂l]X]p j'ȂDefaultl  {k \   \$5$ ` &5  &7$ h &7$':v{kkqm  ValuẽZbg]H]]]] Gzj   ZNV \   \$!$ ` \$!  L[ & \$!  & \$%$ h$ ValueXV h n$" & \$,yk \$! & \$!   VKL[ \$If .KeysCnt > 0 Then t = 0 &@ h n$" &;5 9qk'Pykkk  \    VKZNV  G'\j \@ \$@ `$ 9 h n$";9q  ''Pk  T'Pki  H ݒ̍폜%KeyȗꍇAZNVƍ폜]]D(]`]x] z0k(  ZNV &  &$!$ p (@r &$ (+r ( '(kx ( & (  r' (''nk0d( L[̂ \  \$!$ p \$!yk & \$! & \$%$  &@t & \$% (+t ( '(k ( & & \$0 t \$( ( \$('nkkk  T'nkpih8"Xݒ̓ǂݍ]]]] '6zkActiveXRg[̓ǂݍ]]]('VTextBox1. myStr = Word.ActiveDocument.TextBox1.Value |'x x    & %R'x x  &$~+-AĎsꍇKeysCnt邽ߏ@X$@$,$(ZNV' &   &$ &$$ZNV擾'(  ' @ &$ $( &$$eL[擾 ( $@ &$ ( $, $! $( ( '(kk  'A@'6z" 0!2 0!2 , 0!4A@(ki ݒ̕ۑ]0]H'x"Pzɍ\̂ZbgA$ 0!2zk \   0!2yk x \$'xd x  \$'xkxpTextBox1. Word.ActiveDocument.TextBox1.Value = myStr x$zk'Tz" 0!2 0!2 , 0!4A@(ki`"'A@6]] y[W\ y[W\$'ݶ㗝l$'A@  y[W\ y[W\ $Pzkk ݶ㗝l $PzkkA@T'zp"h 0!2 0!2 , 0!4A@(k0i("'h'+ Word.ActiveDocument.TextBox1.Value = "" zk'z" 0!2 0!2 , 0!4A@(kPiHxdumy'o('o"']X]p݂擾 o^̔ԍݶ o^̔ԍ$'N N'''d` N' N$' N,  %~+  %@'k ǂ̐ݶǐ$ %'N N'd N %@'kʕݶʕ$'N N''d0 N' N$'kʕ̑ݶʕ̑$'N N'd N %@'kʕ̌ݶʕ̌$'N N'd0 N %@'k&--------------------------------------ZKƔF؂݂̕kaisetuL ZKFؔԍݶ ZKFؔԍ$'N N'd@ N'k0ZKFؔԍ̑ݶZKFؔԍ̑$'N N'd N %@'kZKFؔԍ̌ݶZKFؔԍ̌$'N N'd@ N %@'k ZKFؔԍ̔ݶZKFؔԍ̔$'N N'd N'k&--------------------------------------ԍݶԍ$'N N'''d N' N$' N,  %~+kԍ̑ݶԍ̑$'N N'dx N %@'kXԍ̌ݶԍ̌$'N N'd N %@'k o^̔Nݶ o^̔N$'N N' dx N' kho^ǂJ݂ݶo^ǂJ݂$'N N' d N' k ^pJn̊ݶ^pJn̊$'N N'd N'k 'zp "h 0!2 0!2 , 0!4A@(k0 i(  " ;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[g]P.   %'z "x 0!2 0!2 , 0!4A@(k@ i8 p"( !TextBox1ɖߍ܂ꂽcID𒊏o]A@6ݶcID$' $'z k  %@'z " 0!2 0!2 , 0!4A@(kH i@ "0 !TextBox1ɖߍ܂ꂽaID𒊏o]HA@6ݶaID$' $'z k  %@'z " 0!2 0!2 , 0!4A@(kP iH ` <eLXg{bNX̔ԍƖO͍쐬ɕtAύXłȂ'N]]!'V]#]#' \ !8!! \ !8%!Text Box % %Text Box VKT \ !8%!+6KTKT'i "']X N %  ĕۑł܂BA@(zk N %  N   %'x x  !8%(k N %  N   %'x x  !8%(k N %  N   %'x x  !8%(k0'z " 0!2 0!2 , 0!4A@(kip "'  !8%!  !8%(kx  !8%!  !8%(k0  !8%!  !8%(k'z" 0!2 0!2 , 0!4A@(ki \ !8%!+6 \ !8%!+6Shn` V 'VkH6 Debug.Print Word.ActiveDocument.Shapes(i).Namek" ;]]%  !8%!*  !8%!'5 : % %:   %'   !8%(#k`:  % %   %'   !8%(*k9 'Nk9  !8%!*  !8%!'*# : % %:   %'   !8%(Xk89  % %   %'*   !8%(5Hk8 N 'N#k8  !8%!2  !8%!'# : % %:   %'   !8%(%Xk8  % %   %'   !8%(>Ik7 N 'Nk7 N'|zx7"p7 0!2 0!2 , 0!4A@(k87 \* 2 &eLXg{bNXُɂȂĂ܂BA@('''*擾eLXg{bNX̖O\[g(Ȃ炸ԍ̎ႢŎ擾Ȃߘ 6A@8$6'E$6'$6'*#|(6" 6 0!2 0!2 , 0!4A@(k5o5#]x$]$]$'zvf0珇ɒړIɃ\[g*# z  b*# z '\ \  b5H z$: \$:*# z$:'< \$: z+: < \+:k4 \ '\4 z 'z4o44''   !8%(: k'k   !8%(k0A eLXg {bNX: % %eLXg {bNX: eLXg {bNX: % %eLXg {bNX: eLXg {bNX: % %eLXg {bNX:   !8%(0@Attribute VB_Name = "cls@INI" Bast0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBlSpacFalse dCre atablPr@edeclaIdCExposeTemplateDeriv%Customiz EOption 0licit !CompI Binary 'r[hiRɕςĂ(^^;)j '- , Ѓt@C삷NXW?Modewɂ 胁 ł̂ŝŁA ”\AWo rd@ ActLXRgpɉ 4 y@"zDim+ As New ×yvpeBC A¡ /^QbgA 8 F _̐ݒASectCoun&t@C Z@KV AKeFyGL[GLetMA@F@`ValueA'Cl擾 @@(\7h?Set l̀)= Dele@./@̍œReadC̓ǂݍ݁Sav"  ֕ۑ#le } #E̊J/g4axV+CPno Const( sPBSngia["A'-@m` j E]` c=key&.i CBk;~meJBlock/:I |$#؂!iʏ͉s$\j% Typei &Ef ld)g'GF"[]Ws() wg'MBc"m=&C! L>o`9G#iEnd a)&@Q_~M~''Ca`B4oo Ynej̏!"1h'0 A&' H FILEQ-'@ŭ@ taϒ,'ݖǠ Licen+o^̔ԍBySort "\ZgF N e18&̌k CallSi,gn  $ʕs:_%. ?Z]kaiset uLGitekiNins0yoNo?v ZKF$+/(nOC9%Resul-OProduct71/),))&-/4)IssueDQHHN(Openr< pPJ݂-Start?2^pJnFunPhAPCheck`Byp w1)4h'qUC{IfPA.Left$(, 1)@1@rVBA.RighThenQvTru`cQQvIfE k |(S O tS>'PO p p2 <>N @{ In(cP) ;  ) a%  #fPc# Mid2,n) - 2)U0  V1b$ iaQq= i i > 0ֵ en GetKeyName = VBA.L eft$(L, @i - 1)End If  $FunctioPrivate " ValDue(By  As Strping)M'lĂlDim|2PLongiI&nFcPIf-> 0 Th =Righv*n%)ti-tChangeSect7ss[]`ɂn%TsP & && EP 󀲑, O@>= '@'A& c( 'Sub|HToAry(XC;'FilezD\̂蓖E (JtA8GwsConst Dumya"my"@dbOn Error ResupNext@$INI_4Cnt d<=ReA$ F`ILE(05Exit OK'ANZX@IIDp= "" @-.Numberl /?`=& 'd Clear%i'= DoG DoEvpents#A sp >= E,~ %a$Chec k(w)) Or w > UBoundF)! `,NVƃL[;A@.(Pr`eserv`\(ir<nDAB_q <>: PsEBc )Z""*Ai + 1 a ?eqGe;(s).+Fnvto@A`s!no_S(tE#s`s,Else]Not "Y  Y# VRgƂs, V̀XJe* ;2Fw/  wwLoopuS:/#` FSPublic PropertyA A 8'擾3"QO! % =Leg2wnvdqݒv0nv t ModeqBoo WИ   T jK ? 됢bCXt {[ nwSta'݂̖ǂ̐$qCallSigzncSaA6ʕ%!PCBySor_2U\[g#\CU<O_ Se& .̌:o@t LipcencT;o^̔u 4T' wGm 3K3? ; wA8() %7uj_Y9`@#JG@ (  1hAqAGitekiNin`syoNo/(ZKFؗ!Klic Property Get GitekiNinsyoNoCount() As Long  '݂̋ZKFؔԍ`̐< @= INI_ 2n"tEnd HPub!Se'>$N OResulNStri᜛葛#M MductNoHq?" D@  m BySor[D \[gς݌" $ClB]"GF2 !CE.F##P$@kkIss@ueDateEo^̔N a OpenǂJ݂eD?A)Start^^pJn̊& KeyB( _Optiona l ByVSe2cNo -1,ameaϹ `Dim iE Al[If!^ <= Then 0Exitȹq 1 Qc ' >= b0b '! `NoŎwE&K/$(F).sa&tElse( a#

""  For!o (Á - 1)oa@ N (i).)@;iO"/KIfgN|1 ! '""U`p`(W@,E`P ĝ_ '%PC B!L  1p(()lC!:1rqU+ S4?#?# fueg4p #/i3t  kDefapW''4ɑ΂l ' !t! E'pMࢎ!C?+Yn e?*?*!?*Q5pp B?*?*tsj*ojD*t)Qj4jr3 s('v/^%c?1QpVXFun"[t0l6]00rH0/BooleanN'ryZb-Filߕ%0%w1 V Dim z As Long  If INI_AName = "" Then Exit Function SectCnt > 0X 'ZNV4For i1/o (oC- 1)'+Get,(i).)F8 (8Keys L[[ata.ekD[ kN(t)l  #ValueXV S0Change(, b orEnd IfNextSTk< 1 Or KAs[\JVKu7WithBĊW A '*.LJ@(= 0ReAPreserve b@Stri = nB&=A+ 1A9#3=SetIM I mI%cHGiGFDf'0 b;hnaK;N c>0)aqD¡yW !Ly Hd"%=D!.BCKB7 -Mode $z Save3.E !Public Delete( _ByR *,Opal |aB1Booleaf'ݒ肠̍폜 'ȗꍇAa₲gainib7 'd8 @ () !&tOwG-K|#:W ` '$_t"9W?ctS4<>f9,9Ew_8J=watq ww> >TU5koPw <co # u(w Jb J!pT \p9w1(Z Els6̂7&f ,(v# L ThewCheck-.[擾7wrm+ s Rq 57).Name(F0ElseNE~DL[SC1}w3ɗ2=zdBKc Jg Ayw End IfG NextC#KAGetC Read@lTrueExit@ Functw ErrMes:7.Number^0^MsgBox & vbCrLf &Descrip 0 'PublicF Save(8Boolea`mc'ݒ̕ۑ!2iLoʼnAmy@@' OnGo`zɍ\̂bCall ToAryC%+,-i!a!i@3?E) or'H$"M|i|G & IPAs[Y'T@[@J' @Word.ASveDocument.E.Valu "!GD(")*Fa`<2 $e?eeh eCcr.eZ"5cqA3m3An4 EB("y[W\",, "nݑ0l"T Alvlmv`!Qet, mA%3r 20n  , nOBOc1I1)E\\!P XZ \\\\R! \Te EO*WsWE`#;S3DB梨ԩQpbDDDfS tDEDs( __ fRsw1Dwwqwrivate Subass_Initial\izweAt"pdumy$  PTermin(`=z0"""#"AKBsLm ssSS ';P'o^̔ԍs`DHMwgEM7""#1LicencAl'QBySor!F.qx!1=(sXq= VBA.S@plit(sV,@,@BryCompareH CLng(xss)Ѯ$ 3Dǂ̐.A( "ǐ")ő RSta1t/2q Z u '@ʕ!ue("w!U_!!ѥSig1sm~!X_CallSignBySort = StrH(s) End If,'ʕP(stGetValue(""(, " V"If `"" TheFnAlINIC n0Else&VBA.CLnrg#',[Sne\!^-"'ZKƔF؂ ̕kaisetuL ԍtE FGitekiNinsyoNro""Ou sD OI!a .ܤK/ !w&_ 2ܩU 5P%D̔?JI_ ResuloPL'm!'gI_ProductJffj.V D! !ss()z]Split(s,, vbBinaryCompareW"y "k))_!._w >va u8`uuo^:Ns,/:| o|IssueDate^A#0~Y|8d5qǂJ݂  Open ,H '^pJn̊ { ? ? Sta|rtO L Y\ #0-TruExit Functio ErrpMes:C.Number <> 0|MsgB(ox H&?CrLf &RDescripe}PrivA#$ _By0 myHing As+,ORala0Dele(0B@oolean(Fa)  On or GoToqA%30Ȃu,vŋ؂\[gwDim cSclsi := New @ .W,uU Aublicv% ReadCIDb LongO ITextP%1ɖߍ1cID0omyClientIDIas8= 4 "p"/Not Is /eric()/t @Q/5 y7&f ,q,e; PdAo3 'amyAga?'QPuma F,0[9U[ UPUdTextBox() As String On Error GoTo(Me s\ Dim s (*If Word.ActiveDocument.Shapes(c1).Alterna% <> "" T`hen ^s8s =3NCVBA.Left(ss,  n(": "))1?AMid9 4).3w= sEnd If ZW " U2yUeLXg {bNX:Z]""ZtwZac2 Ə G ?mox?Yo?Y?Yz_n ?YG\?Y- "Y &&Y3Yc Y(YYI%YY_YY [,%rY/?+ Y:p,7rReauQS%ExitP Funpo@ v @:\.@Numberц0q Msg`E& vbCrLf 5Descriptiq5Private SaveD=(B0yValٔrBooleaR pFalse  &MAX * 3)_Q"ĕۑł܂B |ۤ2c =2,M + 1, ?դ?oN= rS 1 Q * 6 a "0 x #  ϿeϿ Ű /Tru.>rr>>)0>>>A >>Cp 01& vbCrLf & DescripSub  h, (ByRef data(, a$קjHgtemp7@.#j?ĉ'Pvf0`9!ړIɍ=Dhile jT <-di j+gFiEc9a/AComp(b j),!i!b=j#e @"iUiA / )jE iLo|op!* SaA $ L- lCx/ (x H pqx/ t$ H tqx/ y$ L- xCx/ d(x L- |Cx/ p(x L- Cx/  (x H qx/ h$ H qx/  $ L- Cx/ (x L- Cx/ (x L- Cx/ (x PlCt<l /<8/l [l @Aqx  lt =p<dh%dlp@Aldlt0/dlp@Aqx pfh p<d\ lxlp@Aqx pf\/  (tdP-l /<l Ftl @A>t1x/ P(xt l Ct-<#/l9/p<dhlp@.d@q`\`l\lt0/\`l\l`>\1x q`-d pfhU/h 0xdt\Xl CtlCplCl-llCx<7/h<d\lh@.X@qTPTlPlt0/PdTdH!PldTlPlp0/PPldT>P1x/ dfH qT-X hf\U//48 xXtplP@l CtlCplCl4 0,/<d<dP%Lld@AlLlt0/Lld@A#`ld@AdD)Ll`ld@AlLlp0/L'LlllplLl`ld@A;/L `fD0ld@Al`ld@Ald@.@@q<l`<LlllplLl`<;/L<< q<-@pz dfPY"<ld<< qdld@ ld@.8@q44LltlLT4/L!LlllplL4;/L 4 q4-8<<pz 82k2pz/zLD*@8tplh;YLl CtlCp<'/ lp 0`<dT%Pl`@AlPlt=/Pl\l l`@@rU 6BI!99iQف&&AU ViAI&q)q|a{Ʌw 9iш Aiɉ1 ]ъa(y'Q'Y!ы ){ AьYUA)U(@))  6 W    _    _    _    _    _    _  _  _   _  W    W    _ _ Pl Ct7lt #p0lt #l02plFpz/ P(tplpl Ctlt #p=/pd6' :PN@@tM`@ 6@ bpz/ lp(tp@ P l Ct-<tMd@T T(D4$$lt  1x6T$/ XP,xtT4$p l Ct-6' :PN@@tM`@ "qp6@ lpdlplt 1x/ lp,xt@  l Ct-6' :PN@@tM`@ "qp6@ lp~0tM`@@ @lpiP "lt 1x5@/ l,xt@ d( l Ct-lt*#p*1x/p/ (,xtpp0l CtlCp-lt*#llp*1x/l/00xptlK<7DD 0 L PP  lLRPD D;lh<Y)JllDkJllDltxlhNltlx =L  ltlx;ltqtltxlh@Altlx;#plh@Ad@ltqtltxlplh@Altlx; pf@lhqhltqtDJllDkJDltxllDltlx;ltqtllql ltD xD PPHP<0xdPTL- 4Cx/ (x Ll Cx lx4(x H 8pz/ '$ @ k 8$ H <qx/ '4$ H Hqx/ $ L- \Cx/ (x L- `Cx/ 4(x H dqx/ 9$ H hqx/ 0$ L- LCx/ d(x L- PCx/ (x H Tqx/ $ H Xqx/ l\ll@l\q\ `fTR l\l`  l\@ l@ l\<pzxd<dHx%Pld@AlPlt0/Plld@Aqx#`ld@Ad@ )Pl`ld@AlPlp=/Pl`hl`ld@Al\lh;l\q\ `f@ l\l`j'l`ld@Ahld@Al\ld@Apz dfH/ 8>k>pz/@X>htpl!i 4x / P V4K4 0&pz/ p^X>X1d,*#Xld 1d/X;:HN88ld( (6 Y$D68(@ %@A @A;@A <DLlDdmllD =allDk qh<<<@ llD<@A_llDk_$lh<@A llDlh<@A;(<@A<@Alhqh lfB<< pz/ $$   l$*l'''($   l$#X*#  , l *F8 2X )68(/ 4,dt0 X 8( CpK h ll  lhRl>/ DLtDd` h ll  lhRl lp 0ltDCplp*#\ltD*1p/\ tf`^ZlpkZ/ pz/ $h ll  lhll'''h ll  lh#\*#LP TT , lP*F< 2\LP)lT6</ (p0 \PLlT<tKpz xl >l1tl >l1p x lt =xltkx/  lp =xlpkx/  xpz/ $d hh  ldhgl'''(d hh  ld#l*#X\ `` , l\*FH 2lX\)h`6H(/ t,tp0 l\Xh`H(TKcpz@ <xkxR/ pz/ $p tt  lptl'''0p tt  lp#l*#`d hh , ld*FP 2l`d)th6P0/ $ 0 ld`thP0D 4pz$  D  4$ HKpzl >l1t lt 0\  L  P T ltLl+jltllP/l8:XNHHlt8 86 Y4p6H8!lpiH^T5H#l ll 1t/l lt 0$ H;tMX@^Hl >l1t lt 0~  \  ` lt\l+jltll`/ll >l1t lt 0 dtMX@^dl  >l1t lt 02 hItMX@^hl !>l1t lt 0  l ltll ">l1t lt 0 ptMX@^pl #>l1t lt 0 t,tMX@^tl $>l1t lt 0j#lx/lx ltxl %>l1t lt 0  |   - lt|l+jltll/l8:XNHHlt8 86 Y4p6H8l &>l1t lt 0e |tMX@^l '>l1t lt 0 tMX@^l (>l1t lt 0   ltl )>l1t lt 0G  U ltl *>l1t lt 0   ltpz/ $4 00  l40;l'''84 00  l4#l*#$( ,, , l(*FH 2l$()0,6H8/ H4pd4t0 l($0,H84 l Ct-K9 +pllltp 0,>l1x/$d hh  ldhl'''(d hh  ld#l*#X\ `` , l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(`Kk rl ->l1ttM\@ .O qx/ tM\@^qx/ $T XX  lTXl'''(T XX  lT#l*#HL PP , lL*F8 2lHL)XP68(/ (t0 lLHXP8(`Kk rl />l1ttM\@ .O qx/ tM\@^qx/ $T XX  lTXl'''(T XX  lT#l*#HL PP , lL*F8 2lHL)XP68(/ (t0 lLHXP8(X-KPPT0MX@hl1$2 43l D4h 05T 06lP =/P)lhTHPT0MX@hl1$2 43l D4h 05T 06>P1p)lhTA:X7N@@0 0"pM @ 8 :7]36@0L('@pMX@0 90`1p6@0BlpT0MX@hl1$2 43l D4h 05T 46)lhTA:X:N@@0 0"pM @ 8 ::]36@0('@pMX@0 90`1p6@0BlpT0MX@hl1$2 43l D4h 05T 46)lhTA:XAN@@0 0"pM @ 8 :A]36@0 CpBlpT0MX@hl1$2 43l D4h 05T 46)lhTlpCtPPT<MX@hl1$2 43l D4h 05T 06lP =/P)lhTHPT<MX@hl1$2 43l D4h 05T 06>P1p)lhTA:X7N@@0 0"pM @ 8 :7]36@0('@pMX@0 90`1p6@0BlpT<MX@hl1$2 43l D4h 05T 46)lhTA:X:N@@0 0"pM @ 8 ::]36@0('@pMX@0 90`1p6@0BlpT<MX@hl1$2 43l D4h 05T 46)lhTA:XAN@@0 0"pM @ 8 :A]36@0 CpBlpT<MX@hl1$2 43l D4h 05T 46)lhT ltlp*1tPPT=MX@hl1$2 43l D4h 05T 06lP =/P)lhTHPT=MX@hl1$2 43l D4h 05T 06>P1p)lhTA:X7N@@0 0"pM @ 8 :7]36@0b('@pMX@0 90`1p6@0BlpT=MX@hl1$2 43l D4h 05T 46)lhTA:X:N@@0 0"pM @ 8 ::]36@0('@pMX@0 90`1p6@0BlpT=MX@hl1$2 43l D4h 05T 46)lhTA:XAN@@0 0"pM @ 8 :A]36@0 CpBlpT=MX@hl1$2 43l D4h 05T 46)lhT ltlp*1tltCx/ $ ll  llLl'''0 ll  l#P*# hh , l*F@ 2P)lh6@0/ X0xpt4 PlhT@0(l CtK.pz#tM`@P P(@.]t5Pj+'''0:`>NPP 6P0/#tM`@P P(@@]t5P*(PAtM`@0 90`1p6P0Blp=M`@1$2 43 D4 05 46)#tM`@P P(@]t5P*(PtM`@0 90`1p6P0Blp<M`@1$2 43 D4 05 46)#tM`@P P(@]t5P*(PtM`@0 90`1p6P0Blp0M`@1$2 43 D4 05 46)pz/$   ll'''0   l#*#  , l*FP 2)6P0/ ,pt4 P0tKpzPX\0M`@pt1$2 43t D4p 05\ 06lX =/X)tp\B \0M`@pt1$2 43t D4p 05\ 46)tp\PX\<M`@pt1$2 43t D4p 05\ 06lX =/X)tp\4B \<M`@pt1$2 43t D4p 05\ 46)tp\PX\=M`@pt1$2 43t D4p 05\ 06lX =/X)tp\B \=M`@pt1$2 43t D4p 05\ 46)tp\pz/ $T tt  lTtil'' ',T tt  lT#X*#LP pp , lP*F< 2XLP)tp6<, / 5t$ 4 XPLtp\<, @pxpZ<zLPT1$2 43T D4P (5lL)TPcH04zM8@PT1$2 43T D4P 054 l6: ?N ">0F 8 :?]3)TP46kxp k4Q04zM8@PT1$2 43T D4P 054 l6l0`;/0)TP4 kQ04zM8@PT1$2 43T D4P 054 l6l0`;/0)TP4 kQ04zM8@PT1$2 43T D4P 054 l6l0`;/0)TP4pZ kxpx zdHL kZJ+''':8@N 6  0  <  =+`YL`0`<`=$L TT  lLT9l'''L TT  lL#0*# PP , l*F 20)TP60@P8`h5T@8 0TP4.pxkx kxpz kzkx kz z kx Ctkz kx ; ltkz ; kzpz# kxpx v (t       !"#$%&'()*+,-./012345/ #, `0, ` 0, ` 0,A `00 !`  0$ "`( h0(A h!1( h%#( h)1(  h-((I h1(( h50( h90(  h=((I hA(( hE0( hI0(  hM((I hQ(( hU0( hY((  h]((I ha0( he0( hi0(  hm((I hq(( hu0( hy0( h}00I h Aa(, h A00 h a08 ha08I #`a#0 $`  #( %`#( &`#(I '`#( (`#$ )` $ *`(I +`#0 ,`   0( -`(( .`((I /`0, 0`#( 1`#$  2`0I 3`p& VnclsWinVerP"~__SRP_c__SRP_d modCheckDataD>)y50dc2c74(*\Rffff*1650dc2c74\0(*\Rffff*1650dc2c74\1*\R0*#14*\R0*#19*\R0*#13*\R0*#f*\R0*#e4  L( xH :FX,p0 H     0@ P ` p   $  0@  P ` p           L `H<"x H (% &&QaXGetVersionExA8GetVersionExA\$GetProductInfoHLoadLibraryAAlFreeLibrary$GetProcAddress<^5MLM=t*=h8+3quRhHK]WxuRhHK]Wχ^5MLM=tRhRRRME, SS SHH>"L<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}h!+p@ )`A % hhhh h(x +p$pX$++ )xA%hhhh h(0( hHh`hxhhB CBBBHCBpBBpB BB B B BBBBBBb8C%+PHpH iiii0i + lpl i+p i+` pP ipib`Cb" Cb$Cb( Cb,XCb.Cb2Cb6C!b8(C"b<PC$b@H C&bBx C'bFC)bJC+bLC,bPC.bTC0`,V `Xk aiX  AiZ i  \Hd w cl@ % ^H8 p@%``D/ `bB g`d< `j 2,h `k $il   i y ,n `Hk` (.i  lue i e `\p,p `(k  ggAi se `rteB`tp0--``l----`vh--`xdSect \P ]@ % ^4 @%,z`8k , i| 0 Secti~P si  `rt$``ption  %B CBCBCB @CBHBBB B@B BBB8BbCb Cb&Cb*0Cb0Cb4C b: C#b> C%bDpC(bHC*bNC-bR C/xX8 ` p P` p8 H h p(Hp  PH0@ X p pXHx`hV `V0z pH0fh %@   %p@( @@ @ @ X@ "@ '@ @ I@( @@ @X @ @ pQL@( ^@ b@ @o@P h(@ P$N2.0,(@ @ @x @h @X  @(hh`hz0,(@Xt @p @pl @h @d @` @P @@ @0 @ @0 @ @  hn`nx(`t`tH`tH`tH`tH`tHf0,( @Pl @8h @d @` @h\ @X @H @8 @( 0 @ 0 @ 0 @ 0 @ 0 H x 0 `  0H`x0hp `pxx"z "@H0 @x, @* H H%xH@ H@ H)2$&(*,.02468:<>@BDFHJLNPRT0,( @` @| @x @h @X @H @8 @ ( @ @ 0 p  @ p X (  hz `zz   0,( @ l @h @ d @` @ \ @X @!H @(!8 @H!( @h! !@! (!@ H!@ h! 1h  8 @0^r,P $*\Rffff*16H H$ &&,8BhB(( BHBH( (H*p*(6*08`@@$ 4@ 4x 4 6 ( &H &p < < B$ 0 8  .@  p      &   2    ( &8  H (X .   @ T &GX    &       8  Ph  x       8 @P p  $   $  8 @ &+Hp &x $  > 6  BX RJTH P`  h   Z H 6`      $  0$ 8P Xh p     $( $ ( 8 X` hx   "  "    8X ` "      0@ H `p x  0D$ " 0 8X ` $  "     8 @ H X"x    $l B   ( *0`px  $l B   0 0 !@` hx  $l B      ( *,8hpx  &     (B"  8 Xhpx  & & ( (  @H Xp x 6 6 (H 6P 6 <   @  P p  x   *      .!0! 48!p! 4x!! !! *!" &"8" (@"h" (p"" "" "" ." # .(#X#`#h# p# $x#l## #B$# # 2# "$8$@$&H$ X$)h$$$$$$$ $ $$l$$ % %xOS̃o[W擾RɕE-----------------------------------------------------------------------.jGetVersionEx֘A  h^$\̂̃oCg^$,W[o[Wԍ(Windows98/95Ƃ &H4)[^$8}Ci[o[Wԍ(Windows95 = &H0 Windows98 = &HA)cl^$ rhԍ^$vbgtH[ID萔^$OSɊւtp(  ^^D^D^D^D^D^D0^DH^D`^Dx^DpXvbgtH[ID萔]D / WINDOWS3.1]D ]D]D ]D]D]D@H]D ]Dp]DH]Dp]D]D ]D@]D]D]D]D]DxE---------------------------------------------------------------------GetProductInfo֘A p  P   ]DH81? Business Edition]DH81@ Business Edition]DH1@ Cluster Server Edition]DH`1?. Server Datacenter Edition (full installation)]D H1?. Server Datacenter Edition (core installation)]DH1? Enterprise Edition]DH1@ Enterprise Edition]D H1?. Server Enterprise Edition (full installation)]DH1?. Server Enterprise Edition (core installation)L]DH01?4 Server Enterprise Edition for Itanium-based Systems]DHX1? Home Basic Edition]DH1? Home Basic Edition]DH1? Home Premium Edition]DH1@ Home Premium Edition]DH1@ Home Server Edition]DH1@" Server for Small Business Edition]D H(1? Small Business ServerƂ]DC& Small Business Server Premium Edition]DHP1?, Server Standard Edition (full installation)]D H 1?, Server Standard Edition (core installation)]D HH1? Starter Edition AN]Dx@" Storage Server Enterprise Edition擾]DHp1@ Storage Server Express Edition]DH1@ Storage Server Standard Edition]DH1@! Storage Server Workgroup Edition]DH1? An unknown product]DH1? Ultimate Edition8]DH1@ Ultimate Edition]DH1@' Web Server Edition (full installation)]DH 1@' Web Server Edition (core installation)   ` o"'V'http://www31.ocn.ne.jp/~heropa/vb25.htmo]D ]D ( ]D@ ]X ]p ^ ^(D ^$'` `̋Z, OSVERSIONINFOEX\̂GetVersionExB݂̋Z'bk \ \( \$'` `ؔ" GetVersionExɎsȂ...B( Debug.Print "GetVersionExɎs"zHk@: Windows 95ȂAuAvuBvuCvԂB(肦)M Windows NTnȂAT[rXpbNKpς݂ȂuService Pack 6vƂԂB \! \! f $ 'd \! KT Windows 9xn@16rbgnWindows \!݂̓oKTWindows NT 3.51'XNT35'ZKT \!KT Windows 95 \!CSeWindows 95 OSR2'X \! eWindows NT 4.0'X{dh Windows 95 d'XkHWIN98'Z KT Windows 98e \!AŎw Windows 98 SE'Xd Windows 98'X `kWIN98'Z'ZKT Windows MeH Windows Me'X SWINME'ZioS` ɂ͂Ȃ...BWindows Me later'X'ZnS ɂ͂Ȃ...BWindows Me later'X'Zn X Build:  \!$h'X KT Windows NTn@32rbgnWindows W[ԍɂď𕪊 \!NT8 GetVersionExCvgOSNT3.5ȍ~łB0 Visual Basic 6T|[gOSNT4ȍ~łB; OSVERSIONINFOEX̂́AWindows NT4 SP6ȍ~łBK AWindows XP̌݊[hWindows NT4 SP5Ƃ[hł...BWindows NT Version \!.00 \!$'X b ^! KT X Workstation'X KT X Server'XnP dH S WXǵuHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptionsvB ́uProductTypevɐݒ肳Ă镶񂪁uServerNTvȂServerA0 uWinNTvȂWorkstationŔʂł炵...Bk` 'ZKT \!KT Windows 2000 Windows 2000'X ^! KT X Professional'X KT X Server'Xn WIN2000'ZKT Windows XP Windows XP'X ^!  X Home Edition'Xd( ^! KT X Professional'X KT( Serverʖ̂炵BWindows 2002 .NET Server'Xn k WINXP'ZKTWindows Server 2003'X ^!  X Datacenter Edition'X ^! e X Enterprise Edition'X ^! e X Web Edition'Xd X Standard Edition'Xkx WIN2003SERVER'ZSX Windows Server 2003 later'X'Zn KT \! Windows Vista & 7KT Windows Vista'XWINVISTA'ZKT Windows 7'XWIN7'ZSWindows 7 later'X'Zn`] L'j  ^! ^! ^! ^! j$ j $KT X Enterprise Edition'X NKT X Ultimate Edition'X KT X Business Edition'X 2KT X Home Premium Edition'X .KT X Home Basic Edition'XS X Unknown Edition'XnkMTUnknown Windows'X'Zn d  (Service Pack 6)Ƃ X ( d)'Xk` X Build:  \!'Xn8'Vz("  0!2 0!2 , 0!4A@(ki " l &H8000& = &H00008000 l'hd l'hkpzh"` 0!2 0!2 , 0!4A@(k(i  *񒆂 NullChar yёŐ󔒂揜]  f'\ \  \ $ $ 'nd $ 'nkzx"p 0!2 0!2 , 0!4A@(k8i0 " ] ]D0 ]H ]D` ]x ]D ]D kernel32GetProductInfo$z'pzk ^ ^( ^$'`0ȊOԂƐB `'pz k'v  ^! ^! ^! ^! v$'`0ȊOԂƐB `'pzk MsgBox oviex.dwMajorVersion MsgBox oviex.dwMinorVersion" MsgBox oviex.wServicePackMajor" MsgBox oviex.wServicePackMinor MsgBox lngProductType v K KTBusiness Edition'x KTCluster Server Edition'x KT-Server Datacenter Edition (full installation)'x "KT-Server Datacenter Edition (core installation)'x $K &KTEnterprise Edition'x (KT-Server Enterprise Edition (full installation)'x *KT-Server Enterprise Edition (core installation)'x ,KT3Server Enterprise Edition for Itanium-based Systems'x .K 0KTHome Basic Edition'x 2K 4KTHome Premium Edition'x 6KTHome Server Edition'x 8KT!Server for Small Business Edition'x :KTSmall Business Server'x <KT%Small Business Server Premium Edition'x >KT+Server Standard Edition (full installation)'x @KT+Server Standard Edition (core installation)'x BKTStarter Edition'x DKT!Storage Server Enterprise Edition'x FKTStorage Server Express Edition'x HKTStorage Server Standard Edition'x JKT Storage Server Workgroup Edition'x LKTAn unknown product'x NK PKTUltimate Edition'x RKT&Web Server Edition (full installation)'x TKT&Web Server Edition (core installation)'xn x'pz" 0!2 0!2 , 0!4A@(kPiH   "(+ DLLAPĨGg[邩ǂԂBWindows Vistaȍ~ŃT|[g]p ] |$ 'r r r ~$'` `'z r$'`dX'zkHz@"8 0!2 0!2 , 0!4A@(ki>Attribute VB_Name = "clsWinVer" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDeri|vCustomiz EOption 0licit 'OSo[W擾4 -A#Ge ts;Ex`A P[_ D FuncK  Lib "kernel32" Alias " A" ( _ $ lpInfo As OSVERSIONI(NFOA )ALo ngA7 Type dwerA-aSizeA '\́N@Cg Mpajor"J Y@[F\ԍ(dows98/95Ƃ &H4)inU}@ i5&H0 ABuildNumber, 'rhA)#PformYAT6'vb@gtH@%IDIszCSDHISng * 128AɊt EndN ni9IEXJx?JJ O_JOEXE'JG"*D,A9:%7 J3)4# wServicePackIntegerp!ruiteMaskDProductu1gBytwResETeConst _PLATFORM_WINH32sh0& 'DOWS3.1Gu!@1&h_NT 2 qNT_WORKSTAT&H SER b3q  &H01He400q' SUITE_SMALLBUSINESScENTERPRISE"27BACKOF(FIC4R_COMMUNIvC8MINAL _! S_RESTRICTED EEMBEDDED"^DATAvC2R8GLEUTTa P rOU2/BLAD$aR _DOMAIN_CONTROLLERSq!';@y-`փByVxal A XDm,?>hiXoSpyng`iR ef pd NtuАd T hC`>qLoadraryqplpFile¶gtapiv/Freeh`>MP__[etPcAddresnso h[l>pCOPRODUCT_N ; =6 ' Busin Edi5-_N>)410?n?c CLtUSN_#`z:20Cl`ŀ` 2s wK8Dce r  (full ixalpĠ MHRE C (core, hjj4E1 priOJGNI1B_OCX}YA@ }n//E't PRODUCT_ENTERPRISE_SERVER_IA64 As Long = &HF ' Server Enterprise Edition for Itanium-based Systems Private ConsHOME_BASICi  u2uHome `BasicnT_N V T5/TPREPMIUM*3*PremU+VU1A+V ++uCrVFOR_SMALLBUS`INESS8+DSmall BusinessDJD1 9 /I,Et/9  uSTANpDARD/B1I7 SdardEG (fuMi5Oa)V6K_C(OREPLDYcore @`R iB tar>>TORAGE U72tora\ge$ X`>SfS)314 xprW_S?* !S?WORKGROUPJ 6Workgroup1UNDEZFzD/ 0 ThNe@!1' EX\̂9Ba= TruDEnd IfS@ / )  7 $ = zsȂ... ' 1Debug.@nt "" Exit 2ci' @/dows 95AuAvuBACvԂB(肦Cd NTn#T[rXpbNKpςuQice Pack 6ƂU &= Left$.szCSD", InP: vbNChar) - 1 cSelect Cq5PlatxmIdPLATM_WIN32QDOWS 'xn@16`bgntMajor 31M= "NT 3.51 5P;NT35_4? Min 7v"0ьU 95?i27`D"C"@9nD. ClR2E`[dw7"!_[I? 3 4.0/ z! /*/e" &2p[By$298 v18n}AY 98 SE" ElsexstrOsVersion = "Windowsnd If`!LNameWIN98RCase 90 ' Mٕ\Me\JMJ!' ɂ͂Ȃ...Bc laterfT E@jSelect"82644e 20 & " Build:& LoWord(ovi.dwNumber)DBVER_PLATFORM_WIN32_4NTM'*NTn@32rbgnL W[ԍɂď𕪊 Ci B"*Major wIs < 5' GetExC@vgOSNT3.5ȍ~łUV' Visual Basic 6 T|T[@  4' OS-SIONINFOEX `́A',4 S P6? TGXP̌Ph 5ƠsC ǸulMNT +L%6 Q."Right("00in;, 2Q7eIf blnSuccessEx Then=!lHex.wProductTyp\IA`NT_WORKSTAT4 E# okst4.q\߻[6.23 _# P<3 ?4?4DATACENTER_4l SDatac}er 4/ 4>>B PRISE  strOsVersion = 8& " Enterprise EditJ"  ElseIf (oviex.wSuiteMask And VER_SUITE_BLADE) pThenOkW eb(7Stan0dard%:|If;WinName"WIN20003SERCa/, O"@dows Server  la@yv H(T E9SelelctO$+6S* .dwMinorD ' 2Vista & 7 B0ЙJGpVISTAX B#1s#7j"Y vh"7F*FFA2Dim e As Long= PRODUCT_UNDEF0INEDGetProductInfo( _3CSajS,Y@sicePackMa kgz% sD#!$Je/ENTERPRISE=Сh*ULTIMATUltim?bBUS QSS!!Bus`inessHOME_PREMIUMHׂ Ho0kPremium:BASIC Basic߽O !XqUnknownN+ς qIs > _t"% 4rOcRYb@ 0SLen(PSSubQ)P 0c' (L L 6)Ƃ ("}QE")\  Build: & ÇNumberc  cOS7Truexit Functp# ErrMes: . <> MsgBox H& v`bCrLfQDescrip7YP7PrivJsWord(DQt)Ig% O,rror GoTo@ % p 4&H8000&" ' v=p0Lo= OrP~FS;9q&H&3Ef !fNullCut(ByVal myStri|ng#' har yёŐ󔒂揜i!iInp(%,@%)s ~i mͤH& vbC@rLf & QDescripq(d Pri>v{0 DLnL ,}r,oy)Boolea On 0GoToPE' P̃Gg[0ߩǂ෵'Windows Vipȍ~ŃT|[MleHandle Lo }= LoadLibrary(0Handle <> 0 Then lngResult = GetProcAddress(h@Module, strEntroyName)@IsAPIPfe~npP lFreeLibra ry i1Else dFaEnd If)Exit Functio ErrMes: If .Number@MsgBox & vbCrLf & Descri~p1A5F?9 Xlhqt/llt)l4lllt^Xqh LLL"""""" "LLL" "1<2ltqlklhql% 1 1;l'llqlx3#0/k 1 lt  1   l<*'   1"l x3# 0/  1  1   1"lZ 1 1" 1 1; 1 1+ *#p$k#*' 2llhqlFTlh#*#*Fll#*F  `' 26kB6Fb *' 1 1 *' 8 1blllql 1 Fb *'   *'  1lN 1 k` *' @Bb' *' > >  1  !1l "1 k` #*'  k` $*'  k` %*'  &*'  '1 (1 1blBbllql' )1 *1^lJ +1 ,1^ -1 1 q$k^k\lPlL^.qCdl)?CdlB@Cdl [ACdlulBCdl CCdlDCdlECdllFCdl lGCdl.HCdlGICdl `JCdlyKCdlLCdl MCdl NCdlOCdlPCdlQCdl(RCdlASCdl[lfTCdlUCdlVCdldCx/ $ 7 8l7l''('H 7 8l#09*#x, 7|| ,8l,*Fh :20x,)|6hH(/ `1tDlxI0>`d hM@@P Ed PI PH hp+ns4I d p pk0 0,x|hH(in1nin8K& l4ll^Wqh9  X ` @6h  E 8  @ H  <.P  -  <(   E   4DC tEH @9 DC  rEh @9 08DC@ rE @9 PX8F` < <:C zEX 69  ( 40:Ch vE  (690 hp dxDC E( @9  `BCh |E0 8>9@ @6 E` h<(p  4DC rE@ @9  06 ^EP  ,.-&90,(X 06 ,.-,((X 06` ,.-,((  0 H,C`E   (0 8$@lPp x .       ( H .h    J! .P! T!! " " " # .# F8## @$ `$ x$ H$ L$ H % (h% D%j% (H' p' ' ' ' ' ' N'H( ( )  ) P0) P) P)  * 0* .8* h* ** * * ** + + 4 + HX+ 0+ H+ L, Hh, ,,, $- - - .  . (. NH.. 8/ X/ p/ P/ P/ P 0 ,p00 $1 1 1 1 1 1 2 N82 N2 L2 N(3 x3 3 ,3 J34 4 5 5 L(5 Lx5 L5 06 NH66 $p7 7 7 P7 P8 Ph88h9 (P: x: : : : : : ; ;  ; "0; :X; ; ; ; .; ; <  < (< H< P< p< .< < < < = = J@= .= = P=0> > > ? R? Np? R? ,@H@ $@  A 8A PA `A hA PAA xB B B RB NC RhC ,CC $D D D D E E N0EE (F HF `F PpF PF PG `G pG xG FGG H H H HH L I HpI $I (I DJ`PJ (K K K L (L 8L (@L NhLL xM M M PM PN P`N ,NN $O O O P P P F@PP 8Q XQ pQ HQ LQ HR ,`RR $PS xS S S S S LS0T T T U NU LhU NU ,V8V $W 0W HW `W pW xW JWW X X X LX L(Y LxY NYZ $Z Z [ P([ Px[ P[\\ (] ] ] ^ ^ (^ 0^ JP^^ @_ `_ x_ L_ N_ L(` Jx` 2`a $a a a b b b 8b Pb Xb "hb :b b b b 0c 0c 8c Xc `c c c c .c c d (d Hd Xd `d Jd 0d e R exe f @f Xf Thf Nf Tg Zhgg $h h h h h h Rihi j 0j Hj TXj Nj Tk ZXkk $pl l l l l l PmPm m n 0n R@n Pn Rn @o Po "Xo Hoo xp p p Jp Lq J`q &q (q DrdHr (s s s t (t 8t *@t Pptt u u u Ru P v Rpv ,vv $w w x (x 8x "@x Hhxx `y y y Jy Ly JHz ,zz ${ { { { { (| N(|x| } @} X} Ph} L} P~ ,X~~ $X     & L@   N0 L NЁ  *( PX $X   R P RXh (@ h    Ȇ &І LH   N0 N NЈ J .p $P x    ؊   " :0 p   4 ؋   $ 0 P p .x Ȍ ،    J0 2  D؍ Ў  F L@ F ,؏ $Ȑ    0 L8 Jؑ x   L L L`   Nȓ Jh  ( @ LP L L @ PX ؗ    H(p  ( @ JP N J J@ . $h    "Л    "( :P   B Ȝ М؜   .6(fEX ȝН*.؝-#( *(@p kx  ȟ ؟ 0-   (8@ HP X06pjE  ,.(-X*x Eh px# ,(Ȣ 2kТ  2-( `hp 66vE X`h2.p-*ȥ E ȦЦ#ئ 2(( Dk0x  (DC< DFD6 nE0  @. - *E8  # @(8 x bk   4-@ H P`DFhD6 nEh px @. - *EȰа ذ #@( 8 bk@   4-Ȳ   ( ,0 ,`E(   0  (08CX<6 Eеx :6 Eж` hpx  $<68.- 8(@ x ,E   ":6й6.-H6(h  , Yк    ,6@zEp (.-0#P ((h k Ⱦ   .-0 8 '@ 45`  * 45ȿ   ( ,0:6`E 8@H6.P-# 6( <k@ HP &X   > 2-8 @ HH 8-  ' 850 8 *@ 85`    (66E( 2.-#( 2(@x 0k    .-0 8 '@ 45`  * 45   ( &0BCXE `hBFp >@6 E8  <. -  <(@ E08 @HBFP   ( ( ( (  4@ 6x$ (*.*(.*X  ,,*2*2*@2*x  ( (<3 (08  @PX`(*h.*.*  $  ( 2+8 px  2+   $l( 0B8 @ HP XhB-x $'08@D-P  $l B   ( 0@B-P $'.2-0 hpx- 2- - 4-8 @HPD-X  $l(H P` ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"H']@.D( D!LB@6f[^`FbNݶ D!L%Pzk@݂̏폜@cIDAaID݃ZNVɂ邽߁As+ If cP.INI.Delete("") = False Then4 Exit Function End If D!LB@T B$zk 1zk  b  D%!f b  D%!ftion 1zpkhk`  b  D%!f b  D%!f (co ation)zkk b  D%!f@  Servezkk 1zk D!LB@6itf[^`FbNݶς D!L%Pz8k0 D!LB@Tto'z" 0!2 0!2 , 0!4A@(tki`"'].D Ult]>--------------------------------      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY}\]^_`nbcdefghijklm[opqrstuvwxyz{------------------------------\̊{Iȏ`FbNion 2\̃^CgƐ\̕ʂ̃`FbN@K{ bݎw肵Ă D%!r!n6uݎw肵Ăvuw肵Ăv̂܂p  2\̃^Cguw肵Ăv̂܂܂łB ,&CĂxsĂB ݃^Cg$( `zk bݎw肵Ă D%!r!ne0uݎw肵ĂvuJݓ͏ov̂Ƃ W6uݎw肵Ă2v 1=A2=2731A3=2732M W bݎw肵Ă2 D%!r!nk 6v,\̕ʂu2731vɂȂĂ܂B ,C܂H \̕ʂ̏C$( \!zPdH bݎw肵Ă2 D%!r(nkk.uݎw肵Ă3v 1=A2=J݁A3=ύX bݎw肵Ă3 D%!r!n(\̕ʂuJ݁vɂȂĂ܂B ,C܂H \̕ʂ̏C$( zd bݎw肵Ă3 D%!r(nkk]u݉^pJn̊ύXsv 1=w肵ĂA2=^pJn̊A3=ύXs b"݉^pJn̊ύXs D%!r!n2\̕ʂu^pJn̊vɂȂĂ܂B ,C܂H \̕ʂ̏C$( zdx b"݉^pJn̊ύXs D%!r(nk0k(Yu݊J݂ǐύX̗Rv 1=IĂA2=J݂ǐA3=ύX̗R b ݊J݂ǐύX̗R D%!r!n4\̕ʂuJ݂ǐvɂȂĂ܂B ,C܂H \̕ʂ̏C$( &zd b ݊J݂ǐύX̗R D%!r(nkk b!݊J݂ǐύX̗R1 D%!f*uJ݂ǐv͂Ă܂B ,&CĂxsĂB \̕ʂ̏C$( zkd b!݊J݂ǐύX̗R1 D%!f'   D%'  b!݊J݂ǐύX̗R1 D%(f  %8uJ݂ǐvɐȊO͂Ă悤łB ,&CĂxsĂB J݂ǐ$(  zPkHk@k8.u݊J݂ǐύX̗R2v 1=A2= b!݊J݂ǐύX̗R2 D%!r!n&\̕ʂuǁvɂȂĂ܂B ,C܂H \̕ʂ̏C$( z8d0 b!݊J݂ǐύX̗R2 D%!r(nkk b!݊J݂ǐύX̗R3 D%!r!nh$ǕύX̗Rw肳Ă܂B ,C܂H \̕ʂ̏C$( NTzd b!݊J݂ǐύX̗R3 D%!r(nkk b!݊J݂ǐύX̗R4 D%!r!ns NT$ǕύX̗Rw肳Ă܂B ,C܂H \̕ʂ̏C$( Windz d  b!݊J݂ǐύX̗R4 D%!r(nk k bݎw肵Ă D%!r!ne6uݎw肵ĂvuJ݋ǕύX͏ov̂ƂCAL_6uݎw肵Ă2v 1=A2=2731A3=2732 bݎw肵Ă2 D%!r!nvȂ,\̕ʂu2732vɂȂĂ܂B ,C܂H \̕ʂ̏C$( ows 20z d  bݎw肵Ă2 D%!r(nssk k .uݎw肵Ă3v 1=A2=J݁A3=ύX'Z bݎw肵Ă3 D%!r!n(\̕ʂuύXvɂȂĂ܂B ,C܂H \̕ʂ̏C$(  Sz d  bݎw肵Ă3 D%!r(nk k ]u݉^pJn̊ύXsv 1=w肵ĂA2=^pJn̊A3=ύXs b"݉^pJn̊ύXs D%!r!n!2\̕ʂuύXsvɂȂĂ܂B ,C܂H \̕ʂ̏C$( zP dH  b"݉^pJn̊ύXs D%!r(nk kYu݊J݂ǐύX̗Rv 1=IĂA2=J݂ǐA3=ύX̗R b ݊J݂ǐύX̗R D%!r!nL'j.\̕ʂuύX̗RvɂȂĂ܂B ,C܂H \̕ʂ̏C$( zd b ݊J݂ǐύX̗R D%!r(nXkxkp b!݊J݂ǐύX̗R1 D%!f(uJ݂ǐv͂Ă܂B ,&CĂxsĂB \̕ʂ̏C$(  (zd b!݊J݂ǐύX̗R1 D%(fld: kHk@.u݊J݂ǐύX̗R2v 1=A2=!2 b!݊J݂ǐύX̗R2 D%!r!n$\̕ʂuǁvɂȂĂ܂B ,C܂H \̕ʂ̏C$( 0!2z@d8 b!݊J݂ǐύX̗R2 D%!r(nkkk b݋LNN D%!f L͂Ă܂B ,s܂H L$(  zHk@d8LN@N  b݋LNN D%!f'   D%' /01/01ggge %'$  b݋LNN D%(f kp b݋LN D%!fLN@'p b݋LN D%!f' ^   D%' v  b݋LN D%(fk b݋LN D%!fLN@n b݋LN D%!f'"   D%'ajor  b݋LN D%(f k̃`FbNw肵Ăsi b ݈ D%!r!nditi "݂̈悪w肳Ă܂B ,&CĂxsĂB  ݈$( zkk'z" 0!2 0!2 , 0!4A@((fki(Public Function CheckClient() As Boolean(cOn Error GoTo ErrMes( CheckClient = False Dim cP As clsPaper Set cP = New clsPaper Dim myString As String' If cP.Config.ReadConfig = True Then myLocation = True Else myLocation = False End IfC '--------------------------------------------------------------' '݃y[W\҂̏mFM If cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 1 Then If MsgBox("\ҁiƋlj̖@lEćEl̕ʂw肵ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̖@lEćEl̕") = vbOK Then Exit Function End If End If' '\ҏZiƋlZj̃`FbN@ If cP.GetValue(pKAGAMI, "ݐ\ҏZ").Result = "" Then If MsgBox("\ҁiƋlj̏Z͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̏Z") = vbOK Then Exit Function End If ElseB myString = cP.GetValue(pKAGAMI, "ݐ\ҏZ").ResultF myString = cP.SanitizeText(myString, pWide, False, True, True)B cP.GetValue(pKAGAMI, "ݐ\ҏZ").Result = myString! If myLocation = True Then= If cP.AreaCode.AreaCodeInsert(myString) = "" Then,W If MsgBox("\҂̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B"' & vbCrLf & "Z͂Ȃ炸s{n܂ĂȂ΂Ȃ܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̎s撬R[h") = vbOK Then! Exit Function End If End If End If End If '\ҏZtKiH If cP.GetValue(pKAGAMI, "ݐ\ҏZtKi").Result = "" Then If MsgBox("\ҏZtKi͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "\ҏZtKi") = vbNo Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݐ\ҏZtKi").ResultJ myString = cP.SanitizeText(myString, pKatakana, False, True, True)J cP.GetValue(pKAGAMI, "ݐ\ҏZtKi").Result = myString End If' '\ҖOiƋlOj̃`FbN' @l̏ꍇ#' ݂̎Ƒ\Ґ͕K{'' ĉ̏ꍇ#' ݂̎Ƒ\Ґ͕K{'' l̏ꍇ.' ݂̎͋󗓁B\Ґ͕K{A If cP.GetValue(pKAGAMI, "ݐ\ҖO").Result <> "" Then) '󗓂łȂꍇ@@lcB myString = cP.GetValue(pKAGAMI, "ݐ\ҖO").ResultF myString = cP.SanitizeText(myString, pWide, False, True, True)B cP.GetValue(pKAGAMI, "ݐ\ҖO").Result = myString& If VBA.Len(myString) > 50 Then If MsgBox("\ҁiƋlj̖O50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̖O") = vbOK Then Exit Function End If End If End If '\ҖOtKiH If cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result = "" Then If MsgBox("\ҖOtKi͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "\ҖOtKi") = vbNo Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").ResultJ myString = cP.SanitizeText(myString, pKatakana, False, True, True)J cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result = myString& If VBA.Len(myString) > 50 Then If MsgBox("\ҁiƋlj̖OtKi50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̖OtKi") = vbOK Then Exit Function End If End If End If '\ґ\ҖE 'XMLł͊֌WȂG If cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").Result <> "" ThenH myString = cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)H cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").Result = myString End If% '\ґ\ҐiƋl\ҐjD If cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result = "" Then If MsgBox("\ҁiƋlj̑\҂̐͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̑\҂̐") = vbOK Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)F cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result = myString) '\ґ\ҖiƋl\ҖjH If cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result = "" Then If MsgBox("\ҁiƋlj̑\҂̖͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̑\҂̖") = vbOK Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").ResultI myString = cP.SanitizeText(myString, pWide, True, True, True)J cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result = myString If VBA.Len(cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result' & "@" & cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result) > 50 Then If MsgBox("\ҁiƋlj̑\Ґ50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "\ҁiƋlj̑\Ґ") = vbOK Then! Exit Function End If End If End If End If CheckClient = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function'Public Function CheckAgent() As BooleanOn Error GoTo ErrMes CheckAgent = False Dim cP As clsPaper Set cP = New clsPaper' If cP.Config.ReadConfig = True Then myLocation = True Else myLocation = False End If Dim myString As StringC '--------------------------------------------------------------' '݃y[W㗝l̏mF '㗝lX֔ԍO3I If cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍO3").Result = "" Then If MsgBox("㗝l̗X֔ԍO3͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If ElseK myString = cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍO3").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)K cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍO3").Result = myString& If VBA.Len(myString) <> 3 Then If MsgBox("㗝l̗X֔ԍ3-4̌`ɂȂĂ܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If End If End If '㗝lX֔ԍ4I If cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍ4").Result = "" Then If MsgBox("㗝l̗X֔ԍ4͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If ElseK myString = cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍ4").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)K cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍ4").Result = myString& If VBA.Len(myString) <> 4 Then If MsgBox("㗝l̗X֔ԍ3-4̌`ɂȂĂ܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If End If End If '㗝lZtKiH If cP.GetValue(pKAGAMI, "ݑ㗝lZtKi").Result = "" Then If MsgBox("㗝lZtKi͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "ݑ㗝lZtKi") = vbNo Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݑ㗝lZtKi").ResultJ myString = cP.SanitizeText(myString, pKatakana, False, True, True)J cP.GetValue(pKAGAMI, "ݑ㗝lZtKi").Result = myString End If '㗝lZ@K{@ If cP.GetValue(pKAGAMI, "ݑ㗝lZ").Result = "" Then If MsgBox("㗝l̏Z͂Ă܂B"' & vbCrLf & "CĂxsĂ", vbOKOnly, "㗝l̏Z") = vbOK Then Exit Function End If ElseB myString = cP.GetValue(pKAGAMI, "ݑ㗝lZ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)B cP.GetValue(pKAGAMI, "ݑ㗝lZ").Result = myString '㗝ls撬R[h! If myLocation = True Then= If cP.AreaCode.AreaCodeInsert(myString) = "" Then,M If MsgBox("㗝l̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B"' & vbCrLf & "Z͂Ȃ炸s{n܂ĂȂ΂Ȃ܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̎s撬R[h") = vbOK Then! Exit Function End If End If End If End If! '㗝lOtKi@K{H If cP.GetValue(pKAGAMI, "ݑ㗝lOtKi").Result = "" Then If MsgBox("㗝l̖OtKi͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖OtKi") = vbOK Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݑ㗝lOtKi").ResultJ myString = cP.SanitizeText(myString, pKatakana, False, True, True)J cP.GetValue(pKAGAMI, "ݑ㗝lOtKi").Result = myString& If VBA.Len(myString) > 50 Then If MsgBox("㗝l̖OtKi50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖OtKi") = vbOK Then Exit Function End If End If End If '㗝lO@K{@ If cP.GetValue(pKAGAMI, "ݑ㗝lO").Result = "" Then If MsgBox("㗝l̖O͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖O") = vbOK Then Exit Function End If ElseB myString = cP.GetValue(pKAGAMI, "ݑ㗝lO").ResultF myString = cP.SanitizeText(myString, pWide, False, True, True)B cP.GetValue(pKAGAMI, "ݑ㗝lO").Result = myString& If VBA.Len(myString) > 50 Then If MsgBox("㗝l̖O50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖O") = vbOK Then Exit Function End If End If End If '㗝l\ҖEF If cP.GetValue(pKAGAMI, "ݑ㗝l\ҖE").Result = "" Then If MsgBox("㗝l̑\ҖE͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l\ҖE") = vbNo Then Exit Function End If ElseH myString = cP.GetValue(pKAGAMI, "ݑ㗝l\ҖE").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)H cP.GetValue(pKAGAMI, "ݑ㗝l\ҖE").Result = myString& If VBA.Len(myString) > 15 Then If MsgBox("㗝l̑\ҖE15ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̑\ҖE") = vbOK Then Exit Function End If End If End If '㗝l\D If cP.GetValue(pKAGAMI, "ݑ㗝l\Ґ").Result = "" Then If MsgBox("㗝l\҂̎ij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l\҂̎ij") = vbNo Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݑ㗝l\Ґ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)F cP.GetValue(pKAGAMI, "ݑ㗝l\Ґ").Result = myStringH If cP.GetValue(pKAGAMI, "ݑ㗝l\Җ").Result = "" Then If MsgBox("㗝l\҂̎ij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l\҂̎ij") = vbNo Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݑ㗝l\Җ").ResultI myString = cP.SanitizeText(myString, pWide, True, True, True)J cP.GetValue(pKAGAMI, "ݑ㗝l\Җ").Result = myString If VBA.Len(cP.GetValue(pKAGAMI, "ݑ㗝l\Ґ").Result' & "@" & cP.GetValue(pKAGAMI, "ݑ㗝l\Җ").Result) > 50 Then If MsgBox("㗝l̑\Ґ50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̑\Ґ") = vbOK Then! Exit Function End If End If End If End If '㗝ldbԍD If cP.GetValue(pKAGAMI, "ݑ㗝ldbԍ").Result = "" Then If MsgBox("㗝l̓dbԍ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̓dbԍ") = vbNo Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݑ㗝ldbԍ").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)F cP.GetValue(pKAGAMI, "ݑ㗝ldbԍ").Result = myStringD myString = VBA.Replace(myString, "-", "", , , vbTextCompare)+ If Not VBA.IsNumeric(myString) Then If MsgBox("㗝l̓dbԍœ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̓dbԍ") = vbNo Then Exit Function End If End If End If CheckAgent = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function*Public Function CheckSubAgent() As BooleanOn Error GoTo ErrMes CheckSubAgent = False Dim cP As clsPaper Set cP = New clsPaper' If cP.Config.ReadConfig = True Then myLocation = True Else myLocation = False End If Dim myString As StringC '--------------------------------------------------------------) '݃y[W畜㗝l̏mF 'lX֔ԍO3K If cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍO3").Result = "" Then If MsgBox("㗝l̗X֔ԍO3͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If ElseM myString = cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍO3").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)M cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍO3").Result = myStringT If Len(cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍO3").Result) <> 3 Then If MsgBox("㗝l̗X֔ԍ3-4̌`ɂȂĂ܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If End If End If '㗝lX֔ԍ4K If cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍ4").Result = "" Then If MsgBox("㗝l̗X֔ԍ4͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If ElseM myString = cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍ4").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)M cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍ4").Result = myStringT If Len(cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍ4").Result) <> 4 Then If MsgBox("㗝l̗X֔ԍ3-4̌`ɂȂĂ܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̗X֔ԍ") = vbNo Then Exit Function End If End If End If '㗝lZtKiJ If cP.GetValue(pKAGAMI, "ݕ㗝lZtKi").Result = "" Then If MsgBox("㗝lZtKi͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "ݕ㗝lZtKi") = vbNo Then Exit Function End If ElseL myString = cP.GetValue(pKAGAMI, "ݕ㗝lZtKi").ResultJ myString = cP.SanitizeText(myString, pKatakana, False, True, True)L cP.GetValue(pKAGAMI, "ݕ㗝lZtKi").Result = myString End If '㗝lZ@K{B If cP.GetValue(pKAGAMI, "ݕ㗝lZ").Result = "" Then If MsgBox("㗝l̏Z͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̏Z") = vbOK Then Exit Function End If ElseD myString = cP.GetValue(pKAGAMI, "ݕ㗝lZ").ResultF myString = cP.SanitizeText(myString, pWide, False, True, True)D cP.GetValue(pKAGAMI, "ݕ㗝lZ").Result = myString '㗝ls撬R[h! If myLocation = True Then= If cP.AreaCode.AreaCodeInsert(myString) = "" Then*Q If MsgBox("㗝l̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B"' & vbCrLf & "Z͂Ȃ炸s{n܂ĂȂ΂Ȃ܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̎s撬R[h") = vbOK Then! Exit Function End If End If End If End If# '㗝lOtKi@K{J If cP.GetValue(pKAGAMI, "ݕ㗝lOtKi").Result = "" Then If MsgBox("㗝l̖OtKi͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖OtKi") = vbOK Then Exit Function End If ElseL myString = cP.GetValue(pKAGAMI, "ݕ㗝lOtKi").ResultJ myString = cP.SanitizeText(myString, pKatakana, False, True, True)L cP.GetValue(pKAGAMI, "ݕ㗝lOtKi").Result = myString& If VBA.Len(myString) > 50 Then If MsgBox("㗝l̖OtKi50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖OtKi") = vbOK Then Exit Function End If End If End If '㗝lO@K{B If cP.GetValue(pKAGAMI, "ݕ㗝lO").Result = "" Then If MsgBox("㗝l̖O͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖O") = vbOK Then Exit Function End If ElseD myString = cP.GetValue(pKAGAMI, "ݕ㗝lO").ResultF myString = cP.SanitizeText(myString, pWide, False, True, True)D cP.GetValue(pKAGAMI, "ݕ㗝lO").Result = myString& If VBA.Len(myString) > 50 Then If MsgBox("㗝l̖O50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̖O") = vbOK Then Exit Function End If End If End If! '㗝l\ҖẼ`FbNH If cP.GetValue(pKAGAMI, "ݕ㗝l\ҖE").Result = "" Then If MsgBox("㗝l\҂̖E͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l\҂̖E") = vbNo Then Exit Function End If ElseJ myString = cP.GetValue(pKAGAMI, "ݕ㗝l\ҖE").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)J cP.GetValue(pKAGAMI, "ݕ㗝l\ҖE").Result = myString& If VBA.Len(myString) > 15 Then If MsgBox("㗝l̑\ҖE15ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̑\ҖE") = vbOK Then Exit Function End If End If End If '㗝l\Ґ̃`FbNF If cP.GetValue(pKAGAMI, "ݕ㗝l\Ґ").Result = "" Then If MsgBox("㗝l̑\ҁij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̑\Ґ") = vbNo Then Exit Function End If ElseH myString = cP.GetValue(pKAGAMI, "ݕ㗝l\Ґ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)H cP.GetValue(pKAGAMI, "ݕ㗝l\Ґ").Result = myString# '㗝l\Җ̃`FbNJ If cP.GetValue(pKAGAMI, "ݕ㗝l\Җ").Result = "" Then If MsgBox("㗝l̑\ҁij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̑\Җ") = vbNo Then Exit Function End If ElseL myString = cP.GetValue(pKAGAMI, "ݕ㗝l\Җ").ResultI myString = cP.SanitizeText(myString, pWide, True, True, True)L cP.GetValue(pKAGAMI, "ݕ㗝l\Җ").Result = myString If VBA.Len(cP.GetValue(pKAGAMI, "ݕ㗝l\Ґ").Result' & "@" & cP.GetValue(pKAGAMI, "ݕ㗝l\Җ").Result) > 50 Then If MsgBox("㗝l̑\Ґ50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "㗝l̑\Ґ") = vbOK Then! Exit Function End If End If End If End If '㗝ldbԍ̃`FbNF If cP.GetValue(pKAGAMI, "ݕ㗝ldbԍ").Result = "" Then If MsgBox("㗝l̓dbԍ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̓dbԍ") = vbNo Then Exit Function End If ElseH myString = cP.GetValue(pKAGAMI, "ݕ㗝ldbԍ").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)H cP.GetValue(pKAGAMI, "ݕ㗝ldbԍ").Result = myStringD myString = VBA.Replace(myString, "-", "", , , vbTextCompare)' If Not IsNumeric(myString) Then If MsgBox("㗝l̓dbԍœ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "㗝l̓dbԍ") = vbNo Then Exit Function End If End If End If CheckSubAgent = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function.Public Function CheckCommunicator() As BooleanOn Error GoTo ErrMes CheckCommunicator = False Dim cP As clsPaper Set cP = New clsPaper' If cP.Config.ReadConfig = True Then myLocation = True Else myLocation = False End If Dim myString As StringC '--------------------------------------------------------------+ '݃y[WAӔC҂̏mF 'ݔl> If cP.GetValue(pKAGAMI, "ݔl").Result = "" Then| If MsgBox("l͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "l") = vbNo Then Exit Function End If Else@ myString = cP.GetValue(pKAGAMI, "ݔl").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)@ cP.GetValue(pKAGAMI, "ݔl").Result = myString& If VBA.Len(myString) > 20 Then If MsgBox("l͑Sp20܂ł͂ł܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "l") = vbOK Then Exit Function End If End If End IfF 'ݔlSҖ@XMLt@Cł͕K{ł͂ȂK{ƂD If cP.GetValue(pKAGAMI, "ݔlSҖ").Result = "" Then If MsgBox("lSҖij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "lSҖij") = vbNo Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݔlSҖ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)F cP.GetValue(pKAGAMI, "ݔlSҖ").Result = myString End IfG 'ݔlSҖ@ XMLt@Cł͕K{ł͂ȂK{ƂD If cP.GetValue(pKAGAMI, "ݔlSҖ").Result = "" Then If MsgBox("lSҖij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "lSҖij") = vbNo Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݔlSҖ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)F cP.GetValue(pKAGAMI, "ݔlSҖ").Result = myString End If If VBA.Len(cP.GetValue(pKAGAMI, "ݔlSҖ").Result' & "@" & cP.GetValue(pKAGAMI, "ݔlSҖ").Result) > 50 Then If MsgBox("lS҂̐50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "lSҖ") = vbOK Then Exit Function End If End If 'ݔldbԍB If cP.GetValue(pKAGAMI, "ݔldbԍ").Result = "" Then If MsgBox("l̓dbԍ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "ldbԍ") = vbNo Then Exit Function End If ElseD myString = cP.GetValue(pKAGAMI, "ݔldbԍ").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)D cP.GetValue(pKAGAMI, "ݔldbԍ").Result = myStringD myString = VBA.Replace(myString, "-", "", , , vbTextCompare)' If Not IsNumeric(myString) Then If MsgBox("l̓dbԍœ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "l̓dbԍ") = vbNo Then Exit Function End If End If End If CheckCommunicator = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function"0c'].D D!LB@6]8ݓo^̔ԍ]P bݓo^̔ԍ D%!f o^̔ԍ͂Ă܂B ,s܂H  o^̔ԍ$( z8bk0bd(b bݓo^̔ԍ D%!f'   D%'  %  bݓo^̔ԍ D%(fda  3o^̔ԍ̕256𒴂Ă܂Ă܂B ,6̂ߓo^̔ԍmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB  o^̔ԍ$( z``kX`kP`  D%' z `d`ݶ o^̔ԍ  D!L%Pz_k_ D!LB@Tk_k_]h'ݓo^̔N bݓo^̔N D%!f "o^̔N͂Ă܂B ,s܂H  o^̔N$( z^k^d^ bݓo^̔N D%!f'   D%'   D!%a݂̓o^̔N̓t`uxxNxxxxv邢́uHxx.xx.xxv`ɏCĂB ,&CĂxsĂB ݓo^̔N$( z]k]k]  %  bݓo^̔N D%(fd0]  ;ݓo^̔N̕256𒴂Ă܂Ă܂B ,>̂߂ݓo^̔NmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ݓo^̔N$( z[k[k[ 'ݶ o^̔N  D!L%Pz[k[ D!LB@Tkx[ݓo^ǂJ݂ bݓo^ǂJ݂ D%!f (o^ǂJ݂͂Ă܂B ,s܂H o^ǂJ݂$( zZkZdZ bݓo^ǂJ݂ D%!f'   D%'   D!%g݂̓o^ǂJ݂̓t`uxxNxxxxv邢́uHxx.xx.xxv`ɏCĂB ,&CĂxsĂB ݓo^ǂJ݂$( z8Yk0Yk(Y  %  bݓo^ǂJ݂ D%(fdX  Aݓo^ǂJ݂̕256𒴂Ă܂Ă܂B ,D̂߂ݓo^ǂJ݂mFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ݓo^ǂJ݂$( zWkxWkpWkhW"݉^pJn̊ύXs b"݉^pJn̊ύXs D%!r!nBu^pJn̊vuύXsv̂ǂ炩IłB ,u^pJn̊vuύXsv̑I$( zhVk`V b"݉^pJn̊ύXs D%!r!ne b&݉^pJn̊ύXs D%!f$^pJn̊͂Ă܂B ,s܂H ^pJn̊$( zXUkPUdHU b&݉^pJn̊ύXs D%!f'   D%'   D!%c݂̉^pJn̊̓t`uxxNxxxxv邢́uHxx.xx.xxv`ɏCĂB ,&CĂxsĂB ^pJn̊$( zSkSkS  %  b&݉^pJn̊ύXs D%(fdS  K݉^pJn̊ύXs̕256𒴂Ă܂Ă܂B ,N̂߂݉^pJn̊ύXsmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB "݉^pJn̊ύXs$( zRkRkR 'ݶ^pJn̊  D!L%PzQkQ D!LB@TkQ b"݉^pJn̊ύXs D%!r!ne b&݉^pJn̊ύXs D%!f$ύXs͂Ă܂B ,s܂H ύXs$( zPkPdP b&݉^pJn̊ύXs D%!f'   D%'   D!%[ύXs̓t`uxxNxxxxv邢́uHxx.xx.xxv`ɏCĂB ,&CĂxsĂB ύXs$( z0Ok(Ok O  %  b&݉^pJn̊ύXs D%(fdN  K݉^pJn̊ύXs̕256𒴂Ă܂Ă܂B ,N̂߂݉^pJn̊ύXsmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB "݉^pJn̊ύXs$( zPMkHMk@M 'ݶύXs  D!L%PzLkL D!LB@TkLkL%ݖݔ̐ݒuꏊ͈ړ͈1%ݖݔ̐ݒuꏊ͈ړ͈2 b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!n b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!n Lݔ̐ݒuꏊ͈ړ͈͂̃v_E𓯎ɑI邱Ƃ͂ł܂B ,&CĂxsĂB ݔ̐ݒuꏊ͈ړ͈$( zKkKkK*ݖݔ̐ݒuꏊ͈ړ͈̓t["Jݓ͂̂Ƃ͏uꏊ͕̓͂K{ bݎw肵Ă D%!r!n bݖݔ̏uꏊR[h D%!f4ݔ̏uꏊs撬R[h͂ĂB ,&CĂxsĂB  ݔ̏uꏊs撬R[h$( zIkxIkpI bݖݔ̏uꏊZ D%!f&ݔ̏uꏊ͂ĂB ,&CĂxsĂB ݔ̏uꏊ$( zHkHkHkHݖݔ̏uꏊR[h bݖݔ̏uꏊR[h D%!f bݖݔ̏uꏊR[h D%!f'   D%'  bݖݔ̏uꏊR[h D%(f   D!%Hݔ̏uꏊ̎s撬R[hAo^Ă̂ł͂܂B ,<CĂxs邩Ǘ҂ɂ₢킹B "ݔ̏uꏊ̎s撬R[h$( zxFkpFkhFk`FkXFݖݔ̏uꏊZ bݖݔ̏uꏊZ D%!f bݖݔ̏uꏊZ D%!f'   D%'  bݖݔ̏uꏊZ D%(f   D!%jݔ̏uꏊ̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B ,8Z͂Ȃ炸s{n܂ĂȂ΂Ȃ܂B ,&CĂxsĂB ݔ̏uꏊ̏Z $( zDkDkCkCkC]ݎʕ@K{ bݎʕ D%!f ʕ͂Ă܂B ,&CĂxsĂB ʕ$( zCkCdB bݎʕ D%!f'   D%'  %  bݎʕ D%(fdhB  1ʕ̕256𒴂Ă܂Ă܂B ,4̂ߎʕmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ʕ$( zHAk@Ak8A  D%' zAdAݶʕ  D!L%Pz@k@   D!%'ݶʕ̌  D!L%Pz`@kX@ ,  D!%'ݶʕ̑  D!L%Pz?k? D!LB@Tk?k?&ݓK\ݔ̔ԍ@K{ bݓK\ݔ̔ԍ D%!f ,K\ݔ̔ԍ͂Ă܂B ,&CĂxsĂB K\ݔ̔ԍ$( z>k>d> bݓK\ݔ̔ԍ D%!f'   D%'  %  bݓK\ݔ̔ԍ D%(fd>  =K\ݔ̔ԍ̕256𒴂Ă܂Ă܂B ,B̂ߓK\ݔ̔ԍmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB K\ݔ̔ԍ$( z<k<k<ȉkaisetuL̋@\Ȃ̂Œ]   D%' zH<d@< 8ZpKԍEH݌vFؔԍTextBox1ɓ͂ݶ ZKFؔԍ  D!L%Pz;k; BZpKԍEH݌vFؔԍ̔茋ʂTextBox1ɓ͂ݶZKFؔԍ̔  D!L%Pz0;k(;   D!%'ݶZKFؔԍ̌  D!L%Pz:k: ,  D!%'ݶZKFؔԍ̑  D!L%Pz`:kX: D!LB@Tk@:k8:"ݖݔ̐ԍ@K{ bݖݔ̐ԍ D%!f (ݔ̐ԍ͂Ă܂B ,&CĂxsĂB ݔ̐ԍ$( z@9k89d09 bݖݔ̐ԍ D%!f'   D%'  %  bݖݔ̐ԍ D%(fd8  9ݔ̐ԍ̕256𒴂Ă܂Ă܂B ,>̂ߖݔ̐ԍmFEC邱Ƃł܂B ,s܂H ,Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ݔ̐ԍ$( zH7k@7k87  D%' z7d7ݶԍ  D!L%Pz6k6   D!%'ݶԍ̌  D!L%Pz`6kX6 ,  D!%'ݶԍ̑  D!L%Pz5k5 D!LB@Tk5k5 ݊J݂ǐύX̗R b ݊J݂ǐύX̗R D%!r!n BuJ݂ǐvuύX̗Rv̂ǂ炩IĂB ,&CĂxsĂB (uJ݂ǐv܂́uύX̗Rv$( z4k4 b ݊J݂ǐύX̗R D%!r!ne7 ݊J݂ǐύX̗R1@J݂ǐ b!݊J݂ǐύX̗R1 D%!f&J݂ǐ͂Ă܂B ,&CĂxsĂB J݂ǐ$( z03k(3d 3 b!݊J݂ǐύX̗R1 D%!f'   D%'  b!݊J݂ǐύX̗R1 D%(f  %4J݂ǐɐȊO͂Ă悤łB ,&CĂxsĂB J݂ǐ$( z1k1k1k1 b ݊J݂ǐύX̗R D%!r!nek`1!݊J݂ǐύX̗R2!݊J݂ǐύX̗R3!݊J݂ǐύX̗R4!݊J݂ǐύX̗R5.----------------------------------------------0ȉAʕAZKFؔԍAԍ̃`FbN D!L!6z00k(0ʕ]]]ݶʕ D!L%'ݶʕ̑ D!L%'ݶʕ̌ D!L%'&ZKFؔԍ@ZKԍƔFؔԍ]]](]@ݶ ZKFؔԍ D!L%'ݶZKFؔԍ̑ D!L%'ݶZKFؔԍ̌ D!L%'ݶZKFؔԍ̔ D!L%'"ʕƋZKFؔԍ̂‚킹        D!%z-k-k-ԍ]X]p]ݶԍ D!L%'ݶԍ̑ D!L%'ݶԍ̌ D!L%'ʕƐԍ̂‚킹   (ʕƐԍ̌v܂BA@(z,k,  (ʕƐԍ̑v܂BA@(z0,k(,k ,'z,", 0!2 0!2 , 0!4A@(k+i+"+'].D D!LB@6f[^`FbNƋl̂‚킹 D!L%Pz8+k0+ D!LB@T B@ D!!z*k* D!L%z*k* D!LB@6f[^`FbNƋl̂‚킹ς D!L%Pz`*kX* D!LB@T'z8*"0* 0!2 0!2 , 0!4A@(k)i)")']@.D D!LB@6f[^`FbN㗝l̂‚킹 D!L%Pz`)kX) D!LB@T B@ D!!z)k) D!L%z(k( !!nݶ㗝l㗝l D!L%Pz(k(d( !!nݶ㗝lƋl D!L%Pz((k (k( !!nݶ㗝l㗝l D!L%Pz'k'k'k'f[^`FbN㗝l̂‚킹ς D!L%PzX'kP' D!LB@T !(: !(: !(: !(:'z&"& 0!2 0!2 , 0!4A@(k&i&&Attribute VB_Name = "modCheckData" ' ЃnCp[_dCopyright (c) HyperDyne Inc. All 8res@erved.fhttp://ww(w.h`d0.c o.jp/webmaster@  Option Explicit Pub FuncKagami() As Boo0lean@ "" _C\>Orw\Ґw4Ag3P[ _8|  SPFPTTmw肵Ă m.DropDown.rW001|'u#Xvu_̂܂7s0 #("E f `łB ^H'"C pxs) ,p*OKOnly}~vbOKL?~Q 7E/k//1 2//#Jݓ͏oƂ2v 1=A2=2731A32$$$2")-$py o ̲, E vȂ*0$ 2O  HpvbYesNo;3"No?bAge6gR 3!ύXo*b*3 0 =u?O=???C?r F?&??5<{"Cq6^pJnas0V !!!!!!!2 D!>!w!Yv2  End I f  x'u݊J݂ǐύX̗Rv 1=I<Ă@A2= dA3=lsIf cP.GetValue(pKAG@AMI, "y").DropDown.; <> 2 Then]aMsgBox("\̕ʂuRvɂȂĂ܂B" _')& vbCrLf & "C~܂H", Yes,Noa7")d =NoT,Exit FunctiocElseDE= 2 6n1@nResultB""[lhTixPsJBoO KOnlypOK0ptmyStringFuV s Sanitize Text(E, pNarrow, True) ?_1> @JVBA.IsNumericffFa%.E|z ȊOKG邀悤ł|T}_HvbFHm$H Iqw'-R2º,_?}Q?2A`9mǁA %%߳oj5}}3u1;7 U7}w(Z63pwtttFt_173tk/ϗ4t"??;?LPB/P= 34XN$@͏oPƂ'&W\2731ADO O H \m qB\U  'BB 7''''w=0'3A_3Vz1ևxLՁ*?_???J?NQ???d5?D+_6;^pJn̐ MA/K/ tAGAMI, "݉^pJnύXs").DropDown.Value <> 3 Then If MsgBox("\̕u vɂ]Ă܂B" _ MX& vbCrLf & "@C.@H",YesNo m(") = NoXExit Fu nctiobElseDcP.Ge"t(pK9= 3 /End If# 'uҊJ݀ǐ̗Rv 1=IĂA2= A3=nY8W?1??_?DթMl1lR esulty"";yuw`L#xww`Y@x EVBzOKOnly{OK{{! ^nh(= ""oizz2"z!xǿtM2t= 2?M̶>E+/h;q;%>1_BH܂ KH"YpesNo -Nob?ۯ$(wyKatakana66lt𖼑OZbk" ꍇ"̎\Ґ͕K{Qa~ݿÁr͋󗓁B1ޡ1&_/ta.<> R' MOA @!1"|Om?$nhh h3݄= |#dVB A.Lenp) > 507 P&50ȓrb&5 bBBD[9DXa dDC_*_*R*^G F*|)Y Y0|Y Y44$5:Y 55OO?6P?6?6+96l>6`ֹ? ?718_""?a#%$47bDEuXML\Њ֌Wd0?=Oc+++_tD A``Q`$ 6cԴґ\ҐiƋlxj ' If cP.GetValue(pKAGAMI, "ݐ\").Result = "" ThenMsgBox ("ljx̐V͂Ă܂0B" _JN& vbCrLf & "C/xsQMC,2OKOnly ")`vbOKaM HVBA.Len( < ͈A @" ) > 50]T@T50ȓU' aVVVaY FDRCheckClienˡmErrMes:`E.Number <> 53 (*DescriphaH@Public "Ag() As BooleaOnor GoToA@g$GyFa}dD im clsPaperSet= New l`![ConfigyadC ,myLocaQ~mhU F I`p'-Uy[W㗝l̏`mFX֔ԍO3#ώĎ}J?>jiI>=܂H"!YesNo=;NoI ;ߑp8Kf6=P&OEsvfNarrowόόJEx WPf)C3o M /%%-4̌`ɂȂ?cW0s %:a D';0?t4?3ób44 OO4O44nw) ZP44_3 OOS-biOEx 4g44440[C44h pRbR tJa[ EU 4ZtKi4!?yhI0͂Ă܂B" _  ' & vbCrLf & "@s@H",4YesNo, "ݑlZtKi") =LNo Then Exit Functio End If,Else7myS tringVcP.GetValue(pKAGAMI.ResultLSanitizeText(3, pKatakana, FaF@, True)&4Gd5&'@K{ If ;")7""ƀMsgBox("IAq/(C@xĂOKOnly@lIċOKV?=,JDX ՉWi~djE#s撬`R[hrmyLocaAՀ=AQS "AreaCode.Inser_wEc+ t FAs{Ŏn@Œ@Akɓo^FF̂ł͂ E bV OȂ炸&(j΂:ȿ ǟ?[@n[+\?kEEDIO?)?,?#>?2 evbՃˆ|+z կsH|se DVBA.LenVs) > 50_GCl50ȓgCtc _:g_:q?:V9Z7ao8Dh87~o7i*0ZA6_ 6@`U~~4OP'1o6ʩOt5 #~5_]*/5/5g/5/5$54b4ur|o a+ l&\ҖE WO4O4Z44a bC y"vbԢa +_3ԏ"yi 833ԟX84415?i4+15iN.o4o4o4< ߉@462%!ݴ If ' Endx'l\LIf cP.GetValue(pKAGAMI, " b").Result = "" ThenMsgBox(" 6̎ij͂ĂB" _FJ& vbCrLf & " s+ H",YesNof")P0vbNo Q-Exit Functio _lseImyString+$SanitizeText(1, pWid@e, Tru)#مM܀态ځՂE˄THQaa Ck:C :VBA.Len( iǍ{A z@"{ ) > 50Q{E50ȓb 譂`1A a)QC @xĂg !OKOnlyFiSOK5TTKEO“dbԍ`>_3e‚ D,s }D+ u}Narrow?~@/ 1n>Replace)hi"-w"0, -AkComparei#Not !IsNumericF). ;% :_ c"bt85a6! CheckAg|enQ1~t`ErrMes:.0ber <> >Pc XQDescrip APublic Sub () As B`ooleaQOnor GoTo ` 1(FatDimPclsPaperDSet= Nxew @JC onfig06adq&myLocaTE{}jY  Q v<#D'-US@y[Wf3̏@mFBѽXq\O3sODE?]ɲ5;' ]Q;;;_/;4:6!o'ѕ!=0,.?^İ?^^߾pew ϜAoi)G3\\%̥@-4̌`ɂȂ9/"/"/"/"o""a/#Rd' p%%e77m94͂Ă܂B" _ ' & vbCrLf & "sVH",4YesNo, "㗝l̗X֔@") =@N@o Then Exit Functio End If,Else7myStringVcP.GetValue(pKAGAMI8").ResultOSanitize Text(5, pNarrow, True)$7Ge5'If Len(7+) <> 4-MsgBox(l3-̌`ɂȂAQ*AU'ZtKiDZIƓp""/Y ފދK)'v~b+aeU ?&lk?p3pKatakana, Fa pwlpG@K{GaFnsFC4 qC`CxĂ4 aOKpOnly #vbOKs@cFFWid?FȊ/E.Fs撬R8[hC!myLoca݀aɑ*jAreaCode.Insero d As{Ŏn`|]A @ɓo^ $̂ł͂ςr(WEpd炸Ԃ:0o.0jo.o.k.?;// CJjy$#%OjoGf ?Xo9G'#oH/QIoHlH 3Hc_tHcoIq蘿lv e 0lVBA.A) > 50_H  50ȓbĵN1_!_!_!gi_!6!: o9O88_ɐl o8o8a77  {@$(`KK36k66_ܯ666Yh /6g/6/6550vB", vbOKOnly, "l̖ O") =t Then ' Exit Functio >Endx Ifh  'y\ҖẼ` FbN#If cP.GetValue(pKAGAMIA").R esult"" NMsgBox({>~?͂܂Y _F&CrLf & " sHYesNo 1No lseGmyStringwSanitize Text(, pWide, TruJ)lmVBA.Len!) > 15PPx`15ȓB{z@}z|{C {x€|ĂG"?5ڐllllE0ijl?"mll avbl llD<$Y\u_l m_lѢlmND!2k?{l\D GE|_EeEE"E H)Ek>' _HUHu= h$a5"Z *ǭvPv@"v// b50b# (e 50bx^bs vb5?c?coe?ci*KzNN (BdbԍΆelBY?d?`As?8̷ Ae dw?@E@pNarrowY@d_Y@A@R@eplace"-`"0, a᥀Compare PNot IsNumericȟ ` < ߽"""0$:#  Z#ak$CheckSubAge>nѸt `ErrMes:.pber <>v Q XQDescrip8  (PublicF municator() As BoolLea? Onor GoTo ` q&Fag6DimpAcls PaperSet= New 0fConfig6ad=dmyLo pTjY )Q Q =D'-T'݃ y[WAӔC҂̏mF ' lTIf cP.GetValue(pKAGA`MI, "Z").Result = "" ThenZDMsg Box("0͂Ă܂B" _6:& vbCrLf & "s+H",YesNovbNo %Exit F@unctio OE nd If 20KQmSp20Ta@cqpqC @ā@xvЂ@w@OKOnlyxOKQ,y zLĒSҖ@XMLt@Cł͕K{)ȀAƂ?Rnj҅ i@&jnj ")k_k"/ETkl%&$ l)mlg`,mI@ ?I?I%?Ihi@?I7` ?I%($?I ?I/I4c Y~s̐@52cȓcp^xbbb(CAp:vbc,Q| Jc XQDescrip @'jPublic ETC() As Boolea= On 0GoTo0 EFa241QDimacl@sPaperSetq= NewF 1INI+ad13 #ͳdLo^CLemyLicence@\PodNp1P,MMuq+++$s=@DSq;MM&OM`De) < 256 Th en cP.GetValue(pKAGAMI, "ݓo^ԍ").Result = myString!Else If MsgBox("̕0Ă(܂0B" _ N& vbCrLf &̂ [mFECłT +sEHB4ꍇAuSpEvuӖXy[XvȂǂ3Ă@L,nYesNoj")vbNoExit Fu nctio En0d IfmyLicence,= F(x, True)uK<""&%INXI.SŠ" B,@'AEFaEAQyE avKADim#Date As myP= "" 'NT@ ? I^ Г̀kSak`pSS5@RA%N@ !d(A9Sanitiz eTextHZpNarrowc[1\Chk8.Chec"#<R2#@|t`uxxNxxxx uHxx.Bv^:Ljr"0x OKpOnlysOY$OK_r?+(VBA0.Len/Gk) ?6G`N9Il r > @vvnnnnvbun nA=7_EZAA`&p?hݨhs#h_?3 r Egc(hcǂЊJݠck/d0)dd?d1d p8ώCqd1 u]OeOe, Oel`OeOe⵿%BS4Ce eeehe/qeQeeef^}vbf 6fngf%+ӝ % G1of!kf܂C Y:X/ggs#?dK 9 /gկկ/Tg5 s%9HA:I'\^pJn̊ύXO]_Q]DropDoXwn.@'12 If MsgBox("u^pJn̊vuύXsL̂ǂ炩IłB", vbOKOnly, &I") =; ThenExit Functio@End If*ElsecP.GetValue(pKAGAMI1 ۋj").DropDowln.F2D8/1Result-""r/ U܂Y _&CrLf & "ٵHYesNo/^No%_`aK%myString@=5gJOYSanitizeText(, pNarrow, Tr4ueC)vChkDate.ChecBHmy4Fa;TMsß̌u̓t@`@ٽxxNxxxx٠{́uHxx. v ɏC@QAdF+P" zxGU{2HOKt! xA,Iu*VBA0.Len21< 256?OE˂*O X?+H+n@& ̕lRe ꍇ́AuS@pEvuӖȃXy[X Ƞɒ `!囟}a?VBX(G EATINI.S"ˣ"m, e Xs %ave,ov pov /.ǃov= 3<;:ov̄evovov6ovbe(/'esFH&? ovov}ovvov ovrovr.oV uu_@Guqu pvbu0Nuu#u# $? M ung) u'''u}t/?_uu܂uguuauurcF//IuuuuvvMN Y+:)_,?Iu"@*uu6ue/ 7%uU/'sݔ̐ݒuꏊ͈ړ͈172P.GetValue(pKAGAMI, "ݖݔ̐ݒuꏊ͈ړ͈1").Dro@pDown. <> 1 _ And c6B2`ThencIf MsgBox("̃v_E𓯎ɑIƂ͂ł܂ B"cg& vbCrLf & "C@xs @!,OKOnlyN") = nc gQ6]2=cj G#$΂F7;K_3 %0$2g 1?3:03Wid2s33Ak=F g 2?2Inser2 1 2' Q2s{@Ŏnp12ȂA<55 ͂55w5l8Ȃ炸*0::P  8 8:5=##Dim@$Count As Integert:ʕ@Ѡq#$eϼԂP"C//b A>vpOels~e?F=p=.SJ_ESECallSignYxEVBA.LenF|) < 256_h  EB%`𒴂Ax܂'ق"vߘ`mFE5ު?ޢG$=IH.ApýAuS@pEPvuӖ@ȃXyXvFǂɒӿ)bYesNo% ANo AbA)*ٴ myString = cP.GetCallSign(, True) If "" Then<LExit Functio4Else PKvINI.SetValue("", "ʕ q)FaGuynd If myCounta~Sani FromSep*#`̌c7bTotafl6e",G3f3O EPea^v s'CK\ݔ̔ԍ@K{ lCpKAGA MI").Rpesul@MsgBox(" Ă܂B" _C$A& vbCrLf & "C xs , OKOn,ly0"vbOKH2Kv~`4(*1( otiz eTextnpNarrowSVBA.Le) < 256H @|B𒴂=CvDDE Êߓ?mFEJ邱ĂłPM N܂HV ́AuSpEvuӖȃXy[XvȂǂɒ[ YesNo[No<B 'ȉkaisetuL ̋@\`̂a?Dim xAs \fGitekiOrSyoninByAll]myC [_gOS'Zp0AFREH݌vF!8M1$KGsTß{{ZKbo3o7 ̔XO -O P.O O ep ߶  ${ŏt|g, |gω= / ?  !ωng(0ω? ? ,? W ?  B"?I#&Dlj7iiωf hp珉jĂO%KMU_G@, uec$`a  #  ' _`3? '̏Bo`o0dOO  pO "OOOOvbE ,T E .A(!ProductNo?Rhp tion 0ElsehIf cP.INI.SetValue("", "ԍmyString) = Fa The Exit 0Func End If myC0ountTSa@ni.GetF(romr({, Sep)1̌8c.bTotale",Gg̑gavo b'CJǐύX̗R ÚwÙpKAGAMI").DropDown. 1̟MsgB@ox("uM"`vu#@ǂI-ĂB" _,E& vbCrLf & "C x(s, OK0Only@8$܂(͋%"vbOKPT֊eY,2'!]51@//')_G1 @Resul""#@ ?;ĂP<<Not VBA.IsNumeric)PD.DɐȊO FंłF GGFGaGB=Z^Z= 34c_c\c2ee3p4p5s-DȉAʕAZ@KFؔAẽ`FpbNcRead/   'E#Dim 0allSign0 As 3gn/ "](=f? "TBw/ __P"T'Mz@Ƶ GitekiNinsyoNo;ןpt 3q\my[ %=& "oÜi3t&O& 8$ %*‚8킹:<> މC=CheckC8And k, _CAZ1|2@!/  ~(c/ ?I9_; 'P-Product4(4 &EKW'' 1/5.K;@ooa9KhG+ +U킹 If myProductNo <> "" Th enxCallSignCountSetRp, t|MsgBox "ʕƐ ̌v܂B"y>Exit F@unctioEnd If OAO UCheckETC = 0True_ q ErrMes:Ӏ .Numbterm0e& vbCrLf & Descr|ip%SXP ublic\ SelectCIDFromDB() As Boolead Onor GoTo9. -=Fals=Dim cPAclsPaper t= New cP.INI.Read EValue("f[^`FbN", "Ƌl̂‚ƂBB")E$LSgPqav2o^.Show&Config,?:?@ca= M-O'ς(Mn(Ec,f-H_ccGdadAdvdfCddd9㗝dI/zd dedIkd *d,Ǘ҃j[.ȉ`*`$Ĉp.b/fC G/vif{E!`c5\Ot9etU? %U? 18 IA 3? c? "_ t_ _ WC? j " &jVo8 yj---Enabled-So%u. X`bR`[b bѨmb__SRP_58aA__SRP_59^-Const1 __SRP_e(1Jpz tnpt @p p6`p+nBt p l l` 0/`pE'':@CN00D*#`:*FP^/`6P0S.`p+nBt p l >`1hp-`+++nYlht >`1h#hM@@P EP( ]g5P`(lhp+nBt p p pk'':@CN00F*#`G*#*#:*#*#H*FP^2 `6P0`+nlht >`1d ld 0Q-nldCpt @p knp4npt @p p C6`p+nIt p l l` 0/`pE'':@JN00K*#`:*FP^/`6P0.`p+nIt p l >`1hp-`+++nYlht >`1h*nlhpt p $LknpE'':@IN00M*#`*FP^/`6P0#M@@P EP( ]g5P(lp+nIt p p psk'':@IN00N*#`O*#*#:*#*#H*FP^2 `6P0qlCh-nlhJpt @p knpnpt @p p6`p+nPt p l l` 0/`pOE'':@QN00R*#`:*FP^/`6P0J.`p+nPt p l >`1hp-`+++nYlht >`1h*nlhpt p $Lknp E'':@PN00S*#`*FP^/`6P0#M@@P EP( ]g5Pp(lp+nPt p p pk'':@PN00T*#`U*#*#:*#*#H*FP^2 `6P0Cp+n#t p |  4l)pm<'': VN00:@WNPP^6P0h Cp+n#t p |  4l)p" 6`p+nXt p l l` 0/`p3E'':@YN00Z*#`:*FP^/`6P0. .`p+nXt p l >`1hp-`+++nYlht >`1h*nlhpt p $Lknp E'':@YN00[*#`*FP^/`6P0 #M@@P EP( ]g5PT (lp+nXt p p p k'':@#N00\*#`]*#*#:*#*#H*FP^2 `6P0 lCh-nlhYpt @p knp npt @p p Cp+n#t p |  4l)p 6`p+nXt p l l` 0/`p E'':@^N00_*#`:*FP^/`6P0  .`p+nXt p l >`1hp-`+++nYlht >`1h*nlhpt p $Lknp E'':@^N00`*#`*FP^/`6P0 #M@@P EP( ]g5P (lp+nXt p p prU~| YX i)UX4!-4Y4A4X&&AI& IqHJQJJKJqKJ LKqLiKL LiMYNMaLNLNMQO PqPPYQQIqR!RCIIINJIJIHRaRiS TɉTt UVV!W X YYZIZA1Q[ \]]^a^^` `ɮa aAbaPucyb!cye ddiweffI ]9q| gg hhi ш i9iiijAikjW lFlџ 6a/ @ J 0);)\Kmpz tnpt @p p-npt @p knpbnpt @p p  jhp+nt p l lh =\`+f t ` l l\ =2h\)p` jhp+n t p l lh =\`+ft ` l l\ =2h\)p` 6hp+nt p l lh =/hp  npt @p p-npt @p knpFnpt @p ppz$X pp lXpl'''$X pp lX#h*#T\ `` ,l\*FD 2hT\)p`6D$(t0 h\Tp`D$,K:pz tC`dh+nt h | d 4l`)hdE'' :<N,,*#\*FL^/\6L,  C`dh+nt h | d 4l`)hdC`dh+nt h | d 4l`)hdE'' :<N,,*#\ *FL^/\6L, x9dh+nt h | d 8)hdC`dh+n!t h | d 4l`)hdE'' :<N,,"*#\ *FL^/\6L, E9dh+n!t h | d 8)hdC`dh+n#t h | d 4l`)hdOE'' :<N,,$*#\ *FL^/\6L, M9dh+n#t h | d 8)hdC`dh+n%t h | d 4l`)hdE'' :<N,,&*#\ *FL^/\6L, 9dh+n%t h | d 8)hd6\h+n't h l l\ 0/\hE'' :<N,,(*#\*FL^/\6L, .\h+n't h l >\1ph-\+++nY`lpt >\1p(lph+n't h p hpM<@ )E'' :<*N,,+*#\*FL^/\6L, C`dh+n,t h | d 4l`)hdTE'' :<N,,-*#\ *FL^/\6L, R9dh+n,t h | d 8)hdC`dh+n.t h | d 4l`)hd!E'' :<N,,/*#\ *FL^/\6L, 9dh+n.t h | d 8)hdC`dh+n0t h | d 4l`)hdE'' :<N,,/*#\ *FL^/\6L, 9dh+n0t h | d 8)hd C`dh+nt h | d 4l`)hd C`dh+nt h | d 4l`)hd E'' :<N,,1*#\ *FL^/\6L, 9dh+nt h | d 8)hdC`dh+n!t h | d 4l`)hd E'' :<N,,2*#\ *FL^/\6L,   9dh+n!t h | d 8)hdC`dh+n#t h | d 4l`)hd E'' :<N,,3*#\ *FL^/\6L, ^  9dh+n#t h | d 8)hdC`dh+n%t h | d 4l`)hdh E'' :<N,,4*#\ *FL^/\6L, + f 9dh+n%t h | d 8)hd6\h+n't h l l\ =/\h E'' :<N,,5*#\*FL^/\6L,   ( h+n't h p hC`dh+n,t h | d 4l`)hd E'' :<N,,6*#\ *FL^/\6L,   9dh+n,t h | d 8)hd6\h+n7t h l l\ 0/\hk E'' :<8N,,9*#\:*FL^/\6L, f ).\h+n7t h l >\1ph-\+++nY`lpt >\1p9:<;N,,lp<*FL = `1p6L, (lph+n7t h p h6\h+n>t h l l\ =/\h.\h+n>t h l >\1ph-\+++nY`lpt >\1p(lph+n>t h p h6\h+n?t h l l\ =/\h.\h+n?t h l >\1ph-\+++nY`lpt >\1p(lph+n?t h p hC`dh+n@t h | d 4l`)hd.E'' :<@N,,A*#\*FL^/\6L, ,pz$` hh l`hl'' ',` hh l`#\*# dd ,l*FL 2\)hd6L, ,tp0 \hdL,  ( K{ k'':@#N00\*#`]*#*#:*#*#H*FP^2 `6P0y lCh-nlh^pt @p knp npt @p pp+nat p |  4l+bt  |  4l)p E'':@cN00d*#`*FP^/`6P0 Cp+nt p |  4l)p6`p+net p l l` 0/`pdE'':@fN00g*#`*FP^/`6P0b6`p+nht p l l` 0/`pE'':@iN00j*#`*FP^/`6P06`p+net p l l` =/`p(.`p+net p l >`1hp-`+++nYlht >`1h(lhp+net p p p uk&,`lhpt p $ll` 0/`p$E'':@mN00n*#`o*FP^/`6P0"6`p+nht p l l` =/`p|.`p+nht p l >`1hp-`+++nYlht >`1h(lhp+nht p p p ukz,`lhpt p ll` 0/`pxY'':@pN00q*#`r*#*#*FP^2`6P0v6`p+nst p l l` 0/`pE'':@tN00u*#`*FP^/`6P0d.`p+nst p l >`1hp-`+++nYlht >`1h#hM@@P EP( ]g5P(lhp+nst p p pk'':@tN00v*#`w*#*#:*#*#H*FP^2 `6P0`+nlht >`1h lh 0Nb-nlhtpt @p knp'nxlhpt Lp 4yknpp5nk#`zpt @p kn/`p*nx{lhpt Lp 8yknpp5nk#`|pt @p kn/`pEnpt @p p6`p+n}t p l l` 0/`pE'':@~N00*#`*FP^/`6P0|.`p+n}t p l >`1hp-`+++nYlht >`1h#hM@@P EP( ]g5P(lhp+n}t p p pk'':@~N00*#`*#*#:*#*#H*FP^2 `6P0`lht >`1h lh 04z-nlhpt @p knpf-nlpt @p knp'nxlhpt Lp 4yknpp5nk#`pt @p kn/`p*nx{lhpt Lp 8yknpp5nk#`pt @p kn/`p]npt @p p6`p+nt p l l` 0/`pE'':@N00*#`*FP^/`6P0d.`p+nt p l >`1hp-`+++nYlht >`1h#hM@@P EP( ]g5P(lhp+nt p p pk'':@N00*#`*#*#:*#*#H*FP^2 `6P0`+nlht >`1h lh 0Nb-nlhpt @p knp'nxlhpt Lp 4yknpp5nk#`pt @p kn/`p*nx{lhpt Lp 8yknpp5nk#`pt @p kn/`pEnpt @p pCp+n%t p |  4l)pE'':@N00*#`*FP^/`6P0Cp+n%t p |  4l)p6`p+n't p l l` 0/`pE'':@*N00*#`*FP^/`6P0.`p+n't p l >`1hp-`+++nYlht >`1h(lhp+n't p p phM@@ )E'':@*N00*#`*FP^/`6P0Cp+n%t p |  4l)p$npt @p knp*` tpt @p >`1p*` |pt @p >`1p*` zpt @p >`1p*` pt @p >`1p*` pt @p >`1p*` pt @p >`1p*` pt @p >`1p l =~3nlllllpt Lp hyknp|*` pt @p >`1p*` pt @p >`1p*` pt @p >`1p l = ll=F+'''0:@NPP 6P0 ll=+'''0:@NPP 6P0pz$ pp lp! l'''0 pp l#`*#  ,l*FP 2`)p6P0( `Hthd@ `pP0DKVpz tnpt @p p-npt @p knpbnpt @p p$$npt p knp'hpt @p lhpnpt @p p-npt @p knp/npt @p ppz$h pp lhpl'''(h pp lh#d*#X\ `` ,l\*FH 2dX\)p`6H((t0 d\Xp`H(pKpz tnpt @p p-npt @p knpbnpt @p p$$npt p knp'hpt @p lhp.Xp$ p XfH]3p5XG-npt @p knpB -Xp$ p XcH]3p5X-npt @p knp-Xp$ p XcH]3p5X -npt @p knp-npt @p knp=npt @p pp$ p Ppp$ p Ppp$ p Ppp$ p 8ppz$h pp lhphl'''8h pp lh#4*#(, 00 ,l,*FX 24(,)p06X8p(t0 4,(p0X8W$!X`nrU~| p(rU ,nrU  $`,`Q0`__SRP_f3nmodInputTextFile"i__SRP_10 '__SRP_1175@X r,P *\R0*#1c$*\Rffff*1950dc2c74$*\Rffff*1@50dc2c74$*\Rffff*1C50dc2c74$*\Rffff*1;50dc2c74*\R0*#f*\R0*#9*\R0*#11$*\Rffff*1N50dc2c74*\R1*#10e*\R1*#10b$*\Rffff*1<50dc2c74*\R0*#1*\R0*#1~P@9*\R0*#13*\R0*#e$*\Rffff*1?50dc2c74$*\Rffff*1350dc2c74$*\Rffff*1550dc2c74$*\Rffff*0z50dc2c74*\R0*#1b*\R0*#1b$*\Rffff*1E50dc2c74*\R1*#c6$*\Rffff*0x50dc2c74*\R0*#f*\R0*#14$*\Rffff*1B50dc2c74 f  8 "X |S8xMEx@ 8"F> "" LL"L""" *LP"L""<|< (% %`z %+`0Tk II  Dt Ex%` ` En+X`xk R) 0% DpP͎%+` kFF i % Dp % _8 l% ah%`d`b`b\`dX`VhV@8@@X X@  @0p @n @h ( Z@pX @H @8 @( @ @ @ @ @ @0 RG(xME(6 << <P`HPHHꀪ@ꀮ8@꘲B H @@&(@ꀶP@"  @x$  @kaisetu2011.dotjpfhrr9fH*pHꀰ @ꐸ(HxHo[W@1.06@2012/02/15 H $  @(h@ @ꐾHrmkstation.ini dbo.T_HokatuT_AgentrmT_Clientdbǎ@[Uj[ǎ@Ǘ҃j[XP% HU4HPP(@x8hpx`(px`(Hx`( @Ǘ҃j[`P(@xhXx`(08@x(,"r,P $*\Rffff*1850dc2c74++  8 "X   (0Ph 6 6 6    ((  (08@ H $P H ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp dot@ConstHO[o萔]$kaisetu2011.dot]$o[W@1.06@2012/02/15p]$jpfhrr9f]$rmkstation.ini`DAa]$ dbo.T_Hokatu(]$T_AgentP+ ]$T_Client]$]$ǎ@[Uj[]$ǎ@Ǘ҃j[O[oϐ,] ] ] @] (] h] P] ] ]$x%Zbg؂蕶 8] x] ] 80Public Const cTextBox1 As String = "Text Box 80"`0Public Const cTextBox2 As String = "Text Box 81"0Public Const cTextBox3 As String = "Text Box 82"HAttribute VB_Name = "Const1" ' nCp[_dCopyright (c) HyperDyne Inc@. All 8reserved.fhttp://www.h`d`.co.jp/webmaste r@ dot@ Option Exp licit'Oo萔 Pub 3 MY_FILENAME As Sngkaisetu2p011.1zcVERSION o4W@1.06@2/02/15 PASSWORD !jpfhrr9f INIT@rmkstay.ini1DATABASodbo.T_HokatuAGENTDBET_Agent CLIV Cli kPTextBXox14A  80' 2  3 2@c$?HR"MAX"IntegeBr4000O UaMenuߊǎ@Uj[3 AdminǗ5GgHgmyS awrG*!myDatabasen(Password2ATISƋo@^sB@oolean ʕmFLocBiSep!焃" 'Zbg搀؂蕶:@H @` @x @ @p @l @h (,0@Hd @` @@\ @`X @T 80x`  0`z @P th% t% t% t% t% t% t(% tH% 0(@ ` @P @ @ 0b "@> @8 8 @ 4 (@ $ @  @ $&(*,.02P 468:<>h @BDFHJL NPRTVX Z\0,(@@  @  @  @8  @p  %`t@ P 8 `t`t `t @ X%`t @ xP  x `t ` ~&b@ D `t@P @ H $b`t `  P8 0 8 @ 0 @ @  @h @ @ @  @ = @ @   ` @ h ,(Z0  ` @8 @X @p @ @ @  H@ @  @ e  B    'T+hp x 8( HX` &h    . :+PX <`  < $8PX 2`   H     Bt B   < H <`   LL V <h 4,-\V p .'x .- `V 8 0'@ .-p `V  0' PL8 PL PL (  -8 DVX  "' 8  8 X -x 0V    ,L ,L8  ,h,L  $,L , ,LP $,L  *,L 8,LX ,L ,,L ,8,Lh ,L 8  8( `,L ,L ,L @,LP ,L ,L ,L   P,Lp  ,L  ,L  8,LP  ,L  8  8,LH,Lx,L,L,L,L8,Lh,L,L,L,L(,LX  8  8LLPL`\L  d8-xtV(xL0<-|Vh<-p|V0L8hLdL HLdL\L8  `6-pV0  pL 8-!tVP!!8-!tV""8-"tV"8#pL@#   8# # 8# @0$vp$,L$,L%,LH%,Lx%% 8&@& H&  P&`&h& p&& Bt'H' P'B X' `' h' p''''' '' '' 6"'H '"@( h( x( (  ( N@(.):H)&2)4Y)$>)1*.40* `* p*x** *'**** * * * *+  +{(+ + +++ ?+ , ,8, @,  H,X,`, Bth,, , , ,, ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX]@]@@"8'].DH D!ZB@| D!Z!^JeLXgǂݍ݂̓y[Włɑ₳ꂽf[^ɑ΂Ă͎sł܂BA@(xzk]]tB^[̐ݒeLXgt@C(*.txt)$ *.txt$ ׂẴt@C(*.*)$ *.*$ ' !$  D!|% ' zk 'eLXgt@Cǂݍ. $. z8k0. %. ! Z0݂̃f[^݂̂̃tB[hُ̐łBA@(zk5-----------------------------------------------------݃y[W̍쐬5----------------------------------------------------- $zksystemׂď D!L!zk+[Uj[visibleǂmF ! B@X !e B@Xk "eLXgt@Cǂݍ݂܂B ,LȂ炸f[^`FbNsȂŁA㖳exɂMB ,L\Ăꍇ́AۑĂIAxJĂBA@('z("  0!2KTKT  0!2 , 0!4 ,6ۂ̃v_E͈̔͂𒴂l͂Ă܂B eLXgt@CǍA@(Sp 0!2 , 0!4 eLXgt@CǍA@(n i"5-----------------------------------------------------݃y[W̍쐬5-----------------------------------------------------']8.D݃ev[g % b݃ev[g D%(fxOuݎw肵Ăv 1=w肵ĂA2=Jݓ͏oA3=J݋ǕύX͏o6uݎw肵Ă2v 1=A2=2731A3=2732.uݎw肵Ă3v 1=A2=J݁A3=ύXݎw肵Ă % ݎw肵Ă % bݎw肵Ă D%!r(nk bݎw肵Ă D%(:ݎw肵Ă2 % ݎw肵Ă2 % bݎw肵Ă2 D%!r(nk bݎw肵Ă2 D%(:ݎw肵Ă3 % ݎw肵Ă3 % bݎw肵Ă3 D%!r(nk bݎw肵Ă3 D%(: ݋LNN % b݋LNN D%(f ݋LN % b݋LN D%(f ݋LN % b݋LN D%(f ݈ ݈ % ݈ % b ݈ D%!r(nkX b ݈ D%(:1-------------------------------------------------\ҁiƋlj1-------------------------------------------------ݖ@lčl̕  %  % b  D%!r(nk8\җX֔ԍO3   % b  D%(f\җX֔ԍ4   % b  D%(f&\ҏZiݐ\ҏZtKij   % b  D%(f\ҏZiݐ\ҏZj   % b  D%(f&\ҖOiݐ\ҖOtKij   % b  D%(f\ҖOiݐ\ҖOj  " % b " D%(f$\ҖOiݐ\ґ\ҖEj%  $ % b $ D%(f\ґ\ҐtKi!r  & % b & D%(fw\ґ\ҖtKi  ( % b ( D%(f&\ґ\Ґiݐ\ґ\Ґj݂  * % b * D%(f&\ґ\Җiݐ\ґ\ҖjR  , % b , D%(f\ғdbԍĦ  . % b . D%(f1-------------------------------------------------㗝l݂1-------------------------------------------------㗝lX֔ԍO3   0 % b 0 D%(fĂ㗝lX֔ԍ4  2 % b 2 D%(f2㗝lZtKi  4 % b 4 D%(f% 㗝lZ   % b  D%(fv㗝lOtKi  6 % b 6 D%(f$( 㗝lO  8 % b 8 D%(f㗝l\ҖEss  : % b : D%(f3㗝l\ҐtKi  < % b < D%(f㗝l\ҖtKiʦ  > % b > D%(f܂㗝l\Ґ̕   % b  D%(f b㗝l\Җ  @ % b @ D%(f]u㗝ldbԍύX  B % b B D%(f̊1-------------------------------------------------㗝l%1-------------------------------------------------  D % b D D%(fܦ  F % b F D%(f  H % b H D%(f   % b  D%(f  J % b J D%(f=I  L % b L D%(fR  N % b N D%(f%  P % b P D%(fʦ  R % b R D%(fC   % b  D%(f   T % b T D%(f݂  V % b V D%(fx1------------------------------------------------- ݂̑1------------------------------------------------- ݓo^̔ԍ % bݓo^̔ԍ D%(f ( ݓo^̔N % bݓo^̔N D%(f ݓo^ǂJ݂ % bݓo^ǂJ݂ D%(f]u݉^pJn̊ύXsv 1=w肵ĂA2=^pJn̊A3=ύXs"݉^pJn̊ύXs % "݉^pJn̊ύXs % b"݉^pJn̊ύXs D%!r(nk &݉^pJn̊ύXs % b&݉^pJn̊ύXs D%(f%ݖݔ̐ݒuꏊ͈ړ͈1 % %ݖݔ̐ݒuꏊ͈ړ͈1 % b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r(nk%ݖݔ̐ݒuꏊ͈ړ͈2 %D% %ݖݔ̐ݒuꏊ͈ړ͈2 % b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r(n bk *ݖݔ̐ݒuꏊ͈ړ͈̓t[ % b*ݖݔ̐ݒuꏊ͈ړ͈̓t[ D%(f ݖݔ̏uꏊR[h % bݖݔ̏uꏊR[h D%(f ݖݔ̏uꏊZ % bݖݔ̏uꏊZ D%(f ݎʕ % bݎʕ D%(f ݓK\ݔ̔ԍ % bݓK\ݔ̔ԍ D%(f ݖݔ̐ԍ % bݖݔ̐ԍ D%(fn ChYu݊J݂ǐύX̗Rv 1=IĂA2=J݂ǐA3=ύX̗R ݊J݂ǐύX̗R % ݊J݂ǐύX̗R % b ݊J݂ǐύX̗R D%!r(nkX !݊J݂ǐύX̗R1 % b!݊J݂ǐύX̗R1 D%(f!݊J݂ǐύX̗R2 % !݊J݂ǐύX̗R2 % b!݊J݂ǐύX̗R2 D%!r(nk0!݊J݂ǐύX̗R3 % !݊J݂ǐύX̗R3 % b!݊J݂ǐύX̗R3 D%!r(nkx!݊J݂ǐύX̗R4 % !݊J݂ǐύX̗R4 % b!݊J݂ǐύX̗R4 D%!r(nk !݊J݂ǐύX̗R5 % b!݊J݂ǐύX̗R5 D%(f1------------------------------------------------- AӔC1-------------------------------------------------9kaisetuɂ͘AӔC҂̏Zƃ[AhXȂ̂Œg cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result' = mvarKagami.Item(cݘAӔCҏZ)   % b  D%(f  X % b X D%(f  Z % b Z D%(f  \ % b \ D%(f{ cP.GetValue(pKAGAMI, cݘAӔC҃[AhX).Result' = mvarKagami.Item(cݘAӔC҃[AhX)'z" 0!2KTKT  0!2 , 0!4 ,6ۂ̃v_E͈̔͂𒴂l͂Ă܂B eLXgt@CǍA@(S 0!2 , 0!4 eLXgt@CǍA@(niX"].D]]] ]8]P]h]'V $~,myFileNamet@ĈȂ ,2myFileNamet@CV[PV̓[hŊJ',obt@NA.^.`$a( EOFłȂԂ ( 1sǂݍ $# L##Ŏn܂ĂȂƒkłȂ : &'L:̈ʒu𒲂ׂ 0L%:݂ΈȌ̏BȂΖ   % %'b   % % D!%f'd b % b b D!^%hږ܂B , bA@(V.zkx ` d bC@jqXkPkH V 'Vk0)Do[viJԂjV)t@C‚k V Z G[ :ڂ̐Ă܂B , ݂̍: Z ,ۂ݂̂̍: `!A@(.V)t@C‚zk ` ^B@j ^.V%t@C‚z" 0!2KTS 0!2 , 0!4 eLXgt@CǍA@(nH.V%t@C‚iAttribute VB_Name = "modInputTextFile" ' ЃnCpP[_dCopyright (c) HyperDyne Inc. All 8reserved.fhttp://www.h0d0.co.jp/webmaster@  Option ExplicitAPrivamvarColle"c"As   %Kagami !ub) Fun ()Boo0leanDBrror GoTo @ErrMes FalseDim cP& clsPa Set = New cP.Page.ReadBoxIf Count <> 1 TheGS+Msg "eLXgǂݍ ݂̓y@sWłɑ₳(f^@΂Ă͎s@܂BExitFM%End IrfIIf") <> "" Txhen.DropDown>.ՉšCCEnpd If`'--'\ҁiƋplj]@lčl̕`c !M (eniC3mCRX֔ԍO3>{ 9""q]c__Y9ool\__QO]H@r//,S)or $L$} ^!pa (oE[(pKAGAMI, cݑ㗝l\ҖtKi).Result _ = mvarKagami.Item(Kr ' ̐cP.GetValue6:k3  %C)5Cdbԍ C0C5C'-- "" Thenb0> `Dro@pDown. ?(/__"End IfS   _$  (ݔ̐ݒu͈ڀ͈1? .oBD 2     q q[_(   = S (R[h@]V+!W 3ʕWГKwr!m("ݓK\ݔ̔ԍ") cP.GetValue(pKAGAMI , bj.Result _|= mvarKagami.Ite?6'uJ0ǐύX̗Rv 1=IĂA2= 2A3=6_IfL8") <> "" Th 0 Then@SDcP.For m.GetField(pKAGAMIU) =JNMsgBox "ږ܂B" & vbCrLfmyXM(Close #1Set ReadTextFileVNothExit Fu nctioEnd If%WithKagami`Colle(A6.Add DataEYWA AS'kGk LoopA*'Do[viJpjot@C‚7"C@kA_C0OUNT EG [ ":!̐ĠĂ_'Ȧт́:AۂmyC.Count'X ))!],aW$T'c@+t ErrMes: m Ca@.Numbe.rc0ElseG$G' ,<CDescripA,itical#eLXgEǍ̞"!.Sea?>&&%Gp d ,tk$4'''u*#@l\*F0 /@60= c=x lh'''0\M @XMD@ 60c kVpVf= kVF{'''vw*#@*#x*#F#*#*#y*#h $l#*F0 2@60 c=x=?'': N00lhMD @l l=h60 llx=  !lql t  !  ,!'':D"Nl#@*#l*F0 2@)60 c=x=$H0 xhXtpld\D@0a]فqcI 9DKpz tnpt Xp Tp'hpt Xp $lhp+'''(:XNHH 6H(:XH H(:8n: : rU  aP1PI i Uq|)IɅ&&AI& ]SA)S(@H))  WWWH <qx/ clsCallSign}#?__SRP_129^__SRP_13-0sclsSani9H  8 "X   ( $ (8$`$ B   B  0 8B@ H ` hBp x  B     0 @ Xhp xB      0@H PB X `rU~| z i)9FQI&Q1)8 HY!q9bU@ LQE J01A 22&&q.- IqHJJIJIJIH ! i Q  i I!Y I)i!q9q YKAaɮi iK LaLLMQAqA )1a)]فqcI 9DKpz tnpt Xp Tp'hpt Xp $lhp+'''(:XNHH 6H(:XH H(:8 : :  p`16H(p8l $ 4 hlllpt p  >h1/lp l0` l c .(:XNHH_ (6H(h_ $lhF+'''(:XNHH 6H(p p2$npt @p knp[$aH.V5H $ $aH.V5H $ dH'''(*#l*#h*#d*FH 2lhd6H(pzh pp !lhq`pl`1>l`h pp !h \\ ,!'':X"N((lh#l*#dlh*#X*#T#*FH 2 ldhXT)p\6H(>th pp !h \\ ,!'':X"N((lh#l*#dlh*FH 2ldh)p\6H( (D0tTlhdXTp\H(p<L l tKpz pL@:`$NPPt @48+>$p 8 p%/486P@-@:`&NPPt @:$]@6P@V@:`&NPPt @"8+>&p 8 |% 8')86P@'8+>&p 8 h%8-@:`(NPPt @:$]@6P@V@:`(NPPt @"8+>(p 8 |% 8')86P@'8+>(p 8 h%8-@:`)NPPt @:$]@6P@EV@:`)NPPt @"8+>)p 8 |% 8')86P@'8+>)p 8 h%8L@:`*NPPt @48+>*p 8 p%/486P@L@:`+NPPt @48+>+p 8 p%/486P@L@:`,NPPt @48+>,p 8 p%/486P@-@:`-NPPt @:$]@6P@V@:`-NPPt @"8+>-p 8 |% 8')86P@'8+>-p 8 h%8-@:`.NPPt @:$]@6P@V@:`.NPPt @"8+>.p 8 |% 8')86P@L@:`/NPPt @48+>/p 8 p%/486P@L@:`0NPPt @48+>0p 8 p%/486P@L@:`1NPPt @48+>1p 8 p%/486P@L@:`2NPPt @48+>2p 8 p%/486P@L@:`3NPPt @48+>3p 8 p%/486P@L@:`4NPPt @48+>4p 8 p%/486P@L@:`5NPPt @48+>5p 8 p%/486P@L@:`6NPPt @48+>6p 8 p%/486P@L@:`7NPPt @48+>7p 8 p%/486P@L@:`8NPPt @48+>8p 8 p%/486P@L@:`9NPPt @48+>9p 8 p%/486P@L@:`:NPPt @48+>:p 8 p%/486P@L@:`;NPPt @48+>;p 8 p%/486P@L@:`<NPPt @48+><p 8 p%/486P@L@:`=NPPt @48+>=p 8 p%/486P@L@:`>NPPt @48+>>p 8 p%/486P@L@:`?NPPt @48+>?p 8 p%/486P@L@:`@NPPt @48+>@p 8 p%/486P@L@:`ANPPt @48+>Ap 8 p%/486P@L@:`BNPPt @48+>Bp 8 p%/486P@L@:`CNPPt @48+>Cp 8 p%/486P@L@:`DNPPt @48+>Dp 8 p%/486P@L@:`ENPPt @48+>Ep 8 p%/486P@L@:`FNPPt @48+>Fp 8 p%/486P@L@:`GNPPt @48+>Gp 8 p%/486P@L@:`HNPPt @48+>Hp 8 p%/486P@L@:`INPPt @48+>Ip 8 p%/486P@L@:`JNPPt @48+>Jp 8 p%/486P@L@:`KNPPt @48+>Kp 8 p%/486P@L@:`LNPPt @48+>Lp 8 p%/486P@L@:`MNPPt @48+>Mp 8 p%/486P@L@:`NNPPt @48+>Np 8 p%/486P@L@:`ONPPt @48+>Op 8 p%/486P@L@:`PNPPt @48+>Pp 8 p%/486P@L@:`QNPPt @48+>Qp 8 p%/486P@L@:`RNPPt @48+>Rp 8 p%/486P@L@:`SNPPt @48+>Sp 8 p%/486P@L@:`TNPPt @48+>Tp 8 p%/486P@L@:`UNPPt @48+>Up 8 p%/486P@-@:`VNPPt @:$]@6P@V@:`VNPPt @"8+>Vp 8 |% 8')86P@L@:`WNPPt @48+>Wp 8 p%/486P@-@:`XNPPt @:$]@6P@kV@:`XNPPt @"8+>Xp 8 |% 8')86P@-@:`YNPPt @:$]@6P@V@:`YNPPt @"8+>Yp 8 |% 8')86P@L@:`ZNPPt @48+>Zp 8 p%/486P@L@:`[NPPt @48+>[p 8 p%/486P@L@:`\NPPt @48+>\p 8 p%/486P@L@:`]NPPt @48+>]p 8 p%/486P@L@:`^NPPt @48+>^p 8 p%/486P@L@:`_NPPt @48+>_p 8 p%/486P@-@:``NPPt @:$]@6P@=V@:``NPPt @"8+>`p 8 |% 8')86P@L@:`aNPPt @48+>ap 8 p%/486P@-@:`bNPPt @:$]@6P@V@:`bNPPt @"8+>bp 8 |% 8')86P@-@:`cNPPt @:$]@6P@V@:`cNPPt @"8+>cp 8 |% 8')86P@-@:`dNPPt @:$]@6P@V@:`dNPPt @"8+>dp 8 |% 8')86P@L@:`eNPPt @48+>ep 8 p%/486P@L@:`fNPPt @48+>fp 8 p%/486P@L@:`gNPPt @48+>gp 8 p%/486P@L@:`hNPPt @48+>hp 8 p%/486P@L@:`iNPPt @48+>ip 8 p%/486P@pz 88 !l q8llf 88 !  ,!'':`"N@@l #4*#l*#*##*FP 2 4)86P@t 88 !  ,!'':`"N@@l #4*#l*FP 24)86P@5,dpt8 48P@<$l CtKh ppV"tMD@ j#@=/@z lt]Cd l h  kt d@dMD@0 l 0: m]<ld='60mldnpbkbo3`2kbdMD@0 l 0 p`1\60Y'0kbdMD@ q p@p L <r>1X/@60>:N\M @(0 s(]@60^1+l\ "".76P-Q[H>Q7T*=h8+3qc:;I0xc:;I0-Q[H>Q7TMESS S z x"">" LN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}hxbn 8@brP@@"tD@%A %X@ % ,!vh x+i ,!xxh x+X i t,!6h x+$i ox 8,!88h x+(%i  ,!zh`+x,+i| " ii  Np@ % &`@%,!~h`+X0;i| xii Nxp@ % &`@%,!h`+84Ki| Xixi NXp@ % &`@%,!hht+88 [i| @@ %)` A %,! h @k< di| i Nt, `k` @ 88oi  Lt% Nd 0`,`\*`z(`V&`@  @%%  % , `0 A  sktatgs8 s( )A.Cou`|\> tA.tC(No!,t.dIf#ye !tg Hxead8@B;8擪C ?4??b5?3s? ??en!? R!QB5WNo?89ߵfGZ 7f1-7pertyG1] 7 A7s7Sru No /TP_sy!-?CSyq //0U7I 89N+?t<roet@*3c2&[s5q= VBA.SpPlit(,a, , vbTextt\ /o#$Func"xS BooleaH!Ī hȁINIqmPca=.RbsP59ņavA= irs bep2/#w‚u*i$7j_k_PmyrbpFor i!o UBd(Js8&sQ = (i), "," 3 h/CϽA1j2AT x= "5k!1 To4Len( j)@=VBA.IsNumeric(VBA.Mid(s2(j), k, 1)) Then  myHead = pLeft2$t -vjEx@it For:E nd IfIf kenc)a3)ylse2~C)fNextssl Rep0lace, "", vbBinaryComparemReDim Preserve CallSignSet As t K% .s*L C*No;Val(ss 1 j T  0MsgBox  & vbCrLf &BDescripC/ @FFPr@ivate % (By`1 s%@String"'L ong 'ʕ̐CMss(B@\"",e'0Ep# cSplit(s^,^^% UB2 s) + 1 r Sort( _!my" ,O-al m`yDele *kB@oolean?Faa# OnA6or GoToAA/,o^̔Ԡ-Ȃu,vŋ؂\[g2cSq`cls DS = New ktrA!.%!e,&tYrrYYeY8 $ H @qx/ x$ L- 4Cx/ x(x L- 8Cx/ (x - k / k*/@k uk D@p ktksklp@`l`Cx/`Hxpi `u `i Hu aP1P- k / k*/@k uk D@p ktksklp@`ldCx/`Hxpi `u `i Hu aP1P- k / k*/@k wk D@p ktkuklp@` lh1x/`Hxpi `u `i Hu aP1PH k  0t@k ;k D@t0t H@(ti `u aP|- k /@k o;:dNTT4D D6 Y@t6TD k ltCx/ <|4xtTD|pz t rt lt 4ll4/llt 8ll8/lht <lh<ht @lh@;:TNDD44 46 Yhd6D4*ldc;=:TNDDk*ld4 46 Yh06D4(l0cC /&k(l0.@MT@D -DU5Dc I8(Dk&k(l0.@MT@4 -4 6D4k&k(l0 1 I8k&D]k(l0.@MT@D -D(435Dk&k(l0 1 =/k&D]k(l0.@MT@D -D35D= k(l0C  &d X k(l0C,'l k(l0 1,k(k(l0k(lAl k(lAl, k(lAk(k(lA (d!k*Dk*DAk(k*DA *dpz/ $h  lhl'''4h  lh#l*#  ,l*FD 2l)6D4/ dL 0t,!i Hu d! 4 lD41Pxl Ct lt0" qxn8:`NPPlt@ @6 Y<p6P@lpqx/ @x4pt P@4 l Ct-K9 pllltp 0>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(   rU T(h((Ah!((h%0(h)00h -00Ah 100h 500h 94,h =0(A `A#, `D(0 ` H  0nrU @@` )Iq4*\R0*#f*\R0*#94   8 "X 0   B<&  @  HX`hp $"   4  4X H Z Z8 B B( 0 &8 $>P("x  $>("  D &>H*"p  &>*"  B &Xp &x & $   ( &( @ P` ,h & &         !"#$%&'()*+,-./0123456789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz{|}~(&4NZ<j$VHC囐*=h8+3qbKIMs[y+KxbKIMs[y+Kj$VHC囐MEH @SS S">" LX `t ;@;`p0H`=@>::(;@;998@;H @>8 @4 @;2 `t`t;;`p;p8<<`l`pH@<0 @ <. @h<,/ X=H< < X< <(<;@<& <h<! @p=$ <<!<<'=p=+ `t`t0==+ `<p =1`l`p@=" @  @p> `tX`p`t`=p>@?`t@X> @ =@> @  @> @? ?(?<`l@ @ h`(?z`t@`t?X?`p?p@`t@?X?p@AA@@A@?@>`l`t`p&~0,( @ B\ @BL @H X`t` ApBB`l`t@AD @A@ A@< @A8 @4 @XB$ @pB E`t@B @ @ h`BzCB`t(C`t8CB `BpD C`t C(DBEDDDDBhDPA(D`t`lpD0F`t&~0,(@EX (@hEH `FF`t@D @ E@ @8E< @8 @PE4 @0 @E @@E @E @ W`t@ `thfp`fFxX`t(HF ,R0( @hHd GI`tHF0FGGhGFG0FpF@D@PHT E@HP @L `tIIH`t@ HH @D x@8H@ (@< @H, @H @H `t@ @@ (IJJ`JHJ0JxJIJFhJ`t`IxJL`It`t,R0(@0Kd @KT @JP @L KKI`t@JH @@D (@K@ @< @HK, @`K @xK h@ @ KL`thdL`Kt L@ h L`N(MMxNLLNI`dKx`t&R@Np x @l @XM\ @ML Lh0,@pM< K@0N, @@M MO`t@HN NO`MtOO`t@ @ @N @ @ @N @ @M(   ` x p O Q@P8SPXPPQQRO SMhO`Ox`tR,&PQ7`OtpP(Q7HP`t@Qh @PX 0RRo`t@PH @XQ8 @@Q( O~(@$ @@(Q (@R @pQ @ @ x@ @Q @ @Q R@R @ @R XRRo`RtRRRu`t@ R(Q`t@R SR @ SRRP0( @PS @ 0` XTx0VTXUUU`VUV T@W8Th`TxXTHT TpTT` TtTXTTU6T`tR,&@HVh xUU6`t@0UX @HUH X@V8 @U( T~(VVq`t@$ @U (@W @V @ @XW @ @xV @ @V V@V @ @W WWqxU`t@ pWWw`t`U0 @| XWU@Wt WW@p xY`tWWW@Xl @h X YY`YZ`ZYXHYYh`XxYX8YX`tXY Y8&0,(_@Yp (Z`t@l p@Yh X@d @Y` @\ @xZL \`t`t`@Z< @Z, @Z @Z @ @ Xx8P ^ \p`P\8\]^(]^[_[h@\`[x`[[[[`t\[R,&@^h @h\X @\H @]8 ^`tX](]3`t`t@h]( \~(@$ @@] @] ]@]3@] @ @ @] ]]G@(^ ^]G@ @^]N0@P^ h^(^V@` x^P^V^P^]@ @^ H@ @P_ h_^t_`t``t`t@_ x_P_t_P_v@_ __x@ __x\0 `_(`@](@8` P``@ ``8`8`(@` @ h``xa`a`tHa`Pf`t`tb0a`tHHx0``d(beXb@bbdbd`e`R,&@dh @pbX @bH @8c8 @ c( b~(@$ @b cb1@hc cb1 @Pc @ @ @c chcCcccC`t`t@dcJ`td@(d @ @hd d(dS`t@Xe dhdSehdZ@ @d @ @e Xc(edr@ 8eerpHee peb@e eXe@ ee eb0 @j@e @ (h`fx@ffffj`t`tpf giH`t&(0, @hd `t @hT Hgi,`tpgi`pgxl2`lgl2`h8jmK`dpffHiigf0iff0f@hD @h4 @h$ @i 0@ i@ @`i @ @xi @ H@i @ h`t`ixX`tR,&@nh `j8mK`tj8mR`pjjPmYH`ljmY`hPl`jtmm``d`t`x il j`okk`lmmxliHof@lX @ lH @l8 @l( j~(hm@$ 0@l m@n @ @ @l @ @8m `t8@Pm @m o`t @ @ `tnmn{ `p 8nn{`l`mt`nn`hol `d @n @ @n @n @o (on@ 8oo`o8l0 @xo @ y ix0H`pq sqqrXrprXp@rpph`@pxpXpp@p`t(pp`nR,&`tqpr,`t8qr,`phqrE `l q t`h`Pqt8tt`d@sl @r\ @(rL @r< @r, p~(0@( @r @ @r @ @ @ 8l@Ps @8s @ @ (tuvPu8u(vu tv`qh`tx`tt`ttu t`p tu `l`t`tt`hHu*`d&0,@hu` @uP @u@ @u0 @ @v @u  @  @`v @Hv @ o@ @xv @  u(@@ @hxxwwxwxzhzxxyhyyxwxwh ``wz wxww`w`twwx`pxw `lXxx`wt`hHx@x`dyhx (,0<@xT @xD @y4 @ y$ @8y @Py @ @ @ @y ryy @ Xzy@y @ @(z @@z @ y$z@z z@ {p|@|{{X|P{{h{h `8{z x{P{{8{`P{t{{L&0,(l@|\ @{L @(|< w@|, @ @| @ @| @ @| @ @| @ Hv@(0r,P (*\Rffff*1<50dc2c74\1$*\Rffff*1<50dc2c74$*\Rffff*1;50dc2c74$*\Rffff*1850dc2c74*\R0*#2*\R0*#1*\R0*#10*\R0*#f*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R0*#   $(l8X `B  h p  x"""" " "@ "` " " "    $ l ( 0 B  8 @  H X ` h "p " " " " " "0 "P "p " " " " " "0 "P "p " " " " " "0 "P "p " " " " ""0"P"p""""""0"P"p""""""0"P"p"""  $l8 @B  H P Xx  , , ,"""0 H$"h (&  $l0 8B  @ H P"p "  $l  B  ( 0 .8 hx$9 $l B     .  P`hp$9x $l B   0H P`h  p$=$=  (0$3P x    $l B   . P Xhp  x$=&7$=&78`h px$3   }} ~ ~~   $l0 8B$ @ ` Bh   80 8P 6 8 : $8 `p        0 H X `p       $ l0P XB$` x 61( 0H P$Xlh B,    D &0 ""X   1      ! ! $ !l0!P! X!B `! x! <! !! !"""(""H" h"p" x"$"l"" "B " " <"  #@# P#"h#"#"# ## #$#l#$ $B4 $ @$ H$ `$p$x$$$ $ "$$ .$ %% %(%0% &8% $>P%("x% % %("% % D% &>@&*"h& & &>&*"& &' &' ' &('@' H'X'`' h'p' x'$'l'' 'B$ ' ' F'0( 8(H(P( X(`( h("( ("( ( ,) , ) ,@)"`)"x)") )(") )("* (8*&P*p* >x**8**++ + (+0+8+@+H+P+X+`+h+p+x++++++++++ + , "=, @,69P,, , ., , &C, *@- DK8- --  &C- *@- DK- -@.  H:`.@9.. . 07.B9(/p/ x/ />9// / /H90H0 P0 X0D9x00 0 0&!0k1111 1 1 &1 112$1282  @2  H2X2 &B`2 "?2 <I2 ,2  $3@983x3 3 3B933 3  3H94P4 X4 <`44 4 44 4  44 44 5 55 5 $ 5l05P5 X5B$ `5 5 V55 556 66 6"86 X6"x6 6 ,6 ,6 ,6"7"(7"@7 X7("x7 (7&77 >7 88@8`8h8x88 8888888888888899 9(90989@9H9P9 p9 9 "<9 9689: : &C:  "@@: 66h: ": :  &C:  "@; 66(; "`; ;  0(;:8;< < <D88<< < 07<>8<= = =:8 =`= h= p=@8== = =&!= k>>>> > > &> >*R?0?8b8?p?  x? ?  ?? &A? ">? 62@ @@  X@:8p@@ @ @>8@A  A  (AD88AA A :AA A AA A  AB B(B 0B 8B@B HB $PBl`BB BB B B LB&"C&"(C&"PC&"xC&"C&"C&"C&"D&"@DhDpD xD$DlDD DB$ D D FD0E 8EHEPE XE`E  hE"E E"E E ,F , F ,@F"`F"xF"F F("F (F&G(G >0GpG8GGGGG GGGGHHHH H(H0HHHPHXH`HhHpHxH H H "=H H69H0I 8I .@I DpI I I XI HJ0EhJ&"J 0J6FJ(K0K  8K $@K hKxK K K XK L0E(L&"XL 0L6FLLL  L $M (M8M HM PM `M@9pMM M M<9MN  N (N!8N^XNNNN N N O O  (O 0O 8O XO hO xOOOOOO O<OO&LOP P(P 0P<@PXP&L`PPP  P PP P PQ Q Q Q8QPQ hQpQQQQQ Q $QlQQ RB$ R (R F0RxR RRRRR R"R R"S 0S ,HS ,hS ,S"S"S"S S("T (8T&PTpT FxTT8TUUU(U 0U8U@UHUPUXU`UhUpUxUUUUUUU U U "=V (V698VpV xV PV V (V TW hW0EW&"W 8W6FXPXXX  `X $hX XX X X (X TX PY0EpY&"Y 8Y6FZ8Z@Z  HZ $PZ xZZ Z Z ZH9Z[ [ [D90[x[ [ [![^[H\P\X\ `\ h\ \ \ \ \ \ \\]] ](] 0]@]P](X]x]]] ]]](]]] ]  ]^ ^(^ 0^ 8^@^ X^  h^x^ ^^ ^ ^^ ^ $^l^^ _B _  _ X(__ ___  "__<+_0`8`@`<+```` `` `$`l`` aB$ a (a F0axa aaaaa a"a a"b 0b ,Hb ,hb ,b"b"b"b  b("c (8c&Pcpc >xcc8ccdd d (d0d8d@dHdPd ,Xdddddddddd&Ad e e &<0e Xe68hee e e e e "f 0f Pf $pf f f f0Ef&" g &Hg6Fpggg  g $g gg h h 0h0EPh&"h 0h6Fhii i $0i Xihi xi i i iii@8ijj j j<88jxj j j&!j]j@kHkPk Xk `k &hk k k k k klll(l0l 8l Pl`lpl(xllll lll(llm m m0m 8m Xmxm m m mmm mmn(n0n8n @n $HnlXnxn nB$ n n *n :n 8oPo Xohopoxo  o""o o""o p ,(p ,Hp ,hp"p"p"p  p("p (q&0qPq DXqq8qqqqrrr r(r0rHr `r 89pr r rr (r r ss  s(sHs `shs 4s sss s"/st 0t8t @tPt Xt`t ht $ptltt tB t t *t 8u 88upu xuuu  *uu uuv vv v$=0vXvhvpvxv$=vvvv vv Lv$3Hw pww ww w ww ww w $wlwx xB<" x Hx Px Xx@+hxxxx8x x8x x8y y@+0ypyxyy6+yyyyyz 82znRPzz zz z z{{ { ${l({H{ P{B, X{ x{ { {{{{{ {2{ |, |P|h|p|| ||!|| |$"|} }$"}@} H}X}`}h}p}x} }$}l}} } (~ ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp*̍œKȂǕɊւ鏈NX y@z Dim cSan As New clsSani  " 'zk $' $'    %R'k0  $'k  $'k-vbUpperCase 1 啶ɕϊ܂B-vbLowerCase 2 ɕϊ܂BAvbProperCase 3 ̊eP̐擪̕啶ɕϊ܂BSvbWide 4 ̔p (1 oCg) Sp (2 oCg) ɕϊ܂BSvbNarrow 8 ̑Sp (2 oCg) 𔼊p (1 oCg) ɕϊ܂B<vbKatakana 16 ̂Ђ炪ȂJ^Jiɕϊ܂B<vbHiragana 32 ̃J^JiЂ炪Ȃɕϊ܂B  KT   %'   %  $R'kX   % L $R'k >uijv̑Spp̈ႢȂu邽vbTextCompareReplace (L) & % (L)L &$R'kX () & % () &$R'k KT <vbNarrowł́uAvu,vɁu`vu~vɒûŒ   %' KT   %'   %' KT ƃAt@xbĝݔp $' $' KT "ʕpuƂ1AƂ2v   %' $' $' KT &o^ԍpuK1234AK1235v   %'   %' $' $' hKT ȂSn 'z" 0!2 0!2 , 0!4A@(ki"  'zhk` P1$R' Q2$R'% R3$R'  S4$R' T5$R'' U6$R'  V7$R' W8$R' * X9$R'  O0$R' 'z" 0!2 0!2 , 0!4A@( ki"  'zk `A$R'- aB$R'  bC$R' cD$R'p/ dE$R' P eF$R' fG$R'1 gH$R'  hI$R' iJ$R'(3 jK$R' , kL$R' lM$R'5 mN$R' L nO$R' oP$R'7 pQ$R' P qR$R' rS$R'x: sT$R'  tU$R' uV$R' ; vW$R'  wX$R' xY$R'< yZ$R'  a$R' b$R'< c$R' d$R' e$R'0> f$R'  g$R' h$R'H@ i$R'  j$R' k$R'A l$R'  m$R' n$R'C o$R'  p$R' q$R'E r$R'  s$R'l t$R'pG u$R' v$R' w$R' I x$R' ( y$R' z$R'K 'z" 0!2 0!2 , 0!4A@(ki"ÕXy[X폜 $'s폜$ A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA &$R'ṒuAv͍폜 $A   $' k 'z " 0!2 0!2 , 0!4A@(k i " ṕuvSpuAv A$R'Xṕu,vSpuAv ,A$R' 'z " 0!2 0!2 , 0!4A@( k i " (Word̃tH[tB[hL̋L폜  'zx kp  $ &$R' 'z8 "0 0!2 0!2 , 0!4A@(k i " (Word̃tH[tB[hL̋L폜  'z k  $ &$R'b 'zP "H 0!2 0!2 , 0!4A@(k i  " *{擪݂̂̕𒊏o' Xdz k O]003OZA09'N  N % % N@f N'z0 k( OZABA5'N  N % % N$ N'zk] V  h   V $$   V $ 'Xjy`kXPzH"@ 0!2 0!2 , 0!4A@( ki P"({疖݂̐̂𒊏o '  zkO]@003OZA09'N  N % % N  N % % 'zkOZABA5'N  N % % N  N % % 'zk]X V    V $$u  V$ 'pvy kz" 0!2 0!2 , 0!4A@( ki  p ";ʕo^̔ԍȂǁu,vŋ؂ꂽ\[gz  'z0k(]]0]H]` ,  %~+N \ N z N \ 2 -1@|@string1 string2 菬0 @0@|@string1 string2 ͓2 @1@|@string1 string2 傫3 Null |@string1 ܂ string2 Null P z$N \$N  \$N' z$N \+N  z+Nk` z ( \h] $N' 'z \ N \$N  z 'z \$N z+N \$N'k \ . z@Nkx' \ N  \$N'd0 , \$N' k \ 'z" 0!2 0!2 , 0!4A@( ki   "/myDelimiterł‚Ȃꂽ񂩂𔻒f]p   &   $~+؍d + k  '@z" 0!2 0!2 , 0!4A@( kpih  "@  'z k=myDelimiter1/myDelimiter2ł‚Ȃꂽ񂩂𔻒f myDelimiter2myDelimiter1ɒu    & %R']   &   $~+d0 +k  'z" 0!2 0!2 , 0!4A@(ki"6uvbCrLfvuvbCrvuvbLfvƂsɒuÕXy[X폜 $'su vbCrLf ,$R' vbCr ,$R' vbLf ,$R' 'fz" 0!2 0!2 , 0!4A@(kHi@` " 6suvbCrLfvuvbCrvuvbLfvƂɒuÕXy[X폜 $'su  ,vbCrLf$R'  vbCrLf$R'  vbCrLf$R' 'z("  0!2 0!2 , 0!4A@(ki  "eLXgo͗p  'dzkx $'   &$R'k0(ȉSanitizeTextƈقȂĂ̂Œ  $'k  KT   %'   %  $R'kX   L $R'k >uijv̑Spp̈ႢȂu邽vbTextCompareReplace (L) & % (L)L &$R'k` () & % () &$R'k KT   %' KT   %' hKT ȂSn 'dz" 0!2 0!2 , 0!4A@(kHi@   "?uAvu`vł‚ȂꂽƋԍׂĂ΂炵āu,vł‚Ȃ' zk]p ] ṕuvSpuAv A$R'ṕu,vSpuAv ,A$R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA & %R'͂C A & %R' $A   $'k8tH[ɓ͂ꂽuAvł‚ȂꂽƋԍ΂炷 A & A &$~+d +k] ] ]0 ]H ]` ]x ] ] ] ] ] \ ''''''' \$` &'  u`vłɕ \$` &$~+ u`v̎gُłB , \$A@(zpkh 'Ƌ̔ԍimyBody)ƂĈ u`v̑O$ & %'$  %   %'$  $   %  %'$ %'$ & %'$  %   %'$  $   %  %'$ %'      $@Ƌԍ̕\悤łB , \$A@(zk $  $ &ƋԍɁuvĂ悤łB , \$A@(zk  "Ƌԍ̐擪vĂ܂B , \$A@(z(k   ,Ƌԍɂ͂Ȃ炸uvtĂB , \$A@(zk  %  %(Ƌԍ̐l̑召mFĂB , \$A@(z8k0   %  % 2 "Ƌԍ50ȏw肵Ă܂B ,  ,  ,s܂H  Ƌԍ̐$( zhk`kXkP' z  %  %   z'd ,  z'k  \+d  \$ & %' \$ $  $' \$  \$   $ $' \$ %'   $AƋԍ̕\悤łB , \$A@(z kx $ &ƋԍɁuvĂ悤łB , \$A@(z k ,Ƌԍɂ͂Ȃ炸uvtĂB , \$A@(z k \$ $ \+kx p ] \  x \$'xd( x, \$'xk x'z " 0!2 0!2 , 0!4A@(k i   "x PuAvu`vł‚Ȃꂽ\o^ԍ/ύX”ԍׂĂ΂炵āu,vł‚Ȃ' z k ] ]ṕuvSpuAv A$R'ṕu,vSpuAv ,A$R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA & %R' $A   $'k 8tH[ɓ͂ꂽuAvł‚Ȃꂽo^ԍ΂炷 A & A &$~+dP +kp]X]p]]]]]]]]0]H]`]x \ '''''''' \$` &'  u`vłɕ \$` &$~+ u`v̎gُłB , \$A@(zk$  %'$ $  $'$  $   $ ' - %R'$$ '$  %'$ $  $'$  $   $ ' - %R'$$ '    ԍ̕\悤łB , \$A@(zk  (ԍɂ͂Ȃ炸uvtĂB , \$A@(zxkp $  $ "ԍɁuvĂ悤łB , \$A@(zk  ԍ̐擪vĂ܂B , \$A@(zk  %  %$ԍ̐l̑召mFĂB , \$A@(z(k    %  % 2  ԍ50ȏw肵Ă܂B ,  ,  ,s܂H ԍ̐$( zXkPkHk@' z  %  %   z $ %'d ,  z $ %'k "00-00000000-000-00"  \+dH \$  %' \$ $  $'? \$  \$   $ ' \$$ '  ԍ̕\悤łB , \$A@(zH?k@? $ "ԍɁuvĂ悤łB , \$A@(z>k> (ԍɂ͂Ȃ炸uvtĂB , \$A@(zx>kp> \$ $ \+kH>@>] \  x \$'xd= x, \$'xk== x'z="= 0!2 0!2 , 0!4A@(kx=ip="P=Eu00-00000000-000-00v`邽߁Aׂāu0vɒu 10 & %R' 20 & %R' 30 & %R' 40 & %R' 50 & %R' 60 & %R' 70 & %R' 80 & %R' 90 & %R' 'z;"; 0!2 0!2 , 0!4A@(kH;i@;  (";?uAvu`vł‚ȂꂽԍׂĂ΂炵āu,vł‚Ȃ' z:k:]]ṕuvSpuAv A$R'ṕu,vSpuAv ,A$R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA & %R' $A   $'k88tH[ɓ͂ꂽuAvł‚Ȃꂽԍ΂炷 A & A &$~+dH8X +k 8]`]x]]]]]]] ]8 \ '''''' \$` &'  u`vłɕ \$` &$~+ u`v̎gُłB , \$A@(z6k6 (ԍɂ͐̂̂̂Œ =́u0001vƐ擪Ɂu0vtߐlƂĈ̂͒ u`v̑O ԍ̕񂾂i[ Ru05823F0047vƂ悤ɓrɉpĂꍇɑΉ邽߂납猟 V$ $$ V $$$$ V $ '*ԍ̕菜݂̂i[$$ V  V$ $'y4k44 ȊO‚ȂƂ $'kp4 ԍ̕񂾂i[ Ru05823F0047vƂ悤ɓrɉpĂꍇɑΉ邽߂납猟 V$ $$ V $$$$ V $ '*ԍ̕菜݂̂i[$$ V  V$ $'y3k33 ȊO‚ȂƂ $'k2 ȉ  $ԍ̕񂪈vĂ܂B , \$A@(zH2k@2 $ $ ԍ̐Ă܂B , \$A@(z1k1  $ $ 2  "ԍ50ȏw肵Ă܂B , \$ ,s܂H  ԍ̐$( z 1k1k1k1' z  0'0' z $ $ z   'dh0 , 'kH0d@0   z $'d0 ,  z $'k/k/d/   z $'d/ ,  z $'kp/kh/`/   \+d@/ ȉقƈقȂ̂Œ \$  \+k..]PȉقƈقȂ̂Œ \  x \$'x. x$   x x $ 'xkP. x'z@."8. 0!2 0!2 , 0!4A@(k.i-  h"-?uAvu`vł‚ȂꂽZKԍׂĂ΂炵āu,vł‚Ȃ' zh-k`-]]HṕuvSpuAv A$R'ṕu,vSpuAv ,A$R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA & %R' $A   $'k+@tH[ɓ͂ꂽuAvł‚ȂꂽZpKԍ΂炷 A & A &$~+d* +k*]]]]]]]0]H]` \ ''''' \$` &'  u`vłɕ \$` &$~+ u`v̎gُłB , \$A@(z)k) Íu0001vƐ擪Ɂu0vt”\邽ߐlƂĈ̂͒ u`v̑O "ZpKԍ̕񂾂i[ Nu001TYAA3000530`001TYAA3000534vƂ悤ȏꍇɑΉ邽߂납猟 V$ $$ V $$$$ V $ '2ZpKԍ̕菜݂̂i[$$ V  V$ $'y'k'' ȊO‚ȂƂ $'kH' u`v̌㔼 "ZpKԍ̕񂾂i[ Nu001TYAA3000530`001TYAA3000534vƂ悤ȏꍇɑΉ邽߂납猟 V$ $$ V $$$$ V $ '2ZpKԍ̕菜݂̂i[$$ V  V$ $'y%k%% ȊO‚ȂƂ $'k`%   ,ZpKԍ̕񂪈vĂ܂B , \$A@(z$k$ $ $(ZpKԍ̐Ă܂B , \$A@(z$kx$  $ $ 2  *ZpKԍ50ȏw肵Ă܂B , \$ ,s܂H ZpKԍ̐$( z#k#k#k# ΂炵č' z $ $u0v̏ꍇ͏ȗ z   'd" , 'k"d"   z'd" ,  z'k"kx"dp"   z'dH" ,  z'k "k" z  \+d! ȂɂȂk!!]x \  x \$'xd! x, \$'xkX!P! x'z@!"8! 0!2 0!2 , 0!4A@(k!i " RtH[ɓ͂ꂽԍi^juAvu`v‚ȂĂȂ𒲂ׂ' z` kX ԍ͌1‚̂͂ A &1ԍ1ˆȏ̂̂͂Ă悤łBA@(zk ` &1ԍ1ˆȏ̂̂͂Ă悤łBA@(zXkP 'z@"8 0!2 0!2 , 0!4A@(ki  "?uAvu`vł‚ȂꂽʐMׂĂ΂炵āu,vł‚Ȃ' zhk`]]ṕuvSpuAv A$R'ṕu,vSpuAv ,A$R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA & %R' $A   $'k8tH[ɓ͂ꂽuAvł‚ȂꂽʐM΂炷 A & A &$~+d@ +k]H]`]x]]]&Ȃ̂邽stringŏ]]] \ ''''' \$` & %'  u`vłɕ \$` & %~+ u`v̎gُłB , \$A@(zXkP uׂ1v uׂ1Aׂ3v uׂ1`ׂ3v uׂviȂj uׂAׂ3v uׂ`ׂ3v u101A103vi񕔂Ȃj u101`103v ʐM̕񂾂i[ V$ $$ V $$$$ V $ ' 菜݂̂i[$$ V  V$ $'yPkH@ ȊO‚ȂƂ $'k ʐM̕񂾂i[ V$ $$ V $$$$ V $ '*ԍ̕菜݂̂i[$$ V  V$ $'yk V ȊO‚ȂƂ $'k     'd@$ʐM̕񂪈vĂ܂B , \$A@(zkk  %  % ʐM̐Ă܂B , \$A@(zkx   %  % 2  "ʐM50ȏw肵Ă܂B , \$ ,s܂H  ʐM̐$( zkkk' z  %  %u0v̏ꍇ͏ȗ z myTail1󗓂ɂ0  'd , 'kd{0ꍇ   z'd ,  z'k`kXdP   z'd( ,  z'kk z   \+d ȉقƈقȂ̂Œ \$  \+k \] ȉقƈقȂ̂Œ \  x \$'x x$   x x $ 'xk x'z" 0!2 0!2 , 0!4A@(kix   8"X#ȉkaisetuL̋@\Ȃ̂Œ4uZpKؖԍvɓ͂ꂽ́iׂāj2H݌vFؔԍZpKؖԍ𔻒肷' zk]ṕuvSpuAv A $R'ṕu,vSpuAv ,A $R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R'uAAv́uAvɒu AAA & %R' $A   $'k>tH[ɓ͂ꂽuAvł‚ȂꂽZKEFؔԍ΂炷 A & A &$~+d( +k ]0]H]`]x \  \$$' ZKF؂ł܂B , \$A@('zH Syonine !Fؔԍ̂ƂSepł‚ȂĂ䂭  \$' 'd   \$'   'k Gitekie -ZKԍ̂Ƃ͂΂炵ĂSepł‚ȂĂ䂭  \$$' 'd   \$$'   'k k \ ' 'z " 0!2 0!2 , 0!4A@(kX iP "0 #ȉkaisetuL̋@\Ȃ̂Œ2uZpKؖԍvɓ͂ꂽ́i•ʁj2H݌vFؔԍZpKؖԍ𔻒肷' zp kh #H݌vFؔԍ͌1‚̂͂ ` &Giteki'z k O]003OZA09'N  N % % NSyonin'z k OZABA5'N  N % % NSyonin'z8 k0 ]( V  E擪u01vu010vŎn܂H݌vFؔԍ邽߁A납猟   V $$  V$  Giteki'd`Syonin'kHy@k80z("  0!2 0!2 , 0!4A@(ki @"'  6ʕƓK\ݔ̔ԍ̌v܂BA@(zPkH]@   %~+]x   %~+]   %~+  6ʕƓK\ݔ̔ԍ̌v܂BA@(zk  ,K\ݔ̔ԍňُ킪܂BA@(z(k ] \  \$Giteki  \$,$ \$,$ 4ʕƓK\ݔ̔ԍŐv܂B , \$ , \$A@(z8k0 \$Syoninek \'z" 0!2 0!2 , 0!4A@(ki "' z`kX]]VBScript.RegExp$L. ("Global=FalséAǒʂ̂ݏ ( ( 啶EʂȂ [A-Za-z0-9] (_  % . !x`kX  %R'8   & %R'k  - & %R'k 'd'kz"x 0!2 0!2 , 0!4A@(k@i80Ō܂ŐlƂ V   'y}k}x}Attribute VB_Name = "clsSani" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ ̍œK ȂDŽɊւ鏈NX%y@zDim c As New |Option Qlicit Comp] Binary  Pub Fu nc @itizeText( _ ByVa l mySngAC,oConveP DeleteC.Boolean 0CRLFA KigoHenkanC True))c#ingBG@Frror GoTo ErrMes;IfG:" TxhenA H"ȁExitFRC End If O= ?8194(E) 11(ro P= B9 V BA.ReeceF , " "`, , vbACd1}A (7 G 'vb4UpvC21 j!ɕϊ܂B.`Lowere2fx(Pro 3e̊eP̐`擪{WXideHb4̔p@ (1 o`g@) S2SNa\wd 8( r 3 Kmab 16H Ђ炪 J ^`iT.HiraganC3e. Sct ߂69pa+ LcFJa`B '`iIn(1f,fhhMh p<> 0le (Rs "E:t I55 O  ) M Q ""L1u g 'uijv)(@̈Ⴂ$ u0;pvbiJ K(L)XzT 5 Pb %( i"& % 5E TcłAPu,`` ~"̂Œӫ:z:% IrP ?_ngB~ Sk'ƃAt@xbg5/? 4 Nu>mABC3CallSig'ʕpu 1A2v OJOIo o 9c= o c LicenceNok 'o^s K1234A5  #rn&ooacNoth/LȂE"!?sv#SL'o 3.:Y.0berL MsgB,oxE&0CrLf &RDescri2DwOb° p H7"¶G+iV?\"Pl"1"< myString = Replace(, "Q"2") RX3$XSX4$XT,5$,U,6$,V7$W8$X9$O0NumHenkanͅ Exit Fu@nction ErrMes:QIf .!ber <> 0 TheMsgBox & vb@CrLf &BD@escripGEnd If @@GPublic!# ABC-(ByValGAs Ú) Onor GoTo1)1""L1HI1Z`dAd a BU$ b C$ c DU$ d E$ e F՟gfGZgHhIkiJjKkLlMmNnOZoPpQkqRrSsTtUuVvWZwXxYkyZabuc?0]defug]hijuk]lmnuo]pqrus]tuvuw]xyzӤong/ ?q媟 PrivateDeleteCR|LF 'ÕXy[X0폜cءTrim&p's^"A"3_ohOޡsLfOOC 4uAv͒vɒuOqq-@, vbTextCompareW `Right1)0ը LefLen! - 19 w+_~774 umber & @vbCrLfErr.Description  End If $FunclPrivate " KigoHenkan(ByVal myString As )On ror GoTo1 Mesv'ṕuvSpЁuA \= Replace(, ""aA"),L,1L,&'t =r Exit rrl:Ift.N<> 0 The|MsgBox FDelete8194BWord̃t@H[BhL̋L0폜>m""=&UAEVEHAChrW(A=)#@s, ,TextCompare u u.11{u(C5'?;?;a ::Š,2 :11:^11?:uuߩBPublicGet!cFrom#( >_$ի_G{̣݂̂𒊏o8p*""?%{- =c'O`Dim siIsa003OZA09gVBA.Le ftCn(s))`s # aG<BA5e_< ?8 <<; ;y ;;;; ;$O3! > P+y&? ++  =$/ / Z!/ 0KQ/ mQO?O?dO?O?=B,BO? Right>A>''ŌŐlƂ MNM<^1 Uqc!_ SGtС, Gؿ ̃DSortBWu,G O2Ӛ1BooleanpBFalseIIW܎0o^̔԰ȂuQŋ@ꂽ\gJD ==C2wapWwiA*tj_q( s =rASpli "1ABinalryk;i` bzUBound S aj i ep -`|'A6-1@|@s1 2 菬@ @b @0@|@strin@g1 P2 ͓ ' @1 d傫hNull ܂8$ " iIf StrComp(s(j), s(ivbBinaryare) = -1 Th en >Jswap8'j)j, End If Next Fji Dim s2 Asc jmyDelete>TruVe]=u0Jj 0jFor i zo UBound(sa3z8 <>Aj + 1\@=N2RF@CReADPreserve8] Dl""$q:0 T:9x""ЀD1ElseK< A& "," &'iT(KypSortADExit Functio@ ErrMes:C,.Numberh7JMsgBox  & vbCr Lf%ADescripCW'@GPublic" GetCtFromR( _ByVal m6yV, `Wim\it@&[A)AI@nteger!`On UGo@7 %c'"`łȂꂽf#GmyArraB ݁s9mPBD9y(0$}9yng9u 90`(a/:aa1P aj !sUtoCRLFa?7F5S_;5'2ulvsLfvƂ4`s+`'ÕXy[X`폜S-TrimF-@W'^0X0" "q/w[?42!_Lf 3%%$L$$$$ ^s 1$toc $$ ɚ} oesf#%%P$$$2[$ Yx!$, !$?1=:ZLf$$+QI$$o?oo1qIuISa@nitizeb2w_$\$OP'ConvQKe(_fodPSp@qB@ooleano?P+IeLLgop@E.>;A?A ing = Delete8194@(myStr) If oAtSpaceTrue ThenHf:ReplN, " ", , vbTextCompareEnd IfM'ȉSanitize,ƈقĂ̂ŒӇ.qCRLF%+to xFSct Case Conv 0Å%'"உf4 E,+?+> "L:+'uijv̑Sp p̈@ȂuȽ KCj(L)?j?jՖ(E>{K K jNarrowK?HkHk Ka@takana nv u. Noth '"ElsAiC 2EExit F@unctioĮ ErrMes:#@R.NumberMMsgBox &CrLf &Descrip' e~ @Public GetLicenceNo( _`ByVal`& XAs 6@&,eO CountCheckBooplean " ) Onor GoToA H|Av}"``}ł`1ꂽƋԍ`} נātu,FI"&",my'= |"" 5(Dim #Arrayn(JA2'Cua`  ė@Zɤ "A"ZO&q/Z= /o ,'t s폜U 9eNp )vb)g s * yLfg 1 j" t ͅ l= 1SOAo`͂C0A# 6Right+<1)+\7!Le"f|Len) 8- 1/GN7'tH[BqCdDDQDV |)MOZ XA= Spli| O?f ReIF0myG0/T1iWIntegerWjQ0Long'karptPosO S Head1Q7b92TBo|dy__Txail__emp F@hi0)po UB`ld&*b  ]c _dyqh 7QT$ StT= +C"i)AA`:m:1"q&/rAyx wɕwD)o/-_ID 2)6n1B%"= gُłB"VhU3ih? E'q̑imy) Ĉ%̑O𔼕5^=82(0AVO ] myHead1 = VBA.StrConv(XLeft$(myArray2(0), myPosvbNarr`ow) m yBodyTrDimMid + 1, Len1 c) -e1)!_Tail_Right 1 0 iInu(?o1k"", vbTextCompareA2'"%#/ +KHIf@_"" OrAyi0ThenKMsgBox "@Ƌԍ̕\悤ł B" &hCrLfo(iLiExit FunctioEndx IfN>BHA@, 1) <> ;AJ2J[54Ɂuv@55?:532 d,̐擪0v0!܂00*OGA/DPCHEbHɂ͠GȂ@u /t"/̂ .AVale) >3Cg2)0al̑召mF111Coun@tCheck@TxrueT7 -Bk 504A c("f50ȏwP"_OA2: "s ܂H"YesNo, ̐")`$@o80qJB0qmyTem&p@ ""$Fo8r jNTo 2oUpSaE mt&& "Ð=Else_ p,`__ N`~e7 2~Mpi "?l = ◪R:b R"8= _]AA& +A8Q2" R/ru V _H  P,Bsh ssPO O a'p5%19yc=SDim# @ As5in6gQPiho tUB`nd9imy+*  B!K* sGetLicencxeNo < ErrMes:  .Numberq}x HQDescri>pE `iPuPblic @ YHobi ( vB^y' F,5O1al PBoolean0B) On @ ynGopm'@uAvP`@ł‚Ȃ`ꂽ\o^/@XҤP΀u,#} wr$g$ ?2,"&2('pu SpuAv myLicenceNo = Re@place(T, ""A")'pṔu,3,RTs폜! & vbCrLf +<6:U-RvbNu[VBA.Ap, AvbTextCompareIf Right1)"m0ThenC OLe"f Len ) - 1DEnd If 'tH[͂;ł‚o^ԍ@A@-InSt`r(1, Ȑ^,@: <> 0 2Array(9Spli1>L@ElseGDReDim 0;JR)Ci As LongAjADoubl$myStartPosInteHgergmy7Head1@'i myA2SBodyA w 2pTail4A4TempP For i@0@@o UBoxund`Tb35#= "")c8"C"2 +b#fA= (b#Oi)b`ma_ahId'r`ŠtɕL'$my 2?iMrKK32)v1v aMsg Box "$̎gُłB"(i>E Exit Functio(etgEk=  .2$(0!.".Binary筩'eOAAConv(U$U*cvbNarrow my5)MidB+ RZ0)Z Zu _*{f%-"%w+e`KZ2(1lqadq9 `cU1 1pmyu@/5]1I OrjGM#""ks3 7y̕\8悤?8&r?8 ?8 ?8 `C& K"d % A ɂ0 p utĂNDR? ?  ߤ(1 ?,!O"CQ2 ! u " LfQ9 t 5 Q ̐擢[v$0$܂ ?$P1MVal@V/8) >G;g!)?h l̑召mFr _$E CtCheck>True ". -l 5v("@50ȏwRx_HY"#H2 A& "PD0멁HyY0esNo VK"quo&">2)myTempStr = "" AFor jVBA.Val(m@yBody1) To X2, ~!If m T8henN+ (myHead1 &fmat(j, NumToZero))#" OElse!i`& ","&=nd If>Next'"00-0 dmyArray(i)Ć#rmyPosIn(1,#, "", vbBinaryCompare)K&@= Conv(Left$@] )ANarrow@"MidP + &Len1) -*/- 1Tail1Righ" K3Bc Or@E'""ԤMsgBox "ԍ\łBAvbCrLfG xit F@unctioLE/P,9.,@D <>oa,Ɂuv,-eT4Ar_*Ȃ炸ut,E,fke][ z=Dim#J AsfinVg!iW0UBound^\TbTmy рgTGetYobiLicenceNoB, ErrMes:  .berVwJk&iDescripe` fGiPrivaLtek _By ؃323)5` On `Go@'u/v`邽߁A`ׂĠ`ZɒupCb)= AReplac^eB51"0, PTǫ=_2__ngP3/_r 4///5//{/)6///)7///)8///)9/+V%;C'_;U;QD?;[?;?;?;>;ublic';FProductNo(];:,5BOBal C`Ut CheckQBo oleanTr|ueo>o>K`>Avu`p;ł‚Ȃiꂽ<=p!>,) p@\L]f\j 2('pu@ Sp I@=Q(A"l&q/WW= /o ,'t s폜SqSVp sd CW*Pg  uLfyX /b\ t ͅ j+[b" 3Ak/k/M1 ͸A{Æa1'tH[ɓ|P<>!=V Ԉ 1  :0plit{ c? ˝Re?0t-q0F  1iRR Integer Dim j As LongkHmyStartPos< Head16Stri my424pTail55e mpfRForm at  i = 0 To UBound(myArray)}U1"" 2 ^= [ Y V =u(1, W(i), "`", vbTextCompadrecIf!zhenh:'u`vɕ 2()@>SplitEL !G"Z2) #1 T# MsgB ox7C&̎gُ)B" &@=CrLfD .Exit Fu nctio >End If 'ԍ͐@̂Œ Ӎ @u0001@S擪tߐlƂĈc̑O'̕'i[ @5823F0H047#!ɓrpĠꍇɑΉ납`猟 ik#BiLeneB2(0)) - 1a1@Not IsNumeric(LMio, k, 1 E mauLeft$ deG?E+0菜a#BÂL݂P-myTrimk + @zk)Wo$% WN.'ȊOA9ȠQ8Ƃ3)""s0emekW0WWWjNAMWnW1@Wd= _jW DWWx{m+(>+) ++ +++%+y++;!+1+Ra+ȼOP3l32EmfU0v1aF܂mv; Q3mO Val R!J) >=2) 1 Pv OyB_ Oy/OyQ CtChec!gTrue_  - >5j?("V50ȏ@w_߉y A "s`xHYesNo#"vbNof?""_2?$`=P qjpo}'myV& "0(AB`=oz/`_i"p$A "T` DcOX i y UElseqT,Ѵ b5o C&$0(jAг"qO Kou)o  5S&#;}1Evamat) 0ElsemyTempStr = & "," &"Head1For(j,&nd IfpENext )myArray(i) Sep)'ȉقƈقȂ̂Œ06& 0LjVR#DimAs ing @ ij0 To UBound(vmy-ŁP3If R`ight$", 1L1 ThenC xA= Le"f Len ) -C IhGetProductNoBbD xit F@unctio ErrMes: %@.Number <> < $MsgBox  & vbCr LfADescrip0&ePublic# -Giteki No( _#ByXVall m,-O@ CetCheckA Boolean@?True )A;On1or Got@.AEA'uAv@`vł@ꂽZKԍׂāu:, /4!""C@Xmy3= ""|EK4I(acXJ3J2( 'ṕuASp#Ƀ*Repla ce@M, ""A"^   , c's폜@,Fc PCQJD cLf %a Od+=@[?up,VBA.K@cAD6, !vbTCompareB \G"-bAÝ%qC'tH[ɓ8͂ulxpKOdyx In(1C/,`1Åplit&9qRe>07q0!SV!iOInteg|er3QRR^lartPosOssmy2auTail1/x_jLo%z yy pd AW ]3 _il2\We^sSt= 8%E1%`441(xrjSjhɕ< "`= ~S)--+;2z)/1k@4"7 ̎gُtxBѩCPS,i(.p .'M0001@nƐ怓Ɂu0t”(\ЦPߐlƂ0|pȆO'ZD̕񂾂i[ 01TYAA3P `530` 4)q 0ȏꍇɑΉp P猟0k*S2(0)SNot Is`eric(Mi3a,uzk1) 2m}A1ūkrbPq2BbH= TrimAѷO !k + p`k) {2)otU"D)  +ȊOPp0<ŀ`ƂpG~%g?ca F.O._O. J-O.vP7O.O.O. E.Ho)1O.O.I.1)<)sO.VaL. O. 'ZpK݂̂̕i[ myTail2 = Trim(Mid$(myArray2(1), Len ) - k + 1, k))SExit ForEnd If Next 'ȊO‚Ƃ ,If m yHeada"" Thenzsn M ' 81 <>>;MsgBox "תv܂B" & v`bCrLfW(iYunctio<Z-ValsA|1) >= 2)TNW0t//AkT/CountChecrkue, :6-9= 50T@<(Om50DwK=_/ As # "s@܂ H",YesNo,J")`#vbNo8?xG0Bxq'w@[̫#qempStr""k jjUo0^q!''tH[ɓ͂ꂽ@i^jQ_AvuT`_$gR %𒲂C "%h! " s y@C ͌10͂)In#(pmyS'P}AB~T`Compare) t"`‰̐4̂&悤ł O A ~`O 'O O O O B*|4`p'/4/4/4/4q/4.4CallSign42,56O:al @6Boolean-Tr66-Q'3'4 +ȂC4ʐM50@@5tu,6v 3Smyz ((_U* 2(  ṕu Sp RepplacePc .."`94d'oO,3'DPUJ Sign, "A" & vbCrLfp) myCall = Replace(P 4p-q133+vbK'uAv͂vɒupVBA.F, vbTextCompare&If Righ2t1)ÂThenLefLen") - 1End If C'tH[ɓ͂ꂽ9ł‚ȂʐM@?@,InStr(h1, ,I9 <> 0 1Array(8Spli 1A=QK?ElseCReDim@ C0:IQ(Bi As LXongjkInteger myStartPosHead1@Limy2'a邽str@ŏI TailmyTe mp`For i&6o UBoxundJ)*,= ""C.C}2 +,=N An(Pc=i)am`"-PV5SA `vŠbɕ'c 2W!EX+2)ae1leAa@MsgBoxu̎gُ`B myA Exit FunctioHBĄae #ׂ1vUxA3` vibj-@10 1A10iq]`''i[!nk%nc72(0) GNot IsNumeric(M&it, k,}`)& TE=e$we? kAF'菜L IL= Trim! /9 k +r `hk).o[ e`9NyXȊOq`pȂĂXƂPC]1RMgT:+j %%%@x2(1%% %1U %s%V%n=(ft %'Ԁ4%%f -p%yA2 %$rTϯ%%a% kk%@%b%#s%R%!%5@/ | +1Qju{ )Uq!1K!+5%qnVvpeĀG܂qi?Cr%OrD`Valc@K) >Ë72XB "T oo*oK! CtCheciTrue?'@ -B| 5DP3("50ȏw[_"z p"s܂HҤYesNo&"vbNo?f$"$2_E ?+`jhVõBA.Val(myTail1) To V 2)  'u0v̏ꍇ ͏ȗVIf j = 0 Then<"(,"")-'+󗓂ɂ0X\empxStr!^0m@yHead10EXlse'T-& "," & 0`nd If1>'{0ྂTa=aI4jJcK&EЎ+Cԍ:Next 7myArr`ay(i)fg&0 SepGNMs gBox & vbCrLf`KDescripc ~e Pub(lic GitekiOrSyoninByAll( _#By@ϣ+ue F8,RefResullt)AOn:Go ؀ DAkaisetuL̋@\@S S'uZpKؖԍ@ɓ͂ꂽ́iׂājD'H݌vFQ @bt s$<"6"7m%@$= βE+@3a#dVJ& 'p upSppuA1Replace* , ""@AP, ,@#BinaryCompare4,Q;, s폜wog -3. OOCr/uLf//ue!q7\ eu1 `""p Textc,Q#QaQ@=~ RR?Rv>tH[#:D ł> 0 Th en MsgBox Er& vbCrLf &TDescr iptiojEnd If !Func6Pu blic  GetGitekiOrSyonin( _wByVal mue As StringM)aOno@r GoTo M es'ȉkaisetuL̋@\̂Œo'uZpKؖԍvɓꂽ́i•jH݌vF$𔻒肷} = ""9 If} Ex|itz'K͌1 ‚~͂&6In(1,E, "`",@yTextCompare)ц?R2u3A X-D,@ODim szsI003OZA09KVBA.Lef$t(, Cn(s)) sLPR,Cc,""BA5"F8m"LkLIntPegerCF@k1 @LenH ) - 1'擪u0(1v0^Ŏ n܂H@a߁A [8c #JNot Is@eri`c(Mid'3lkx, 1`4+ARight$k> 4 :a_Q%ElseGCDC\o$/"N@i#Larr:(@@ CheckCallSignAndCyNinspyoNoN%gu,ECountS|etX ? y+ Resul&@Boolea Y˛$nFa&L`9myn `:m"ʕaԕ\ݔB̌@v@sB?A*!WmyArra] (vA=VSpliXu, Sep)x{nkTcOkiN%3+ UB,M Rr )Kԕi m ({ s Ҡ"/("(ňُ킪"(x/(] q"iQ?Nli05o O |ltp&1pi""cq7pFromg{0i)@,")Mqߐck(voߡ s>" ! P溤E:OO3A jSm sxi-Qu| i?Ye<#TruD/x/x /xџ1/xя qAbcv)oq O0oDeleteSpacliy Hihun !B`t]q7ץ  /'q#IQARE Ob0ject3QMatcher©1= CreateA("VBS.RegExp"dCRE.Glob= Bt+'S=2́Ao@̌ MЄiLinepg&Igno`reCas' 啶EqĕSȂ Pattern"[A-Za-z0-9]|Dos'= Execute@L#Q.K en Ex it DoEnd If 0AMsgBox & vbCrLf &BDescripC$@I__SRP_14|__SRP_15.4~imodOutputXML2__SRP_18pJ\pdL,  l Ct-K& lt0,ltCx/"$%lt 1t"&'lt 1t"()lt 1t"*+lt 1t",-lt 1t"./lt 1t"01lt 1t"23lt 1t"45lt 1t"67lt 1t"89lt 1t":;lt 1t"<=lt 1t">?lt 1t"@Alt 1t"BClt 1t"DElt 1t"FGlt 1t"HIlt 1t"JKlt 1t"LMlt 1t"NOlt 1t"PQlt 1t"RSlt 1t"TUlt 1t"VWlt 1t"XYlt 1t"Zt 1t"\]lt 1t"^_lt 1t"`alt 1t"bclt 1t"delt 1t"fglt 1t"hilt 1t"jklt 1t"lmlt 1t"nolt 1t"pqlt 1t"rslt 1t"tult 1t"vwlt 1t"xylt 1t"z{lt 1t"|}lt 1t"~lt 1t"lt 1t"lt 1t"lt 1t"lt 1t"lt 1t"lt 1tltCx/$l pp  llpl'' ',l pp  ll#h*#\` dd , l`*FL 2h\`)pd6L, / ,xt0 h`\pdL, 4 l Ct-KtMd@T T`1t5T,*#Plt 1t/P,*#Plt 1t/P,*#Plt 1t/P"lt 1t"lt 1t"lt 1t"lt 1t(tMd@T T:@]35T<JtMd@T T`1t5TltCx/$( ,,  l(,'l'' '0( ,,  l(#P*# $$ , l *FT 2P ),$6T0 / 4,xt0 P ,$T0 \ l Ct-Kc"lt 1t"lt 1tltCx/$l pp  llpl'' ',l pp  ll#h*#\` dd , l`*FL 2h\`)pd6L, /s ,rU  ]{Y1فIqэ&&AI& 9!iQɎ)YAqяgsW[7K! Q9iɐ})YAqёI1yaْ 9!iQɓ 9!iQɔ)YAqѕI1yaٖ 9!iQɗ 9!iQ'ɘa)Ay љq|Y)I9i|Aay iɜр!ɅYCQ aiINII ٢Iy 1Iyɦ) yIq٩Ai]A)](@4)) WW___W_T l Ct-KZ lt0,Cx/ pltx>p1tplt|>p1t "lt 1t pltp>p1t pltt>p1tqlll&tM\@L L`1t5L>:,NtM<@(L  (]@6L _"lt 1t>:,NtM<@(L  (]@6L " lt 1t>:, NtM<@(L  (]@6L #"  lt 1t>:, NtM<@(L  (]@6L " lt 1tHll&tM\@L L`1t5LHll&tM\@L L`1t5L&tM\@L L`1t5LHllUplt >p1tplt$>p1tHll&tM\@L L`1t5Lplt >p1tplt$>p1tHll5&tM\@L L`1t5L&tM\@L L`1t5Lplt >p1tplt$>p1tHllFHltCx/ $   ll'' '   l#p*#  , l*FL 2p)6L / ,\xt0 pL , l Ct-K lt0,ltCx/"lt 1t"lt 1t"lt 1t"lt 1t"lt 1t"lt 1t"lt 1t"lt 1t" !lt 1t""#lt 1tltCx/$l pp  llp"l'' ',l pp  ll#h*#\` dd , l`*FL 2h\`)pd6L, / ,,xt0 h`xt0 h`\pdL, p l Ct-Kw lt0,ltCx/9 d d`lt 1t/`5dltCx/$X \\  lX\l'' ',X \\  lX#`*#LP TT , lP*Fd 2`LP)\T6d, /$ ,xt0 `PL\Td, p l Ct-Kw lt0,ltCx/9 d d`lt 1t/`5dltCx/$X \\  lX\l'' ',X \\  lX#`*#LP TT , lP*Fd 2`LP)\T6d, /T ,xt0 `PL\Td, P l Ct-KVCx lt0,/Cp=pM`@P P"tM@@0 0lpF ]36P0lpCx/Cp=pM`@P P"tM@@0 0lpF ]36P0lpCx/ltJc N3(PltJktM`@0 0 6P0BltJklt 1xN d /$   ll'''0   l#*#  , l*FP 2)6P0/ 0xtp0 P0l l Ct-KCx lt0,/Cp=pM`@P P"tM@@0 0lpF ]36P07pM`@P 'P(@0"lt 1x6P0/Cp=pM`@P P"tM@@0 0lpF ]36P087pM`@P 'P(@0"lt 1x6P0/ltJc 3(PltJktM`@0 0 6P0klt 1xkltJltCx d R/$   lbl'''0   l#*#  , l*FP 2)6P0/ l0xtp0 P0 l Ct-K lt0,Cx/8:XNHHlt8 86 Y4h6H8nlhc0lhlknk,kllhknlh knlhCpkllhknlh; lpkllh; le, nd0{ lhC(plnlhc$qknlhl(=e klplknlhkllh; knlhC( nd$)klhCpnlhc  lp0 knlhCplp*#knlh*1p/ nd lpCx/$4   l4l'''84   l4#*#   , l*FH 2 )6H8/@&xp(th*%0  H8Dl CtlCpKltlpd1pM\@ltL L6 YHl5Llltll;llpz/$H DD  lHD:l'''$H DD  lH#@*#48 << , l8*FL 2@48)D<6L$/D8tl%lp20 @84D<L$l CtlCplClK lt05pz/"lplllt 1tltlp1pMX@ltH H6 YDh5Hhltlh;lhpz/$D @@  lD@l''' D @@  lD#<*#04 88 , l4*FH 2<04)@86H /<"ptlh@*0 <40@8H < l Ct-KtMd@T T`1t5T"lt 1t"lt 1t"lt 1tltCx/$L PP  lLP1l'' ',L PP  lL#H*#<@ DD , l@*FT 2H<@)PD6T, / <,xt0 H@<PDT, < l Ct-KtMd@T T`1t5T"lt 1t"lt 1t"lt 1tltCx/$L PP  lLP1l'' ',L PP  lL#H*#<@ DD , l@*FT 2H<@)PD6T, / <,xt0 H@<PDT, d l Ct-K lt0,ltCx/pltx>p1t n"lt 1t plt@>p1tqlll6&tM\@L L`1t5L>:,NtM<@(L  (]@6L ,"lt 1tltm" lt 1t>:, NtM<@(L  (]@6L "  lt 1t>:, NtM<@(L  (]@6L 1" lt 1tllm&tM\@L L`1t5Lll&tM\@L L`1t5LllltCx/$   lYl'' '   l#p*#  , l*FL 2p)6L /d,\xt0 pL '  l Ct-Kv Cx lt0,/"lt 1t"lt 1t,*#hlt 1t/h,*#hlt 1t/h,*#hlt 1t/h"lt 1t"lt 1t"lt 1t"lt 1t"lt 1t(tMX@H H:8]35H<JtMX@H H`1t5HltH8:XNHHlt( (6 Y$p6H(qpltlp;"lpc CCC CCCCk"lpp k=:XNHHk"lp( (6 Y$l6H(llx9'''(*#hk"lp*FH /h6H(/C:N((ll.@M8@(H -Up6H(@kll 1h>hFH( (`1/h6H(KllJkiHkll F( `1 6H(-ll.@MX@H -H`15HC:N((ll.@M8@(H -Up6H(@kll 1h>hFH( (`1/h6H(KllJkiHkll F( `16H(-ll.@MX@H -H`15H:l0l0l 0l0l0l09'''(*#hk"lp*FH /h6H(/7l #h=l #=2he9'''(*#hk"lp*FH /h6H(/ ll=9'''(*#hk"lp*FH /h6H(/l=l=9'''(*#hk"lp*FH /h6H(/l tl oo9'''(*#hk"lp*FH /h6H(/ !l tl o2k'':XN((*#hl *#*#l*#*#*FH^2 h6H(/Cl l d l0jll#h*#*12h1l*#hl*#l#*#*12h f; lk"lp; B:N((k"lp.@M8@(H -Up6H(?kk"lp 1h>hFH( (`1/h6H(Ik"lpJkiHkk"lp F( `1 6H(,k"lp.@MX@H -H`15Hl0l 0l0 9'''(*#hk"lp*FH /h6H(/l #h=/hq 9'''(*#hk"lp*FH /h6H(/ l= 9'''(*#hk"lp*FH /h6H(/<k"lp.@MX@H -H`#hk"lp;/h5H "d"lpcf l0= k"lpCZ l*#hk"lp*1/h "d lCx/$$   l$ l'''($   l$#h*#  , l*FH 2h)6H(/ `H x lept< hH( l Ct-KX Cx lt0,/"lt 1t"lt 1t,*#hlt 1t/h,*#hlt 1t/h,*#hlt 1t/h"lt 1t"lt 1t"lt 1t"lt 1t(tMX@H H:8]35H<JtMX@H H`1t5Hlt&8:XNHHlt( (6 Y$p6H(Opltlp; lpd CC CCCCCCl lpp k<:XNHHl lp( (6 Y$l6H(ll]8'''(*#hl lp*FH /h6H(/C:N((ll.@M8@(H -Up6H(@kll 1h>hFH( (`1/h6H(6llJkiHkll 15H"l 1ll 1C:N((ll.@M8@(H -Up6H(@kll 1h>hFH( (`1 /h6H(6llJkiHkll 15H"l 1ll 1(l0l 0l0l08'''(*#hl lp*FH /h6H(/l=l=8'''(*#hl lp*FH /h6H(/7l #h=l #=2h~8'''(*#hl lp*FH /h6H(/ ll =8'''(*#hl lp*FH /h6H(/l tl o-8'''(*#hl lp*FH /h6H(/ !l tl o2k'':XN((*#hl*#*#l*#*#*FH^2 h6H(/Cl l f l0YRhllF8>hFHMX@( (:`16H(bll*#hl*F>FHMX@( (:8|`1/h6 H(| i ll lp; A:N((l lp.@M8@(H -Up6H(>kl lp 1h>hFH( (`1/h6H(2l lpJkiHkl lp 15Hl lp 1l0l0 8'''(*#hl lp*FH /h6H(/l #h=/hV 8'''(*#hl lp*FH /h6H(/ l= 8'''(*#hl lp*FH /h6H(/:l lp.@MX@H -H`#hl lp;/h5H  fh lpdpH lx0 l lpCx< lx*#hl lp*1x/h  fp lxCx/$$ ll  l$l l'''($ ll  l$#h*# hh , l*FH 2h)lh6H(/ hPxlx pt@ hlhH(|H l Ct-KQ""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t"" lt 1tltCx/$l pp  llpl'' ',l pp  ll#h*#\` dd , l`*FL 2h\`)pd6L, / ,xt0 h`\pdL, d l Ct-K9 Cx lt0,/"lt 1t"lt 1t,*#hlt 1t/h,*#hlt 1t/h,*#hlt 1t/h"lt 1t"lt 1t"lt 1t"lt 1t(tMX@H H:8]35H<JtMX@H H`1t5Hlt&8:XNHHlt( (6 Y$p6H(Opltlp;"lpcCCC CCCk"lpp k=:XNHHk"lp( (6 Y$l6H(llN9'''(*#hk"lp*FH /h6H(/llJc,E(HllJkll.@MX@( -( 6H( "llJkll 1FMX@llJkll FH( (`1 6H(, dn l0GllC llJc%E(HllJkll.@MX@( -( 6H("llJkll 1FMX@llJkll FH( (`16H(% dg l0@llC ll=9'''(*#hk"lp*FH /h6H(/l tl o9'''(*#hk"lp*FH /h6H(/ !l tl o2^'':XN((*#hk"lp*#*#*FH^2h6H(/Cl Jd l"*1 fCl l dl l 02 l0lC-l*#hl*1/h l0?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnoqrstuvwxyz{|}~l:dNTT 6T4/lt+'''4:dNTT 6T4/ltCx/$   lrl'''4   l#*#  , l*FT 2)6T4/ |,xt0 T4 < l Ct-KCx lt0,/"lt 1t"lt 1t,*#hlt 1t/h,*#hlt 1t/h,*#hlt 1t/h"lt 1t"lt 1t"lt 1t"lt 1t(tMX@H H:8]35H<JtMX@H H`1t5Hlt&8:XNHHlt( (6 Y$p6H(Opltlp; lpd+CCC CCA:N((l lp.@M8@(H -Up6H( k<:XNHHl lp( (6 Y$l6H(llj8'''(*#hl lp*FH /h6H(/llJcHE(HllJkll.@MX@( -( 6H(<"llJkll 1FMX@llJkll FH( (`1 6H(H d l0cllC llJcAE(HllJkll.@MX@( -( 6H(5"llJkll 1FMX@llJkll FH( (`16H(A d l0\llC ll= l0lC8'''(*#hl lp*FH /h6H(/l tl o'8'''(*#hl lp*FH /h6H(/ !l tl o2]'':XN((*#hl lp*#*#*FH^2h6H(/Cl l dl l 05 l0lC0l*#hl*1/h l0[ll#h*1/h(l*#hl*#l#*12h l0ll#h*1/h(l*#hl*#l#*12h fl*#hl lp;/hl lp*#hl lp;/h  fh lpd\ll lp*1  fBl #h0/hlJl 1lCx/$$   l$2 l'''($   l$#h*#  , l*FH 2h)6H(/< X@ xlp plt4 hH( l Ct-KCx lt0,/"lt 1t"lt 1t,*#llt 1t/l,*#llt 1t/l,*#llt 1t/l"lt 1t"lt 1t"lt 1t"lt 1t(tM\@L L:<]35L<JtM\@L L`1t5Llt&8:\NLLlt, ,6 Y(p6L,Opltlp;lpclklpd>l1 l09''',*#lklp*FL /l6L,Cx/ l0A l$0  klpC$lC <l$*#lklp*1$/ll *#ll*1 /l l0 l$0l+klpT>l1$lC /l$*#l+klpTll*1$2ll *#ll*1 /l dfl$Cx l 1/$(   l(l''',(   l(#l*#  , l*FL 2l)6L,/D*x$ pStu 0 lL,@ l Ct-KCx lt0,/lt[Cx/Cp=pM`@P P"tM@@0 0lpF ]36P0Cx/Cp=pM`@P P"tM@@0 0lpF ]36P0 Cx/ltJc 3(PltJktM`@0 0 6P0klt #J/CxCx d #/$   l4l'''0   l#*#  , l*FP 2)6P0/ @0xpt0 P0( l CtlCplCllChlCdKpz lplh=l+'''$:TNDD 6D$/ 8:TNDDlt$ $6 Y6D$8:TNDDll$ $6 Y6D$8:TNDDld$ $6 Y6D$ll]+'''$:TNDD 6D$/ ll+'''$:TNDD 6D$/ lc~kl0`2kl4kkl4k[R'''$*#kl*#*#kl*FD 26D$/ rkl0r dpz/ $   ll'''$   l#*#  , l*FD 2)6D$/ (X>xltdpltxh0 D$hl CtKlpz lt0)/\ \4p5\fL%p cL%p cL%p:L%pt@p\4l5\lW\(L]35\!t@:<%p\`1t5\ "lt 1t @"lt 1t lt0Ypzbpz/$   ll''',   l#*#   , l*F\ 2) 6\,/0ptl0  \,      0,A`! 0,`% 0,`p 0,`t 0,A`x 0,`| 0,`) 0,`- 00A ` 1  00 ` 5 &8 `9 1Y&,  `= 0,I `A 0<`E )I00` I 00 ` M 0,I` 00` Q 00` U 0, `Y100I` ]Y 00` ay00,`ey0@ `iY I#8I`m I #n50dc2c74*\R1*#10e*\R1*#10b$*\Rffff*1N50dc2c74$*\Rffff*1<50dc2c74*\R0*#e*\R0*#14U  8 "X B     *'( TH & T(#   XH  "C 8J.0:.0.6 lh 0. <6 |h  8."F 8J.H:.0.6 lh( 0. <6 |h8 8."F <( J.h :. 0<`xME@"F6 (`tLJDFHVNTP@H @` @x @ @x R0,(@t Hr,P $*\Rffff*1=50dc2c74$*\Rffff*1@50dc2c74*\R0*#f*\R0*#4*\R0*#19*\R0*#13*\R0*#f$*\Rffff*1G. 6( 0 H   0.  < 6` 0 (  8.0 h p *+x    & Dj ((  ,.    6 .$8PX`h &.p:7   $ 8 lmH ^R8@ 8@X:7 hjX07` ,6. ( xj@87(.  (6@ t`,.  < (X0. < (.   20 h"C <6 lh 0.Dj0  ,.Dj@[0 P\\ 4.\\"F <6P lhp 0.Dj 0 h ,.0Dj[0 \ 4.["F[ $80.`,.4.*+08  @ `p x  $l B   H8 @ H X` *h' T  T(8.6 bq@.7HxDj0X.7`6727  " "0 JX L @ 8! H! h! ! ! >! T! "8" `" # # X# X($ $ T$ 6$ % % N% H& RX& @& ,7&@@ '>I`'>I'@@'6@ (>@X(.7( 6( ~(h)27p))67) T) @*  + R0+ +<7+ :.+*#, H, h,x, ,, , $,l,, ,B, , , - - - - *(-'X-  Nx- - N-68.&#X. .2.. :.0./ $@/27h/ /67/ />70 &P027x0,70@@0  1>I81 "x1>I1@@1 2 26@X2 >2>@2.73 @327X3 3673 :327 4 BX4:74274 D5>@`5 .5:@54762.H6(#6  6 66666  N6 H7 NX7&#7 $7B.7 :@80.8 $8<78 9609 rqP99679: :60: qP::>7: ; &(;DjP;(; <27(<`<,7h<@@< <<6<.=$(=@=H=P=X= `= "x= = rj= d[(>>>I>>I>? @@ ? 2`?? ns? @6@(@`@ >h@@6@.@@@AA ~s AA>@AA .7A  B68B zXBB27BC  C68C rqXCC67CD @DDjXD0D8E27@ExE HEDjE0FF:7FG 27G D@GN@G .G:@H47HH2.H  NH I N I6pI(#I I IIIIJ 0.J $8J<7`J J6J rqJPK67XKK K6K qK`L>7hLL (LDjL( MM27MM,7M@@ N 6`N.N$NNNNN N $N O rj0O d[OP>IP>IXPP@@P 4PQ ns0QQ6@QQ @Q6(R.HRhRpRxRR ~sRS>@ S`S .7hS S6S zSPT27XTT T6T TXU67`UU BUDjU00VV27VW JWDj`W0WPX:7XXX 27X DXN@ Y .pY:@Y47Y2.Z(#PZ  xZ ZZZZ Z $ZlZZ [] ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"8']`.D]]Scripting.FileSystemObject$L.H  H%.JM----------------------------------------------------------------------------- ȉ\ҁiƋljɊւM-----------------------------------------------------------------------------  <\ғ> JB@PQkaisetuł́u@lčl̕ʁvuo^lR[h`FbNvuo^lR[hv^OKv Ƌl̖OƋl̃tKi b  D%!r!n2@l̏ꍇAƋl̖O@l͒ĉƋl̖O   *<@l_c_l̕>1 JB@P$    JB@P(    JB@P b " D%!f     <͖> b " D%!f JB@Pdx   <͖/> JB@Pk@6@l̏ꍇA@l͒c̃tKiƋl̖OtKi b  D%!f     <͖̃tKi> b  D%!f JB@PdX   <͖̃tKi/> JB@Pk b  D%!r!ne2ĉ̏ꍇAƋl̖O@l͒ĉƋl̖O   *<@l_c_l̕>2 JB@P    JB@P    JB@P b " D%!f     <͖> b " D%!f JB@Pd`   <͖/> JB@Pk(6ĉ̏ꍇA@l͒c̃tKiƋl̖OtKi b  D%!f     <͖̃tKi> b  D%!f JB@Pd@   <͖̃tKi/> JB@Pk b  D%!r!ne6l̏ꍇAl͖@lEc̑\ҖƋl̖O   *<@l_c_l̕>3 JB@P    JB@P    JB@P b * D%!f "   <͖> b * D%!f@ b , D%!f JB@Pd   <͖/> JB@Pk6l̏ꍇA@l͒c̃tKiƋl̖OtKi b & D%!f "   <͖̃tKi> b & D%!f@ b ( D%!f JB@Pd   <͖̃tKi/> JB@Pkd @lEćEl̕ʂُłBA@(zPkH Ƌl̗X֔ԍinCtȂj  b  D%!f b  D%!f      b  D%!f b  D%!f  JB@PdP     JB@Pk]] b  D%!f b  D%!f'  D!%'d''k    JB@P     JB@PƋl̏ZԍƋl̏Zs撬R[hƋl̏Zs撬R[hȉ           %  JB@P           JB@Pd       JB@P       JB@Pkh     JB@P        <_>   D!%  JB@Pd     <_/> JB@Pkh&Ƌl̏Zs撬R[hȉtKi] b  D%!f b  D%!f'd 'k       <_ڃtKi>   D!% JB@Pd@    <_ڃtKi/> JB@Pk    JB@PƋl̓dbԍ b . D%!f       b . D%!f-$R  JB@Pd     JB@Pk 5-----------------------------------------------------!kaisetuł́udbԍ⑫vKv    JB@P5-----------------------------------------------------    JB@PƋl̑\ҖE,Ƌl̑\ҖiƖ̊Ԃ͑SpXy[Xj Ƌl̑\ҖtKi b  D%!r!n 6@l̏ꍇAl͖@lEc̑\ҖƋl\ b $ D%!f     <\ҖE> b $ D%!f JB@Pdx   <\ҖE/> JB@Pk@  b * D%!f b , D%!f  "    <\Җ> b * D%!f@ b , D%!f  JB@Pd`    <\Җ/> JB@P$k(d0k( b  D%!r!ne6ĉ̏ꍇAl͖@lEc̑\ҖƋl\$ b $ D%!f     <\ҖE> b $ D%!f JB@P%d   <\ҖE/> JB@Pk b * D%!f b , D%!f "    <\Җ> b * D%!f@ b , D%!f  JB@P d    <\Җ/> JB@P'kl̏ꍇAƋl\҂͂Ȃ(   <\ҖE/> JB@P    <\Җ/> JB@P)   <\ҖtKi/> JB@Pd` @lEćEl̕ʂُłBA@(z(k XMLt@C‚ JB@B.H'z" 0!2 0!2 , 0!4A@(ki"pAkaisetuɂWordɘAӔCҏZE[AhXȂ̂Œ' ]X.D+]x]Scripting.FileSystemObject$L.H  H%.J,M----------------------------------------------------------------------------- ȉAӔC M-----------------------------------------------------------------------------H   <\ɊւAӔC> JB@P b  D%!f     <> b  D%!f JB@P d     JB@Pk  b X D%!f b Z D%!f1   $    <> b X D%!f@ b Z D%!f JB@P2d     JB@Pk     JB@P      JB@P1 Dim myAddress As String Dim myAreaCode As String$D If cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result <> "" Then F myAddress = cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result3: myAreaCode = cP.AreaCode.AreaCodeInsert(myAddress) Else myAddress = "" myAreaCode = "" End If8 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""M a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "" If myAreaCode <> "" Then ~ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Left(myAreaCode, 2)' & ""  a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & myAreaCode' & "" ElseQ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & ""Q a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "" End IfN a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""80 If myAreaCode <> "" And myAddress <> "" Then n a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & "<_>"' & cP.AreaCode.DeleteAddress(myAddress, myAreaCode)' & ""  ElseH a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_/>" End IfL a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>"8<9 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""     JB@P      JB@P        JB@P        JB@P      JB@P      <_/> JB@P     <_ڃtKi/> JB@P     JB@P b \ D%!f      b \ D%!f- %R  JB@Pd      JB@Pk     JB@PN If cP.GetValue(pKAGAMI, cݘAӔC҃[AhX).Result <> "" Then _ a.WriteLine vbTab & vbTab & vbTab & vbTab' & ""' & cP.GetValue(pKAGAMI, cݘAӔC҃[AhX).Result' & "" ElseK a.WriteLine vbTab & vbTab & vbTab & vbTab & "" End If     JB@PE    JB@P   JB@PXMLt@C‚F JB@B .H' z" 0!2 0!2 , 0!4A@(ki"h'"].D](]@Scripting.FileSystemObject$L.HH  H%.JH------------------------------------------------------------------------㗝l݂ȂꍇxHH------------------------------------------------------------------------ b 8 D%!f   <㗝l> JB@PdqϔC̗L    JB@P 4-----------㗝l֘A-------------------------------   <㗝l񖾍> JB@P㗝l C:㗝l D:㗝lL     <㗝/> JB@P  㗝l̖O     <͖/> JB@P㗝l̖Ôӂ肪M    <͖̃tKi/> JB@P 㗝l̗X֔ԍinCtȂj      JB@P     JB@P      JB@P㗝l̏Zԍ        JB@P㗝l̏Z̎s撬R[h        JB@P      JB@P,㗝l̏Zs撬R[h͂      <_/> JB@P8㗝l̏Zs撬R[h͂́iӂ肪ȁj     <_ڃtKi/> JB@P     JB@P㗝l̓dbԍ      JB@P  㗝l̖E    <\ҖE/> JB@P3㗝l̖Oiі Ɩ̊Ԃ͑SpXy[Xj     <\Җ/> JB@P;㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj    <\ҖtKi/> JB@P     <ϔC> JB@P=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     <ϔCo@/> JB@P(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> JB@PV      JB@P&    JB@P    JB@PXMLt@C‚ JB@B (.H'"zpkhH------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------   <㗝l> JB@PdqϔC̗L 2:gpȂ   "2 JB@P 4-----------㗝l֘A-------------------------------\   <㗝l񖾍> JB@P㗝l C:㗝l D:㗝l    <㗝>C JB@P 㗝l̖O b 8 D%!f     <͖> b 8 D%!f JB@Pd    <͖/> JB@PkP㗝l̖Ôӂ肪 b 6 D%!f     <͖̃tKi> b 6 D%!f JB@Pd    <͖̃tKi/> JB@Pk8 㗝l̗X֔ԍinCtȂj  b 0 D%!f b 2 D%!f  "      b 0 D%!f b 2 D%!f  JB@Pd8      JB@Pk     JB@P      JB@P]X]p b  D%!f b  D%!f'   D!%'d''k㗝l̏Zԍ㗝l̏Z̎s撬R[h             %   JB@P             JB@P(d        JB@P        JB@Pk@      JB@P,㗝l̏Zs撬R[h͂          <_>   D!%  JB@Pd8?      <_/> JB@Pk>8㗝l̏Zs撬R[h͂́iӂ肪ȁj] b 4 D%!f b 4 D%!f'dh>'kX>         <_ڃtKi>   D!% JB@Pd=     <_ڃtKi/> JB@Pkp=     JB@P㗝l̓dbԍ b B D%!f       b B D%!f-$R  JB@Pd<      JB@Pk@< 㗝l̖E b : D%!f     <\ҖE> b : D%!f JB@Pd;    <\ҖE/> JB@PkH;9㗝l̑\ҖOiі Ɩ̊Ԃ͑SpXy[Xj  b  D%!f b @ D%!f   $     <\Җ> b  D%!f@ b @ D%!f  JB@Pd :     <\Җ/> JB@Pk9A㗝l̑\ҖOӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj  b < D%!f b > D%!f   $    <\ҖtKi> b < D%!f@ b > D%!f JB@Pd8    <\ҖtKi/> JB@PkX8     <ϔC> JB@P=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     "<ϔCo@>1 JB@P(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> JB@P      JB@P    JB@PH------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------ b L D%!f    JB@PXMLt@C‚ JB@B.H'"z`5kX5   <㗝l񖾍> JB@P㗝l C:㗝l D:㗝l    <㗝>D JB@P㗝l̖O b L D%!f     <͖> b L D%!f JB@Pd4    <͖/> JB@Pk3㗝l̖Ôӂ肪 b J D%!f     <͖̃tKi> b J D%!f JB@Pd2    <͖̃tKi/> JB@Pk2"㗝l̗X֔ԍinCtȂj  b D D%!f b F D%!f  "      b D D%!f b F D%!f  JB@Pd1      JB@Pkp1     JB@P      JB@P b  D%!f b  D%!f'  D!%'d0''k0㗝l̏Zԍ㗝l̏Z̎s撬R[h             %   JB@P             JB@PdH/        JB@P        JB@Pk.      JB@P.㗝l̏Zs撬R[h͂          <_>   D!%  JB@Pd-      <_/> JB@Pkx-:㗝l̏Zs撬R[h͂́iӂ肪ȁj b H D%!f b H D%!f'd,'k,         <_ڃtKi>   D!% JB@Pd@,     <_ڃtKi/> JB@Pk+     JB@P㗝l̓dbԍ b V D%!f       b V D%!f-$R  JB@Pd+      JB@Pk*㗝l̖E b N D%!f     <\ҖE> b N D%!f $$ JB@Pd*    <\ҖE/> JB@Pk);㗝l̑\ҖOiі Ɩ̊Ԃ͑SpXy[Xj  b  D%!f b T D%!f   $     <\Җ> b  D%!f@ b T D%!f  JB@Pd(     <\Җ/> JB@PkP(C㗝l̑\ҖOӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj  b P D%!f b R D%!f   $    <\ҖtKi> b P D%!f@ b R D%!f JB@Pd'    <\ҖtKi/> JB@Pk&     <ϔC> JB@P=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     "<ϔCo@>1 JB@P(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> JB@P      JB@P    JB@P    JB@PXMLt@C‚ JB@B.H'"z$"$ 0!2 0!2 , 0!4A@(k`$iX$P$ b  D%!r!ne[ b & D%!f b ( D%!f b & D%!f b ( D%!f%   <\ҖtKi/> JB@P>dZkZ   <\ҖtKi/> JB@P "   <\ҖtKi> b & D%!f@ b ( D%!f JB@P "   <\ҖtKi> b & D%!f@ b ( D%!f JB@PYAttribute VB_Name = "modOutputXML2" ' ЃnCp[ _dCopyright (c) HyperDyne Inc. All 8reserved.fhttp://wPww.h0d0.@co.jp/webmaster@  Option Explicit Pub FuncClient@( _ ByVal myFile As RSng )Boolean1/rror GoTo ErrMes#0FalseDim cP*clsPaSet = New fsObjecn] a (= Create("Scring.vSym ")a]fs.OpenText (FH, 8, True '-?Gȉ\ҁiƋljɊ-a.WriteLivbT ab & "<$ >@a"kaisetuł́u@lčl̕ʁvuo^lR@h`FbNv^OKv?̖OtKiIf@.Getue(pKAGAMI, c`݃. &).DropDow n. ~2 Th.eaa'aꍇA)*! __&>1 "",e& "<1>"A)a&_Cj4 /K O Efa??M*End If Pk%O`+PKc44E5Xc[5̥ 6Vzn7H8QQy!"J@aAUA9J 3JJO5#"?+_J_J2JOF_?[JAbz/ / " #_{uJGJ 4JDJ JE$\`!l"<3KKiߏ KKor TGU_K 000҃?{((?_K﷎ @_ 55%#Q?3Q=Q35D a.WriteLine vb Tab &8"</>"  End If'lꍇA@ljc̃tKi Ƌ# O@If cP.GetValue(pKAGAMI, cݐ\ґ\Ґ>).Result <> "" ThenQf_ & |6>" [>@4̖4Du[\﫯lt GiW l#$d%_-66%%%% 7&& %"Mt&23&%'77?hs *dbh@_%O'H'  O<& Replace(  # , "-"@"BBG///5?0-kaiset"úuvKvsO Pi$ 'cf}"@"#E).Result <> "" FHa.WriteLine vbTab &_>!& "<1x>" T7/ 8JElse(4 0/>"nd If\ \ 3Or:nSenm;Sm@}GAS~"%If@o.GetValue(pKAGAM@I, c ).Result <> "" ThenoCa#C)_ & "" NlcP&P/Ek-)/NEnd IfQ QɈ+Orb?1B61?1Dy0@?" End Ifa.WriteLine vbTab &" "" Then PT'_59& Ďq m>" (:[1;/dW# a./ = Nothi ng OutputAgenBtTruelExit FunctionXEnd If '-DN㗝lR_a.WriteLine vbTab &$"<>>"?dqϔC̗L 2:gp8Ȃ)1"<$#>2C "" TheD!c(_"<͖>" N'P/ Elsg0& ,/s'IZ@̂ӂ)#.qa.tKi/kB/`/ 0uD}1G2ˆ+m2 {3X֔ԍi(nC`j4&cEO3v4A X 4 m-"00 <<+  }/%m?we#"ZR[h#@p o oo{ .< 9& VBA.Left$q , 2)r" d%$ 1W <*DeleteL>,M,,~/"" "?% /  iu5[KanaYTTeoC?ZN ggU l'i'''-4'e (((Q W(( ?%ᥕ( b & vbTab p"<_ڃtKi/>" End If a.WriteLine /ZL'㗝l̓dbԍQIf cP.GetValue(pKAGAMI, c042).Result <> "" ThennE'_& "<0>" Replace(AS, "-""b)*"1-ZaRfK=O*'XMLP8@C‚S  a.CloSet fs = N@othingOutputAgeDntTruExit FunctioT Q>D C: D:S )A>D<9J5A__cZ  o o c U<͖̟b&ߑE  ??0EO3APge(pKAGAMI, cݕ㗝lX֔4).Result <> "" Th en a.WriteLine vbTab &_hv& ""<f>" cP.GetValuO3:Jx%""&`nd If+%8Z"m"<s{_s撬ƺ#If d!ZmyAddress =.C"@reaCode AD.Insert(F)KkF]"`NEf'Eʂ/! f''`?^+dbn B)E?)o.<& Replace( , "-"@"D/g0f/ E߼м\a` "!.7?& Trim(StrConVv/lO ,Wide) /i?"</(Oiі Ɩ̊Ԃ͑S@pXy0X_]oX0Or?5o o o o o / U?f@ "" _  Or cP.GetValue(pKAGAMI, cݕ㗝l\ҖtKi). Thena.WriteLine vbTpab && "< i> %'̐9@1 k/lElse#/>"*ndx If'eϔC E'o@ 1:ʏij/ʓrQ 2: "<>1e 'XML@c@C‚"CloERSet fs = No thingCOutputAgen"t@TruXExit Functio Err@Mes: cIf .Numb$er0 Ms0gBoxCr LfADescripg E]` @(8%c%lX4h5X.*#*#O*FX%h25X6+Pp  l l=/:q*#*#*#Q*#+Pp  l l*#R*FX%h2 5Xs7*#*#*#S*FX%h25Xj+Tp  l l=+Up  l l=2)*#*#*#V*#+Tp  l l*#*#+Up  l l*#W*FX%h2)5X7*#*#*#X*FX%h25X7*#*#*#Y*FX%h25X7*#*#*#$*FX%h25X7*#*#*#'*FX%h25X@*#*#*#*#(*FX%h25XI*#*#*#*#*#.*FX%h2 5XI*#*#*#*#*#/*FX%h2 5X@*#*#*#*#0*FX%h25X@*#*#*#*#3*FX%h25X@*#*#*#*#7*FX%h25X7*#*#*#8*FX%h25X6+Zp  l l=/+Zp  l *#*#*#:*#;l <#*#=*FX%h25X97*#*#*#>*FX%h25X7*#*#*#?*FX%h25X7*#*#*#[*FX%h25X.*#*#\*FX%h25X#*#]*FX%h/5X hKclpz$ L Mll''' L Ml#N*# L ,Ml*FX 2)6X4plhtHX$\$l CtK#prU~|  5A6y; i)-qHIQ i aٺYi   I& ! ! u1iQ ٥ AYi qɶ !!Y Qٻ I 6&&AIAqa9i 9iYYI!Ii )II9!qqYaY 4l CtKpz pX  X4l5X't@(8%c%lX4h5X#*#*FX%h/5XC+p  |  4 l).*#*# *FX%h25X.*#*# *FX%h25X.*#*# *FX%h25X6+p  l l=/h*#*#*#+p  l l*#*FX%h2 5X#.*#*#*FX%h25X6+p  l l=/h*#*#*#+p  l l*#*FX%h2 5X.*#*#*FX%h25XC+p  |  4 l)q.*#*#*FX%h25X.*#*# *FX%h25X.*#*# *FX%h25X6+p  l l=/ih*#*#*#+p  l l*#*FX%h2 5X.*#*#*FX%h25X6+p  l l=/<h*#*#*#+p  l l*#*FX%h2 5Xl.*#*#*FX%h25XC+p  |  4 l)].*#*#*FX%h25X.*#*# *FX%h25X.*#*# *FX%h25X6+p  l l=/*#*#*#+p  l l*#*#+p  l l*#*FX%h2)5XJ.*#*#*FX%h25X6+p  l l=/(*#*#*#+p  l l*#*#+p  l l*#*FX%h2)5XX.*#*#*FX%h25X+''':HNXX 6Xj+ p  l l=+!p  l l=2) *#*#"*#+ p  l l*#+!p  l l*##*FX%h2)5X .*#*#$*FX%h25X6+%p  l l=/S .+%p  l >1$lp  &>1e CC.*#*#'*FX%h25X7*#*#*#(*FX%h25X l= m*#*#*#*#)*FMH@X * X:8+%h26XR*#*#*#*#,*#l*#-*FX%h2 5X @*#*#*#*#.*FX%h25X@*#*#*#*#/*FX%h25X7*#*#*#0*FX%h25Xl=l= j*#*#*#1*#llp  ,&l*#2*FX%h2 5X 7*#*#*#3*FX%h25X6+4p  l l=/{ .+4p  l >1 Cl=l= j*#*#*#5*#llp  0&l*#6*FX%h2 5XC7*#*#*#7*FX%h25X.*#*#8*FX%h25X6+9p  l l=/3+9p  l *#*#:*#;l <#*#=*FX%h2 5Xc.*#*#>*FX%h25X.*#*#?*FX%h25X.*#*#@*FX%h25XC+p  |  4 l)^6+Ap  l l=/h*#*#B*#+Ap  l l*#C*FX%h2 5X.*#*#D*FX%h25Xj+p  l l=+p  l l=2)*#*#E*#+p  l l*#*#+p  l l*#F*FX%h2)5X.*#*#G*FX%h25Xj+p  l l=+p  l l=2))*#*#H*#+p  l l*#*#+p  l l*#I*FX%h2)5XY.*#*#J*FX%h25XC+p  |  4 l)6+Ap  l l=/Bh*#*#B*#+Ap  l l*#C*FX%h2 5Xr.*#*#D*FX%h25Xj+p  l l=+p  l l=2)*#*#E*#+p  l l*#*#+p  l l*#F*FX%h2)5X.*#*#G*FX%h25Xj+p  l l=+p  l l=2)*#*#H*#+p  l l*#*#+p  l l*#I*FX%h2)5X.*#*#J*FX%h25XC+p  |  4 l).*#*#D*FX%h25X.*#*#G*FX%h25X.*#*#J*FX%h25X+''':HNXX 6X hKclpz$ L Mll''' L Ml#N*# L ,Ml*FX 2)6X@(plhtDX(l CtKpz pX  X4l5X't7z pX  X4l5X't@(8%c%lX4h5X6+^p  l l0/+#*#_*FX%h/5X.*#*#`*FX%h25X.*#*#a*FX%h25X7*#*#*#b*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#$*FX%h25X7*#*#*#'*FX%h25X@*#*#*#*#(*FX%h25XI*#*#*#*#*#.*FX%h2 5XI*#*#*#*#*#/*FX%h2 5X@*#*#*#*#0*FX%h25X@*#*#*#*#3*FX%h25X@*#*#*#*#7*FX%h25X7*#*#*#8*FX%h25X7*#*#*#>*FX%h25X7*#*#*#D*FX%h25X7*#*#*#G*FX%h25X7*#*#*#J*FX%h25X7*#*#*#c*FX%h25X@*#*#*#*#d*FX%h25X@*#*#*#*#e*FX%h25X7*#*#*#f*FX%h25X.*#*#g*FX%h25X#*#h*FX%h/5X hKclpz#*#_*FX%h/5X.*#*#i*FX%h25X.*#*#a*FX%h25X7*#*#*#j*FX%h25X6+^p  l l=/q*#*#*#*#+^p  l l*#*FX%h2 5X7*#*#*#*FX%h25X6+kp  l l=/rq*#*#*#*#+kp  l l*#*FX%h2 5X7*#*#*#*FX%h25Xj+lp  l l=+mp  l l=2) *#*#*#"*#+lp  l l*#+mp  l l*##*FX%h2)5X 7*#*#*#$*FX%h25X7*#*#*#'*FX%h25X@*#*#*#*#(*FX%h25X6+np  l l=/ .+np  l >1$lp  &>1 CC l= j*#*#*#*#*#)*#l o#*#+*FX%h25X[*#*#*#*#*#,*#l*#-*FX%h25Xw I*#*#*#*#*#.*FX%h2 5XI*#*#*#*#*#/*FX%h2 5X@*#*#*#*#0*FX%h25Xl=l=E s*#*#*#*#1*#llp  ,&l*#2*FX%h25X @*#*#*#*#3*FX%h25X6+pp  l l=/ .+pp  l >1 Cl=l=s*#*#*#*#5*#llp  0&l*#6*FX%h25X@*#*#*#*#7*FX%h25X7*#*#*#8*FX%h25X6+qp  l l=/+qp  l *#*#*#:*#;l <#*#=*FX%h25X7*#*#*#>*FX%h25X6+rp  l l=/q*#*#*#B*#+rp  l l*#C*FX%h2 5X7*#*#*#D*FX%h25Xj+sp  l l=+tp  l l=2)*#*#*#E*#+sp  l l*#*#+tp  l l*#F*FX%h2)5X>7*#*#*#G*FX%h25Xj+up  l l=+vp  l l=2)Y*#*#*#H*#+up  l l*#*#+vp  l l*#I*FX%h2)5X7*#*#*#J*FX%h25X7*#*#*#c*FX%h25X@*#*#*#*#w*FX%h25X@*#*#*#*#e*FX%h25X7*#*#*#f*FX%h25X.*#*#g*FX%h25X6+xp  l l0/&#*#h*FX%h/5X hKclpz.*#*#a*FX%h25X7*#*#*#y*FX%h25X6+xp  l l=/7q*#*#*#*#+xp  l l*#*FX%h2 5Xp7*#*#*#*FX%h25X6+zp  l l=/q*#*#*#*#+zp  l l*#*FX%h2 5XU7*#*#*#*FX%h25Xj+{p  l l=+|p  l l=2)g*#*#*#"*#+{p  l l*#+|p  l l*##*FX%h2)5X7*#*#*#$*FX%h25X7*#*#*#'*FX%h25X@*#*#*#*#(*FX%h25X6+}p  l l=/.+}p  l >1$lp  &>1CC l=j*#*#*#*#*#)*#l o#*#+*FX%h25X[*#*#*#*#*#,*#l*#-*FX%h25X!I*#*#*#*#*#.*FX%h2 5XI*#*#*#*#*#/*FX%h2 5X@*#*#*#*#0*FX%h25Xl=l=s*#*#*#*#1*#llp  ,&l*#2*FX%h25X1@*#*#*#*#3*FX%h25X6+~p  l l=/.+~p  l >1Cl=l=2s*#*#*#*#5*#llp  0&l*#6*FX%h25Xt@*#*#*#*#7*FX%h25X7*#*#*#8*FX%h25X6+p  l l=/v+p  l *#*#*#:*#;l <#*#=*FX%h25X7*#*#*#>*FX%h25X6+p  l l=/+p  l *#*#*#B*F>FX  :HCx%h26 Xx7*#*#*#D*FX%h25Xj+p  l l=+p  l l=2) *#*#*#E*#+p  l l*#*#+p  l l*#F*FX%h2)5X!7*#*#*#G*FX%h25Xj+p  l l=+p  l l=2)."*#*#*#H*#+p  l l*#*#+p  l l*#I*FX%h2)5Xg"7*#*#*#J*FX%h25X7*#*#*#c*FX%h25X@*#*#*#*#w*FX%h25X@*#*#*#*#e*FX%h25X7*#*#*#f*FX%h25X.*#*#g*FX%h25X#*#h*FX%h/5X hKclpz$t L MltU$l'''t L Mlt#N*# L ,Ml*FX 2)6X\$@(plhtPXxa__SRP_19j6clsRegExG*C__SRP_1aR__SRP_1b1RrU (`1(`1(`1nrU @<ipq     (@j$pq  ) I a y (@kLpL  8 "X   ( " 08H8"h H@& HD& H @ X `:( H\2 $HHp    *0*`$$46  P `( (  .HL*  P<h,6 * 2@8x  2 * 86X4 0 \&X B,  &G GGs2OtRegOpenKeyExAj 28l k RegQueryValueExA2`$RegSetValueExA2LRegDeleteKeyA2pjpRegCreateKeyExA20RegCloseKey cFormatMessageA<KSeF ;B`*=h8+3qa FM6mBtq8xa FM6mBtq8KSeF ;B`R`R ME( SS S@J>"<,<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}B+&p@ Y(`Y*Y,o.jpY.@Y0ew c+4$p $ Y(@Y6`'Y8Y:Y<RY> +@Lp L i(@i6`iBiDi<iF+Hpp p Y(@Y*Jx hLhNhP+R(p i( i*@iB`iTiVi.)XA %i0iZ+\8ph Y(BbHCBfCBhpCBlBBpPB BrB BvB Bz BB|BB8B%h+ px iiiiii8iBBBBB B,8 `k@ 088Qib ` li <@i _i `llR`hB@P`d` ` `\%, `kx 4 i  !i !, `#k 8 //ib  Pi8 li#X tix fi  "`h<`8$d b```\!, `H&k8 < i X Kix i `pP  d ̗X@ %`f ` `\f`X!, `)kX @ i x bi ֔i  `p/>`l,p`+$k( D CCi H%i h'i `t`p`l[h`h撬`hd`` `\ ,p`.pk H @i  i撬i  p `.x `v `t P`r  , `80dk ]ib B@Pi `p `l_,`1fk`  iib _i&i  t`l `(1h, `H4k0 LXXui P ip_i%iX0 ii  i4$i  `bp .`l `h `d>```f`\`hԍH>@u`d ,p==x=`H>`>0>>h?;?5`t`pj\`XHl`h>`d`;`r&f\(@?D @@ @?0 p:0AA :@x> @P? `t`Xp`l`h`d@ ? @8? @ @ @? @? @ =n@j\@ A@A@@XA@@A;h  <`@z `t`Xp`l`h`dA@Z (BBxBB(B`B@Bh `Bz PB(BBB@n @d @` B h>` `@TGr,P $*\Rffff*1>50dc2c74(*\Rffff*1>50dc2c74\0*\R0*#4*\R0*#f*\R0*#14*\R0*#f*\R0*#e4    & 6   ( (;8  &` p x   -  4 "L  8  H X  x       ( (;  &       0  @  X h x  , ( (;  &    B   ( 8 @ H .IP  B4      >  6 06H h ,x((; & "L  H ,X((; &    (8@ ,H(x(; & B$ 208@H P :OX         2 8 0Hx ,((; &   B$( @ HP X)p   $+ ,(@(;X & B4     0 &@6h    > 6  06H h x     &6  (08@ H >X 6  6     ( @P XB$` x         0 8P Xhpx B    B$  ( 0 HPX` BL*  ( &6@ `(p(; & -  @  HP `h x     4"L 0 @ P p   ( (; &     ( 8 H P X` hp x    , ( (; &( 8 @H P  ` x B<"  (( 0 8 @ H BL*&P (         6  ! ,(!(X!(;p! &!!!!!!  !!! """  "("8" @"H"X" `" h"x" "" >" 6"  ""L# 0# ,@# (p# (;# &# ##  # # #$ ,$ (8$ (;P$ &x$ $$ $ $ $$$ $B<" $ %% %(%@%H%((P%x%%% %B% %%%%%%%%& & . & P& X& 0h& & & 0&& &&& ' ' ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@zݕ Dim cReg As New clsRegEx"----------------------------------ȉAWindowsWXg֘A)WXg̃L[J(nh̊mہj  ----WXg̒l擾  WXg̒lݒ肷 "&WXg̃L[폜  `^Dx$\̂̃oCg^D$*ZLeBfXNv^(Win95,98ł͖)^D$1̂ƂAppWXg̃L[쐬( "'+/2WXg̃nh (]D]D ]D]DH]D]D]Dp]D]DsamDesired̒萔]D(9WXg̒l擾]DP9WXg̒lݒ肷]D9TuL[쐬]Dx9TuL[񋓂]D9"WXg̓eύXʒmv]D 9$L[IuWFNgƂ̃N쐬]D]D8L[VK쐬]D8L[I[v"----------------------------------ȉAG[bZ[W֘A(bZ[W̕w̏Ŏ擾 "'*8 dwFlags̒萔]D8@)nSizefw肵TCỸobt@mۂ]D`@obt@Ɉ}Ȃ]DX@$lpSource̓bZ[W`镶@$(FORMAT_MESSAGE_FROM_HMODULEA܂@, FORMAT_MESSAGE_FROM_SYSTEMƑgݍ킹s)]D@%lpSouce̓bZ[We[u\[X@ƒW[̃nh@,(FORMAT_MESSAGE_FROM_STRINGƑgݍ킹s)@$lpSource0̂ƂJgvZX@W[(]D@$VXebZ[W\[X]D @!Argumentva_list\̂ł͂ȂB)(dwFlags̉ʃoCg̈Ӗw肷萔)V0 'ׂĂ̕o͂]D@o͂őoCg  ] ] ] ] ]  L[I[vănh𓾂   p $&'  f$\'(    A A@('zkxobt@mۂ$ $\'  %').myRegistryRegOpenKeyExŊJL[̃nh  b  $4'( @  L[‚Ȃꍇ A\'zhk` A\ f$\'    A A@('zknh‚ A\ G[̊mFB  j` $' 'dx&G[R[hG[bZ[W擾 f$\'    A A@('ki8 'zk   f % % 'ix  '] ] ] ] 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   % %' nhml   r $&' &G[R[hG[bZ[W擾 f$\'v    A A@(Lzk lݒ肷~  b n  $@' &G[R[hG[bZ[W擾 f$\'    A A@(z knh‚ A\ J G[̊mF   j 'd&G[R[hG[bZ[W擾  f$\'B@P    A A@(>'k(i     ,WXg̃L[쐬܂͊̃L[J  ] ] ] ] ]     | t  f $R 'h L[‚s撬 fA\t G[̊mFb   jf j'  ~% ,L[݂ĂȂ߁AV쐬   e *L[݂ĂAPɂ̃L[Jk dx &G[R[hG[bZ[W擾P f$\'     A A@( ''d'kknh‚c A\l'i   p']](]@]X    $'zk b   $'Җtix  "&̌l'"WXgڑׂĎ擾]0]H]`]x]] L[I[vănh𓾂   p $&'  f$\'Ki/>    A A@(ُz8k0] \t@Cobt@mۂ$ $\'  %'- \KTserver'bKTdatabase'bKTusername'bKTpassword'bKTatis'b[S8n0.myRegistryRegOpenKeyExŊJL[̃nh  b  $4'L.  .L[‚Ȃꍇ A\------'zpkh A\------ f$\'A    A A@(------'zk G[̊mF   j<\ $'Ӕ \KT 'KT 'XKT 'KT 'KT 'SXnPdH &G[R[hG[bZ[W擾 f$\'    A A@(D%'zk \nh‚ A\ 'zhi`  b ']]  $2zk    X   $zk'i  "& "ׂĂ̐ڑWXgɊi[']H]`]x]]] nhm$   r $&'MI Ӕ&G[R[hG[bZ[W擾 my f$\'lue(pK    A A@( myzPkH] \dress) \KTserver'bmy 'KTdatabase'b X'KTusername'b 'KTpassword'b 'KTatis'b& "< 'Sxnp7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   % %' lݒ肷   b n  $@'vbTab Tab &G[R[hG[bZ[W擾{ f$\'BA.Lef    A A@( z8k0 G[̊mFvbTab  jTab 'd &G[R[hG[bZ[W擾 & f$\'    A A@(iteLin'kh \vbTab nh‚铹 A\Q 'z i vbTab ']]  $Writzk    X   $zkx'ih An']]  $ z k]WordVBA  $'Nb' NKT 'WXgWordVBAƂڂȂƂesz0KTaCode) *WXgWordVBAƂڂu0v̂Ƃz`1KTiteLin *WXgWordVBAƂڂu1v̂ƂSzn'i8Attribute VB_Name = "clsRegEx"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option vlicitComp Binary' y@z+Dim c As New | -ȉAWindowsWXg֘A@̃L[J(Mh̊m`j P`b Dt Func5'OpenKeyEx Lib "ADVAPI32"Sias "A" ( _  ByVal h&,lpSub$ulSs samDesiGphkResult&)Q0LongOI>l擾:Quer,ueExstr;g eg1? !Sngl3!Tdw"lp#!!Any cbd&{Fe%DeleteߠYEFE# ctB SECURITY_ATTRI BUTESonLengthapj!d '\̀ogecurity`mcriptorZLeBf@N`v^(95,98ł@͖) bInhtHandf 1̂ƂAp-pEnd ay33B3Y?Y?Țe4IXQlp ClassdwPQQwfs"FTpdwDis|ia@^'?Wg%nf8qq)fClg/4deyoNE1Const HKEY_CLASSE@S_ROOT&:H0`URRENT_USE:R1CONFIG5DYN_DATA 6LOCAL_MACHINE2 Si3mERROR_@SUCCES0&REG_DW(ORDp4G_n7CREATEB_  &H4 'Tu?G ivENUMBUFF]10.'fq>CYbtN@ ҿ4t IGNORE_IN0dT?2Do#AɈ}( Private Const FORMAT_MESSAGE_FROM_STRING = &H400 'lpSource̓bZ[W`镶 l-'(HMODULEA܂@fYSTEMgݍ퀂s)!P8eu\X@k@W)̃nh@-fÌPL0̂Ƃ J@3gvZX 5'K6{S{10|'VXeʇyARGUMENT_AR(RAYB2L'Argumentva_list\̂͂ȂB '(dwFlags̉ʃoCg̈Ӗ wat]'~9)'A` ׂĂ၂`o͡ <*MAX_WIDTH _MASKBFF 'E őC Function GetReg !ry( _DByVal myName As String,RootKeyLoSub;a)g ,Divm u CLength )1oRetGstrErrora'L[I`v倂𓾂& = OpDenEx( , S, 0, KEY_QUERY_VALUE,OeFIft <> 0 Th\en !f=.(26@ vbNul`lChar$aCall FormatMessag&e3o, :0&N,a , ,( )` MsgBxox GGP""'ExiL@End If-ot@m^AmO@A5Chr(0) dmyDB= VBA.B()AAb' m2y/ 7J?,!f=QuerS Ex@2` T?a#  u = 2l C) ‚Iꍇr @ Close`)( Q1/qo@"!6,,,et, , _  c'B‚Bo#mGG̊mF#f!ERROR_SUCC`,"&DeleteBT 0Else1'RpPhA'擾_J;_JO@__enJs__ Eqor LTpBuffen @= ""@TTT1sQXft$A ,RIn8(1,\She - 1 #CSe܄\~+ S BooleatS @Fa-Q]GnHandla\k`L'iƔHqhɰ[0ŒӁBDBgƳnhm vU=, vbFromUnicodeAqVHu#&l SSETŊCH BCB1*0f_Ba A BQ0p_t Functi on En@d If h'lݒHRet = RegSetValueEx(nHandle, myNam0, REG_SZ$J, nLeHng)Ift <> 0 The{'G[RhbZW擾F0strErrorString(26~vbNullCharr+Call FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, DBy] 0&fet, *6, f() 2Msg0Box UExinh‚[ClosexKey9.`̊mF = ERROR_SxUCCq +i@*yOTrueElsDAMddddK@Fa>AȀPrivateFb @Cref _PCRoot@ As Long,KSubíA) WXg̃L[܂͊EJqDimDSAASECURITY_ATTRI BUTESsult? DisposiG]cf%#, SB!"l""$OPTION_N`VOLATILE, KEY_CREATE`[B_SAv, tc'):mRea"mmmrv- D_NEW! c݂ĂȀD߁AV"G }2OPENED_EXISTINGAPɂ}(Sj$a CNa'-Ʉ?-1Cߌ Deletef(KeyrBooleaw+@ PoE 5mvn?#6폜g P(|@66om9 mB'oxt0-SJ55|"u `XB" 8e#v=O0eY-4R!  "J,&oxAjxCheck1yRef bOLDw).bBPU ПWrit"-?6#"j '6qvmueMS<>S|dq.u u = H2yURRENT_USER = "HyperDyne2datpabasCbI0veDZ¾OpenD_b+ QUERY_VALUD+ pˣ?b!= g* k,>Q = ^? `\G'VBA.f̒uȂŒӁBDBPgƣA= 5(Conv(, vbFromUnicode)G'Um~g6ٜqSET_ 1p'kO+LOCAL_MACHINE,SOFTWARE\,?+?+ T?ey?+S?+N?+a 15& bOLDWrite = Fa lse End If,If True Then`P'VBA.LenƔ̒ɂȂ̂ŒӁBHBgZn=g\#(StrConv(myValue, vbFromUnicode))>D'nh@mRetYRegOpenKeyEx(Root , Sub0, KEY_SET_VALUE, nHandle2r%0  ?E %n‚A Call mCPlosee([CheckistLry M F@unctiosP0riva@E S elect( _ByRef Q As Long,KCVStr(ingA)Boolea@(HDCDimÞKNEWJƴ CIyM(v, b@@)E-̅Exit GWA&tO= 0L= ""F"͕ HLOCAL_MACHINEASOFTWARE\HyperDyneD g #= aFCURRENT_USER ! C/j.']E ]ublic4 Ge&]@Y myNa4meMSY !RKbSbg-͓K `PFA>|OMa,{ =(S?("C&ȅ,_,y_,y_,( hB_,h!@F,&ۄFy-m@6figȲ!)O,P1]ServerDat0abas0 Us er2 PassPword/ SeATIS_ 4c'WXgڑׂĎ擾q$]=ϙ(thA >m`qgv`,Na@yErro5A'L[I[vōyQUER>Yō 0H<>& ͍6 = ;(26ВvbNullpChar2ˆFormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,*0&Fet, P, 0()XMsgBox ?O 9iQInteger iP$po 4'obt@᤿#t;`55 Chr(0ec"l= )2'Osa C6ig2D,Ѓ08@<}%b1gd=e 25unqe 3p@eC% atisOe^ ;G'/͉3ŊJt761=!QuerEx0(\`R?,d, as H,7Uq8= 2 EAaN֩ꍇ' >?qU)6 7ER5=5FepGGGGnGOGxp 'G_̊m FgV!ERROR_SUCC`U"#`(k= DteZ*VL Select Case i n (\0\Server = myValuez1zDatabu?2?UserN(ame3?Pa@ssword4!ATISEls End +'G[RhAbZ W@擾Ls@trErroString(260, vbNul@lChar)Call FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, BAy 0&, Ret , @, Le4n(E)LMs`gBox E!GetConfig @SFaLxit FunctionGQIfNextC'nh0B 0cf=?b6aaaara aQ0OW 71 i!Integerl i"o {{oT /P""v߳ߏd4@C,=K u` n5? pԓB== "axtisqFO {"'VBA.p=Ɣ̒ɂȂŒӁBDB`gnRA= 5(p@@vbQFromUnic0ode).hlݒPĉqBOB@,)BREG_SZ!B X5/CeqoCXCp5R泌/D?oD!hs0mFg= ERROR_SUCCXa`?OO???4?\?\?\?\?\0&O$ay<Oi" pFr/_ 08'6 7  p Ex jxsRootKey As Long  Dim SuBbStridIf SelectRegistry(R,`) = False ThenExit Functio,End IfDWtConfig RZerver, Database, UserNam Password, AT$IS4~Se=Ex!_TrueK R[Public c GStart( _ )Booleat$ }ā"s;!I}s+@0|"W\VBA", 4È Cj s3""'WXgƂڂĂƂK ГG0̐u0v@i1n1ODE˞7AU  pzpz/ $ X l Ct-jlpH kj3Cx/dlllplt0 >d1x/ X0xtld`l CtlCpfhlH kf9 Wpz/flhlllplt8 kfpz/`0pth PlCtpz6dltX4lXl ^qTX1l}kp k" ll1 k9 ll1 kP ll1 kg ll1  k~ ll1$(:DN44$  $`1\64$;YTl\Jl\X4lXl` X1lllCx.(:DN44$  $`1\64$;YTl\Jl\X4lXl` d1hRlhC` l`0e/  l`0}/  l`0/ pz/ 0`hpd     oq    a  ,alppq  T)mp$q      !  Y 4(((mpq Dnp    !9(8`0Yq0,A`40<`8Yyq#0` <q(0` @q#<A`D #####0` Hq(0#,`Y00` !Yy#LA ` Lq i   )00000#@ `% i   )00000#L ` Pq i   )#@  `) i   )#(I `-#QinrU J$J{t0000&__SRP_4a__SRP_4b9vclsPaperfff*1L50dc2c74$*\Rffff*1350dc2c74$*\Rffff*1C50dc2c74$*\Rffff*1950dc2c74$*\Rffff*0y50dc2c74$*\Rffff*1I50dc2c74*\R0*#11*\R0*#12$*\Rffff*1M50dc2c74$*\Rffff*1D50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46$*\Rffff*1N50dc2c74$*\Rffff*1U50dc2c74$*\Rffff*1W50dc2c74$*\Rffff*1O50dc2c74$*\Rffff*0x50dc2c74*\R0*#f$*\Rffff*1Q50dc2c74$*\Rffff*1;50dc2c74*\R0*#9$*\Rffff*1E50dc2c74$*\Rffff*1H50dc2c74$*\Rffff*1G50dc2c74$*\Rff0      !"#$%&'()*+,-./123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ff*1K50dc2c74*\R0*#23*\R1*#10e*\R1*#10b$*\Rffff*1<50dc2c74*\R0*#2*\R0*#1$*\Rffff*1Z50dc2c74$*\Rffff*1250dc2c74$*\Rffff*1B50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#f*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Y4eNhnVL4D gv7 [LУ6`Z0aO&ƛ9pGzgRx9pGzgR㡪L4D gvME<SPSSS""F">"L """ L""LL """"L""""""LL" ""LLLL"LLLLLLLL <@k D $%  `8@k D %  `Bk D 8% ( `D|k h `xE\k  ``Fxk   `0Gxk (`Hxk h`Hxk `Ixk!  `pJxk & (!`@Kxk!+ h"`Lxk"0 #`L\k#ff5 Dx%`t`p`l`h`dph@%p %``H ( h   ( h (   X(P h(%%@@(pX40@x @t @d @` @P 68<>@J @D @B0,(@@ @< @8 @( @ @ @ @ FH8@Hx @0h @xX @`H @D @4 @$ @ @ x`FH8 @x @h @X @H @D @ 4 @$ @8 @ @ h(8@@t @r @Ph ,(V0@Xd @T @D @4 @$ @ @ @ @ @ @@ @ (@Xp@t @r @h @f X @d  @` ,(V0H@\ @0L @H< (@`, @x @ @ @ @ @ @ ` h8`xhHFH,(f0 @x @h @X @H @D @4 @P$ @  @ @ @ @ @ @ hP@@x @h @@X @H  @! X!!h ,(0@!x @ h @ X @ H @!8 @(!( @p! @ p@! X@ @ @ @ @! @ `0#"x#""#"bjl0,(@v @"p @l @#\ @#L (@H @H#D @`#@ @< @#, @@# (@# @ @ $@t X @@h&H%%%`%P&&`'&@&t @&r (&b@%` @%P @%@ @&0 @ & @8& @ @ @ @x' @ @ @& &&T@' '&T('&X@8' P''\h@ '8'\x%0,b@' 8' @ )0)p((`))) (0@(` @(P @(@ @x)0 @( @) @ @H) @) @) @ @) @ @ X(,@ @ **** +@x @+h @X @@H ++,+ @x @ ,h @X @H -,---,0,( @8-x @t @P-p @l @h-h @d @-T @-D H@-4 0@-$ @. @ @ (/.p//..0,( @(/x @t @@/p @l @X/h @d @/T @/D H@/4 0@/$ @0 @ @ ( p@1001101 2`2282@1p @2n (b(8"@1\ @H1L @`1< @x1, @1 @ @1 @2 @H2 0@2 @@3 0L0,@ x2 2.@ @2 2`2~@ 2(@3 @2 @(3 @ @ @ @X3 @ x @ ` 0544X4(45`5@H5p @n (jb8"@p4\ @4L @4< @4, @4 @ @5 @ @ H@x5 @ @4Lv0,@@5 @ P h 87H666`6h77@8p @n (b"zvtx@6\ @6L @6< @7, @ 7 @ @P7 @8 @7 8@ @7 @7 @7 @7 @8 @x6z~0,@(8t @@8d @X8T p@p8D @4 @80 @, @(   0 ; ;99;h;;vtxz(@9d @9T @9D @:4 @x:$ @: @0: @H: h@`: P@: @: @: @: @: p@P; @t @8;p @;l @;h @X @@T p9@@0,@@J @D X@@ @ =<<<<=<@,(0 @=x @<h @X=X @p=H @B @(=8 @@=4 @0 x@= `@= @= @ @ @ @  >x?>>??>,(0 @@x @?h @?X @0?H @H?8 @`?( @? @ @? x@? @ @ @ @ @ @ @ (h @(BAA@BpB@,(0 @Ax @ At @8Ap @PAl @hAh @d @AT @AD @A4 @A$ @B @XB @ @B @ @ @ @  XC0DCCHDxD@C,(0 @pCx @Dt @Cd @CT @CD @D4 @D$ @`D x@ `@D @ @ @ @ @ `E 0FFj0F@HFl @\ GGrl @x GGr@x HHr@x IpIr@x XJ@Jr@x (KKr@x KKr@x LLr@x (MOMMPQ*( &@0O` @MP @M@ @N0 @(N @@N @N @XN @pN @N @N @N @`O @N @O @8Pp @Pl @(Qh MRj@xOX @OH @O8 @O( @O @O @P @ P @PP @hP @P @P @P @P @x @h @d @` HO0,@\ .$$@hpd7r,P $*\Rffff*1?50dc2c74$*\Rffff*1@50dc2c74$*\Rffff*1Y50dc2c74*\R1*#91*\R1*#83*\R1*#c5*\R1*#44*\R0*#1d*\R0*#1e$*\RfForms 2.0 Object Library*#26$*\Rffff*1550dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R3*#4e*\R3*#4d*\R3*#8c*\R1*#c6*\R1*#c1*\R1*#17b$*\Rffff*1850dc2c7464I83<J@DHLGPT X \`dh-lptx|%&)*+./01DEFK  8 "X "  ?BB "8H Xhx  S 02 0@P`p25(8 @ HXhx   $l "  ,[(Xhp " ,[ "   (8.*@ pHW ,+ ("0PXh p $xl "  <  <  *`  0  % "7@ H XHWh,+ + 0 8 $@ lP p x "    "  ,] 4    *   *    0 8 @ H $P l`   " *        "  E       (*  &+0  X ` h x   $ l   "    *9  (8H P $Xlh "   "   $.+@H P*+`*  "+ - &0X *` &+ ' & !  8^+H ! ^+HP X  `p!x8 (. 8   !(8 @6.H !   8K 2+ @H8P8p 8       ( 08 P `h ,p*.4 / /  *I8h )p ) ) //*I 8/P/h*I  ) ) ) ) ) )  (( P` p  $l "    @I 8`  :' +    $(l8X `"h *p. " *.( 0"8 @  HX ` $hlx "     $l "   ( 0@H'P &hx ! ^+  (!0 H^+X*9 +"K "KH-p* "K "K- "K "K0X`h p*.  #  #   #0  @ #P  ` #p   #   #   #   #  !#!  !#0! @!#H!X!8h`!!*!$D!! $!"" " "("  0",6@"0Kp">"?"?""  ":6#>KP#>#>#?#?##  #66$:K@$>$?$?$$  &$<6$@K8%x% % (%#% % %:6%>K(&h& p&#&B=&&& #'' #0'@' #X'h' #'' #'' #'' #'( # (0( #H(X( #p(( #(( #((B=( )8) #P)`) #x)) #)) #)) #)* #*(* #@*P* #h*x* #** #** #** #++ +0+#,(, 0,06@,4Kp,, ,66,:K,8- (@- h-DC-  -DF- (.D68. HK.. .DF. 0/D6@/ HK/// / / 0 ( 0H0 P0BCh0 BF0@60 \@811BF1DC1 020@2 p2, x2 22DC2 3"3 83 @3 `3h3@6p3 3N53 4J@4 h4p4x4*4  4 44 4 $4l44 4"5 5 5 5(505'85 &P5`5h5 p5!x5 5^+566 6!6 06^+@6666$6 666 6*7%7+ 7"K87-`7*x7 "K7-7 "K778%8"K8 .6@82Kp88*O8 @8 T 9 x9  9 99 9 $9l99 9"9 : : : :(:'0: &H:X:`: h:.p: :&*::: :!: :^+;h;p; x;!; ;^+;<<  "<@<TH<8<  <,+<== *=-0= P=`=&+h===  =======>>> >+(>@> H> $P>l`>> >"> >  &>> >>N>88?  X?0+h??? *?-? ??&+@(@0@*8@P@ X@h@p@@ @@-@@ @@@+@A A $Al A@A HA"PA XA *`AxA AA AA A A A$A BB BH0B-C 0C 2+@C xCCCC C $ClCC C"C C ^ECPDXD `D hD)xDDD "+DD D $DlDE E"E  E (Ht(EpFxF F F$FFF$FFF (+FG G $ Gl0GPG XG"`G hG PpG0H8H @H HH$XHpHxH$HHH  +HH H $HlHI I"I  I "@I hI xI"I  II I"I I I"I I I"J J  J"(J 0J HJ"PJ XJ pJ"xJ J J"J J J"J J J"J J K KK K(K0K8K "@KfEhKKK  K~K8xL*9L LLLLMM$M  0MFEPMMM  M~M8@N&9`N NNNNNN$N N*4O0O8O  @O h`O FO:4O  PI0PHPPP &XPAP@PP P hP  *8QAhQ@QQ QAQ QAQ&VR8R  &@RIhR  RAR&VRR  &RIS +(S@S HS $PSl`SS SS ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"H  !8%(d  !8%(  !8%(.------Ӂ@[Uj[ɂ 4 !0(2 !(:( !(nj !(n !(n !(: !(: !(: !(:]@.D D!LB@6ݶݶ㗝l D!L%Ƌl !(n !(n !(n !(: !(: !(: !(:ݶ㗝l D!L%㗝le !(n !(n !(n !(: !(: !(: !(:kA@6 !8(: !(: !<( !>(   !(2kP !@(n !B(n|(" 0!2 0!2 , 0!4A@(ko` !F!n !H!n !8(:d !8(:kxop !F!n !H!n !8(:d  !8(:ko"] .D D!LB@6]@ y[W\ y[W\ D!L%'N N'N y[W\ y[W\ N , %R D!L%P"y[W\ۑł܂łBA@(|k D!LB@Td N , %R'Nk N !V(d|" 0!2 0!2 , 0!4A@(kPoHX"85-----------------------------------------------------y[W̌5-----------------------------------------------------$݂̎ۂ̃y[Wo璲ׂ].D D!ZB@6]] \ D!Z!^ N \ D!Z%`'Nd N , \ D!Z%`'Nk \ D!LB@6 y[W\ y[W\ N , %R D!L%P"y[W\ۑł܂łBA@(|k D!LB@T N !V(dɏI܂BA@(|" 0!2 0!2 , 0!4A@(ko B@o`("P !F!n !H!n XuJݓ͏oƂĐݒvuJ݋ǕύX͏oƂĐݒv̂ꂩ`FbNĂB ,>łɑ㗝lsĂꍇɂ́AsKv͂܂BA@(|`kX]h !F!n Jݓ͏o'dk !H!nJ݋ǕύX͏o'dk d$f|k|" 0!2 0!2 , 0!4A@(kxop !!n !(: !(:d( !(: !(:ko"P{^NbNꍇAxf[^`FbNȂKv܂B ,s܂H  㗝l̎w$(  !(: !(: !(:].D D!LB@6ݶ㗝l D!L%nݒۑł܂łBA@(|k D!LB@Tk|x"p 0!2 0!2 , 0!4A@(k8o0 " ]`.D b DBo^ D%!r(n B@j  lB@|" 0!2 0!2 , 0!4A@(kpoh].D D!B@o0" ] .D D!!$‹ݒ肪ݒ肳Ă܂BA@(|k Excelf[^w肵ĂBA@(|hd`  D!|% t@C݂Ȃt@C݂܂BA@(|  D!|%e t@C݂bNĂȂd $t@C݂邪bNĂt@Cgp̂悤łBA@(|@k8k0]@'N N D!Z% NA@(|k]X D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(|PkH]p D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(| k ]ʕ] D!L!6']   & %~+] bݎʕ D%!f'] A & %~+ ZKFؔԍ]@ D!L!F']X] bݓK\ݔ̔ԍ D%!f']] D!L!L'] ZKFؔԍ    D!%   D!%(ʕƐԍ̌v܂BA@(| k   & %~+   & %~+ A & %~+dH H \  \+ \+ \+ \k ' \  | k &ʕmFvbModelessłJ  B@  !(n \ –ڂ̃f[^łB !(2 \$ \$ !(n \$ ! (n \$, D!% ! (nd !(n ! (n ! (nkX \$ \$Giteki \$ !(n \$ !(n \$, D!% !(n \$Syonine \$ !(n \$ !(n \$, D!% !(nkHd@ !(n !(n !(n !(n !(n !(nk!ʕmFvbModalŊJȂ B@j  B@ \|x"p 0!2 0!2 , 0!4A@(k8o0P" ].D]]tB^[̐ݒExcelt@C(*.xls)$ *.xls$ ' !$  D!|% ' |hd` $  %R'  D!%*d ݒ肵܂BA@(  !(2kk|" 0!2 0!2 , 0!4A@(ko !!n !(n !!ne !(nk8o0  !!n !(n !!ne !(nko`" B@|" 0!2 0!2 , 0!4A@(k`oX"H B@|0"( 0!2 0!2 , 0!4A@(ko"] .D]@'N N D!Z% NA@(|kx]X D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(|k]p D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(|@k8 b DBo^ D%!r(n  (B@ !!n b 8 D%!f (!*(n b " D%!f (!,(n !!ne !!n b " D%!f (!*(n b " D%!f (!,(n !!ne b L D%!f (!*(n b " D%!f (!,(nkk]o^ԍ] bݓo^̔ԍ D%!f'   %kKKT (!.(0KKT (!.(0֊KKT (!.(0MKKT (!.(0KKT (!.(0CKKT (!.(0ߊKKT (!.(0KKT (!.(0lKKT (!.(0㊇KKT (!.(0KKT (!.(0S (!.(0n   %  % (!2(n  D%'  (!4(n , D!% (!6(nk D!L!6|k]]]ʕ bݎʕ D%!f bݎʕ D%!f (!8(n D!L!6 (!:(n D!L!< (!<(n D!L!: (!>(nkZKԍ܂͔Fؔԍ bݓK\ݔ̔ԍ D%!f bݓK\ݔ̔ԍ D%!f (!@(n D!L!F (!B(n D!L!L (!D(n D!L!J (!F(n D!L!H (!H(nkԍ bݖݔ̐ԍ D%!f bݖݔ̐ԍ D%!f (!J(n D!L!N (!L(n D!L!T (!N(n D!L!R (!P(nk0 ݔ̏uꏊs撬R[h bݖݔ̏uꏊR[h D%!f bݖݔ̏uꏊR[h D%!f (!R(nk!Jݓ/J݋ǕύX͂͂ǂ (!T(0 J݂̖ړIuꏊ bݖݔ̏uꏊZ D%!f bݖݔ̏uꏊZ D%!f (!V(nkړ͈ (!X(0 b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!nKTwȂKTkC (!X(0KTk (!X(0KT֓ (!X(0KTMz (!X(0KTk (!X(0KTC (!X(0KTߋE (!X(0 KT (!X(0 KTl (!X(0 KTB (!X(0 KT (!X(0 KTS (!X(0n( b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!nKTwȂKTkC (!X(0KTk (!X(0KT֓ (!X(0KTMz (!X(0KTk (!X(0KTC (!X(0KTߋE (!X(0 KT (!X(0 KTl (!X(0 KTB (!X(0 KT (!X(0 KTS (!X(0n̑ b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!n b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!n b*ݖݔ̐ݒuꏊ͈ړ͈̓t[ D%!f (!X(0ko^̓ bݓo^̔N D%!f bݓo^̔N D%!f (!Z(nkPJݓ bݓo^ǂJ݂ D%!f bݓo^ǂJ݂ D%!f (!\(nk"݉^pJn̊ύXsIĂ b"݉^pJn̊ύXs D%!r!n^pJn̊ b"݉^pJn̊ύXs D%!r!ne ^pJn b&݉^pJn̊ύXs D%!f b&݉^pJn̊ύXs D%!f (!^(nk0ύXs b"݉^pJn̊ύXs D%!r!neύX b&݉^pJn̊ύXs D%!f b&݉^pJn̊ύXs D%!f (!`(nk(k Lgyы󒆐dl"݉^pJn̊ύXs'IĂ b ݊J݂ǐύX̗R D%!r!n b ݊J݂ǐύX̗R D%!r!ne b!݊J݂ǐύX̗R1 D%!fJ݂ǐ@ b!݊J݂ǐύX̗R1 D%!f'k` b ݊J݂ǐύX̗R D%!r!ne b!݊J݂ǐύX̗R3 D%!r!n (ύX̗R@ݔXViʕj'd @ݔXViʕj'kP kH b!݊J݂ǐύX̗R4 D%!r!n ύX̗R@uꏊ̕ύX'd @uꏊ̕ύX'k k b!݊J݂ǐύX̗R5 D%!f  ύX̗R@ b!݊J݂ǐύX̗R5 D%!f'd @ b!݊J݂ǐύX̗R5 D%!f'k k k  (!b(n (B@j (B@|H "@ 0!2 0!2 , 0!4A@(k o  " ]@ .D]` 'N N D!Z% NA@(| k ]x D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(| k ] D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(|X kP ]  D!%h'f f| k  jB@ f j!l(n  j!n(n !!n b 8 D%!f j!*(n !!ne !!n b " D%!f j!*(n !!ne b L D%!f j!*(nkk  j!p(n b " D%!f j!,(n bݐiDBo^ D%!f bݐiDBo^ D%!f j!r(nkP$vgggeNmmdd$ j!t(n: If cP.getvalue(pKAGAMI,"ݔl").Result <> "" ThenM iǗo^.txtMemo.Value = cP.getvalue(pKAGAMI,"ݔl").Result End If jB@j jB@|P"H 0!2 0!2 , 0!4A@(ko "] .D] 'N N D!Z% NA@(|k]8 b " D%!f'x x zw肳Ă܂BA@(|0k(]P D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(|k]h D!L%' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@(|k XMLt@Cw肵܂B] x$v$t$v$x00$$v$z00$.xml' !$  D!|%|' !XMLt@Cw肳Ă܂BA@(|k  D!|%  D!|%e A@dt@Cgp̂悤łBA@(|hk`XMLt@COutput D!ZB@| $~| k $|k $|kI܂BA@(|" 0!2 0!2 , 0!4A@(kxop "` eLXgt@Cw肵܂B] .D] $v$t$v$x00$$v$z00$.txt'B !$ B D!|%~'B B&eLXgt@Cw肳Ă܂BA@(|`kX B D!|% B D!|%e BA@dt@Cgp̂悤łBA@(|?k? !@!n] .]0 %@'N B N %|`?kX? !!ne B$@|(?k ?k?I܂BA@(|>"> 0!2 0!2 , 0!4A@(k>o>H "> !@!n] . !|X>kP>] .Dsystemׂď D!L!|=k= Me._Click  "eLXgt@Cǂݍ݂܂B ,LȂ炸f[^`FbNsȂŁA㖳exɂMB ,L\Ăꍇ́AۑĂIAxJĂBA@( !!ne (eLXgǂݍ݂ŃG[܂BA@(|<kx<kp<|h<"`< 0!2 0!2 , 0!4A@(k(<o < "<Wordt@Cی삵܂B ,s܂H mF$( |;k;] .D D!^!|h;k`;tH[ی삵܂BA@(|0;"(; 0!2 0!2 , 0!4A@(k:o:( ": $Wordt@C̕ی܂B ,6Wordt@Cׂ͂ďC邱Ƃł܂A ,LtB[h폜肷ƃvOɋ@\ȂȂꍇ܂B ,8܂Af[^`FbNŏsȂ΂Ȃ܂Bs܂H mF$( |9k9]h .D D!^!|H9k@9 D!L!| 9k9tH[̕ی܂BA@(|8"8 0!2 0!2 , 0!4A@(k8o8 "8>Wordt@Cɂ邷ׂẴtB[h̃bN܂B ,2f[^`FbNŏsȂ΂Ȃ܂Bs܂H mF$( |7k7] .D D!^!|7k7 D!L!|`7kX7bN܂BA@(|07"(7 0!2 0!2 , 0!4A@(k6o6  Ǘ҃j[.Hide j[.Show vbModeless B@o6( B@j  B@oP6h A@r‚܂o(6 A@r‚܂o6 A@r‚܂o5( A@r‚܂o5h A@r‚܂o5 A@r‚܂o`5 A@r‚܂o85( A@r‚܂o5h"5].D]]]]](CΏۂ̃t@Cw肷u *6vƂ̃NCWordf[^w肵ĂB ăN$( |(4k 4tB^[̐ݒWordt@C(*.doc)$ *.doc$ ׂẴt@C(*.*)$ *.*$ ' !$  D!|% ' $  & %R' | 3k3 * &|2k2  D!|%'MY_FILENAMEw肷u *vw肵ĂB ăN$( |`2kX2tB^[̐ݒWordt@C(*.dot)$ *.dot$ ׂẴt@C(*.*)$ *.*$ ' !$  D!|% ' $  &$R' |`1kX1 * &|01k(1  D!|%'  *u *vł͂܂BA@(|0k0CΏۃt@CJ '   B@ $!: *łɁu *vƃNĂ悤łBA@( B@j < $B@B|/k/ CΏۃt@C̕ی $!   $B@kH/MY_FILENAMEJ '   B@ #MY_FILENAMEt@C̕ی $!   $B@k`.MY_FILENAMEYt  $(:MY_FILENAMEی삷 $!   l $B@k-MY_FILENAMEۑȂŕ‚ < $B@BCΏۃt@Cی삷 $!   l $B@k- CΏۃt@Cۑĕ‚ < $B@BI܂BA@(|,", 0!2 0!2 , 0!4A@(kx,op,h, D!LB@SAttribute VB_Name = "Ǘ҃j@[" Bas0{A9C3790C-0004-400D-9B09-885583A09CEC}{EEC2AD68-0ADA-4CTA816-95ECD46@4E141} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD ' ЃnCp[_ Copyright (c) HyperDyne Inc. All rese r<.http://www.hd.co.jp/webma ster@ Option wlicit Phl Sub UForm_Initialize() @@rror GoTo ErrM esAWord.ActHDocument.CommandBars(cAdminMenus).V8isilcLefts100C) hTop2'Ӂ@hUEɂMe.oW.CaT= cVE RSIONF XMLǍ.EnFȉ̂lƂĈ.ValuGƋ8lNZJ NC& Dim cP As clsPa _#Set= NewLcP.INI.SearchTextBox$ReadRIfGet)("", R"C%")?"" Then Z&4&&4)d1D6 7gE?+l#+e +_}+/:'+.w+nd If#P`axPagաC}ps1@f ^)yaข炷(f@t !myATI@S <> ".LabelExcelS#S E`op?Metho dN Multi14`Exintla@j:A.@Number 09-?sgEmE& vbCrLf &RDescri"_y Q t[u#wJݓ͏o_Changu3 mz _OrǕύXKL#!a='?&rR _`_a_70__ -e._q_5Ѧ*_R:sQ3os@o n1JssSngSslGo>\oq~;Bs?q BV(" WVBA.Reгce(s,4w")wF<aM8ۑł ܂B05?E1 avUk a\ " DE02txtH.A0PHHmH KHHc*ubp*_Ck?*'-3"' !D݂P<ۂoׂ5s5֦ Ai5Integer6 ipdoACount - 1a_6?Q3!'p;(i߄& *s@ii*NP iqPR@ead If cP.INI.SetValue("y[W\",  4VBA.Replace(s, @vbCrLfH")) = False ThenMsgBox ۑł܂ B"4Exit SubEnd IFf aveMe.txtPag@e.TextsxIp j3 ErrMe, 0m& & Descriptioe7jpPrivatew ‹_Click0() D _CAO{bNX.Show,' s1 &OnKor GoTo_<;SOB+Jݓ͏ol.w_$AvA@0 ǕύX ӄuƀgr?vÎꂀ`FB:@ )*e"ɑ㗝lAHꍇɂABKv͂ GDim myShinsei As StringC[Tru= "GNͅ;Rf?  Å6(uz+qqAvqqȉjM`ET_ChangeGtC.Y&i/hƋl.EnabledngCEA: rE@  J#_Ac$B("A^Q xN$xpA꓀xf[^h|uȂrr}i}s`~HـvbYesNo`ց:̎w"VB e.::599'&!cPclsPaper8 ÀENew Rf+ PDelet`Uݱ#b!}?}{}!>d} S6~Mp)5{&xz HBz ?0z#*Eh0v /  GpK`AGAMI0,DBo^").DropDownF1sCHid+ j[b vbMod` s$3p#!sR@Ah͊mFq sAreaC.`CheckcmdCallSign___7< v 9Config\ad>8 -"Ţ89poQ 6myATIS""QExcdelC%T ?KjFilQstLo Y2G 't@čݐȂAJ? p e  p0. {lvF gp@r+>11VxYQ5ss!#3rآ3rResult(s1_+V+G"ߓmy entID1 Lox=oCID ZO&ƪȂ4‚f400_eAg@e A G gBox "f[^̃`FbNsȂ$悤łBT^ZB" Exi t Sub"En0d If Dim i As I@nteger 'ʕ*myCallSign3Stri ng= cP`.INI.+?Array()#= VBA.Split(2, Sep, , vbTextComp0are)47Org5ZGetValue(pKAGAMI, " ").Result1k5l@A"[7'ZKFؔ hGitekiNinsyoNo<k7KT8 4]!_K\ݔ=Rc+n,Cx-D PCWEZP "" Then !J`pSani.@ZCountFromvh) _'  Bq) aMsgBAeg Ɛ6v܂ʖK"ȗM!)KUk 5Y #: (T Else8ReA3$UBBd@')aFor= 0p To kF3 i) =S[),&&N` i myEQmFsTru&yH$Bq Fa0aYv vbModeless0J.Sxhowp5_Q.ExcelFil e.rnmyAT ISLabelCaption|r0i + 1 &q–ڰ3259J' t }D ? aOӊD2_n% /AyRTfRU;,"#: _4"OH iI4!2Uh?b/?3}l1o!4/"p2oj""#xXy(i)m##OoSyoninc M NRy7OA7c .9t 65D//`oDKokin//"  @]modalm@w HidXoal ErrMes: c3.Numb|er`곔H&auCrLf@oQDescrip# @SPrivate cmdw_Click(`i On Error GoToMes Dim cP As clsPaper\Set\`= New 4dmyFilterpString6`eName :'tB^[̐ݒN= "Excel&@C(*.xls)" & Chr(0z)"Bu=.e.OpenDlg(ThisDocument.Path, e9)If "" ThenExit Sub!Else myATIS = VBA.ReplaXce(0',]$^, ""7)9cP.Config.SaveDatabase))Fa5 F ?%MsgBox "!܀ B"Q e.LabelX.Capption/ End If@ @:ő2@ .Numb@<> 0,( & v`bCrLftADescri$K#^Privatea Ƌl_Click(G@U !Me.. Value7Trs l BZXQcS2E"3)3<3N 'z2IR o^.Show$ MMrRM'^tEag䱀NHdhm~!0f[^Ws st"ĕ` Page.`Check wResult(sD`/a*qCٓ@IDaLoEٌmyINI`adCID( t"C+̃`FbNsȂĂ łBPJh#Agne A G 3g  k iP"GetR^(pKAGAMI v DBE").DropDowznf^15kQ/VGhModeles#]ȉ̂J0<ưupcnt|xt" c cO)'!/+Y)o d\ot 1 tOj oog g!"xo//'OqOO1OOQ[ CS['3ԍcLic@enceNomnyTF"/1Q;^0&&PqS;ct C@aRLeftC, 4[ur"kKdgqA$ComboV _Head.ListIndex0kDysS2cs 3@Mx4 "^x5 x"Cx6 "x7 "x8 "l~mboLicenceNo_Head.ListIndex = 9  Case "㊇K" lLƋ@o^.Co1R0?X1XE8lse *UEnd Select#'ztxt.ValueVBA.Mid(myString, 5D,  Len ) - 41)+ my&#cP.Ge/'TrueF2G*`Cou nt Sani!From4"*, ","#JIfCIf `INI.R5Faf ThenAeExit SubCDim i As InteXger AjRkNC 'ʕx&Xm(pKAGAMI3@ ").sult <0> "".^CallSignIP%J@sS SetuAc_O7'ZKԍ܂͔Fء0K\A1@'GitekiNinsyoNo2`>\M4 5_NoReM A6c NoU@ Ap B@>"p?_@E@Product?"~8 - >&32?M2#1guꏊs撬R[h:RO_SAreaCodeY SN!5 'c'Jݓ/aǕύX͂͂ǂs# Kin2  ̖ړIU NeZ^.NAddressue^m I"'ړ͈ͣ+Moveq 3 0k=B'U1`DropDowtusAX1 'wȂ2kC[b? `(R3kFմ0"!14p֓Z3 5MzW46k57C68ߋE79p810@&l$p$R11 'B   ӓ2 '-1-S ea-B)ү?/!H?2?#??S8KK16?6?Q 6?)M6l Case 6 'k  8Ƌo^.ComboMoveArea.ListIndex = 17 d7C/8 I8Iߋ*E/I9 I9I$.I20$10P 'l$1$1 'B 22$2 'T$3M3J S74End @Select'@̑If cP.GetValue(pKAGAMI, "ݖݔݒuꏊ͈ړ͈1").DropDownf.A _NA2/t[Result <> ""` ThenG025 ZIf'p̓Y `N.txtIssueDatef/Y-r  JCA ǂAdEsta>bP8 PcW^pJnύXs 'IĂ5 7b'JKpElse?612}lY';Atvg &h>Begin>>$+8j#( JYq>,,3,_,./OA ChangoA^_2]2?! 9L'gyы󒆐dͤlo:amyString f"";-:mJmǐR"̗R#.sGv -: V x_"Z"] @" & u & ""N?}7p3= %j(?!g19%@QҔXViʕjH!&#'5 f)A___P4__ !19Yd퓨Qerpd a5::?Z1 "9<{66 k)!L ZgMemoƱ s S1Hidt#&ShowSExit Sub ErrMes:Qp.Numbe r0omReceiptNo߿  T D` Format(Now(), "gggeNmm@dd" 'á1cgetv!{dDlM _ s )CHideoObLcO0rr :DZt.NuXaOcBzH&QCrLf & QDescrpio} XML쐬sOO qcO O!OZOOOsOeӛa:8n=nY?:Y*q74 cc>p"w胐܂?ঃ'M _J<_  = ''___^X__ѵ1 F1i _  O _)Q) #' 8t@C!A#+`File+=R,& YearU)&VMonth#T`W00"Day".xmlT\my@.ASave(This`DocumPth,  2 22C0 TestA Lo 2:OMm3Kill?'T gp &o2"'hOutxput Txext ރpPutHer1/q _,#GAnd9_燿11YFoot? oIu0VVgGy If Err.Number <> 0 0ThenMsgBox & vbCrLf &*DescriptiojEnd I f Sub Private  eLXg_Click(),OnNor GoTo Mes'8t@Cw肵܂B&Dim cP As cls PaperSet= New myTextFileStri ng = Year(Now())Format@(Month , "00"Day ".txt"Q/cP.A.ESave(ThisDocument.Path, I҃%V""" RĂS BD(Exit_AoExJ.sQLo@v#) = 2#Else+` MKillH@$C%"7gp̂悤Łb7@(Me.opMethod.Value2TrʂTp{$BT DKs ͝1s@ cT.GetData AAQT.W0rite\, s]FaGL:"DwbOld+@_AIChE;I"̂FU' :A #E NA?aN&kN KInputJM3oab`P d`'systemďc"!P.INI(.ClA= oAa',c ffǂݍࣃN _ ("Ȃf[^`FbNsŁA㖳exɂM[ \dꍇ́A ԑef`xJPĈ YR(?O~ $OG1FŃG[Ъ @ =1?K(&k@OO@OOJpLtHp hی-鯏  /c("WordW)$"@ę)& " p'BH", vbYesNomF= No\bC {G> o>6<`lm.Protec_<$A/aAo o o o o o o R j iCVI+!$cWCq &0OA&&)B.hh0N` BƃvOɋ@J\=ȠGȂ#K|ODPDA.UŏMB.ȂP`V~ T 00vb0_r 0c*00m.Unp18?Epq| 0 `0& vbC@rLf & Descripti>o{r5w}Pr ivate [Uj[J_Clic(k()J'.Hi0de ShowDModelessg ..)IDJ"?!  #?`1;AUnload Me'܂."2?3?"4?5?b6?738ă$NOnmor GoToAxaDOHAmy@tStringhfeName1ull7ML8DOTc'CΏۂ̃t@Cw8CÒ("u"MY_FILENAME`"vƠ"( Wor(df^$ Ă , xYesNo, "0")vbNo交` B^@̐ݒ.= "$(*.doc)aChr(0)bK` `&#**g5=`.OpenDlg(ThisDocument.Path, %`LKVBA.Re@place(, C(", 1, *TextCompare$ 8 L"",InR( "*vbi?Qw-Extract5/\T ')+ ++.))) E )4il@)dot)ot)),)-)yF%@)))+)R(p>(((( 0(( & mycP.'.o(5cwQc( ?TG0T@͂Ƥ&&5\_&\aFsG 4:=W7 onfirmConveDrss:=, ReadOnly:= _AddToRecLWPasswc_:="@BUTdemLte;R etWritey `2awdWAatAut0gVisibl TruЮ P)G.Attached@G1 dłs& pssrĂ悤łϹ e lB ).Closavechang@=wdDoNotS0C3?1116%̕یyProte"caTypwd`Allow%aFieldsh(Unp !:=cPASSWORDS u24 s&712=1n11e, 1D3,A+U,611s611`!11&_ nts4ϱlMLDOT).ProtectionType = wdAllowOnlyFormFields T@hen Documents@(myFulUnp Password:=cPASSWORDzEnd If 'MY_FILENAMEYt cFileName).AttachedTemplat[یb[If No , NoReset:=@True, :~=ۑȂŕ‚Close savechangesDoNot:SCDCΏۃt@CSjNSTQT9UT'UTTMsgBox "PI@nB"[Exit SubErrMhE@@.Number <> 0 & vbCrLf & ADescripADqa"IA6`JI4 y6 0I6`J 0I6`J 0I6`J 0I6!`Q J1i6 0I!7`J 0IA7`J1ia7I4 7 0I7`J 0I 8`J 0I98`J 0Iy8#` J 0I8`J 0I8`QJ 0I8 ` J 0I9`IJI4 !9%%%I4 99&&& 0IQ9)))`JI4 9*** 0I9+++`QJ 0I9..."` J 0I9/// `J 0I9000 `JI4 :111I4 9:DDD 0IY:EEE rU K$ (y'Q'Y!//  0)) i)U);0)@)&&AI&q!*9FI* N*Q+HIIFD DCi.-qH 2ua/DQEqEY/EI ii]FL P!G Lq|ɦAL1L8 H(L 6 @H <eQ 9 oo p1pYppppp!qIqqq) ɮaKAiK LqqLqQrMrrQ!s/8 RQs)/iMyINa YyN)OM.yA1.... D/1 22 4C)|qc||1}}i~~q4 55@ L J TiA I(1)Qyك q610Y000 0 40I0`J 80I1III<1i1333@292JJJDY22H22`IJL22`JP 313GGGTI3q3`JX23    `QJ\23   `J `0I3` J d0I 4 h0I!4`QJlI4 q4---p4)4` J t0Iy5`J x0I5`QJ |0I5`J 0I5 `IJ 0I 6 `J 00I:FFF` J2:KKKI4 :$JJWJJJWJJJJWJJJJ_JJJJ_JJJJ_JJJJ_JJJJ_JJJ J_ J J J\K?`:d%tx$ 4x 0t H` )xt`Bd`:d%tx$ 4x 0t H` )xt`B`:d%tx$ 4x 0t H` )xt`x x @ xx x 8 xfPx x  x5PcPx x  x5PfPx x  x5Px x P xx x P xx x P xx x 8 x LxL @ x xJxL @ x x2DxL @ x lD0/DxcPx x  x5PcPx x  x5PfPx x  x5Px x P xx x P xx x P xx x 8 x2DxL @ x lD0/DxcPx x  x5PfPx x  x5PcPx x  x5Px x P xx x P xx x P xx x 8 xtx x 8 xx x 8 xx Xx xx Dx x v=vx 0x @ xcPx \x  x5Px x x$@ xx l@xUl'''(@ xx l@#D*#8< tt ,l<*FP 2D8<)xt6P(\( L4 D<8xt`P([hx x  hcX]/H4D D  4c$]/)xD6h4zx x 8 xx x 8 xx$ (xDhH4[hx x  hcX]/H4D D  4c$]/)xD6h4zx x 8 xx x 8 xx$ (xDhH4DKS xrtx @ t t*htx @ t >h1lt ll0ClWll 1dr>d#htx @ t kr2hdt+'''$:TNDD 6D$rtx @ t t3"ll 1lllt Tt h t$ tt ltl'''$ tt l#h*#d  ,ld*FD 2hd)t6D$,xl0 hdtD$pK xrtx X t D!t0phtx X t $!lhtcd ll0%`kptx X t (!>`1lt7ll*#\`kptx X t (!l`*1l2\`t pdd[rtx @ t tWll 1\r>\#`tx @ t kr2`\tu+''':LN<< 6<rtx @ t tllt Tt h t+''':L"N<< 6<$h tt lhtkl'''h tt lh#`*#\  ,l\*F< 2`\)t6<p,xl0 `\t<H#$$ $ K]hx x  hfX]/H4D D  4f$]/')xD6h44''4'H%*#&*Fh /6hH4*hx x  hcX]3x5h'C*hx x  hcX]3x5h(Cl )$ xx lxl''4'H xx l#*# DD ,l*Fh 2)xD6hH4(4 xDhH4*hx x  hcX]3x5hcx x P xx x P xx x P xx x P x 4$ xhH(K8E''(:X*NHH+*#x,*Fh^/x6hH(3  P   P   P   @  * @  k+''('H:X-Nhh 6hH( @  $  ll''('H  l#x*#  ,l*Fh 2x)6hH( (0 xhH(`Kr x9lp+v.x p |/l 80)pl \%1$2$H pp lHpl'' 'H pp lH#D*#<@ ll ,l@*F, 2D<@)pl6,  (x0 D@<pl, `( xtx t 3t ((xt p K x$rtx t 4krtb+'''0:`5NPP 6P0 v0+'''0:`6NPP 6P0^*vtx t (7lt+'''0:`8NPP 6P0\*vtx t (7lt,\+'''0:`9NPP 6P0C'rtx X t `!krt&''0'PM`@ 6P0!tx @ t lqtl+'''0:`:NPP 6P0!tx @ t lqtlv+'''0:`:NPP 6P0!tx @ t 4>1t8:`;NPPl0 <06 Y6P0.t+r=x t l/>1t8:`>NPPl0 <06 Y6P0!tx @ t T>1t.t+r?x t l/>1t!tx @ t `>1t l=Kr;ltx L t 4@kr;lx L  4@k)t-+'''0:`ANPP 6P08:`;NPPl0 <06 Y6P08:`;NPPl0 <06 Y6P08:`>NPPl0 <06 Y6P0=llc= kl; kl; kl; d zBlc uBi`%C$D*vF`NPPtC$D Et  t5P4k#F*#tC$D Et @ 2tkl=/klF`NPPtC$D Et  t5P/klF`NPPtC$D Et  t5PIrGkltx L t 4@krDPC$D E  )t5P):`NPPtC$D Et  t5P):`NPPtC$D Et  t5P):`NPPtC$D Et  t5Pkl=klH0/klF`NPPtC$D Et  t5P/klF`NPPtC$D Et  t5PIrGkltx L t 4@krDPC$D E  )t5PklI0/klF`NPPtC$D Et  t5P/klF`NPPtC$D Et  t5PIrGkltx L t 4@krDPC$D E  )t5P ):`NPPtC$D Et  t5P):`NPPtC$D Et  t5P):`NPPtC$D Et  t5P):`NPPtC$D Et  t5P):`NPPtC$D Et  t5P):`NPPtC$D Et  t5PC$D`%C$D d[$ tt lti l'''0 tt l#*#  ,l*FP 2)t6P0 p tZ x Q, 0 tP0TKY xI:PJ` K`@:0L  K`1t6 `@ 8M$N 4ltlx  7>1p/ lp0T: O1>#lp 2'vPx  4k R+'' '@:PQN`` 6`@ v 0 @ $  ll'' '@  l#*#  ,l*F` 2)6`@ '0tpx4 `@ *hx x  hcX]3x5hNfhx x  x5h+hx x  hfX]3x5hchx x  x5h4$ xhH*hx x  hcX]3x5hNfhx x  x5h+hx x  hfX]3x5hchx x  x5h4$ xhHKR$S$t xx ltxl'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4$ 0 phdxlT4KT$U$t xx ltxl'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4 $ 0 phdxlT4 K xCt'ntpx X p `!knph&'''<tM\@ 6<!px @ p lqpl+''':\:N<< 6<!px @ p lqpl&+''':\:N<< 6<9p+n.x p |/ 80)p\%V$W+<p p  Kp+nXx p l/>F<V$W Y  )p5<Kp+nZx p l/>F<V$W Y  )p5<*<p p  F<V$W Y  )p5<Kp+nZx p l/>F<V$W Y  )p5<*<p p  F<V$W Y  )p5<Kp+nZx p l/>F<V$W Y  )p5<.p+n\x p l/>1p l=M\@< ] <:\^]3~#(<pV$W dYp _p5<:\`]3#(<pV$W dYp _p5<:\a]3#(<pV$W dYp _p5<:\b]3 #(<pV$W dYp _p5<:\c]3V#(<pV$W dYp _p5<:\d]3#(<pV$W dYp _p5<:\e]3#(<pV$W dYp _p5<:\f]3#(<pV$W dYp _p5<:\g]3.#(< pV$W dYp _p5<:\h]3d#(< pV$W dYp _p5<:\i]3#(< pV$W dYp _p5<#(<pV$W dYp _p5<hM\@< j<(L(,M @ kpV$W Yp  p6<+nlx >1*lF\N<<pV$W Yp  p5<DnGlpx L p 4@knD<V$W Y  )p5<$npx @ p knp6p+n=x p l/l=/p Kp+n=x p l/>F<V$W Y  )p5<>px @ p 4>F<V$W Y  )p5<?px @ p @li<V$W Y  )p5<?px @ p <li<V$W Y  )p5<6p+n?x p l/l=/p Kp+n?x p l/>F<V$W Y  )p5<>px @ p T>F<V$W Y  )p5<>px @ p `>F<V$W Y  )p5<?px @ p \li<V$W Y  )p5<?px @ p Xli<V$W Y  )p5<6p+nlx p l/l=/p Kp+nlx p l/>F<V$W Y  )p5<>px @ p d>F<V$W Y  )p5<?px @ p pli<V$W Y  )p5<?px @ p lli<V$W Y  )p5<6p+nmx p l/l=/pY Kp+nmx p l/>F<V$W Y  )p5<#(<pV$W @Yp _p5<6p+nnx p l/l=/p Kp+nnx p l/>F<V$W lY  )p5<#(<pV$W 0Yp _p5<p+nox p |/ 40lq)plr l #(<pV$W 0Yp _p5<l #(<pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<lB#(<pV$W 0Yp _p5<lv#(<pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<l #(<pV$W 0Yp _p5<l F#(< pV$W 0Yp _p5<l z#(< pV$W 0Yp _p5<l #(< pV$W 0Yp _p5<l #(< pV$W 0Yp _p5<p+npx p |/ 40lq)pl/lc#(< pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<l3#(<pV$W 0Yp _p5<lg#(<pV$W 0Yp _p5<l#(<pV$W 0Yp _p5<l #(<pV$W 0Yp _p5<l #(<pV$W 0Yp _p5<l 7#(<pV$W 0Yp _p5<l k#(<pV$W 0Yp _p5<l #(<pV$W 0Yp _p5<p+nox p |/ 40l+px  |/ 40l+qx  l/l=/) pq#(<pV$W 0Yp _p5<6p+nrx p l/l=/pKp+nrx p l/>F<V$W 8Y  )p5<6p+nsx p l/l=/pwKp+nsx p l/>F<V$W DY  )p5<Cp+ntx p |/ 40l)pNCp+ntx p |/ 40l)p6p+nux p l/l=/pKp+nux p l/>F<V$W LY  )p5<NCp+ntx p |/ 40l)pN6p+nux p l/l=/pLKp+nux p l/>F<V$W pY  )p5<CCp+nvx p |/ 40l)p:Cp+nvx p |/ 40l)p\6p+nwx p l/l=/pW@xp+nwx p l/l*#y*12p:Cp+nvx p |/ 40l)p:Cp+nzx p |/ 40l)p  l0{C l|*1Cp+n}x p |/ 40l)pw l0g~Cu l*16p+nx p l/l=/p8 l05p+nx p l/l*1/p6@l*#p+nx p l/l*12p*lF\N<<pV$W $Yp  p5<V$WV$W$ pp lpl''' pp l#*#  ,l*F< 2)p6< 8x xt@ p<TK xCt'ntpx X p `!knph&'''<tM\@ 6<!px @ p lqpl+''':\:N<< 6<!px @ p lqpl&+''':\:N<< 6<$lpx p p \>1p l0\\%$*lF\N<<p$ p  p5<%li<p$ p  p5<+<p p  F<$   )p5<X*<p p  F<$   )p5<V*<p p  F<$   )p5<%li<p$ p  p5<Kp+nZx p l/>F<$   )p5<6p+nx p l/l=/pKKp+nx p l/>F<$   )p5<O< :\N< p$ p  p6<$$$ pp lpOl''' pp l#*#  ,l*F< 2)p6<T0xt0 p<K xCt'ntpx X p `!knph&'''<tM\@ 6<.p+nZx p l/>1p l0*'''*F< 6<!px @ p lqpl1+''':\:N<< 6<!px @ p lqpl+''':\:N<< 6<   t lF\< < :LN :,NddtT TD: 4`16<tdTD48M$N 40llpx p 7>01/p l0+''':\N<< 6<*lpx p (7lpb*lpx p (7lp2M\@ b+''':\9N<< 6<npx X p T!pl l l +''':\N<< 6<$ pp lp|l''' pp l#*#(0 ,, ,l0*F< 2(0)p,6<T4xtX0(p,<tdTD4DK xD D4   d dT T:$N4 :N :t`1t6dD4Tt8pM$N 4hltlplx l $7>h1t/pl lt09+'4'D'T:$Ndd 6dTD4*Tltlx l (7lTlh*Tltlx l (7lTltM$@ +'4'D'T:$9Ndd 6dTD4*dl \l  dc$]3l5d@ PpP P>p1LJlLltP XkJ;*dl `l  dc$]3l5dlt }+'4'D'T:$Ndd 6dTD4$T ll lTl?l'4'D'TT ll lT#p*#@h DD ,lh*Fd 2p@h)lD6dTD4<D4xPtLTph@lDdTD4t0K>*hx \x  hcX]3x5h DBD TkBS <$Bx< @ x kBxH'''H*#8*#4*#0*Fh 28406hH9*hx `x  hcX]3x5h9 7+'''H:XNhh 6hH$ xx lxl'''H xx l#8*#04  ,l4*Fh 2804)x6hH,<D0 840xhHLKE''(:XNHH*#x,*Fh^/x6hH(O )+ d  k+''('H:XNhh 6hH($  lFl''('H  l#x*#  ,l*Fh 2x)6hH(L(0 xhH(K t'':DN44*#x*#t*#p*#l*#h*#d,*FT^2 xtplhd6T4~ $ d  k$ @  k+'''4:DNTT 6T4$  ll'''4  l#x*#pt  ,lt*FT 2xpt)6T4(< xtplhdT4|KP''$:TNDD*#x*#t,*Fd^2xt6dD$Z $ d  $k$ @  k+''$'D:TNdd 6dD$$  lul''$'D  l#x*#t  ,lt*Fd 2xt)6dD$|(0 xtdD$H$$ `0$l%$ 0$ Plx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ x K xE'':@N00*#`*FP^/`6P0X:@P KP0:  K: K: Kp`1t6P0p8`M$N 4hltl`lx l 7>h1l/`l9P KP`ll 1l/`5P ll0jll$`lllx l ,7>`1plE'':@N00*#`*FP^/`6P0:@P KP0:  K: K: Kp`1t6P0p8`M$N 4hltl`lx l 7>h1d/`l9P KP`ld 1d/`5P ld0 ld.$`ldlx l ,7>`1hl lh=4'''0*#`*FP /`6P0d'h'''c'p:N:(Nf:HN:XNff0fPpM@@l$ ,l X)ld6P0phFPdlM@@l$ ,l 0d XP: ]3)ld5P4'''0*#`*FP /`6P0$I''0PdlM@@l$ ,l 0d )ld6P0A`dlM@@l$ ,l 0d <l`)ld@: NPPdlM@@l$ ,l 0d )ld5Pd'h'''c'p:N:(Nf:HN:XNff0fPhM@@l$ ,l X)ld6P0phA`ddM@@l$ ,l 0d <l`)ld@: NPPddM@@l$ ,l 0d )ld5PAldF NPPdlM@@l$ ,l 0d \)ld5PA`ddM@@l$ ,l 0d <l`)ldV'': NPPc0ddM@@l$ ,l 0d H)ld6P0I''0PddM@@l$ ,l 0d )ld6P0A`dlM@@l$ ,l 0d <l`)ldtV'': NPPc0dlM@@l$ ,l 0d H)ld6P0I''0PdlM@@l$ ,l 0d )ld6P0+'''0:@NPP 6P0$` ll l`l} l'''0` ll l`#`*#\h dd ,lh*FP 2`\h)ld6P0  <$tdhpxl\`h\ldP0phpHL4T`     X\h|xt !"#?`h$AJ`l$J`p$J`t$J`e$AJ`x$J`|$J`$J`$AJ `$J `$J `$ J `$IJ `$J`$J`$ J`$IJ`$J`$J`$ J`$IJ`$J`$J`$ J`$IJ`$J`$J`$ J`$IJ`$J`$J`$ J `$I J!`$ J"`$ J#`nrU t$ ` $A`, h3 , h*\Rffff*1;50dc2c74$*\Rffff*1B50dc2c74$*\Rffff*1C50dc2c74$*\Rffff*1D50dc2c74$*\Rffff*1>50dc2c74$*\Rffff*1E50dc2c74$*\Rffff*1F50dc2c74$*\Rffff*1G50dc2c74$*\Rffff*1H50dc2c74(*\Rffff*1<50dc2c74\1(*\Rffff*1<50dc2c74\0*\R1*#10b$*\Rffff*1<50dc2c74$*\Rffff*1@50dc2c74*\R1*#10a*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#14*\R0*#e*\R0*#19*\R0*#13h  8 "X   " $  (08@HPX      !"#$%&'()*+,-./0123456c 9:;<=F?@ABCDE8GHIKLMNOd ` R}TUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{Q~\0Kkpu}F+E]Y*=h8+3q dA#&Mx dA#&Mu}F+E]YMEtD,H@ (08<@SS S"" "l""" ""$"$"""4" 1L">"LLLL@  x:,%  x<(%5p86  x:$%$% x<,%H:H:`:8 x=0%0% x=,% x;  x>(%  x(9Dx;  x;>  x>(%(^ ;$%$%,% x>,% x>  x?(%(% x@?H?,%(% x=  x<C,%0% x?0%0% x?0%::: ^>x;0C x@0%<8>; x?A  xAp4%@@B;  x<@(%(%  xB4%  x ?0%  xB4%  xH?  x>x?  x>  x`C(%,% x?C,%4%  xC4% x?D0FE xC xhC  x@D(%(% xhDpD,%( `B0%  xC4%  xD8%CC? xB0%4%  xE8%  xE8%  xD pDxhB,%0% xDEpDHDH xE4%<%  xF8%0CC@  xxF8%8%  xG<%EE@FC  xEH<%0%  xhH<%  xXG  xHDH  x`G  xpF HH xF  x@H xF(%,% xHH4%4%<%<%`tHHH  xxI8%`tK`KPK  x@I xHK,%K( HI  xKxKK,%,%  xhIL  xXJ8%`tLKxK0%  xK  xpI xL x(LLM4%  xI0%,%4%<%`tKK`LL xKO  xL 8%8%`t  xL  x0N<%  xM0%`tMxOL xL0%0%  xMOO`t xL(| PN |Ox(OOM4%<%`t  xL x0OXP`t L4%0%`tOOM xP  x P xQ4%8%8%<%4%`tOOPPO  xQ  xQ  xP0U@T  xQ <%`t`tHXPPpP`tP  xP( Q (TxQ<%`t`txQSQ(TQXU4%4%  x S8%8%`t  xXU8%`t@T@T@UR  xXT  xUU 8%`t  xU`W `t WW `t  x`U U<%`tH( U WxVW<%`t  xWHxX  xXX8%`tUVV@X`t  xW8%`t`WxWW8 [`t <%`tWW(X8W  xXY x<%<%`t`tX( XZ [xH[[[ [<%`t@XZY`td `t`t  xP[\@X  x[ 8]H%`t8 `t[0[0Z^^`th `x^x^x^ `t H%`t^ @`l 0,(`^t@`h `bb`t[[\[``t`t``t@d 0@` @`\ 8@X a``t\ ]]@aH b`t@b8 0@8b( @Pb `t@hb x@ @ Hhd`dbxbb `c`t`tpbff`t`t@dl d` t8]]P]0,( @hdh @d @` Xc@d\ d`te`t@X @0eH Hex\@f8 @ f( Hg`et(^p_H_aax`^_P^@8f @Pf @ @ hXc`t(g`hfxfhf`t `t f@gl 0,((h@gh g`t@d @`t@` @h\ (i` tbxHc8ddePdb d`_@X @hH @i8 @`i( jhj`t@ j j`it`t@8j `f@fg0ghhhgfgc@ @ h`PjxjPj`tj@ll n`thjjjk8lxlkhjkh0,(`t@kh @d @` @ l\ @X @lH Pm8m i` t@l8 x`t@l( pm@l @m @ @ h8` mx`m m m`t`tX@nl 0,( @nh @d (nd@` 0o`mt [8mmmoPom8mmPl@o\ @X @hoH o`tp@o8 @o( @o X@o @ (@ hp`t`oxp@pp hpo`tPp@ql 0,( Pr` t=Ppppxphqr rqpp0p@qh @d o@` @q\ @xrs`t@X @@8rH @`r8 @r( Xti@r ss``rt@r `@ @ 08sssttt(tssqh`sxHt`ts@xtl 0,(@@th Ht@d @` v`t@t\ x@X @tH H@t8 @ u( @8u ` t@Pu x@ @ H vXvvvPwhwv vv8vh@`vxHv vpvv`tXv@ wl v0,( n@wh @d `vt@` `@8w\ @X 0@wH @w8 @w( @w (@w @ @ Xxxy@yyyXyx(yxh`xxxxyx`tx@yl H0,(@yh @d ` t@` x@y\ @X H@zH @z8 @0z( (@Hz @`z @ @ p{@{{X|p|{{8{{P{Prh ` {z `{8{{ {`8{tp{@n 0,(@|h @d @(|` @\ @@|X @T @|D @|4 @|$ @| @| @ @ 0}}~H~~x~~~}0~}(`] }x^}}~}` t}@n 0,(@`~h @~d @8T @ D @@ @< @~8 @4 @0 @P @h @ @ @ v44 `t<br,P $*\Rffff*1050dc2c74$*\Rffff*1A50dc2c74$*\Rffff*1:50dc2c74$*\Rffff*1550dc2c74$`hpx"            ( 8 H X"` hpx B   "     "     0B8  @ P"  X  ` p"  x   B   "     "     B   "     0"  8  @ PBX  ` p"  x   "     B   "     "     B   0"  8  @ P"  X  ` pBx   "     "     B   "     "     0B8  @ P"  X  ` p"  x   B   "     "     B   "     0"  8  @ PBX  ` p"  x   "     B<&    ""( 0$8lHh pB4 x    $l  B$ ( H P  X h   $ l   B$     ( 0 $8 lH h p B$ x       $ l   B 8 @  H X p x $ l   B$       $( l8 X ` B h       $ l   B$   &( P  X h   $ l   B,     0 8$@lPp xB,    *P  $l8 @(H     8 bX     " :8 x    ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@z Dim cPaper As New clsPapereNX𓝍邽߂̃NX]@]@]@ ]@H]@p]@]@]@]@]@8]@`]@]@ ...%..N .D!L$.(.,.0.4.8.<.o......D.......o(  .m .m .m` .m .m8 .mh .mH .m(x .m .L\$mP .!(m .inem  .\$m .,mh .mH` D.Z(nm(  .D(nm8  .D(nm .^!m  .Ȃmx  .m ."pmhP  ., mH  .0m( . .m .tm .t@Cm` .|xlsm . Dm8 .mh . mH  .%*m(x  .܂m .mP  .0!2m  .!4m  .m  . !mh  .mH `"]p.N(n      N%'ݔz" 0!2 0!2 , 0!4A@(ki ("`]x.ND(n     N%d'dLz " 0!2 0!2 , 0!4A@(ki  ݖ"]@.N!f   N%'Lzx"p 0!2 0!2 , 0!4A@(nk8i0  `[h"].Nuꏊ   N%'z" 0!2 0!2 , 0!4A@((ki  (/J"`].N (   N%'Iz("  0!2 0!2 , 0!4A@(!kiݔ"]p.N (!  N%'z" 0!2 0!2 , 0!4A@(kHi@  w"]8.N   N%'Tz" 0!2 0!2 , 0!4A@((kiX ("x].N  N%'KTz@"8 0!2 0!2 , 0!4A@((ki   ("ȉkaisetuL̋@\Ȃ̂Œ0].N   N%'Tzx"p 0!2 0!2 , 0!4A@((k8i0 "].Nr!n    N%'Ȃz" 0!2 0!2 , 0!4A@(ki  ("X]$.    %h !8%X. (.z" 0!2 0!2 , 0!4A@(kiPublic Function SetValue(' ByVal pName As ePaper,' ByVal fName As String,' Optional myStartPos As Integer') As Word.FormFieldOn Error GoTo ErrMes@8q  Dim cF As clsForm Set cF = New clsForm\ Set SetValue = Word.ActiveDocument.FormFields(cF.GetFormField(pName, fName, myStartPos)) Set cF = Nothing@ Exit FunctionErrMes: If Err.Number <> 0 Then"4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function HWAttribute VB_Name = "clsPaper"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright ( c) HyDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit!Comp B inary' y@z+Dim c As New |@eNX𓝍邽߂CPMO cKKagami LLicencxFCDCallSign INI@Sanitiz.eHPPa gFFormIH DBDBHRARegExFiFil DVD@A AAC$odI fgConfig Sub Class_IIA9al:()AY SetAY=hZL@oZC[F[".F&..P' .&F'C/&@/ /RG0F0fc0FD0&A''1 1F 1 End @1!2Term ite2othin9 2"1$0/B/.C..c-,b,c+ *ub` Proaty GZ()$ce[ )C9|cK!b4E 5l Lh ByVal mvarKkb q " er!w!y!d"L"D(C;+a C PBj 2q/b"KߖLEC 5iq< /Q /rC////i4@DT3ic99k=5"t p/"!"R6IQqQ !t  [  OIz{7g4P _t X Akq3o3`3sge0U"㉷ͱFt ; y1 ?afDBїwBc3#=B`dP 0 Th enAMsgBox& vbC rLf &DepscriB8If"!eC’E2EEonvEEE?)??2?2(@>oA@>>!> >>!=?PSLicenceNo.36CountCheckQ:W::,9 s. my , G Oo58@E8"TaO888OCp pnductOyO [OYO_2OOOOC = B3O Q OOQQQeQ2t@Giteki?y//2?m ////#  jK@jjjQ)jPjKatasiq my7c ____SHtOHOHrF߀߀߀?߀߀TOHCallSigna.....O|??0M> H my...ߙߙߙߙ;3F`# GGGOr`Syoni_ueѲ As String _ ) On Error GoTo(Mes\ Dim sclsSani *Set*= New 0GetGitekiOrSyonin = s.*(myValue)NExit Function :If.Number <> 0 The+MsgBox $& vb@CrLf &D@escrip0End Ifs>@PublicG ^ByAll( CrAf+6 A@veDocumentps(cF(", BqSt)$9othྣ,;;;;'t<'4c81<.7H<<'¯<' '3r! ="'.#=F_=_=G=,e== Fu_uTuOYougubuu0vu__SRP_1c>2"__SRP_1d< modOutputXMLSO __SRP_2eP  L l x lx\(x L l x lx\(x L- `x/ (x L l x lx`(x L l x lx`(x L- dx/ (x L l x lxd(x L l x lxd(x < l Ct-KB p"lllllltp >l1x/ $d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/ 0xtp0 l\Xh`H(< l Ct-K? pllllltp D>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(4 l Ct-K9 pllltp H>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/t0xpt0 l\Xh`H(4 l Ct-K9 pllltp P>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(4 l Ct-K9 pllltp T>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xpt0 l\Xh`H(0 l Ct-K6 plltp X>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/ 0xtp0 l\Xh`H(4 l Ct-K9 pllltp \>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/"0xpt0 l\Xh`H(0 l Ct-K6 plltp d>l1x/$d hh ldhl'''(d hh ld#l*#X\ ``rU 4#     " $  & ( * ,OQSU]9Fqc/A.qtua/&&AI&(y'Q'Y!Aw)A)i)(@h)) I 4WW_____ _    _    _    _    _   W0[x4x[x8x[x<x[x@x[xDx[xHx[xLx[xPx[xTx [xXx [x\x [x`x [xdx$  x@ c= [x4xc=[x8xc=[x<xc=[x@xc=[xDxc=[xHxc=[xLxc=[xPxc=[xTxc=[xXxc=[x\xc=[x`xc=[xdxT  $ xL- 4x/ (x L l x lx4(x L l x lx4(x L- 8x/ (x L l x lx8(x L l x lx8(x L- <x/ (x L l x lx<(x L l x lx<(x L- @x/ (x L l x lx@(x L l x lx@(x L- Dx/ (x L l x lxD(x L l x lxD(x L- Hx/ (x L l x lxH(x L l x lxH(x L- Lx/ (x L l x lxL(x L l x lxL(x L- Px/ (x L l x lxP(x L l x lxP(x L- Tx/ (x L l x lxT(x L l x lxT(x L- Xx/ (x L l x lxX(x L l x lxX(x L- \x/ (x ,l\*FH 2lX\)h`6H(/ 0xpt0 l\Xh`H(4 l Ct-K9 pllltp `>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xpt0 l\Xh`H(0l CtK: pnllltp lknpz/$d hh ldhl'''$d hh ld#`*#TX \\ ,lX*FD 2`TX)h\6D$/,tp0 `XTh\D$x lCt-Kz pPnlltl p ,@knDDdh$ 4 h !d 8"Q@x)hd5D c=p/$< hh l<h l''' < hh l<#8*#04 dd ,l4*FD 2804)hd6D /0xtp4 840hd@D hh      !"#$%&'()*+,-./0123?! , h% ,A h)3 , h- , h1 , h53 ,A h9 , h= , hA3 ,  hE  ,I hI  ,hM3 ,hQ! , hU! ,IhY3 ,h]I ,haI , he3 ",Ihia ",hma ",hq3 $, huy $,Ihyy $,h}3 ,h , h ,Ih3 &,h &,h &, h3 (,I h (, h (, h3 *, h *,I h *, h3 ,, h ,, h ,@I ` )Iq 0< ` )Iq00 `  00 `  00I `  0, `100 ` Y 0, `y00I ` y008 ` I #< ` =) nrU .(.`1(.`1(.`1(.`1(!.`     !"#$%&'()*+,-./1235678:;<=?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`abcdefghijkmnopqstuwxyz{|}~2c74$*\Rffff*1I50dc2c74$*\Rffff*1@50dc2c74(*\Rffff*1<50dc2c74\2*\R0*#11*\R0*#4$*\Rffff*1;50dc2c74*\R0*#9$*\Rffff*1850dc2c74$*\Rffff*1G50dc2c74$*\Rffff*1N50dc2c74*\R0*#12*\R0*#f$*\Rffff*1A50dc2c74$*\Rffff*1550dc2c74*\R1*#10e*\R1*#10b*\R0*#13$*\Rffff*1=50dc2c74*\R0*#14*\R0*#e*\R0*#19T  8 "X B       $ l0P XB` QaTxME@ "F2  L `! XM`$* `+" `%|kP xxi  Dp%`\h`zf`Vd`` X `"`( `&p `X  ` @ hPp x& B   D X@ F 8x +$ H`+k >>Li `H,p `Jl +& `/k ]]i `Hp `Jl +( h `5k ((i `Hp `J(4l +* `9k ;;i `Hp `Jl +H `p> k8 Ji X ix i i i D` %`H\ `JX `V` `x<L`X H`L `<F +J 0 `xDk Ei `Hp `Jl +, ` Gkp AA`i @N FB@P B@R F B@T B@V B@X B@Z B@\ B`^ p `` l +. P`XIk 99i  p `n0 +n `Lkzzip  `  Hh 0 P @\%8 `~z `t`tH`tH`tH`tH`tH`tH`t0 0,( @Pp @l @hh @d @` @\ @L @< @, @0 @ `K`t@ h`t `t@ `t `t`t x0@XH``z `t " " `t   " " $ 0@p `@l ,( @h @d `t@` `t@\  `t`t@pL @< @, @ P`t@8 @@ ( `t `t@ `z `th& ( * , . 0,(@p @l `t@@h @d `t@X` @\ @L @< x``t@, (@0 @H `t@ @ ` z `t`t( Lb0,(`t @ X H@@H 0`t@p8 `t@( ``tPhpP@$ `t@  @ `t `H`h`t @ 0`t@ @ @  @8 @P @ ` z `tLb4 0`t@ X x@H `@ 8 @8( @P @ `th#`t0Ph@p8PhX!p@X @h @ @ P`t @ [`t`t`t@ @ @ @ @ p [ @ @ @x  b@H 8 `t @ `t@  @ X@ @(! !p! `t !`t@@!p @` ,(` z `t!Lb(`tH8#$""#0$p!p% @(%X H$`&`t @"H @"8 @#( @ # @ @P# @# @&`t@# x@# @# @$ @p$ @$ @ @ $`t@$ @ @$ @$ @% @(x&`t0$`t@@% @X% @ !.R&(0,@ p( @`&&'&&P'((`&&")`t`" z `t@h'l @'j @+\ &(H J 0,@'H @8'8 `t@'( @$ @ @ @' @' @' @ @ `t@P( h(((%@( x(P(%(P('@( ((6@() ((6((8X)()G`t`t@@) @x) h)@)G)@)I@) )x)R@) *)R@* *`t@*)W@`* `tP**Wx**Y@* *`*]@* **]**c$ 8+)d@p+ ,`t`t`tpH+*f,(+p+f`t @ p+j ,,`t@+ @| 0,..0-H-.,-+`t -`t`$ z - `t ,pL0,(@@(/\ @`-L @x-< @-, -`t@- @/`t@@ @@. /00`t@X. @p. @. @ `t@. @ (@ `0`t @`/ `9`t@x/ @ 00H0 2p311300x1.`& z  `t H00(4`t`t0`t@4`p(17`lP1`hx8`dL0,( @3\ @1L @1< @1, @2 @ @`2 2`<`t @(3 `t`p`l2`h 3x<`dX`t@@3 @X3 @ @3 @ @ @3 6<`t @4 @ `( z `t0`t`p`l`h`dL0,( `t8 P @470755H7(44p0@7\ @5L @x6< `t`t`p `l `h`d@6, @6 @@ `t7<`6t@7 @x7 @`7 @ @ @ @7 X@7 @@ `* z 8< `t `p`l`h`d`t(;<`h8th L,0( @<\ @8:L `t`p`l`h;`t 7x8:;88P;781`d @P:< @h:, @: `H:th @ ;@: @: @: @ @< H>A82`t@ `t`p`l =`t`h`d@ @0< @H< @ `H z `t`;t`p`l`h`dLb@?H `t@h=8 (@=( @= ?`t@= @ @> @0> `=t@@? X?(B`p t ( <@  <p <<=(? =P=?A0C(BA`<XC82@(A @@ @? A@B`t@? @? @`t@@ X@ @ A`?t@8@ @h@ `p t@@ @@ @ @@ @@p @` @@A\ @pAX @V @XAP @@ @< @B8 A`tAC`p tpBXB>`xAt`t@@B6 @XB4 @B2 B@B@, BB@B* xABB@B( (CB@&  CB&HCBE @  0Cy=0,(@`J z CpC D`tC `pCtCL0,(PDHH?`p tC@hF\ D FF`t  CEE8DEEpCCC@0EL @HE< @`E, @xE D@ `t@F p@E X@ @ @HF F`t@ B@F @F @ `, z `tF L0,(`p t  h P 8 HhHGGHFFPD@I\ @GL F@0H< HI`t@, (J`p t@H( @$ HJ D@H  PH@ @H @ @(I @@I @ @I JJKJxKpJKIXJH`. z `tpL`p t J~(l 0,@J\  LLF@KX 0J@JH @K8 @K( @0K @HK @ 0@  @K @ (@ @K @ `n xHL`p tPM0L 0,(H0LLM`MM MxM8MLXLJ@ Nd @` 8M@M\ @X @MT @P @ML @H @N8 @8N( @PN @hN @ @ xJPr,P $*\Rffff*1<50dcx      (0  8HX` hx       $l @ HBP h p  x      0@H  Phx   $l B       (0 *8  h! 4$&#,.8C 8@7H8F @7 X7 ..xh.b. (#x ,# H. V. X.p .# .# 2.( :.` 4. D7 :7 6.` .. 4. 0# &0  X  x     $ l   B        *('X x  T $#8.0 &=h( ..& ..&@ ..h& ..& ..&H ..p& ..& .. &P ..x& ..& ..(X  D` :,.  8C0 hB.x8F B.X  `B.x  L.  (R.H ,.  $** @6.P:787:7v7@6. '  (0 08 6.X vg rg vg v7 6.p   !.. 0n((.70,7`,7,7 0.&#(  P p   $l B       * 'P p &#x  6. 67 >7 !<@`!FI!DR!DR0"FIx"FI"NI#<@X#>7#>7#:@$8@X$:@$FI$<@%<@X%>7%8.%6.&27H&>@&DI&@I'@@H'8@'>I':I(DR@(DR(<I(:I):IP)FI)FI)@I *:@`*:@*6@*47+.7P+8.+&.+  +8C+ (,@68, qx,- 27-H-8FP- -27--  -.8C. @.47P.8F. .DC. $ /H/DCP/ // / / //@6/ <.80 -x0 <(0 00 00 11NI 1p1 67x1(.1*.1>72>7H2>72472@73>7@3673D734744784<7p4,.4  T4 885 *p58C5 5,.5<7 6@7`6676676>77 &P727x7,77@@7>I 8>I`8@@86@8>@9.7X9 9279679.7:  @: 2X: :67:27::7 ; T`; ;>7;4@<4@H<<@<8@<2@<FI0=DRx=DR=FI><IP>DI>4@>8@?<@H?B@?@7?..@ @@ `@p@ x@@@  @,.@  @8C@ 8 AP7XA@7A67A.6 B qPBB 67BC8F C 8XCP7C@7C67 D.6XD qDE 67EPE8FXE <EP7E@7 F67`F26F0 FG 67GGG*+GH H  (H8C@H <xH66H qHI >7II8FI <J66XJ qJ0K >78KxK8FK <K66 q@ >7(K*+L0L8L  &@LDjhL(L0M,.8MhM pMxMM.6M*.M$MNNNN   N 8N $XN ,N N,7N@@N rv0O d[O@@P nsPP66P 2.P0Q 8Q@Q HQ ~sXQQ >@Q R.7(RXR,7`R@@R>IR>IS@@PS6@S>@S.7T8T  @T6XT txTT,.T(U670U.7hU  U 2U U8CV <@V46V qV@W 67HWWljW0 WX 27XXDj80  4. 8F@Y <xY46Y qYxZ 67ZZljZ0 0[[ 27[0\Dj(0 pY 4.Y8F8\ $p\67\27\:7]H]*+P]]] T] ]>7^ ,6@^ vzp^^4@^(_260_0h_ `4@(```<@h`8@`2@`FIaDR`aDRaFIa<I8bDIxb4@b06b (cc8@cd<@dB@Hd@7d..d  e e0e 8e@e He $Pel`ee eB e e e e e$eee eee  ff!f(f80f Pf`f"hf  xff!ff f8Kf 6+f 0g8g8@g`ghgg  g gg  gg!gg h8Kh 6+Hh hh8hhhh  h hi  i i!(i8i @i8KPi 2+i ii8iiij  (j 8jHj Pj%Xjxjjjjj$=j$=jk k 0kHk `kpk $=xkkk k k k l  l 0l @l PlHXhl ll llllll m $mlm8m @mB Hm Pm Xm `mhm *pm'm m$#m6.n,.8n:7hn87n:7n.. o..Po.7o,7o,7o,7p0.@p0.pp.7p,7p,7q,70q2.`q,.q0.q>7q:@8r<@xrFIrFIs>@Hs6@sDIsDIt8@Pt@7t27t0.u&#0u  Xu xuuuu u $uluu uB u u u vv *v'@v  `v0#xv,.v:7v87w:7Pw..w4.w0.w2#(x$#`x2.xF7x67y>7@y27y,7y@@y>I(z>Ihz@@z6@z>@ {.7`{27{:7{4.|2.@|<7x|27|@@|>@0}@@p}47}47}4@ ~2@X~2@~2@~674.86.p67>727 ,7X@@>IȀ>I@@H6@>@.7270:7h8.4.274@P2@2@2@47047h6.&#؄   0 8@ H $Pl` B     *'  &#(4.P,.2.(#$#,.@2.p*.&#؇     @P X` h $pl B    ȈЈ *؈'  ("8*#`x.l.6.x67~@67hl7870.H*#x.#&#،..670:@h:@87.. ..P<7@@B@<7H<7<7ȏ..(#8$`"  А ؐ   $l0 8B<" @ h p x  *'Б  ,.07H  x2. В@@  ~ 8 ȔB@X@@:I8I(8I`8IB@Ж  8 ,Xt@.<@X  ~0  @>@К<@:IX8I8IЛ8I>@@ @@:IȜ8I8I@8IxB@F@:I@8I8I8IH@(D@p:I8I8I08IhF@8@FI FIhFIFIFI@:@H@ȢHIFIXJRHIH@827  (ؤ , 40hpx:66.ȥ$ (0 8B7HJ@D@BI(LRp ~ pm@LR TRBID@0:@x@I>I@I8LRxBIȫBI<@XB7 B7J@ЭD@ BIhLRJ[J[PLRLRTR@BID@:@( B=h  LIб  LI8 LI LI XLIp LIس (LI@ LI LI `LIx ȵLI 0H>IP@ILRжBI XIh<@B7HPHCX B7 J@ D@P BI LR J[0 J[ LRк LR  TRp BIȻ D@ :@X  LILI pLIؽLI@LIXLILI(xLILIHLI`LI  >I  @I` LR BI XI8 <@ B7 (0 8B7J@D@hBILRJ[HJ[LRLR8TRBID@(:@pB=  LI hLI LI 8LIP LI LI  pLI LI @LIX LI LI( x>I@ILRBIhdI<@B7XHC B7 J@X D@ BI LR8 J[ J[ LR( LRx TR BI  D@h :@  LI`LIxLI0LIHLILIhLILI8LIPLILI  p >Ix @I LR BIH dI <@ B78  B7<@D@8BILRJ[J[hLRLRTRXBID@:@@@I>I@ILR@BIBI<@ B7`  N , N007L@  <@  X>@p    hR@<@H<@27  N X Nx07  D@  LIh BI  DI <IX JR JR >I8 F@x D@ LI BIh 8 DI <I JRH JR >I F@(p x D@ @I BI LR` LR DI <IH JR JR >I( F@h D@ @I BI@ LR LR DI( <Ip JR JR >IP F@   ^R`8@h 8@:I>I @I`>RH[H[(D[pD[@R>R@H[H[D[D[X@RBI:@(27h 87>@  : ,Xt(F@H :7P678@>@6@@67x 67@@D@8DCZ@(D@0x:@DCF@P:@X:@B@67(..  ` 0@HP X $`lp B    *' (#(  P p  $l B    . :(h x          8 8X     4@ X h 6x   (  8 Xh px  $l B     ""+08  @P (`",   ' @X  $` 0         $0X px  $l B          (  0  @  H  X  `  p  x                              0  8  H  P  `  h  x                              (  8  @  P  X  h  p                              (  0  @  H  X  `  p  x                              0  8  H  P  `  h  x             $ l      ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ $ webmaster@hyperdyne.co.jpX %"8'~ XMLwb_ $ zk'~z" 0!2 0!2 , 0!4A@(ki`"'\{% $ zHk@\ҁiƋlj $zkAӔCҏ$ $ zk 㗝l $"zk\ $ zpkh J݋Ǐ $" z@k8p~t $$ zk'z" 0!2 0!2 , 0!4A@(zki!$"'p $& z`kX \萔 $( z0k( XMLtb^ $* zkShiftJISUTF-8ɕϊ $, zk BOM̏ $. zkx'zh"` 0!2 0!2 , 0!4A@(k(i  "' ].D wb_̏o]]Scripting.FileSystemObject$L.H      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  Trueŏ㏑  H%N.J& JB@P<\f[^ xmlns="http://www.denpa.soumu.go.jp/sinsei" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:m="http://www.denpa.soumu.go.jp/sinsei/kousei"> JB@P  JB@P    JB@P     JB@P bݎw肵Ă D%!r!n Jݓ͏o    N063 JB@P bݎw肵Ă D%!r!neJ݋ǕύX͏o    N064 JB@Pk    1o^ǃC^[lbg\ JB@P     JB@P   G dgp dq\E͏oVXe JB@P   A0001 JB@P    JB@P   JB@P   '101105 JB@P   50002 JB@P   7sinsei.xml JB@P   JB@P   JB@P    JB@P    JB@P    JB@P     JB@P     JB@P    JB@P     JB@P    JB@P   JB@P  JB@PXMLt@C‚ JB@B.H' z`"X 0!2 0!2 , 0!4A@(k i"' ]0.D]P]hScripting.FileSystemObject$L.H  H%.J <\> JB@PM----------------------------------------------------------------------------- ȉ\   <\> JB@P   <•_>2 JB@P b ݈ D%!r!nKTkCdgǗǓaij   <>J JB@PKTkdgǗǓaijr   <>I JB@PKT֓dgǗǓaij   <>A JB@PKTMzdgǗǓaij   <>B JB@PKTkdgǗǓaij   <>D JB@PKTCdgǗǓaij   <>C JB@PKTߋEdgǗǓaij   <>E JB@P KTdgǗǓaij   <>F JB@P KTldgǗǓaij   <>G JB@P KTBdgǗǓaij   <>H JB@P KTdgǗǓaij   <>O JB@Pn =p~͂̂ƂO t悤BvmF3 a.WriteLine vbTab & vbTab & vbTab & ""     JB@P\̋敪J bݎw肵Ă D%!r!n Jݓ͏o   !<\_͏o敪>HB JB@P bݎw肵Ă D%!r!neJ݋ǕύX͏o   !<\_͏o敪>HE JB@Pk ݔ̋Ki   "<ݔ̋Ki>8 JB@Pǂ̎ʃR[h   +<ǂ̎ʃR[h>CR JB@Pǂ̎ʕ⑫R[h   2<ǂ̎ʕ⑫R[h>X JB@P    <ԍ/> JB@Po^ԍ D!L!6z k]ݶ o^̔ԍ D!L%'     JB@P     JB@P     JB@P     JB@P    P JB@P    JB@Pd] 4 '0 0 D!%6 zk] V D!!8     JB@P       V D!%:  JB@P       V D!%<  JB@P       V D!% JB@P    P JB@P    JB@P Vk@ o^̔N] D!L!V'V    JB@P V %     V./ %Rgemmdd % %  JB@P      V./ %Re % JB@P #    <> V./ %R yyyy/mm/dd % %x JB@P #    <> V./ %R yyyy/mm/dd % %z JB@Pd     JB@P     JB@P     JB@P     JB@Pk    JB@P    JB@PXMLt@C‚ JB@B.H' zh"` 0!2 0!2 , 0!4A@(k(i "' ]H.D]h]Scripting.FileSystemObject$L.H  H%.J]    JB@P V݂̏ꍇ   <ݔ̐ݒuꏊ> JB@P    <ݔݒu敪/> JB@P    <ݒuꏊ_uꏊ> JB@P      JB@P       JB@P         JB@P         JB@P       JB@P      <ݒuꏊ__/> JB@P      <ݒuꏊ__ڃtKi/> JB@P      JB@P     JB@P    <ݒu_ړ͈͏> JB@P      <ʐM/> JB@P       JB@P      JB@P       JB@P      JB@P     <ړ͈_l/> JB@P     JB@P    JB@P    JB@P      JB@P      JB@P       JB@P        JB@P      JB@P       JB@P       <͌`/> JB@P       JB@P         JB@P         JB@P        JB@P      <Ԋu/> JB@P       JB@P       JB@P       JB@P        JB@P       JB@P      <󒆐d/> JB@P       JB@P      JB@P     JB@P    JB@P    JB@PJ݋ǐ bݎw肵Ă D%!r!n Jݓ͏o b!݊J݂ǐύX̗R1 D%!f        b!݊J݂ǐύX̗R1 D%!f  JB@Pd      JB@Pk bݎw肵Ă D%!r!neJ݋ǕύX͏o      JB@Pk ĺ@ύX̗R] bݎw肵Ă D%!r!n Jݓ͏o     JB@P bݎw肵Ă D%!r!neJ݋ǕύX͏o b!݊J݂ǐύX̗R3 D%!r!nݔXViʕj'> k b!݊J݂ǐύX̗R4 D%!r!n > uꏊ̕ύX'> d8 > @uꏊ̕ύX'> kk b!݊J݂ǐύX̗R5 D%!f b!݊J݂ǐύX̗R5 D%!f'   D%'  b!݊J݂ǐύX̗R5 D%(f >  '> d > @ '> kk      >  JB@Pk    <]on/> JB@P    JB@P    <ύX> JB@P     JB@P     JB@P     JB@P      JB@P     JB@P     JB@P     JB@P     JB@P      JB@P      JB@P     JB@P     JB@PM-----------------------------------------------------------------------------2ȉ\ҁiƋljɊւo^lƂďo$J݋ǕύX͂̏ꍇɂ͋󗓂o͂ bݎw肵Ă D%!r!nJ݋ǕύX͏o     JB@P    <@l_c_l̕/> JB@P     JB@P     JB@P    <͖/> JB@P    <͖̃tKi/> JB@P Ƌl̗X֔ԍinCtȂj      JB@P     JB@P      JB@P        JB@P        JB@P      JB@P      <_/> JB@P     <_ڃtKi/> JB@P     JB@PƋl̓dbԍ      JB@P     JB@P     JB@PƋl̑\ҖE,Ƌl̑\ҖiƖ̊Ԃ͑SpXy[XjƋl̑\ҖtKi    <\ҖE/> JB@P     <\Җ/> JB@P    <\ҖtKi/> JB@PM-----------------------------------------------------------------------------ȉAӔC    <\ɊւAӔC> JB@P      JB@P      JB@P      JB@P       JB@P      JB@P       JB@P         JB@P         JB@P       JB@P       <_/> JB@P      <_ڃtKi/> JB@P      JB@P       JB@P      JB@P      JB@P     JB@P     JB@PXMLt@C‚ JB@B.H' zx?kp? Jݓ͏o     JB@P Ƌl̖O bݖ@lčl̕ D%!r!n2@l̏ꍇAƋl̖O@l͒ĉƋl̖O    *<@l_c_l̕>1 JB@P     JB@P     JB@P bݐ\ҖO D%!f      <͖> bݐ\ҖO D%!f JB@Pd =    <͖/> JB@Pk< bݖ@lčl̕ D%!r!ne2ĉ̏ꍇAƋl̖O@l͒ĉƋl̖O    *<@l_c_l̕>2 JB@P     JB@P     JB@P bݐ\ҖO D%!f      <͖> bݐ\ҖO D%!f JB@Pd:    <͖/> JB@Pk: bݖ@lčl̕ D%!r!ne6l̏ꍇAl͖@lEc̑\ҖƋl̖O    *<@l_c_l̕>3 JB@P     JB@P     JB@P bݐ\ґ\Ґ D%!f  $    <͖> bݐ\ґ\Ґ D%!f@ bݐ\ґ\Җ D%!f JB@Pd`8    <͖/> JB@Pk 8d8 @lEćEl̕ʂُłBA@(z7k7Ƌl̃tKi bݖ@lčl̕ D%!r!n6@l̏ꍇA@l͒c̃tKiƋl̖OtKi bݐ\ҖOtKi D%!f      <͖̃tKi> bݐ\ҖOtKi D%!f JB@Pdh6    <͖̃tKi/> JB@Pk 6 bݖ@lčl̕ D%!r!ne6ĉ̏ꍇA@l͒c̃tKiƋl̖OtKi bݐ\ҖOtKi D%!f      <͖̃tKi> bݐ\ҖOtKi D%!f JB@Pd4    <͖̃tKi/> JB@Pk4 bݖ@lčl̕ D%!r!ne6l̏ꍇA@l͒c̃tKiƋl̖OtKid3 @lEćEl̕ʂُłBA@(z3k3 Ƌl̗X֔ԍinCtȂj  b  D%!f b  D%!f      b  D%!f b  D%!f  JB@Pd2     JB@PkP2]]] bݐ\ҏZ D%!f bݐ\ҏZ D%!f'  D!%'d1''k1Ƌl̏ZԍƋl̏Zs撬R[hƋl̏Zs撬R[hȉ&Ƌl̏Zs撬R[hȉtKi      JB@P      JB@P            %  JB@P             JB@P      JB@P        <_>   D!%  JB@P bݐ\ҏZtKi D%!f bݐ\ҏZtKi D%!f'd.'kx.       <_ڃtKi>   D!% JB@Pd-     <_ڃtKi/> JB@Pk-     JB@Pd`-     JB@P      JB@P        JB@P        JB@P      JB@P      <_/> JB@P     <_ڃtKi/> JB@P     JB@Pk+Ƌl̓dbԍ b . D%!f       b . D%!f-$R  JB@Pd*     JB@Pk*     JB@P     JB@PƋl̑\ҖE,Ƌl̑\ҖiƖ̊Ԃ͑SpXy[XjƋl̑\ҖtKi bݖ@lčl̕ D%!r!n6@l̏ꍇAl͖@lEc̑\ҖƋl\ bݐ\ґ\ҖE D%!f      <\ҖE> bݐ\ґ\ҖE D%!f JB@Pdx(    <\ҖE/> JB@Pk8( bݐ\ґ\Ґ D%!f bݐ\ґ\Җ D%!f  $     <\Җ> bݐ\ґ\Ґ D%!f@ bݐ\ґ\Җ D%!f  JB@Pd'     <\Җ/> JB@Pk&d8   <\ҖtKi/> JB@P bݖ@lčl̕ D%!r!ne6ĉ̏ꍇAl͖@lEc̑\ҖƋl\ bݐ\ґ\ҖE D%!f      <\ҖE> bݐ\ґ\ҖE D%!f JB@Pd@%    <\ҖE/> JB@Pk% bݐ\ґ\Ґ D%!f bݐ\ґ\Җ D%!f  $     <\Җ> bݐ\ґ\Ґ D%!f@ bݐ\ґ\Җ D%!f  JB@Pd#     <\Җ/> JB@Pk# bݖ@lčl̕ D%!r!nel̏ꍇAƋl\҂͂Ȃ    <\ҖE/> JB@P     <\Җ/> JB@P    <\ҖtKi/> JB@Pd0" @lEćEl̕ʂُłBA@(z!k!M-----------------------------------------------------------------------------ȉAӔC    <\ɊւAӔC> JB@P bݔl D%!f       <> bݔl D%!f JB@Pd      JB@PkP bݔlSҖ D%!f    &     <> bݔlSҖ D%!f@ bݔlSҖ D%!f JB@PdX      JB@Pk      JB@P       JB@P      JB@P       JB@P         JB@P         JB@P       JB@P       <_/> JB@P      <_ڃtKi/> JB@P      JB@P bݔldbԍ D%!f  "       bݔldbԍ D%!f- %R  JB@Pd       JB@Pkx      JB@P      JB@P     JB@P     JB@PXMLt@C‚ JB@B.H' z8"0 0!2 0!2 , 0!4A@(ki"'" ]p.D D!L!6zk]]]ʕ] D!L!6']   & %~+]( D!L!:' ZKFؔԍ]@ D!L!F']X    D!%   D!%,ʕƋZKFؔԍ̌v܂BA@(zHk@   & %~+d  \  \+ \kZKFؔԍ̔茋] D!L!L']    D!%   D!%,ʕƋZKFؔԍ̌v܂BA@(zk   & %~+d  \  \+ \kpԍ]  D!L!N']8    D!%   D!%(ʕƐԍ̌v܂BA@(zk   & %~+@ d @  \  \+@  \k0]  ]](]`'V \  \$, & %~'B \$@ , & %~'D \$Syonin B F  z B \$ z+F  zd \$, & %~'F k z B z$B  V+ z$F  V+ \$ V+ z$D  V+ V 'V z \ \   \$ \$ \$ \$$H zk \ $J zk'" z"x 0!2 0!2 , 0!4A@(k@i8"('$ ]]0Scripting.FileSystemObject$L.H  H%.Jp~@֌WȂ    JB@P   <ǂ̎ʃR[h/> JB@P     JB@P     JB@P     JB@P     JB@P     JB@P    JB@P     JB@P     JB@P     JB@P     JB@P    JB@P    JB@P     JB@P     JB@P     JB@P     JB@P    JB@P     JB@P    JB@P     JB@P      <ԍ̎/> JB@P      JB@P       JB@P      <ԍ_ZK_F/> JB@P      JB@P      <ʔԍ> JB@P      <ԍ_ʔԍ/> JB@P       JB@P       JB@P     JB@P     <ԍ/> JB@P    JB@P    JB@PXMLt@C‚ JB@B.H'$ z " 0!2 0!2 , 0!4A@(k i H" '& ]]Scripting.FileSystemObject$L.H  H%.Jp@֌WȂ   JB@P     JB@P     JB@P     JB@P     JB@P     JB@P   <Čt̗R敪/> JB@P   <Čt̗R/> JB@P   JB@P  

 JB@P    JB@P      JB@P    <͖/> JB@P    <͖̃tKi/> JB@P      JB@P     JB@P      JB@P        JB@P        JB@P      JB@P      <_/> JB@P     <_ڃtKi/> JB@P     JB@P     <\Җ/> JB@P    <\ҖtKi/> JB@P    JB@P    JB@P    <ǂ̎ʃR[h/> JB@P      JB@P      JB@P      JB@P      JB@P      JB@P     JB@P      JB@P      JB@P      JB@P      JB@P     JB@P    JB@P    JB@P    <͖/> JB@P    <͖̃tKi/> JB@P      JB@P     JB@P      JB@P        JB@P        JB@P      JB@P      <_/> JB@P     <_ڃtKi/> JB@P     JB@P     <\Җ/> JB@P    <\ҖtKi/> JB@P    JB@P    JB@P      JB@P      JB@P      JB@P      JB@P      JB@P      JB@P      JB@P    JB@P  

 JB@PXMLt@C‚ JB@B.H'& z8z"0z 0!2 0!2 , 0!4A@(kyiy"y'( ]8 ]P Scripting.FileSystemObject$L.H  H%.J\萔@֌WȂ   <\萔> JB@P    JB@P    <萔z/> JB@P   <萔[t@/> JB@P    JB@P    JB@P    <ގ/> JB@P    JB@P    <ʐM/> JB@P    JB@P   JB@PXMLt@C‚ JB@B.H'( zw"w 0!2 0!2 , 0!4A@(kvivh "v'* ] ] Scripting.FileSystemObject$L.H  H%.J XMLtb^  JB@P   JB@P   X JB@P   L JB@P    JB@P     JB@P     Q JB@P     JB@P    E JB@P     JB@P    JB@P   JB@P   JB@P    JB@P     JB@P     JB@P       JB@P      JB@P     JB@P    JB@P     JB@P     JB@P      JB@P      JB@P     JB@P     JB@P     JB@P    JB@P    JB@P  JB@P , JB@PXMLt@C‚.H JB@B'* zn"n 0!2 0!2 , 0!4A@(kHni@n  "n'H ] .D] ] Scripting.FileSystemObject$L.H  H%.J]( ]@ J݂̏ꍇiύXj     JB@P      JB@Pݓo^ǂJ݂ bݓo^ǂJ݂ D%!f'       JB@P   )       ./ %Rgemmdd % %  JB@P   "       ./ %Re % JB@P   '      <> ./ %R yyyy/mm/dd % %x JB@P   '      <> ./ %R yyyy/mm/dd % %z JB@P      JB@Pdi      JB@P       JB@P       JB@P       JB@P       JB@P      JB@Pk`h2݉^pJn̊ύXsu^pJn̓v&݉^pJn̊ύXs b"݉^pJn̊ύXs D%!r!n b&݉^pJn̊ύXs D%!f b&݉^pJn̊ύXs D%!f'     <^pJn̊> JB@P   )       ./ %Rgemmdd % %  JB@P   "       ./ %Re % JB@P   '      <> ./ %R yyyy/mm/dd % %x JB@P   '      <> ./ %R yyyy/mm/dd % %z JB@P      JB@Pdhd     <^pJn̊> JB@P       JB@P       JB@P       JB@P       JB@P      JB@Pkb     <^pJn̗\> JB@P       JB@P       JB@P       JB@P       JB@P      JB@P      JB@P       JB@P       JB@P       JB@P       JB@P      JB@P     <]o^̗L> JB@P       JB@P       JB@P       JB@P       JB@P      JB@P       JB@P       JB@P       JB@P       JB@P       JB@P       JB@P       JB@P     <ǂ̖ړI_ʐM> JB@P      <ǂ̖ړIR[h/> JB@P      <ʐMR[h> JB@P       <ʐMR[h/> JB@P       JB@P      JB@P      JB@Pݔ̐ݒuꏊ̌ԍ"ݔ̐ݒuꏊ̎s撬R[h&ݔ̐ݒuꏊ̎s撬R[hȉ.ݔ̐ݒuꏊ̎s撬R[hȉtKi]X ]p ] 'L bݖݔ̏uꏊZ D%!f bݖݔ̏uꏊZ D%!f'  D!%'d`Y''kHY     <ݔ̐ݒuꏊ_J> JB@P     <ݔݒu敪>3 JB@P     <ݒuꏊ_uꏊ> JB@P       JB@P        JB@P              %  JB@P               JB@P        JB@P          <ݒuꏊ__>   D!% JB@P       <ݒuꏊ__ڃtKi/> JB@P       JB@P      JB@P     <ړ͈͏> JB@P       <ʐM/> JB@P        JB@P       JB@P        JB@P       JB@P      <ړ͈_l/> JB@P      JB@P     JB@P'L kR b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!n b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!n     <ݔ̐ݒuꏊ_J> JB@P     <ݔݒu敪>1 JB@P     <ݒuꏊ_uꏊ> JB@P       JB@P        JB@P          JB@P          JB@P        JB@P       <ݒuꏊ__/> JB@P       <ݒuꏊ__ڃtKi/> JB@P       JB@P      JB@P     <ړ͈͏> JB@P b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!nKTKTkC      <ʐM>J JB@PKTk      <ʐM>I JB@PKT֓      <ʐM>A JB@PKTMz      <ʐM>B JB@PKTk      <ʐM>D JB@PKTC      <ʐM>C JB@PKTߋE      <ʐM>E JB@P KT      <ʐM>F JB@P KTl      <ʐM>G JB@P KTB      <ʐM>H JB@P KT O      <ʐM>O JB@P KTSn0I        JB@P       JB@P        JB@P       JB@P      %<ړ͈_l>̗ JB@P      JB@P     JB@P'L k(G b%ݖݔ̐ݒuꏊ͈ړ͈1 D%!r!n  V    <ݔ̐ݒuꏊ_J> JB@P     <ݔݒu敪>1 JB@P     <ݒuꏊ_uꏊ> JB@P       JB@P        JB@P          JB@P          JB@P        JB@P       <ݒuꏊ__/> JB@P       <ݒuꏊ__ڃtKi/> JB@P       JB@P      JB@P     <ړ͈͏> JB@P VKTkC      <ʐM>J JB@PKTk      <ʐM>I JB@PKT֓      <ʐM>A JB@PKTMz      <ʐM>B JB@PKTk      <ʐM>D JB@PKTC      <ʐM>C JB@PKTߋE      <ʐM>E JB@PKT      <ʐM>F JB@P KTl      <ʐM>G JB@P KTB      <ʐM>H JB@P KT O      <ʐM>O JB@Pn`>        JB@P       JB@P        JB@P       JB@P      %<ړ͈_l>̗ JB@P      JB@P     JB@P V'L kH< b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!n b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!n     <ݔ̐ݒuꏊ_J> JB@P     <ݔݒu敪>1 JB@P     <ݒuꏊ_uꏊ> JB@P       JB@P        JB@P          JB@P          JB@P        JB@P       <ݒuꏊ__/> JB@P       <ݒuꏊ__ڃtKi/> JB@P       JB@P      JB@P     <ړ͈͏> JB@P b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!nKTKTkC      <ʐM>J JB@PKTk      <ʐM>I JB@PKT֓      <ʐM>A JB@PKTMz      <ʐM>B JB@PKTk      <ʐM>D JB@PKTC      <ʐM>C JB@PKTߋE      <ʐM>E JB@P KT      <ʐM>F JB@P KTl      <ʐM>G JB@P KTB      <ʐM>H JB@P KT O      <ʐM>O JB@P KTSn2        JB@P       JB@P        JB@P       JB@P      1<ړ͈_l>̗yт̏ JB@P      JB@P     JB@P'L k0 b%ݖݔ̐ݒuꏊ͈ړ͈2 D%!r!n  V    <ݔ̐ݒuꏊ_J> JB@P     <ݔݒu敪>1 JB@P     <ݒuꏊ_uꏊ> JB@P       JB@P        JB@P          JB@P          JB@P        JB@P       <ݒuꏊ__/> JB@P       <ݒuꏊ__ڃtKi/> JB@P       JB@P      JB@P     <ړ͈͏> JB@P VKTkC      <ʐM>J JB@PKTk      <ʐM>I JB@PKT֓      <ʐM>A JB@PKTMz      <ʐM>B JB@PKTk      <ʐM>D JB@PKTC      <ʐM>C JB@PKTߋE      <ʐM>E JB@PKT      <ʐM>F JB@P KTl      <ʐM>G JB@P KTB      <ʐM>H JB@P KT O      <ʐM>O JB@Pn(        JB@P       JB@P        JB@P       JB@P      1<ړ͈_l>̗yт̏ JB@P      JB@P     JB@P V'L k% L     <ݔ̐ݒuꏊ_J> JB@P     <ݔݒu敪/> JB@P     <ݒuꏊ_uꏊ> JB@P       JB@P        JB@P          JB@P          JB@P        JB@P       <ݒuꏊ__/> JB@P       <ݒuꏊ__ڃtKi/> JB@P       JB@P      JB@P     <ړ͈͏> JB@P       <ʐM/> JB@P        JB@P       JB@P        JB@P       JB@P      <ړ͈_l/> JB@P      JB@P     JB@PkH------------------------------------------------------------------------&ʕ@̎ʕ̓fW^̂H------------------------------------------------------------------------     <ʕ> JB@P      <ʕ_敪>S JB@P ʕ     <ʕ_/> JB@PʕAԕ     <ʕ_Aԕ/> JB@P ʕp        <ʕ_p>  JB@Pd8     <ʕ_p/> JB@Pk     <ʕ_⑫/> JB@P      JB@PH------------------------------------------------------------------------K\ݔ̔ԍH------------------------------------------------------------------------      JB@P GitekiKT ZK̏ꍇ      JB@P      <ԍ̎>1 JB@P       JB@P          D!% JB@P        <ԍ_ZK_F>  D!% JB@P       JB@P       <ʔԍ> JB@P       <ԍ_ʔԍ/> JB@P        JB@P        JB@P      JB@PSyoninKT      JB@P      <ԍ̎>2 JB@P       JB@P          D!% JB@P        <ԍ_ZK_F>  D!% JB@P       JB@P       <ʔԍ> JB@P       <ԍ_ʔԍ/> JB@P        JB@P        JB@P      JB@PKT 󗓂ꍇ      JB@P       <ԍ̎/> JB@P       JB@P        JB@P       <ԍ_ZK_F/> JB@P       JB@P       <ʔԍ> JB@P       <ԍ_ʔԍ/> JB@P        JB@P        JB@P      JB@PS      JB@P       <ԍ̎/> JB@P       JB@P        JB@P       <ԍ_ZK_F/> JB@P       JB@P       <ʔԍ> JB@P       <ԍ_ʔԍ/> JB@P        JB@P        JB@P      JB@Pn ԍ         <ԍ>   JB@Pd      <ԍ/> JB@Pk      <󒆐> JB@P       JB@P        JB@P      <󒆐̈ʒu> JB@P        JB@P          JB@P          JB@P         JB@P         JB@P        JB@P       <ܓx> JB@P         <ܓxID/> JB@P         <ܓx_x/> JB@P         JB@P         JB@P        JB@P       JB@P       JB@P      JB@P    <\ʎ̔l> JB@P     <݊J݋ǐ/> JB@P4݉^pJn̊ύXsuύXsv&݉^pJn̊ύXs b"݉^pJn̊ύXs D%!r!n b&݉^pJn̊ύXs D%!f   "     <\ʎ̔l_͗>ύXsF b&݉^pJn̊ύXs D%!f  % JB@Pd     <\ʎ̔l_͗/> JB@Pk0     JB@P     JB@P      <ގ/> JB@P      JB@P      <ʐM/> JB@P     JB@PύX    <ύX_J> JB@P      JB@P      JB@P b!݊J݂ǐύX̗R3 D%!r!n     .1 JB@PdP      JB@Pk       JB@P b!݊J݂ǐύX̗R4 D%!r!n     1 JB@Pd(       JB@Pk       JB@P      JB@P     JB@PXMLt@C‚d8X   <\ҖtKi/> JB@P8X   <\ҖtKi/> JB@P     JB@P JB@B.H'H z" 0!2 0!2 , 0!4A@(khi` "@'J ] ] Scripting.FileSystemObject$L.H  H%.J    JB@PXMLt@C‚ JB@B.H'J zh"` 0!2 0!2 , 0!4A@(k(i 0 "', 'ADO(2.5ȏ) StreamIuWFNg𗘗p3CharsetŕR[hLineSeparatorʼnsR[hw] ]  ]  ] ] ] ] ]8 ]P ]h StreamIuWFNg̍쐬 ADODB.Stream$L.^ ADODB.Stream$L.` 2͂t@C̕R[hƉsR[hw肷 Shift_JIS ^ (b N ^ (d ^ B@ V ^ (lt@Cǂݍ  ^ B@f .o̓t@C̕R[hƉsR[hw肷UTF-8 ` (b R ` (d ` B@0ǂݍ񂾓̓Xg[o̓Xg[ɃRs[ ` ^ B@h StreamIuWFNg̉ ^ B@B.^ "o̓Xg[t@Cɏo  \ ` B@j StreamIuWFNg̉ ` B@B.` ', z"x 0!2 0!2 , 0!4A@(k@i8 "('. ] ] $~t@C݂܂BA@(zk$'   $l  擪3oCgBOM $l  H  4oCgڂǂݍd 'k Ve|t@C̊m .tmp$~ .tmpA@k̃t@CꎞIɃl[  .tmp) FreeFilel̎擾(ȍ~̒lœo͂)$'    wt@CCLOSE VꎞIɑޔt@C폜 .tmpA@'. z"x 0!2 0!2 , 0!4A@(k@i8P"( p 'n zk p $'n zk p 01KT p 'n 02KT p 'n 03KT p 'n 04KT p 'n 05KT p 'n 06KT p 'n 07KT p 'n 08KT p 'n 09KT p 'n 10KT p 'n 11KT p 'n 12KT p 'n 13KT p 'n 14KT p 'n 15KT p 'n 16KT p 'n 17KT p 'n 18KT p 'n 19KT p 'n 20KT p 'n 21KT p 'n 22KT p 'n 23KT p 'n 24KT p 'n 25KT p 'n 26KT p 'n 27KT p 'n 28KT p 'n 29KT p 'n 30KT p 'n 31KT p 'n 32KT p 'n 33KT p 'n 34KT p 'n 35KT p 'n 36KT p 'n 37KT p 'n 38KT p 'n 39KT p 'n 40KT p 'n 41KT p 'n 42KT p 'n 43KT p 'n 44KT p 'n 45KT p 'n 46KT p 'n 47KT p 'n S`'n nPzH"@ 0!2 0!2 , 0!4A@(ki bݐ\ҖOtKi D%!f      <͖̃tKi> bݐ\ҖOtKi D%!f JB@Pd    <͖̃tKi/> JB@Pk b & D%!f b ( D%!f "   <\ҖtKi> b & D%!f@ b ( D%!f JB@Pk b & D%!f b ( D%!f "   <\ҖtKi> b & D%!f@ b ( D%!f JB@PkAttribute VB_Name = "modOutputXML" ' ЃnCp[_dCopyright (c) HyperDyne Inc. All 8res@erved.fhttp://ww(w.h`d0.c o.jp/webmaster@  Option Explicit Pub FuncPHeader( _ ByVal myFile As Sng)Boolean20rror GoTo ErrMes $ 0Fal,se2'2w@b_ILf 1(B) The 0L MsgBox> & vbCrLf &BDescr~iBc# (AdiClientAndAg?kk m.'\{l2lBҁiƋlj*?AӔCґommunica8torR`W'㗝l C<_ww_544`J݋ǐ {5 p~S 6_ X $ƃN_߄߄A߄Մ@ _LFoo`_ rc$ GG'Џp357?5A 萔78 t^9_eii}i'ShiftJISUTF-8ɕϊv ConvertText//pp'BOMfDeleteOOODO"O43vv~O4vvN4rivae5IϏ~Ϗ$-tDim cPqclsPa#pSetq= New '1o#fsObjecP=QaMA= CreS("SSng.!Sy@m")S'ŏ㏑#a0fs.3*Q$, aa.WriteLiЯ" ሃfp^ pnsHdenpa.s@oumu.gbs`insei:d w3.org/2000/09/@dsig#mei/koubO eTab"N063o^ԃ^/ljg0EB?3'(: Q VXeB dg$pq Eq j h03@loPW>;1o/&"!6j a.WriteLine vbTab &8""zlID>1011050002 X2`t@C>sinsei.xml2  1"Yt޵…/O-;._RWFXgɓAS`Y*$l5@96vX Vlm:cT@VYBs\ 6'XML‚ŃCloseSet fs = NothingOutputE1TruDExit Function ErrMes:AIf .Number <> 0 The aMsgBox0CrLfADe`scrip !End IfePrivate& 2(ByVal my`File As Str)ABooleBa OnAor GoToAE !FalE(cDim cP clsPaper,,ew K 0@Objeczta CF6Cre("SC&ng.ASystemc")a`fs.OpenT(extA(#, x8, ="@ՇDSel3 Case@=.GetKue(pKAGAMI, "").DropDown.CH2 'kCdgAxǓaiaj R>J t悤BvmFp 'oM "/јђSpfd a̋敪JfCcP\\w肵Ă]u2 '͏o3cu_A >HH1 ]EЇ Zh i 3 ݋ǕϼX /$/$ H@ Q%'@ݔKicoo"<>8h >CRl_[XvbTab & p"<ǂ̎ʕ⑫R[ h>X x'o^KIf cP.INI.Read = False Then vExit FunctioEnd If"Dim myLicenceNo As S`tring =6GetValue(" ", "L9M")N"" M,_\o!"ށ&na9%敪?{A$c.dg@{sK511052fԓɓYp~ꍇѮ4"" 2+H@(k)S*> le(C2 .`K/C{No_Ae !?2??1!aaNext ki#@NCAzIssueDateA{IF?Q $ oo"<N#& VBA.Left$(#`JmatReplace(Fz".az/")gemmdd1=S=% g/ / # e" R/" a.WriteLine s{_s`撬Af":<^/KVVB+"</҂"<_`_DWtKiO@A&탩1CO_ړ ͵ʐMJ"<ű}6'% &P /_E"<8_l?KBX`ݔ9U_T6gyы󒆐d?Q" ?,dǧ^x _6@p脗L#ѕ6XIAI  9_:ڍ_9O9]͌`쎮& _5_n? /4 uvI|C(."<Ԋu   ~ Q@R[hJn_j'o#~"6h^1y5s'J݋If cP.GetValue(pKAGAMI, "ݎw肵Ă").Dro@pDown. = 2 Then ͏oGzA p1| ύX̗R1 Result <> ""%_ 1&%>"  _ P Elsek ?j<5&QEnd Ifcooj3o%    # 'q-x @"Dim myBikou As StringOOO... & vbTabp"" ElseIf cP.GetValue(pKAGAMI, "w肵").DropDown.b = 3 Then'J݋ǕύX͏om8m@ǐB@̗R3x2 x|myBiko uK""ݔXViʕ0jEnd IfQ4Q S"bduꏊ́]_^E&p "@[LBFXCo5@FResul@t <> "QcsQ0c.\ʎx="=e?b & vbTa p"<\ҖE/ >" a.WriteLineAtKi '-Ir'ȉAӔC5\Ɋւ&5"<#|8Rg銇X֔ԍ?8`E-G/-"1 ""Oa>_S A5QA}>" __ o#g# tO /El6 !!!yi6Aw/0/0*03-01)/0O)/08oK.>2/0/0/0/0/0/00 5/0HH_%/01   -r)k)++/0/0O:/0y/0o o /0/0_`_`_`X`4-0YS`Dd́E1ἐ`f`oo0o0`3o0o0i[[R`` _}`I``x)0a9س& cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result _  & "@&"2%Ėb"Else a.WriteLine vbTab &"<+/ ,nd If- 2MsgBox "@lEćElُ̕BRxit Function)/'Ƌ#tKi IfՁBA@DropDown. = 2 The;'̏ꍇAOAVE"O#$Ïx<> ""#mSJrE,>v/Jo7 ;@6Z? 3FDFX' F.F}}F̟F=FhF_AKeFwa@94F?̉'F*.FF?|bғFFqO#qhO#qq?qqqwwc vqX֔ԍinC -pjcE3c9%O3v"(Ayߋ4 w?=A_ Olo%қ ?n__S[ ۰ /^ &&u" "" Th a.WriteLine vbTab &_e& "<_څh>" AreaCode.DeletejA(Y,a)&"i@/?++Aei}"<s{_s撬I: O)a>lgbnNk? 4 Mlg'Ƌl̓dbԍRcIE > Ap% ϊ& Replace( -""΋a/c t]^(6E._!sD ⑫ _IF=\EiƖԂ͑SpXy[X|jTuH@lčOʀDropDown. 2L'̏AaEA dZ#|C@#R[Wuvqwd"<.!&W߅ޅ/ t/t /. ك V'_a90OS -lOr.]>_K|@?@"#/!<" " B_IWHv"?" huGhL "c'/Җ/xE?? Ґ> # = 2#G$B$$#5$t$MFFc;OhKh3MhOhlOhOhq? : OhOhR _KtoOhc!!*WV!!O! ` EF!r!FO @h).Result <> "" _ Or cP.GetValue(pKAGAMI, "ݐ\ґ\Җ" Then a.WriteLine vbTa8b & & t"<j>!%5@<1f/gElse />"*nd IfIfcutK̃iqVVEjAS+cG8Ə9|Gle HUH䃖@lčl̕ʀnDrop Down." =( 4 >'AƋlc9͂ȂEJ_՛,+MsgBox "a(E(E(ُB|xit Functio$E&'-?%d ȉAӔC**ȂɊ' ᗣ LlGcJ_G7n /& /#  A %\@A)lS}Xr/ {0e"<s{_s撬o// oool"%% q[AhXADDo^l3a'XML`/@C ‚a.ClouSet fsNothing COut(put04Tr udE[ ErrMes:e@1.Numbera0Cômber & v bCrLfErr.Description End If  $FunclPrivate " OutputXML5(By@Val myFile As S@tring)B oolea On xor GoTo MeszW = False Dim cPVclsPapDerSet= New If.INI.Read* TheI{xitm) >i=Integ= j k #'ʕ+myCallSign =dArray(#= VBA.Split(, Sep, ,TextCompare)C 'CountN;G/C'ZK FؔKGGitekiNinsyoNoHFlmyKTMM <> ""ØSani.GeMa@CFrom`MW)< _"A@cPn.W*Bh) MsgBox "EIŠv܂B"+E`! Iao'KJKE| ReW4UB@MdH*"7V)TF`i|0 i)"$Na iCJW̔Resulft&Z} [k _\"w_\1b_\{]Ĩ]]#])]H^^ ____y2Q/002''}[Product/[my-&-DO,ZvY@Yt+w&YY]*0Y?Y?Y ?Yr*)}k /)Xmp_(X= X ^(*'''UeƧ e5- 1, 3xTempCOPGki :mmy2 ' 0ϛgnCi), ","?`Pa 8?k lt"Syoxnin] G(&1C%Qj+&1G(j}oi)Rj+20 { (:="0(k, 01qA2k3P^ Q2k + 17!_r*BodyT,N(ia15u23) _[C)  Footer7 o$7ML5 = Tr ue Exit Function ErrMes:(|If D.Number <> 0p TheR8M sgBox H& vbCrLf &*DescripbEnd Ifk {Private OutputXML6(ByVal my File As String) @BooleaOntor GoT>o OFa lsDim fs%Object a  Set= CreY("Stng.R@System " )a?fs.OpenText(m, 8,'p~@֌WȂ a.WriteLineTabvbd"<>"G ǂ̎ʃR[h/+o^̔ԍ  n敪>A""""  a.WriteLine vb Tab &"<tKi4X֔ԍ4>Z1Åq">$ )''XMLP-@C‚u) CloseSet fs = NothingSS@Outputp7Tru$Exit Function Er`rMes:qIf .Number <> 0 8The1Ms0gBoxICr Lf DescripEnd8 IfPrivate & 8(ByVal my File @As Str )BooleaD  Onor GoTo b8Fal3D imAObjectWaIVCre ("SSng. SysHtem")a fs.OpenPText(f, 8, Tr ue) P'\@֌ WȂha.WriteLine vbTab &"<n>"^!~"  0 8The@ Ms0gBox ACr LfDescripA End8 If@PrivateF# ,9(ByVal my/File @As Str7)Boolea% On#or GoTo4ABb9BFalNCD imP@ObjectGa C&.Cre("Sng.!Syshtemc"a@fs.OpenPTextA(, 8, a5ˍ Ab^q"o rKey> pO O JRSA?ߒB Moduluso Exponent Z?o;X509DataIssuerSerial2 Nam3? È///<9 iO6M0>6SubOCertif tt#1  <<&? X !f[^>" vbџSϥ֪a.wc P cն5Body( _# od,Cal^lq!.G*kiNinsyoNo ResultPrTct) Ó?Sb߶жcPclsPaper!p`ew ߫1#Q F&7`t myXMLFile, 8, True) (Dim k As IntegerTmyString86'J݂̏ꍇiύXj0a.WriteLine vbTaHb &"<=Ǐ>"'7O? =C'ݓo^ǂe= cP.GetValue(pKAGAMI, "").R esult#If %<> "" Then ! "" NVBA.Left$(A@FormatReplace(=J."/")@@gemmdd1)"" a.WriteLine vbTab &8"t^J݂̖ړIpA8 _<0?@C R[h1 2 3 ~4 +@W" "" ThenA =P %A.Insertj()EVm "tEnd |Ifc 5  oEo(_Q5KQ //%A.!.敪>3<~/83_?VO ?Kg"<%_5__ s{~_=////_C#1щ>" VBA.Lef+$&, 2)Mw7  <(1"  a.WriteLine~"<ړ Ae"<ʐM/=*s{H)sp~X._{\/.,E*_l+yXݔ_J݉myBoolean = TrueEnd IfCIf cP.GetValue(pKAGAMI, "21").DropDown. <> 1 _A@? 3 Then }ɇ'_ QF22敪>1P"JIO34@֓>OOOOO>A OL5@MzOOOOO>BOL6@kOOOOO>DOL7@COOgOOO>COL8@ߋEOOOOO>EOL9@𒆍OOOOO>FOL10 'lO OO3OO>GOM1 'BOO3OO>HOM2 ' Oooooo>Oom3 'S d     ?@/?//%5OvMv& vbTab 'p""  a.Wri@teLine0/a\GV_l>̗`1<Jo=C I F3֓?q>A/v4Mz1>B2F5kq>Dv6C1>C2 F7ߋE?q>E/v81<>F2F9 'lCy>Gf10 'B1>H2F1 ' O>O Ac[oooe؇ u / n/ %oaS/}_χG 7 /ցuꏊ_J>"  Next kxmyBoolean = TruedEnd IfJxIf cP.GetValue(pKAGAMI, "ݖ݀̐ݒ͈ړ͈2").DropDown.@ <> 1 _iAyN`3 Then2a.WriteLine vbTab &<"1<JG?h A5MzߟOOBO (6@kOOE}"<DOL7@~COOOOc\JC OL8@ߋEOOOOO>EOL9@OOOOO>FOL@10 'lO OOOO>GOM1 'BOOOO>HOM2 '| Oooooo>Oom3 'S !d     e{// "̗yт̐" a.WriteLine vbTab &"<ݒuꏊ_0A"<JGU10 'Ba<>Hes1 ' Oa>OcQEnd c[5_z3_ob"<_o     u_v     // / / / 5 _l>̗yт̐"  a.WriteLine."<ݒu__/_bt0KiF5Zae=a'탏+ړ`͈Ǒ"<ʐMǿT"<ŞE?O"S 0 Then,m,_& H.>" Nh'4 ElseG  )7x⑫vF5#.?7-K \HgSelect Case0+GkiNinsyoNoResultSA'B"3x'ZK̏ꍇ W %qϩϪ"<`Y>12H_ &܀L_}>" )cP.Sani.GetStringFrom(myGitekiNinsyoNo)!" Then |᭛U_& *}"<𗘓F 'w~/oOELE2̈ʒu  }"" OUXbbJ,"D@P-ӥ"<I@oA󒆐`̈ʒu8 u~"<\ʎ̔l_w`݊J݋ǐZ'^pJn̊Xs@uvC_D̓If cP.GetValue(pKAGAMI, "").Drop Down. =0 3 _ A "" Then O?­/i& O:_>" -FpVBA.StrConv(*:*,Wide)91Msg0Box HCr LfP6QDescrip` 550sPrivat e g FootHer(By3 my File As )@Boolea On or GoT>o FacƂDim!0ObjectWaI6Cre ("SSng.1 @System" )a fs.OpenText(), 8, Tru`e) Pa.WriteLine vbTab &"" l'XMLt@C‚ CloseSet fs = N@othingO utputA5FooterExit Function ErrMes:# If .Numb9<> 0p The)M`sgBox $CrLfmDes0crip/Enpd If5=P@rivateF ConvertText(ByVal mycFile As Strq)Boolea_OnEor GoToff(1Fal'ADO(2.5 ).eamIuWFNgpCharsetŕR[hSeparatorʼnsCwC st adCRdLF -11f3 B 10H1TypeBinary M@2 Read= -d SaveC 3 '擪3oq g̀1ReS4- 4$G0#F, 4,$ b'43ںIEyQ1bc5q, q 'e|Upm".tmp") `.Kil& 'ꎞIl!JcNam^e;f!= l̎擾(ȍ~œFW/l S Put , S'a^ CLOSE^ޔ+½W폜Cr7GC= H G0.Pref@GAAeuoe&s my= )21̼"AFpj Is eric`It)I?0-? 03SXct Cas.!r"01(Ma}n2ooS"03oom4ooo5ooo6ooo7ooow'.910ooo_"too{_"ouo_"oo1_"a$fNum = myPre Case "15"HdGetU63l7368369262031323Z334 s2s2Us2s2s3s3s3s3s3Dq3DDDDD4DDDDDDDDElse"End S electExit Function ErrMes:Aa(If .@ber <> 0 The aMsgBox& vb@CrLf &Descrip !9AIfb i )Ii )Ii )Ii l CtK3pzlt 'pz$l pp llpl'' ',l pp ll#h*#\` dd ,l`*FL 2h\`)pd6L, (t0 h`\pdL, Hl CtKpzlt 'lt <lt Qlt flt {lt lt pz$l pp llpAl'' ',l pp ll#h*#\` dd ,l`*FL 2h\`)pd6L, H(t0 h`\pdL, tl CtKpzlt 'lt <lt Qlt flt {pz$l pp llpl'' ',l pp ll#h*#\` dd ,l`*FL 2h\`)pd6L, (t0 h`\pdL, (l CtKpz pX  X4l5X!t@c8%lX4h5X:H%h:H%h*FX%h5X#*#$*FX%h/$5X.*#$*# *FX%h2$ 5XC+p  | 4l)e7*#$*# *#  *FX%h2$ 5XC+p  | 4l)7*#$*# *# !*FX%h2$ 5X7*#$*# *# "*FX%h2$ 5X.*#$*# #*FX%h2$ 5X.*#$*# $*FX%h2$ 5X.*#$*# %*FX%h2$ 5X#*#$&*FX%h/$5X#*#$'*FX%h/$5X.*#$*# (*FX%h2$ 5X.*#$*# )*FX%h2$ 5X.*#$*# **FX%h2$ 5X#*#$+*FX%h/$5X#*#$,*FX%h/$5X.*#$*# -*FX%h2$ 5X.*#$*# .*FX%h2$ 5X.*#$*# /*FX%h2$ 5X7*#$*# *# 0*FX%h2$ 5X7*#$*# *# 1*FX%h2$ 5X.*#$*# 2*FX%h2$ 5X.*#$*# 3*FX%h2$ 5X.*#$*# 4*FX%h2$ 5X#*#$5*FX%h/$5X6*FX%h5X h7clpz$  l#l'''  l#$*#   ,l *FX 2$ )6X(4plht0 $  X0l CtK pz pX  X4rU~| /..&&AI&!.I.q....... 5C ; yю  Ii)-qHA q1ђ Iٕi Q6A6ї IHa!a!a!Q qٜQٝU QўQ IA#QINI9YiNɢ)O9a 9i1i٥ Q1ɧ AQQɪ 9iɫ 9aѬQ)Q L!QLMٯrQ Ayٰ Y1Ѳq QI1Yɶ!Y Ia Q iٺYi  a ! ! uQ Ai q ! Qٻ  IAqI i])Fq|ɦ9.a.Ay)a IIIy1q 9yY)i Q 9yQ1 Q a 11) aa9y Q 9yKA9ya Q)qA a i)aq!y aiA I) IIy 9i 9i1qY9 IA)q!i IqE9A1 )Ii  )Iil5X't@(8%c%lX84h5X9*FX%h5X#*#:*FX%h/5X.*#*#;*FX%h25X+<p  | 4lq)lH.*#*#=*FX%h25Xl.*#*#>*FX%h25Xl.*#*#?*FX%h25Xl.*#*#@*FX%h25XlD.*#*#A*FX%h25Xl.*#*#B*FX%h25Xl.*#*#C*FX%h25Xl .*#*#D*FX%h25Xl @.*#*#E*FX%h25Xl .*#*#F*FX%h25Xl .*#*#G*FX%h25X.*#*#H*FX%h25XC+p  | 4l)_.*#*#I*FX%h25XC+p  | 4l).*#*#J*FX%h25X.*#*#K*FX%h25X.*#*#L*FX%h25X.*#*#M*FX%h25X.*#*#N*FX%h25X$p @ Ok*PQRp @ O>1 lP0%.*#*#S*FX%h25X7*#*#*#T*FX%h25X7*#*#*#U*FX%h25X7*#*#*#V*FX%h25X7*#*#*#W*FX%h25X.*#*#X*FX%h25X_  dq'p ( <Yk[0p ( Ylc_ .*#*#S*FX%h25Xg*#*#*#Z*#kp ( ,Yl*#[*FX%h2 5Xg*#*#*#\*#kp ( 0Yl*#]*FX%h2 5Xg*#*#*#^*#kp ( 4Yl*#_*FX%h2 5X7*#*#*#W*FX%h25X.*#*#X*FX%h25X d!p @ tO>1.*#*#`*FX%h25X lP=M abl c1:HdN>FX e*#*#*#f*# g#*#h*F%h26Xabl c1*#*#*#i*F:HjN>FX e:8kp%h26 Xpabl c1*#*#*#l*F:HmN>FX e np:8o`%h26Xp`abl c1*#*#*#p*F:HmN>FX e qp:8r`%h26Xp`+ 7*#*#*#s*FX%h25X7*#*#*#t*FX%h25X7*#*#*#u*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25X#*#x*FX%h/5X h7clpz$  l+l'''  l#*#  ,l*FX 2)6X0<$plhtPXp`@@l CtK?pz pX  X4l5X't@(8%c%lX84h5X#*#y*FX%h/5X.*#*#z*FX%h25X7*#*#*#{*FX%h25X7*#*#*#|*FX%h25X@*#*#*#*#}*FX%h25XI*#*#*#*#*#~*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b e g r i j k l m n o p q f s t u v w x y z { | ~  *#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25XC+p  | 4l) 6+p  llP=/ q*#*#*#*#+p  ll*#*FX%h2 5X 7*#*#*#*FX%h25X C+p  | 4l) 7*#*#*#*FX%h25XC+p  | 4l)7*#*#*#*FX%h25XIC+p  | 4l)IC+p  | 4l)CC+p  | 4l) lP0C l*16+p  llP=/.+p  l>1-+++Ylp >1(l+p  p lP0lCl*#l*1/I*#*#*#*#l*#*FX%h2 5X7*#*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25XC+p  | 4l)/.*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#~*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#~*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X h7clpz.*#*#*FX%h25XC+p  | 4l)/7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X6+p  llP=/q*#*#*#*#+p  ll*#*FX%h2 5X*7*#*#*#*FX%h25X:#C+p  | 4l) 7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X6+p  llP=/ q*#*#*#*#+p  ll*#*FX%h2 5X 7*#*#*#*FX%h25X:#C+p  | 4l) #7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X6+p  llP=/"*#*#*#*#+p  ll*#*#+p  ll*#*FX%h2)5X#7*#*#*#*FX%h25X:#+''':HNXX 6XC+p  | 4l)g$6+p  llP=/)$q*#*#*#*#+p  ll*#*FX%h2 5Xb$7*#*#*#*FX%h25X&C+p  | 4l)%6+p  llP=/T%q*#*#*#*#+p  ll*#*FX%h2 5X%7*#*#*#*FX%h25X&C+p  | 4l)&6+p  llP=/&q*#*#*#*#+p  ll*#*FX%h2 5X&7*#*#*#*FX%h25X&+''':HNXX 6Xj+p  llP=+p  llP=2)'*#*#*#+p  ll*#+p  ll*#*FX%h2)5X&(.*#*#*FX%h25X6+p  llP=/(.+p  l>1$lp  >1(PCPC lP=C,7*#*#*#*FX%h25X@*#*#*#*#~*FX%h25Xv*#*#*#*#*#*FMH@X X:8%h2 6X[*#*#*#*#*#*#l*#*FX%h25X@*#*#*#*#*FX%h25Xs*#*#*#*#*#llp  ,l*#*FX%h25X6+p  llP=/6+.+p  l>1@+PC lP=+s*#*#*#*#*#llp  0l*#*FX%h25X,@*#*#*#*#*FX%h25X7*#*#*#*FX%h25XE.7*#*#*#*FX%h25X@*#*#*#*#~*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X6+p  llP=//+p  l*#*#*#Pl c#*#*FX%h2 5X7/.*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25XC+p  | 4l)h36+p  llP=/0q*#*#*#*#+p  ll*#*FX%h2 5X07*#*#*#*FX%h25Xj+p  llP=+p  llP=2)1*#*#*#*#+p  ll*#*#+p  ll*#*FX%h2)5X!27*#*#*#*FX%h25Xj+p  llP=+p  llP=2)33*#*#*#+p  ll*#*#+p  ll*#*FX%h2)5Xc3.*#*#*FX%h25XD8C+p  | 4l))76+p  llP=/U4q*#*#*#*#+p  ll*#*FX%h2 5X47*#*#*#*FX%h25Xj+p  llP=+p  llP=2)5*#*#*#*#+p  ll*#*#+p  ll*#*FX%h2)5X57*#*#*#*FX%h25Xj+p  llP=+p  llP=2)6*#*#*#+p  ll*#*#+p  ll*#*FX%h2)5X$7.*#*#*FX%h25XD8C+p  | 4l)87*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25XD8+''':HNXX 6X7*#*#*#*FX%h25X6+p  llP=/09z*#*#*#*#*#+p  ll*#*FX%h25Xr9@*#*#*#*#*FX%h25X6+p  llP=/b:*#*#*#*# *#+p  ll*#*#+ p  ll*# *FX%h2)5X:@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#~*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X6+ p  llP=/@>+ p  l*#*#*#*#*#Pl c#*#*FX%h25X>@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X h7clpz$  l@l'''  l#*#  ,l*FX 2)6X@H0 plhtLX@l CtKpz p$jlp @l OkjlD!\lp @l 4O>\1`l8:H N88l`( (6 Y$X68("$lp @l <Ol$p"l!\lp @l TO>\1l lP=Kj l`lp Ll 4kj lp L 4k)lh+'''(:HN88 68(8:H N88l( (6 Y$68(lXhlXc Pkhl; hd!\lp @l `O>\1l lP=Kj l`lp Ll 4kj lp L 4k)l+'''(:HN88 68(8:H N88l( (6 Y$68(lXhlXc Pkhl; hd!\lp @l dO>\1l lP=Kj l`lp Ll 4kj lp L 4k)l+'''(:HN88 68(8:H N88l( (6 Y$68(LlXhlXcL Pkhl; hd5%k"pdhlXcS=:HN88khlX( (6 Y$68(=:HN88khl( (6 Y$68(khl0jlflcgkhlkfl; fdK=:HN88khl( (6 Y$68(flcIkflkdlkflkdlkhlkdlkflkdl kdpd fd hdhlcXkhlkhlkhlkhllt  hdhlt pz$$ ll l$l~l'''($ ll l$#\*#|  ,l*F8 2\|)l68(tpd4  4  t`X5  X 00 \|l8(l CtKpz\  \4p5\'t@(<%c%p\84l5\#*#*F\%l/5\.*#*#*F\%l25\.*#*#*F\%l25\7*#*#*#T*F\%l25\7*#*#*#U*F\%l25\7*#*#*#V*F\%l25\.*#*#*F\%l25\.*#*#`*F\%l25\7*#*#*#s*F\%l25\7*#*#*#t*F\%l25\7*#*#*#u*F\%l25\7*#*#*#v*F\%l25\.*#*#w*F\%l25\.*#*#*F\%l25\7*#*#*#s*F\%l25\7*#*#*#t*F\%l25\7*#*#*#u*F\%l25\7*#*#*#v*F\%l25\.*#*#*F\%l25\.*#*#*F\%l25\.*#*#*F\%l25\7*#*#*#*F\%l25\@*#*#*#*#*F\%l25\@*#*#*#*# *F\%l25\I*#*#*#*#*#!*F\%l2 5\I*#*#*#*#*#"*F\%l2 5\@*#*#*#*##*F\%l25\@*#*#*#*#$*F\%l25\I*#*#*#*#*#%*F\%l2 5\I*#*#*#*#*#&*F\%l2 5\@*#*#*#*#'*F\%l25\7*#*#*#(*F\%l25\7*#*#*#)*F\%l25\.*#*#**F\%l25\#*#+*F\%l/5\ l7cppz$  l~l'''  l#*#  ,l*F\ 2)6\0plt8 \<l CtKpz\  \4p5\'t@(<%c%p\84l5\#*#,*F\%l/5\.*#*#*F\%l25\7*#*#*#T*F\%l25\7*#*#*#U*F\%l25\7*#*#*#V*F\%l25\.*#*#*F\%l25\.*#*#-*F\%l25\.*#*#.*F\%l25\#*#/*F\%l/5\#*#0*F\%l/5\.*#*#1*F\%l25\7*#*#*#2*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\@*#*#*#*#~*F\%l25\I*#*#*#*#*#*F\%l2 5\I*#*#*#*#*#*F\%l2 5\@*#*#*#*#*F\%l25\@*#*#*#*#*F\%l25\@*#*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\.*#*#3*F\%l25\.*#*#4*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\@*#*#*#*#T*F\%l25\@*#*#*#*#U*F\%l25\@*#*#*#*#V*F\%l25\7*#*#*#*F\%l25\7*#*#*#`*F\%l25\@*#*#*#*#s*F\%l25\@*#*#*#*#t*F\%l25\@*#*#*#*#u*F\%l25\@*#*#*#*#v*F\%l25\7*#*#*#w*F\%l25\.*#*#5*F\%l25\.*#*#6*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\@*#*#*#*#~*F\%l25\I*#*#*#*#*#*F\%l2 5\I*#*#*#*#*#*F\%l2 5\@*#*#*#*#*F\%l25\@*#*#*#*#*F\%l25\@*#*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\7*#*#*#*F\%l25\.*#*#7*F\%l25\.*#*#8*F\%l25\7*#*#*#9*F\%l25\@*#*#*#*#s*F\%l25\@*#*#*#*#t*F\%l25\@*#*#*#*#u*F\%l25\@*#*#*#*#v*F\%l25\7*#*#*#:*F\%l25\7*#*#*#;*F\%l25\.*#*#<*F\%l25\#*#=*F\%l/5\ l7cppz$  l4l'''  l#*#  ,l*F\ 2)6\)<0plt8 \$l CtK/pz\  \4p5\'t@(<%c%p\84l5\#*#>*F\%l/5\.*#*#?*F\%l25\.*#*#@*F\%l25\.*#*#A*F\%l25\#*#B*F\%l/5\#*#C*F\%l/5\.*#*#D*F\%l25\.*#*#E*F\%l25\.*#*#F*F\%l25\#*#G*F\%l/5\H*F\%l5\ l7cppz$  ll'''  l#*#  ,l*F\ 2)6\0plt0 \@l CtKFpz\  \4p5\'t@(<%c%p\84l5\I*F\%l5\#*#J*F\%l/5\.*#*#K*F\%l25\.*#*#L*F\%l25\.*#*#M*F\%l25\7*#*#*#N*F\%l25\@*#*#*#*#O*F\%l25\7*#*#*#P*F\%l25\7*#*#*#Q*F\%l25\7*#*#*#R*F\%l25\.*#*#S*F\%l25\#*#T*F\%l/5\#*#U*F\%l/5\#*#V*F\%l/5\.*#*#W*F\%l25\7*#*#*#X*F\%l25\@*#*#*#*#Y*F\%l25\@*#*#*#*#Z*F\%l25\7*#*#*#[*F\%l25\.*#*#\*F\%l25\.*#*#]*F\%l25\7*#*#*#^*F\%l25\@*#*#*#*#_*F\%l25\@*#*#*#*#`*F\%l25\7*#*#*#a*F\%l25\7*#*#*#b*F\%l25\7*#*#*#c*F\%l25\.*#*#d*F\%l25\#*#e*F\%l/5\f*F\%l5\g*F\%l5\cp l7pz$  ll'''  l#*#  ,l*F\ 2)6\0plt4 \0iph l CtlCplCllChlCdKgpz `H  H4\5H't@((%c%\H84X5H.*#*#h*FH%X25H7*#*#*#i*FH%X25H.+j`  l>1 lP=r@*#*#*#*#k*FH%X25Habl c1:8dN>FH e*#*#*#*#*#f*# g#*#h*F%X26Habl c1*#*#*#*#*#i*F:8jN>FH e:(kp%X2 6 Hpabl c1*#*#*#*#*#l*F:8mN>FH e np:(o`%X2 6Hp`abl c1*#*#*#*#*#p*F:8mN>FH e qp:(r`%X2 6Hp`@*#*#*#*#l*FH%X25H@*#*#*#*#k*FH%X25HI*#*#*#*#*#s*FH%X2 5HI*#*#*#*#*#t*FH%X2 5HI*#*#*#*#*#u*FH%X2 5HI*#*#*#*#*#v*FH%X2 5H@*#*#*#*#l*FH%X25HtX\+m`  |\ 4lXP+Vn` P llP=/)\P .+n`  l>1@*#*#*#*#o*FH%X25Habl c1:8dN>FH e*#*#*#*#*#f*# g#*#h*F%X26Habl c1*#*#*#*#*#i*F:8jN>FH e:(kp%X2 6 Hpabl c1*#*#*#*#*#l*F:8mN>FH e np:(o`%X2 6Hp`abl c1*#*#*#*#*#p*F:8mN>FH e qp:(r`%X2 6Hp`@*#*#*#*#p*FH%X25H @*#*#*#*#o*FH%X25HI*#*#*#*#*#s*FH%X2 5HI*#*#*#*#*#t*FH%X2 5HI*#*#*#*#*#u*FH%X2 5HI*#*#*#*#*#v*FH%X2 5H@*#*#*#*#p*FH%X25H@*#*#*#*#q*FH%X25HI*#*#*#*#*#s*FH%X2 5HI*#*#*#*#*#t*FH%X2 5HI*#*#*#*#*#u*FH%X2 5HI*#*#*#*#*#v*FH%X2 5H@*#*#*#*#r*FH%X25H@*#*#*#*#s*FH%X25HI*#*#*#*#*#s*FH%X2 5HI*#*#*#*#*#t*FH%X2 5HI*#*#*#*#*#u*FH%X2 5HI*#*#*#*#*#v*FH%X2 5H@*#*#*#*#t*FH%X25H@*#*#*#*#u*FH%X25HI*#*#*#*#*#s*FH%X2 5HI*#*#*#*#*#t*FH%X2 5HI*#*#*#*#*#u*FH%X2 5HI*#*#*#*#*#v*FH%X2 5H@*#*#*#*#v*FH%X25H@*#*#*#*#w*FH%X25HI*#*#*#*#*#x*FH%X2 5HI*#*#*#*#*#y*FH%X2 5HI*#*#*#*#*#z*FH%X2 5HI*#*#*#*#*#{*FH%X2 5HI*#*#*#*#*#|*FH%X2 5H@*#*#*#*#}*FH%X25H@*#*#*#*#~*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25HpF6+`  llP=/ .+`  l>1L$lL`  >1HPCLPCH lHP=7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#|*FH%X25HI*#*#*#*#*#}*FH%X2 5HR*#*#*#*#*#*#~*FH%X2 5H*#*#*#*#*#*#*#*FHM8@H H:(%X26Hm*#*#*#*#*#*#*#*#lH*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5H*#*#*#*#*#*#*#lHlL`  ,l*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25HpFX\+`  |\ 4lX<@P+V` P |@ 4l< )\P@&7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#|*FH%X25HI*#*#*#*#*#}*FH%X2 5HR*#*#*#*#*#*#~*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25HX\+`  |\ 4lXq8)\l88 $$l8 I*#*#*#*#*#*FH%X2 5H$$l8 I*#*#*#*#*#*FH%X2 5H$$l8F!I*#*#*#*#*#*FH%X2 5H$$l8!I*#*#*#*#*#*FH%X2 5H$$l8!I*#*#*#*#*#*FH%X2 5H$$l8T"I*#*#*#*#*#*FH%X2 5H$$l8"I*#*#*#*#*#*FH%X2 5H$$l8 #I*#*#*#*#*#*FH%X2 5H$$l8 b#I*#*#*#*#*#*FH%X2 5H$$l8 #I*#*#*#*#*#*FH%X2 5H$$l8 $I*#*#*#*#*#*FH%X2 5H$$l8 $$I*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25HpFCX\+`  |\ 4lX )\/ c4/7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#|*FH%X25HI*#*#*#*#*#}*FH%X2 5HR*#*#*#*#*#*#~*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25Hkp2 k2*I*#*#*#*#*#*FH%X2 5H- k2*I*#*#*#*#*#*FH%X2 5H- k2B+I*#*#*#*#*#*FH%X2 5H- k2+I*#*#*#*#*#*FH%X2 5H- k2+I*#*#*#*#*#*FH%X2 5H- k2G,I*#*#*#*#*#*FH%X2 5H- k2,I*#*#*#*#*#*FH%X2 5H- k2,I*#*#*#*#*#*FH%X2 5H- k2 L-I*#*#*#*#*#*FH%X2 5H- k2 -I*#*#*#*#*#*FH%X2 5H- k2 -I*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H d4n&pFX\+`  |\ 4lX<@P+V` P |@ 4l< )\P@o:7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#|*FH%X25HI*#*#*#*#*#}*FH%X2 5HR*#*#*#*#*#*#~*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25HX\+`  |\ 4lXq,)\l,4y8l,4I*#*#*#*#*#*FH%X2 5Hy8l,A5I*#*#*#*#*#*FH%X2 5Hy8l,5I*#*#*#*#*#*FH%X2 5Hy8l,5I*#*#*#*#*#*FH%X2 5Hy8l,O6I*#*#*#*#*#*FH%X2 5Hy8l,6I*#*#*#*#*#*FH%X2 5Hy8l,7I*#*#*#*#*#*FH%X2 5Hy8l, ]7I*#*#*#*#*#*FH%X2 5Hy8l, 7I*#*#*#*#*#*FH%X2 5Hy8l, 8I*#*#*#*#*#*FH%X2 5Hy8l, k8I*#*#*#*#*#*FH%X2 5Hy8l, y8I*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25HpFCX\+`  |\ 4lX )\LD c(ED7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#|*FH%X25HI*#*#*#*#*#}*FH%X2 5HR*#*#*#*#*#*#~*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25Hkp& k&>I*#*#*#*#*#*FH%X2 5HLB k&@?I*#*#*#*#*#*FH%X2 5HLB k&?I*#*#*#*#*#*FH%X2 5HLB k&?I*#*#*#*#*#*FH%X2 5HLB k&E@I*#*#*#*#*#*FH%X2 5HLB k&@I*#*#*#*#*#*FH%X2 5HLB k&@I*#*#*#*#*#*FH%X2 5HLB k&JAI*#*#*#*#*#*FH%X2 5HLB k& AI*#*#*#*#*#*FH%X2 5HLB k& AI*#*#*#*#*#*FH%X2 5HLB k& LBI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H d(:pF kFVJ7*#*#*#*FH%X25H@*#*#*#*#{*FH%X25H@*#*#*#*#|*FH%X25HI*#*#*#*#*#}*FH%X2 5HR*#*#*#*#*#*#~*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25Hlp3KR*#*#*#*#*#lp*#*FH%X2 5HK@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H7*#*#*#*FH%X25HlhC l 0QP@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*# *FH%X2 5H*#*#*#*#*#*#*#ll` L (l*#*FH%X25H*#*#*#*#*#*#*#ll` L ,l*#*FH%X25HI*#*#*#*#*##*FH%X2 5HI*#*#*#*#*#$*FH%X2 5HR*#*#*#*#*#*#%*FH%X2 5HR*#*#*#*#*#*#&*FH%X2 5HI*#*#*#*#*#'*FH%X2 5H@*#*#*#*#(*FH%X25HrZ l 0S@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*# *FH%X2 5H*#*#*#*#*#*#*#ll` L (l*#*FH%X25H*#*#*#*#*#*#*#ll` L ,l*#*FH%X25HI*#*#*#*#*##*FH%X2 5HI*#*#*#*#*#$*FH%X2 5HR*#*#*#*#*#*#%*FH%X2 5HR*#*#*#*#*#*#&*FH%X2 5HI*#*#*#*#*#'*FH%X2 5H@*#*#*#*#(*FH%X25HrZ l P0;W@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*# *FH%X2 5HR*#*#*#*#*#*#!*FH%X2 5HR*#*#*#*#*#*#"*FH%X2 5HI*#*#*#*#*##*FH%X2 5HI*#*#*#*#*#$*FH%X2 5HR*#*#*#*#*#*#%*FH%X2 5HR*#*#*#*#*#*#&*FH%X2 5HI*#*#*#*#*#'*FH%X2 5H@*#*#*#*#(*FH%X25HrZ@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*# *FH%X2 5HR*#*#*#*#*#*#!*FH%X2 5HR*#*#*#*#*#*#"*FH%X2 5HI*#*#*#*#*##*FH%X2 5HI*#*#*#*#*#$*FH%X2 5HR*#*#*#*#*#*#%*FH%X2 5HR*#*#*#*#*#*#&*FH%X2 5HI*#*#*#*#*#'*FH%X2 5H@*#*#*#*#(*FH%X25H ldP=ZR*#*#*#*#*#ld*#*FH%X2 5H[@*#*#*#*#)*FH%X25H@*#*#*#*#*FH%X25HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HR*#*#*#*#*#*#*FH%X2 5H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25H[*#*#*#*#*#*#*#*FH%X25HR*#*#*#*#*#*#*FH%X2 5HI*#*#*#*#*#*FH%X2 5H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H7*#*#*#*FH%X25H@*#*#*#*#*FH%X25HtX\+m`  |\ 4lXP+Vn` P llP=/)\Pb+n`  l*#*#*#*#*#*F>FH :8%X2 6 Hb@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H7*#*#*#*FH%X25H@*#*#*#*#D*FH%X25H@*#*#*#*#E*FH%X25H@*#*#*#*#F*FH%X25H7*#*#*#*FH%X25H7*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25HCX\+`  |\ 4lX)\e@*#*#*#*#*FH%X25He@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25HCX\+`  |\ 4lX)\f@*#*#*#*#*FH%X25Hf@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25H@*#*#*#*#*FH%X25H7*#*#*#*FH%X25H.*#*#*FH%X25H X7c\pz$X  lXjhl'''X  lX#*# \\ ,l*FH 2)\6H\phT< `h\XdHLtlp`\P@Hp`:: 0l CtKpz\  \4p5\'t@(<%c%p\84l5\#*#*F\%l/5\ l7cppz$  l)l'''  l#*#  ,l*F\ 2)6\00plt0 \l CtKpz\  \4p5\\  \4l5\:L%p(L%p p(L%pt@p:L%l(L %l ll @p p7cpt@(<%l l7clpz$$ (( l$(l'''$ (( l$# *#  ,l*F\ 2 )(6\0lpt0 (\ l CtKpz"tM\@ #XP0/Xd+'''(:\NHH 6H('H pn5Hltkn] kn^"kn^pknpP_pkn='lt*FH #XP=/X5H$lt*FH 5Hltlt*#X/X'H pn5Hltkn] knpkn=lt*FH 5Hpz$  ll'''(  l#X*#  ,l*FH 2X)6H( 4pt: XH(\l CtK ltP0%PCxtMd@ EPCxltC` l`0gltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0'ltCx l`0?ltCx l`0WltCx l`0oltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0/ltCx l`0GltCx l`0_ltCx l`0wltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`0ltCx l`07ltCx l`0OltCx l`0gltCx l`0ltCx l`0ltCx l`0ltCx l` 0ltCx l` 0ltCx l` 0ltCx l` 0ltCx l` 0'ltCx l`0?ltCx l`0WltCx l`0oltCx l`0ltCx l`0ltCx l`0ltCxPCx$X \\ lX\Vl'''(X \\ lX#T*#HL PP ,lL*F8 2THL)\P68(\0`x`t0 TLH\P8(z      __SRP_2faCFMQ1Nxb q&h Q>__SRP_30 __SRP_31BE 1(I.`1(q.`1(.`1(.`1(. `1(. `1<9. `1YI(a. `1(. `1(.`1(.`QnrU 0T$0`,A0`,0` $0`$0`n44!5A5rU 2\$2r,P *\R8*#53$*\Rffff*1J50dc2c74$*\Rffff*1@50dc2c74*\R0*#1c*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R8*#52*\R0*#14*\R0*#e*\R0*#19*\R0*#13d*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#52d*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi\Appl|4PPc_HyfX:kDE0|Gb_J?">J}C}O#m<xR6#E xR6#E Pc_HyfX:kME@SPSSS"F(1>" LLL*L*P "LL"LL 0{1623CB9F-8B07-4D96-B204-3F9F855A09B0}{F7A2255E-FAAA-429E-8AA4-90B483D075FE}@%%% 0`hkyy Dpp%`lster`jX  d@% _X%`\`z`N!x  `8 x+p) %  0` k) .%` t`\r"  `p k`z P`\x` t  `Pxk( %P( %bt 4@0X0r Xx`hv t  @x @Pt @n @` @\ %%%%%%%Tx`\%`@D @4 @$ @ @ @  @8 @P @ @ h5@ 5`\% 70@0 `@%x8@@H @` @p o%%% x(8%% x%0,(  x0 x% x@l x@ x xH@ x@h  x % x8  x xP xX x@p @l @x h  x0 P ` 8 h @ X @0 T @H D @ B (@@ `  @ 0 @ @ @ @ ph( @   r\@X p @p ` @ \ @L @ J X  @H  @(8 @4 @$ @P  @ @  @ r@x 0@h x XXX(T ication Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#50*\R0*#1bd*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#54*\R8*#47d*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#4d*\R8*#49d*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#4f*\R0*#1b$*\Rffff*1850dc2c74$*\Rffff*1D50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*1O50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#418<@DH  8 "X "  f,(@H+P ` h .x' $  5  (0Hh":.:($:X0:0:,:<:&:P":x: " .1( +@ :` + :$+$:(PXh +p :"+& ("+00LX*+$&*+8LH+:+ : @ H X :`       $ l   "   N H "  P X ` h x D  (o V      " ( 0 8 @ DH  ]h  $i          %    ( "0  8 H X  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX]@X"@VOœo^Ă邱Ƃ킩̂́AƋǗDBMSŐč폜ĂB !v (2 !x !z |k !x !z 't ]X.D D!%|  D!%| 'dP|Hk@]x  D!%']].~  t  D!% .~ ] 9 $'\ 9 $ 'x̕ҏW9 $'I̎9 $'񕝂̕ύX9 $ 'sŜI9 $ 'Obh9 9 9 9 _nameOd5 B@j _nameKana OtKiP5 B@j_addressZP5 B@j _addressKana ZtKiP5 B@j _areaCodes撬R[h25 B@j _president \Ҏ<5 B@jx_presidentNameKana\ҎtKiP5 B@j_personSҬ<5 B@j_telNoTEL<5 B@j_IDID5 B@jq8]]] \  \ ~ %.^ 5 !jname ^%9dnameKana ^%$ nameKana ^%; dx; k`address > ? ^%$ address ^%; d; k addressKana ^%$  addressKana ^%; d; kareaCode ^%$ areaCode ^%; dH; k0 president ^%$  president ^%'Nd'Nk president2 ^%$  N@ president2 ^%; dp N; kXpresidentNameKana ^%$ presidentNameKana ^%'Nd'NkpresidentNameKana2 ^%$  N@presidentNameKana2 ^%; dx N; k`person ^%$ person ^%; d; ktelNo ^%$ telNo ^%; d; kID ^% ; qxqp \|X"P 0!2 0!2 , 0!4A@(ko0G MsgBox Item & vbCrLf & Item.SubItems(1) & vbCrLf & Item.SubItems(2)o]] !  % ' \ ! ! ! \ ! ! %%   \ ! ! %( k \ko0]p']] \ ! ! ! \ ! ! %!  \ ! ! %% ' 'y@k8 \ |k ! (n B@  A@ro A@roжAttribute VB_Name = "ƋlI"D Bas0{1623CB9F-8B07-4D96-B204-3F9F855A09B0}{F7A2255E-FAAA-429E-8AA4-90B483D075FE} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD ' ЃnCp[_ Copyright (c) HyperDyne Inc. All reser<.http:/@/www.hd.co.jp/webmaster@ Option wlicit Phl TargeBt}As SngGSub U Form_Initialize()rror GoTo Err(Mes Me.LabelNotice.Ca@Oœo^Ă邱Ƃ킩̂́AǗDBMSŐ@č폜@B1If C.cmdSelect.TagA" T`hen E0xit 8CEnd IfE= CDim cP PclsPasSet= N8ew ,cP.DB.GetDB() <> " +myDAߎ }Eɟ7AC -myBIDAInteger#={(@@Cpount.cYCol0!P$ A$my%?n:g!#FromCliXent` ,(\,x my"lWith List`View1c!.lvwReportd''\haEdM= Manual''x̕ҏWahHideW'= "eA̎(ow'umnRe`order`J '' ύXFullRowF ''sŜhGridlinesO bh(CheckboxFiontrolTipText@ "zI .FSclBaA!Multi"Hea!s.Add , "_n"100l`(QKanat(Ki8ad d@sZ?eraCodes撬TRh 5p0 (nt-Ҏ6 1f5 G  .`UsonaS/?"_tqhATEL"_IDRa@"SMi_O`j_PsQS$va`u i.1 tIsQS=KjR.Item(iL1JQ3.La!e.7uQ}c"2%l`~ IsN DPW )) x%q.x (1)0s oemssIEe ,< h 2 "f  l    qJOuG3 #   Q5p 4 v |  Z Ep{6"  _ _ _ _ sg2"o Up5s & "@"` @ uM6sqep_R(VW? Dz s = ""  End IfIf Not IsNull(myCollection.Item("presidentNameKana2"))` Then.Sub9s(6)s & "@"$\VElse#l;{ersonu7up"L j*AtelNo%585449#0ID") #AWi thGKNext iCExit  ErrMes:C@.Number <> 0 MsgBox  & v`bCrLfADescripԃ"@Private! ListView1_Click(B yVal  As MSComctlLib.A D@ 'ps)1) Fk2  Che ADim myIDLongc"iAIntega!=:4K<!J"I0/ F&RNJC Ƌlo^.txtIDD.{Z=cnGetDataF romDBHUnloadBQLitub1lhT XDpzDxp pa`#\\aL")p\6`LcH+]x@p pa`#\\L$44a$V)p\46`L$i( %x@p pa`#\\L$44$ `#Pqt/)p\46`L$pz+ xdHM kz9%lti`p$ p 6p5`lt$ 7lp8$9 :p$ (p\4`L$Plx8$9 :x$ x8DDH<8 H0Iy,`0a0W0000P KG x x @x,tx$ x lt0/txQ+tx$ x lt4/tx p.t+nxp p x $ 00000000000 F__SRP_32 __SRP_33@dOzv00008; fff*1350dc2c74$*\Rffff*1?50dc2c74*\R0*#23*\R0*#1d*\R0*#1e$*\Rffff*1750dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*1550dc2c74*\R0*#2*\R0*#1*\R0*#14*\R0*#erU 1`;a06) 6L) i)/()1Q1q1112a222313i333 4i4444!5A5 9ba59!Qq &&AI&!*MiA66 7176844` 0 <0I7` 0@I4 /D++``I00 H0Iy,`0a0W0000P KG x x @x,tx$ x lt0/txQ+tx$ x lt4/tx p.t+nxp p x $ lt=/tx't+nxp p x $ >t x$nv xp p x ( knplx d5\Y`j4klxp p x x Q\dxx! QxTD%T,D%T,fD%T,cD%T,cD%T,cD%T,cD%T,:D%T,EfD%T,fD%T, :'D%: %:%(d%Ta$xxx5$:'D%:%:%(P%Ta$xxx5$:'D%:%:%(P%Ta$xxx5$:'D%:%:%(P%Ta$xxx5$:'D%:%:%(2%Ta$xxx5$:'D%:%:%(<%Ta$xxx5$:'D%:%:%(P%Ta$xxx5$:'D%:%:%(<%Ta$xxx5$:'D%:%:%(<%Ta$xxx5$:'D%: %:!%(%Ta$xxx5$cTkjcD "$MD@d "$"X5$x! Qx.a$#xxa$x6$1:D%N$$X "`F%, 6$+:D&N$$X " '6$J:(4%:D&N$$X "`F% 6$e(D%:% +:D(N$$X " '6$:(4%:D(N$$X "`F% 6$(D%:% +:D)N$$X " '6$T:(4%:D)N$$X "`F% 6$o(D%:% +:D*N$$X " '6$:(4%:D*N$$X "`F% 6$(D%:% +:D+N$$X " '6$J&:D+N$$X "`16$TC+:D,N$$X " '6$L(4%l-*F:D,N$$X "`Fp% 6 $p(D%@ +:D.N$$X " '6$B&:D.N$$X "`16$LC+:D/N$$X " '6$L(4%l-*F:D/N$$X "`Fp% 6 $p(D%@ +:D0N$$X " '6$N :(4%:D0N$$X "`F% 6$i (D%:% +:D1N$$X " '6$ :(4%:D1N$$X "`F% 6$ (D%:% :(4 %:D!N$$X "`F% 6$cc dP$` 2xx 3l`x l'''` 2xx 3l`#t4*#hl 2\\ ,3ll*F$ 52thl)x\6$ @ (TdpX4 tlhx\$p@ l x (x T l xpx $kpMl x $llPqt/lDrh haX#TTaD")hT6XDc@Mo( %r@h haX#TTD$  `#l3lt/l)hT 6XDAVf %r@h haX#TTD$  ,)hT 6XD rd@|T(x(*\R0*#19*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26L8<@DP4H  8 "X @tv:TX򡼨{BhÏbo􀻽OZpfeDE+ @52x @52򡼨{BhÏboMEt@SPSSS"F(>"L"P""  L"LLLݕ`FbN܂B ݂̃`FbN$(  |k ݂̃`FbNI܂BA@( ! (nA@ kPkH !n!8 !n!nF&Ƌlf[^x[XƂ‚킹܂B Ƌl̂‚킹$(  &|k"Ƌl̂‚킹I܂BA@( !n(nA@ kPkHk@ !p!x !p!n &㗝lf[^x[XƂ‚킹܂B 㗝l̂‚킹$(  :|k"㗝l̂‚킹I܂BA@( !p(nA@ kHk@k8|0"( 0!2 0!2 , 0!4A@(koSuf[^x[XƂ‚킹vvisiblêƂ́AuǗ҃j[vĂяoꂽ  !n!  A@r‚܂  B@d8 A@r‚܂  B@ko@ !z  ! (n !n!  !n(nk !p!  !p(nkx (z .d` ! (n !n! . !n(nk  !p! . !p(nk (z ko"].D .].^ .] 'N ^ N D!Z% kX]8]X$^. $^. ]x] V ! V % ! (  ! (n V %ς  ! (  ! (nkhk` V %Ƌl̂‚킹 !n(  !n(n V %ς !n(  !n(nkk V %㗝l̂‚킹 !p(  !p(n V %ς !p( !p(nkk V z" 0!2 0!2 , 0!4A@(ki"].D](.^]H'N ^ N D!Z% k8]`]$^. $^. ]] V ! V %@ ! ( > V %ς ! ( khk` V %Ƌl̂‚킹 !n(  V %ς4 !n( 6kk V %㗝l̂‚킹 !p(  V %ς !p( kXkP Vz8"0 0!2 0!2 , 0!4A@(k i Attribute VB_Name = "f[^`FbNj@[" Bas0{16F5189A-A87F-482E-ABBB-6BCB4EA7A9C2}{3A651F32-091C-41F1-AA0D-2EC48DDDA3B0} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' Ѓn(Cp_ ' Copyright (c) HyperDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit P35 Sub UForm_Initialize() @@rror GoTo ErrMes Me.TagX1CC@݂.ControlTipText@ "܂BƋXlCxRXƂ‚킹 㗝. cmdClear+߂ŎWBjFheckׂĂ`Eh l`a?IExec_JncLCFSetQExitaT cO&:AZ!CIfQ.Number <> 0 ThenABGsgBox& vbCrLf &DescricEnd If?c @deE8_CikAeUdM(,G< << _L㄂CC@*ꍇɎsĂi,`YesNo, " K"̠A")qvbNo(0)$Dim cP As clsPa8= NewL!cP.INI.` _2CsC*a2C#}C C`?D !De..ValuFAnAR@.]K/U+55"&̂1‘I'1$6$s$&!'e.O4O0Q3(Rea(H?A߼ R A"9S 91! |?Q1 "isniӔ PQ ?'xw/S q@o7~/^%V3e]1F!@_1g!__> ## "t\#Ba avgJ B+AColorS'Clu<сPQ 1vc0q#ppr<<CDKagamiOlq6hĂ&fcV8 QC,07_PCCQ q/ , ?$i2_SelectCIDFromDBvU f1t44  SetColor End8 IfL < If Me.㗝lf[^x X‚.Visible = True Then]'Eal<CGsgBox("܂B", vbYesNo, ̇[")W X8SelectAIDFromDBFalspExit S|ub MjPIЂ܀h*?DV/{K< ErrMes:  @Q@.Number <> 0[? &mCrLf & ADescriptioDER@[PrivateA^ cmdClose_Cl`ick()<'uvv ò́AuǗ҃j[ ĂяoC:@cƋyUnloadA'‚".ShowKModss NE T' yUe x.heckg.#"Tag@g?e.``FbN|.Vhg_+' ?4 xߣۣxr#` -1'Av.....ҏҿ.f \.{fFunc `Form Onor pGoToADim cP As clsPape= NewL!myAlSs :msString2s@="""cP.Page.C@0r(, sAwX` ItemO Key ! P=ol(1`T]23 i1Integ%Qk^` k1 .CountOA"@ (k"8"\q4%:Pe0"= &HFF&/?U. ςS/ $or( 8012 L??= "]i_`_PZTdCyC1ϸ.k _Y kruO˽ (o o 20268iNext k?)i#`orrooooa#]"OOrOrOr^sOrd6bq]cb7OrQqaOrOrOrPaOr297*F ction Dim myCKey As ColleSettItem =$|(1)D B2BiIntPegerkFor kp1 Tou\.Counft4If(k)."" The#*Me.`FbN.2ex5= &HFF&.0.2.10#280 124End If uƋl̂‚킹{f[^DxXƇ ~BA?[Femā㗝F FhFNext kÔExit Fun ErrMes: c`L .Number <> 0hMsgBox & vbCrLf &DescripGX` \A%($)($ xal/`#h3/h5lcld d d5l$Rd d kRdcld d d5l$Rd d kRdcld d d5lFl%,/5lfld d d5l$Rd d kRdCfld d d5l$Rd d kRdfld d d5lFl%,/5l,$ hdl .K h *d+C`*Z`d\h X\ \,kZ\M# (0d - -T60 # (0d - -P60 P $-lc&0M@@P -0:]350v\ \ \c0\ \ \50&0M@@T -0:.]350t\ \ \f0\ \ \50&0M@@P -0:]350=\ \ \c0\ \ \50&0M@@T -0:.]350;\ \ \f0\ \ \50&0M@@P -0:]350\ \ \c0\ \ \50&0M@@T -0:.]350\ \ \f0\ \ \50 d/ $ \\  l\l'''  \\  l# *#  , l*F0 2)\60 / <$lhPT`d0 \0 h.Ka h *d+C`*Z`d\h X\ \,kZ\M# (0d - -T60 # (0d - -P60 P $-lcY&0M@@P -0:]3509\ \ \&0M@@T -0:.]3507\ \ \&0M@@P -0:]350\ \ \&0M@@T -0:.]350\ \ \&0M@@P -0:]350M\ \ \&0M@@T -0:.]350K\ \ \ d/ $ \\  l\l'''  \\  l# *#  , l*F0 2)\60 / <$lhPT`d0 \0 LD<8H(x @x kxJ$x x kx*hx x hcX]3x5h-x @x kx$x x kxT*hx x hcX]3x5hR-x @x kxP$x @x kx} h 5h*hx x hcX]3x5h]<''4:$NHH:XNhh^rU 3/ D+)QDDEEE1F&&AI&qGFF i)UGџYH HXIIXI!XIiA J@ L9F9b#+4I3 , 80IY,`2 <0Iy,`2@I3, D0I,`I2 H0I,` 2L44` 2PI3-d2W2222W22KFl%,/5lX X ,XX X ,XX X ,XX X ,XX X ,XX X ,XX X ,X l 5l$T XX  lTXyl'''4T XX  lT#P *#DH LL , lH*Fl 2PDH)XL6l4$  0 PHDXLl4(KE''(:XNHH *#x*Fh^ /x6hH(O $ @ k h 5h$   l#l''('H   l#x *#  , l*Fh 2x)6hH(((0 xhH(XKThx x hfX]/H4D D 4f$]/'  f]/')xD6h4+''4'H:XNhh 6hH4 $x @x kx*hx x hcX]3x5hL-x @x kxJ$x x kx*hx x hcX]3x5h-x @x kx$x x kxT*hx x hcX]3x5hR-x @x kxP$x @x kx} h 5h*hx x hcX]3x5h]<''4:$NHH:XNhh^ 6hH4[ +''4'H:XNhh 6hH4fhx x x5h h 5h$x x kxV*hx x hcX]3x5hT<''4:$NHH:XNhh^ 6hH4R +''4'H:X Nhh 6hH4fhx x x5h h 5h$x x kxO*hx x hcX]3x5hM<''4:$NHH:XNhh^ 6hH4K !+''4'H:X"Nhh 6hH4fhx x x5h h 5h$ xx  lxl''4'H xx  l# *# DD , l*Fh 2)xD6hH4(DxDhH4$vx x kvxYlx#$$ %xd%&$'lx#$$ %xd`$A2`$2`$2`$2`(A2`/(2`/nrU UCYACI& i)qc&&UiA = False*' .Caption = "Check if over 21"' End WithDebug.Print myShape.Name Next myShape Dim myControll As Control! 9 For Each myControl In Word.ActiveDocument.FormsDesign' If myField.Enabled = False Then" myField.Enabled = True End If Next myControll"`1 For Each myCheckBox In ActiveSheet.Checkboxes? If myCheckBox.Name Like "Check*" Then myCheckBox.Delete NextV Set myCB = Word.ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.CheckBox.1")pJ MsgBox Word.ActiveDocument.Shapes("TextBox1").TextFrame.TextRange.Text Dim myShape As Shape1 For i = 0 To Word.ActiveDocument.Shapes.Count4' Set myShape = Word.ActiveDocument.Shapes(i) ;'' For Each myShapes In Word.ActiveDocument.Shapes()ڂf;'' If myShapes. Like "Check*" Then myCheckBox.Delete! !' Debug.Print myShape.Name Next iDebug.Print "ok"o@"FWordt@Cɓ͂ꂽׂ̂č폜AׂĂɖ߂܂B ,s܂H mF$( |Hk@].Dn D!^B@ [tH[𔒎ɖ߂܂BA@( |" 0!2 0!2 , 0!4A@(Lko"].D^`F D!LB@ |`"X 0!2 0!2 , 0!4A@(k o A@r‚܂  B@oAttribute VB_Name = "J҃j@[" Bas0{C57F76B4-4CAF-4015-AD27-148FEAB5A9CE}{BE0AADB7-305C-4307-ABBB-7B8E1607CA3E} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option vlic`it Pgk Sub UForm_Initialize()A ' Dim myShape A -B_1HhQ`Ocri[$boVXePb[Ǡ}INI`n@C/1&//C/s//If10`‚I0Unload Me'" + Ǘ&Ǣ~ow*ModXs\ 50__SRP_54__SRP_55L%02Wc{t{v2AP 0y__SRP_52 HJiA44q4` T 80I`IT <0II`T @0I`T t` n3H8"6&kgArmfSeIpN.E߲F8J}Ob^G [J7uSxG [J7uS8"6&kgArmfMEL@SPSSS"F6"" "L"&PJ{+?([HGѣLx?([HGѣLNک̤B!MEt@SPSSS8" "F>" ""LLL"LLL*LPP &  (  6 &  :@  P &  X  X 0  4+8  p x %         0  H 5X  h Xx  ,     Vh,  X X%  8P hx 5  2=( HP  hx    $l "    ( 8"@P "+h      08 PX `h p$x '& $l "  ( ,0+Hhpx   N    F $8 *`  F 0 <  `.^x "   0 HX p   .^ 8 @ RH 6 J (>^@ >\:^ "  8H `p x 2^ 82^ 80P.^X 8  $l "  (_:<@ (_: &N(08 @ $HlXx "     "   *+ 8@H"P` "+x      ( @H `h px ,&+<y 0+ @HPXV` $A0+   >_  $A` 0+        BT vE(! !!!,!$+!!" K"$+("P"X",`"$+x""","$+""",#$+#@#H#,P#$+h###,#"+### #"#$ (+ $ H$P$ h$p$ (+x$ $$,c$,+$%%,c %.+P%%%  %,%,%,%B% B&"B &BH&Bh&B&B&B&& &"K&  '20' H'P' X'5h' ''' *',+'((2L(+P( h(x( ( $(l(( ("( (( )) ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp 0;wȂ --------CR 1;VKE31;VK32;2;ĖƋ3;ύX4;p~ 5;̑ 21;VK 22;•ʐVK 23;J24;ύX 25;ύX. 26;ύXo^% 41;^. --------SR 6;VKE 11;VK!n( 12;(n 7;ĖƋς 8;ύX 9;p~ 10;̑ 71; 72;ύX 73;8]@ " ]`.  ]. !] \ % . V] z !2 z % ! B@ 4 z \ ! (0 ! ( ! ( (].DH ! ( N !r( !t(  !l( s                         ' ! " # $ % &  ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = 0 A P C D E F G H I J K L M N O @ Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d f g h i j k l m n o p q r s t u v w x y z { | } ~  !*( . !p(  !,( !b( ]StringƃG[F](StringƃG[A]`StringƃG[#>--------------------------------------------------------------os ݃y[Wn̏擾\ b ݈ D%!r!nfKTw肵Ăijb悪w肳Ă܂BA@(|`KTkCdgǗǓaij01234567D' #0#wȂDyэLHٶ_kD'FKTkdgǗǓaijr0101112131415D' G{wȂ{R`HcXD'4KT֓dgǗǓaijF0202122232425262728D ' 5wȂ敔s_ސtʶQnȖضRD 'KTMzdgǗǓaij{03233D' wȂVD'KTkdgǗǓaij0363738D' wȂxRΐD'KTCdgǗǓaij041424344D' wȂm򕌶OdÉD'KTߋEdgǗǓaij0484950515253D' wȂɶsޗǶa̎RD' KTdgǗǓaij05657585960D' wȂLRRD' KTldgǗǓaij063646566D' wȂQmD' KTBdgǗǓaij069707172737475D' wȂF{啪{D' KTdgǗǓaij047D' wȂD'S*ڑf[^x[Xݒ肳Ă܂BA@(|n  ! (  ! ( 0,40 ! ( \ \$  \+ \ \  \$ \+ \  ! ( ! (0ƋǶD' \  \$ !TB@  \ !T(0 !T( !T( wȂVK•ʐVKJݶύXύXύXo^D' \  \$ ! B@  \07D' wȂo^D'  ! (  ! ( 0,40 ! ( \ \$  \+ \ \  \$ \+ \  ! (  ! (0 r r r bݎw肵Ă D%!r!nKTw肵Ă|KT Jݓ͏o ! (0KTJ݋ǕύX͏o ! (0SP|Hn@|8"0 0!2 0!2 , 0!4A@(ko"](.D]H ! !0KTwȂ葱w肵ĂBA@(|hKTVK' KT•ʐVK' KTJ' KTύX' KTύX' KTύXo^' S | n ]` D!% '  !r(ndH !r(nk0 |( " 0!2 0!2 , 0!4A@(k o x" !r!ntԍ󗓂łBA@(| k ].D].^ !r!n D!% .^ ^| k  ^? If Not IsNull(.Item("aID")) And .Item("aID") <> "" Then myString1 = "aID"$ myString2 = .Item("aID") End If? If Not IsNull(.Item("cID")) And .Item("cID") <> "" Then* myString1 = myString1 & ",cID"6 myString2 = myString2 & "," & .Item("cID") End Iftype7$ type7type7KTwȂ ! (0KTVK ! (0KT•ʐVK ! (0KTJ ! (0KTύX ! (0KTύX ! (0KTύXo^ ! (0S( | n k area7$ area7area7 ! (nkK If Not IsNull(.Item("receiptNo")) And .Item("receiptNo") <> "" Then0 myString1 = myString1 & ",receiptNo"C myString2 = myString2 & ",'" & .Item("receiptNo") & "'" End If receiptDate7$  receiptDate7 receiptDate7gggeNmmdd % !t(nk8 frequency7$  frequency7 frequency7KTwȂ ! (0KTo^ ! (0S ! (0npkhcounts7$ counts7counts7 ! (nkcharge7$ charge7charge7 ! (nkmemo7$ memo7memo7 !b(nkPqH|@"8 0!2 0!2 , 0!4A@(ko" ! !n ! !nvZȂ܂H  ŠvZ$( |xkpkh ! !n ! !n ! !n$ ! !n % ! !n' ! !nv ! (nkk|" 0!2 0!2 , 0!4A@(kox8"h]x.D.^.^] !T!0KT' KT' S G[@ǎ킪w肳Ă܂A@(|n] ! !0KTwȂ葱w肵ĂBA@(|XKTVK' KT•ʐVK' KTJ' KTύX' KTύX' KTύXo^' S|n !r!ntԍ͂ĂBA@(|8d0 !r!n % !r!n % %tԍ8/9œ͂ĂBA@(|kk KKKKKKKKKKKK K)KT !r!n % 6%CR̎tԍ́u6vŎn߂ĂBA@(|kKKK K K K KGKHKIKT !r!n % 9%ML̎tԍ́u9vŎn߂ĂBA@(|@k8S0|(n  T_ProgressNet receiptNo !r!n D!% $̎tԍ͂łɎgĂ܂B ,XVĂłH iǗDB̍XV$( |XkPkH !t!nt͂ĂBA@(|k !t!n D!% tmFĂBA@(|k !n!n㗝lmFĂBA@(|XkP !n!n$㗝lmFĂBA@(|k !p!nƋlmFĂBA@(|k !p!n$ƋlmFĂBA@(|hk` ! !nnw肵ĂBA@(|k] ! !0KTwȂuo^ǁvw肵ĂBA@(|KT150' Suo^ǁvw肵ĂBA@(|XnP ! !n ! !n$"͔pœ͂ĂBA@(|k ! !n ! !n$$S͔pœ͂ĂBA@(|xkp ^  kindC@j typeC@j  frequencyC@j ! !nareaC@j !r!n receiptNoC@j !t!n receiptDateC@j !n!naIDC@j !p!ncIDC@j ! !ncountsC@j ! !nchargeC@j !b!nmemoC@jq] !r!n D!% '  ^ D!% |k e ^ D!% |pkh e$tԍ̏d͎sOɊmF!tԍ2ˆȏqbg܂BA@(|k !r!n bݐiDBo^ D%(fI܂BA@( A@r|"x 0!2 0!2 , 0!4A@(k@o8 Ǘ҃j[.Show A@r‚܂oAttribute VB_Name = "iǗo^" Bas0{BF310599-AFF4-4101-8074-C5B48C82CE78}{516A92B1-CD6F-4E30-B98E-FED66CC@C444D} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD' ЃnC p[_ ' Copyright (c) HyperDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@  '0;wȂ%-CR1;VKE4݄3E2;2;ĖƋ;ύX@4;p~5;̑21;E2;•I3;JF!2425H26D41;^DE;S@;'D6J;1E;CE;B7F;8D$f9D;10;71;i72E3;jOption licit P my@CollecAsESub UForm_Initialize()B@rror GoTo E`rrMes!Dim cBranch ` cls'Set= New _ciInteger$.Get(iMj` j}1 .Coun' )aaMe mboBox.AddItemc,.A(j Next jcListIPndexiockSBack3= &HE60!3P!.PaC 2P@D2DcoT.LEĜdtxtRec@eiptNoDPAgentMember AG MCli@ ID=@#cVArray()a+Variant 'S@ngƃG[1, 2 '%1݃yW`n̏擒Se C1}cP5Value(pKAGAMI, "s").DropDown.R#p 1 'fti31M$sg7 "2PBqExit M2kCdgǓa?!my12Q#"0" 1A2UA3A4A5A6A7"D@X2W 0uDyqqэBLqHqq_aqkb3@ k/ m/ W# S 1 1 1 15? ? 1 {qBqR`qqHcqX 4 ֓ BZ2 2S 2 2 2227Q<28 S@敔s_!3t鄋qQnqȖqPR5xMz)39233_ _ W V> 60 k? ? ? 1 33s6C$$xR Ρ 7 |`=O=D0"4"44"44Y < `"•Jݱ!ύXeo^ej$!G`YType$ mFD9T9_pVpFrequencypq ?r#* ?rX5?ry;r Vd@0_ErAJdjd C "cP.GetValue(pKAGAMI@݂`").DropDown." & 'mG˿2i͏onKjb!33ǁp_ 4L  ErrMes:SIf .Number <> chen'DuH& vbC rLf &DescriptioTqsIfQt!uPrivateu cmdRecePNo_Click(X On!PGo@l0 %_wcP=clsPaper#Set p= New {KIntegw}s&og#v ~0 $Д耇M&oxi1k\my = 236)U_?pe <256(+4q c)5t .?35164^?36<00!A(!S tring#my=%.DBH?qt44"" T4e.txtJV+P*"7O?O?O?1"1O?O?O?A???\ProgressDBO?O?@_`R俎tԍł8O"J!F @FG$lceP$@PyJmyW Jotjoc'DataFrom(O@(xIs Not>h- With 'q1@ IsNull(.("aID"^!e60Qmy37h/ c ? Q W & |",o Ca 2q","P  fm("tp,# E q.Item("type")  Case 0 'w bMe.c omboT.ListIndex = 021VK,S1S2S•*0S2)3)Jݏ{3'4'PύX'4'5W')5)6(Xo^=6ElseExit SubKEnd Select IfIf Not IsNull(area"0)) A <> "" Then2A@.Vaxlue ' receiptNo "J#FAmyStrin g1@!& ",) 2 2 y '"2I'"H_+`Dat@*,*-txtR#-VBA.F`ormat8* , "gggeNmmdd)_@frequency,2P "D)kI8_* EFE.e 7@sr 5sA1vvcountsl3ICb w$DDcharg[b$ ʘmemCMMa"WithX ErrMes:SOP.Num(ber0,UMs gBox H& vbCrLfHQ DescrQioX@[`Priv`Fqa cmdCal_ClickB( Onor GoTo@ 0+pFC_g1aO Ps ("vZP܂H", YesNoIS$́") XvbNof n3e.1 -> Pqmeric(d(\W0oe _ L= 15 75 + e * 630_((f(f(((A((W((!Dim cP As clsPapDer Setq=0 NewmyxCol 2$@ht`c0myKi5InxteglCqg#! l1d0|evfd"G[@ǎ킪"dzĂ܂ 5"q$g#!/t&x 5 @葱"  |B/ ܮ"my = 22?17h2h;h2?h2/$ svU4Norvtԍ `Ă ] `aVLenP)h8r+c r9X 8/9O )Exit Sub End Ifx XSelect Case myType(1, 2, 3, 4, 5 2"2$2&6@e.3.41~zIf VBA.Left$(Me.txtReceiptNo.Value, 1) <> "6" Then ?CMsgBox "CR̎tԍ́u6vn߂ĂB"?*vd7, 8, 9KV0k1k77-3 /(o9oML o9OoElswBAJDC97cP.DB.CheckDB("T_ProgressNet", "rEsw) = 1Lv!u("I=łɎg@u܂ t _]& vbCrLf & "@XV AH!v@bYesNo@'iǗD(B "A#vb  /,/IDo3oGY}!Pe= -}'̏dsODPuIV2ˆȏ@qbgpi=0J Get2(pKAGAMI%qDBQc").Result*4U I~Unload M+ ErrMxes:S0P.berHxQDescr`6Lp"2Pri v- ‚_l@ Z@6 Yd5@g:Pl:0?l:@l@ Z@6 Yd5@lrU S( >)9bQso !*IHi)-qHwI& 9iɎ)Qi )I  )Ii  )I)Qy9YyIi )I9Yy )Ii ) I i      ) I i      ) I i      ) I i      | 1 ~Q y     1 I&&A/ yIN IIɅ aI1 tQ QQaъY)/iA$ysss tQs8 3f< 3f@)Q1tD)QQt%%%H)Qqt((( L0II`IRP 3t***T 3t)))X)Qk### \0In` R`I4 tdI4 uhI4 S   lI4 )upI4 Qut 3kxI4 u|I4 uI4 TI4 u$$$ 3u 3!v!!!I4 Av&&& 3ivI4 J 3vv:Pl:0Al:Bl:Cl@ Z@6 Yd5@v:Pl:0Dl:El:Fl@ Z@6 Yd5@l :Pl:0Gl:Hl:Il:Jl@ Z@6 Yd5@:Pl:0Kl:Ll:Ml:Nl@ Z@6 Yd5@l :Pl:0Ol:Pl:Ql:Rl:Sl:Tl@ Z@6 Yd5@:Pl:0Ul:Vl:Wl:Xl:Yl:Zl@ Z@6 Yd5@l > :Pl:0[l:\l:]l:^l:_l@ Z@6 Yd5@:Pl:0`l:al:bl:cl:dl@ Z@6 Yd5@l Y :Pl:0el:fl:gl:hl@ Z@6 Yd5@:Pl:0il:jl:kl:ll@ Z@6 Yd5@l :Pl:0ml:nl:ol:pl:ql:rl:sl@ Z@6 Yd5@:Pl:0tl:ul:vl:wl:xl:yl:zl@ Z@6 Yd5@l X:Pl:0{l@ Z@6 Yd5@X:Pl:0|l@ Z@6 Yd5@+''' :P}N@@ 6@ %l l l dl (@l l Xl5@~l l tlrlc\{krlkrl rd\SrlcXkrlkrl rdX5lM N' '@l l l6@ (@l l l5@X:Pl:0l@ Z@6 Yd5@rlcT,'@krl.P@l l -Pl5@ rdTz (@l l l5@l l ll l 0l:Pl:0l:l:l:l:l:l@ Z@6 Yd5@rlcL,'@krl.P@l l -Pl5@ rdLX:Pl:0l@ Z@6 Yd5@X:Pl:0l@ Z@6 Yd5@%l l l dl (@l l Xl5@~l l tlrlcH_krlkrl rdH7rlcDkrlkrl rdDt5lM N' '@l l l6@ (@l l l5@ZZZdl+ l |  4 ldq@)ll@Tl@ (@l l l5@l@ (@l l l5@$d ll ldlPl''' d ll ld#<*#48  ,l8*F@ 2<48)l6@ HXP 6tx> P<84l@ 4K x`p p `PpP(@]3s+''' :@N`` 6` P(@]3pvP(@]3pvP(@]3pvP(@]3pvP(@]3pvP(@]3pv$kvpx p p `>1p l=q'lF@N``p p p5`&:@N``p p p5`$ pp lp.l'''  pp l#*#  ,l*F` 2)p6` 40`Px0 p` K,hx x h:X]3x5ha+'''H:XNhh 6hH [x4xNhx x h p  Tl4/)x5h4c 4^H:XNhh H :8N :(]<'6 hHH:XNhh H5h(X]3 (hx x x5h(X]3 (hx x x5h(X]3 (hx x x5h(X]39 (hx x x5h(X]3l (hx x x5h(X]3 (hx x x5h(X]3 (hx x x5h^H:XNhh H :8N :(]<'6 hHq8H:XNhh Hx x x6hH^H:XNhh H :8N :(]<'6 hH-\H:XNhh :8NH x x x6hH^H:XNhh H :8N :(]<'6 hH9H:XNhh H5h(X]3 (hx x x5h7(X]3 (hx x x5h7 (hx x x5h^H:XNhh H :8N :(]<'6 hH8H:XNhh Hx x x6hH^H:XNhh H :8N :(]<'6 hHi8H:XNhh Hx x x6hH^H:XNhh H :8N :(]<'6 hH8H:XNhh Hx x x6hHc$ xx lxl'''H xx l#*#  ,l*Fh 2)x6hH8t < xhH|K_hx x h:X],`t t `:@]3t5`+''' :@N`` 6` K`t t `x  k/)t5`+''' :@N`` 6` ,`t t `:@]3t5`s+''' :@N`` 6` ,`t t ` t5`+''' :@N`` 6` ,`t t `:@]3t5`++''' :@N`` 6` ,`t t ` t5`+''' :@N`` 6` ,`t t `(@]3t5`+''' :@N`` 6` `t t `ttt(@]3H+''' :@N`` 6` t(@]3bp+''' :@N`` 6` c`t t `:@]<    0')t6`0% +''' :@N`` 6` c`t t `:@]<    0')t6`0 +''' :@N`` 6`  4p,'' :0N``rM@@p 6` ,'' :0N``M@@p 6` ,'' :0N``M@@p 6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` cpK`t t k`x p  <lql/)t5`ll 24tx p t @k)t | ll@ 5ll4tx p t Dk)t; | ll| +''' :@N`` 6` L`t t `+x  p /)t5`+''' :@N`` 6` lt$ t$ tt ltl'''  tt l#*#h  ,l*F` 2h)t6` 8t pPtx< ht` Plx$ x$ x\L0__SRP_53[H4"modCheckKagami1 VB ]__SRP_34 G__SRP_35NT90nrU 4$4`$4`$4`$4`-nurU T$ `h $A `l(8 J r,P $*\Rffff*1N50dc2c74$*\Rffff*1@50dc2c74*\R0*#19$*\Rffff*1G50dc2c74*\R0*#f*\R0*#13*\R0*#2*\R0*#14*\R0*#1*\R0*#e*\R1*#10e*\R1*#10b$*\Rffff*1<50dc2c74$*\Rffff*1850dc2c74$*\Rffff*1H50dc2c74;=  8 "X ( "&&8$`$"((@ h   &&$0X$x"(( 8 X x l($xME<"F> L"LL" "<hx HP H H" H&@ H (` H , H  @(H00 H4X H6@ H8` H< Hꐊ0 H@ H  HFH HH h HJH H N  H"Pp H#ꐐ8H%VhH'" H(XH*\H,\ҁiƋlj\㗝l%+`k ; Dt.Ite%`p> ""+(`k  Dt"aID%`p+`Xk  Dt %`pcID"+`k  Dt%`ppe7z@H` H( H x H$( H* H . H 2h Hꐈ( H:x H> HBX HD( Hꐎ HL H!RHH$TpPH&ꐔH)ZH+ H(X Xhp0H(0h8@@Pxp 0ݖ@lčl̕ݐ\җX֔ԍO3ݐ\җX֔ԍ4ݐ\ҏZtKiݐ\ҏZl̕ݐ\ҖOtKiݐ\ҖOԍݐ\ґ\ҖEݐ\ґ\ҐtKiZݐ\ґ\ҖtKiKݐ\ґ\Ґݐ\ґ\Җݐ\ғdbԍݑ㗝lX֔ԍO3ґݑ㗝lX֔ԍ4ґݑ㗝lZtKiҖݑ㗝lZԍݑ㗝lOtKiݑ㗝lOԍݑ㗝l\ҖEݑ㗝l\ҐtKiZݑ㗝l\ҖtKiKݑ㗝l\Ґݑ㗝l\Җݑ㗝ldbԍ㗝lKiݕ㗝lX֔ԍO3iݕ㗝lX֔ԍ4ݕ㗝lZtKildݕ㗝lZݕ㗝lOtKiݕ㗝lOԍݕ㗝l\ҖEtݕ㗝l\ҐtKiݕ㗝l\ҖtKiݕ㗝l\Ґݕ㗝l\Җݕ㗝ldbԍ AӔC҃KiݔlݔlSҖݔlSҖݔldbԍx8h p`z @l @j bz,(@d @` @P\ @XX @H @8 @( @ @ @ @( @  "$&(@ @@*,.0P@ @x @(X`z h@@l @j b0 ,(@d @` @P @8@ @P0 @h @@ @ 24@ @ @ 68:<>@@ @ B0@ hx0HP`z  @l @hj bD ,(@d @` @P @@ @0 @  @ @ `FH@ @ @ 8JLNPRT@ @ V0@ 0``z @Pl @ j b" ,(@Hd @h` @xP @@ @0 @ @ @ XZ\@ @8 @ @ @ 0@ H-8((&(&Hp$**""@"h  F  0P Zp B   $(08@ DH ( 2"CO      8 6 xO0     . - (   O0     #  ~O `  h p 8x 6  xO H  P X  .`  -  (   O X` h 8p~O  (0  @86xO 08@.H-h(  6O px.-(  ,O   H  <h  H 4 @ H H` J @ 86XOx  .(-H(h# O@ HPX  `6xO  (0.8 X-x(# O` hpx $6.-(( "06XOx  (.0-P(p R6 O  . - ( POX   (6HOh .-0(P Jp6 vOX  ` h  .p  -  (  P O !!! !!!  2!6"pO8" """."-"(#&. # xOH## ##### # $#l$($ 0$B8$ @$ H$P$ X$h$$p$$$$$ D$ ($ 8%6P%xOp% %%%.&- &(@&`& Ox&' ''# ' ~O8'' '' :'6( xO0(( (( .( -( ()  )O8))) ) #)~O)x** *** L*6*O+ +++.+-+(+,  ,68,OX, ,,,.,--(0- P- p- ,-O-h.p. x... .6.O. h/p/x/./ /-/(/#0 O00 000 060O1 111.1 1-1(2#02 OH22 222 $26 3.@3-`3(3#3 O3P4 X4`4h4 p464O4 X5`5h5.p5-5(5 R56(6 OH66 66 .6 -7 (07 PP7O7H8P8 X8`8h8 p868O8 @9H9P9.X9-x9 J9(96: zO(:: :: .: -: (; P ;Op;<< < <(< 20<6h<rO< ===.=-8=(X=&.x= xO=>  >(>0>8>@> H> $P>l`>> >B> > >> >>$>>>>> D? *H? 8x?6?xO? H@P@X@.`@-@(@@ O@hA pAxA#A OA0B 8B@B HB6hB xOBC CC .C -8C (XC xCOC D(D 0D #8DOPDDD DEE NE6`EOE FF F.(F-HF(hFF F6FOF PGXG`G.hG-G(G G G ,GOHHH HHI I6(IOHI III.I J-8J(XJ#xJ OJ0K 8K@KHK PK6hKOK LL L.(L HL-hL(L#L OLPM XM`MhM &pM6M.M-M(M#N O0NN NNN "N6OO0O OOO.O-P(0P TPP6P OPXQ `QhQ .pQ -Q (Q PQO RRR RRR R6SO0S SSS.S-S(T L8T6T rOT U (U0U .8U -XU (xU PUOUVV VVV 4V6VrOW xWWW.W-W(W&.W xOXX XXXXX X $XlXX YBY Y Y Y (Y8Y$@YXY`YhYpY DxY ,Y DY 68Z pZ JZZ [ [ [ L[ L8\ L\ (\ (] D(]p] (^ ^ ^ ^ _ _6(_jOH_ ___._-_(`#0` OH`` ``` `6aO8a aaa.a-a(b 8b6Xb Oxbc cc .c -8c (XcxcPc Oc`d hdpdxd d6drOd 0e8e@e.He-he(e&.e Oe`f hfpfxf @f $f Tf@g g h 0h V@h Nh Vh @@ii $@j hj j @jj $k k k lll  l $(ll8lXl `l pl ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp"ƋlA㗝lA㗝l̃`FbN]$\ҁiƋljK]$ݖ@lčl̕@]$ݐ\җX֔ԍO3]$ݐ\җX֔ԍ4h ]$ݐ\ҏZtKi(]$ݐ\ҏZP]$ݐ\ҖOtKi]$ݐ\ҖOx]$ݐ\ґ\ҖE]$ݐ\ґ\ҐtKi]$ݐ\ґ\ҖtKi]$ݐ\ґ\Ґ]$ݐ\ґ\Җ]$ݐ\ғdbԍ]$㗝l]$ݑ㗝lX֔ԍO3@]$ݑ㗝lX֔ԍ40]$ݑ㗝lZtKih]$ݑ㗝lZX]$ݑ㗝lOtKi]$ݑ㗝lO]$ݑ㗝l\ҖEg ]$ݑ㗝l\ҐtKi]$ݑ㗝l\ҖtKi]$ݑ㗝l\Ґ]$ݑ㗝l\Җ0]$ݑ㗝ldbԍ]$㗝lXD]$ݕ㗝lX֔ԍO3 ]$ݕ㗝lX֔ԍ4]$ݕ㗝lZtKi]$ݕ㗝lZ  ]$ݕ㗝lOtKi ]$ݕ㗝lOH]$ݕ㗝l\ҖE]$ݕ㗝l\ҐtKi  ]$ݕ㗝l\ҖtKipD]$ݕ㗝l\ҐH\$]$ݕ㗝l\Җ ]$ݕ㗝ldbԍp!T(]$ AӔC?Public Const cݘAӔCҏZ As String = "AӔCҏZ"]$ݔl\$]$ݔlSҖ]$ݔlSҖ]$ݔldbԍSPublic Const cݘAӔC҃[AhX As String = "AӔC҃[AhX" (8"']x.D] D!!'d'k>--------------------------------------------------------------"݃y[W\҂̏mF,@lčl̕ʁ@dq\ł͎ŕK{ b  D%!r!n z,̖@lEćEl̕ʂw肳Ă܂B ,&CĂxsĂB  z̖@lEćEl̕$( z8k0k(1\җX֔ԍO3@K{ł͂Ȃ͂Ȃ b  D%!f z%̗X֔ԍO3͂Ă܂B ,s܂H  z ̗X֔ԍ$( zPkHd@ b  D%!f'   D%'  b  D%(f $ z-̗X֔ԍO3ɐȊO͂Ă܂B ,s܂H  z ̗X֔ԍ$( zHk@k8  % z+̗X֔ԍ3-4̌`ɂȂĂ܂B ,s܂H  z ̗X֔ԍ$( zkk1\җX֔ԍ4@K{ł͂Ȃ͂Ȃ b  D%!f z%̗X֔ԍ4͂Ă܂B ,s܂H  z ̗X֔ԍ$( zkd b  D%!f'0   D%'  b  D%(f  % z-̗X֔ԍ4ɐȊO͂Ă܂B ,s܂H  z ̗X֔ԍ$( zkk b  D%!f z+̗X֔ԍ3-4̌`ɂȂĂ܂B ,s܂H  z ̗X֔ԍ$( zkkkk:\ҏZtKi@K{iȃ\tgł͎ŕK{j b  D%!f z$̏ZtKi͂Ă܂B ,&CĂxsĂB  z̏ZtKi$( zkd b  D%!f'   D%'  b  D%(f kP\ҏZ@K{ b  D%!f z̏Z͂Ă܂B ,&CĂxsĂB  z̏Z$( zkdx b  D%!f'   D%'&  b  D%(f  F  D!%  zX̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B ,&CĂxsĂB  z̎s撬R[h$( z k k k k  @l̏ꍇ B ݂́uEtKivƑ\ҐEtKi͕K{6 ł́Â݁Bl͑\Ґ͋󗓂ɁB  ĉ̏ꍇB ݂́uEtKivƑ\ҐEtKi͕K{. łƌl͑\Ґ͕K{B l̏ꍇB ݂́uEtKivƑ\ҐEtKi͕K{D uEtKivƑ\ҐEtKî͓ : ł́A͋󗓁Bl͑\Ґ͕K{B\ҖOtKi@K{ b  D%!f z*̐\ҖOtKi͂Ă܂B ,&CĂxsĂB  z̖OtKi$( z k d b  D%!f'   D%'  b  D%(f(  %2  z.̖OtKi50ȓœ͂ĂB ,&CĂxsĂB  z̖OtKi$(  zkkk\ҖO@K{ b " D%!f z"̐\ҖO͂Ă܂B ,&CĂxsĂB  z̖O$( zkd b " D%!f' Xy[X͍폜Ȃ   D%'h  b " D%(f  %2  z&̖O50ȓœ͂ĂB ,&CĂxsĂB  z̖O$( 0zkkk\ґ\ҖE@K{ł͂Ȃ b $ D%!f b $ D%!f'0   D%'  b $ D%(fk\ґ\ҐtKi@K{ b & D%!f z*̑\҂̐tKi͂Ă܂B ,&CĂxsĂB  z̑\҂̐tKi$( zkd b & D%!f'   D%'  b & D%(f L\ґ\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  b ( D%!f z*̑\҂̖tKi͂Ă܂B ,s܂H  z̑\҂̖tKi$( zhk`dX b ( D%!f'   D%'0  b ( D%(f b & D%!f@ b ( D%!f %2  z4̑\ҐtKi50ȓœ͂ĂB ,&CĂxsĂB  z̑\ҐtKi$( zkkkk\ґ\Ґ@K{ b * D%!f z"̑\҂̐͂Ă܂B ,&CĂxsĂB  z ̑\҂̐$( zkd b * D%!f'    D%'  b * D%(fD\ґ\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ $ b , D%!f  z"̑\҂̖͂Ă܂B ,s܂H  z ̑\҂̖$( zkd b , D%!f'   D%'  b , D%(f b * D%!f@ b , D%!f %2  z,̑\Ґ50ȓœ͂ĂB ,&CĂxsĂB  z ̑\Ґ$( z@k8k0k(k ,\ғdbԍ@K{ł͂Ȃ͂Ȃ b . D%!f z ̓dbԍ͂Ă܂B ,s܂H  zdbԍ$( zPkHd@ b . D%!f'   D%'  b . D%(f - %R % z&̓dbԍœ͂Ă܂B ,s܂H  z ̓dbԍ$( z8k0k(k 'z" 0!2 0!2 , 0!4A@(ki"'].D] D!!'dh'kX>--------------------------------------------------------------"݃y[W㗝l̏mF1㗝lX֔ԍO3@K{ł͂Ȃ͂Ȃ b 0 D%!f  %̗X֔ԍO3͂Ă܂B ,s܂H   ̗X֔ԍ$( zkd b 0 D%!f'   D%'  b 0 D%(f  %  (̗X֔ԍɐȊO͂Ă܂B ,$CĂxsĂ   ̗X֔ԍ$( zkk  %  +̗X֔ԍ3-4̌`ɂȂĂ܂B ,s܂H   ̗X֔ԍ$( z@k8k03㗝lX֔ԍ4@@K{ł͂Ȃ͂Ȃ b 2 D%!f  %̗X֔ԍ4͂Ă܂B ,s܂H   ̗X֔ԍ$( zPkHd@ b 2 D%!f'   D%'  b 2 D%(f  %  (̗X֔ԍɐȊO͂Ă܂B ,$CĂxsĂ   ̗X֔ԍ$( z0k(k   %  +̗X֔ԍ3-4̌`ɂȂĂ܂B ,s܂H   ̗X֔ԍ$( zkxkpkhk`F㗝lZtKi@K{iȃ\tgł͕K{ł͂ȂƋlƓj b 4 D%!f  $̏ZtKi͂Ă܂B ,$CĂxsĂ   ̏ZtKi$( zXkPdH b 4 D%!f'   D%'  b 4 D%(fk㗝lZ@K{ b  D%!f  ̏Z͂Ă܂B ,$CĂxsĂ   ̏Z$( z kd b  D%!f'   D%'  b  D%(f㗝ls撬R[h   D!%  X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B ,&CĂxsĂB   ̎s撬R[h$( zkkkxkp㗝lOtKi@K{ b 6 D%!f  $̖OtKi͂Ă܂B ,&CĂxsĂB   ̖OtKi$( zkd b 6 D%!f'Xy[X͍폜Ȃ   D%'  b 6 D%(f  %2   .̖OtKi50ȓœ͂ĂB ,&CĂxsĂB   ̖OtKi$( z@k8k0k(㗝lO@K{ b 8 D%!f  ̖O͂Ă܂B ,&CĂxsĂB   ̖O$( z`kXdP b 8 D%!f'Xy[X͍폜Ȃ   D%'  b 8 D%(f  %2   &̖O50ȓœ͂ĂB ,&CĂxsĂB   ̖O$( z k k k 㗝l\ҖE@K{ł͂Ȃ b : D%!f b : D%!f'   D%'  b : D%(f  %   ,̑\ҖE15ȓœ͂ĂB ,&CĂxsĂB   ̑\ҖE$( z k k k 㗝l\҃tKi@K{ b < D%!f  ,\҂̎tKi͂Ă܂B ,&CĂxsĂB   \҂̎tKi$( z k d b < D%!f'   D%'  b < D%(fL㗝l\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ b > D%!f  ,\҂̎tKi͂Ă܂B ,s܂H   \҂̎tKi$( z k d b > D%!f'   D%'  b > D%(f b < D%!f@ b > D%!f %2   4̑\ҐtKi50ȓœ͂ĂB ,&CĂxsĂB   ̑\ҐtKi$( zkkkk㗝l\ҁ@K{ b  D%!f  $\҂̎͂Ă܂B ,&CĂxsĂB   \҂̎$( zkd b  D%!f'   D%'D㗝l\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  b  D%(f b @ D%!f  $\҂̎͂Ă܂B ,s܂H   \҂̎$( zPkHd@ b @ D%!f'   D%'  b @ D%(f b  D%!f@ b @ D%!f %2   ,̑\Ґ50ȓœ͂ĂB ,&CĂxsĂB   ̑\Ґ$( zkkkk,㗝ldbԍ@K{ł͂Ȃ͂Ȃ b B D%!f  ̓dbԍ͂Ă܂B ,s܂H   ̓dbԍ$( zkd b B D%!f'   D%'  b B D%(f - %R %  &̓dbԍœ͂Ă܂B ,s܂H   ̓dbԍ$( zkkk'z" 0!2 0!2 , 0!4A@(kxip("`']h.D] D!!'d'k>--------------------------------------------------------------$݃y[W畜㗝l̏mF1lX֔ԍO3@K{ł͂Ȃ͂Ȃ b D D%!f %̗X֔ԍO3͂Ă܂B ,s܂H  ̗X֔ԍ$( z?k?d? b D D%!f'   D%'  b D D%(f  % (̗X֔ԍɐȊO͂Ă܂B ,$CĂxsĂ  ̗X֔ԍ$( z>k>k>  % +̗X֔ԍ3-4̌`ɂȂĂ܂B ,$CĂxsĂ  ̗X֔ԍ$( z=k=k=㗝lX֔ԍ4 b F D%!f %̗X֔ԍ4͂Ă܂B ,s܂H  ̗X֔ԍ$( z<k<d< b F D%!f'   D%'  b F D%(f  % (̗X֔ԍɐȊO͂Ă܂B ,$CĂxsĂ  ̗X֔ԍ$( z;k;k;  % +̗X֔ԍ3-4̌`ɂȂĂ܂B ,$CĂxsĂ  ̗X֔ԍ$( z;k;k;k:k:H㗝lZtKi@K{iȃ\tgł͕K{ł͂ȂƋlƓj b H D%!f $̏ZtKi͂Ă܂B ,$CĂxsĂ  ̏ZtKi$( z9k9d9 b H D%!f'   D%'  b H D%(fkp9㗝lZ@K{ b  D%!f ̏Z͂Ă܂B ,&CĂxsĂB  ̏Z$( z8k8d8 b  D%!f'   D%'  b  D%(f㗝ls撬R[h   D!% X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B ,&CĂxsĂB  ̎s撬R[h$( z7k7k7k7k6㗝lOtKi@K{ b J D%!f $̖OtKi͂Ă܂B ,&CĂxsĂB  ̖OtKi$( z6k6d6 b J D%!f'Xy[X͍폜Ȃ   D%'  b J D%(f  %2  .̖OtKi50ȓœ͂ĂB ,&CĂxsĂB  ̖OtKi$( z4k4k4k4㗝lO@K{ b L D%!f ̖O͂Ă܂B ,&CĂxsĂB  ̖O$( z3k3d3 b L D%!f'Xy[X͍폜Ȃ   D%'  b L D%(f  %2  &̖O50ȓœ͂ĂB ,&CĂxsĂB  ̖O$( z2k2k2k2 㗝l\ҖE@K{ł͂Ȃ b N D%!f b N D%!f'   D%'  b N D%(f  %  ,̑\ҖE15ȓœ͂ĂB ,&CĂxsĂB  ̑\ҖE$( z01k(1k 1k1㗝l\҃tKi@K{ b P D%!f ,\҂̎tKi͂Ă܂B ,&CĂxsĂB  \҂̎tKi$( z 0k0d0 b P D%!f'   D%'  b P D%(fN㗝l\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ b R D%!f ,\҂̎tKi͂Ă܂B ,s܂H  \҂̎tKi$( z.k.d. b R D%!f'   D%'  b R D%(f b P D%!f@ b R D%!f %2  4̑\ҐtKi50ȓœ͂ĂB ,&CĂxsĂB  ̑\ҐtKi$( z0-k(-k -k-k-㗝l\Ґ@K{ b  D%!f ̑\Ґ͂Ă܂B ,&CĂxsĂB  ̑\Ґ$( z8,k0,d(, b  D%!f'   D%'  b  D%(fF㗝l\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ b T D%!f ̑\Җ͂Ă܂B ,s܂H  ̑\Җ$( z*k*d* b T D%!f'   D%'  b T D%(f b  D%!f@ b T D%!f %2  ,̑\Ґ50ȓœ͂ĂB ,&CĂxsĂB  ̑\Ґ$( zx)kp)kh)k`)kX).㗝ldbԍ@K{ł͂Ȃ͂Ȃ b V D%!f ̓dbԍ͂Ă܂B ,s܂H  ̓dbԍ$( z(kx(dp( b V D%!f'   D%'  b V D%(f - %R % &̓dbԍœ͂Ă܂B ,s܂H  ̓dbԍ$( zh'k`'kX'kP''z@'"8' 0!2 0!2 , 0!4A@(k'i&"&'].D] D!!'d&'k&>--------------------------------------------------------------&݃y[WAӔC҂̏mF>--------------------------------------------------------------/kaisetuɂ͘AӔCҏZ̗Ȃ̂ŒӁ 'AӔCҏZ@K{C If cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result = "" Then If MsgBox(cAӔC & "̏Z͂Ă܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, cAӔC & "̏Z") = vbOK Then Exit Function End If ElseE myString = cP.GetValue(pKAGAMI, cݘAӔCҏZ).ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)E cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result = myString! 'AӔCҎs撬R[h! If myLocation = True Then= If cP.AreaCode.AreaCodeInsert(myString) = "" Then~ If MsgBox(cAӔC & "̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, cAӔC & "̎s撬R[h") = vbOK Then! Exit Function End If End If End If End IfAӔCҏ b  D%!f " ̏͂Ă܂B ,s܂H  " ̏$( z@ k8 d0 b  D%!f'   D%'  b  D%(f  %  " *̏͑Sp20܂ł͂ł܂B ,&CĂxsĂB  " ̏$( z kkkAӔCҖO@K{ b X D%!f " ̖O͂Ă܂B ,&CĂxsĂB  " ̖O$( z8k0d( b X D%!f'   D%'  b X D%(fAӔCҖO@K{ b Z D%!f " ̖O͂Ă܂B ,&CĂxsĂB  " ̖O$( zkd b Z D%!f'   D%'  b Z D%(fk b X D%!f@ b Z D%!f %2  " &̐50ȓœ͂ĂB ,&CĂxsĂB  " ̖O$( zkkkAӔCғdbԍ b \ D%!f " ̓dbԍ͂Ă܂B ,s܂H  " ̓dbԍ$( zkd b \ D%!f'   D%'  b \ D%(f - %R % " &̓dbԍœ͂Ă܂B ,&CĂxsĂB  " ̓dbԍ$( zkkk9kaisetuɂ͘AӔC҃[AhX̗Ȃ̂ŒӁ 'AӔC҃[AhXM If cP.GetValue(pKAGAMI, cݘAӔC҃[AhX).Result = "" Then If MsgBox(cAӔC & "̃[AhX͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, cAӔC & "̃[AhX") = vbNo Then Exit Function End If ElseO myString = cP.GetValue(pKAGAMI, cݘAӔC҃[AhX).ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)O cP.GetValue(pKAGAMI, cݘAӔC҃[AhX).Result = myString: If InStr(1, myString, "@", vbTextCompare) = 0 Then If MsgBox(cAӔC & "̃[AhX@܂܂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, cAӔC & "̃[AhX") = vbNo Then Exit Function End If End If: If InStr(1, myString, ".", vbTextCompare) = 0 Then If MsgBox(cAӔC & "̃[AhXɁu.visIhj܂܂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, cAӔC & "̃[AhX") = vbNo Then Exit Function End If End If End If'z" 0!2 0!2 , 0!4A@(ki"Attribute VB_Name = "modCheckKagami1" ' ЃnCp([_dCopyright (c) HyperDyne Inc. All 8reserved.fhttp:/@/www.h0d0.co.jp/webmastHer@  ƋlAH㗝 ̃`FbN&Public Const c\ As Sng4i'js @lčl̕ %(X֔ԍO3&; "(4!((ZtKi(I O_#I W#\ҖE7G a(F& ҐҖ'dbh% {Kctw w w#w ,Ir rg_ @a9lc$ wqwk ;cm otC;y;  <UoCO>64; >孯P /->>%U  /?o1O? M?AӔ.Cݼwp'?/ H/ݔl~ SWM"Gog(_ї`Ah>X_S]Option Exp BitFuncRClient()BooleanOrror GoTo ErrMesqx False Dim cP`clsPasS ePXPNew s!myTcI f. fig.0ReadpTrue The q1myLocar = 3E N @End If '---y"- '݃y[WX\҂̏mF@lcl̕@@dq\ł͎ŕK{dIf cP.GetValue(pKAGAMI8, ci V).DropDown.6 = 1 T8henSWMs@gBox(cC & "IE Ew肳܂`B" _&(& vbCrLf$@C@xs T&!,O`KOnlyhC")cvbOKd=Exit FunctiorEnd IfS'8X֔ԍO3@ ƂȀu ͂"J).Result0""#bM!i`B[܀H"AZYesNo ZWNo4WlseGAcmyString;߮ :JSanitizeText(, pNarrow, TrueI)t"0@Not IsNumericF)'1mɐȊON=Pm,m={E=?A iB(jVB A.Lenh"<>d 3#Cq-4@``p:"`pbBs"L_! ?҅&" ٍa Exit F@unctioEnd If \  '.@"lꍇ݂́u@EtKivƑ\8Ґ  K{"x#Bl!͋󗀓ɁB pc?$+$3Ƒ"/"'D""M"U«'MX@QRQY7'CЖOv@cP.GetValue(pKApGAMI@).Result@""̲ft܂rqq yqtpjlse'jmyString"?)%)U SanitizeText( , pKatakana, True)G _Q` G :VBA.Len) >8 5004@i 50@q?A?A?Ag;a8)B_Bi po conNnm`ߟA!>lnEo6o6K5 'Xy X͍폜 7/<77Wid07Fa 7b7TܑO/7/7g/7 !66 _ //vb/D_ d/6 A!65㆖EC6rȂCP'<> n"s 50 0Then/\MsgBox(c}5H"50ȓœ͂ĂB" ^`vbCrLBf,C@xs %, vbOKOnlyK")dA 7A Exit Fu nctio@End IfF C ''L@K<{V'""c 3i̐@dd܂d&UbIǙ`^SlseKj@uN5Widc_>:jDVcDg 7@ꍇ b肻̂!Iɂm JHJ.|K𖼂K `Kz܂H"AzYesNBo2z̖HNo4yxIAEJJ!JE''/O _K~8E8ې Ͽ喆 q`If5f7kfMoMJ)f .+8SDdbԍ]DŠAA:bC#!K}%gf M̥AgAPjA~oA@o@7Fsk/@Narrow?eOONotIsNumeric(@ReplHaceX"-X""))_V@uB@??`_EsA X6CheckCli -S3 HQDescr|ipW  Public& Ag () As Boolea Onor 0GoTo` ' gЕFaFrDimŁclsPaperSetq= New !?V0CcGConfigP+ad0A|'myLoca!3m;H '-'c7y[Wc㗝l̏0mFX!YO3YPYYwY_GYYkZ ZZ:::o:34r?ZEI, cݑ㗝lX֔ԍO3).Result myString = cP.SanitizeText(4, pNarrow, True )zGetValue(pKAGAM"wgKIf Not VBA.IsNumeric) Then,0MsgBox(c & "}ɐȊO͂Ă܂B" _&(& vbCrLf$Cxs '",OKOnLlyB")uvbOK_8Exit Functio oEnd IfRLenP<> 3J-4̌`ɂȂJȹ`KBFVHEYesdNoENoEE'aE5@@K{ł̀6@YUEy""^?]€ bdQ.QElse&Yy (3ϓ _V ?2`ϔ D_iߕߕ __DVؖLu@"R4Ԃ](ߘ(_̽jb=% ɜe#pZtKiNiȃ\pgO;PƋlƓj2=}Oq Of_.yyy..@ kJPP_YOOKatakanap#5'@A &C#lAh.s?#6#""@"""""?"r B?"c 50 Then'+MsgBox(ce & " k50ȓœ̀ĂB" _)+& vbCrLf'Cx s #,OKOnLly|F")yvbOKe;Exit Functio uEnd IfoU'>A@K{JciHg"" *\WĂ܂WVAyTSNG_E@iJ?Wid?mm" O mlllB"lkky Cn;k\ҖEkł'lǀG&4<> mQo R UNc@i$q15`QO1>5?;ߐ?lÐGPP$PPE?xC ?y(/`v̎g_`_`@cvyz?od`_a _az8Cf8z9&Ojm N%(PNА肻D̂űP# RUFߨk~Q?)<)?)?)" <"@܂HgYesNoS0'NoL/(gAE(\((җ e(//)/)5>b4c?8"@"ooO A ɋ ku9 cTTTlg T ,:U=3*JIon//ҐD0Dm/D/D ~yEOuC? End If ElseHhmyString = cP.GetValue(pKAGAMI, c㗝l\Ґ).@ResultSanitizeText(, pWide, Tr*u )F' g@K{@ꍇ肻@Ȃ̂%#!N/W#If$"" Then$&MsgBox(cv & "̎͂ĂB" _$&& vbCrLf"s܂H", YesNo U"))vbNo*Exit Functio1 AR%bO:A%"/K%rVBA.Len(eSs"@"r/)) > 50qҜy N50ȓTŢO`O@otO)OC*Ot t xbRĂG ROKOnly SROK!XS(q#<dbԍ] s𢏪C`,6 5E % .*)%##+ gNarr|ow:44Not IsNu@meric(R@eplace"-@""))Y~=r \7_r$F35CheckAgent0Qc ErrMes:SP.ber <>v Nsu HX0QDescripl 0p nPublico Sub () As Booleaq Onqor GoTo Fa&2DimclsPaper#Setq= Nxew !0@Sc .Config0ad (myLoca?3H 3'-Dc y[WAds̏ mF!XYO3OZ0OZ@WzH@Ŝ08"/[3/[!;8 6/OON&ϛ[63#/\eZ  ZȊO?29R֓ ߓ da)!"AnX&3ml1P;-4̌`q8 C3t4 A'M2Z(o-o-e-I1^Ijl & "X֔ԍ4͂Ă܂B" _  & vbCrLfs\H",4YesNo, c㗝! ") =$No Then\Exit Functio End IBf2Else @myStringbcP.GetValue(pKAGAMI ݅L ).Result(SanitizeText(6, pNarrow, True) &Ig6(If Not VBA.IsNumericL)MsgBox(hɐȊONԄɅPC\xŠĂBOKOnlyOK2EQLenHP<> 4Q3-̌`ɂȂ^ׁ'RR+Pr-e#'nZtKi@K{i@ȃ\gpł͡@&ƋlƓj 5il E|i"": b 7aadR8`3!((1A դKatakana:ONH0GFF`T?Fv# @KucuK"{uWidt#t_"?} P.Is撬R0[h!myLoca }`@ AreaCode.InserwnG!1GAA As{XŎnsdȐA ɓo*^w̢T~5qgk?|4|/(I (oL:)=#OhP%%.!?ef OA A o *Z=?B 50CC?">" 50!tłڵo _!<港<<#R!F_#̸$:{%%O9JO9O90 O9O9O9b{!88% 2pKAGAMI, c㗝lO).Result 'Xy[X͍폜 Ȃ 50 Then'mMsg Box(c & "50ȓœ̀{ĂB" _&(& vbCrLf!#Cꓠxs #,OKOnlyC")svbOK_8Exit Fu nctio oEnd IfRC'\E@K{ł{Kh <> ""L0n7sG6[9, ,7= G$J15q C15?Ā4_R_RAW `_RltKiR,&GER=oRT1c̎ *܂aa2 /@'Wki#+ sKatakanartJt FL`!ꍇ 肻 ̂łɀlSޖySAfS S'!29*(܂@H"iYesNoi 317(NoN(bA))j))ȌO)Ћ)?3\ /*" P|FO_?9 AE@"` _  a?+lQe +?1k??VnP V -:-./TJpo'o'OFZOEOo "oQ3r)Enf7kIDDߧV88)(Nm"lllG % 1?&:&?&?&K׏kbk݅ $j/%>jZ%%%+/&/%/&&& ztValue(pKAGAMI, cݕ㗝l\Җ).Result = myStri ng If VBA.Len@(cP.Ge"_ NY& "@" & 'P) > 50 ThenYMsg`Box(c3"w50ȓœ͂ĂB" XZvbCrLBf(C@xs %, vbOKOnlyH")i=Exit Fu nctio{End If C 'E&dbԍ@K{ł͂ȂI@ @Zao<"" :mD j܂j&@[hc܂H"bYesNoa9DaNoPaT_JTls~eFkEv1ISanitizeText(, pNarrow, TrueI) |lE!h5  5NotBIsNum eric(Re place"-a.""))P*>𐔎t=?a.??? o@BhqiCheckSubAgen5* ErrMes^:#`&..ber <> C "Descrip @Public& Communicator() As BooleBa Onor GoToA bFa&fDim cls PaperSet= New KAeS $]C onfigadC`A.lQmyLoCEys'?'-8'y[W`AӔC҂̏mFDkaisetuɂZ̗ !`̂ŒӁ '#c$?FaQC-(cW} iA!1?A{{e{m{6 ,=#C&,=P/?{?c0cWidbscc/cWO >v's@R-h8 p8:vqp` AreaCode.Inser'q?$4?%9%As{ЂŎnbq0A; ɓo^2芊j )/٩)A *ux*K+N E"CsBB BC`yb D`"flh77<ҏG@_ p@q?o`K*12? @ ͑SpV25֩6rH66۟5=? A!SOva_4YݘACҐ).Result = "" Then If MsgBox(c & "̖O͂܂`B" _& vbCrLft@C.@xsTLB,2OKOnly, |")vbOK oExit Fu nctioEnd IfElseRmyString)cP.GetValue(p@KAGAMI@u"SanitizeText(/, pWide, Tru)#o-@Y/"'ׁԖ@K{sv#YA[\dEYTHJA^fScv0v/He 50~XPP50ȓB! _Q_Q a?_QfT#Jhdbԍ$?.!.r~ -*܂H"YesNo {No j'E%#- +zNarro>w>  @Not XϦ  KIn(1, a, "@TCompareѳt?A_!`,@ Ͽ!?^?^B<!8!?*"a ".=  @Ɂu.visIhjtԯrbr_6^13PRCheck'municatorPi_< ErrMes:SpP.jber <>;1cL HHQDescripE  @ #pM0@P P(]@5PBO'' F*F@F*#d *#`*FP^ 2d`6P@ @6dl+jIt l lld0/dlO'' F*F@F*#d *#`*FP^ 2d`6P@ 8.dl+jIt l l>d1pl-d+++jYlpt >d1p(lpl+jIt l plpM0@ O'' F*F@FG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5P6O'' F*F@F*#d *#`*FP^ 2d`6P@ 46dl+jJt l lld0/dlO'' F*F@F*#d *#`H*FP^ 2d`6P@ N.dl+jJt l l>d1pl-d+++jYlpt >d1p(lpl+jJt l pl6dl+jKt l lld0/dlO'' F*F@F*#d *#`H*FP^ 2d`6P@ .dl+jKt l l>d1pl-d+++jYlpt >d1p(lpl+jKt l pl u,dlplt l ld0/dlO'' F *F@F!*#d *#` *FP^ 2d`6P@ 6dl+jLt l lld0/dlO'' F#*F@FM*#d *#` *FP^ 2d`6P@ {~.dl+jLt l l>d1pl-d+++jYlpt >d1p(lpl+jLt l pl#pM0@P P(2]t5P|O'' F#*F@F%*#d *#` *FP^ 2d`6P@ z6dl+jNt l lld0/dl O'' F'*F@FO*#d *#` *FP^ 2d`6P@   .dl+jNt l l>d1pl-d+++jYlpt >d1p(lpl+jNt l pl#pM0@P P(2]t5P O'rU~| 54| i)a/P -qHa qAI& C9 ! yi I u aQ   q Yi  y!y   ! !)!&&I)!"!Yy"" #)#Iy$ $)%$%i%)Y&%i!q9q Y&&a' 'A'' (qy(()K pz t$jlt l kjlEzNzC`dl+jt l |d 4l`)ldO''*F8 *#\ *#X *FH^ 2\X6H86\l+j t l ll\0/\lvO''*F8*#\ *#X*FH^ 2\X6H8q.\l+j t l l>\1pl-\+++jY`lpt >\1p(lpl+j t l plpM(@ bO''*F8*#\ *#X*FH^ 2\X6H8`#pM(@H H(]@5HO''*F8*#\ *#X*FH^ 2\X6H86\l+jt l ll\0/\ljO''*F8*#\ *#X*FH^ 2\X6H8e.\l+jt l l>\1pl-\+++jY`lpt >\1p(lpl+jt l plpM(@ VO''*F8*#\ *#X*FH^ 2\X6H8T8\l+jt l ll\J/\lO''*F8*#\ *#X*FH^ 2\X6H86\l+jt l ll\0/\lwO''*F8*#\ *#X *FH^ 2\X6H8r.\l+jt l l>\1pl-\+++jY`lpt >\1p(lpl+jt l pl6\l+jt l ll\0/\lO''*F8*#\ *#X *FH^ 2\X6H8.\l+jt l l>\1pl-\+++jY`lpt >\1p(lpl+jt l pl u,\lplt l l\0/\lO'' *F8!*#\ *#X *FH^ 2\X6H86\l+j"t l ll\0/\l.O''#*F8$*#\ *#X *FH^ 2\X6H8), .\l+j"t l l>\1pl-\+++jY`lpt >\1p(lpl+j"t l pl#pM(@H H(2]t5H* O''#*F8%*#\ *#X *FH^ 2\X6H8( 6\l+j&t l ll\0/\l O'''*F8(*#\ *#X *FH^ 2\X6H8  .\l+j&t l l>\1pl-\+++jY`lpt >\1p(lpl+j&t l pl#pM(@H H(2]t5H O'''*F8)*#\ *#X *FH^ 2\X6H8 6\l+j*t l ll\=/\lt .\l+j*t l l>\1pl-\+++jY`lpt >\1p(lpl+j*t l pl6\l+j+t l ll\0/\l O'',*F8-*#\ *#X *FH^ 2\X6H8 x.\l+j+t l l>\1pl-\+++jY`lpt >\1p(lpl+j+t l pl6\l+j.t l ll\0/\l O''/*F80*#\ *#X*FH^ 2\X6H8 v.\l+j.t l l>\1pl-\+++jY`lpt >\1p(lpl+j.t l pl\l+j+t l ll\1*#Xd+.t d llX*FH8 8((2]t2\X)ld6H8tO''2*F83*#\ *#X *FH^ 2\X6H8r6\l+j4t l ll\0/\lO''5*F86*#\ *#X *FH^ 2\X6H8|.\l+j4t l l>\1pl-\+++jY`lpt >\1p(lpl+j4t l pl6\l+j7t l ll\0/\lO''8*F89*#\ *#X*FH^ 2\X6H8z.\l+j7t l l>\1pl-\+++jY`lpt >\1p(lpl+j7t l pl\l+j4t l ll\1*#Xd+7t d llX*FH8 8((2]t2\X)ld6H8xO'':*F8;*#\ *#X *FH^ 2\X6H8v6\l+j<t l ll\0/\l O''=*F8>*#\ *#X*FH^ 2\X6H8.\l+j<t l l>\1pl-\+++jY`lpt >\1p(lpl+j<t l pl.?lp @FH 5HO''A*F8B*#\ *#X*FH^ 2\X6H8pz$` Cll Dl`ll'''8` Cll Dl`#\ *#X Cdd ,DlX*FH 2\X)ld6H8,tp0 \XldH8Kpz t$jlt l kjlEzNz6dl+jEt l lld0/dlO'' F*F@F*#d *#`*FP^ 2d`6P@ :.dl+jEt l l>d1pl-d+++jYlpt >d1p(lpl+jEt l plpM0@ O'' F*F@FG*#d *#`H*FP^ 2d`6P' F'*F@F)*#d *#` *FP^ 2d`6P@  6dl+jPt l lld=/dl? .dl+jPt l l>d1pl-d+++jYlpt >d1p(lpl+jPt l pl#pM0@P P(]t5P= O'' FQ*F@FR*#d *#` *FP^ 2d`6P@ ; 6dl+jSt l lld0/dl O'' FT*F@FU*#d *#` *FP^ 2d`6P@  C.dl+jSt l l>d1pl-d+++jYlpt >d1p(lpl+jSt l pl6dl+jVt l lld0/dl O'' FW*F@FX*#d *#`*FP^ 2d`6P@  A.dl+jVt l l>d1pl-d+++jYlpt >d1p(lpl+jVt l pldl+jSt l lld1*#`+Vt  ll`*FP@ @(02]t2d`)l6P@?O'' F2*F@F3*#d *#` *FP^ 2d`6P@ =6dl+jYt l lld0/dlO'' FZ*F@F[*#d *#` *FP^ 2d`6P@ G.dl+jYt l l>d1pl-d+++jYlpt >d1p(lpl+jYt l pl6dl+j\t l lld0/dlO'' F]*F@F^*#d *#`*FP^ 2d`6P@ E.dl+j\t l l>d1pl-d+++jYlpt >d1p(lpl+j\t l pldl+jYt l lld1*#`+\t  ll`*FP@ @(02]t2d`)l6P@CO'' F:*F@F;*#d *#` *FP^ 2d`6P@ A6dl+j_t l lld0/dlO'' FA*F@F>*#d *#`*FP^ 2d`6P@ .dl+j_t l l>d1pl-d+++jYlpt >d1p(lpl+j_t l pl.?lp @FP 5PO'' FA*F@FB*#d *#`*FP^ 2d`6P@ pz$ Cll Dll{l'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ Kpz t$jlt l kjlEzNz6dl+j`t l lld0/dlO'' a*F@a*#d *#`*FP^ 2d`6P@ :.dl+j`t l l>d1pl-d+++jYlpt >d1p(lpl+j`t l plpM0@ O'' a*F@aG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5PBO'' a*F@a*#d *#`H*FP^ 2d`6P@ @6dl+jbt l lld0/dlO'' a*F@a*#d *#`*FP^ 2d`6P@ 8.dl+jbt l l>d1pl-d+++jYlpt >d1p(lpl+jbt l plpM0@ O'' a*F@aG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5P6O'' a*F@a*#d *#`H*FP^ 2d`6P@ 46dl+jct l lld0/dlO'' a*F@a*#d *#`H*FP^ 2d`6P@ N.dl+jct l l>d1pl-d+++jYlpt >d1p(lpl+jct l pl6dl+jdt l lld0/dlO'' a*F@a*#d *#` *FP^ 2d`6P@ .dl+jdt l l>d1pl-d+++jYlpt >d1p(lpl+jdt l pl u,dlplt l ld0/dlO'' a *F@a!*#d *#` *FP^ 2d`6P@ 6dl+jet l lld0/dlO'' a#*F@aM*#d *#` *FP^ 2d`6P@ {~.dl+jet l l>d1pl-d+++jYlpt >d1p(lpl+jet l pl#pM0@P P(2]t5P|O'' a#*F@a%*#d *#` *FP^ 2d`6P@ z6dl+jft l lld0/dl O'' a'*F@aO*#d *#` *FP^ 2d`6P@   .dl+jft l l>d1pl-d+++jYlpt >d1p(lpl+jft l pl#pM0@P P(2]t5P O'' a'*F@a)*#d *#` *FP^ 2d`6P@  6dl+jgt l lld=/dl? .dl+jgt l l>d1pl-d+++jYlpt >d1p(lpl+jgt l pl#pM0@P P(]t5P= O'' aQ*F@aR*#d *#` *FP^ 2d`6P@ ; 6dl+jht l lld0/dl O'' aT*F@aU*#d *#` *FP^ 2d`6P@  C.dl+jht l l>d1pl-d+++jYlpt >d1p(lpl+jht l pl6dl+jit l lld0/dl O'' aW*F@aX*#d *#`*FP^ 2d`6P@  A.dl+jit l l>d1pl-d+++jYlpt >d1p(lpl+jit l pldl+jht l lld1*#`+it  ll`*FP@ @(02]t2d`)l6P@?O'' a2*F@a3*#d *#` *FP^ 2d`6P@ =6dl+jjt l lld0/dlO'' ak*F@al*#d *#` *FP^ 2d`6P@ G.dl+jjt l l>d1pl-d+++jYlpt >d1p(lpl+jjt l pl6dl+jmt l lld0/dlO'' an*F@ao*#d *#`*FP^ 2d`6P@ E.dl+jmt l l>d1pl-d+++jYlpt >d1p(lpl+jmt l pldl+jjt l lld1*#`+mt  ll`*FP@ @(02]t2d`)l6P@CO'' a:*F@a;*#d *#` *FP^ 2d`6P@ A6dl+jpt l lld0/dlO'' aA*F@a>*#d *#`*FP^ 2d`6P@ .dl+jpt l l>d1pl-d+++jYlpt >d1p(lpl+jpt l pl.?lp @FP 5PO'' aA*F@aB*#d *#`*FP^ 2d`6P@ pz$ Cll Dll{l'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ tKpz t$jlt l kjlEzNz6dl+jqt l lld0/dlO'' rs*F@rt*#d *#`*FP^ 2d`6P@ .dl+jqt l l>d1pl-d+++jYlpt >d1p(lpl+jqt l pl#pM0@P P(]t5PO'' rs*F@ru*#d *#` *FP^ 2d`6P@ 6dl+jvt l lld0/dljO'' r'*F@rw*#d *#` *FP^ 2d`6P@ e.dl+jvt l l>d1pl-d+++jYlpt >d1p(lpl+jvt l pl6dl+jxt l lld0/dl|O'' r'*F@ry*#d *#` *FP^ 2d`6P@ w.dl+jxt l l>d1pl-d+++jYlpt >d1p(lpl+jxt l pldl+jvt l lld1*#`+xt  ll`*FP@ @(02]t2d`)l6P@O'' r'*F@rz*#d *#` *FP^ 2d`6P@ 6dl+j{t l lld0/dlnO'' rA*F@r>*#d *#`*FP^ 2d`6P@ iw.dl+j{t l l>d1pl-d+++jYlpt >d1p(lpl+j{t l pl.?lp @FP 5PuO'' rA*F@rB*#d *#` *FP^ 2d`6P@ spz$ Cll Dlll'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ \clsPagen/ __SRP_20% !__SRP_21=s>3MQ1N{v2 6 2fff*1C50dc2c74*\R1*#d4$*\Rffff*1550dc2c74*\R0*#1b*\R0*#1b*\R0*#9*\R0*#f$*\Rffff*0z50dc2c74*\R0*#10*\R1*#b5*\R1*#d6*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#14*\R0*#e*\R0*#19*\R0*#13H+  8 "X    6 8 "X    , ,   *8 h  "@h p ."   T`=8|??wPnDL-Sڞ*=h8+3q' ?J"x' ?J"nDL-SڞRR RxRMEd @SS SH$ H* "(LT " 8>"LP *LLLL hz+h8 oi ,!@ hx+< tiB i ,!D hx+H@ ~iB  hi ,6P `k D &&i  t% F d @ %( % ,L 0 `lk H ##iN i  `P r R l% % ,H  `#kp Li  h`b t(`d $p`\n&`zl,J `('k0 Pi  `x`\P v\,| `)k T//i  0 Lt %`N*l( H \Ki@K0 `\fh  % ,f ` `,k X>i  \`Nt `-p`\n%8 % , `/k \PPZ)_  %iN   (i   t t %  p@ , % Lh` z%`\f `VX0d`,h `2k `<<iN  (i  % Lt0 ( %`\r `Vp\,h `5k d11ij  Bi  Ki _p %`N l d8@K % `Xf %`. \`\,%"0 4@b2 8@b4 <@b8 D@((8x(` h  Ph0 (p00Xh, `,x4 `.x`.x`.x`.x`.x`.x4 hh^ `^hxh8 hphh```pxp8 6 h: `: xzx8 6 hhh< `< z8 6 h`z8 6 h> `> z2 h@ `@ x2 0 HhD `D x2 0 (Xph6 `6z x@@r 8 6 H J 0,(@` @^ @X @T @P @L @H @8 @( @0 @H @` @ @ hL  `L xz D%`N t@x6 0, `N t`N t`N t P `N t ^ 8 6 0,(X5`N t #P h## x@h h @@d ``@ P @ @ @ 0 @! @(! @@! @X! @p! @! @! @! @! @! @" @"p @0"` @H"P @`"@ @x"0 @" @" @" @" @" @# @ # @8# @P# @ @ @@~ @x @#t @#p @l %P&8&&%%$$$$hH `H $z $$%$8 6 0,(h@%j (%$ @8%h P%% /@`%f x%8% @d/ &`% @%T (@%P @&L @&< @8 @4 (&`%%@h&0 (@&, @( @&$ @  @& @& @' @ @ h '((H)`)((0('('hJ `J 'z ('H('Z8 6 v0,(@X(t p(0(@r (X((@l ((X(@)h @d (@)` @\ @0)X @T @x)D @)4 @)$ @) @) @  @ P  +,X+@+*,,*x,*h| `|*z ** 0,*8 ,(6 J f @r @(+h @,d @p+T @+D @+4 @+$ @+ @+ @ @ @ @@, @X,,@ h,@, @,*0 X5@, @  @  .h../.0.----hf `f x-z ---x-2 8 6 0 0,(@.l  .- @j H.. (@d X.0. .@.` @\ (@.X @T @.P @L @(/< @@/, @X/ @p/ @/ @ ( @ h H ( 81 2h1P108210X00p0h  ` @0z 0X0 0@0|8 6 ,0(0@n @0b 10@` (10@\ 21@h2X @1H @18 @1( @1 @1 @1 @ @ 0'@@P2 (@ @ @2 @ 8 P P3 04X4443p443P33h3h `83z x3P3 383|8 6 ,0(3@x @3n 33@l  43@h H44 @4d 3@4` (@\ @X @4T @P @5@ @@50 @x5 66`j t5@5 5`j t@5 6`j t`j t @ @ h6x@`668H87P78777`86 75(8`j t hh  `h 6z 76`j th76 0,(0@j @8P 87@7@ @90 @( @7& 7@$ 887@ 9 87x87@8 @  `8( 7@8 @ @8 P8@ @89 @ @ 8h x8Tp+`r,P *\R0*#1c$*\Rffff*1B50dc2c74(*\Rffff*1B50dc2c74\0(*\Rffff*1B50dc2c74\1$*\Rf                         ! " # $ - & ' ( ) * + ,  . / 1 & 3 4 5 c 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b 2 d e f h i j k l m n o p q r s t u v w x y z { | } ~  0"8  @ HBP X p x"     B   B     0H PB X ` x  B     0H PB X ` x  B   B   ( @Ph pB x $   B 8@ HXhp x         ( 0 8 @ $H lX x     B      $       (   0  [8 @ !H  X  h  x  )        $ l   B 0 8 @ H P X ` x  4N     @ X  p  x     $ l   B      (  @  P  h               ( 0$8lHh pBx   (    * (8DIH ,+  "88@Xh    $l @ HBP ` hpx   "" ( 0@H P$Xlh B$  ,     08@ H X hp x   2$))0)8)H ` p >$) )0P)X )h    &>$)@ )Xx) )    &  (48p7x7  $l B  ,8 @PX` h x    2$  ( 8HPpx >$    & HPX>$`    & 40hp x $l B  > ( 0@HP hpx## ' &  ( 0 @ 4P       l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@zݕ Dim cPage As New clsPage yvpeBz/ Name / ^[QbgAtiveXRg[ PageCount y[W̎擾 GetPage y[Wi GetPos pos擾 y\bhzH% Read Wordt@C̓ǂݍH% FindWord Wordt@C̓ǂݍ Sort \[g$ ReadTextBox INIt@C̓ǂݍnPageSection\^D y[W^D0 l7^DH  myStartPosmemo^D`  y[Wԍp PageSet\b(x^D ݂pos8^D݂̃y[Wԍ!4p]@D( y[WZbg]@D(y[WZbg]@D(^[QbgActiveXRg[]@D(ZNV]@D8(y[Wdumy'4 no'4 o AName̎擾 4 ',mh AName̐ݒn .'4 mPPage!2 8 '^m((NoԖڂPage01Ԗ ( G{j. 8 ( .^ ( $6 !'`kmNoԖڂPage' 01Ԗڃ ( G{jĂ 8 ( ( $6 !& ': k0m((NoԖڂ̃y[Wԍ01Ԗڂ ( G{jX 8 (  ( $6 !( '< KTkm NoԖڂValue01ԖT ( G{j' 8 (  ( $6 !n'KTk0m(( 2 '> mSetNoԖڂ݂̂Post01Ԗڂ B G{j8 2 B !r B $0 !, '@  kmSetNoԖڂ݂̂̃y[WԍĂ01Ԗ B G{j 2 B K B $0 !. 'D Kkm݂̃y[W𒲂ׂ'6].------ !--zk'8 ]@6 @ݬ$6 ($6 (nč¬'8 H ͎zk J D%zk ! zk'6z" 0!2 0!2 , 0!4A@(sk !zzhk`iXP"8'L ]]'P !8!V .R ͂Ȃ P bȂ R !X %C@Z ^ 9\ N 9dC@ q R !X !` 'P P B 8 @6   N 8 $6 ( R ! 8 $6 (n 8  '8 k@8'L z("  0!2 0!2 , 0!4A@(Dki0"'H ]]]] \ 8  z 8  \ \$6 !n %@ z$6 !n %@  \$6 !n'b  \$6 !'d 3- z$6 !n \$6 (n z$6 ! \$6 ( z b z$6 (n( d z$6 (k zҗX \@K{'H zX"P 0!2 0!2 , 0!4A@(%ki܂"'J ]P Z']h \ 8  \$6 (& b $6 (( 0dx  \$6 (&  \ \$6 (( k@ \$6 !KT ǎKT4  v '͂n \,'J z" 0!2 0!2 , 0!4A@(ki "p'|"݂̃y[WTextBox1擾'8 ] .Ls LB@6 z] y[W\ y[W\ L%'N N'N y[W\ y[W\ N , %R L%Pf"y[W\ۑł܂łBA@(z8k0 LB@Td N , %R'Nk] N ,  %~+]P \  8 @6  \$ \$6 ( \ \$6 (n D 8  '8 \\ J K{z0k( f zk'|z" 0!2 0!2 , 0!4A@(ki ("'f ] ] '2 ] \ 8  \$6 !KT 2 @0 P \$6 !& 2 $0 (, F \$6 !( 2 $0 (.  'N'n \Ŏnܷ'f z " 0!2 0!2 , 0!4A@(kp ih   ` "H &f[^`FbNςł邩ǂ ' ] . ]( .  |z k ]H .LE LB@6͕K{]h ] 'N \ 8  \ 'V \$6 !KT f[^`FbN L%ςtKς B@j B@j\d  B@j B@j Nݶ'Ntdx N ,'N͕K{kP ' k@ n8 \Ef[^`FbNƋl̂‚킹 L%ςς B@jƋl̂‚킹 B@jd  B@jƋl̂‚킹 B@j NtƋl̂‚킹'N ,d@ N ,Ƌl̂‚킹'N k ' k f[^`FbN㗝l̂‚킹 L%ς'ς B@j 㗝l̂‚킹 B@jd  B@j㗝l̂‚킹 B@j NiͶ㗝l̂‚킹'NBd N ,㗝l̂‚킹'NBk' k N  ȉ̃`FbNςł܂B , N'NOk ^B@j ^B@jz`"X 0!2 0!2 , 0!4A@(Ck i B "&f[^`FbNςł邩ǂ' |!f'zk] .L LB@6 ]8 ]P 'N \ 8  \ 'V \$6 !KTͶf[^`FbN L%ςd NB'Nd N ,'Nk'kxnp \{łͶf[^`FbNƋl̂‚킹 L%ς'd N Ƌl̂‚킹'N$ Dd N ,Ƌl̂‚킹'Nk'kf[^`FbN㗝l̂‚킹 L%ςdX N ,㗝l̂‚킹'Nsd  N ,㗝l̂‚킹'Nk'k N ȉ̃`FbNςł܂B , N'Nkz" 0!2 0!2 , 0!4A@(KkHi@h ŕK{" 8y[W̖OƂɃf[^`FbNςł邩ǂҷ'h ] .^܂]'N ^ N$ zk] ]@$^. $^. ]`']x \ ! \ % j  \ %ς'h 'ykk \% %. MsgBox myPageName & "݂͑܂B"ȓkp. . .^zP"H 0!2ĂKTS( 0!2 , 0!4A@(niAttribute VB_Name = "clsPage" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ Option vliciBtComp @Binary' y@z+Dim c As Ne w | vpeB … /^@>QbgAtQXRЃg@ACount yW̎DGet (  EosEr@y\@h!&ReadCWo@rdt@c̓@ݍ FHindA SHort\@.gTextBoxINI 5Sece\ P T@w  KVaSng'CLACValuelPCJqInteger 'myStart No ԍ End?ct MKagami!sbLo@/݂@7ca UE(Sets(>)c'ZR'/CPcf% % _A_@4C`>ve`C#BE%`NVg?,he Sub Class_Initialize() #= "dumy#@&TermMt ub Proty }n @S\'"e!B'ATe  Let Bye nv]c @ PݒcJ"nv A2! 'a!2%9? ! `O(#`x?)NoԖڂ̃!e'01#If"< 0 TheitZ_a'>Q ϴ 5 - ).A 1IfP/"a"JE;MUr3 o).pdt"Y '/)Rc erty /= _*Ol{b/ //?-r$RpQ1gSBL,P4i= ?XN)U$uos BZI#By+?/*@>B' 0 s(r).s$3_ngB_[?4MRb /4mS 4@$$? pA+C F unSA( _  RBooleanQ5 ׂ3` "FqdFormP cFT cF.Unprot FiڢdExPVe cUG= 0S?  FRehI0^sK0SiP "c ?M?4 = 1S1= bO>tI`os@ i?s  AP|q cYd TruPit Function ErrMes: " If x.Number <> 0 Thep MsgBox H& vbCrLf &*Descr ipbEnd IfcF.ProtectFile = False eEx FPPublic FindWord( _sByVal target As StPring)B ooleaOnbor GoToA-Z/Dim blnFo>uK-&rngContent5RangeA= Tru SHet = \.AveDocum&.* &Do Wh*HWitzh.5CA.CCrForma ttILWrap @@wdAStopText\Execut9A% /AB*.YG L:LReaPreserve Page_S(BCntAŁ B .Nam9 @u H4@>2 $O+ 1 JLo^Ab?}}=t0Sortsoes?eo"!a:sw|ap*z4piEAqIrger'j` ioG3-I2Aj@6 `iep -7A< VVBA.CLngO"Ki).) > j﫱 a =[ eDXeaJ-   E +F D  g Naj# bicdN_jrr_j_j Posj cl5mySMt 1= KAGAMI_COUNT#A95_4^4`1t6A'0).1 x= 0]No@ iS /C`P2Cϧ i YT! Self Ca3O)2"0"ǎ< *+ JIKOSYO Q0 /&!_/'1_/AndReadц/dA s;0'̃y[Wt1擾,&)sa0INIq3clsc a= New P.ssCFs0 aGet2X(" \",: )A""b*BB>D0Cnt = 0 Dim i As IntegebrForT To Page_Cnt - 1xSelect PCaseBS(i).NameLTF"L" 4RePreserve `Sets(q)?~7(.KagamixPos"7{Nos"cs 8Endf"Next iReaFd_%TruExit Function ErrMes:If .Number <> 0p TheM sgBox & vbCrLf & Descrip.A (If@+GPublic# Check( _C ByRef myCol9W-AlG, sAS`tringwB oolea;On)GoC?A*'f[^`FbNςłǂ੔% +XA+ItemK*d= New 2CKeyAorTl= Fals l"INIA!cls@A0I@.AET/k I[ k`.i +߅߅e'AGetValue("+C", E)r"D"Le =.Add O:VE8N !d c28A!Ws׸ `%irb^%cc_A"Ƌl̂‚킹"BYA?p ck) J> 'xo3bQo \6oo`R "P" ȉu܂B"Y@TIFOyC3 4JResult s r  ߓ n@e4 yut aPt,_Q_r't-__ OOQ 0OȄc __̌=@3%rB_{8? _{4iE&'{r{=i{qO BoUSU Y 7 OKaO OѰ_Ų s = "㗝l̂‚킹"Elses & vb0CrLfnd IfCheckTheResHultFagE0If s <> "" 2nEȉ̃`FbNςł܂B" s< ]Exit Functio- ErrMxes:@ .@NumberE0DMsgBox  Descrip1A7u?@PublicH ByPageN@ame( _MB@yVal m As Strin g)Bool$eamOnQor` GoTo@:  C'y[W̖OƂɃf@^V邩ǂ#*uDim*Coxlle['GSet= New sC;BGm$(my, s)&rCD,0Item+Ke.yQ2= 5(1)L2D ]bFsAbWi IntegerF{i 1 |A.Count`%a(ia#hJn.'"`oݍtaCTru߬A3#voaa6Next i@&$?'ax(& "͑ඍ݂ h1l ll0ClI ll 1dr>d#ht kr2hd+'''$:TNDD 6D$/  rt " ll 1l8:T NDDll$ $6 Y6D$lcD@ klk@Ak#hk@A/hDD dcrPkr/ rXkr / pz/ $  ll'''$  l#h *#d  ,ld*FD 2hd)6D$/ ,8tCxl0 hdD$|Kpz 8nDcjkn@ACd ld084"kn@A84A"kn@A 84ACtCp ndj2pz/ $\ `` l\`ol'''\ `` l\#X *#LP TT ,lP*F< 2XLP)`T6</ l |0dpt0 XPL`T<lKgpz t pnTkn;/ h nh  1fDc` kfpdkf@AC\ l\0$Xh lX0/X)''':HN88t 68)''':HN88p 68)''':HN88t 68)''':HN88p 68 0 1 *#X*'/Xpz fd`v$Xh lX0/X0)''':HN88t 68)''':HN88p 68)''':HN88t 68)''':HN88p 68 0 1 *#X*'/Xpz$X h lX0/X:)''':HN88t 68)''':H N88p 68)''':HN88t 68)''':H N88p 68 0  1 *#X *'/Xpz =! *#X*'/X7'''8ltMH @H l=t687'''8lpMH @H l=p68/$  ll'''  l#X *#  ,l*F8 2X)68/4d\hpt0 X8*KpzxTkx)/ t xt  1 rDcl krppkr@ACh lh0$dt ld0/d 0 1   *#d*' /dpz rdlrU !" "qcy`9F&&AI&(y'Q'Y!!Iaq Uqi9bџ Q`A)9F(@H))  I    W    W    _    _     W D < $  D <$ L- <Cx/ (x Ll Cx lx< (x H Dqx/ $ |H-l /Dl ;l @ACx/o{ H(x tDl /Dl 9l @Apz/ D$ tDl /Dl 9l @A pz/ D$ xHl /Dl ;l @Apz/ H$ H 8pz/ $ tDl /8l :l 4Aqx/ D$ tDl /8l :l 4Aqx/ D$ @pz trt kr0/  D@ @A#`@A/` DrLkr/ rPkr/ ^+rt k^/ pz/ $T XX lTXl'''T XX lT#` *#HL PP ,lL*F8 2`HL)XP68^+rt k^/ / H0di l} t 0 `LHXP8y`4l CtKpzpr$dh $ 4 h Qdlh krhl 4Qh` ` `  lt` [~'''''' '@'`'''''' '@` 6@ `@ c`!~hl 4h 8k~prh krD@ ltD@A)xl 4lx#tD@A/tDD?pz/$x hh lxh(l''' x hh lx#t *#lp dd ,lp*F@ 2tlp)hd6@ /pz 40`tl\tplhd@ `@ DKDpznDch5Dlknkd+Nkn@.PAMT@^qL-PlLkl@.8AM<@^q4-8l4kn@ACtkn@ACpkl@Akn@Akl@Akn@Altkl@Alpkl@A ledE ndh(pz/ $L 00 lL0l'''L 00 lL#, *# $ (( ,l$*F 2, $)0(6/ 0,tp8 P8,$ 0(KpzFpxvDcr kvc@A@A kxkv@Akvkv@A ;kv@ACl ll0 ll0 kxpx vdr/pz/ $d hh ldhvl'''$d hh ld#` *#TX \\ ,lX*FD 2d$dt ld0/d(e 0C 1 \  *#d*' /dpz$d t ld0/d 0  1   *#d *' /dpz =! *#d *' /d/$\ `` l\`l''' \ `` l\#d *#PT XX ,lT*F@ 2dPT)`X6@ / ,ht0 dTP`X@ \l CtKJpz pCljlp\kj>#0(@p 0d6@0#0(@p 0`6@0p.,(` $l(c$'@,MP@` @ltF]35@ &@,MP@d @:]35@ pzp. ,d$ k." c=d c=` c=p/(  l(q l yl'''0(  l(# *#  ,l*F@ 2)6@0/ 8 `dlpt0 @0HH     7 h0( h!1( h%(,A h )0, h -&, h 1&, h 5&(A h9&, h =(, h A((  `E#,I `I#( `M#( `Q#(  `U#(I `Y#8 ` ]=0#, `a0#,  `e #y``nrU 6$674*\R0*#1c$*\Rffff*1@50dc2c74$*\Rffff*1J50dc2c74*\R0*#2*\R0*#1*\R0*#f*\R0*#4*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#f$*\Rffff*1850dc2c74$*\Rffff*1D50dc2c74*\R0*#1d*\R0*#1e$*\Rffff*1G50dc2c74*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*1550dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\R1*#10e*\R1*#10b$*\Rffff*1N50dc2c74$*\Rffff*1<50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*0z50dc2c74*\R0*Ycgft,MCND l@OJKH)nOIOխKu0!)&b(Ig+x0!)&b(Ig+t,MCNMESPSSS" ( "F>""L " "L"LLLLL "LL LL*LP<<<<<<<<<<<<<<<<<<<<<<<0{BBF1DCD9-EE32-4142-9A64-95CA57999FE8}{51A2127F-2971-4D51-9AD9-3269BB5C97F5}/pT `8kyy xX% tx%`\rSPu`zj s St҃[ ^ P(Winndows98 8 X D%`Ɋ  0`k Dxf %` t%  `k Dxf %` t D  `xk  (`k, 8`kh ]]i i  J Dth %`f`d(  `"% _D0%  x`pkii.  `"k%%  `@$k--  8 `x&k NN  x `(k !!7   `*k 22X   `-k     `.k HH DtP%`j ` d _` %, `1k i  h  ``4kXX{`z   `6kWW`z  `8tk  *  8`x9tk$ 3  x``:tk( <  `H;tk, E  `0<tk0 N  8 `=tk4 W  x `>tk8 `  `>tk< i  `?tk@ r  8 `@tkD {  x `AtkH   `BtkL   `pCtkP  " 8 `XDtkT  $ x `@EtkX  & `(Ftk\  ( !`Gtk`!  * 8 "`Gtkd"  , x #`Htkh#  . $`Itkl$  0 %`Jtkp%  2 8 &`Ktkt&  4 x '`Ltkx'  6 (`hMtk|(  8 )`PNtk)  : 8*`8Otk*  < x+` Ptk+  > ,`Qtk,  @ -`Q4k-++& Dx[W% B .`S|k.QX% % xx x8 8 8  8x (0x x88 x  xx 8 8 8 `%0% `@(pX @l @d @0b H @H` 0 @P @@ l n Z p r @0 @ `0   @0 @ @p H@ pp@ @  8 @ @H ` '@ pH'H)@ *@ *,b" t *v ,@ @ @ x &z (| ~ @   . X B p x 0,(@ @ @  z( 0,@xp @` @P @L @0< @H, @` @ @ @ @ @ @ px z( 0,@hp @` @P @L @ < @8, @P @ @ @ @ @ @ hr@x hP8 0,(@z @t @p @l @h @d @` @(P @@@ @X0 @p @ @ @ hX8(Xph  ` @z X@@p @n @@h r ,x @PP @ L @H @h4 @$ @ @ @ @ n      0(@ @X @ !( X !@ !x! l n t v @p x @v @ d e@` @t @ P @!@ 3m  x z  | ~    @0!< e@H!8 @`!4 @0 3m ! 0,(e@, @! @! G @ e@ g #"#### @8#x " e" 0,@t @P#p G @l e@h#h @d "(em @#T @#D g @#4 @$$ 3m @($ e@ @ p%$%%X%@%l p t v x z | ~  @%x e$ n r g % (% 0,(m @t e@%p x3m @l @%h 3m @d e@&T @&D @0&4 @H&$ e@`& xo @ @ o '0'( (H'x''r l p v x z | ~ e@'x `k @v ' 0,k @p e@'l `k @h @'d o @` `'(#@8(P @P(@ o @h(0 e@( @( @ p @ e)h)))))n p @*x @p*h p @X*X eP) ) 0,(p (@T p @(*P e@L @@*H @D p @*4 @*$ g @* @ @ e0,++++,,l t v z g @H,x @v p @,d e@,T ij p+~ + 0,(p @P @`,L `k @H @x,D k @@ e@,0 @, @, p @ e@ g --P.h.-- 0,(@.x Ђ @t @ .p @l @8.h @d @.T @.D @.4 @.$ e@. g @ @ xO p8X//00H0/h101 0  n r @z P @0p @1l k \0`Ђ %0e@`0L @x0< @0, چ @0 e@0 @ @1 d`g / e@P1 @ 1 @ چ 0 0,e@ k @ @1 چ @ 81(123223P42842h ` h2z چ 22h g h2n (r z e@3t g @3d @03T @`3D e@H34 g @x3$ @3  @ @3 xچ @ @ 2, @4 g @h4 3  R 4 0e@ @ H85P5h55 l n t v  @5t @5d g @6T @@6D چ @@ e 5 x z | 5 ~ 5  5 (k k P@(60 g @X6 @p6 چ @ @ @7X7p78 l n t @7t j @7d e@8T @H8D @@ (7v x z | e7 ~ 7 7 (0@080 e@`8 p @x8 @ Ⱥm @ e`9H909l De g @x @t j H:0::t e@x @t 0;;;v ej @x @t g <<;x ;@x Ⱥm @t =<<z @x @t G ===| m Hm (e@x Hm @t >>> eQm @x e@t Hm ??? X 4@x Pj @t e@@p@ @x @t ApAXA~ @x @t pBXB@B @x @t XC@C(C @x @t @D(DDn @x @t (EED @x @t FEE @x @t FFF @x @t GGG @x @t HHH @x @t III @x @t JJhJ @x @t KhKPK @x @t hLPL8L @x @t PM8M M @x @t 8N NN @x @t OON @x @t POO @x @t PPP @x @t QQQ @x @t SRRR SS t b  v @8St @Rd @T @D @PS@ @> @8 @4 R*x , z &| (hS ~   S  . PTr +//XGr,P $*\Rffff*1O50dc2c74$*\Rffff*1V50dc2c#17*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#1b*\R0*#1bT48<@DHLPTX\`dhltx|p  $(,8<@DHLPT\0X4`dhlptx|W  8 "X "    8( H!Xhx "v.v%Hh x  5  0 @ P`x  5   0 a  8  @&Xh x "C"F ( 8"FH p "F   "H"H"H0"HX"H"H"H"H"H &FH"Hp ,0(80'H ` PLx  TL@ H P X ` p         $ l   "( 0 8  @ P %X h  ,  **     ,* 8 @ >H h p $x l   "     %   ,0  **P     ,*   >   $ l 8 @ "H  P ` "h p  x     $ l   B      .'0HPX `$h ,Q   (8L(`hp x $pb?8P`h p #888"82J02Jh$8$8,8,8 "8P&8x+ 4^ &"8 8@+` 4^ & 88@L0  p2Q , (0@PX` h $pl "   $G   0 @PX$`Gx    $G 0 H ` pG    $G  @ X p G    $G0 P h  G     $(G@ ` x  $G   ( 8HP$XDp    $G0 P h    $l "   0@P`p   0@P`p x $l "   0@P`p    0 @ P ` p      $ l   "! ! ! $(!@!X!`!x!$!!!! 0!"$" "8"@"X"$`"x""""$""""#$#(#@#H#`#$h#####$####$$$0$H$P$h$$p$$$$$$$$$%%$ %8%P%`%h%%%% % $%l%% %"% % % &  & @&&`&&p&&&&&&&&&&&&&&&&&&''& '&0'&@'&P'`' h' $p'l'' '"' ' $''''$((((8($@(X(h(x($(((($(((($))()8)$@)X)h)x)$))))$))))** * $ *l0*P* X*"`* h* p*x*** * $*l** *"* *  *++ + + .0+'H+`+h+p+ x+$++ + +  +B+B+B+B, B8, BX,(Bx,(B,B,.g,B-"B8-B`-B-B-B-B-.,.2 . @.H."P..L`..$O. ...L./// 0/H/2QX///// / $/l// /B0 0 0 ,0"+00X0`0 (_h0,0 .*0 0 00 (^0 1,(1 |O@111 11 (^122 , 2|O82 2 222(^2,3 |O 333 33 (^333 ,4O4 4 444(^4,4 O555 55 (^555 ,6vO6 6 666(^6*6 8*6 07 @7H70P7 @*h7 7 77,7 2*7 8 (808 (^88 *`88*x888 8 08@*8(989 @9H9P9 ,X9.*p9999(^99 ,9|O: : :::(^:: ,:tO: p; ;;;(^;&R; B*; 0< @<H<P< ,X<Op< < ===(^=*@= >*X= = ===== = $=l=> >">  >(> 0>*@>8X>p>>>> > > >*>8>?(?@?H? P?*h?8?8?????@@  @*8@8P@8h@@@@@@@ @*A8A80AHA`AxAAAA A*A8AAB(B8B@B HB*`B8xBBBBB B*B8BC(C@CHC PC*`C8xCCCCC C C C D DL+ DpD xD"D DD D*D8DDDEE E (E 8E*HE8`ExEEEE E*E8E8FF0FHF`FxFF F*F8F8FFGG0GHGPG XG*hG8G8GGGGGHH  H*0H8HH`HxHHH H*H8HHII I (I*8I8PIhIIII I*I8IIJJ J (J 8J HJ XJ hJD+xJJ J"J )J"JKK K (K"0K )8K"PK`KpKK K"K )K"KKKK K"K )K"L L0L@L HL"PL )XL"pLLLL L"L )L"LLLM M"M )M"0M@MPM`M hM"pM )xM"MMMM M"M )M"MNN N (N"0N )8N"PN`NpNN N"N )N"NNNN N"N )N"O O0O@O HO"PO )XO"pOOOO O"O )O"OOOP P"P )P"0P@PPP`P hP"pP )xP"PPPP P"P )P"PQQ Q (Q"0Q )8Q"PQ`QpQQ Q"Q )Q"QQQQ Q"Q )Q"R R0R@R HR"PR )XR"pRR .RR R"R )R"RSS S (S"0S )8S"PS`SpSS S"S )S"SSSS S"S )S"T T ,0T`T hT"pT )xT"TT *TT T"T )T"U U *0U`U hU"pU )xU"UU *UU U"U U V V 0V "PV*xV4hVV "V*V4hW4hHWW *W*W4hW4hX@X HX*hX4hX4hXX X*Y4h(Y`Y hY*Y4hYY Y*Z4hZPZ $XZ*Z (ZZ Z"Z  Z Z Z ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX"H]@. ]`. ] \ % . ] z ! z % ! B@ ount z \ ! (0 ! ( ! ( ]StringƃG[]StringƃG[] StringƃG[0123D' 0wȂ@lc̶lD'Se x0 !l (  !l ( 0,40 !l ( $0 \ \$  \+ \݂ \ 0 \$ \+ \2 B  !l ( !l (0 !n (  !n ( 0,40 !n ( \ \$  \+ \ \  \$ \+ \(  !n ( !n (0].D] Z'ID͕sŽ ! (n ! (OWordADBƂύXs· !p (:2 !p (  !r (: !r ( z b  D%!r!nP b  D%!r!ne@l ! !l (0 b  D%!r!neZ cN 9d !l (0 b  D%!r!ne 8 @lN 8  !l (0k  b " D%!f !p (n@ b  D%!f !t (n0!2 b * D%!f !v (n(D b , D%!f !x (n" b & D%!f !z (n b ( D%!f !| (n8  b  D%!f !~ (n%@ b  D%!f ! (n\$6 b  D%!f ! (n3- b   D%!f ! (n6 b . D%!f ! (n6 ( ! (:z ! (: !p !nX֯ ! ( 'H f[^܂͂Ă܂B ! (2 !B(:d !p !n !r (n D!L% ! ( !r !n2f[^x[Xɓo^Ă邩mFĂB ! (2d0 ! ( , !r !n6f[^x[Xɓo^Ă邱Ƃ͊mFĂ܂B ! (2kkA@ A@ ! (: ! (: ! (: ! (: ! (: ! (: !x (A@ | " 0!2 0!2 , 0!4A@(ko"].D] ! !n' Ƌl̏Z̊mF  $  D!% z̏ZmFĂBA@(|kd z̏Z͂Ă܂BA@(|k D!% ! (n|" 0!2 0!2 , 0!4A@(kPoH0"8]p.DX] ! !n' Ƌl̏Z̊mF  $  D!%B z̏ZmFĂBA@(|xkpdh z̏Z͂Ă܂BA@(B |0k( D!% ! (n|" 0!2 0!2 , 0!4A@(ko A@ro"F  |pkh|`"X 0!2 0!2 , 0!4A@(k o("F' ].D  D!%|  D!%| 'dzk]  D!%']].~   !r !n  D!% .~ ] "DBɌ‚ȂƂ@VKo^ ! (  !r !n͂܂o^Ă܂B ! (2A@ A@ z  e DBɕ‚Ƃ@I ! (  !r !no^Ă܂B ,&uIv{^NbNĂB ! (2 !r !n !x (z  !x (A@ z e.^ ~ %.^ID ^% ! (ntype ^% !n (0name ^% !r (nnameKana ^% ! (n postalCode ^% % ! (n postalCode ^% % ! (n president ^% ! (n president2 ^% ! (npresidentNameKana ^% ! (npresidentNameKana2 ^% ! (naddress ^% ! (n addresskana ^% ! (ntelNo ^%$ telNo ^%- %R ! (nd ! (nk areaCode ^% ! (nperson ^% ! (nfaxNo ^%$ faxNo ^%- %R ! (nd@ ! (nk( email ^% ! (nmemo ^% ! (n ! ( !r !n"̓o^mF邱Ƃł܂B ! (2TextBox1㏑ D!LB@6ݶcID ! !n D!L%Pz( k D!LB@Tk ! !n ! (:k A@ ! (: ! (:A@ ' z " 0!2 0!2 , 0!4A@(kX iP 8"FA@ !l !: !n !0 !l !0 !n ( !l (  !l ( !n (k k !t !: ! !n !t !n ! ( !t (  ! ( ! (k k !v !: ! !n !v !n ! ( !v (  ! ( ! (kx ! !n !x !n ! ( !x (  ! ( ! (kk !z !: ! !n !z !n ! ( !z (  ! ( ! (kh ! !n !| !n ! ( !| (  ! ( ! (kk !~ !: ! !n !~ !n ! ( !~ (  ! ( ! (kX ! !n ! !n ! ( ! (  ! ( ! (kk ! !: ! !n ! !n ! ( ! (  ! ( ! (kHk@ ! !: ! !n ! !n ! ( ! (  ! ( ! (kk ! !: ! !n- %R ! !n- %R ! ( ! (  ! ( ! (kk ! !: ! !n ! !n ! ( ! (  ! ( ! (kXkP|H"@ 0!2 0!2 , 0!4A@(kox"F ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! ( ! (|" 0!2 0!2 , 0!4A@(kHo@"F !l (z !p (z !t (z !v (z !x (z !z (z !| (z !~ (z ! (z ! (z ! (z ! (z ! (z !n (z ! (z !r (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z ! (z |H"@ 0!2 0!2 , 0!4A@(ko"F !r ( !l !: !l ( d !l ( k !p !: !p ( dH !p ( * Me.txtNameW.BackColor = &H80000005k !v !: !v ( d !v ( k !x !: !x ( dh !x ( kH !z !: !z ( d !z ( k !| !: !| ( d !| ( k !~ !: !~ ( d` !~ ( k@ ! !: ! ( d ! ( k ! !: ! ( d ! ( k ! !: ! ( dX ! ( k8 ! !: ! ( d ! ( k ! !: ! ( ! (:d ! (  ! (:kh|`"X 0!2 0!2 , 0!4A@(k o8"FDB^u𔒎 !n (0͋󗓂ɂȂ Me.txtNameD.Value = "" ! (n ! (n ! (n ! (n ! (n ! (n ! (n ! (n ! (n ! (n ! (n ! (: ! (n ! (n ! (n ! (n|" 0!2 0!2 , 0!4A@(kXoPx"F !l !: ! ( ! (nk !t !: ! ( ! (nk !v !: ! ( ! (nk !z !: ! ( ! (nk@ !~ !: ! ( ! (nk ! !: ! ( ! (nk ! !: ! ( ! (nk ! !: ! ( ! (nk@ ! !: ! ( ! (nk ! (:|" 0!2 0!2 , 0!4A@(ko"FA@  ! (: ! (:|`"X 0!2 0!2 , 0!4A@(k o"F |k]8.D D!%|  D!%| 'd|k]X  D!%']p].^ ^ ! !nIDC@j !n !ntypeC@j !r !nnameC@j ! !nnameKanaC@j ! !n presidentC@j ! !n president2C@j ! !npresidentNameKanaC@j ! !npresidentNameKana2C@j ! !npersonC@j ! !n ! !n postalCodeC@j ! !naddressC@j ! !n addresskanaC@j ! !nareaCodeC@j ! !ntelNoC@j ! !nfaxNoC@j ! !nemailC@j ! !nmemoC@jq ! !n ^ D!% |k ! (n !r !no^܂B ! (2dh ^ ! !n D!% |8k0 !r !nXV܂B ! (2k ! (: ! ( TextBox1㏑ D!LB@6ݶcID ! !n D!L%P|hk` D!LB@T|H"@ 0!2 0!2 , 0!4A@(ko"' !n !0ʂw肵ĂBA@(zk !n !0 !n !0 !r !n z̎͂ĂĂBA@( !r B@ zd !r !n $$ !r (nk ! !n z&̎tKi͂ĂĂB ,s܂H  z̎tKi$(  ! B@ z(k d ! !n $$ ! (nk k ! !n z&̑\Ҏ͂ĂĂB ,s܂H  z̑\Ҏ$(  ! B@ z0 k( d ! !n $$ ! (n ! !n z&̑\Ҏ͂ĂĂB ,s܂H  z̑\Ҏ$(  ! B@ zH k@ d8 ! !n $$ ! (nk k ! !n z.̑\ҎtKi͂ĂĂB ,s܂H  z̑\ҎtKi$(  ! B@ z@ k8 d0 ! !n $$ ! (n ! !n z.̑\ҎtKi͂ĂĂB ,s܂H  z̑\ҎtKi$(  ! B@ zH k@ d8 ! !n $$ ! (nk k ! !n z$l̗X֔ԍ͂ĂĂB ,s܂H  z ̗X֔ԍ$(  ! B@ zX kP dH ! !n $$ ! (n ! !n$ z(̗X֔ԍ͐œ͂ĂĂBA@( ! B@ zk ! !n z/̗X֔ԍ́u3-4vœ͂ĂĂBA@( ! B@ z@k8 ! !n z"̗X֔ԍ͂ĂĂBA@( ! B@ zd ! !n $$ ! (n ! !n$ z(̗X֔ԍ͐œ͂ĂĂBA@( ! B@ z8k0 ! !n z/̗X֔ԍ́u3-4vœ͂ĂĂBA@( ! B@ zkkk ! !n z̏Z͂ĂĂBA@( ! B@ zHd@ ! !n $$ ! (nk ! !n z&̏ZtKi͂ĂĂB ,s܂H  z̏ZtKi$(  ! B@ z`kXdP ! !n $$ ! (nk  ! !n z"̓dbԍ͂ĂĂB ,s܂H  z ̓dbԍ$(  ! B@ zxkpdh ! !n $$ ! (n ! !n-$R$ z2̓dbԍ͐ƃnCtœ͂ĂĂBA@( ! B@ zkk ! !n z(̎s撬R[h͂ĂĂB ,s܂H  z̎s撬R[h$(  ! B@ zkd ! !n $$ ! (n ! !n$ z.̎s撬R[h͐œ͂ĂĂBA@( ! B@ zPkHk@' z0"( 0!2 0!2 , 0!4A@(ki]H'type ! !n !l !0 !n (0 !n (  !l ( 'kPmemberNonamenameKana ! !n !t !n ! (n ! (  !t ( 'k presidentName ! !n !v !n ! (n !x !n ! (n ! (  ! (  !v (  !x ( 'k?presidentNameKana ! !n !z !n ! (n !| !n ! (n ! (  ! (  !z (  !| ( 'k? postalCode ! !n !~ !n ! (n ! !n ! (n ! (  ! (  !~ (  ! ( 'kH>address ! !n ! !n ! (n ! (  ! (  ! (:'k= addressKana ! !n ! !n ! (n ! (  ! ( 'k0=telNo ! !n ! !n ! (n ! (  ! ( 'k<areaCode ! !n ! !n ! (n ! (  ! ( 'k0<personfaxNoemailmemo Bf[^x[X֔f̂`FbNĂsĂBA@(k;o;`]'type ! !n !l !0 !l (0 !n (  !l ( 'k:memberNonamenameKana ! !n ! !n !t (n ! (  !t ( 'kH: presidentName ! !n ! !n !v (n ! !n !x (n ! (  ! (  !v (  !x ( 'kx9presidentNameKana ! !n ! !n !z (n ! !n !| (n ! (  ! (  !z (  !| ( 'k8 postalCode ! !n ! !n !~ (n ! !n ! (n ! (  ! (  !~ (  ! ( 'k7address ! !n ! !n ! (n ! (  ! ( 'k`7 addressKana ! !n ! !n ! (n ! (  ! ( 'k6telNo ! !n ! !n ! (n ! (  ! ( 'kX6areaCode ! !n ! !n ! (n ! (  ! ( 'k5personfaxNoemailmemo :Word֔f̂`FbNĂsĂBA@(k85o05 !l !z  !l (z  ! (: ! (k4o4 !t !z  !t (z  ! (: ! (kx4op48 !v !z  !v (z  ! (: ! (k4o4x !x !z  !x (z  ! (: ! (k3o3 !z !z  !z (z  ! (: ! (kX3oP3 !| !z  !| (z  ! (: ! (k2o28 ! !z  ! (z  ! (: ! (k2o2x ! !z  ! (z  ! (: ! (k82o02 ! !z  ! (z  ! (: ! (k1o1 !~ !z  !~ (z  ! (: ! (kx1op18 ! !z  ! (z  ! (: ! (k1o1x ! !z  ! (z  ! (: ! (k0o0 !n !z  !n (z  ! (: ! (kX0oP0 ! !z  ! (z  ! (: ! (k/o/8 ! !z  ! (z  ! (: ! (k/o/x ! !z  ! (z  ! (: ! (k8/o0/ ! !z  ! (z  ! (: ! (k.o. ! !z  ! (z  ! (: ! (kx.op.8 ! !z  ! (z  ! (: ! (k.o.x ! !z  ! (z  ! (: ! (k-o- ! !z  ! (z  ! (:( Me.CheckAreaCodeD.Visible = Truek8-o0- ! !z  ! (z  ! (: ! (k,o,8 ! !z  ! (z  ! (: ! (kx,op,x ! !z  ! (z  ! (: ! (k,o, ! !z  ! (z  ! (:% Me.CheckPerson.Visible = Truek+o+ ! !z  ! (z  ! (:$ Me.CheckEmail.Visible = Truek+o+8 ! !z  ! (z  ! (:$ Me.CheckFaxNo.Visible = Truek*o*x ! !z  ! (z  ! (:# Me.CheckMemo.Visible = Truek*o*].DƋl̖O̐Ƌl̖O͏ƍȂƋl̖OtKi̐ ! !n !t !d $ b  D%(fk0)Ƌl̑\Җ̐ ! !n !v !d $ b * D%(f !x !d $ b , D%(fkx($Ƌl̑\ҖtKi̐ ! !n !z !d $ b & D%(f !| !d $ b ( D%(fk'ƋlX֔ԍ̐ ! !n !~ !d $ b  D%(f ! !d $ b  D%(fk'ƋlZ̐ ! !n ! !d $ b  D%(fk&ƋlZtKi̐ ! !n ! !d $ b  D%(fk &Ƌl̓dbԍ̐ ! !n ! !d $ b . D%(fk%Ƌl̎s撬R[h̐ ! !n"݂ɂ͖Ƌls撬R[hȂk8%o0% r B@o%%Attribute VB_Name = "Ƌlo^"D Bas0{BBF1DCD9-EE32-4142-9A64-95CA57999FE8}{51A2127F-2971-4D51Jh3269BB5C97F5} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option vlic`it Pgk Sub UForm_Initialize()B @ rror GoTo ErrMe s Dim cBranch @As cls " ASetF= New myCollecA(_GiIntegerO D&.Get(i3%j> j@ 1 @9.CouNn@I Me@m boBoxC9.AddItem (jNext j$ListIndexi 8ockB Ba ck7g= &H E0AIgmyAr ray()$Mooo3 vX4 43sEnd IfSw#W ?"I.).ResulćwKan>a4t@Ki?xtsident11,`\Ґ_\2__[_\ aE /I? =ostalC8ode X֔ԍO3v/ Q~4.Atdds//%Z/ xta,,tg/xtTelNodbq PecmdSearchOg3@[o@" GA@Labels?.ŀegFF&CaS0f^f܂͂Ă܂BvDMEiPage1Boled = Fa@lse EHhMe.txtNameD.ValueLWLp\If cP.INI.ReadCID()`0 ThenJLabelResult.ForeColor.&HFF&-Caption+& "f[^xXɓo^Ă邩mF" B"7U8012WƂ#Ya܂Ynd( IfAERefreshBox etTagcmdToDoc.EnabBSearchBDWordYU pdateYComparSelect.Visi3@DteCheckCExit Sub ErrMes:CFC@.Number <> ͱ(Msg  & vbCrLf &BDescriªgiPri6v>! cCSW_Click()& OnGoTo*Dim@ As clsPaperSet= New my@entAddDsStrinC= B 'Ƌl̏Z|U(- `)"" A@ Not IsNull()@Area Code.Insert= ЎC6c\4"lA-E"n˦ f܂+yFR )$0 D0 ]_#<@JB _rr__C_$_ ___Ccl_?_Gl?_ss?_B`?_=a?_p//x o//XB5S/׈/deM/__ pt!V/______qB__U_i/!Unload0W^bmdFromDB3b`mC@TGetData5rV oCA./s/s/s/sE wubr Fun&cj (O2wal ByP myIDmLong)@Boolea On.?G3 wFylDB.B(True&)хjmybasA`.+۪r%4Q%S myBSIntegS=.@u44CountAll񘁺#qmyk㊟t,  v,`3,0 ID l k Љ=^'DB‚DP @VKSPLooϠ/'ق& ͂܂υC0/rB0%Va u`Regis6t ?% A'(> 1C"&I}_ \1F_W @u v{㓂NbN00 #.`T 7?G/ }=~364 6 Set myCollection =pAll.Item(1) Me.txtIDD.Valued ^"ID" dComboBoxTypeD.ListInde:x=t$ ?rNa6m:tn 6Ka`hlcmdSearchD.EnabledTru0 4`etTagcUpdateHB) pn DeleteCheck`SGetDataFromDB ErrMes:sSP.Number 00-sg H& vbCrLf &RDescri%#pGPrivA Sub DW AndD(q On,GoToϡ # W pw]D.Back79C0F FTF/FF/W.Visi'tI0s:nEEpxooWe.3%o%q@ OvP1[>M T?'?'O_u & *%1V(2 aп( ()ePs)q%**!?_*{?U5& ?e_+ qoae+/:m ,xtPresidentNameKana2W.Value Then Me.tD.BackColor = &HC0F#vW#;`Checki siblevTruer6D.V6End If#If ~ostalCode1W.Ena=d> <<>'< W"CL dX VG2G  * GמAdds T_)#c LFqa#w rw (`H) )essAw d*$t%+ + TelNo*VBA.Replace(C,+, "-"") @t@nh5D '(߀3W ?AD++Area?,cV \Vt*}+@*A*2@ OT|xit Sub ErrMes:ShP.Number'0|MsgBox H& vbCrLf &RDescript|io40P@rivateq Delete2d() On0GxoToc # 5Type)'Falst%oҜeڔYrP kDNP74k.9}?k4&koYT__j`6$>MOBPerson(=EFaxNo/)Email/)MemO EBC SBBBBBqCBResetTagBBe.ComTelNoPerson Email Mem(Exit Sub ErrMes:#BIf .Number <> 0 ThenAsgBox & vbCrLf & DescriptioD End8 If@Pr ivate! RefVh() Onor Go|To(C CD.BackCol@ = &HE0AA)1 ComboTypeW.Enabled False5e.w E@D805 B(ā3'F h& '!UWU/ 1c2mC_l_$OD0J2,!fa #Y !?-ϭ-A -2?.+.` >rn'?/$ tPȿEE --W?(?,D _+a$CW?tTsgR E0U}Y#o_&H 6#  x _ _ w ? ? xt Ov D   4 cmdSearch ELA AOTruer?4ClDataBase__ 'DB^uc0>)D.ListI0ndex47'͋PɂȂ8 3BÚVaxlue`2D..w _^_^Anme?O._$?OA/#:/.D6 AxFaxʽ/5/5/5 !9M/5/5/5/5&5heck4ForReg@0ʘ!o_ KDOCVisiP3G X57O 6_1bU 5 End If If Me.txtPresidentName1W.Enabled = True ThenădCheck hW.Visihfy\alY`,Kana28,RostalCod'K#HAddsF p !R?"DD_ $TelNoE ]E DreaAf gG Z"wcmdToDB|pxit Sub ErrMes:`.Number <> 0̓sgBox & vbCrLf &Descript|io BP@rivate Compare_Click() AOn or GxoToAWpAndD#Word"""!""Upd`$"9 7BeforeRegistFalsMEf@3Dim cP As clsPaper#,Set= NewLcP.NGet(DB(!)H"",HmyDataba=@ L E#"!amyBIDAInteg%H (MLongPCollecaZ ca#myh$With 7) .IDD.Va|, "ILD"o_bopTypeGtawnameuY{Wp/ion2ot2w~Q 1" dmeaSoberson} AHA9F$qa k_Rf(qtxFaxNofEmatileMem(mtaM63Ic5QI6LInserth@Bŗ<,;ID)U1<2U!V@myIl1LabelResult.Cat <$"o^0BT Ce n,2_? 3??.? n? @& 0 XV? ̰ (|mw#)FPpp = &H8012A'TextT1㏑ lINI.Read1@^BY(""YcYP_w K TSaveS@ O:OOOp Fu&no()pBoolea O_stω=  mL@Index0"핀ʂw$Ă0+u $%oxsuOr2 } 1\0 p^:= .G Mc\B=̎D=R  BNameD.SetFocus Exit Fu@nctionhElse Me.txtNValue = Trim(StrConv(@, vbWide))nd DIfIf 7K anaD.\""p The/sgBox(c\ & "̎tKi͂`B" _;&!QCrLf#s܂H"_YesNHo, 5")vbNoU1m  9`Katak^iECOFlPres@wn„1ml\AnlkkjM5kHjKiRWAkMc2g%2Sd2hi hj" iY i 5#a%/q5ieju?k'+?989 ?m ,$miԿmL)0>!9q3o e@ÿ؟)b6ٿق?i2sLeTm Y1A9_99 z9PostalCodeo9< !Nl̗X֔ԍU/Pvb5OB _/7t6NarrowوNot IsNumericr) M;'a ??qYcP Len {) <> 3   u3-4pv d& x   bxXp Q,?2_ Y _ _ blBV2H ,u,q1, M,#?-E?-ĂW[-cPA| ?.de%2.4?.2OI.߿AQPAddPsϹ6ȌZ/c<,/z Exit Function ElseH4Me.txtAddressD.Value = Trim(StrConv(F, vbWide))nd If If 4Kana\"" The.sgBox(c\ & "̏ZtKi͂B" _rG&CrLBf!s܀H"YYesNo, 3")~vbNo Q-iSetFocusAE ĈlKat akTelNobdbaa`1_?b F]IA\Naprrow[Not IsNumeric(Rep0lace "-@""))Ë`͐nCǓƋRWD?'sVdXc wreaCo deK|sR[,hK"6 {vb||+ LAf%%|N%Q|MMkKA 1L_K1%K CheckBeforeRegistudL ErrMe\s:RS.`qber <> 0,mMlǡDescrip_bPrivate Sub cmdToDB_Clic k(Dim b As Boo(lea$ bFaD'typ$ck zTWh@ 0C0ombo@aD.L%Index=W  BackColor&H8052//Pxto__\1O)000[,_],+M/,J/1!O/ @GQo ostal!o:4 T>'?_?q2tPPo&8_] ߿82X/&aCAsd<.mO O% SearchD.Enabled 7Ƴ End If'addressKanaIf Me.CheckAlW.Value = Tr Then\^txtZDZ4Hq ?[c(a8berFa80!pidentP?t1 2Z2_me1?K3  _7A7882W _Xea!Oe4P>> x+-26p00?n postal/yP4Di?_?I//WtP _[/=nT$yp0]mO N/K=6ocq߿Hc2=FA!-߿D?'u1/ ^3 s'߿ݤ[sa+߿܁ U"f߿߿.߿@ Կ____p^ _Chpange8Tdag0""_a.s1yҲ.cmdToDoc.Enabled = True Me.CheckTypeW.Visi End If  Sub Private  txtNameKanaW_Change()Z1If ` ".Tag^"" Then &1 &4Presidenl1k n4q &5 292W9 9m69At ; < <^$ ?,hNarrow9q4؟G,lZA͟M!S }M? oZ74O7O7O7J7   ߯E _ Edbo.8 2vE 4%&gs撬R[h_&U&$ 'sɂ~Ȃ3G  Sele ctI.Show End Sub__SRP_36 ԭ__SRP_37OXO modCheckCallSign", mf__SRP_38g  3Q`6 3 R`6 39R`6 3iR`Q6 3R`6 3R`6 3S`6 3)S`6 3IS`6 3qS`6 3S`Q6I4 S 0IS`I6 0I7`6I4  T 0I)T.` 6 0IIT`6 0IaT`6 0IT-`Q 6 0IT `Q6 0IT `6I4 T 0IU`6I4 !UI4 QU 3U%`Q 6I4 U  3UrU 7/y >)9bLo 9iQi555  !*) i)-qHQ i  ! i ))")Uq""M&&AI&ua YiA/(i## $ 99 yq!y Ai$ъ$$5%Ya&1&C!'&'Q'y( ())(16))*i)**!Q+ ,,,Y--p 0TMAMiMML4I3M8I3M<I3N@I3!NDI3ANHI3aNLI3NPI3NTI3NX 3O"` 6\ 39O`6` 3iO ` 6d 3O(` 6h 3O&` 6l 3O'` 6p 33#` 6 t0I` 6xI4  P|I3)PI3QPI4 P44` 6Y22)QQQ`Q6)QyQ`Q6 3Q 3Q 3U`6I4 VI4 AVI4 yV I4 V$I4 V(I4 V, 3W$` 60I4 AW4 3aW!`Q 68I4 W< 3W)`Q 6@ 3W+` 6DI4  XH 3)X*` 6LI4 IXPI3iXT 3X,` 6XI3X\I3X`I3YdI3IYhI3yYl)QYpI3YtI3YxI3)Z|I3IZI3iZ/W66W6666666W6666_6666_6666_6666_6666_666 6_ 6 6 6 6_ 6 6 6 6_ 6 6 6 6_ 6 6j KH x tlrx Qltjdt $ldc`8' @jMP@t @l l l6@ jd`K!krD@l l l5@l l ll l 0lv:Pl:0l:l: l@ Z@6 Yd5@v:P l:0 l: l:l@ Z@6 Yd5@%l l l dl (@l l Xl5@l l tlrlckrlkrl rdcrlckrlkrl rd5lM N' '@l l l6@ (@l l l5@l l dl (@l l Xl5@l l tlrlckrlkrl rdrlckrlkrl rd5lM N' '@l l l6@ (@l l l5@ Fp&:PN@@l l l5@l l ll l ll l ll l ll l lCdl+ l | 4ld)lBqCdl+ l | 4ld)l (@l l l5@qCdl+ l | 4ld)l (@l l l5@qCdl+ l | 4ld)lq (@l l l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+  l l>F@  )l5@Fl! l l>F@  )l5@Hl+" l l>F@  )l5@l l ll l 8#l,@l l @:P]3l5@> l l $l%l l @$ll l &lx 8@l l @  )l5@'dl @l 'ldl l l $lL@l l @:P(   @$/)l6@ v l l $lL@l l @:P)   @$/)l6@ **l l 8#ll l 8#ll Tl 8#ll ,l 8#ll Pl 8#ll l 8#ll l l*$d +ll ,ldl l''' d +ll ,ld#-*# + ,,l*F@ .2)l6@  P 6tx: l@ K! x%`p p ``1tp5`lt=tMP@ /,Lltpx p 0lL0/Lp*'''<12*F` .6`<*'''<13*F` .6`<>Lltpx p 0>LF`  )p5`$ +pp ,lpl'''< +pp ,l#L-*# + ,,l*F` .2L)p6`< ,xt0 Lp`<K! x%`p p ``1tp5`lt=tMP@ /,Lltpx p 0lL0/Lp*'''<12*F` .6`<*'''<13*F` .6`<>Lltpx p 0>LF` $ )p5`$ +pp ,lpl'''< +pp ,l#L-*# + ,,l*F` .2L)p6`< ,xt0 Lp`<Plx4$5 6x$ xK'z*kz"$p +tt ,lptl'''0p +tt ,lp#l-*#`d +hh ,,ld*FP .2l`d)th6P0$ 0 ld`thP0X KW pz t.h+npt pp $7lh=/hpo'h+npt pp $7>h8py/$nv8pt pp (7knpfp `QPp p H dPhkfLt pL x7QH`/h)pL5P kdp p $pLPp p P:49$hL L @$/h)pL6P$**/ kd{p p $pbPp p P:4:$:-:;hL L @$/h)pL6P$?Pp p PhL L /h)pL5Pp p p*/ kd D#$(P` $D6P$8$:4<NPPD $p p p6P$8$:4=NPPD $p p p6P$8$:4>NPPD $p p p6P$8$:4?NPPD $p p p6P$J$:4@NPPD $ A p p p6P$J$:4@NPPD $ B p p p6P$8$:4CNPPD $p p p6P$8$:4DNPPD $p p p6P$8$:4ENPPD $p p p6P$8$:4FNPPD $p p p6P$8$:4GNPPD $p p p6P$8$:4HNPPD $p p p6P$+$:4INPPD $ /6P$^$:4INPPD J$h KFp p /hp6P$*&:4NPPp p p5P8$:4LNPPD $p $p p6P$8$:4MNPPD $p Xp p6P$+$:4NNPPD $ /6P$(^$:4NNPPD J$h KFp \p /hp6P$P&:4NPPp \p p5P8$:4ONPPD $p `p p6P$8$:4PNPPD $p dp p6P$p p $pLPp p P:4Q$hL L @$/h)pL6P$npt @p 'pQPp p nPhRSLt @L 'kn/h)pL5P/npt @p 'p,Pp p P:4]@p5P p Tp 8#p*p Pp 8#pp p 8#p*pz/$ +pp ,lp l'''$ +pp ,l#h-*# +LL ,,l*FP .2h)pL6P$/ 0`tD4 hpLHP$8 KH *$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx x x$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx 0x x$vx x kvxZGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx 4x xGdx x dP` ` P@)x`6dPXx x 0xx x 0xx x xx 4x x$vx x kvxGdx x dP` ` P@)x`6dP5x x 0xx x 0xx x xx 8x xGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx 8x x$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx <x xGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx <x x$vx x kvx_Gdx x dP` ` P@)x`6dP]x x 0xx x 0xx x xx @x x$vx x kvx<Gdx x dP` ` P@)x`6dP:x x 0xx x 0xx x xx Dx x$vx x kvxf dx x P` ` Jd< K#4JP8 K#0=2<840)x`6dPd x x 0xx x 0xx x xx Hx x$vx x kvxC Gdx $x dP` ` P@)x`6dPA x $x 0xx x 0xx x xx Lx x$, +xx ,l,x l''@'P, +xx ,l,#<-*#48 +`` ,,l8*Fd .2<48)x`6dP@ $ 4 <840x`dP@0KFx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx 0x xx 4x xx 8x xx <x xx @x xx Dx xx Hx xx Lx xx hx xx lx xx px xx tx x$t +xx ,ltxl'''4t +xx ,lt#p-*#dh +ll ,,lh*FT .2pdh)xl6T4$ 0 phdxlT4 K4x x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx $x xx x xx Xx xx `x xx dx x$t +xx ,ltxl'''4t +xx ,lt#p-*#dh +ll ,,lh*FT .2pdh)xl6T4l$ 0 phdxlT4Kx x 0x$vx x kvxhx x 0xx x 0x$vx x kvxx x 0xx x 0x$vx x kvx2x x 0xQx x 0x$vx x kvxx x 0xx x 0x$vx x kvxx x 0xx x 0x$vx x kvxax x 0xx x 0x$vx x kvxx x 0xx x 0x$vx x kvx+x x 0xJx x 0x$vx x kvxx x 0xx x 0x$vx x kvxx x 0xx x 0x$vx x kvxZx x 0xyx x 0x$vx x kvxx x 0xx x 8#xx x 0xx x 8#x$p +xx ,lpxl'''0p +xx ,lp#l-*#`d +hh ,,ld*FP .2l`d)xh6P0$ 0 ld`xhP0hK~ (Xx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx $x x5Xx Tx 8#x&:hNXXx Xx x5X&:hNXXx \x x5X&:hNXXx `x x5X&:hNXXx dx x5X$T +xx ,lTxl'''4T +xx ,lT#P-*#DH +LL ,,lH*FX .2PDH)xL6X4$ 0 PHDxLX4\Kr$vx x kvxcx x xcTx x Tx5T$vx x kvxx x xcTx x Tx5T$vx x kvxx x xcTx x Tx5T$vx x kvx}x                         ! " # $ % ' ( ) b + : - . / 0 1 2 3 4 5 6 7 8 9 * ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] _ ~  d e f q h i j k l m n o p ^ r s u v w x y z { | } c  x xcTx x Tx5T$vx x kvxx x xcTx x Tx5T$vx x kvx9x x xcTx x Tx5T$vx x kvxx x xcTx x Tx5T$vx x kvxx x xcTx x Tx5T$vx x kvxSx x xcTx x Tx5Tx x 8#x$P +xx ,lPxl'''0P +xx ,lP#L-*#@D +HH ,,lD*FT .2L@D)xH6T0$ 0 LD@xHT00KE*x x 8#xx ,x 8#x$t +xx ,ltxl'''4t +xx ,lt#p-*#dh +ll ,,lh*FT .2pdh)xl6T4$ 0 phdxlT4 Kz*kz t.l+zpt pp $7ll=/lp'l+zpt pp $7>l8p$zv8pt pp (7kzpjp ` l`\BLp p '' :<<N,,L\ p6L, BLp p '' :<=N,,L\ p6L, BLp p '' :<>N,,L\ p6L, BLp p '' :@FdD YD48+>x 8 p/4)t86dD*dt t TdcT]3t5dh@t t l>@FdD YD48+>x 8 p/4)t86dDh@t t l>@FdD YD48+>x 8 p/4)t86dD*dt t TdcT]3t5dh@t t l>@FdD YD48+>x 8 p/4)t86dDh@t t l>@FdD YD48+>x 8 p/4)t86dD*dt t TdcT]3t5dh@t t l>@FdD YD48+>x 8 p/4)t86dDh@t t l>@FdD YD48+>x 8 p/4)t86dD*dt t TdcT]3t5d%h@t t l>@FdD YD48+> x 8 p/4)t86dD*dt t TdcT]3t5dh@t t l>@FdD YD48+>!x 8 p/4)t86dD*dt t TdcT]3t5dMh@t t l>@FdD YD48+>"x 8 p/4)t86dD*dt t TdcT]3t5dyH(x$@4t8dDHw$x$ t     \ `!4"X#p$,%&h'l(d)<*H+@,T-.g`$A6`$6`$6`$6`,A6`A #$6`$6`$6`$A6 `$6 `$6 `$ 6 ` $I6 `(6`#$6`$ 6`$I6` $6`$$6`($ 6`,$I6`0$6`4$6`8$ 6`<$I6`@$6`D$6`H$ 6`L$I6`P$6`T$6`X$ 6 `\$I 6!``$ 6"`d$ 6#`h$ 6$`l$I 6%`p$ 6&`t$ 6'`x$ 6(`|$I 6)`$ 6*`$ 6+`$ 6,`$I 6-`$ 6.`nrU 8P8`$9Yi )I00000(8`i,8`ir,P $*\Rffff*1P50dc2c74*\R5*#51*\R5*#5b*\R7*#22*\R7*#24*\R7*#26*\R7*#27*\R7*#21*\R7*#1b*\R7*#46*\R0*#19*\R0*#13*\R5*#47*\R5*#45*\R5*#43*\R0*#e*\R5*#21*\R5*#2*\R5*#0*\R5*#42*\R5*#3f*\R5*#39*\R5*#38*\R5*#37*\R5*#3e*\R5*#3d*\R0*#9*\R0*#f*\R0*#4*\R0*#f*\R0*#14  8 "X B\2   4+@H P Xhp  @ D  D  .hnbRxME| @)))L)L! > LLLLLLLLPLLLLP<(f n m X  +F `X k@   iH `iJ siL r iN iP `@iR iT $  iV (@iX ,`\ @`^  `` `\ e % m `%`r x`x `t v`v tH`ph`x l`z h | dH ~ `0`z^`V\h    + `k(22i 8 p`@% l  % h%` d` ``N\8+b `k0%%Ai Pi " p"% l % hH%` d` 0`` p\0+Z `kX fi  p% l % hp %` d` ` D P%8PP 8h  p  `F z  `H t`H t`H t`H t`H t`H t Z (b @ d @0 T @H D @` 4 @x $ @  @H  @( @   @  @ &~ , @@ @@X @@ @@ @ @ @` @ Z  F@ X F@0 T @P @@ @x < @8 @ 6  g@ 4  g@ 2  j@P 0 0  j@  zh {@x .  P }@ ,  x } x @ *  @ (  @( & @ @p $ P ( ` (  @ "  p @      0x0` t` xP` t ` t ` t ` t` t Hhp p8 0(H@X @H @D @4 @$ @H ` @O H@ @ @ @  @ @ @8 ` t@h ` t@ ` t` t @ H%@ `b x H` t0p0(@`X ` t P0pHX@xH @D @4 @$ @ ` t@O ` t@H X@` @@x @  ` t@ (@ @  `` t@8 @ `Z zxP` tp` t0( @(\ @@L `@H @X8 @( @$ @ O p @ @ 0@ @ @  @p @ @ @ ( @ xPH0pPhH( 1L (8 @ P X$ h B83   (8 HP,X  x " & " &@ H P X` h px    p$ DD Vgp J :     08Ppx8 "  8 @ ,X      $@   0&  0 $,G8  h p x           $@ 0 ,G8 h  p         8    0 8 8X x    "   ,  ( @  X  $@h   0&   $,G    (08@ H X hx $@,G    (0 8@ +H hp x    & *  0 >H  <   < H >`  "  < 0 <H &  >  <  &`  <  > 8 "H p <  < &  H >`  < &   <8 x >   B B0 x Z  6 4@ x 6      $c0 8B @ H "Px     *&$   288Qp . > * &H p ,x2`  ,2`0 8 @P X` x      $c B   " 0 @ P ` p*&$8Q .  >P  *      08@ H $Pc`x B   "        * &$8 ` 8Qx  "     ! !! ! $ !c0!H! P! `! ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/݃y[ webmaster@hyperdyne.co.jpX( "',0["'F H $Z  )Excelt@CɃV[g‚܂BA@( B@zk]` H $Z '\ 0]x \ ^ ]:V[gɁuZK(20040815)v̂悤ɔpu()v܂܂>u'ZK(20040815)'$vƁu'viVONH|e[VjtŁB擾 >܂,Excel97ł̓V[gɔp()܂܂ƐFłȂ(Excel97,2000̃ubNExcel8.0Őݒ肷t] \ \ B H \$b $ \+^   \$^   %  %CSMo^ & %P \$^ '` k \ (n].d nMicrosoft.Jet.OLEDB.4.0 d (h <lƕ񂪍݂ĂExcelf[^̏ꍇu;IMEX=1vg$Excel 8.0;IMEX=1;Extended Properties d ,j  H d B@].l (n d l /p ] ]8 T , &$~'͐ Dim Mes As String Dim MesGitekiD As String Dim GitekiCheckD As Integer]P Dim MesNinsyoD As StringĂ Dim NinsyoCheckD As Integer]h'J 'L 'N 't 'P 'R 'v ]]]]]]8]P SQL쐬 \ h''x   SELECT * FROM [ ` ]  WHERE <=  \$ AND ܂ >=  \$ AND NOT LIKE '%Ԕ[%''r r l B@ty l !  J ʕu \$v܂B ,'J l !  e J ʕu \$v l ! ‚܂B ,'J l ! e ^^F l % !n$  ^^F l % !n pr ^^F l % !n'd'k ZK V  V , & V , &$~+| d|  V +| k` ` & x , &$~+~ d~  +~ kGitekiCheckD̃ftHgOK'N z | %GitekiCheckFromExcelD̃ftHgNG't V ~ z$|  V$~  L [ z$| $]'L d L  % [] d L A[ z$| $]'L kkOK't yhd`'t kP V z t  V ~ L [ V$~ $]'L d L A[ V$~ $]'L k V'N dp'N k`kX F X  X , & X , &$~+| d|  X +| k ` & z , &$~+~ d~  +~ kXNinsyoCheckD̃ftHgOK'R z | %NinsyoCheckFromExcelD̃ftHgNG'v V ~ z$|  V$~  P [ z$| $]'P dh P  % [] d0 P A[ z$| $]'P kkOK'v yd'v k V z v  V ~ P [ V$~ $]'P d0 P A[ V$~ $]'P k V'R d'R kkdُ킪܂BA@(zk l B@B \ ʕmF.Hide ʕmF.Show vbModeless$ ʕmF.Show vbModelesspt  If Mes = "" Then '8 ʕmF.LabelCallSignOK.ForeColor = 255 '6 ʕmF.LabelCallSignNG.ForeColor = 0 Else '6 ʕmF.LabelCallSignOK.ForeColor = 0 '8 ʕmF.LabelCallSignNG.ForeColor = 255 End If If GitekiCheckD = 0 Then '5 ʕmF.LabelGitekiDOK.ForeColor = 0 '5 ʕmF.LabelGitekiDNG.ForeColor = 0 ElseIf GitekiCheckD = 1 Then '7 ʕmF.LabelGitekiDOK.ForeColor = 255 '5 ʕmF.LabelGitekiDNG.ForeColor = 0 ElseIf GitekiCheckD = 2 Then '5 ʕmF.LabelGitekiDOK.ForeColor = 0 '7 ʕmF.LabelGitekiDNG.ForeColor = 255 End If If NinsyoCheckD = 0 Then '5 ʕmF.LabelNinsyoDOK.ForeColor = 0 '5 ʕmF.LabelNinsyoDNG.ForeColor = 0 ElseIf NinsyoCheckD = 1 Then '7 ʕmF.LabelNinsyoDOK.ForeColor = 255 '5 ʕmF.LabelNinsyoDNG.ForeColor = 0 ElseIf NinsyoCheckD = 2 Then '5 ʕmF.LabelNinsyoDOK.ForeColor = 0 '7 ʕmF.LabelNinsyoDNG.ForeColor = 255 End If< ʕmF.LabelGitekiDResult.Caption = MesGitekiD< ʕmF.LabelNinsyoDResult.Caption = MesNinsyoD If Mes <> "" ThenT ʕmF.Result.Value = ʕmF.Result.Value & vbCrLf & Mes End If/ If ʕmF.Result.Value <> "" Then. ʕmF.Result.Visible = True Else/ ʕmF.Result.Visible = False End If d B@B.l .d 'F z" 0!2 0!2 0!4A@(ki"Excel̃V[gɎ擾' ]DH]Dh]D]D]D] ' ! % .  Excel 8.0; % . ! +If (Tbl.Attributes And dbSystemObject) Then !$ $ !$ $' (O{bNXɕ\͈͖ 7[NV[gɂ͎IɃV[ǧ $ t̂  ' (V[g擾ꍇ Debug.Print Tbl.Name'N ! % $' ! ! % %'Nd( ! % $ ! ! % %'Nkk  N' d , N' kkx B@B.zH"@ 0!2 0!2 0!4A@(ki"Excel̃V[gɎ擾]Dp]D]D]D]D] ' ! % .  Excel 8.0; % . ! !$ $ !$ $' (O{bNXɕ\͈͖ 7[NV[gɂ͎IɃV[ǧ $ t̂ List1.AddItem Tbl.Name  ' (V[g擾ꍇ  !' kk B@B. 'b z" 0!2 0!2 0!4A@(kix"hExcel̃V[gɎ擾]Dx]D]D]D]D' ' ! % .  Excel 8.0; % . ! !$ $ !$ $'  ' (V[g擾k  B@B. 'Z z" 0!2 0!2 0!4A@(kiAttribute VB_Name = "modCheckCallSign" ' ЃnCpP[_dCopyright (c) HyperDyne Inc. All 8reserved.fhttp://www.h0d0.co.jp/webmaster@  Option Explicit Pub Func Digital( _  ByVal myExcelFile As "Sng,Re f Mes GitekiDE1Ninsyo#iב%LN9 %AG);Booleanbarror GoTo Err4AZ,$aFalseIf GetbSheetCount(Hg)@ 0 TheMsgBox "! t@@ ɃVg‚܂BExitFCEnd IfqCDim@$=I@ntegermy=0 ArraÞVarian'ReB)CSMBCC'BɁuZK(20040815)v̂ɔpDu(!@%u')'$ viVONH|e.Vjt擾&@ ,b6970ł͇A()F ,,0̃ubN͢8.0ŐݒcA*i$7F Vi#Ko*=)1my0iPTrXim(UBCANumV, i)6 \VBA.Ina`5(1, @C0onv(i, vbNakw)AUp@Case" @o^"Tex gmpare) <> ffF=@iaN  ic)cnn)ADODB.necSet = New s.Provider@0"Microsoft.J@et.OLE 4.0dv'lƕ@ CĐ>fO^̏ꍇu;IMEX=1@UgA`'ties(tended n";@ H;dOpen&bC "rec"Recordse{""S.A)|ve*$ QLGing#gHA = S@, ",$$'$a]yceg|pa7l8 Frombi^ GJ = 0XD/( aX  myR`esultmy No6onOgyRC1BOX~('6B_ j1N k^' SQLL# \UBPdWhWGq?lCC1SELECT * FROM [" &@AU& "] <" 1P W HERE 0 n<b (eAND r >  NOT LIKE '%Ԕ[%'4%@G.KV , , adQKey JLockmisticCmdAewlcKRf R=R` ʕxu)@ZvbClrLA E > 1l5p Q}1 M `bo [o @(to Not IsNull(1Fieldh^^F").zu|A?9A~""!)@= _Yq Q)4%B 1Kr+'8D ?pF8jvb¨p'Kwp5RDpB Aj0XIq$yg$x  `  myArrayFromExcel() = Split(myGitekiNot, ",", , vbTextCompare) Else*J@ReDim v0D.(myResultxnd If'CheckD̃ftHgOK71 For j 0 To UBoundBOXhD ING8KB2QkQ|T)AIfi@4(jAdk) ThenG Mes0D9$"" K [" & Trim [ŀ&)@"]"!@>VBA.R@ight$(G , 4A@"[]" A@Ţ4?5c"A$J@& "A=D Efae 'OK/5X0lxit Y )UgN kj`J6Xaxel{xGn+2Lk)n2 [7`74A5a0Dl[qk'FK@JmyNinsyoD <> ;InStr(1, ]||a m\a0_aPՂk?f/> 0! Vc+`//SQ *O{4r s'r_1]ש oNW; h  ?XJ_ P0&A-1&R [] ]_ )O t dJ(`"gO3??'Mb8,6E 3+rZOs0el3P?Next k6insyoCheckD = 2%Else";1; _MsgBox "ُ킪B Exit Functi on?1rec.XClodi  'ʕmF.Hidy Show vbModeless.If Mes"" TheǀV0>'"LabelCallSignOK.ForeCol$orl55'ҕ&NG 0c&h&Em8 &2F8Eu'SGitekiƮ0U.D.gT+1qG$b-l+2+%hV_Cp7CN?Cfgc?CA.a)-?C߃ nj6@Y ?C?C+C#D?CěTResult.CapɠD?D@'a<> Valu^e &piCrLfp S/)_ `-/$isiblq TrurcFa…] 4cnnzSet  |@Nothin~g{amarDigital0s L Err@8: sP.Number `CO1H& Descri#5  wPrivate GetSheetNameAll(By s!filen` As Str )q On pGoToR S'̃V[gɎ擾l!"ԖDim( WS DAO.WorkspacQDB^DatabaA8TblV Ta$DeAxlF?0C nC0ountc0LoE!s1= '$= DB@Engine sX(0)0=.POpen (,)@ueU" 80.0;"4 Each qIn 8DB. # +'((.AtbutPA$dbSystemObject)y@Right$Cq, 1)p0"@$" Or 2'թq'O{bNXɕ\@͈͖00W b'Nv'ɂ͎@I6 $ t̂[= X+ 12's,0ꍇOeDebug.@7#;s;VBA.?rMi"d3, ALenF) - 2D!#Tu mkm)21yY?S0 oDdD) _OPO*X0/Qo`& ",@49""#!S:H1C@':ieerre<n MsgBox Err.Number &`DescriptioEnd @If $Func6Private " GetExcelSheetNameByum(ByVal s2filen As String,  myInte0ger)"~Onor GoTo Mes'ỹV[g@Ɏ擾Dim WS~>DAO.Work spaceDBDatabas1Tbl%TableDe 7xlFv enCountLongBm+=Set u= pDBEnginets(0) @;=@ .Open9(G, T(rueE"Y 8P.0;"FdEach ADIn DB.B@g7 Right$( .AD, 1) = "$" Or2'" The'O{bNXɕ\͖C9 'Nɂ͎ Ǐ $ tLList1.AddItemOA=3 Dv= +$ 1E! 'A鏈ꍇ If CAAI=#E Next`78Clo\HCNothtc|9ExitFuv:wH<> 0 >BpۓDaBҭFߍD|SZ:GHY $W/  ,( Xh (x "  "     ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/8 webmaster@hyperdyne.co.jpX !( !( ! ( !(o@]]]]] ! !n      !!n J L N P R ! !n !!n !!n$F fW^@mFɎs܂BA@(|kkʕmFHideB@B B@j \&ʕmFvbModelessłJ  B@.S J ssԬ ! (  ! ( dH ! ( Ԭ ! ( k N m ! (  ! ( N eԬ ! (  ! ( N e ! ( Ԭ ! ( kH R .L ! (  ! ( R eԬ ! (  ! ( R e  ! ( Ԭ ! ( k L ! (2 P ! (2 J .L !f!n , J  !f(n k  !f!n  !f(.Ld !f(r k%ʕmFʂvbModalŊJȂ B@j  B@!ʕmFvbModalŊJȂ  B@ oH' A@r‚܂o8' A@r‚܂oAttribute VB_Name = "ʕmF" Bas0{C2EA5E0A-BDE7-4BE0-B611-41DBEF8E0219}{A772rU~| 98;8=I&8aYq=فѰ= >a>>>?q|i9??? @I@@@A)AIAAAa!99AABeqe&&CByBBB1CYCCCC) D l CtK pzlt R+'''4:dNTT 6T4 lt pk kc\1@klt FT4 46T4@Tql4 -4 :$N( (]@6 T4P@T`15T d    3:D %:d %   ( )lt P l (,:dNTT$4 4x5T 1 1 'pv 1 ' ptx5IcX CpClpl*#T*#P*FT@x4:D@x:`12TP6T4$'D%lFd%  hl_D*FT@x4:D:$`'6 T4x  hlg*FT@x4:D hli$::@`'6T4x  hlH T:d% T (  4!T "48:D%< T< ( 8 4!4:$]<')<86T4:T:d% T (  4!T`1p)5T#Cp (=(08:dNTT(4 46 Yd6T4Yd(ld;lp$8:dNTTll4 46 Y`6T4`lpl`; '^ldc4&pv\l`c0k^ldk\l`0 0@:D%k^ld.@Md@T -T4:$&`'6T4& '#T(0lp#0/TG)*F4k^ld.@Md@T -T:D&`'64Tpvpv \d0 ^d4 kv\l`c, 0@:D%k\l`.@Md@T -T4:$&`'6T4G)*F4k\l`.@Md@T -T:D&`'64T \d,F ' ' ,=C ,m8:dNTT,4 46 Yd6T4d,ld;lp$8:dNTTlh4 46 Y`6T4 `lpl`; ' ^ldc(c pt\l`c$Y k^ldk\l`0D 0 @:D%k^ld.@Md@T -T4:$&`'6T43 & '#T(0lp#0/T 1 G)*F4k^ld.@Md@T -T:D&`'64TptY M pt \d$V ^d(: kt5 \l`c ( 0 @:D%k\l`.@Md@T -T4:$&`'6T4 G)*F4k\l`.@Md@T -T:D&`'64T \d ' A  ' x +'''4:d*NTT 6T4   dX[  < c=+ c=,pz$ - .l= c'''4 - .l#PT - ,.lT*FT 2PT)6T4(\D `H dp`hltxDTP<8T4|l CtKiCxltCd*D(H%X/$0 <1X 02QDpX$X:$3%c4%cH%ldp X4QXlXl D5QX[ h6RQh 86h 86l '#70l '# 802 Cl`q`C\,h 86l '#802`h 86h 86>F 9(H>F :`1\6 ,h 86l '#702 `h 86h 86>F 9(H>F :`1\6  lx0)l\CxAlx*#l\*1x/ h6 l X5 c=5l$ -XX .lXc''' -XX .l# -DD ,.l*F 2)XD6 @H0 x htp\ld<  XD8l CtK0ltCd*D(H%X/$0 <1X 02QDpX$X:$3%c4%cH%ldp X4QXlXl D5QX[ h6Qh 86h 86l '#70l '# 802 l`q` kl`h 86>1\ h6 l X5 c=5ll\Cx$ -XX .lXc''' -BFE9-9D8E-4FFA-97D3-(5570F63B9} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://www.hd.co.jp/webmaster@ Option vlicit Pgk Sub UForm_Initializ(e()A Me.txtGitekiNoD2.VisiJ\G Syonin] CallSign DExcelFile End0SK3_C9k1Dim Mes As S@ng 7DQCheckNinsyoROCIf$W Dalue <> "" The>nC C@  igital(gI, _ Rs=iN1#H4 M) |xL'b sgBox "fW ^@Dsq`BeE8xitL& NIf/+Oe#'ɦHidei.ArvbModelessBJo.Shown gLs"I' O s#߿ Q1 2_%!;^_$ qmD )>0 N 7  "o+= ?4 3g= ? ? _DQD OF !x 1OAc| /Result.Cas=чϤNesg( n V_r@+ &@dCrLf & P / / .% s+c? N y xqal`tȂNGywval<__FzaA Imy) }Unload'‚LZoo ;qx-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Mic t x7@z6(CF ;g SF:(VJK>xVJK>7@z6(MEP@SPSSS>"  LL" LLL"LLLLPLL "" "7myBID8IntegerA=2C=( CAd*d@sASngKanaM'\ҁiƋlj̏Z̊mFCC\7Value(pKAGAMI, c)1sult <> ""N1 Ί )myK=EInct`' D' JMsg Box c & "D A ĂB AeC~E(D6"3?)tKi/ #H Q-Delete"g$, g#))#A $%% & (t4 3 5܂x*5  J'@㗝l^'ꍇ* }VWc ?ayd2. &G7?a=@:a?a4A 0t/E!E5&0+0 00K %(5 0CR0f,+O+O+_&[y&\p&# +dᚏ+#"/\+p u +O\P+A++p!+0( +++Onu ,,Mc 'ݔ,u"/V"#"u F+㌿ ,,114R`h?;ZVBfAce{,0 "-"@0, , vbText335$!"E}/ .PZ_?T?+W SO+N++9 %PI0 :SSP.NumberA(0 H&0CrLfKQDescrib# 0@bPFunc, _ByuA%)of}Insert = "" Dim cP As clsPaper\Set\ = New hIf2.Config`.ReadTrue ThenmyLoca0tion>El$se$Fa Exit FuncCAa:OF?M ?Mag"M=L6M!JC|OcGTotalIntdegEmyhHReCoun'in Array()ISRe - 1, 1 c For i`0 ToXC``p i, 0) .]>G]A1@1õ.MoveNex! iž'V̢TVga#In'(#(1), vbTCompare) <> '*ޡ 0i ÏoEaO ErrMes: .NumberQMsgBox H& CrLfPVQDescrip/w xPub(licy Se lect(dBy?pP%*+ On `)Go ) U(;= P掟!"3~` TrimoT$#C=6n]?4N p' ' ki矍2=Mqߔi f` & df}eff\1Q fReplaceA, "-"@"R'?1e +X?? YEfB1ߑ_+W+#n9>b^`_ Mp QIM"MMM3qM MKatakanaM:8MMMeSu.!C= 1+IiSelectKatakana_d.Fields("address").ValueNW ErrMes:\ .NumberW0 WMsgBox & vbCr Lf Descxrip7P ublic D@8teAC1( _9$By@1@b As i,NA) On.or GoTo@t @X"1!DimAclsPaperAcP New RConfigp.Rea True UmyLocBElso' FaA0myƸ E>8ƀXADOCset< '-)'@Ŏ擾f[^w͂ĂZs撬Rhőւł̕`A  ȉB 8o!)&= "SELECT]$q"O+a&@FROMD_?o&t"y(icyAj5AY+s{>+1Ey& ܂โB$In(1,A,`TextCompare)r" #3!, !vb "c/ʿʡg_e_ev_e_eVeKseT*ege :eoeA*A$eW0deeebf@eP/epeheS e$z6qg?ce pef'ctKi?d?d?dp '=7dddq]?e?e޲?e?en_S?e#AO OӛO?e 9eee"T7eW&1`ee1M Le/U?f ?f¶2fuf4fv/N=f_ˁͽx"g= gR!1&Hgg5g __SRP_2a __SRP_2b`gxclsClip x(__SRP_3a\ *#TX LL ,lX*F( 2\TX)lL6(/ 8 x`ptd4 \XTPlL(\l CtlCp-KOCx l$fhl h kfhTzez/ !\I6#*#X7*#Tlp #P*#L%*1`2XTPL$Hl`hl ph 0QH\hf\ P(kf@H'''8lt*#X9*#Tlp*#P:*F8 2XTP68/YltF8H:(0%h\ T(h (*H 4+8(]3)hH68H'''8lt*#X;*#Tlp*#P<*F8 2XTP68/Z8H:(0%h\ T(h (*H 4+8Xlt 1x/X)hH58/$ hh lhl''' hh l#X *#PT HH ,lT*F8 2XPT)hH68/<$x\lpt`4 XTPLhH8\l CtlCp-KOCx l$fhl h kfhTzez/ !\I=#*#X7*#Tlp #P*#L%*1`2XTPL$Hl`hl ph 0QH\hf\ P(kf@H'''>lt*#X9*#Tlp*#P:*F8 2XTP68/YltF8H:(5%h\ T(h (*H 4+8(]3)hH68H'''>lt*#X;*#Tlp*#P<*F8 2XTP68/Z8H:(5%h\ T(h (*H 4+8Xlt 1x/X)hH58/$ hh lhl''' hh l#X *#PT HH ,lT*F8 2XPT)hH68/ <$x\lpt`4 XTPLhH80t.lt+rx t l>l1\t"rU *@$*`,A*`!q0,*`%0,*`)00*` -q00A*` 1q0nxrU ;  9є     4@ P  0`/ 6  , 8 H  P X  4` ,    3    ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/!  webmaster@hyperdyne.co.jpX,http://www.tsware.jp/study/vol1/kaibo_15.htm ` !  @   @r   %\lstrcpy֐̂Q‚̈̌^͈ʓIɎĝƈقȂA"Any^"ł邱ƂɒӁB=f[^̓ǂݏɑΉ邽߂ɂAny^ɂKvB `]D#&eLXgf[^rU +? i)a/P/( -ua YI&i !)Iqɮ y&&A   I   y Ii!a !i  qYuA)u(@4)) *W****W*K x$rtx t krt>zJz'l+rtx pt $>lt$rvtx pt (krpjt6lt+rx t lll=/lt.lt+rx t l>l1dtlld >l1\ l\0H*'' ',  *FL 6L, .lt+r x t l>l1`t l`=ll\l`0 ll0/l*'' ', *FL 6L, *'' ', *FL 6L, 6lt+rx t lll=/ltE.lt+rx t l>l1dtlld >l1\ l\0*'' ', *FL 6L, .lt+rx t l>l1`t l`=Cll\l`0 ll0/lA*'' ',*FL 6L, 6lt+rx t lll=/lt.lt+rx t l>l1dtlld >l1\ l\0*'' ', *FL 6L, .lt+rx t l>l1`t l`=ll\l`0 ll0/l*'' ',*FL 6L, 6lt+rx t lll=/lt.lt+rx t l>l1dt.lt+rx t l>l1\t"l\ 1\ l\0u+'' ',:<NLL 6L, l\lld ll=/l+'' ',:<NLL 6L, +'' ',:<NLL 6L, $ tt ltl'' ', tt l#l *#  ,l*FL 2l)t6L, 4x\d`0 ltL,  l Ct-KCx p$jlp l kjlNz_z/ !`B"#*#\$*#X%*#Tlt &#P*#L'*1d2 \XTPL$Hldlp pl 0QH`lj` P(kj/:$H:4)%l` T(l (*H 4+$`1D)lH5$*,#*#\-*#XlD*#T.*1d2\XT !`$Hldlp pl 0QH`l` h(lp"%k"k"c~P$H:4/%l` T(l (*H 4+$`#\kl/\)lH5$P$H:40%l` T(l (*H 4+$`#\kl/\)lH5$ ` ( dk"c ,ltklklCx d /$ ll ll}l''' ll l#\ *#TX HH ,lX*F$ 2\TX)lH6$/ H.x`p tdD8 \XTPLlH$| l Ct-KuCx p$jlp l kjlNz_z/tMX@H 1H`1t5H !@I2#*#<3*#8lt #4*#0%*1D2<840$,lDlp pl 0Q,@lj@ P(kj/(@ h(l(1/:H,:X0%l@ T(l (*, 4+H`1x)l,5H/$( ll l(ll'''( ll l(#< *#48 ,, ,l8*FH 2<48)l,6H/ 8 x@ptD4 <840l,H` l Ct-KYCx p$jlp l kjlNz_z/ !`I4#*#\3*#Xlt #T*#P%*1d2\XTP$Lldlp pl 0QL`lj` P(kj/H` h(lH/:(L:85%l` T(l (*L 4+(`1x)lL5(/$H ll lHll'''H ll lH#ݏꍇ̒萔6Nbv{[heLXgf[^ǂݍރvV[W]Xp]]]]' Nbv{[hI[v $  @Nbv{[h̃f[^ǂݍŃubÑnh擾 $ ' $ 2O[oubNbNă|C^擾=(bNȂƁÃAvP[VɂăNbv{[h0삳ꂽꍇlngHwnd̒lɂȂĂ܂) $ ' $  $ ' &eLXgf[^󂯎p̕ϐ  $\' >O[oubN̓evCx[g̈ɃRs[ $ ' k&O[oubÑbN $ ' k`kX.Nbv{[hN[Y(Windowsɐ䂪%߂Ȃɂł葬₩ɍs)$ ' k "㑱NullĕԂlɃZbg f $ ' dG[A@(khi`4Nbv{[hɃeLXgf[^ރvV[W]H`]x]]]' Nbv{[hI[v$ Nbv{[hɂ$ :O[oɏޗ̈mۂẴnh擾  '   $ ' .O[obNẴ|C^擾 $ ' *ރeLXgO[oɃRs[ $ 0Nbv{[hɃubÑf[^ $ ' ' k&O[oubÑbN $ ' kkk.Nbv{[hN[Y(Windowsɐ䂪%߂Ȃɂł葬₩ɍs)$ ' k  GG[A@(jo Attribute VB_Name = "clsClip" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ Option vlicit ''tsw$study/vol1/kaibo_15.htm PB DT FuncOpenAboard Lib "u@-32" ( _  ByVal hwnd As LongA)#Clg`Empty 8G4etD9wFormato:Sx,ZMem/ C݀ocC8kernelrwFlags% dwByte_=EILock5he/U Un>l  Na Si ze3'lstrcpy֐̂Q‚a^͈ʓI`D `  OpenClipboard 8CloseClipboard \$EmptyClipboard HGetClipboardData lSetClipboardDataGlobalAllocGlobalLockGlobalUnlock4GlobalSizeT lstrcpyA < z)KoŠ^*=h8+3qh QJ*\fDYxh QJ*\fDY z)KoŠ^ME@PSS S>"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p + `p@ i + $p$ + HpH + @lp l i + p i 'i + @p i  p i  + p i (+ p i + ` p@  i + @p@  i i  %x`, `k8 44i ` `t` p` l` Xh` f ` `  `k( 00Ri ` x` t` p` (l` j @ HB%b C@@``p`h ` HxH \ @\ @0L @< @`, @(  f(@H @x @ @ @ `xx ` @d @` H (@ P @ @ @ 0 @ @8  @P @ @  @$0r,P $*\Rffff*1S50dc2c74*\R0*#14*\R0*#e*\R0*#f*\R0*#134  8 "X  2H HH H H$  H$8 HP Hh H b DH$H 8`B  <   8  FP  8 D 68 p   ,& D/0HP ,X   4 ,    (  (0%Xx+ "   :     (H ` @ Ɏg`ƈقȂA"Any^"ł@ɒӁB f ^̓ǂݏɑΉ߂8ɂ@Kv! lMAlias "EAlpSng1II2IConst CF_TEXTŒ= 1 'e@LXgDEꍇ̐萔ubࣃg~Text(BC'N@bv{*hq "`VWDim lngHȢ,[`BA` Lenbln@ErrflgABoolean 0 Thed ̙ŃuN@uh0擾= u][(!)0 Not IsNull(D) 'ODoAd ă|Q~R^ '(6p:PA` A!PPV 7P% '삳`>+ @,lP01ൂ܂&2VG.pq1P'P?E$:p̕0Pp 1= 1Y + 1,< 0_F'Pe0x0gs ̈悀ɃRs[O(h >1 8'y8$ EIf 4S5AU#t_R DN5Y(-Windowsɐ/߂An.Wɍs*/ {(R q .Jh 㑱J1B 6@ԂlZIgcLefdt$Inp*+vbChar) 8- 1S %MsgBox "GP[    lSub l0(kdRs }lYlehl3j%lLz ?lr`:lGMEM_MOVEABLE2lll|>l ίls,) A& Oq32( , ԱlngDataL@en) If Hwnd <> 0 Then D'O[obNẴ|C^擾uMem = GlobalLock( 0+ރeL0XgR[Ƀ`Rs[P;s`trcpyN?,v )$&'Nv{hɃũf Z%RetSetClipboardK(CF_TExXT,"blnErrflgAFalseEIfS 75Unl&G bfY(Windowsɐ䂪߂Ȃɂł葬ɍs]4Closej~(E'e MsgBox "G[" Sub II&ѐ9IA)q(@4)) :W:|-pf^q\?@ABCDEFGHIJKLMNOPRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ .r  %  ݒ擾ł܂łB  ̐ݒA@(gz0k(d ].Dɒ $  & (  D! %zk $zk &zk (zxkp *ڑf[^x[Xݒ肳Ă܂B f[^x[X̐ݒA@( B@ zkkk'z" 0!2 0!2 , 0!4A@(kix"X'*]8 !$\ ' $~]P .  $ " & (  % ɐݒۑł܂łB  ̐ݒA@(zkxdp]p.D $ " & (  D! %(WXgɐݒۑł܂łB WXg̐ݒA@(zkk'*z" 0!2 0!2 , 0!4A@(kxip"`' ] !$\ ' $~(myPath@ĈȂ] .  %  ݒ擾ł܂łB  ̐ݒA@(zkx ' dh](.DDatabase D! %' zk ' kz" 0!2 0!2 , 0!4A@(kiAttribute VB_Name = "clsConfig" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ y@z Dim c As New Option licit Pub Func!BRead}()ABoolean rror GoTo ErrMes b#myPathSng AD= ThisDocument.B & "\" & INI_FILE If Dir( ) <> ""YenA'C@ĉȂA A$r#ERmkSet r0M@ r.A:"<= B#Ms0gBox24"ݒ擾ł܂@B", vbInformaAd,KAaExitFp End IfEBؓ @cPAPa@wa `=eG` cP g.GetEEx !SYr, myDv@aU`\naPasswordaATIS>)%E&?Bmy# AGa? '  `h ,   %*u L"ڑf^xXMĂCM L"L‹a "AO{bNX.Show.b %?3BWi.jTrNu@b #:E@ .Numbter0 Q*&a@sCrLfxDescri"` `eSave _CByValg@&#(P]<ΜN[CL^-*=h8+3qz60OꭔYxz60OꭔYΜN[CL^-MEH @SS S""F6"L"" L"50dc2c74*\R0*#14*\R0*#1*\R0*#11$*\Rffff*1850dc2c74*\R1*#c6$*\Rffff*0x50dc2c744 {  8 "X  B  (0" P Xh D1  (3  ( 0 @H P `h p   N3    (08 @ $HlXx B  (" (( B @F$A"~#aXX1X V9 VXr.Q VCwFFFzeF Tf"Z23ۑZZ3 vZpI,ZZZ2uZ0Z+&?Zms"WXgmmoos j8BZ/@?;p@*@=@$U"H@@w@?#u9 OB _>n??? ?24up?? @3@4 ?hQ=???@)))!iXב_?_?a_?V?_Registry "e")//z" ad: 2įyy8pvby8A&A) yAvA)a/(@4)) ,W,,\Kpz(p$ 4lp*#l*1t2pl"tM\@ #p=/p XVltX kV1''$ *F4@ *FD 6D4$/  3V  | $kV/  v0/  v0,/  v0C/  v03''$:N44@:\NDD 6D4$$ v0/ pz/ $  lOl''$'4  l#p*#l  ,ll*FD 2pl)6D4$/ ^\0Xt0 plD4$Xl CtKYpz(l$ 4ll*#h*1p2lh"pMX@ #l=/l T(Rv vvltvlpT                      N W * ! " # $ % & ' ( )  + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K M [P Q [ S T U V W X Y Z L ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  kR1''  *F0@*F@ 6@0 /H 3Rv vvltv | (kRF3'' :N00@:XN@@ 6@0 /pz/$  ll'' '0  l#l*#h  ,lh*F@ 2lh)6@0 / 4Tpt0 lh@0 -K 1x(p$ 4lp*#l*1t2pl"tM\@ #p=/p XVltX kV1''$ *F4@ *FD 6D4$/ vCx %p | >p v0 / vCx/ $  ll''$'4  l#p*#l  ,ll*FD 2pl)6D4$/ 4xXt0 plD4$HrU ,@(,`#,A,`!#(,`%0nrU Pi.A).(@4)) `x2clsConst1 @$__SRP_16 __SRP_17i3BclsConst2h "X      (08@ HP h      ( H h     ЃnCp[_Car1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpDLLppubN萔DLLppubNϐ 'b '''''''h 0' Ȃ' ȈՖ CR' ړ ML' n FB' Œ FX(!?<] I"}]*=h8+3q2ʫ4A a4x2ʫ4A a4] I"}]RRRRR0RRHRME PSS SH HH2 H" 6"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}P  0 2 HH " P`%jbCjCjCj0CjXCjCjCjhCj Cj Cj HCj pCj Cj Cj Cj Cj 8Cj ` Cj  Cj  Cj4 dCj$ Cj& CjbCjxCjCjC%j0CjXCjCjhCj Cj Cj Cj HCj pCj Cj Cj Cj Cj 8 Cj ` Cj  Cj4 dCj$ Cj& CjbCjPCjxCjCH `jCj Cj( CjhCj x Cj Cj Cj Cj  Cj @ Cj h Cj Cj Cj Cj  Cj 0 Cj4 dCj$ Cj& CjbCj Cj CjX Cj Cj Cj CjhCj Cj H Cj p Cj Cj Cj Cj Cj 8Cj `Cj  Cj  Cj  Cj4 dCj$ (Cj& CjbCjCjCjCj(CjPCjxCjhCj Cj Cj Cj @Cj hCj Cj Cj Cj Cj 0 Cj X Cj  Cj4 dCj$ Cj& CjbCjHCjpCjCX jCjCj CjhCj pCj Cj Cj Cj Cj 8Cj `Cj Cj Cj  Cj  Cj ( Cj4 dCj$ xCj& C`p8  p0PHHx(H`H`@)r,P $*\Rffff*1<50dc2c74(*\Rffff*1<50dc2c74\0(*\Rffff*1<50dc2c74\1(*\Rffff*1<50dc2c74\2(*\Rffff*1<50dc2c74\34..  8 ' gъn FP' gыǁ@ MP' ړǁ@ MO' ďoǁ@ RP ' \ǁ@ LO ' ǁ@ EX ' A}`Aǁ@ ATd'4  H'$ '& Attribute VB_Name = "clsConst1" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ DLLppubN萔 σ Option licit Pub Enum ePa@. pKAGAMIY1 EndB (Strv Widn BNarr4ow@2wkana3S@4DCallSign5Lic@enceNo6Nothing@7'Buu 0&'Ȃ)CR1A 'ȈՖ$CRML2HړMLF B3nSFBX4ŒXP5gTFPM6ǁ@B MO7+OR8cďod RL9c\#b L E1C+PEA T1-'A}`AATHOUKATSU!00 '@""LL 256 Then CorrectDate = True Exit Function End If 'ṕuvSpuAv3 myDateString = Replace(myDateString, "", "A") 'ṕu,vSpuAv3 myDateString = Replace(myDateString, ",", "A") 's폜= myDateString = Replace(myDateString, "A" & vbCrLf, "A"); myDateString = Replace(myDateString, "A" & vbCr, "A"); myDateString = Replace(myDateString, "A" & vbLf, "A")6 myDateString = Replace(myDateString, vbCrLf, "A")4 myDateString = Replace(myDateString, vbCr, "A")4 myDateString = Replace(myDateString, vbLf, "A")) If Right(myDateString, 1) = "A" Then@ myDateString = Left(myDateString, Len(myDateString) - 1) End If? 'tH[ɓ͂ꂽuAvł‚ȂꂽƋ̓t΂炷< If InStr(1, myDateString, "A", vbTextCompare) <> 0 Then> myArray() = Split(myDateString, "A", , vbTextCompare) Else ReDim myArray(0)! myArray(0) = myDateString End If Dim i As Double For i = 0 To UBound(myArray)M 'pׂđ啶pɁAÕXy[X폜ApXy[X폜o myDate = StrConv(cP.Sani.ABCHenkan(cP.Sani.NumHenkan(Replace(Trim(myArray(i)), " ", ""))), vbUpperCase) 'u.vu/vɒu* myDate = Replace(myDate, ".", "/")) If CheckDate(myDate) = False Then% CorrectDateKAGAMI = False Exit Function End Ifg If InStr(1, myDate, "", vbTextCompare) <> 0 Or InStr(1, myDate, "H", vbTextCompare) <> 0 Then@ If InStr(1, myDate, "", vbTextCompare) <> 0 Then` myDate = Format(StrConv(Replace(Trim(myDate), "", "H"), vbNarrow), "ge.m.d") ElseB If InStr(1, myDate, "", vbTextCompare) <> 0 Thenb myDate = Format(StrConv(Replace(Trim(myDate), "", "H"), vbNarrow), "ge.m.d") End If End If= If InStr(1, myDate, "H", vbTextCompare) <> 0 ThenJ myDate = Format(StrConv(Trim(myDate), vbNarrow), "ge.m.d") End If End Ifg If InStr(1, myDate, "", vbTextCompare) <> 0 Or InStr(1, myDate, "S", vbTextCompare) <> 0 Then@ If InStr(1, myDate, "a", vbTextCompare) <> 0 Then` myDate = Format(StrConv(Replace(Trim(myDate), "a", "S"), vbNarrow), "ge.m.d") ElseB If InStr(1, myDate, "", vbTextCompare) <> 0 Thenb myDate = Format(StrConv(Replace(Trim(myDate), "", "S"), vbNarrow), "ge.m.d") End If End If= If InStr(1, myDate, "S", vbTextCompare) <> 0 ThenJ myDate = Format(StrConv(Trim(myDate), vbNarrow), "ge.m.d") End If End If myArray(i) = myDate Next Dim myStr As String For i = 0 To UBound(myArray) If myStr = "" Then myStr = myArray(i) Else- myStr = myStr & "A" & myArray(i) End If Next, cP.GetValue(pName, fName).Result = myStr CorrectDateKAGAMI = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function   " ݗp̓t`FbN$ALq̓t݂ɂ邽 $  'zk]8.D]X]pṕuvSpuAv A$R'ṕu,vSpuAv ,A$R's폜 A ,A$R' A A$R' A A$R'  ,A$R'  A$R'  A$R' $A   $'k:tH[ɓ͂ꂽuAvł‚ȂꂽƋ̓t΂炷 A & A &$~+dp +kH] \ Dpׂđ啶pɁAÕXy[X폜ApXy[X폜 \$$ $R D!% D!% $', u.vu/vɒu , ./$R', , $ 'z0k( ,  & , H & ,  & , $H$R $ge.m.d$', d ,  & , $H$R $ge.m.d$', k k , H & , $ $ge.m.d$', kk ,  & , S & , a & , $aS$R $ge.m.d$', d  ,  & , $S$R $ge.m.d$', kk , S & , $ $ge.m.d$', k`kX , \+@] \  x \$'xd xA \$'xk x''z" 0!2 0!2 , 0!4A@(kpih`=Attribute VB_Name = "clsDate" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplADeriv%Customiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All rese r;.http://www.hd.co.jp/webma ster@ y@zDim c As Ne w Option licit CompR Binary Pub Func Check(ByValX myaSng)Boo0leanrror GoTo ErrMes f CIf" TheÇwExitF'End IfC?B*A&,= C(a)O@&IB(N)"* .3E TruA7 Q:C2C@.Number'"13RMsgBox "ꂽtf^܂B" & vbCrLf_ a"G[ԍFeF DescriPX :a3%<> "0[Q*Z^`AEtpvorrhectb\ d8wpePa,fzmySt@artPosjIntegN {8BP`bSet cP@XĖDA#j=!.Getue(, ",E).Resul[JIsNullD ) Or!lMCg-v x'256ȏ͏bCqV@BA.Len > ?cc 'pׂđa pAOXyPCX폜A;Conv(cP.Sani.ABCHenkaNnKRepyc@e(Trim,pD"@"))),JUp+C[ u/vu.`ɒu_$]%ip/."aAal ./@_K #‹;7?% In9@(1.1@ingp vbTHextd) @T0q.?3H/" {OyH?? 6Format("$!ec !"rH"H""Nawge.m.d?b@(OBЯOBltP@Q !? [@\*_B+O6??VVUta 01o.1)*OJ({ OOOO=B=0sDDS/@p(La??oB Dfg!Ct"SDD sr_˄1 DD`re) <> 0 Then  myDateString = Format(<Conv(Replace(Trim( T), "$" S"vb@Narrow,ge.m.d")cP.GetValue(pName, fmyStartPos).Result oLCorrect+True#Exit Functio}End IfIf In(1, Dx, vbTextCompa R FPO JFalsd ErrMes:^C@[@.NumberMsgPBox  &`C rLf &BDescripz&z'Publi c .KAGAMI( _ ')By As ePaper~,@)Boolea'On)or GoTo@'p̓tCEALqC@ B ɂ@邽 D im cPclFs*Set= New lT?# ! PArpray(B =?%~ $aosNullK OrJq j""Ě5!)9F REA522561 `VBA.Len> @#CuvSpuA`d&/-@!A끳' , , 's폜|Рzvb{gϿl$Lf s( ,A`SRight*S, 1)'" c&\Lefo.-*tH[ɓ͂ꂽ*ł‚ȂB1Ƌ$M0 wUw8 eI= Spli q,  kReCR0(EyduEiqTDo`hrB i@o UBpound'p5ׂđJ<ɁAO゠̃XyX7A; wp`[➰Sani.ABCHenkan~(y+ԋiJ) a@")vbUprCase u.Fu/`ɒu%+2uP./fK@.Check.-WaЮSqaQ V. Уـ ϡ0k,-}Hj //% s? \A"HOE3Ŵ}z6 e  N^OP rr8` ?0 & >  B++t"S&& 1a//#Q/# TZE+Q+< K% +f)Iε If InStr(1, myDate, "S", vbTextCompare) <> 0 Then 'n = Format(Conv@(Trim(8)Narrow"ge.m.d") LEnd IfmyArrapy(i)nZ.N  Dim As ing3 i:@.@B.N umberҁMsgBox H &0CrLf8ADescripv Public% CheckA/( _ AB~yAO;xz, Ref FƂ) Boolea!> OnA0or` GoToA  'ݗp̓t`FbNALq  ɂ߃ RIsNull.) OrK2:AqrYcP<clsPaper!#Set = New Kch+C#W(C'%uvSpuA`cw`Replace"e s 6, , s폜Ђecyyvb^g$eLf?2 lC, bRight,?1BcΡ?aL*Lef-Lenj ) - 12 b'tH[͂$Uł‚aƋd{`BGi= Spli  , - % Re s00c dfia?DoXbss1'p@p4đ啶@ɁAO@̃Xy@X6A;S< RpSani.ABCHenkan( j+)i) ?")!vbUpPCase'u.Eu/`ɒu10.q/!?q1-F[$)Faq^A{_^Q -_ o0gH8RDvP&IGha"H"vb| o   r* e  G? ϼp_HǼ9 y O@OB?*yi a?O?`*d9 K]   tT6" *Eq?*%uo*/AAo '`Cٳw@jͲpcXguq_c# &榰 End IfNext  XmyResult = myStrTCheckDateKAGAMI8True6Exit Fun ctionEr rMes:If ".Number <> 0 T he)MsgBox $& vbC rLf &Descrip_5  {Zl\ 6\Md@D  DT 1>F$ :4N `1\2T6 D$l\\Md@D DT 1>F$ :4N `1\2T6 D$l\XY\Md@D D$ :4N$ `1\6D$ l\olX; iYlXf l0 olXCl!*#TolX*1/T i l1pz/$  l wl'''$  l #T*#  ,l*FD 2T)6D$/@&`\tX @ TD$Hpz/lMT@D Dd 1># hp __SRP_29+2clsDB z] `__SRP_24V__SRP_25yv6D50dc2c74$*\Rffff*1@50dc2c74$*\Rffff*1H50dc2c74*\R0*#10*\R0*#1b*\R0*#f*\R0*#f*\R0*#1b*\R5*#47*\R5*#46*\R5*#45*\R5*#43*\R5*#3*\R5*#21*\R5*#2*\R5*#0*\R5*#42*\R5*#3f*\R1*#10e*\R1*#10b$*\Rffff*1<50dc2c74*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R5*#3e*\R5*#3d$*\Rffff*1850dc2c744   8 "X   B  F@HP p  $8@ HBP ` hp x 0&=& $+ 0(8 `& & & (&H p& & & 8&X & & ( 4+0 hpx rU ))&& )AI& i)-a{]Y#Qt!9YINљq|)y itA)t(@4)) (W((l CtK_ lt0)pz/ lttllM\@ Tpz]pz%T XX lT3X2'''*#P*#LT XX lT#H*#D*#@*#48 << ,l8*#0*#, *#(lt*F 2PLHD@480,()X<6%T XX lT 3X'''*#P*#LT XX lT#H*#D*#@*#48 << ,l8*#0*#, *#(lt*F 2PLHD@480,()X<6// (tLPLHD@840,(X<tlCtK p*dhltl p h l>d1lhlMT@ ll0jpz/#lMT@D D(4]t5Dpz/lMT@D Dd 1># hp L h lp L  $>F$ `1l2d )h6D$"ll 1lllkpz/6llll*lllMT@D Dd 1 > F$ :4N `1l2d 6 D$$llhltl p h phpz/}ll{lMT@D Dd 1 > F$ :4N `1l2d 6 D$$llhltl p h phpz/ll(YlMT@D D$ :4N$ `1l6D$$llhltl p h phpz/6llllll >lMT@D  Dd 1 > F$ :4N `1l2d 6 D$$llhltl p h phpz/lllMT@D Dd 1 > F$ :4N `1l2d 6 D$$llhltl p h phpz/llYlMT@D D$ :4N$ `1l6D$$llhltl p h phpz/pz/$ hh lhil'''$ hh l#d*#  ,l *FD 2d )h6D$/t0tpl< d hD$ l CtKtMd@ lt07pz/ `"!"lt 1t"!#lt 1t,!!*#Tlt 1t/T,!!$*#Tlt 1t/T,!!%*#Tlt 1t/T"!lt 1t"!$lt 1t"!%lt 1t(tMd@D & D:4!]35D<JtMd@D ' D`1t5Dlt!8:d!NDDlt$ ($6 Y X6D$AXltlX;lXfsolX.@Md@D -DT 1>#` L  l` L  $>F$ `1\2T)6D$"l\ 1\l\kPpz/6l\l\Ul\1\Md@D DT 1>F$ :4N `1\2T6 D$l\\Md@D DT 1>F$ :4N `1\2T6 D$l\SY\Md@D D$ :4N$ `1\6D$6l\l\$l B  F08 @ P ` p P+  $l0 8B@ X *`     O yx\|j|%r<A[kg@XqX*=h8+3qNK\F] WixNK\F] WiA[kg@XqXME SS S 1 "F"98>"P *LLLLLLPLL"LLP <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<f n N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}ot,`k@  i  3 tx %,6 `0k //i Dt%,| `8k@$Mi h $4 i .2 8 t`%,@`k(++eiX i `r,4 P`$k,i iXii %)(   % ; &dHx %, `+k0ir %) % ; p  % )h%,@ *`.k` 4ir i  ; p %, `5k<iD  i @i px%, P `9k @ DD)_ %i  `r p`F l`H h, ( `h<k D 00F)_ %i i  `r p`l,J  ``@khH vi i p%`r l,L  `Dk  L qq)_ @H%i  `r p`F hl`H h,N `Gk P XX)_   %i 8 i  @ Dpp H%`r l`h, `@Kk  T..]iD  %)0 %`r p `Lhh % _xL` %, `Nk XiP  iR i0  i x hh %`r d,h@ `0Sk \$$iR  i `r t l8  %,  `HVk `++i  i `T t h %`r d,V `YkP di p  iX  P i  t %`r p ,Z `]k( hi H iX h i Hi   t%`r p,\ H`h`k l==i @i^ ` ii  %) B%`r p D % _< %  8@%,` X`@dk p--Y)_ %i i  Dp%`n`r h`d,b `gk t\\)_ %i i  Dp%`r l`F h`H dh %, `jkHx==i ixi(i P%)p %`r p kD% _<%  8%, 8`nk0 |__)_ PX%i xi  Dp%`n`r h`F d`H ``hz  %, `hqkx ..~)_ %i i  D8rp%`n`r h`dpH% ; pP % H% h$&(4 0,( _t%8 %H  X P@@ 8(P  *` _t@@p 0@l @h @d @` @(\ @XX @T @pP @L @< @, @ @ @ @ @ H0`t p`Xp `l`hh6 `6 pxb(0, @r @l @h @d @` @`P @x@ @0 @ @ @ @ @ @ @  @ @`H 0Hh| `| x @Pp 6 (0,@@x` @P @@ @0 @ @ @ @ @8 @ @ @h @ (!X"("!h!@"(! P! `Xt`Xt`Xt`Xth` z `! `Xt`Xt`Xt@!!`@l `(!(0, @!\ (@!L @!< @!, X@! @" (@ @ @p" 0@ @" @ @" @ $(5 0" %`t#&`XpX#"`Xt`l#&`h``t`Xp#&`l% '`h`t`t`Xp`l`h`t`Xp`l%%`h8'&&0 'P'x((0)(&("`Xp 8'%`r t%%`r t`l`h`t`Xp`l`h 5 "x"`t`Xp8&)`r t(() `r t`l`h@h'` @'\ @'X @'T @'P @'L @'H @D (0,( )`r t(8/`r t@(@ @< @8 `r t@H)( *h.`r t0(`r t@`) @x) @) @) @ @ ( $  )x%(`r th/ %,4`1k* 8`r t`r t@ir * i *%%`D ti  `r t$&(4 @,l @x+X @-H 8*%%%`D t ),H+-`+,)`,&0+0,(%`D t@D @,@ @< @,8 @4 @-$ h-2&%% _t`-%(.x2%`D t`r t`r t@- @. @ @ 2* _t* 006%h@   `D t8/h/80////8/0P(`@ h.z  _t% `r t$&(4 B 0,@P0l @(1\ @1L `r t@H @15 _t+ @0D @@ %%% _tx-%%%@0< @8 /(z `r t@h1( @1 H6( _t+ @1 4H8 _t`.@ @ *2x233033`32x3(-h4  %% _t* `4x2z `r t$&(4 B 0@H3l @@4\ @(4L @D @@ (2,( @3< %`t _tx,H`D t@48 @4 @X4$ @p4 @4 @ @ 508 `D t%`t( _t@-` H606x668766066P.4% _t$0,h  6`8%`tx8 _t0` 5x`D t7 <%@6l 0,( @7h @ 7d @` @7P _t%(@L @7< % _tx0`t(@8 8<%@7( @8 @8 @ @ h  ` 08z @ _t0d5`;8< _tp0 `tH@09T @9D @`94 R@ 0,(@H:$ ( _th0@x9 @x: _tp6H8`8 8;;88x;;x8H891@:  _t* @: X _t0(@ (@; %4% _t7@H; @0; @ @`; @ @ (= 7% _t+@; @ X@ @h  ` <z  _t3 _tP7 <8<>?X=@=h??(= <=`6%`D th:`@>X @p=H @=8 @=( @@> X>A: _t2 `t R@ 0,(@(> @@> @> @?? _t;`D t@ @> @? @> @ @(? @ 0A`t@ X@? @@ @ hJ `P ?t @C`RpA8C`l`D txA0A`ABBxABAHA= _t8- `J ?x`t 0,(@Bh @xBX 4%`P `AtAC`RpD B`l@HBH x _t2`D t@`B8 @B( @ C @ @B @ @ X@C @@ @ hL  %`P 0Ct CH`RpPExH`l`L 8Cz x _t:`D tCCPFGEDDGDCxG? R@ @f `A`@EP @xE@ `P Et `Rp GHF`l@E0 x _t5@E @E @F @ F @8F @ G@F HG@hF @F @F @HG @0G 4%%`P Ft`RpI G`l@ x@  _t4D0,(R@ @G @ @  X H Hx HJPI8IHKIHJpChN   `N xHz  _t=  R@ @f @(J` \F``D t@IL @hI< @I, @I @I @I @I @J @ @J @@J @XJ @pJ @ (@J K`L@`D t(@ H0,(,@(K @ @ P p 8 LLMLLhNN`LLJ`P Kt LHL`RpMxL`l( PCH  HLxF`D t@Nl  (0, @Nd @^ @ ML 8N@8M< @PM, @hM @M @PN (@ %4%%%%`^ tN `P Mt (NO`RpOO`l@ p@ M`@ @N @ %%%P PO0Pp XPPQQhQQO8QN`^ t h ` Ox`P Ot PO `Rp HPP`l0P@pP` @P\ @PX @PT QXRN%% _tN@P (`^ t@R% 0,(@QL @Q< @8 @Q( @$ @Q @R @(R @ @ hh`h@Rx @Up ( 0, @Th %%% _tP@d (`^ txU`U % XR pRRSSRXRRP@TT Q@8TD @PT4 % _t0Q@hT$ T@T p@T @ @ (@T @U 4% _tM@ @0U @ h ` HUxUHU @r U `^ t @Ul @@X` ( 0,@8W\ % _t(S `U UVPW WVYXU`U YS@Z % _tMP@WH (@WD @W4 %`xt@W$ @X @HX @W @ @ @0X (@ @X _tRhYPY _tR%@X 0X@X @ @ @ U(D hV `V 8Yx8Y @XZl Zp\`xt p PYP xY0[x[H[[PY[xX@pZh @Zd _tXX\ _tP %%%%@[` @\ 0,(Z@`[X @[H @D @[4 X@0 @[ @\ @@\ 4%`xt\@ `^ t@ hZ  `Z X\z @\l @\h @\d % _tZ@8]` (]0` _thW%@P]\ @@h]X (@]T @P %%`xt 8__ _tZh(p\\^ _^_p\^Y 0,(E@_L `^ t @h_< % _tN@8 (@_( xba% _tZ@_ ^@_ @ @_ @ @ (] M`xt ] _xN% _t0]( `a0`8abbb0bHb`b0` a]`^ t  0,(@Pal @hah @ad _tM @a` % _tH_@a\ Xa@X @bH @b@ @6 @0 ,T``b4%%]@( _t\@c @c p@0c X@Hc @`c @ @ % _t(Vh`  @`` cz (cc dc@ _tRec @ 0,( _t]c@c(efhePedg8ecdc@l %%0`8e _tH``[`@eP @e@ @e0 @e @ f @8f  (@@g Phg _tT@ @@Pf (@hf @f @f @f @f @ `xt@(g X@ @@ @ hb  4%b`b Xgz  _tag`h8P(jjhhhjhghexhXg _tWh`h 40,(@b \b`h @(iL @i< @@i, f@i i@i kk`xt@i @@i (@i @ %e@ 4% _tb@@j H@Xj 0@pj @j @ @j (@ @ (kxllhmlllmkkXi( ]  kxxckk`xt(mk 0,(@ ll @8lh @Pld H@hl` @l\ @X _tZ@mH @@Pm@ (@6 @0 ,pg` m _te@( P@m 8@m @m @m @m @ @ Xnop qoo@o8qXon(onh  ` nz  nnon _tdpoo 40,(@l \j`Xoo r8rHd@pL @o< @p,  _t^@Hp @@0p (@`p @xp @p @ @ @p @p @p @q @ @Pq @ @ 0PrPs@trrrXtr8rxroh  hrrl` rz  _tirPr@ 0,(@l `r`4%r @hsP @s@ @ s0 @8s @s @s  @t @ @s @s @s @s @t @(t @ @pt @ @ @ oH8H@(@r,P *\R5*#51*\R5*#5b*\R0*#1c$*\Rffff*1   ( 0  P X  p x              ( 0  4+8  p       $ l   B4  D NX     ~f  x   $ l   B      ( 8 $H  h x  $ l   B     # 0 @HP X $`lp B$ho o ooo#o o o8,o; p 8p HpPpXp `p $hplxpp pB$    ~R(X    ;0 &8 `p x  $l B    .^ H &Xp.^x   8.^   80P.^X   8:^   .C P>^X   V.^  H (C`.^   82^  8 "8Px2^   "8:^  @ &8XN*  $l(H PB$ X p x "8$8$8$8808`>^ b8 @`4Mh$82^ (8(  0H2^P (8  08B(Xhpx  $l B    NE`p   ; & ( 08 @ $HlXx B        .^   88X.^`   8B^   *88h:^p   &86^  0  ,CH x 6^    @c !6^!  P! ,Ch!!.^!  ! 8!"6^"  H" $8`"":^"  " T"@#:^H#  # T##:^$  @$ TX$$:^$  $ T%p%6^x%  % R% &6^(&  `& ,Cx&&:^&  & .C'8'2^@'  x' *C''2^'  ( *C(H(:^P(  ( .C((2^(  ) *C0)`).^h)  ) (C)))H<)0*@*H*P*X* `* $h*lx** *B$ * * *** *+++ 0+$88+$8`+:^+ 08++  , ,B^(, 88p,, " ,,<M,Pl -6^p- ,8--  -..^. $88.`.  h..6^. ,8..  ./:^ / f`//  //:^/ f800  00:^0 f1x1  11:^1 f1P2  X2x26^2 b2 3  (3H3<MP3@M38M38M4@M@48M44M44>:485H5P5X5`5 h5 $p5l55 5B 5 5 5H5  6 (686 H6 P6 `6$+p6 6 666.+6 6 777 7$W(70WP7$W70W74W7$W8$W88(W`8(W8$W88 88 8 $9l909 89B,@9 `9 h9 p99P<99;9 : ::  : $(:l8:X: `:Bh: : :::D:; ;;(;*+8; h;p;6+;;;D; <+< X<`< :h< <<< < << <$<l<< =B=  = (= 0=@=H= P=p=x=V= =>_> >?? ? ??d!?@ (@8@@@.PH@ lx@$S@ lAAA A AA A$AlAA AB$A B B B0Bz88BB;B B BB C $ClC8C @CB,HC hC pCxC CCQC0DA@D`DhD pD DD D $DlDD DB4 D D ExCEE EE E EE EE F F F (F 0F@FHF  PF `F pF F WF ,WF $WF ,WG 0W0G 0W`G @WG @WG (WH 0W8H ,WhH 4WH ,WH (WI 0W(I (WXI (WI $WII7I II  JJ J $ Jl0JPJ XJB$ `J xJ JJJ JJJJJ J,8J4M K<MXK@MK@MKPMLPMhL8ML@ML<M0MDMpM<MM8MM8M0N8MhN4MNN xSNXOhOpOxOO O $OlOO OB$ O O OO PPP P (P8P HP6^PP  P ,CPP.^P  Q (C QHQ6^PQ  Q ,CQQ:^Q  R .C0R`R:^hR  R .CRRJ^S PS 6CpSSJ^S " T 6C(T`T2^hT  T *CTT:^T  0U .CPUU6^U  U ,CUV>^V  PV 0CpVV6^V  V ,CV(W2^0W  hW *CWW2^W  W *CX8X2^@X  xX *CXX.^X  X (CY8Y@Yf<HYpYYYY Y $YlZ Z (ZB4 0Z PZ XZxC`ZZ Z[  [ ([8[ H[P[ X[ h[x[ [ [[[  [ [ [ [ W[ $W\ $W(\ ,WP\ 0W\ 0W\ @W\ @W ] (W`] 0W] ,W] 4W] ,W ^ (WP^ 0Wx^ (W^ (W^ $W^ _7(_ 8_H_  P_`_ h_ $p_l__ _B$ _ _ __ ___```  `0` @`.^H`  x` 8``.^`  ` (Ca(a6^0a  ha ,Caa:^a  a .Cb@b:^Hb  b .CbbJ^b 0c 6CPccJ^c " c 6Cd@d2^Hd  d *Cdd:^d  e .C0e`e6^he  e ,Cee>^e  0f 0CPff6^f  f ,Cfg2^g  Hg *C`gg2^g  g *Cgh2^ h  Xh *Cphh.^h  h (Chi i f<(iYiiii i $ilii iB$ i j j8j@j HjXj`jpjxj j$8j4Mj<Mj@M(k@MhkPMkPMk8MHl@Ml<MlDMm<MHm8Mm8Mm8Mm4M0nhn xSpnnnooo o $ ol0oPo Xo p ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp y@z Dim cDB As New clsDB "@[NubNJꂽƂɁAf[^x[Xւ̐ڑ`FbN ']` $  & ($4 .2 x 2 B@B%.2 'zh"` 0!2 ,f[^x[Xւ̐ڑŃG[܂B , G[ԍF 0!2 , G[eF  0!4A@(pkzi"'6 ].DConv(c*݃y[Wڑf[^x[X擾 b ݈ D%!r!nKTw肵Ăij悪w肳Ă܂BA@(e, "zKTkCdgǗǓaijrmkstationHokkaido'6 CorrecKTkdgǗǓaij rmkstationTohoku'6 KT֓dgǗǓaij(1rmkstationKanto'6 KTMzdgǗǓaijbTrmkstationShinetsu'6 @ KTkdgǗǓaijvbrmkstationHokuriku'6 ` KTCdgǗǓaijRermkstationTokai'6 KTߋEdgǗǓaij rmkstationKinki'6 KTdgǗǓaij, rmkstationTyugoku'6 b KTldgǗǓaijonrmkstationShikoku'6 ", "H KTBdgǗǓaij rmkstationKyushu'6 KTdgǗǓaijnSrmkstationOkinawa'6 ompareS*ڑf[^x[Xݒ肳Ă܂BA@(v(Trznz"x 0!2 0!2 , 0!4A@(k@i8 te"@WindowsWXg܂INIt@Cڑf[^x[X擾'| ].8 (1, my 8 ! ', vb e) <> 6 ` F݂̈iʐMǁjAݒ肳ĂxƂĂ܂BA@(z(k k '| z" 0!2 0!2 , 0!4A@(Coki "$ڑf[^x[XxID擾", "S]( XrmkstationHokkaidoKT En'rmkstationTohokuKT'rmkstationKantoKT'rmkstationShinetsuKTn'rmkstationHokurikuKTmat(St'rmkstationTokaiKT'rmkstationKinkiKT'rmkstationTyugokuKT my 'rmkstationShikokuKTNext 'rmkstationKyushuKT 'rmkstationOkinawaKTund(my 'S*ڑf[^x[Xݒ肳Ă܂BA@(Arra' zxnp 'z`"X 0!2 0!2 , 0!4A@(Enk i @et">--------------------------------------------------------------GMicrosoft ActiveX Data Objects 2.x Library QƂ悤ɐݒ肷邱r ]0 voC_SQLOLEDB : (h ber ڑT[o[w Data Source= ;Initial Catalog= X;< >  : B@L : .4 zp"h 0!2 0!2 , 0!4A@(k0i(Pp"] $  & ($4 .: A]. : /p p r B@' . z"x 0!2 0!2 , 0!4A@(k@i8 A$"'@ ] $  & ($4 .: ' r B : B@ ' : B@B.: '@ z" 0!2 0!2 , 0!4A@(vkhi`   "@]`.w Set myResult = GetRes("SELECT ID FROM dbo.T_ProgressNet WHERE receiptNo ='" & myReceiptNo & "' AND type=" & myType)3SELECT ID FROM dbo.T_ProgressNet WHERE receiptNo =' D '$ .$R ! ȂɂqbgȂ0' ! e1ƒqbgIDԍID % !n' d1ˆȏqbg-1iG[j' k.zx"p 0!2 0!2 , 0!4A@(k8i0"' ]] ]8 ^aID7$ aID7aID'F aID7'H kcID7$ cID7 F ,cID'F H ,cID7'H kkind7$ kind7 F ,kind'F H ,kind7'H k type7$ type7 F ,type'F H ,type7'H k8 receiptNo7$  receiptNo7 F ,receiptNo'F H ,' receiptNo7''H k receiptDate7$  receiptDate7 F ,receiptDate'F H ,' receiptDate7./$R yyyy/mm/dd$''H k memo7$ memo7 F ,memo'F H ,'memo7''H kp area7$ area7 F ,area'F H ,area7'H k counts7$ counts7 F ,counts'F H ,counts7'H k charge7$ charge7 F ,charge'F H ,charge7'H k frequency7$  frequency7 F ,frequency'F H , frequency7'H kx qp INSERT INTO dbo.T_ProgressNet ( F  ) VALUES (  H )'r r $@ z k ' z" 0!2 0!2 , 0!4A@(ki   P"UPDATEȂ̂Ńkf' ]]' ^ aID=aID7' ,cID=cID7' ,type=type7' ,kind=kind7'  ,receiptNo= receiptNo7' receiptDate7$  receiptDate7 ,receiptDate=' receiptDate7./$R yyyy/mm/dd$''d ,receiptDate=NULL'k ,memo='memo7'' ,area=area7'counts7$ counts7 ,counts=counts7'd  ,counts=0'kcharge7$ charge7 ,charge=charge7'dH  ,charge=0'k(  ,frequency= frequency7'qUPDATE dbo.T_ProgressNet SET  WHERE ID= 'r r $@ zk' zx"p 0!2 0!2 , 0!4A@(k8i0("].]SELECT ID FROM  WHERE callSign ='  %''r r $ . ! ȂɂqbgȂ0'J ! e1ƒqbgIDԍID$'J d1ˆȏqbg-1iG[j'J k.z" 0!2 0!2 , 0!4A@(kix"X'L ]h]]bID'F $'H  ^aID7$ aID7 F ,aID'F H ,aID7'H kcID7$ cID7 F ,cID'F H ,cID7'H k0licenceNo_Head7$ licenceNo_Head7 F ,licenceNo_Head'F H ,licenceNo_Head7'H k licenceNo7$  licenceNo7 F ,licenceNo'F H , licenceNo7'H kaddress7$ address7 F ,address'F H ,'address7''H kareaCode7$ areaCode7 F ,areaCode'F H ,'areaCode7- %R''H kMoveArea7$ MoveArea7 F ,MoveArea'F H ,'MoveArea7''H k`kind7$ kind7 F ,kind'F H ,kind7'H kpurpose7$ purpose7 F ,purpose'F H ,purpose7'H kp issueDate7$  issueDate7 F ,issueDate'F H ,' issueDate7./$R yyyy/mm/dd$''H k estabDate7$  estabDate7 F ,estabDate'F H ,' estabDate7./$R yyyy/mm/dd$''H k beginDate7$  beginDate7 F ,beginDate'F H ,' beginDate7./$R yyyy/mm/dd$''H kH changeDate7$  changeDate7 F ,changeDate'F H ,' changeDate7./$R yyyy/mm/dd$''H ktermDate7$ termDate7 F ,termDate'F H ,'termDate7./$R yyyy/mm/dd$''H kcallsign7$ callsign7 F ,callsign'F H ,'callsign7''H kP productNo7$  productNo7 F ,productNo'F H ,' productNo7''H kgiteki7$ giteki7 F ,giteki'F H ,'giteki7''H k8syonin7$ syonin7 F ,syonin'F H ,'syonin7''H k frequency7$  frequency7 F ,frequency'F H ,' frequency7''H k power7$ power7 F ,power'F H ,'power7''H kmemo7$ memo7 F ,memo'F H ,'memo7''H k q INSERT INTO  ( F  ) VALUES (  H )'r r $@ zk'L z" 0!2 0!2 , 0!4A@(k`iX   "8UPDATEȂ̂Ńkf'N ]X .D]x ] bID= $' ^ ,aID=aID7' ,cID=cID7' licenceNo7$  licenceNo7  ,licenceNo= licenceNo7'd ,licenceNo=NULL'klicenceNo_Head7$ licenceNo_Head7 ,licenceNo_Head=licenceNo_Head7'dP ,licenceNo_Head=NULL'k   ,address='address7''  ,areaCode='areaCode7- %R''MoveArea7$ MoveArea7  ,MoveArea=MoveArea7'd  ,MoveArea=NULL'kkind7$ kind7 ,kind=kind7'd  ,kind=NULL'kxpurpose7$ purpose7  ,purpose=purpose7'd  ,purpose=NULL'k issueDate7$  issueDate7  ,issueDate=' issueDate7./$R yyyy/mm/dd$''d0 ,issueDate=NULL'k estabDate7$  estabDate7  ,estabDate=' estabDate7./$R yyyy/mm/dd$''dX ,estabDate=NULL'k0 beginDate7$  beginDate7  ,beginDate=' beginDate7./$R yyyy/mm/dd$''d ,beginDate=NULL'kX changeDate7$  changeDate7  ,changeDate=' changeDate7./$R yyyy/mm/dd$''d ,changeDate=NULL'k termDate7$ termdate7  ,termDate='termDate7./$R yyyy/mm/dd$''d ,termDate=NULL'k  ,callsign='callsign7''  ,productNo=' productNo7'' ,giteki='giteki7'' ,syonin='syonin7''  ,frequency=' frequency7'' ,power='power7'' ,memo='memo7''q UPDATE  SET   WHERE ID= 'r r $@ z k 'N z " 0!2 0!2 , 0!4A@(kX iP  "0 ]8 2SELECT * FROM dbo.T_ProgressNet WHERE receiptNo =' D ''r ]P . r $ .]p .^ !tԍ‚܂BA@(.^ ^. zH !  e#tԍ2ˆȏo^Ă܂BA@(.^ ^. zk ^type % !ntypeC@j frequency % !n frequencyC@jarea % !nareaC@j receiptNo % !n receiptNoC@j receiptDate % !n receiptDateC@jaID % !naIDC@jcID % !ncIDC@jcounts % !ncountsC@jcharge % !nchargeC@jmemo % !nmemoC@jq  ^. z" 0!2 0!2 , 0!4A@(ki  "]P .]p SELECT COUNT(*) FROM P  WHERE  R = ' ''r r $ . % !n' B@B.z" 0!2 0!2 , 0!4A@(ki "xaIDԍ擾'h] 6SELECT * FROM rmkstationCenter.dbo.T_Agent WHERE ID = R 'r ] . r $ . !  Y㗝l܂BA@(z !  e,̑㗝lY܂BmFĂBA@(z@ ! ememberNo % !nmemberNo % !n$ 2㗝lԍo^Ă܂BmFĂBA@(zdmemberNo % !n'hzpkhk` B@B.z@"8 0!2 0!2 , 0!4A@(ki@ "' zktypeƂɎtԍ擾] KKKKKKKKKKKK K)KT:(type = 1 OR type = 2 OR type = 3 OR type = 4 OR type = 5 NOR type = 21 OR type = 22 OR type = 23 OR type = 24 OR type = 25 OR type = 26 'OR type = 31 OR type = 32 OR type = 41)'T KKK K K K KGKHKIKT;(type = 6 OR type = 7 OR type = 8 OR type = 9 OR type = 10 AOR type = 11 OR type = 12 OR type = 71 OR type = 72 OR type = 73)'T Sxnp] .] $SELECT receiptNo FROM T_ProgressNet WHERE  T  ORDER BY receiptNo DESC'r r $ . !' d? receiptNo % !n % receiptNo % !n$  receiptNo % !n$ $ 0000$' % !n % e receiptNo % !n$  receiptNo % !n$ $ 0000$' kx>kp> B@B.zP>"H> 0!2 0!2 , 0!4A@(k>i>    "=] .] 1SELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent WHERE [memberNo] =  X  AND [bID] = 'r r $ . % !n'V B@B.z="< 0!2 0!2 , 0!4A@(k<i<  "<'Z ].]1SELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent WHERE [memberNo] =  X  AND [bID] =  AND [ID] = 'r r $ . % !n'Z k; B@B.zp;"h; 0!2 0!2 , 0!4A@(k0;i(; ";]#SELECT * FROM rmkStationCenter.dbo.  WHERE [bID] =   AND [name] =' ^ ''r $   r AND [ID] = 'r k8:]. r $ .]](.~ !'.~ ~ .\ z9k9 ! ' !a.^ ^ID % !nIDC@jmemberNo % !nmemberNoC@jname % !nnameC@jnameKana % !nnameKanaC@j president % !n presidentC@j president2 % !n president2C@jpresidentNameKana % !npresidentNameKanaC@jpresidentNameKana2 % !npresidentNameKana2C@jperson % !npersonC@j postalCode % !n postalCodeC@jaddress % !naddressC@j addresskana % !n addresskanaC@jareaCode % !nareaCodeC@jtelNo % !ntelNoC@j telNoPack % !n telNoPackC@jfaxNo % !nfaxNoC@jemail % !nemailC@jmemo % !nmemoC@jq(6 ^ ~ B@j B@ 6 ~ .\ z5"5 0!2 0!2 , 0!4A@(k5i5   H"5UPDATEȂ̂Ńkf'` ].D] $'](]@ ^  memberNo=memberNo7' ,name='name7''  ,nameKana='nameKana7''  ,president=' president7''  ,president2=' president27'' ,presidentNameKana='presidentNameKana7'' ,presidentNameKana2='presidentNameKana27'' ,person='person7''  ,postalCode=' postalCode7''  ,address='address7''  ,addressKana=' addressKana7''  ,areaCode='areaCode7'' ,telNo='telNo7'' ,faxNo='faxNo7'' ,email='email7'' ,memo='memo7''q 1 UPDATE rmkstationCenter.dbo.  SET   WHERE [ID]=  AND [bID]= 'r r $@ z0k0'` zx0"p0 0!2 0!2 , 0!4A@(k80i00   X"0'b ].D] ]8]PbID'F $'H  ^memberNo7$ memberNo7 F ,memberNo'F H ,'memberNo7''H k(/name7$ name7 F ,name'F H ,'name7''H k.nameKana7$ nameKana7 F ,nameKana'F H ,'nameKana7''H k(. president7$  president7 F ,president'F H ,' president7''H k- president27$  president27 F ,president2'F H ,' president27''H k-presidentNameKana7$ presidentNameKana7 F ,presidentNameKana'F H ,'presidentNameKana7''H kP,presidentNameKana27$ presidentNameKana27 F ,presidentNameKana2'F H ,'presidentNameKana27''H k+person7$ person7 F ,person'F H ,'person7''H k+ postalCode7$  postalCode7 F ,postalCode'F H ,' postalCode7''H kx*address7$ address7 F ,address'F H ,'address7''H k) addressKana7$  addressKana7 F ,addressKana'F H ,' addressKana7''H kX)areaCode7$ areaCode7 F ,areaCode'F H ,'areaCode7''H k(telNo7$ telNo7 F ,telNo'F H ,'telNo7''H kH(faxNo7$ faxNo7 F ,faxNo'F H ,'faxNo7''H k'email7$ email7 F ,email'F H ,'email7''H k8'memo7$ memo7 F ,memo'F H ,'memo7''H k&q&!INSERT INTO rmkstationCenter.dbo.  ( F  ) VALUES (  H )'r z8&k0& r $4'b zh%"`% 0!2 0!2 , 0!4A@(k(%i % "$]x#SELECT * FROM rmkStationCenter.dbo.  WHERE [bID] =   AND [name] =' x''r $   r AND [ID] = 'r k0$]. r $ .]].~ !'.~ ~ . z#k# ! ' !a.^ ^ID % !nIDC@jtype % !ntypeC@jname % !nnameC@jnameKana % !nnameKanaC@j president % !n presidentC@j president2 % !n president2C@jpresidentNameKana % !npresidentNameKanaC@jpresidentNameKana2 % !npresidentNameKana2C@jperson % !npersonC@j postalCode % !n postalCodeC@jaddress % !naddressC@j addresskana % !n addresskanaC@jareaCode % !nareaCodeC@jtelNo % !ntelNoC@j telNoPack % !n telNoPackC@jfaxNo % !nfaxNoC@jemail % !nemailC@jmemo % !nmemoC@jq( ^ ~ B@j B@ ~ . z" 0!2 0!2 , 0!4A@(ki   "' ].D] $']]]bID'F $'H  ^type7$ type7 F ,type'F H ,type7'H kname7$ name7 F ,name'F H ,'name7''H k nameKana7$ nameKana7 F ,nameKana'F H ,'nameKana7''H k president7$  president7 F ,president'F H ,' president7''H k president27$  president27 F ,president2'F H ,' president27''H kppresidentNameKana7$ presidentNameKana7 F ,presidentNameKana'F H ,'presidentNameKana7''H kpresidentNameKana27$ presidentNameKana27 F ,presidentNameKana2'F H ,'presidentNameKana27''H kperson7$ person7 F ,person'F H ,'person7''H k postalCode7$  postalCode7 F ,postalCode'F H ,' postalCode7''H kaddress7$ address7 F ,address'F H ,'address7''H k` addressKana7$  addressKana7 F ,addressKana'F H ,' addressKana7''H kareaCode7$ areaCode7 F ,areaCode'F H ,'areaCode7''H k@telNo7$ telNo7 F ,telNo'F H ,'telNo7''H kfaxNo7$ faxNo7 F ,faxNo'F H ,'faxNo7''H k0email7$ email7 F ,email'F H ,'email7''H kmemo7$ memo7 F ,memo'F H ,'memo7''H k0q(!INSERT INTO rmkstationCenter.dbo.  ( F  ) VALUES (  H )'r zk' z" 0!2 0!2 , 0!4A@(ki   8"pUPDATEȂ̂Ńkf' ].D] $']]0 ^ type=type7' ,name='name7''  ,nameKana='nameKana7''  ,president=' president7''  ,president2=' president27'' ,presidentNameKana='presidentNameKana7'' ,presidentNameKana2='presidentNameKana27'' ,person='person7''  ,postalCode=' postalCode7''  ,address='address7''  ,addressKana=' addressKana7''  ,areaCode='areaCode7'' ,telNo='telNo7'' ,faxNo='faxNo7'' ,email='email7'' ,memo='memo7''q UPDATE rmkstationCenter.dbo.  SET   WHERE [ID]=  AND [bID]= 'r r $@ zk' zp"h 0!2 0!2 , 0!4A@(k0i(     *"p'4]x $  & ($4 .: r B : B@ ].SELECT @@IDENTITY AS [NEW_ID] : % .NEW_ID$' : B@B.: '4zo"o 0!2 0!2 , 0!4A@(koio r $4p۶Attribute VB_Name = "cls DB" Basp0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |Global!SpacFalse CreatablPre declaIdCExposeTemplat@eDeriv%Customiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All rese r;.http://www.hd.co.jp/webma ster@ y@zDim cDB As New Option licit Comp Binar@y Pub Func Da|ConnectC@heck()Boolean  rror GoTo Er0rMesA'HNubNJꂽƂ ɁAf@^x@Xւ̐ڑ`F "sA?my*;AA`DODB.Set J = GeBt@ (mySgr,EU@mn@Password) .ClNothingc5Tru4ExitcATV:IfZ.Number <> 0 TheDeMsg Box "YŃG[`B" & vbCrLf_ a a"Cԍ|F@eF D`escriBQ End IfdQ/S@5FromKagami( }RSa+;R`H"7gP[ gPawcAEcPjD'Y݃yuXW`XVj.P擾 l`i "CAcP.Value(pKAG@AMI, "# ").DropDown.C1 'w 7Ăi!> ,Oaa2kCdgǗ0Ǔa-rmkstaHok`kaido/ 3a k TohokuM 4@ 0֓_ X Kant5 Mz? 8 S@ets6 k -urio"7 |L$To8ߋEo )Kinki9vtB>'Tyug?" 10@5l-k 11 'xB Kyush>"12 'IOkwaER:5DNXx0IE E 9`SeQH/ prpbd ojmQOiDihcxr +DBgqa~l!Q80'Oj OogWindowsWXgZ̀INIt@ fdfb a/$2nPTnfiĈbnf=գmyŊc.Read5= A8 xq̒miʐMǁjA&x m3nn+1Z q _*% oo_*Ȕ_* E _*@ BIDf*ByP )Integer)8o?`?ID('my@'Q>{$>"ZςQ6= 2onA# x= 3m~i4oe?| 5z6wq7oeu myBID = 8 Case "rmkstationTyugoku"~p9pShikp109Kyush q118OkinHawa12 9Else kMsgBox "ڑf [^xXݒ肳Ă܂B5-R,Exit Fu nc9End @SelectG 0 Theni& vbCrLf &Descrip &IfC@).PublicF2 -Con( _A ByVal@5rv#As String,Dat abAUser Name PasswordA)ADODB. $nV On:or Go #u_HDJX vj ("SELECT @@IDENTITY AS [NEW_ID]mXHv BM4(""j-on-qA--q---?8IntOrUpd@ateFor gXresreNo!/x.myTypInteg`t/. Ƞ?m_"_"|'o" #! FROM dbPo.T_%NWHERE recy='A!' AND ts#sO) t "'a)Q5+.CCountP)M'ȂɂqbgXo rob PXOB1X'1IDԍ>&Fields("IDx").&bȏ-1iG[jO.PEUaO$ >kk\ en MsgBox Err.Number & vbCrLf TDescriptioEnd If Func6Public  InsertDBForProgress( _ByVal myColle? As  ')BooleBay Ono@r GoTo Mesk = FalsepDimnSQLStrxing-  12 With d(Jf Not IsNull(.Item("aI8D")m <> "" Th"myS1g/ 2'ׁzIJcN%Bb%G(& ", ( 2x","@-,-kindR--,.type .?0.0.Wrece@No_ UKFG'(GiP'"qDatm2$ #?( mat(Rep0lace%, "."/")y/mm/da!k memm:C/9$8realRaBQcountsLD E clcharg3Ew @=aytw, a{Qn    frequencyLxo o l  $ %v= "INSERT INTO dbo.T_Net ( q51B) VALUES (  )T@DBEx@ecute()(RExitS 0sTruԚrrО:f 0____ ]Updb_a_ѢW,IDLo'UPDATEȂ̂Ńkf !9A ٲ#0""o/=&_Og*Yl_Si͏sѝyݞszNoF")#q߸@ašoI0o j q="!JЅPE"NULL4$1YB/#"?-(,{  |{Cݵs0o c I'"082 #t IsNull(.Item("charge")@) And <> "" Th en myString =B & ",=" & ~Els2e*M0"<Iffrequency ") E&With%QLk"UPDATE dbo.T_ProgressNet SET p=| WHE RE ID7myID)If DBExecute(e0)Fa Exit Func8tioRyUpdateDBForH$Tru  ErrMes: G@.NuPmberAw0M@sgBox  & vbCrLftADescrip'@S.Public2 InsertOr0( _AC$ByValCallSign 8As `@@s Long0On%or GoTo#@66DimResultADODB.RecorPdsetSomy = New S$Cs`"SELECTA FROM‡cABASENATMEO"c:='VBA.TrimA)A 'L-Get@0ʒ$7>Count' y'Ȃɂqbg0# }5cw7 1I'1 IDԍ %("IDtdGA ȏ -1iG[rj -1)jmBothqiiid }iiDBholle`CiBoolea` j?DB ? mvcDg1!cy)=2 j= l"b?2@_BID_DatabaseCc"Yf NoaoKj"1&@ ga}D IRc"qO }O H O  O @`pxeNo_Head u,_ _ MD9$" ")o o +21_,W    adda V o o a 2qE2p2"areaCodͭg 5 !~ReplaceuW, "-"@o`"U_ 'MoveAP ,g__\__VD 0 7pYkin]B#  | ? ? ?1 xN&&"purpos&V    fO d$$issueum x   R@Pmat(3P3.3/")y/mm/d#CsOes@"xjC + If Not IsNull(.Item("beginDate")) And \ <> "" Then myString1 = & ",b212 1'"Format(Replace, "."(/")y/m@m/dd")D'"mEIf~change~ 0@ FzIterm?0?;>""?>callsignLq}*>HnproductNo 4?x_xDiOgiteki D_Osyoni-MDfrequencyL2iopowerdn#eomem~C?  Q~?k2{7> UxyWithpQL@"INSERT INTO cDATABASENAME} (as1!) VALUpES (")`DBExecute(5)@ FalselExit Funct ioԎInsertDBTrue < ErrMes: 0.Number10LMsgBox H& vbCrLf`QDescrip? p @Public UpdDB( _ByVal ColleB As ,ID0Long s @Boolea  OnQ or G8oTope'UP@EȂ̂Ńkf SDim cPAclsPapDersSetq= New !%v=@ "bID=A&G`etBID"abase)s+cy &pa${D2"_ Qc[Y$?@PYex@108 R$ E4a?g!;,7NUL>L__Hea@ 0 OtSR? 3 address} "WПr@eaCodeVhBA.aT-MoveAugq0   (/?&kin(#  aI c d`  Ѵ If Not IsNull(.Item("purpose")) And  T <> "" 0ThenmyString =B & ",=" &AElse+ONULL"@IfissueDatn op"'sFormat(Replace2, "D."/")y/mm/dd"~)!k&D1estabFFFHCF̠"FbeginFFFHF_#chang1j #5߇# # H##term0Gd#l#% >#"?jB#"""callsig>n$%Ou productNo F %gitekiO syoS U !smy 1rY Count > 1  2ˆo^@Ă  t a ? 2Y>aI,O 0.Add&.Fields("typ`.4ue?1Z7-area")?;47`BRxaID) c_'shc|harg9{sm3%m9**))8e7(c<> eee@nEnd If  Function Public  CheckDB( _ ByVal myTable As String, >Fielld>u?>)!.LongOn Error GoTo MesDimResult3ADODB.RecordsetSet$= New '&xSQLd'#my = "SELECT COUNT(*) FRO`M " &5&WHERE q = '} '"UGetm(<) =l./`s(0).*my.Closec othmExxitF|Y@^[:[If @.Number <> 0 Thec@MsgBox & vbCrLf@FDescripA ReadMeNoΠAIDOkƏn Y'aIDԍ擾nCD["j*rmkstaA@Center.dbo.T_Ag@ C36C"s; M>fHj`Count !4?"Y'㗀l܂B(A??+NBlse> 13N"̥`BmFĂj,^=)dp"mT"qG Or IsNullzrn)Dk"CbUPo^@,O..#Mal_A0+ }?m _ rrÕ 3oiNexceTypbIg@`ޟ! K/Q= =P&q't` ƂɎ8tPHWh erzSelect Casep`sQB1, 2, 3, 4, 522 Z216p3p4f11mycPQ(A 1 OR 2345pxǤ5& "xJY2i2y25H\26_Z3Y3qY41)Q@7, 8, 9, 10017p7q36 *78910O N 1I 1I 773 EVG(c$ o_ m__Qre< bT_ProgressNetIS+@DER BY DES~CxbEOFlbA wPBVBA.LenWh k)68i  Left$/ .`@)ЍFormat((Righ(" 4)) + /"0"$a A t 9  = s_ e@M  u  ٽr 0ݏrr_ H__OroBcDruOEOEOEˆOEOE_W"Á1D#Fz[u]:&QAND [bIDSNFK = GetRes(mySQLString)  CheckMemberNomyult.Fields(0).ValueZ:Clos&Set .Noth^Exit Function ErrMesF: }If .Nu <> 0p The)M sgBox $& vbCrLf &Descrip_1End Ifk {Publi cF |ByID( _ZByxiBID As Integer,       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ]m_`abcdefghijkl\nopqrstuvwxyz{|}~Long  )%Bool$eaOn_or GoTo#MFalDim>ADODB.Recordsetb ew A)H!"SELECT COUNT(*) FROM rmkHsta`CeKr.dbo.T_Ag@"Mf& " WHERE [m]ArmySA AND [bIzD"BcI~D;ֻ@@"1bTrEÅ6v`'DataFromB8cC0fNamegIhcRefWCountkOByal`gColleYhZPZ*YSYPcAGENTDBNAMEZcV\& Vn "Y'Ys$Z'"#(> @IsNullID) AmsYe'W%2= NpCg:)<All `,fuE$OF ~my#S= 0ca mgKmy A)cDo UntiafCa30 W8ithp+ p.AddDS"ID"D, Q?P"_&?4Kxana"presidqm'728H??QV ^ {@2JS!!"personY3po0?deG??addsk"Y__areaCoZ &tel|No Pxack2f 0MsgBox & vbCrLf`Descrip` 1G@Publicf @InsertB(A&ByVal@ColleB As ,Ref .Lo` 6)@Boolea@'  Onor GoToA@&E.C&Dim cP! clsPaperSet= New KAh8aN' B12[WH" 2 G etJ@HDatabase)ca*)>Not IsNull(i@@No")(7yC""C g&@f g 2A,'/ D qCP. p ׂ1b ? ? ;J 1Cdg0 ngw 2   d H1x x 0  / / - ?&G? 9 O _ _ :Csv 2X/Q_'ߙ''"ץ ___CV???)O>?$`++ ? ??~g`\9|_mຜRE_$ c  Rp(* ]*? ? > ?FW?F0FJ V    w ?6=6Sd ssez@hen myString1 = X& ",addressKPana"2f2 f'" .ItPem(" ~):'End IfVIf Not I@sNull(AreaCode")) A0 <> "" T)Յ)2iHgtelNo f d1c@ldfax00C00emaila0C00memp0O|$a|With QL@"INSERT INTO rmkstationCenter .dbo.cAGENTDBNA0ME _ () VALU`ES ( iB)`DBExecuteGetID(,ID) FalselExit Funcc)Insert Ag Trued ErrMes:   .Number80MsgBox & vbCr LfDescxrip` GPublicf DataFrom(Cli(,ByVal!BID As I2ger,Name#;Ref`CountOB 0LongA s Colled- On or GoToA@(%(Dim SKC,<3"SELECT @* FROMAOSSOCLIvOWHERE [bID]SA 0myA%&OAND [n@"@B|my$ Ů?my!O!!@c_IDET Resul"ADODB.Reco rdsetCSetD= New~ `|$04)SW!9q3Allo ak's 0my .EOF5)= 03 (0hks3myz C C f B43Do Unti9  a1WYM.Add .Fields(@"ID").Aue, q?1typVa4 &pidQ_72/nt2ذ_6V _ _ ^ @_  ("personYpop>a!H??k"Y__aV &?DPack7Ĵ$waQILU DFK MoveNex$mLoop_c[[ _[ ;S f____Q _37 As Collection, _  ByRef myID As Longd)0Boolean On Error GoTo1Mes.InsertClient = FalseDim cPclsPapDerSet=` New 2myBInteg4= Get(myDatabase)lmySQLStriͷ  1I2 *= "bID6"( 2yIWi "" The N& ",%7, ", & E"IfI.nam .0..'H.D3'h/Kana _A12D3presid 4/?[D1C",_2"3ic22FNeaO~Nhc>* 8x8gnv: ;ng1 4? ? < ? ? = 5? ? = email|4? ? < ? ?? = 5? ? = mem$#      qe`ۀINSERT INTO r,mkfaC er .dbo.cCLIENTDBN8AMEA p (e) VALU`ES ( q)ğ9DBExecute`IDF,ID)`xRExit FunC|TrudY| :f .Numbe rA0MsgBoxI& vbCrLfUDescription End If  HFuncPublic @ UpdateClient( _xByVal myCollepP As , PIBD@Long) Boolea On Error GoTo Mes'UPDATEȂŃkf = FalseDim cPkclsPapDerSet =` New myBWInteg = Get(myDatabase)6mySQLStris  With o~(=,& "type=" & .Item("D,na2m "'HA")@@KanaApresid@p22NMs? , 33 ? & rea3a$ e telNofaxemailomemkaEɢ= " rmkKCer.dbo.cCLIENTDBNAMEɡQ SET WHERE [ID]bmy$AND [b'`CIf DBEx`ecute)ae Thed ExitCAqTrur:r:$`.Number <> 0 MsgBox & vbCrLf Descri_  ll0prN ll0 prN ll0 prN ll0 prN ll 0 prN+'' ',:\!NLL 6L, pr/krpz/$   ll'' ',   l# *#  , l*FL 2)6L, / ,\lt0 L, AHl CtlCplCllCh-K%d$ flh*#P*#Dll*#T*#H&lt*#`'*#\lp*#X(*#Ld$ P2`\XTPLHD dVx/$< @@  l<@;l'''< @@  l<#` *#X\ 88 , l\*F( 2`X\)@86(/H<$xhtdplD`\XTPLHD@8( l Ct-Klvvvv,Qlp )hpVlh (*l$'H%ltFX%h * lhx/$D ll  lDll'''D ll  lD#@ *#48 << , l8*F$ 2@48)l<6$/ 4xhpt0 @84l<$pl CtKypzlvvvv,Qlp#l'Lltp$ @l5L p$ < c=ppz/$H ll  lHl l'''(H ll  lH#D *#8< @@ , l<*FL 2D8<)l@6L(/ ,pt0 D<8l@L(l CtKpzlvvvv,Qlp#l'Lltp$ @l5L )H,l'L+p$ @ll=,Hl5L;LD:\-%lH T*l (.D 4/L")lD5L p$ < c=ppz/$@ ll  l@lyl'''$@ ll  l@#< *#48 DD , l8*FL 2<48)lD6L$/0Hpt0 <84lDL$xl CtK )p(d0lt*#l1*#h0Qdp2lh`p h*l`d qx`p h*l`;<L:P2%dp T*d (.L 4/<"qx)dL5< qx c=,p/$` dd  l`dkl'''(` dd  l`#l *#8h LL , lh*F< 2l8h)dL6<(/x,pt0 lh8dL<( l tKpz ltd^4:T3NDDd 44 5:$3Nd 4:]<'6 D43Cl&4:T3NDDd 44`1h6D4^4:T6NDDd 44 5:$6Nd 4:]<'6 D4N ll7*1l8lh8*F4:T6NDDd 44`1h6D4^4:T9NDDd 44 5:$9Nd 4:]<'6 DrU %p80( /Ѱqe&&!AI& IHi)-qHw xixxyqyy!zqzz!{y{ | ,a/ɲi e a9bъ)q|Qyɶ)i #QiINѸ!Iyٹ AQiɷ I!Q1q9a Y!Q1i I I9q!Q 9 IYa!a Y1Q Aq 1)QA !9ɅIq IA q9q 9yAiQa Q!1i I 9y!Qq dA)/(@4)) $W$$$$W$$$$W$$$$_$$$$_$$$$_$$$$_$KPpzpvvvv,Qpt t$ < c=tpz/ $l pp  llp'''  *#h *#dl pp  ll#`*#\ *#X *#LP TT , lP*F< 2hd`\XLP)pT6</ / (t@ hd`\XPLpT<-KCx tdhl+rt l |h 4ldq`)lhl`+''' :PN@@ 6@ / l`Cxl`Cxl`Cxl`Cxl`Cxl`1Cxl`JCxl` cCxl` |Cxl` Cxl`  Cx+''' :P!N@@ 6@ / / $d ll  ldl}l''' d ll  ld# *# hh , l*F@ 2)lh6@ / ,\xt0 lh@ 4-KCx "tpt $#>p  p lpv=/p+'''0:`$NPP 6P0/vCx/$   l(l'''0   l#p *#  , l*FP 2p)6P0/ 4,xt0 pP0\l CtK`ltCl ll0,prN ll0CprN ll0ZprN ll0qprN ll0prN ll0prN4 ll:*1l8lh8*F4:T9NDDd 44`1h6D4^4:T;NDDd 44 5:$;Nd 4:]<'6 D4 ll<*1l8lh8*F4:T;NDDd 44`1h6D4^4:T=NDDd 44 5:$=Nd 4:]<'6 D4E ll>*1lClh?*F4:T=NDDd 44:$1`1h6 D4^4:T@NDDd 44 5:$@Nd 4:]<'6 D4H llA*1l4:T@NDDd 4BC4 D1lh?*F:$EN>F F:1`1h26D4^4:TGNDDd 44 5:$GNd 4:]<'6 D4 llH*1lClh?*F4:TGNDDd 44:$1`1h6 D4^4:TINDDd 44 5:$INd 4:]<'6 D4 llJ*1l8lh8*F4:TINDDd 44`1h6D4^4:TKNDDd 44 5:$KNd 4:]<'6 D4? llL*1l8lh8*F4:TKNDDd 44`1h6D4^4:TMNDDd 44 5:$MNd 4:]<'6 D4 llN*1l8lh8*F4:TMNDDd 44`1h6D4^4:TONDDd 44 5:$ONd 4:]<'6 D4 llP*1l8lh8*F4:TONDDd 44`1h6D4cd*Qll*#R*#lh*#S*1p2lp4k/pz/$   lzl'''4   l# *#  , l*FD 2)6D4/ 8 dtlph@ D4P l tKpzCl lth8llT*F(8:X3NHHh 48`1l6H(88llU*F(8:X6NHHh 48`1l6H(88llV*F(8:X;NHHh 48`1l6H(88llW*F(8:X9NHHh 48`1l6H(88llX*F(8:X=NHHh 48`1l6H(8^8:X@NHHh 48 5:@N((h 4:]<'6 H8(68:X@NHHh 4BC8 D1llY*F:EN>F( F:1`1l26H8(D llZ*1lMll[*#1*F(8:XGNHHh 48:1`1l/6 H(88ll\*F(8:XINHHh 48`1l6H(8^8:XKNHHh 48 5:KN((h 4:]<'6 H8(d8ll]*F(8:XKNHHh 48`1l6H(8r ll^*1l^8:XMNHHh 48 5:MN((h 4:]<'6 H8( 8ll_*F(8:XMNHHh 48`1l6H(8 ll`*1l8lla*F(8:XONHHh 48`1l6H(8ch(bll*#c*#l#*1p2lp4k/pz/$   lDl''('8   l# *#  , l*FH 2)6H8(/P4hltp@ H8(l CtK  )pEde*#hf*F8tMX@H gH(:1`1l/h68H(ll0Qpp h*l qxp h*l;H:X2%p T* (. 4/H"qx)5H qx c=,p/$   ll''('8   l#h *#  , l*FH 2h)6H8(/ 0plt0 hH8(( l tKpzhClfv(kf1h lt`^0:P3N@@` 40 5: 3N` 4:]<'6 @0 lli*1l8lh8*F0:P3N@@` 40`1h6@0^0:P6N@@` 40 5: 6N` 4:]<'6 @0 ll7*1l8lh8*F0:P6N@@` 40`1h6@0^0:PjN@@` 40 5: jN` 4:]<'6 @0% llk*1l8lh8*F0:PjN@@` 40`1h6@0^0:PlN@@` 40 5: lN` 4:]<'6 @0 llm*1l8lh8*F0:PlN@@` 40`1h6@0^0:PnN@@` 40 5: nN` 4:]<'6 @0x llo*1lClh?*F0:PnN@@` 40: 1`1h6 @0^0:PpN@@` 40 5: pN` 4:]<'6 @0G llq*1lc0:PpN@@` 4lh?*#r0 D#*#1*1h26@0^0:PsN@@` 40 5: sN` 4:]<'6 @0 llt*1lClh?*F0:PsN@@` 40: 1`1h6 @0^0:P9N@@` 40 5: 9N` 4:]<'6 @0 ll:*1l8lh8*F0:P9N@@` 40`1h6@0^0:PuN@@` 40 5: uN` 4:]<'6 @0> llv*1l8lh8*F0:PuN@@` 40`1h6@0^0:PwN@@` 40 5: wN` 4:]<'6 @0A llx*1l0:PwN@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:PyN@@` 40 5: yN` 4:]<'6 @0D llz*1l0:PyN@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:P{N@@` 40 5: {N` 4:]<'6 @0G ll|*1l0:P{N@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:P}N@@` 40 5: }N` 4:]<'6 @0J ll~*1l0:P}N@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:PN@@` 40 5: N` 4:]<'6 @0M ll*1l0:PN@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:PN@@` 40 5: N` 4:]<'6 @0 ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0 ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0Z ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0  ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PON@@` 40 5: ON` 4:]<'6 @0 llP*1lClh?*F0:PON@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0g ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PGN@@` 40 5: GN` 4:]<'6 @0 llH*1lClh?*F0:PGN@@` 40: 1`1h6 @0c`<e*#*#ll*#R*#lh*#S*1p2 flp4kfz/pz/$   ll'''0   l# *#  , l*F@ 2)6@0/H e (8 `tlphH@0 8 l tK pz pfv(kf#`*1h/` lt\8lh*F,:L3N<<\ 4, `1h6<, 8lhU*F,:L6N<<\ 4, `1h6<, ^,:LlN<<\ 4, 5 :lN\ 4 :]<'6 <, O8lh*F,:LlN<<\ 4, `1h6<, ] lh*1h^,:LjN<<\ 4, 5 :jN\ 4 :]<'6 <, 8lh*F,:LjN<<\ 4, `1h6<,  lh*1hMlh*#`1*F,:LnN<<\ 4, :1`1h/`6 <, l,:LpN<<\ 4lh*#`1*#r, D#*#1*1h2 `6<,^,:LsN<<\ 4, 5 :sN\ 4 :]<'6 <, Z8lh*F,:LsN<<\ 4, `1h6<, h lh*1h^,:L9N<<\ 4, 5 :9N\ 4 :]<'6 <, 8lhW*F,:L9N<<\ 4, `1h6<,  lh*1h^,:LuN<<\ 4, 5 :uN\ 4 :]<'6 <, 8lh*F,:LuN<<\ 4, `1h6<,  lh*1h^,:LwN<<\ 4, 5 :wN\ 4 :]<'6 <, ,:LwN<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:LyN<<\ 4, 5 :yN\ 4 :]<'6 <, ,:LyN<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:L{N<<\ 4, 5 :{N\ 4 :]<'6 <, ,:L{N<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:L}N<<\ 4, 5 :}N\ 4 :]<'6 <, ,:L}N<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:LN<<\ 4, 5 :N\ 4 :]<'6 <,  ,:LN<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,   lh*1hMlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlha*#`1*F,:LON<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh[*#`1*F,:LGN<<\ 4, :1`1h/`6 <, c\:e*#`*#lh*#c*#l#*1l2 `fll4kf /pz/$   l- l' '',   l#` *#  , l*F< 2`)6<, /48 8 \phtlH`<, , l Ct-Klt*#l1*1p/l )hdlp0Qdh `^h P*k^+''':LN<< 6< c=4` l`x/h h*l+''':LN<< 6< c=4` l`x/ l`W<:L;%dh T*d (. 4/'':,;N< 4)d6<W<:LO%dh T*d (. 4/'':,ON< 4)d6<W<:LI%dh T*d (. 4/'':,IN< 4)d6<W<:L=%dh T*d (. 4/'':,=N< 4)d6<W<:L@%dh T*d (. 4/'':,@N< 4)d6<W<:L3%dh T*d (. 4/'':,3N< 4)d6<W<:L6%dh T*d (. 4/'':,6N< 4)d6<W<:LK%dh T*d (. 4/'':,KN< 4)d6<W<:LM%dh T*d (. 4/'':,MN< 4)d6<W<:LG%dh T*d (. 4/'':,GN< 4)d6<c l`x/$ dd  ldl''' dd  l#l *#  , l*F< 2l)d6</\ ,<$xh`tp0 ld<dl CtlCplClK )h<lt*#`*#\lp*#X*#Tll*#P1*1d2 `\XTPLld0QLh;(8(<%Lh T*L (.8 4/("qx)L85( h * c=,h/$$ LL  l$LXl'''$ LL  l$#` *#X\ 88 , l\*F( 2`X\)L86(/d8 hptld8 `\XTPL8(-KCxl #p*1t/p )lhlt0Qhldl h*ld+'''$:TNDD 6D$/dl h*ld+'''$:TNDD 6D$/dl h*ldD:T%hl T*h (. 4/D:4]/$:%l T* (. 4/ 5)h6D+'''$:TNDD 6D$/:D:T%hl T*h (. 4/D`1x)h5D/ l * c=,l/$d hh  ldhl'''$d hh  ld#p *#  , l*FD 2p)h6D$/e 0xlt8 phD$-KCx k $/k prkrkrkrkrkrkrkrkrkrkrkrkrkr kr)*#l*1t/l4\kr#kr#kr#kr #kr #kr #kr #krG#krH#krI2 *1t4 )h!*#llt*#`*1d2l`\ld0Q\hZh P*kZCxP4D:H=%\h T*\ (.D 4/4$ $(]3)\D64$4D:H=%\h T*\ (.D 4/$:=%h T* (. 4/$` # t4l F:Nok F`1x2l`)\D64$P4D(H%\h T*\ (.D 4/4$ $( ]3)\D64$4D:H=%\h T*\ (.D 4/$:=%h T* (. 4/$` # t4l F:Nok F`1x2l`)\D64$ h * c=,h/$ \\  l\l'''$ \\  l#l *#` DD , l`*F4 2l`)\D64$/ 4xxhdtDl`\D4$LK )t8*#ll#h*#d*#`k #\*1p2 lhd`\Xlp0QXt;4D(H%Xt T*X (.D 4/4"qx)XD54 t * c=,t/$0 XX  l0XBl''' 0 XX  l0#l *#dh DD , lh*F4 2ldh)XD64 /L,tp8 lhd`\XD4 |Kpz )tQ*#ll#h*#d*#`k #\*#X*#Tl#P*1p2lhd`\XTPLlp0QLtA(8(<%Lt T*L (.8 4/((]3)L85(pz t * c=,t/$ LL  lLql''' LL  l#l *#dh 88 , lh*F( 2ldh)L86(/|,tpDlhd`\XTPL8(@ lCt-KC*#l*#hk #d*#`*#\lt*#X1*1p2 lhd`\XlMH@ 5Àlp*#l#h*1p2lh )D@lp0Q@D 86D P*k6 c=48 l8x/0D h*l06D P*k6 < l<,W(:H2%@D T*@ (.( 4/'':2N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hn%@D T*@ (.( 4/'':nN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hp%@D T*@ (.( 4/'':pN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:HG%@D T*@ (.( 4/'':GN, 4)@(6c,7'''l<@@MH @8 4l@=4<@6 D * l8x/$0 @@  l0@3l'''0 @@  l0#l *#dh (( , lh*F 2ldh)@(6/@@(x,D8<tp< lhd`\X@( l tKpz plv(klpn lt`8ld*F 0:PN@@` 40`1d6@ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PnN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PpN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld[*# 1*F 0:PGN@@` 40:1`1d/ 6 @ 0c`S*# *#ld*#*#l#*#*#kn#*1h2 llh4kln/pz/$   ll'' '0   l#  *#  , l*F@ 2 )6@0 /8 `pdthH @0  D l tK pz phChbv(kb1d lt\^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, O lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, \ lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,   lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, i lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LnN<<\ 4, 5:nN  \ 4:]<'6 <,  lho*1hCld?*F ,:LnN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LpN<<\ 4, 5:pN  \ 4:]<'6 <, v lhq*1hCld?*F ,:LpN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, % lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LGN<<\ 4, 5:GN  \ 4:]<'6 <, 2 lhH*1hCld?*F ,:LGN<<\ 4,:1`1d6 < ,c\<*#*#lh*#R*#ld*#S*1l2 blll8kb /pz/$   l: l'' ',   l# *#  , l*F< 2)6<, /D <$\pthld@ <, @ lCt-KC*#l*#hk #d*#`*#\lt*#X1*1p2 lhd`\XlMH@ 5Àlp*#l#h*1p2lh )D@lp0Q@D 86D P*k6 c=48 l8x/0D h*l06D P*k6 < l<,W(:H2%@D T*@ (.( 4/'':2N, 4)@(6W(:H;%@D T*@ (.( 4/'':;N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hn%@D T*@ (.( 4/'':nN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hp%@D T*@ (.( 4/'':pN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:HG%@D T*@ (.( 4/'':GN, 4)@(6c,7'''l<@@MH @8 4l@=4<@6 D * l8x/$0 @@  l0@3l'''0 @@  l0#l *#dh (( , lh*F 2ldh)@(6/@@(x,Dt8<p< lhd`\X@( L l tK pz plv(klpnhCdlv(kl1` lt\^,:L;N<<\ 4, 5:;N  \ 4:]<'6 <,  ld<*1d8l`8*F ,:L;N<<\ 4,`1`6< ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, W ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, d ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, q ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LnN<<\ 4, 5:nN  \ 4:]<'6 <,   ldo*1dCl`?*F ,:LnN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LpN<<\ 4, 5:pN  \ 4:]<'6 <, ~ ldq*1dCl`?*F ,:LpN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, - ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LGN<<\ 4, 5:GN  \ 4:]<'6 <, : ldH*1dCl`?*F ,:LGN<<\ 4,:1`1`6 < ,c\<*#*#ld*#R*#l`*#S*1h2 lllh8kl /pz/$   lB l'' ',   l# *#  , l*F< 2)6<, /L <$\ptdh`@ <,  l tKpz plv(klpn lt`8ld*F 0:P;N@@` 40`1d6@ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PnN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PpN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld[*# 1*F 0:PGN@@` 40:1`1d/ 6 @ 0c`S*# *#ld*#*#l#*#*#kn#*1h2 llh4kln/pz/$   ll'' '0   l#  *#  , l*F@ 2 )6@0 /8 `pdthH @0      0,$`%i 0,$`)i &@$`- i   = 0A$`1 =! ,$`5 #0$` 9 A (#0$` =Y y (4A$ `A#8$ ` EA #,$ `IY(4 $ `M#8I$ ` QA #0$`UY =8$`Y  y(, $`] 0,I$`ay 00$` e  (8$`i  A #@ $`m  1 A &=8I$` qA #8$` uA (#@$`y I 1 A &=8 $` }A (#8I$` A #nrU '!91qri)qIisفI9I&Q&&) aYqA)q(@4)) &W&clsFilew^w\__SRP_26Q __SRP_27uoclsFormS   8 "X  *&0(X"x*&$, $P,x",&8(&`"$$  .(JX082JH4@,:@$ 6 : 60 2h BH 6 .8 6hH$B   Z  @@ H ` Z(    * >  PP , <   $ 0 0 X 85 0 85 * (  X z^GP GetOpenFileNameA <GetSaveFileNameA<;6H֛*=h8+3q[)I.5$x[)I.5$;6H֛RRLLME(8 SS S Hd >"L<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} @d  hf 0hh Hhj `hl x hn sterhp Xhr ht hv (hx $$hz ((̃nh| 8,,( h~ P00Xh h44( h 88xh ::^h <<(h @@TCh DD(h HHXB PBB HBB xBB BB B B B %+ pX ) xqA %+ (p( ) A %, `p k(%%7i H ih i 0 $@ %`` h ,|`X4k FF\i  $i@ i $x@ %` `  ,~p`P4k$EEi  ii $P@ %` 8 ,`Do(i  i P ` p,`(kH,i hi `\rH` l`h%B (BB  BB BB pBB BB C H pPp(xx (  ( ( @ h `  xP ( x  ` t ` `p` t `p` t `p` t `p` t `p` t `p x   `A %X \ @ @ @  %` t `p` t X `p8  @ ` t p `p@ (h|`|@ x` t`p ( `X ` t`pA % f \ ` t`p p X p@ X X @ @( @@ @X  @  %` t(.`p` t`p@ x@8 p @ &( @ @  ` t(`p` t`p@ht @Pd @T @D @4 h~`~x` t`p( `` t`pX8p` tA %8f \ @P @h @  %` th` t@  @ @ @   . ` t@ ` te` tk &( @ 0@@ @Xt @pd @T @D @4 h`xH` t` th~0` t` t@` H@\ 0@L @H XpxH@D Hh`xT` t` tp@8X @H (@ 8  nP @(  @0r,P $*\Rffff*1E50dc2c74(*\Rffff*1E50dc2c74\0*\R0*#19*\R0*#1a*\R0*#13*\R0*#11*\R0*#14*\R0*#9*\R0*#f*\R0*#e*\R0*#f41,` ,p       B$ H @X ` p  x   "   4   <(fCh .   2(  H X  :`'     "      8" P  x,   8 06G X &>`   ",J,+@H PB$X Hp        "( P  4`   <lC .X   2     :'(  @ P  "X      "   ,   8(`hp 0x.%   " $%Hpx,+ B  0 *"H `hp  x    < $   8P X` hB p  B 2 BPX` hp x   ,)"2  ( 8 H ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX$ݒ肷OPENFILENAME\^D(\̂̃TCY^D0(eEChẼnh^DH( W[̃CX^Xnh^D`( tB^[^Dx(JX^tB^[`^D(JX^tB^[̃TCY^D(tB^̃CfbNX^D(t@C̃obt@0^D(t@C̃obt@̃TCY^D(tpXp̃obt@ ^D(tpXp̃obt@̃TCY^D (fBNgw ^D8(_CO{bNX̃^Cg^DP(萔iOFNQ~~QƁj^Dh((tpX̒̃t@C܂ł̃ItZbg^D(gq܂ł̃ItZbg^D(ftHg̊gq'^D(lpfnHookœnf[^^D(tbN֐̃|C^ ^D(ev[gp]D1t@CI”\ɂ]D (18w̃t@C݂ȂɃbZ[W{bNX\ ]D1݂Ȃt@C͓͕s]DP1&ǂݎp̃`FbN{bNX\]D 1 ̃TufBNgIs]DH18ǂݍݐpt@CƏ݋֎~fBNg̑Is ]Dx1"t@C̗L`FbNȂ ]Dp1.̃t@Cw肵ɃbZ[Wo]D1LȃpX‚ ]D1(ǂݎp̃`FbN{bNX`FbN]D1wv{^\ ]D0------------------------------------------------3ut@CJvR_CO\API֐ 0------------------------------------------------,<>@@@pOpenfilename:OPENFILENAME\<<߂l>@@OK{^1ALZ{^0   0------------------------------------------------(t@Cۑ_CAO{bNX\0------------------------------------------------   S-----------------------------------------------------------------------------------֐ OpenDlg:pr ut@CJvR_CO\A nHandleFEChẼnhAnFilterFtB^[Y߂l t@CIꍇ̃t@C̃pXALZꍇ""߂S-----------------------------------------------------------------------------------]0OPENFILENAME\]0߂lh - \̂̐ݒ  9 MOr OFN_SHOWHELP%9j 0.AvP[ṼCX^X̃nhwJ .hInstance = App.hInstance 'CX^Xnhݒ9h 0eEBhẼnhwt@CJ9~ 0 R_CAÕ^Cgݒ 9l 0tB^[ݒ 9f 0\̂̃TCYݒ9v 0"t@C̃obt@̃TCYݒ$ $\9x 0tpXp̃obt@m۬9z 0"tpXp̃obt@̃TCYݒ$ $\9t 0t@C̃obt@m 9| 0ftHg̃tH_̐ݒq $ ' ,LZ̏ ' d,OK̏ !t ' k(i    BOtĕۑ_CAO{bNXJA擾t@CԂXMLt@Cp]`]DD  \̂̃TCYݒ 9f eEBhẼnhw9h .AvP[ṼCX^X̃nhw 9j 6t@Cp^[ݒiw肷ꍇ͑ċLjXMLt@C(*.xml) f*.xml fׂẴt@C(*.*) f*.*9l (DIɕ\tB^̃CfbNX9r t@C̓e $ $ \9t 2 oCg9v 3t@Cobt@̐ݒ(NullŖ߂Ăj>--$ $ \9x  oCg9z ftHg̃tH_̐ݒtiveX 9| _CAÕLvVOtĕۑ9~ flags̓̐ݒ   9 [wq $ '  2LZ{^ꍇiN[YEG[j'|zd*ۑ{^ꍇit@C擾j !t !t f % $ 'k  .xml & % .xml'$4 kX ꉞgqƍĂSAVE/p p $ .xml %Z '|d "t@Cw肵ĉBA@('|k i   BOtĕۑ_CAO{bNXJA擾t@CԂeLXgt@Cp'@ ]8]DX0!2 \̂̃TCYݒ(v 9f `eEBhẼnhw`9h .AvP[ṼCX^X̃nhwT_Pr9j WHERE 6t@Cp^[ݒiw肷ꍇ͑ċLj3SEeLXgt@C(*.txt) f*.txt fׂẴt@C(*.*) f*.*9l qb(DIɕ\tB^̃CfbNX19r t@C̓e $ $ \9t q oCg9v 3t@Cobt@̐ݒ(NullŖ߂Ăj$ $ \9x  oCg9z ftHg̃tH_̐ݒ' 9| _CAÕLvVOtĕۑ9~ flags̓̐ݒ   9 q $ ' 2LZ{^ꍇiN[YEG[j'~zd*ۑ{^ꍇit@C擾j !t !t f $ 'H k  .txt &7 .txt'F kꉞgqƍĂSAVE'H $ .txt '~d"t@Cw肵ĉBA@('~k@i8p *t@CbNĂ邩ǂ𒲂ׂ]#t@C݂Ȃꍇɂ2ԂH  $ ~e7'zk$' $p  5G[ȂibNĂȂjƂ0Ԃo 0 V'd1G[ibNĂjƂ1Ԃ'ki <************************************************************ounts, pXt@C(gq܂)o <************************************************************harge]]]'\' \ freq_h \ '\  \ $' $\    $''H 'd'k $'NeimAttributeVBFrame500000000000M|aafo0 VB_Name = "clsFile" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ Option vlicit 'ݒ肷OPENFILENAME\ L P| T9   lStructSizeAs Lon g'̃T?YhwndOwner eELhEn@InstanGW@^CX^Blpstr@O6i1'tB^[ C~ JA€ nMax M1PnCIndex--?fbNX_0n`=@`ot@O8  /eTit@y"pXpInitialDiR f`@(gw) O{0 ^@+gDZflagsB萔iOFNQ~~QƁj21OffsetIntegmXB!p̒9;TI6ZgH Extens N gqƂ;Def`i;fHkg ladD`FlpfnHookœnf}}^$RC@b(֐|`!ſݢ`Levg p EndbAeC o@ @6_ALLOWMULTIS ELECT&H200$'@!"fI”\ɡg CREATEPROMPf ` 'AT<݂ȂɃ@=Z`WeR\q !MUSTEX$IS10 ' C͓ ͕sN_HIDE DON4LY4tc'ǂݎ萢b?`F N  trNOCHANGEDIR8 LTu = 5 RETURN& 6Ə݋֎~̿wNOVALID?R A@pOpenfilenм:߂蒒lOKS!1AL PZ{PDc FuncqGetkULibomdlg32.dll"` ias "A" ( _] ] A)^_5ЕۑA{r!}Y'G)etSave|Al5 ?$? 8PubGDlg(ByVal myFoldLervp, ilr16?91=$ p~/7/7f' 3 nHandleFoApc5?Aa58XЯ66"" `T!  PDim OFN As OPENFILENAMEh ' @\RetLongx('߂l :With 4'p̐ ;2.flags =C_PATHMUSTEXIST OrHIDEREADONLY 'SHOWHELP/4hInstance60&='AvP[ṼCX^nhwd'#.0App54' '& hwndOwnerV@eEBB$E&&lpstrTitlA?"t@@!0J"AG''R_A@AO^g;L(Filrt(myC'B^[StructSiz%Len*()M T"YnMax@250A"=Ė5obA@7eEM*ing(@, Chr( 0)A*pXpmȞE()̔=&@D" - InitialDiN :olderNameE( 'f&HgTt!_)zExnd = GetOpenA5 =If 0 Then 'L TZ!ȐC  Dlg"vbNull#Els 'OK U.0 If!Function Public  Save( _ByVa\l .C,ile3F!)! 'OtĕHf{{@`NX𠀫Ap擾)blA:Ԃ XML%pϊ:!lng!a'DIɕ\%bwf) C Indtex=1Ne'';@74T& 3$@^6B^$Q^'oQ@2gG.h6 Ph1T(JŖ@CKi 0 >  wi_ `__\_P sOdDdh HP]vSGs5 "M`%1r̓???:4Zr@__ԧOVERWRITEPROMPT.pTPp_p_J qVqhp3\Skq@iN[Y@EG/$1P0"HEx|itvjAsHrd{Jcdx6= Left$(*C! n@VBA.In9trGK) - 1T^x 1,v?, "!P",PTextCompare)M &$'ꉀgq@I ƀZ0>S8AVE (Righ7, 4) 1 w$ MsgB@ox "P}0ĉYxB!<# $ Q_&_Z&_R_O__UYe6XgQ;0 P0ghTCY@ݒ .lStructSize = Len(tOpenFileName)$'eEBhẼnw hwndOwHner0&AvP[VMbCMX^[Instanc[t@p ^_}iTꍇ͑ċLjS.lpstrt`"eL Xg+(*.txt)" & vbNullC(har" " _%=ׂo%*$*" #'DIɕ\FB^%fbN4X.`Inhdexa1G'4̓eλC\myŇ;ing$(256, Chr$(0)odgnMax?A&@GI'h@=o9N ́(_ŖDURqeTitlA/?,,V-f@UHfgyA_WA,7UInitialDi@Wolder G'_@QAbO@Lϖ ("OtĕۑJE flags @#+ b4OFN_PATHMUSTEXIST Or FILE_HIDERE@ADONLYOVERWRITE@PROMPT]End With@lngRet`GetSaveORCIf 0 TXhen'xZ`3{ igYEG@[IText ")Exit Functio Elsve!/QĀCp擾 hmft$=A,)In@]) - 1dvA/If(c1, , "",!Compare)!M-=&D I#'ꉞg*q@` {SAVEC`a(Righ" , 4)118g 7MsgBox "D#"`ĉBA, %E !EPublicG TesMLock(%;ByVal s= As  )LongCCap 邩ǂPׂDim4 ioDpȂA3ɂ2EԂgL$( !""8)#2+4 w = Fr eA(+ On Error Resume N:/cSFBi`nary qPaGrite#T 'DA; CawPjƂ0\ o2 V GoTo 0aClose {qF ~ U 1Y  Q0ԄA-{-Extrac-!,-Path--.'*$ X`WEg=(G܂)@o-_S6%IntegerWWrk<=O?iA%f= #Gc9\Q\") > y=[Do1i8 + a = Mid(wAeieQLoop Untilft(V,h@ "\T_ ) 2( '@us[3[a ,Trim(,=1a&&&Pl CtlCp-$q 4   T0 lpT L  5    `#T$/6 (5    `#T/6 ltT, q,$^q<$ lq l 9 CxCl@Cx/ PpXxi0 :@N`` p `t $i   t  qqDl CtlCp-$q L  C*#*#*#*# *# *#T 2   2lp F #*#T25  ' F #T$/5 ( ltT,  T0 4 q,$^ q<$ lq l sCx/G'd:N@M@T T(D4"l@ 1p6dT>:tNddpM@(T T(D]36dT lp*1pJlp 1:Ndd>FT T(]3/6dT_lpCx+'4'T'd:N 6dT4Cx/ HpXxi0` ]<  p t $i  )t6`4  dT4qq8l CtlCp-$q L  C*#*#*#*# *# *#T 2   2lp F #*#T25  ' F #T$/5 ( ltT,  T0 4 q,$^ q<$ lq l sCx/%l@l@ 1plp lp*1p%lp #/lpCx,+'4'T't:N 6tT4Cx/H8pXxi0 p t $i  4  tT4qql Ct"tM`@ #\0/\< qx/'L qp5LKltlp] $D HH lDHKlp= qxK qx/ 8(t\HLP l Ct-prChlt krpr,'8ltJkrtMX@( (`1l68()lMX@8  8:H]35882'8ltJllJtMX@( (`1h68(lhCxCxxMX@8 8`1x58/ T4xlht8(8rU &@,rpA4,is(pA40&` i00A&` !i00&` %i0,&`)(,&`- 0 qnrU "@("`#,A"`!9  #("`%#("`)#8"`-XX@< r,P (*\Rffff*1<50dc2c74\0$*\Rffff*1<50dc2c74$*\Rffff*1C50dc2c74*\R1*#10b$*\Rffff*1550dc2c74*\R1*#129*\R1*#1e$*\Rffff*1850dc2c74*\R1*#91*\R1*#c6*\R1*#c1*\R1*#17b4   8 "X  B *)08 @BH `*h " "0&B- ( "8 "` 0 &B B |E1f<= NAqSQ).*=h8+3q~C^e Tx~C^e T= NAqSQ).ME< SS S)L" ">"L LL<TN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}`,``Pk@  i  ,`pk i (  cFormi  ,h`hbk( $ &i  Rt` %, ` pk (2i  Lp! %,h`P nk(, A) HP$ `%i pii ', 0`pp+4Ki i ,``pkp0 ) `%i 'H i NTO , `v+8i 8ighti t reX%0h`%X@(h 삷`z t=Tr ` tl0@t @p p@` @P (x@h `z R(h(` t  @t (@p @` @P @ @ @P0 @8 X@ @ H p X 8 h ` z H  @ p @l @ h  @dO  @b     h ` z  H @8 x @v p  (  hh`h z0  ` t ` t` t` t` t (@p ( b n @n h ` z` 8 ` t p @p ` t 8` th`P` t``x` tp 8 8 P 8p8  @t b h @p h ` x`8@v x88x8P/  0@ HX `Bh x   B,   0 8@ HBP h p     08 PX px   " "    @H ` h   $ $ 08 X`   " " $ 8$@ h p "       0 "8  ` h             $  ( $0  X &`   &           0 8  X `                   @  H  h *p   .   .   .  H 2P   &   $     $ 8 @ `(h * * * 8*@ p*x      @H PX `B$h     B    0 8X `     0 "8` "h      (H $Px $     "(P "X $ $  "8 @X `  "    (H Pp $x $ & &0 8X `      (H Pp x   * . P .X . 2 &0 $8` h $  ( *@ *Hx * * *  (@ Hh p    ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/  webmaster@hyperdyne.co.jp y@z Dim cForm As New clsForm ' !8!   !8B@k'i `' !8! x擪ɈړĂAی삷NoReset=Trueœ͕ی ! B@    l !8B@ !8! ep p 擪ɈړĂAی삷D NoReset=Trueœ͕یL ! B@    l !8B@k0k('i']H R !8!X R!: R(:0k RI'ih' $zhk`].L L!z0k(.L' i   bKT  $ 'hS'hnipurp  ݃ev[gKT' ݎw肵ĂKTe' ݋LNNKTurpose' ݋LNKTate7' ݋LNKT' DBo^KT' ݐiDBo^KT' ݈KT$' ݖ@lčl̕KTDa ' ݐ\җX֔ԍO3KT$ ' ݐ\җX֔ԍ4KT ' ݐ\ҏZtKiKT ' ݐ\ҏZKT ' ݐ\ҖOtKiKT' ݐ\ҖOKT' ݐ\ґ\ҖEKTat' ݐ\ґ\ҐtKiKT' ݐ\ґ\ҖtKiKT ' ݐ\ґ\ҐKT' ݐ\ґ\ҖKTX' ݐ\ғdbԍKTgeDa' ݑ㗝lX֔ԍO3KTe=' ݑ㗝lX֔ԍ4KT' ݕ㗝lX֔ԍO3KT' ݕ㗝lX֔ԍ4KT' ݑ㗝lZtKiKT' ݕ㗝lZtKiKT' ݑ㗝lZKT' ݕ㗝lZKT' ݑ㗝lOtKiKT' ݕ㗝lOtKiKT' ݑ㗝lOKT ' ݕ㗝lOKT!' ݑ㗝l\ҖEKT"' ݕ㗝l\ҖEKT#' ݑ㗝l\ҐtKiKT$' ݑ㗝l\ҖtKiKT%' ݕ㗝l\ҐtKiKT&' ݕ㗝l\ҖtKiKT'' ݑ㗝l\ҐKT(' ݑ㗝l\ҖKT)' ݕ㗝l\ҐKT*' ݕ㗝l\ҖKT+' ݑ㗝ldbԍKT,' ݕ㗝ldbԍKT-' ݎw肵Ă2KT.' ݎw肵Ă3KT/' ݓo^̔ԍKT0' ݓo^̔NKT1' ݓo^ǂJ݂KT2' "݉^pJn̊ύXsKT3' &݉^pJn̊ύXsKT4' %ݖݔ̐ݒuꏊ͈ړ͈1KT5' %ݖݔ̐ݒuꏊ͈ړ͈2KT6' *ݖݔ̐ݒuꏊ͈ړ͈̓t[KT7' ݖݔ̏uꏊR[hKT8' ݖݔ̏uꏊZKT9' ݎʕKT:' ݓK\ݔ̔ԍKT;' ݖݔ̐ԍKT<' ݊J݂ǐύX̗RKT=' !݊J݂ǐύX̗R1KT>' !݊J݂ǐύX̗R2KT?' !݊J݂ǐύX̗R3KT@' !݊J݂ǐύX̗R4KTA' !݊J݂ǐύX̗R5KTB' ݔlKTC' ݔlSҖKTD' ݔlSҖKTE' ݔldbԍKTF' S' ni   0  bKT $ '`SX'`nHi@ KT݃ev[g' KTݎw肵Ă' KT݋LNN' KT݋LN' KT݋LN' KT DBo^' KTݐiDBo^' KT ݈' KTݖ@lčl̕' KTݐ\җX֔ԍO3' KTݐ\җX֔ԍ4' KTݐ\ҏZtKi' KTݐ\ҏZ' KTݐ\ҖOtKi' KTݐ\ҖO' KTݐ\ґ\ҖE' KTݐ\ґ\ҐtKi' KTݐ\ґ\ҖtKi' KTݐ\ґ\Ґ' KTݐ\ґ\Җ' KTݐ\ғdbԍ' KTݑ㗝lX֔ԍO3' KTݑ㗝lX֔ԍ4' KTݕ㗝lX֔ԍO3' KTݕ㗝lX֔ԍ4' KTݑ㗝lZtKi' KTݕ㗝lZtKi' KTݑ㗝lZ' KTݕ㗝lZ' KTݑ㗝lOtKi' KTݕ㗝lOtKi' KTݑ㗝lO' !KTݕ㗝lO' "KTݑ㗝l\ҖE' #KTݕ㗝l\ҖE' $KTݑ㗝l\ҐtKi' %KTݑ㗝l\ҖtKi' &KTݕ㗝l\ҐtKi' 'KTݕ㗝l\ҖtKi' (KTݑ㗝l\Ґ' )KTݑ㗝l\Җ' *KTݕ㗝l\Ґ' +KTݕ㗝l\Җ' ,KTݑ㗝ldbԍ' -KTݕ㗝ldbԍ' .KTݎw肵Ă2' /KTݎw肵Ă3' 0KTݓo^̔ԍ' 1KTݓo^̔N' 2KTݓo^ǂJ݂' 3KT"݉^pJn̊ύXs' 4KT&݉^pJn̊ύXs' 5KT%ݖݔ̐ݒuꏊ͈ړ͈1' 6KT%ݖݔ̐ݒuꏊ͈ړ͈2' 7KT*ݖݔ̐ݒuꏊ͈ړ͈̓t[' 8KTݖݔ̏uꏊR[h' 9KTݖݔ̏uꏊZ' :KTݎʕ' ;KTݓK\ݔ̔ԍ' <KTݖݔ̐ԍ' =KT ݊J݂ǐύX̗R' >KT!݊J݂ǐύX̗R1' ?KT!݊J݂ǐύX̗R2' @KT!݊J݂ǐύX̗R3' AKT!݊J݂ǐύX̗R4' BKT!݊J݂ǐύX̗R5' CKTݔl' DKTݔlSҖ' EKTݔlSҖ' FKTݔldbԍ' S@' n0i( Attribute VB_Name = "clsForm" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ y @zDim c As 0New Op tion li cit CompR Binary Pub Func UnprotectFile( _ )ABooleaznA J dIf Word.AveDocum`ent.PC$T= wd@HowOnly0Fields The Passw:=cPASSWORD End IfM*Tru =OAD+@APal myR@ttE3?UKH@ įJNou I'擪ɈړĂAی삷A'No-=!œ͕pAB.S el @@ .HomeKey Unit:=wdSto?F a43, Ʉ:=(, A! AE@%Je` %8= 1N* ~ +F++,rd_,m>Ifi9a\A!gUnLockfgE b!mybk` EachpIvnsB?.En&P@(!gÇ $Next#[ &nC `Cr_k&4("Z)EExit^ i INId#Set a=Ef.b _/ _ Yothi|ngSO[kGetF2ByV [pPrePaPzV,ZfSng_StartPosIntexger^qS >Cr 3KAGAMIW PKagami(}B )Q1= 0s ;P@'C"c"jevg051wpޢ!32LNNoo3okoo4okloo5oaD`Bo^6iO_7OAv??8@lčl̕O O9\җX֔ԀO3}15*=-\4J(1- Zt`Ki 1o-__1-XؼO?  /! !1.? ? 1-X\ҖlE1.~??RZ1/ ?0o& 1/$ Case "ݐ\ґ\Җ" GetFormFieldKagami = 20Hdb4"1ISlXASO3"X2Q!N4$'3'ڜO4#(P5(OZtЃKiO6'7]'b%8_%9Y#ЖOJ3TņICrA83= 34_E ` ^ f3:^c ?93^j? ( ^0m3`c (3:b<= 4ak(? `m' ` ae& ` :bߧC4a h aw肵Ă؂2//&40m34?0o^̟ ? 04_/YN64.v@Jee 5.^pJn̊ύXsw5/|50ݔ̐ݒu͈ڀ͈1}51/) 52Z[ M 53S`R[h??5o4?2 54ʕ?1?+= 542K0w 995?5%{6?59QǐR5̗R65_Z/o) 64oj.o| 64ojXo n6O4oj463oj5oo63bl6??636Sd!6o38= 62_/Ob@b72ElsegaFmi = 0  End Select hFunction Public @ GetFieldName( _ByVal p& As ePaper, :fNumber>`Integ =)String{ CaseRcKAGAM>I Kagami() M0Else%rivate?@` `1^="݃ev[g(" 2'w肵Ă@3LNN456DBo^ 7'iB8' 9@lčl̕zM 1$coMp-O\җX֔ԍO3̌ Y= Y 84 Y ZtKi?Z Z𖼑OvZ nZ\pEn ?\r v]6 ?`t}2_t. __, xdb!i. ^& 㗝l?9?9|2g/$> >C2/0BH  0 _C0 0 >"0__ }3/L 3?0\ 0 >0__ O~/_V R%3O/< / ҟ?[_/Җ?[ S3/uC_ V _0??o t ~41?4CU "4000021߿?o!40\ 0M2.03?0'ǂe 4V/ GetFieldNameKagami = "ݓo^̔N "  Case 50@0ǂJ@݂1'M^pJn̊ύXs W2CW3-ݔ̐ݒuꏊ͈ړ͈T1-4E-2-5E-t[6CER([h7ZN8gʕ9K\iǁO6HCx kv;DCx kv<4ECx kv=JFCx kv>`GCx kv?vHCx kv@ICx kvAJCx kvBKCx kvCLCx kvDMCx kvENCx kvFOCxPCx/ $(4x  qIcA)qc(@4) &,A"`4&0"` 1Q 0,"`8Q 0n,p$ rU <P$<`$A<`$<`$<`<<`YI10b$*\Rffff*1<50dc2c74$*\Rffff*1D50dc2c74$*\Rffff*1550dc2c74*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R0*#17*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#1b*\R0*#1bD8<@/D t%(UUL&UMsByXbM-* Hp Rpo[GsMu  J:J_` /Ex J:J_` /E&UMsByXbMEx@SPSSS8" "F>""  LL"""LLLLL*LP<|<0{8F913185-E992-4597-BF53-0A7D19BCDCD2}{FB7DF340-14B9-4998-A6C9-FACF12E77BA7}H%% % `Tkii xxcP% terdy%`\r `zj D ageeBz 8z z   @ h    `~keeq Dx8%` `\`zrU #@Q(y'Q'Y!qa-qc U. IIJIJ.)/IH ! i Q  i I!q!Y9 qI )YiJJKAaɮi iK LaLLMQAqIcA)qc(@4)) "W"""""W""ppz*pt$ 4t <lpt\):`NPPt$ 4t t5Ppz/ ,p$ tPdpz*pt$ 4t <lpt0p'0Pt$ <t t6P0B''0:`NPPl M@ @t$ 4t Ht6P0Q*pt$ 4t <lptQ  O0p'0Pt$ <t t6P0B''0:`NPPl M@ @t$ 4t Ht6P0pz/ |d$ tP0xpz/lp$ 4p Ql[htpdibt dkbZ t h td8pz/ x0hdtplppzv+x kv)/  pxp kxR/  c= ppz/  p(p |HlCt5l qplp4nlt4knpz=pz/H(t pl CtltCp lp 0'pzc lp 0>pzc lp 0Upzc lp 0lpzc lp0pzc lp0pzc lp0pzc lp0pzc lp0 pzc lp0 pzc lp0  pzc lp0$ pzc lp0; pzc lp0Rpzc lp0ipzc lp0pzc lp0pzc lp0pzc lp0pzc lp0pzc lp0pzc lp0 pzc lp 0!pzc lp!08pzc lp"0Opzc lp#0fpzc lp$0}pzc lp%0pzc lp&0pzc lp'0pzc lp(0pzc lp)0 pzc lp*0!pzc lp+0"pzc lp,05#pzc lp-0L$pzc lp.0c%pzc lp/0z&pzc lp00'pzc lp10(pzc lp20)pzc lp30*pzc lp40+pzc lp50,pzc lp60-pzc lp702.pzc lp80I/pzc lp90`0pzc lp:0w1pzc lp;02pzc lp<03pzc lp=04pzc lp>05pzc lp?06pzc lp@07pzc lpA08pzc lpB0/9pzc lpC0F:pzc lpD0];pzc lpE0tpzc lpH0?pzc lpI0@pzc lpJ0Apzc lpK0Bpzc lpL0Cpzc lpM0,Dpzc lpN0CEpzc lpO0ZFpzcpz/ p,8pt [H-7l qtlt0pk8>p1x; 1x/ H(xp\$-k pv kv" Cx kv8 Cx kvN Cx kvd Cx kvzCx kvCx kvCx kvCx kv Cx kv Cx kv Cx kv Cx kv *Cx kv@Cx kvVCx kvlCx kvCx kvCx kvCx kvCx kvCx kvCx kv Cx kv!Cx kv2"Cx kvH#Cx kv^$Cx kvt%Cx kv&Cx kv'Cx kv(Cx kv )Cx kv!*Cx kv"+Cx kv#,Cx kv$$-Cx kv%:.Cx kv&P/Cx kv'f0Cx kv(|1Cx kv)2Cx kv*3Cx kv+4Cx kv,5Cx kv-6Cx kv.7Cx kv/8Cx kv0,9Cx kv1B:Cx kv2X;Cx kv3n<Cx kv4=Cx kv5>Cx kv6?Cx kv7@Cx kv8ACx kv9BCx kv:C`   `8xk  `xk, `pk` kki  iii i   DX%`\V`zT`VR L` p  @(H @   h B P8 D   p F h  80%`8 %"_4@h  (`@ ( (  @0l @d @ b   @ ` @p P @ @ V*,.28@@@ 0 @ X J6>HP<FN RXT Z\^  b4:BDL 0,( @X  @p @ @ @ @ @ @ @ @0 t @H d @` T @x D @ 4 @ $ @  @  @ @ @ @8 @P @h @ @  =@  = @@x @ ~ 8 F@X | H Fp I@ z X O@ x O R@ v X@t  X [@Hp @l @`h @d @T Xp @H`P. 2,(<FN@xt @d @P` @P @@ @0 @  @ @  r @ n 0>Pb:BDL @h ( @ t @ @ , @ @ $ @ $i @ + p$8^VRXT Z\h`) p%(P( @ @ 0^` b 0 @ @ @ 8 @~ X \l r@x r @x 8PX hh8 hXh  d ` xl  x`h l 8 `dLq 0``  `\`h``dH``(`\`h``dH``(`\`h``dH``(`\`h``dH``(`\`h``dH``(`\`h``dH``(`\`h``dH``(`\p&(0, @< @P, @ @ @ @ @ @ @ @( Tʖ @@ @ @ @ L X@ Xd 0s @ e*@8 x8(*P,@` 89@ `9`;@ D@ X D@0 @HI@x h0I0K*#@ @xP@ P8R @~ @(T@| HThX^_@x @t @p  h h8P r,P *\R0*#1c$*\Rffff*1U50dc2c74$*\Rffff*1V50dc2c74$*\Rffff*1@50dc2c74$*\Rffff*1;50dc2c74*\R0*#f*\R0*#9$*\Rffff*1850dc2c74*\R0*#1d*\R0*#1e*\R1*#10e*\R1*#HLPTX\`dhlptx|>!<?"#$%&'()*,-01 2345: ;$A(B,04.8+<@DL  8 "X "    80 P!`p    0 @P` p   0@P`p hl %8Ph 5 g%( @5P h(gx%  5 0 @ %   0  H 5X p x   $ l   "    $U |4   G 4 ` h Gp 4  ( G0 4P   0 4 : ( 0  @ FH Fh $B B 1 B B B( BH Bh B B B B B G( "GH &pG1 )1G  1(1@ X B` B B  A  2   ( 58X `h *x ,+  *9+ 8@ H $Pl` "  "  B4   ( 0@HP  Xh8p  *   8K 6+8 px8       (8K8 6+p 8   0  8H P8K` 2+ 8   8 HX `%h$=$= ( @X p $=      8 H ` x         ( 0 $8lHh p  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/  webmaster@hyperdyne.co.jpX]@h "@]`. ]. ] \ % . ] z ! z % ! B@  z \ ! (0 ! ( !V( !*(  !,(  !.(  !2(  !8(  !@(  !J(  !6(  !>(  !H(  !P(  !<(  !F(  !N( Tr !R( ۷ !X(  !T(  ! (  !Z( 8 !\(  !^(  ! (  !V(  ! (  ! (  !b( !4( !:( !B( !D( !L(]StringƃG[]0 "&*.26kCʐMNJǓ̗kʐMNJǓ̗֓ʐMNJǓ̗MzʐMNJǓ̗kʐMNJǓ̗CʐMNJǓ̗ߋEʐMNJǓ̗ʐMNJǓ̗lʐMNJǓ̗BʐMNJǓ̗ꑍʐMǓ̗ S̗&kCʐMNJǓ̗yт̏$kʐMNJǓ̗yт̏$֓ʐMNJǓ̗yт̏$MzʐMNJǓ̗yт̏$kʐMNJǓ̗yт̏$CʐMNJǓ̗yт̏$ߋEʐMNJǓ̗yт̏$ʐMNJǓ̗yт̏$lʐMNJǓ̗yт̏$BʐMNJǓ̗yт̏(ꑍʐMǓ̗yт̏S̗yт̏̑D' `' \  \ \+ \$ \+ \  !X, TgeDa !T( •ʶD' ֔ԍ \  \ \+X֔ \$ \+ \㗝  !T, T ! ( ȈՂȋƖp̑D'  \ l \ \+ \$ \+ \  ! , iKT !.( kKK֊KMKKCKߊKKlK㊇KKD ' #' \  \ \+$' \$ \+ \T  !., 㗝 r r|x"p 0!2 0!2 , 0!4A@( k8o0" ] .D㗝l !.$  !2!n㗝 o^̔ԍ͂Ă܂B ,>\CĂxf[^`FbNsȂĂBA@(b|XkP !<!n !F!nKT .ʕ̐ƋZKԍ̌Ă܂B ,>\CĂxf[^`FbNsȂĂBA@(J݂|k !<!n !N!ns .ʕ̐Ɛԍ̌Ă܂B ,>\CĂxf[^`FbNsȂĂBA@(%|k !>!n !P!n'  .ʕ̐Ɛԍ̑Ă܂B ,>\CĂxf[^`FbNsȂĂBA@(Z|k !b!n  7f[^x[X̔lɂ͍ő250o^ł܂B ,>\CĂxf[^`FbNsȂĂBA@(|XkP]@ !:!n !B!n !D!n !L!n$ 'R2K]X]p z  ύX.^.^@'  ^ D!L%aIDC@j4K D!L%cIDC@j݂ !.!nlicenceNo_HeadC@j' !2!n licenceNoC@jpIDC@jҖ !V!naddressC@j !R!nareaCodeC@j !X!nMoveAreaC@j !T!nkindC@j ! !npurposeC@j !Z!n issueDateC@j !\!n estabDateC@j !^!n beginDateC@j !`!n changeDateC@j ! !ntermDateC@j z$callsignC@j z$ productNoC@j z$Giteki z$gitekiC@jsyoninC@j z$SyoninegitekiC@j z$syoninC@jd gitekiC@jsyoninC@jk ! !n frequencyC@j ! !npowerC@j !b!nmemoC@jq8 ] z$ D!%J '  ^ D!%L | k e ^ D!%N | k e $ʕ̏d͎sOɊmF!ʕ2ˆȏqbg܂BA@(| k   b DBo^ D%!r(no^܂BA@(A@ | " 0!2 0!2 , 0!4A@(kx op  Ǘ҃j[.Show A@r‚܂o(  A@r‚܂o   " ].D] ]8]Pʕ]h   & %~+ʕ̑]  , D!%' ZKFؔԍ]    D!%   D!%,ʕƋZKFؔԍ̌v܂BA@(z k   & %~+dX  \  \+ \k ZKFؔԍ̔茋]    D!%   D!%,ʕƋZKFؔԍ̌v܂BA@(zPkH   & %~+d  ` \  \+ \kԍ]h    D!%   D!%(ʕƐԍ̌v܂BA@(z(k    & %~+@ d @  \  \+@  \k]  ] ]X]'V \  \$, & %~'B \$@ , & %~'D \$Syonin B F  z B \$ z+F  z \$Gitekie \$, & %~'F d8 B F  z B z+F  zk z B ʕ z$B  V+ ZKFؔԍ z$F  V+ ZKFؔԍ̔茋 \$ V+ ԍ z$D  V+ V 'V z \ ' z" 0!2 0!2 , 0!4A@(kiٵAttribute VB_Name = "Ƌo^"  Bas|0{8F913185-E992-4597-BF53-0A7D19BCDCD2}{FB7DF340-14B9-4998-A6C9-FACF12E77BA7} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD ' ЃnCp([_ Copyright (c) HyperDyne Inc. All reser<.http://wPww.hd.@co.jp/webmaster@ Op tion wlicit Phl myCollebcAs GSub U"Form_Initialize()B@rror GoTo ErrMes Dim cBranch Hcls ASetF= New ' &EiIntpegerE D&.Get(i3Mj> j1 @9B.Coun'@R Me@mboBoxC9.AddItemX.(jNext j$ListIPndexi ock¤ txt@s.Visi) gent.L ` Cli {CoLicenceNo_Head allSign7GitekiNinsyoNoProductS B: CD)%`g YIACode%B0MoveyKinFbPuraT TIssueDWEs[Begin[Term5*#ddovjFrequey7PowerMem_Z2{dZOBZC$9ResultEv'_pkqYmyArray()YVari@ant 'SpngƃG؉[2 U#"", "kCʐMǓ̗k _Cq "֓o#Mza.ko#C.ߋEo#.lo㏆B/.e@+xSIyт̏_|O /S _p /_ / of1"s7ReI>UB0d($>)X, 1i ?0\xhenMsgBox & vbCrLf & DescriptioEnd If7=PrivateC o^_C lick( On[GoZ(kcP As clsPapeBr&Set =p New4I@sNull(U) Or txt[.Value@pP"" T?"-̔ԍ͂Ă܂B" H.I"\C xf[^`FbNsȂ5GsBFZA=C5CallSignu@ICt7wGitekiNin`syoNoL S? ʕ>̐ƋZKBB̌,B!"}!!!a"$AProduct !a"!!_C_C_CpT!rC BƇ B cc% LenMemocc) > 25WRRxtX@lɂőz"ł?&??3'VariantGCBDGetBFromStringd$e2%,eKResuld/L$q iQ Integ^Qj^zj L+|zNsCollecjNoth?|on1@fGW8ith1.Addj.INI.BR}AID("aIDLadCc1\d"@v脯dlpOd "p  5ress8addAreaCode/"RMoveFOGKinkPurposW p/"IssueD6 iOEEsta:bJeOEBeginJbOEChang c&CoeTermt/d`0D(j1u$cЈsЈ3}1pUx`|`2}!"#HA4481}gb- nin,Else/ "SyoK4A] /!KE!r /0')r""FPrequ0Dy,f<HPower}p%Gx"my U `myIDaLong GR=qVDB.InsertOrUpd8C)aRcP.DBp`Q(Fa! y"@ %PQV \,7ID7t.-1 'd͎sOɊmFP*G2ˆȏq0bg0B" Exit SubTEnd If! 0 Thenr$& vbCrLf &Descriptio;{ ?Private [() 'Ǘ҃j[.ShowLUnlo ad Me'‚ʷ=0I-- ub Funcm ArrayFromStri ng( _#Byi myCallSign As ,GitekiNinsyoNo& Result Product ) Varian Onlor GoToMDDim cP clsPapDerC7Set=` New  iA Integ AjRkN'ʕ{GSB](B2U = VBA.Split(G, SePp, ,@T@Compare<̑CounB^8 =@$.Sani{TotalE.","'ZKFؔ !kF!ymyKy|""y@%)aH$e  B/)O A >ǐvs(! m"'kE!5FElse RecU  UB Gd(Q)d>Fqiy`o g !i)" iC)"# M̔茋ʃpOOOAaOPdPO(AO(O(! (bo( ))mhlt&Qmo)= o)mRH,qm) )PX ) 'ޢPm (fpo' pYo'{"t}1o't]&$OeNN B&&?%k $$ N/$/$r MU .$*_#_#C SK?e5 {- 01, 3xTempCoPGk1_ /`cy$my2 0gnCi)@,"?`Pa /`o@Syonin G(&JQj [J1G(jAst(i)tj!W??"SX? K G[b OLO{`pCr  C͈a0O0TE(k, 0 !ey1xTempG(j) 'ZKFؔԍ̔ myArray(k, 2) = myGitekiNinsyoNoResultFi v3R>Pksk + 1CNext j% i GeFromString\Exit Function ErrMes:If .Number <> 0 TheMsgBox & vbCrLf & Des0crip/Enpd If5=i[ tH[̒ TypeInfoVer = 170 End (H  @}t 9R KQ_ MS UI Gothic` ,\K0L008F/{0$ K0L00000005 MS UI GothicLF"/{0$ MQ1N0000000h0d0M0B00[005 MS UI Gothic,000EOu MS UI Gothic,X00EOu I4 j 3j>>>I4 j 3kI4 k!!!I4 9I4 1k<<<I4 Ik???)Qak"""I4 k### 3k$$$I4 k%%%)Qk&&& 3 l'''I4 1l((( 3Il)))I4 ql***I4 l,,,I4 l---I4 l000  3l111 3l222I4 m333)QY444I4 1m555  3Im:::$I4 m;;;( 3mAAA, 3mBBB044` < 40In`I<8)Qn...< 3rU =8g >)9beo)!*Aa Qq1Q i)Q1o p1pYppppp!qIqqq&&AI& aI y  afi)Uaъ q!!QiII9!ɦ /!.-qH!iAI iq|])FDef9fafe 80I1I`<< 3f@ 3fD)Qf///H 3 g L0IG`<P 31gT 3agX 3g\ 3g` 3gd 3 hhI4 9hlI4 QhpI4 iht 3hx 3h|I4 y6 3hI4 !iI4 9iI4 QiI4 iiI4 iI4 iI4 iI4 iI4 iI4 i 3j 3AjI4 ij 3jn+++@ 3nD 3 o<<W<<< H K x tlrx Qltjdt $ldc`8' @jMP@t @l xl l6@ jd`K!krD@l xl l5@l xl ll ll ll l ll l ll dl ll l ll l ll l ll l ll l ll l ll l ll l ll l ll l ll l ll l ll 0l ll @l ll `l ll 8l ll Dl ll Ll ll Tl ll ll ll l ll l ll $l ll l ll l ll l ll l ll l l:Pl:0 l: l: l: l: l:l:l:l: l: l:t l:d l:T l:Dl:4l:$l:l:l:l:l:l:l:l: l:!l@ "Z@6 Yd5@%l rlcEkrDPkrlkrlkrl rd5lM N' '@l 0l l6@ l @l dlg:Pl:0#l:$l@ "Z@6 Yd5@%l rlc|{krDPkrlkrlkrl rd|85lM N' '@l @l l6@ l `l dlg:Pl:0%l:!l@ "Z@6 Yd5@%l rlcxkrDPkrlkrlkrl rdxn5lM N' '@l `l l6@ l dl dl :Pl:0&l:'l:(l:)l:*l:+l:,l:-l:. l:/ l:t0 l@ "Z@6 Yd5@%l rlctn krDPkrlkrlkrl rdt+ 5lM N' '@l dl l6@ ZZ$d 1ll 2ldlB l'T'' d 1ll 2ld#p3*#dh 1ll ,2lh*F@ 42pdh)ll6@ T(H @ z(tx: phdll@ T x K 5xUt dQtod 6 P` ` P:@]/0`6dP 4''0'P73*# 8*Fd 4/ 6dP0Gdt t dP` ` P@)t`6dP4''0'P93*# 8*Fd 4/ 6dP0Gdt t dP` ` P@)t`6dP4''0'P:3*# 8*Fd 4/ 6dP0Gdt t dP` ` P@)t`6dP4''0'P;3*# 8*Fd 4/ 6dP00dt $t dP(@]tt5d4''0'P<3*# 8*Fd 4/ 6dP0dt t P` ` 0    0Pd =2 )t`6dP0 5IL5Icu c=[t4t[t4t 4Ftx @>t ?''0: @NPPlid t6dP0Ftx @>t ?''0: ANPPlid t6dP0Bdt dt ''0:@BNPPd t6dP0Bdt t ''0:@CNPPd t6dP01''0: DNPP:@Ndd 6dP0Bdt lt ''0:@ENPPd t6dP0Bdt t ''0:@FNPPd t6dP0Bdt 0t ''0:@GNPPd t6dP0Bdt @t ''0:@HNPPd t6dP0Bdt `t ''0:@INPPd t6dP0Bdt 8t ''0:@JNPPd t6dP0Bdt Dt ''0:@KNPPd t6dP0Bdt Lt ''0:@LNPPd t6dP0Bdt pt ''0:@MNPPd t6dP0Bdt Tt ''0:@NNPPd t6dP0G@(@%dq''0:ONPPl -6dP0G@(@%dq''0:PNPPl -6dP0&@(@%d:Q]35dG@(@%dq''0:RNPPl -6dP01''0: SNPP:@Ndd 6dP0 &@(@%d:T]35d% 1''0: RNPP:@Ndd 6dP0G@(@%dq''0:SNPPl -6dP0 1''0: RNPP:@Ndd 6dP01''0: SNPP:@Ndd 6dP0Bdt t ''0:@UNPPd t6dP0Bdt t ''0:@VNPPd t6dP0Bdt $t ''0:@WNPPd t6dP0cA@(@%d tx p>t HXlq/ t5dl 2~4`tx p>t LXk~)`t i l- 5~l4`tx p>t PXk~)`t( i li +''0'P:@YNdd 46dP0 dM9`t+~Zx >t |[` 8\)t`+''0'P:@]Ndd 46dP0=$ 1tt 2lts l''0'P 1tt 2l# 3*# 1`` ,2l*Fd 42 )t`6dP0x 0xD t`dP0Plx^$_ `x$ xPlx^$_ `x$ xl ChlCdlC`lC\.K< 5X8: 8dkp ld=TKalhX L> 4dkaldX L> 4dk)+''': 4dkal`X L> 4dk)*+''': 4dkal\X L> 4dk)=+''':" L HhH x+( i ,!@hP x+$i ,! (hX x+( "i i ,!: h` x+h, +i i ,!< (hh x+0 4i i ,!hpx+h4 =i i ,! (hxx+8 Fi i ,6 `Tkh <rrO) a%i  Lt% Nd`0`, (hP` ` `\hb % , ` `> x(   @ h@ `@ x0    H ( h ` x8   h P 0 h: `: x@    X8h< `< xH  (h(`@h`xP( 00hHh  ` xX0$%  88p0hp8@Ph6  `6 z `8 @r @l  &~,@@h 8@T @D 8@`4 @H @@ @x @ @x @ (     @       4 @ @0 @H @` @ @ @ @ p@t @d @` (0R@^ XR 0h@X @T P`X@P(hh`8xxP8`Nt`Ntp`Ntp`Ntp`Ntp`Ntp` @` @pP @@ @< h`x`th H`t`tx`t0`0t@n `ht0x8P@h 0,( P@d @` @\ `@X @T @pD gX@4 @$ -@ 8@ @ @ X h88(PHr,P (*\Rffff*0z50dc2c74\2(*\Rffff*1<50dc2c  B   $(P hx B    B  8 P`x B        ;08@">H*Jp>::R08@HX ` h x             ( 0 @ P X h x             ( 28ncX   2nc     >e 84     ( 0 8 @ *HX  VM    "3  P9  h p  x "" $"     3 ( 2S8 p       $ l   B ( 0 H  P  ` h  8p    B  B   (8P X$`lp   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/  webmaster@hyperdyne.co.jpX P y@z Dim cLicence As New clsLicence]@Dh ,ݓo^̔ԍ]@D ,ݓo^̔ԍ\[gς  ]@D ,ݓo^̔ԍ̐ ]@D -o^̔ԍZbg݂̓o^̔ԍ̐ '8 m@݂̓o^̔ԍ '>mH݂̓o^̔ԍ\[gς '@m݂̓o^̔ԍׂ  G{j  $ !' k`mX(݂̓o^̔ԍ擪  G{j  $ !|': km݂̓o^̔ԍ擪2  G{j  $ !'< khm`(݂̓o^̔ԍ  G{j  $ !'km݂̓o^̔ԍ  G{j  $ !' kmx(݂̓o^̔ԍ'6 ].L LB@6 L!>' L!@' L!B' ]   &$~+N]] ]8$N, &$~+$ & %"o^ԍɁuv‚܂B ,$A@(zd$$ & % % 'k]p] $  KTCR' K'  KTML' '  KTFB' '  KTFX' '  KTFP' '  KTMP' '  KTMO' '  KTRP' '  KTLO' \'  KTEX' ' 4 KT' K' Sn K  %  ǎ킪 ̂Ƃɂ́Ao^ԍ́u vu vKvłBA@(z0k(d    %  ǎ킪 ̂Ƃɂ́Ao^ԍ́u vu vKvłBA@(zxkpdh  %   % o^ԍ́u vmFĂBA@(zkkkk] \ N \$N  % % o^ԍ̐擪 ɂȂĂȂ̂܂B , \$NA@(zk \$N %4o^ԍ̖uvɂȂĂȂ̂܂B , \$NA@(zk \$N'    %R'   %R' \@  \$N \$ (  % \$ (|K  %  % \$ (  % \$ ( \$ ( \ \$ ( \'6 z " 0!2 0!2 , 0!4A@(kio^̔ԍ̐]` N'd N,  %~+  'kPiH"(;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[g].  %'z" 0!2 0!2 , 0!4A@(khi`XAttribute VB_Name = "clsLicence"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All Areser;.http://www.hd.co.jp/webmaster@ O@ption vlicitComp Binary' y@@z+Dim c As` New }A PkFH S ng'ݓo^̔ԍ BySort\@Ugς9CnHLo B! !̐ 3DdFC`X Hc7?B?i7h?=IA-`&h(ByVal No6Integer)a!HׂC"If!<@ 0 TheAhit/ 3 >a!+dKNo).Noc;Q .aoertyaFuncx'(yJmyKyokusyuQJeBuuKBooleanAt @ qQ|INIa{א  a=e}.RDsu/@v[[!3=Q.dCoun1 QwrZpe= Split(, Sep, , vbTextu)xs1imyRI r2k1(0), ","_S$VBA.In@(1, s2 k SeMsgBox "ɁuvГ܂B" &PpCrLfBWEx@j&cE!1 = Left$(t  )4?.A%,m 7.2Not IsNull()8Select| C!Wp|CR[ @C>RǑ9Wa\"K3,MLML'Z e pFBFBXfXP{P MM 1%pMO MO  R  fR L L \"t Case0 pEX myKyokusyuStr = "EX"2F FHOUKATSU ʕiKjElseeEnd SelectIf mZ% ThenVBA.Mid(myHead, 2) <> MsgBox "ǎ`" && "̂Ƃɂ́Ao^ԍu8"v" _M0"2KvłBExit Fu`nctio=MI>fTAPC""P Q1QARoRASTUJAOLA@V"Uda e*NmFĂRI  n!NiDim i As IntegerSFor= 0 To UBound(s)Vd(Left(s (i), !%Lezndy)Ol/x#8擪xEs@wȂ#Ȃzܢn@NvbCrLfaX&I0Righ%#A"y;.H&Pt6QDescripm*GoPrivatep CDt(B2y sQ!ing)Long J s 'SC{ƔC&ss(sws@ 0";0cvc#Spli?P.,222B15Qs) + 1eX| Sort(myc  On pyZGoYfʕ@Ȃǁu,I؂\[g0S 1cSan!cls&< = Newr tr . /)))))) =#,A `@(, `D 0nWrU ?hA9ba ( xixxyqyy!zqzz!{y{&&AI&A))clsBranchW__SRP_3e__SRP_3f|}NtN{v2 a8F(@4)) >-K t)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:d NTTt 6T4)'''4:d NTTt 6T4)'''4:d NTTt 6T4)'''4:d NTTt 6T4v C l0  l0   l0"  l09  l0P  l0g  l0~  l0  l0  l0  l0 d  ltx/$  ll'''4  l#*#  ,l*FT 2)6T4/ 0`xt0 T4X hX @` rU >@0>`&=nrU @$@`$A@`$@`$@`$@`,A@`0*\R0*#4*\R0*#f$*\Rffff*1850dc2c74$*\Rffff*1D50dc2c74*\R0*#1d*\R0*#1e$*\Rffff*1G50dc2c74*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*1550dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\RrU  7 UI iq||ف|AI&I|}1}Q}i}}}}}}~9~Y~q~~~~~)!AI( IyрPYɅ&& ]QA)Q(@D))  WWWH <qx/  $ L- 4Cx/  (x L- 8Cx/ (x xD- k /<k :k @ACx/ D(x xD- k /<k :k @ACx/ D(x xD- k /<k :k @ACx/ D(x |H- k /<k <k @A 1x/ H(x xD- k /<k :k @ACx/ D(x pz t rt lt Dll4/llt Hll8/lht Llh<;:TNDD44 46 Yhd6D4>:TNDDld4 46 Yh(6D4J:N44l(.@M@(D -(]36D4q:'''4*#ll(*FD /l6D4/R:N44l(.@M@(D -"l( 1,6D4l MT@ Z ql C COl$CCOlECCOlfCCOlCCOlCCOlCCOlCCOl  CCOl ,CCOldMCCO l02(D,MT@4 4lF]@6D4c'''4 l*#l!*#l,*#"*##*#l*#$*FD 2 l6D4/X l=2(D,MT@4 4lF]@6D4c'''4 l*#l!*#l,*#"*##*#l*#$*FD 2 l6D4/Ve(D,MT@4 4lF]<(,M@ :]h1x/$` 3dd 4l`dl'''$` 3dd 4l`#h*#TX 3\\ ,4lX*FD 2hTX)d\6D$/ 0xtp0 hXTd\D$  0*#f*\R1*#10b$*\Rffff*1N50dc2c74$*\Rffff*1<50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*1?50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*0z50dc2c74*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\sysMS UI Gothic,[LENu MS UI Gothic(0 {{u MS UI GothicLF"/{0$ NtN0000000h0d0M0B00[005 MS UI Gothic00000{{@"pMQ1N0000000h0d0M0B00[00{$@cmdClearS$ @cmdClose]( <cmdExecute0q$ 8cmdCheckO@:)<1`QL *=h8+3qq#N[:xq#N[:1`QL ME0 SS S86"L LP<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}, `k@`77 i\ hLO' %) x % tB %%%@H00(  %  x %g  Y @Hd @`T , @xD Y @4 @$ Y @ @ 4rg @ `, 0,(Z Z  @ qg  hX @` q @  @x x, @ ` @ qg @ P@ r,P *\R0*#1c$*\Rffff*1V50dc2c74*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*1850dc2c74*\R0*#1b*\R0*#1b4 A  8 "X  $ B    ))0)H)`)x))))))   ( HP hp       @H hp      $l  ( 8 ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/  webmaster@hyperdyne.co.jp y@z  Dim cBranch As New clsBranch "] . kC B@jk B@j֓ B@jMz B@jk B@jC B@jߋE B@j B@jl B@jB B@j B@j rmkstationHokkaidoKT'\rmkstationTohokuKT'\rmkstationKantoKT'\rmkstationShinetsuKT@'\rmkstationHokurikuKT'\rmkstationTokaiKT'\rmkstationKinkiKT'\rmkstationTyugokuKT'\rmkstationShikokuKT`'\rmkstationKyushuKT '\rmkstationOkinawaKT '\S@d'\n0 . z" 0!2 0!2 , 0!4A@(kiQAttribute VB_Name = "clsBranch" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ y@z Dim c As New Option licit CompS Binary Pub Func GetCol(B@yRef iInteger)9le rror GoTo @ErrMes s'my Set =B..Add ("kC") Mk֓MBzkCߋE!l!B LC=SeA] CmyD̀AE"rmkstaAqHokkai\doi h0TohokupB1wKant 2WShinets 3@uri4To 05WKinkiP6 hyug3'7 k8Kyush%1'9wOk@}wa5P1AE"MF10End CQ xKbvExit7&C:If.Number <> 0 Th en!MsgBox& vbC rLf &DepscriœIf %U^qbAgG^oKq$%q!xx[`OLbl EkW0 QåOadqxQåOadqgG^oKq$%qMESPSSS" ("F>"" " "L"LLLL "LL"LL LL*LP<<<<<<<<<<<<<<<<<<<<<<0{09593DBF-26C0-491E-9AB3-F2B27B98331B}{95987E4B-1AAF-4231-B879-DC6254F32E6C}0-O `(kqq xX % tx%`\rerdy`zj@ DBran%`  ``Pkw Dx@ B@%` t  `@k Dx'%` t  `0xk  X`k, h`k jji i  ( Dt"%`f `d  `@% _D`%  `kaa3  `pk##  (`!k--  h `#k II   `%k !!-   `(k ..N  ( `@*k |   `0,k ]] Dt %`j ` d _` %, `/k i  * DP%``    `1kQQ`z   8`3kPP`z  x`5tk I  `6tk R  `h7tk  [  8`P8tk$ d  x`89tk( m  ` :tk, v  `;tk0   8 `;tk4   x `<tk8   `=tk<   `>tk@ " 8 `?tkD  $ x `x@tkH  & ``AtkL  ( `HBtkP  * 8 `0CtkT  , x !`DtkX!  . "`Etk\"  0 #`Etk`#  2 8 $`Ftkd$  4 x %`Gtkh%  6 &`Htkl&  8 '`Itkp'  : 8 (`pJtkt( ( < x )`XKtkx) 1 > *`@Ltk|* : @ +`(M8k+zzC Dx% B ,`O|k,X% %  8(8 xx (h8 x8  Xh x 8 x x 8 8x `% %`@`H@l @d @ b 8 @`   @P @@ Z p r b@ 0 @  x86t v @x @ @ @ <z >| 0~ 2 0 4 B H" *,&(`.LJTPxRDFHV B x 0,(@  @ @8 @ @ H(P 8  ( 0,@p @h` @P @L @< @, @ @ @ @ @ @( @ @(  ( 0,@p @X` @pP @L @< @, @ @ @ @ @ @ @ r@x `x 0,(@z @t @p @0l @h @Hd @` @P @@ @0 @ @ @ @ (H(Xxh  ` z @pp @n @h r ,x @P @L @H @4 @$ @ @ @ @ @   0 H  ` 0(@ @ @  t v @x @v @d @` @P @X@ x x z  | ~ 8 P  @< @8 @4 @0 h0,(@, @( @@ @ @ ( !p X @ x  @ 0,(@t @ p @l @ h @d @!T @0!D @H!4 @`!$ @x! @ @ "H" #8#"" p t v x z | ~ @"x 0" r `" x" 0,(@t @"p @l @#h @d @P#T @h#D @#4 @#$ @# @ @ $$@%X%$$$r p t v x z | @$x @v h$ 0,(@p @%l @h @(%d @` @p%P @%@ @%0 @% @% @ @ 0'&&&'' @H'x @'h @'X & & 0,(@T @`'P @L @x'H @D @'4 @'$ @' @ @ h)()((P)8)t v z ~ @)x @v @)d @)T (  ) 0,(@P @)L @H @)D @@ @)0 @* @(* @ @ (+*+++* 0,(@@+x @t @X+p @l @p+h @d @+T @+D @+4 @,$ @, @ @ h--h--,.8-.X-  r @z @(.p @.l \P-`%8-@-L @-< @-, @- @- @ @@. , @. @X. @ . 0@ @ p.,(@. @ /8Xp00 0800(1/1/h ` /z ///  ( @0t @P0d @h0T @0D @04 @0$ @@1 @ @ @ @X1 /r  ,@ @ @1 1  p1 R 0@ p2223 t v x @2t @2d @03T @`3D @@ X2 z | ~ 2 3 (@H30 @x3 @3 @ @ `4x445 t v x @4t @4d @ 5T @P5D @@ H4 z | ~ 4 4 (@850 @h5 @5 @ @ h6P686t @x @t P787 7v @x @t 88 88x @x @t 998z @x @t :99| @x @t ::: @x @t ;;; @x @t <<< @x @t ==x=~ @x @t >x>`> @x @t x?`?H? @x @t `@H@0@ @x @t HA0AA @x @t 0BBB @x @t CCB @x @t DCC @x @t DDD @x @t EEE @x @t FFF @x @t GGpG @x @t HpHXH @x @t pIXI@I @x @t XJ@J(J @x @t @K(KK @x @t (LLK @x @t MLL @x @t pNMMN@NO t b6 @XNt @(Nd @T @D @B @< @8 MJ v x @*,NT <>&(PNR ~ 0 2NDF  N 4H BN.V O (0--XDr,P $*\Rffff*1W50dc2c74$*\Rffff*1V50dc2c74*\R0*#1c$*\Rffff*1@50dc2c74$*\Rffff*1X50dc2c74*\R0*#2*\R0*#1*\R0*#1tem32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#1b*\R0*#1bRX48N<U@VDRHHLPPQTLXS\`dhlTpWtcx}|Z[\]^_`abghijklmnKYrstuvwxy >M? C$D(A,B0F4G8@<=@EDIHJLdPTX\o`{dphzlp|tOx  8 "X "    8( H!Xhx    &  @P`p ."H"H(W(W(W8(W`"H"H"H"H"H(P`p-x "H "H (W (W (W0 (WX "H "H "H "H "H  H Xh-p "H "H (W (W (W( (WP "Hx "H "H "H "H @ P`h,p08'    PL0     TL      ( 8 H X h x    $ l   "     %  8 ,X  **x     ,*   >  ( $0 l@ ` h "p x    %   ,  **  8 @ H ,*P   >   $ l   "   "  (  0@HP X $`lp B      .' $ 8@ H,QX   (8L ( 0 $@hpb?  ( 8#H8`"88"82J2J($8`$8,8,8"8&88 8`"8 8 8 88(@L@  . 2-  -2-(`h p -x4- 2Q  (0@P`p,  $l0 8"@ H P $XGp    $G ( @ X hxG    $G 8 P h xG    $G( H ` x G    $ G8 X p  $G     0@H$PDh    $G( H ` x   $l "  (8HXhx  (8H P $Xlh "    ( 8 H X h x         !!(!8! H!X!h!x!! ! $!l!! !"! ! ! $""0"8"P"$X"p""" 0""$""##0#$8#P#h#p##$#####$#$$ $8$$@$X$p$x$$$$$$$$$$% %(%@%$H%`%x%%%$%%%%%&&&  & $(&l8&X& `&"h& p& x&&& & &&&&&&'&'& '&0'&@'&P'&`'&p'&''&'&'&'&'' ' $'l( ( (("0( 8( $@(X(h(x($(((($(((($))()8)$@)X)h)x)$))))$))))$**(*8*@*P* X* $`*lp** *"* * **** * $*l*+  +"(+ 0+  8+H+P+ X+ `+ .p+'++++ +$++ + +  +B,B,B8,BX, Bx, B,(B,(B,B-.g(-BX-"Bx-B-B-B-B.B .@.,H.2`. .."..L..$O. //.L/@/H/X/ p//./2-/ ///-0 2-0P0 X0`0-h0 4-00 0002Q011 101@1P1`1p1 x1 $1l11 1B1 1 1  1,12*2@2P2X2(^`22 2 2.2'2222 2$23%3 (3 832\X3 &L3,+33 33 4 4&L(4 ,+P4 444 4,4.*4455(^5@5 (H5,p5|O5 6 6 6(6(^06X6 $`6,6|O6  7 0787@7(^H7,p7 |O788  8(8 (^08X8`8 h8,8O8 09 @9H9P9(^X9,9 O9(:8: @:H: (^P:x:: ,:tO: ; (;0;8;(^@;*h; 8*; ; ;;0; @*; 0< @<H<,P< 2*h< < << (^< *<8*=8=H= P= 0X=@*p=== ===  =,=.*>@>P>X>(^`>> >,>|O> H? X?`?h?(^p?? ?,?tO? H@ X@`@h@(^p@&R@ B*@ A A A(A 0A,PA8*hAAAA(^A*A >*B @B PBXB`BhBpB xB $BlBB B"B BB B B B*C8 C8CPChCpC xC*C8C8CCCD D8D@D HD*`D8xD8DDDDDEE E*(E8@E8XEpEEEEEE E*E8F F8FPF`FhF pF*F8FFFFF F*G8 G8GPGhGpG xG*G8GGGGG G H H (H 8HL+HHH H"H HH H H H*H8I I8IPIXI `I*xI8I8IIIIJ J(J 0J*HJ8`J8xJJJJJJJ K*K8(K8@KXKpKKKKK K*K8KL L8L@L HL*`L8xLLLLL L*L8LM(M@MHM PM*`M8xMMMMM M M M N ND+ NhN pN"xN )N"NNNN N"N )N"NOO(O 0O"8O )@O"XOhOxOO O"O )O"OOOO O"O )P"P(P8PHP PP"XP )`P"xPPPP P"P )P"PPPQ Q"Q ) Q"8QHQXQhQ pQ"xQ )Q"QQQQ Q"Q )Q"QRR(R 0R"8R )@R"XRhRxRR R (R R *R &R * S PS `S hS $xS S &S "S *S (T 8T @T"PT )XT"pTTTT T"T )T"TTTU U"U )U"0U@UPU`U hU"pU )xU"UUUU U"U )U"UVV V (V"0V )8V"PV`VpVV V"V )V"VVVV V"V )V"W W .0W`W hW"pW )xW"WWWW W"W )W"WXX X (X"0X )8X"PX`XpXX X"X )X"XX ,XY Y"Y )Y"0Y@Y *PYY Y"Y )Y"YY *YZ Z"Z )Z"0Z@Z *PZZ Z"Z Z Z Z Z "Z*[.0[ 4eH[[ -[4e[ [ -[4e[ 0\8\@\ "H\*p\.\ 4e\ 4e\] -]4e0]4eh] ] -]4e]4e] 0^8^@^  *H^*x^.^ 4e^ 4e^_ - _4e8_4ep_ _ -_4e_4e` 8`@`H` P`*p`.` *L` *L`a -a *L a *LPa a -a*La*La bbb b*0b.Hb 4e`bb -b4eb b -b4ec HcPcXc `c*c.c 4ecc -c4ed @d -Hd4e`d ddd d*d.d 4ee8e -@e4eXe e -e4ee eee $f*(f.@f (Xff -f (f f -f *f g g(g 0g"8g  @g Pg `g ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/  webmaster@hyperdyne.co.jpX"H]@. ]`. ] \ % . ] z ! z % ! B@  z B@ \ ! (0 ! ( ! ( ].D] Z'ID͕sŽ B@ ! (n ! (Word̉ԍ͖gp ! (:OWordADBƂύXs· !p (:9 !p (  !r (: !r ( !!ni b 8 D%!f !p (n b 6 D%!f !t (nj b  D%!f$ !v (n b @ D%!f$ !x (n b < D%!f$ !z (n b > D%!f$ !| (n b 0 D%!f !~ (n0 b 2 D%!f ! (n  b  D%!f ! (nl b 4 D%!f ! (n b B D%!f ! (n ! (: ! (:d !!n0 b " D%!f !p (n b  D%!f !t (np b * D%!f$ !v (n b , D%!f$ !x (n b & D%!f$ !z (n b ( D%!f$ !| (n b  D%!f !~ (n. b  D%!f ! (n b  D%!f ! (nk>k>㗝l̎s撬R[h ! !n  (̎s撬R[h͂ĂĂBA@( ! B@ zH>d@> ! !n $$ ! (n ! !n$  .̎s撬R[h͐œ͂ĂĂBA@( ! B@ z=k=k=' z="= 0!2 0!2 , 0!4A@(kH=i@=]'memberNonamenameKana ! !n !t !n ! (n ! (  !t ( 'k< presidentName ! !n !v !n ! (n !x !n ! (n ! (  ! (  !v (  !x ( 'k;presidentNameKana ! !n !z !n ! (n !| !n ! (n ! (  ! (  !z (  !| ( 'k: postalCode ! !n !~ !n ! (n ! !n ! (n ! (  ! (  !~ (  ! ( 'k :address ! !n ! !n ! (n ! (  ! (  ! (:'k9 addressKana ! !n ! !n ! (n ! (  ! ( 'k9telNo ! !n ! !n ! (n ! (  ! ( 'k8areaCode ! !n ! !n ! (n ! (  ! ( 'k8personfaxNoemailmemo Bf[^x[X֔f̂`FbNĂsĂBA@(k`7oX7] 'memberNonamenameKana ! !n ! !n !t (n ! (  !t ( 'k6 presidentName ! !n ! !n !v (n ! !n !x (n ! (  ! (  !v (  !x ( 'k5presidentNameKana ! !n ! !n !z (n ! !n !| (n ! (  ! (  !z (  !| ( 'k5 postalCode ! !n ! !n !~ (n ! !n ! (n ! (  ! (  !~ (  ! ( 'k84address ! !n ! !n ! (n ! (  ! ( 'k3 addressKana ! !n ! !n ! (n ! (  ! ( 'k03telNo ! !n ! !n ! (n ! (  ! ( 'k2areaCode ! !n ! !n ! (n ! (  ! ( 'k02personfaxNoemailmemo :Word֔f̂`FbNĂsĂBA@(k1o18 !t !z  !t (z  ! (: ! (k01o(1x !v !z  !v (z  ! (: ! (k0o0 !x !z  !x (z  ! (: ! (kp0oh0 !z !z  !z (z  ! (: ! (k0o08 !| !z  !| (z  ! (: ! (k/o/x ! !z  ! (z  ! (: ! (kP/oH/ ! !z  ! (z  ! (: ! (k.o. ! !z  ! (z  ! (: ! (k.o.8 !~ !z  !~ (z  ! (: ! (k0.o(.x ! !z  ! (z  ! (: ! (k-o- ! !z  ! (z  ! (: ! (kp-oh-!Private Sub txtMemberNoD_Change()$ If Me.txtMemberNoD.Tag = "" Then Me.txtMemberNoD.Tag = 1# Me.cmdUpdate.Enabled = True End IfEnd SubPrivate Sub txtNameD_Change() If Me.txtNameD.Tag = "" Then Me.txtNameD.Tag = 1# Me.cmdUpdate.Enabled = True End IfEnd Sub ! !z  ! (z  ! (: ! (kX+oP+8 ! !z  ! (z  ! (: ! (k*o*x ! !z  ! (z  ! (: ! (k*o* ! !z  ! (z  ! (: ! (k8*o0* ! !z  ! (z  ! (: ! (k)o)8 ! !z  ! (z  ! (: ! (kx)op)x ! !z  ! (z  ! (: ! (k)o) ! !z  ! (z  ! (:( Me.CheckAreaCodeD.Visible = Truek(o( ! !z  ! (z  ! (: ! (k8(o0(8 ! !z  ! (z  ! (: ! (k'o'x ! !z  ! (z  ! (: ! (kx'op' ! !z  ! (z  ! (:% Me.CheckPerson.Visible = Truek&o& ! !z  ! (z  ! (:$ Me.CheckEmail.Visible = Truekx&op&8 ! !z  ! (z  ! (:$ Me.CheckFaxNo.Visible = Truek%o%x ! !z  ! (z  ! (:# Me.CheckMemo.Visible = Truekx%op% ] .D㗝l̖O̐㗝l̖O͏ƍȂ㗝l̖OtKi̐ ! !n !!n  !t !n $ b 6 D%(fdx$ !!n  !t !n $ b  D%(fk $ !!n  !t !n $ b J D%(fk#k#k#㗝l̑\Җ̐ ! !n !!n  !v !n $ b  D%(f  !x !n $ b @ D%(fd" !!n  !v !n $ b * D%(f  !x !n $ b , D%(fkX" !!n  !v !n $ b  D%(f  !x !n $ b T D%(fk!k!k!$㗝l̑\ҖtKi̐ ! !n !!n  !v !n $ b < D%(f  !x !n $ b > D%(fd !!n  !v !n $ b & D%(f  !x !n $ b ( D%(fkP !!n  !v !n $ b P D%(f  !x !n $ b R D%(fkkk㗝lX֔ԍ̐ ! !n !!n  !~ !n b 0 D%(f  ! !n b 2 D%(fd !!n  !~ !n b  D%(f  ! !n b  D%(fkx !!n  !~ !n b D D%(f  ! !n b F D%(fkkk㗝lZ̐ ! !n !!n  ! !n $ b  D%(fd` !!n  ! !n $ b  D%(fk !!n  ! !n $ b  D%(fkkk㗝lZtKi̐ ! !n !!n  ! !n $ b 4 D%(fd !!n  ! !n $ b  D%(fk !!n  ! !n $ b H D%(fk`kXkP㗝l̓dbԍ̐ ! !n !!n  ! !n $ b B D%(fd !!n  ! !n $ b . D%(fkh !!n  ! !n $ b V D%(fkkk㗝l̎s撬R[h̐ ! !n !!n "݂ɂ͑㗝ls撬R[hȂdx !!n"݂ɂ͖Ƌls撬R[hȂk0 !!n$݂ɂ͕㗝ls撬R[hȂkkko B@oAttribute VB_Name = "lo^"D Bas0{09593DBF-26C0-491E-9AB3-F2B27B98331B}{H87E4B-1AAF-4231-B879-DC6254F32E6C} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All Areser;.http://www.hd.co.jp/webmaster@ O@ption vlicit Pgk Sub UForm_Initialize()B @ rror GoTo Err(Mes Dim cBranch As cls ASetF`= New m0yColle~cA(GiIntegerCO D&.Get(ni3%j> 2j@1 @9.C8oun@I Me@mboBoxC9.AddItem& (jNe0xt j$ListIndexi ockB 0Back7g= &HE0AJgPA:fPaePda#mySta`rtPos$H= KAGAMI_`COUNT 'ID͕sŽɃ` txtIDD.ValuAu"}d%isix'Word̉ԍ@gp MemberNoW8.Eno(ybO! ADBƂύX!).`6L2DD.cIf Ǘ҃j[.ȉЂ̂`# Ĉ( Theng--cP`(pC7, c݃ $).R0esul^dKa8naW tKi `@sident1A Trim(_ \Ґ wog 2 L" ^ $Ir >M%{a s  ostalCode X1:O3E})E $4 3/Ad:drs}Z /`L4!-]TelJ9eOSdb `?Px41cmdSearch{obE1?IƋlV@1NGq 11ooݐ\HetOMAM7uHp rHScHF?N;YY9H03z IAUmI!e ?QIO>G>IJn O IHtAJJ.666OJiJ/7'7J4c#AJ gR?KR9! E`nd If_K~#KĎuK Ձ__[M1 xtKPKe KҐ).Result) Me.txtPresidentName2W.Value = Trim(cP.Get$(pKAGAMI, cݕl\Җ'Kana16itKi+qm8ostalCodenX֔ԍO3jՆ0f04[AddsgaZ-}/ {ETelNoadb\-reasW.EnabledFalse cmdSearch End IfIf C1"" Th en Label.ForeColor%&HFF&V Caption"f[^w܂͂܂(B"M`iPage1 EJ!~Dg `KINIadAID() 0暬,& "C"x#Xɓo^"邩mF@$J$^8012g PB8Ƃ6b;kPRefhBoxLetTag`'@\`ToDocSAB cdD[Word9Update9@ComparZSelect.Vi\si{OzD`t@eCheck!Exit Sub ErrMe XMsg` & vbCrLf &Descr~iuC E @6BPXriv@ '_@Click(  On `GoToA! &Dim cP As clsPaperSetq= NewmyAg0\AStrin{!=M?'cac*/@`PANot IsNull(;) C@`EA[.Insert= nV29c " 5@A3"5^SoCYK<(A 8N'@.deess_/_/r_/V_/_/_/Ar_/[/D_/_/_/#_/1_/_/:1\/Df?/F?/?/?/?/Av?/?/?/i1?/?/q1o5?/K?/;/%~=MF@@ ?/^ aU?/?/1?/??/?/^ /UnloadV"i R/bmdFromDB22@=(Datauq& A  1DFDIC{mCACCvbCrLf _G!fPu'v{^NbNS@VSA@/cmdSe.8Tagg:G Vi sible@ Truha=0lGjO qlPmy t.Item(1ga3lIDl myC "ID"NMemberNom({sn@KanaA Postade1'VBA.LefA.p"),, 3  2 Ri$gh? 4/ rexsid !$2pEH2A*f40 A* hAdd s/ac/!ssk`OTelat!reaCod5n30:"aDPeprson Qf;p"Fax/ ~fEmail/(eCB҅[Bolvltv8012Yve̒emF@邱~ł@wFb'Textv1e㏑ЌINI.ReadGvǗ҃j[.ȉ̂00l`îs0 FayxZd^B("", ")Q6hL[a ƋlF 1q?   q " RJ  1_ s g5? x J_ =a~v??W ]av111EnadU-L($ 1<..0i<> ""|1RarchDP9`et3Uppdate"DCompdDЯxteCSuDB X; ErrMes:sSP.Nu1 0 (MsgT H& D&RDescr~i#%<7Priv SubBWAndD(a On0cGxoTo # AWr[j Me.txtNameKanaD.BackColor = &HHC0F  W#bCheckW.VisiblecTrue _ -D-End LIf= IfPresiden@1W.Enaudv Then=?alue <>*V% A ]˂# [A8SL2[L2$gLe 1@L pL_AsB]h (0] `V?WA0 t/Wa 0 ThenB|sgBox & vbC rLf &BDescriptioD End IfC APrivate" ResetTag()%Onor Go e/ / =/ / / #/ / p<so o j t A _CC ICxt: 4h?8?8xtwoT88   _ _ ^  t$++ O)X6LA  4 cmdS`earch?e xr Tru!)q߉rbM'߉ClDataBase?_ 'DB^u𔒎cberNoD.Value = "" '͋ɂȂ 'lMe.txtName6Kana>Presiden1"%>2"%t#O)SostalCode&"Addss\DTel0AreaQcmdSearchD.EnabledFalse!@PersonUFaxWEmailUMemДExit Sub ErrMes:##CIf @.Num <> 0` ThensgBox & vbCrLf &BDescriptioD End If@Private! CheckForRe@gist() OnAor GoT~oC*F)NnWXTr -e. Visidc 7O  4CKDqJ#W.?a%1%?Q}&Pi$}8\ PI#£_A"db""!':@-`ToDB?VO?V?V0]?Vb Compare_Cplick/V.VWAndDS OSWord_R_grgVMgggǟggPUpdOgb^%Beforej`B}r IcDim cP As clsPapersSetq= NewPcP.'Get(DB(i)z""myDatabasA.EֈR ց= q myBID Integ S= @(Gp}QLong~wCollec-my8SiWith wcq. XRIDē, "IDT<`鹐memI1WnameuaWuponUi~2~Q / d΀'oʱa ²/ " F~ `I9za߳k`_Rg(rtɟÀfqYĐeAş(ŀp0otM!7S6?Jc5 RIfLInsertAgB<, myID)U:2+V!iV1@LabelResult.C>a <$"o^p0B:Tv e ,1)t = False Then Exit SubTEnd IfDUTKR av~eR $G_[.4[.z!Rg ErrMes:*.Numbe@r <> 0eMsg| & v`bCrLfDescri“C ) `SPriv FuncCh@eckBef`Regist() As Boolea OnaGoToA }'ԍ@K{cDMem No= ""-3ce¬e 0́bྂY @Focus!B3E" UTrim(StrConv(,`4Narrow))$ 䄣@Dim cPA.clsPaper= New K@'cDB.GetDB(!L)F&myDataba = .K !$CAmyBIDIntegwh ( ID&!ingC my= ) %d'łɓo^@Ăꍇ +'nB`p ,\), VBA.CLng`" )/M3_erNoQR/?k?"F/j/?v WA!p /P&*{ O /m!'E̎JOJ JJJJe.I K;29= IAIWide/IQt`Ki#5pȂ3!Kxana?\ƶl(% _"@xo"s_"p!HvbYesNo, ä vbNolf Q/Q%o_od KP\ka\+R&Presn 1 Bҁ-A;!}yRB] oo"]O&e(?6tp6A32UO4̷??24eU5AP = Trim(StrConv(Me.txtPresidentName2D.Value, vbWAT)) End If'㗝l̑\ҎtKi@If `Kana1p"" Then1s5sgBox(c!` & " df͂B" _ OS&lCrLf!%s܂@H"yY@esNo, 7")XvbNo Y1tSetFocus IExit Functio~ lseI^=Katak@c{ll@mmnnW@=o prAYsEesʓdcJ'=ostalCoderrX֔_:a`9Nqe oPInn4$4!3NarrowlNot IsNumericŲ=)q1͐4@?ų&& `JLenx<> 3u3-4v"peoաMy4ֻ3@33uH ,t4u,@?,`,#?-~~[=; s ?  SEK?.d6) 0.4?.OI.. cSƟZ@pK{ Atdd0sdd , E0O ue?w !09e j߰јq"Dku?wdywRBj# Z&tAS$J̓8dbA3,TelNo//+25BD O1OOb@:OcP cReplac&eă "-p"")c _D&AÐƃnCP3$q 1궖AsR[h,'Areag_'V';'`@B" Me.txtAreaCodeD.SetFocusExit Fun ction,El se@ Value = Trim(StrConv(H, vbNa@rrow))OIf Not IsNumeric;`) ThesgBox cl & "̎s撬R[h͐͂)Y nd IfjECheckBeforeRegistu & ErrMes:# .ber <> 0 M&CrLfDADescript(@{Private Sub cmdToDB_Click(kC#Dim b As BooleaDdb@5Fa'mem+No 'nam<KanaC76@]HNW.K}h D g Back Color-&H805 W. 9?TruDWA'presidentw-C=PI`> 1?KTA2Z2_me) 1_1C=k 882W _X"n9 "cTN :A ;q; .B Df4 FalsesgBox "Word֔f`FbN0ĂsB" U~ Sub Private: Pr,_Change()  G).TagG""~o 1ccmdToDoc.EnabledL: .Vi|si 1~Wo B  //vdϔ- sOelKaxϑ*?ome ???9콡 2,&:, x|ﶇ,"Wto o o kHHU a OM r $+9 V wߑ0rHyGG&o j &x?Ge.? ? 3 f   P? 6UXo i ((led = Tr ue Me.CheckPostalCodeW.Visible End If Sub Private  txt2W_Change()`If C %.Tagd"" Then )1 #cmdToDoc.EnaYTelNojg/d!$'MemberNoDg' ' h M3 ? r @4IgUpdNgB +Name*)( AKana)F *RS *?S re@sident 1P IDA2#"|2D'edU:? e!  <?=e=G)RWAdd@ sxZD3^\^ckfI ` ,Y_ _ s#   oAreaad& z dO O A i{"d/ / / F@1?Us  iOE?1(oD deoD C 1?= ?xt((o(# CC:yckD'''Persono f  y K 4c?&&Email  y :o o o R_ _ tFaxK_ Y :_ _ _ P R_ _ _ tϚL ? 9 )/ / / A   `DrToDoc_Click()  Dim cP As cls Paper\Set\= New h'㗝l̖O̐஍j <͏ƍȂD t Ki EIf Me.CheckNameKanaW.Value = TrTh enq/Ǘ҃j[.ȉ̂ Ĉ$Fa0lse %`cP.Get7(pKAGAMI, c&|]).Resul8t _H"= StrConv(gtxtf, v`bWideƅEI#nƋl&d\n??^^^1*n%(?427o[.oCao)c n?*?*c :8+ bu e , ,@ϴV!l,e,J.iXIIya 0hy'ytkyOJyy%yhoWJs'?OOKOK?S ӂ߿q e5&?  Cu__ xt,:)4% OL MLq???? --; ? ? ? _ B ]LX֔ԍPostalCodeĀ?qKK KB j>Ņ O3cQ=ć J%%ö%4/