ࡱ> #XfY~Ztucs  P V ^ }RQ R?bjbjcTcT>>>Y00ww8/K^}}} "###L;V]]]]]]6ac`]E$!^ "$$]ww}@^***$w}@L*$;V**M9|59}p5+(9@V^0^98d(8d$998ds:h$$*$$$$$]])p$$$^$$$$8d$$$$$$$$$0 =:  FORMTEXT touroku2011.dot !q}@\0 FORMDROPDOWN 03uˊf  FORMTEXT      t^ FORMTEXT      g FORMTEXT      e0 FORMDROPDOWN 0 FORMTEXT        FORMDROPDOWN 0k 3u ˊ 0 FORMDROPDOWN  OjuS  FORMTEXT      FORMTEXT      OO@b0000  FORMTEXT       OO@b  FORMTEXT       l T0000  FORMTEXT       l T  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        FORMTEXT       0000  FORMTEXT        FORMTEXT       Nhl T  FORMTEXT      0 FORMTEXT      0pS Nhl T  FORMTEXT      0 FORMTEXT      8:<DFbdfhnպ|gV>g|,#h`h.CJKHOJPJaJo(/jhb1hSCJOJPJQJUaJ h`h`CJOJPJQJaJ)jh`h`CJOJPJQJUaJh`h.CJOJPJaJo((h h B*CJOJPJaJo(ph0h h B*CJOJPJaJmHnHphu4jh h B*CJOJPJUaJph%h h B*CJOJPJaJph.jh h B*CJOJPJUaJph<p6 ^ `  H r_  MdG$WD`MgdhR  TdG$WD`TgdhR  SdG$WD`SgdhRdG$WD`gdhR ]^gdyE$a$gd`$ ]^a$gdg$ vWD]^`va$gd`$ G$]^a$gd[f npr˵ޟލwޟލg[Hg%jjh#CJOJPJQJUh#CJOJPJQJjh#CJOJPJQJU+jh`h`CJOJPJQJU#h`h`CJOJPJnHo(tH*jhb1CJOJPJQJUmHnHu+j6h`h`CJOJPJQJU$h`h`CJOJPJQJnHtH%jh`h`CJOJPJQJUh`hOJPJQJo(   $ & ( 2 4 6 8 T ȵu[uCu3h`h`CJOJPJQJo(.jhb1CJOJPJQJUmHnHtHu3jnh`h`CJOJPJQJUnHtH-jh`h`CJOJPJQJUnHtH+jhb1hSCJOJPJQJU$h`h`CJOJPJQJnHtH%jh`h`CJOJPJQJU#h`h`CJOJPJnHo(tHjh#CJOJPJQJU*jh#CJOJPJQJUmHnHuT V X \ ^ ` j l n ƴzhTB9*jhY!h CJKHUh CJKHo("hhRh CJKHo(v&hhRh @7CJKHo(v#jjh3dh CJPJUh3dh CJPJjh3dh CJPJU h CJo(hY!h CJo(h`CJOJPJQJaJo(#h`h`CJOJPJQJaJo(h`h`CJOJPJaJo(%jh`h`CJOJPJQJU+jhb1hSCJOJPJQJU      ԿԳԿԘygԿW?.hhRh @YCJKHnHo(tHvhY!h CJKHnHo(tH#jphY!h CJKHUhY!h CJKHnHtHh9 h CJKHnHo(tHh CJKHo(#jhY!h CJKHUhY!h CJKHo((jhY!h CJKHUmHnHujhY!h CJKHU#jhY!h CJKHUhY!h CJKH  " 6 8 : D F H L V X l n p z | ~ ñҜҌ|jҜҌR<*h h CJKHnHo(tHv.h h @YCJKHnHo(tHv#jhY!h CJKHUh9 h CJKHnHo(tHhY!h CJKHnHo(tH(jhY!h CJKHUmHnHu#jhY!h CJKHUhY!h CJKHnHtHjhY!h CJKHUh CJKHo(*hhRh CJKHnHo(tHvH ~ @ mW  !&SdG$WD`SgdhR dxG$WDXD2`gdhR dG$gdhR  SdG$WD`SgdhR  @UdG$WDr`UgdhR  @UdG$WD`UgdhR  @TdG$WD`TgdhR  @MdG$WD`MgdhR  TdG$WD`TgdhR       . ޹ޡށm[ޡI޹ޡ#j hY!h CJKHU"h h CJKHo(v8&h h @<CJKHo(v8hY!h CJnHo(tH#j hY!h CJKHUhY!h CJKHnHtHh CJKHo(hY!h CJKHnHo(tH(jhY!h CJKHUmHnHujhY!h CJKHU#jJ hY!h CJKHU. 0 2 < > @ H J L N b d f p r t v ޻ucSuA޻#jr hY!h CJKHUhY!h CJKHnHo(tH#j hY!h CJKHUhY!h CJKHnHtHh CJKHo(*h h CJKHnHo(tHv.h h @CJKHnHo(tHvhY!h CJnHo(tH(jhY!h CJKHUmHnHujhY!h CJKHU#j. hY!h CJKHU ɺ{mfmfmfmR@ɺ"h h CJKHo(v&h h @7CJKHo(v h CJo(hY!h CJnHo(tHh nHo(tH(jhY!h CJKHUmHnHu#j hY!h CJKHUhY!h CJKHnHtHjhY!h CJKHUh CJKHo(*h h CJKHnHo(tHv.h h @7CJKHnHo(tHv       0 2 4 < > @ F H J L ` b d j l n p ԿԳԿԳ{r`ԿԳNԿ#jhY!h CJKHU#jhY!h CJKHUh CJKHo("h h CJKHo(v&h h @7CJKHo(v#jnhY!h CJKHUhY!h CJKHo((jhY!h CJKHUmHnHujhY!h CJKHU#j hY!h CJKHUhY!h CJKH      " , . ƴџƍџсm[Iџ#jhY!h CJKHU"h h CJKHo(v&h h @YCJKHo(vhY!h CJKHo(#jhY!h CJKHU(jhY!h CJKHUmHnHu#jzhY!h CJKHUhY!h CJKHjhY!h CJKHUh CJKHo(h9 h CJKHo(hY!h CJo(  ^ .H8l8{eO  !&SdG$WD`SgdhR  !&@@UdG$WDr`UgdhR  !&@@@UdG$WD`UgdhR  !&TdG$WD`TgdhR  !&@MdG$WD`MgdhR  !&TdG$WD`TgdhR  !&@@MdG$WD`MgdhR  !&@TdG$WD`TgdhR. 0 2 4 6 8 L N P Z \ j l n ĵĵqĵ_UhY!h CJo(#jrhY!h CJKHU#jhY!h CJKHU(jhY!h CJKHUmHnHu#jVhY!h CJKHUhY!h CJKHjhY!h CJKHUh CJKHo("h h CJKHo(v &h h @YCJKHo(v hY!h CJKHo( &(8ɺt\Fɺ4t#jhY!h CJKHU*hhRh CJKHnHo(tHv .hhRh @YCJKHnHo(tHv hY!h CJKHnHo(tH(jhY!h CJKHUmHnHu#jhY!h CJKHUhY!h CJKHnHtHjhY!h CJKHUh CJKHo(*h h CJKHnHo(tHv .h h @YCJKHnHo(tHv 8:<PRT^`lnp؏m[I#jxhY!h CJKHU"h h CJKHo(v8 &h h @<CJKHo(v8 hY!h CJnHo(tH#jhY!h CJKHUhY!h CJKHnHo(tH(jhY!h CJKHUmHnHu#j.hY!h CJKHUhY!h CJKHnHtHjhY!h CJKHUh CJKHo( "68:DFHދyiދWIhY!h CJnHo(tH#j^hY!h CJKHUhY!h CJKHnHo(tH#jhY!h CJKHUhY!h CJKHnHtH"h h CJKHo(v8 &h h @<CJKHo(v8 h CJKHo((jhY!h CJKHUmHnHujhY!h CJKHU#jhY!h CJKHUHPRTVjlnxz|~·„·r„^L·"h h CJKHo(v&h h @CJKHo(v#jhY!h CJKHUhY!h CJKHo((jhY!h CJKHUmHnHu#jhY!h CJKHUhY!h CJKHjhY!h CJKHUh CJKHo("h h CJKHo(v&h h @CJKHo(v88888888(8*8,86888޽޲ɞ޽|f]N<#jhY!h CJKHUhY!h CJKHnHtHh CJKHo(*h h CJKHnHo(tHv.h h @7CJKHnHo(tHvhY!h CJo(U#jhY!h CJKHUhY!h CJKHhY!h CJKHo((jhY!h CJKHUmHnHujhY!h CJKHU#jDhY!h CJKHU0pS qjuS  FORMTEXT       qjuS  FORMTEXT       Nn0!q}@\n0{v20SQ0_0D0n0g00 FORMDROPDOWN n0[k000%R}n0f^0mH0f03uˊW0~0Y00  !q}-Pn0zkd$$Ifc0b8b8% t0644 lalxx$IfXD2YD2]gdcS$xXD2]^a$gd2A_$]^a$gdE< ]^gdyE8888888889 9 9T9V9X9ȸtbtR@-%jh!2hRCJOJPJQJU#h!2h-CJOJPJQJaJo(h`h-CJOJPJQJo(#h!2h-CJOJPJQJaJo(h!2h-CJOJPJQJo(h!2h-CJOJPJaJo(#h`h#JCJOJPJQJaJo(#h`hQVCJOJPJQJaJo(h`hQVCJOJPJaJo(#jhCJOJPJQJUaJ/jhb1hSCJOJPJQJUaJhCJOJPJQJaJ 9V9999T?xx$IfXD2YD2]gdcSzkd"$$Ifc0b8b8% t0644 lalxx$IfXD2YD2]gd2:xx$IfWD~XD2YD2^`gd`X9t9v9x9z9|999999999999ȸȒr]E5h!2h-CJOJPJQJo(.jhb1CJOJPJQJUaJmHnHu)j"h2:CJOJPJQJUaJh2:CJOJPJQJaJ#jh2:CJOJPJQJUaJh!2hi_CJOJPJQJo(+jhb1hSCJOJPJQJUh!2hB+CJOJPJQJo(%jh!2hRCJOJPJQJU+jAhb1hSCJOJPJQJUh!2hRCJOJPJQJ99999:::::$:&:(:*:,:H:ϺgXH<hQCJOJQJaJjhQCJOJQJUaJhQCJOJPJQJaJo(/j#hb1hSCJOJPJQJUaJ#h!2hi_CJOJPJQJaJo(/j$#hb1hSCJOJPJQJUaJ h!2hi_CJOJPJQJaJ)jh!2hi_CJOJPJQJUaJh!2h-CJOJPJQJo(h!2h-CJOJPJaJo(h`h-CJOJPJQJo(H:J:L:N:P:l:n:p:r:t:z:::::٘rbUE6hPCJOJPJQJaJo(h!2h-CJOJPJQJo(hn.$CJOJPJaJo(h!2h-CJOJPJaJo(*jh;CJOJPJUaJmHnHuh`h-CJOJPJQJo(#h!2h2A_CJOJPJQJaJo(+j%h$VhQCJOJQJUaJhQCJOJQJaJhQCJOJQJaJo(jhQCJOJQJUaJ+j$h$VhQCJOJQJUaJ9r:t:::::;oZZIII$d,$G$Ifa$gd!2xx$IfXD2YD2]gdcSzkdp&$$Ifc0b8b8% t0644 lalxx$IfXD2YD2]gdi_:::::::::::::::::::;;;¯Ι·tΙgWK8W%j'h.WCJKHOJPJUh.WCJKHOJPJjh.WCJKHOJPJUh.WCJKHOJPJo(%jq'h2:CJKHOJPJU#h!2h!2CJOJPJQJaJo(*jhb1CJKHOJPJUmHnHu%j'h2:CJKHOJPJUh2:CJKHOJPJjh2:CJKHOJPJU#h!2h!2CJOJPJQJaJo(hzfCJOJPJQJaJo(;;;; ;";6;8;:;D;F;H;J;L;N;ȶqaQA0 h!2h`CJOJPJQJaJh`h(CJOJPJQJo(h`h-CJOJPJQJo(h!2h-CJOJPJQJo(*jhb1CJKHOJPJUmHnHu%jE(h2:CJKHOJPJUh2:CJKHOJPJjh2:CJKHOJPJU#h!2h!2CJOJPJQJaJo(#h!2h!2CJOJPJQJaJo(jh.WCJKHOJPJU*jh.WCJKHOJPJUmHnHu;H;J;L;N;Z;\;qdRRR$Q&#$/Ifgd` ]^gdyE|kd($$Ifc0b8b8% t0644 lal$d,$G$Ifa$gd2:N;X;\;^;t;v;z;|;~;;;;;;;;;޷m_Jm2m.jhb1CJKHOJPJQJUmHnHu)j*h2:CJKHOJPJQJUh2:CJKHOJPJQJ#jh2:CJKHOJPJQJU#h!2h`CJOJPJQJaJo()h`h`B*CJOJPJQJaJph h!2h`CJOJPJQJaJ#h!2hgQCJOJPJQJaJo()h`h`B*CJOJPJQJaJph h!2h`CJOJPJQJaJh!2h`CJOJPJaJo(\;^;v;|;fT<w$Q&#$/IfWDB`wgdE<$Q&#$/Ifgd`kdJ)$$IfcF (Y1 D t 6Q016    44 la|;~;;;;;<ygOgg=$Q&#$/IfgdE<w$Q&#$/IfWDB`wgd`$Q&#$/Ifgd`kd*$$Ifc 0 Y1 # t 6Q01644 la;;;;;;;;;;<< <<<<ٶiYG5#h!2hE<CJOJPJQJaJo(#h!2h`CJOJPJQJaJo(h!2hE<CJOJPJQJo(.jhb1CJKHOJPJQJUmHnHu)j>+h2:CJKHOJPJQJUh2:CJKHOJPJQJ#jh2:CJKHOJPJQJU h!2h`CJOJPJQJaJ#h!2h`CJOJPJQJaJo(h!2h`CJOJPJaJo(,h!2h`B*CJOJPJQJaJo(ph<< <0<A/$Q&#$/Ifgd`kd+$$Ifc\ )(Y1   t 6Q01644 la$Q&#$/IfgdE<< <.<0<2<N<P<R<T<V<j<l<n<x<z<ι~l^Il1l.jhb1CJOJPJQJUaJmHnHu)j!-h2:CJOJPJQJUaJh2:CJOJPJQJaJ#jh2:CJOJPJQJUaJ#h!2hgQCJOJPJQJaJo(/j,hb1hSCJOJPJQJUaJ h!2hgQCJOJPJQJaJ)jh!2hgQCJOJPJQJUaJ h!2h`CJOJPJQJaJh!2h`CJOJPJaJo( h`h`CJOJPJQJaJ0<|<~<<<aO=$Q&#$/Ifgd2:$Q&#$/Ifgd!2kd-$$Ifc0 Y1 # t 6Q01644 law$Q&#$/IfWDB`wgd2:z<|<~<<<<<<<<<<<<<<ijpXI:h`h`CJOJPJQJh!2h`CJOJPJQJ.jhb1CJKHOJPJQJUmHnHu)jD.h2:CJKHOJPJQJUh2:CJKHOJPJQJ#jh2:CJKHOJPJQJUh!2h`CJOJPJo( h!2h`CJOJPJQJaJh!2h`CJOJPJaJo()h`h`B*CJOJPJQJaJph,h!2h`B*CJOJPJQJaJo(ph<<<<=:=weeSe$Q&#$/Ifgd2:$Q&#$/Ifgd`kd.$$Ifc40 Y1 # t 6Q01644 la<<<<<<<== =====(=*=,=6=8=˽ːocPo:o*jhb1CJOJPJUaJmHnHu%j/h2:CJOJPJUaJh2:CJOJPJaJjh2:CJOJPJUaJ h!2h`CJOJPJQJaJ.jhb1CJKHOJPJQJUmHnHu)js/h2:CJKHOJPJQJUh2:CJKHOJPJQJ#jh2:CJKHOJPJQJUh!2h`CJOJPJaJo(#h!2h`CJOJPJQJaJo(8=:=<=X=Z=\=d=f=h=|=~=======ʹʹjO=+#h!2h`CJOJPJQJaJo(#h51h`CJOJPJQJaJo(4jh51hb1CJOJPJQJUaJmHnHu/j1h51h2:CJOJPJQJUaJ h51h2:CJOJPJQJaJ)jh51h2:CJOJPJQJUaJ h`h`CJOJPJQJaJ h!2h`CJOJPJQJaJh!2h`CJOJPJaJo()h`h`B*CJOJPJQJaJph h!2h`CJOJPJQJaJ:=<=Z=dR$Q&#$/Ifgd`kdY0$$Ifc4F Y1 -  t 6Q016    44 laZ=\=f======>tbbbbbb$Q&#$/Ifgd`$Q&#$/IfWDd`gd`skd41$$IfcY11 t 6Q01644 la=================>>>>>ɸɅsɸ[ɅsF)h`h`B*CJOJPJQJaJph/j2h51h2:CJOJPJQJUaJ#h51h`CJOJPJQJaJo(4jh51hb1CJOJPJQJUaJmHnHu/jA2h51h2:CJOJPJQJUaJ h51h2:CJOJPJQJaJ)jh51h2:CJOJPJQJUaJ h!2h`CJOJPJQJaJh!2h`CJOJPJaJo(>>>-$Q&#$/Ifgd`kd)3$$IfcֈO Tz"+Y1 [ K t 6Q01644 la>>> >">.>Akd04$$Ifc\O TY1 [  t 6Q01644 la$Q&#$/Ifgd`>>>> >">,>.>0>D>F>H>R>T>V>f>h>ȥjZH6#jh2:CJOJPJQJUaJ#h!2hi_CJOJPJQJaJo(h!2hi_CJOJPJQJo(.jhb1CJKHOJPJQJUmHnHu)j 5h2:CJKHOJPJQJUh2:CJKHOJPJQJ#jh2:CJKHOJPJQJU h`h`CJOJPJQJaJ h!2h`CJOJPJQJaJh!2h`CJOJPJaJo(,h!2h`B*CJOJPJQJaJo(phh>|>~>>>>>>>>>>>˳ˡwkWC/'j 9hhQ<KHOJQJUo('jx8hhQ<KHOJQJUo('j6hhQ<KHOJQJUo(hWhWCJaJo()h`h`B*CJOJPJQJaJph)h!2h`B*CJOJPJQJaJph#h!2hi_CJOJPJQJaJo(.jhb1CJOJPJQJUaJmHnHu#jh2:CJOJPJQJUaJ)ju5h2:CJOJPJQJUaJh2:CJOJPJQJaJ .>>>>>>>>>>>g^YWYWYWYgd`]gd2A_kd5$$Ifc0O Y1  ' t 6Q01644 la$Q&#$/Ifgd2: >>>>>>>>>>>>>>>>>>>ïs_K?73737373hQjhQUhWhgCJaJo('jP>hhQ<KHOJQJUo('j=hhQ<KHOJQJUo('j =hhQ<KHOJQJUo('j<hhQ<KHOJQJUo('j;hhQ<KHOJQJUo('j^;hhQ<KHOJQJUo('j:hhQ<KHOJQJUo('j::hhQ<KHOJQJUo('j9hhQ<KHOJQJUo(>>>>>>>>>>>>>>>>>>>>>>>>>>>>??>>> ? ??hWhgCJaJo(hLhQhQ???? ? ??]gd2A_<0&P 10:p[fA .!n"n#7$7% D000000 Ttouroku2011.dotDf00000001xbW0f0O0`0U0D0{v2Sb{v2DK0L003uˊt^ InputForm CheckFormDK0L003uˊ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 CheckFormDK0L003uˊOO@b InputForm CheckFormDK0L003uˊOO@b InputForm CheckFormDK0L003uˊl T 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 K0L003uˊNhY InputForm CheckFormD K0L003uˊNh T InputForm CheckFormD K0L003uˊNhY InputForm CheckFormD K0L003uˊNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormDf00000002xbW0f0O0`0U0D0 ll,{27agn018,{2 ll,{27agn029,{2$$Ifc!vh5b58%#vb#v8%:V c t065b58%alDf 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!vh5b58%#vb#v8%:V c t065b58%alDf00%351.2MHz^351.38125MHz06.25KHz30l05wDf00(351.16875MHz^351.19375MHz06.25KHz5l01wDf Dropdown200)351.16875MHz^351.38125MHz06.25KHz35l01wDf Dropdown1002351.2MHz^351.38125MHz~0g0n06.25KHzn030ln0O(uo0hQVn0x Nk0P00$$Ifc!vh5b58%#vb#v8%:V c t065b58%aljDjDjDjD$$Ifc!vh5b58%#vb#v8%:V c t065b58%al$$If!vh5 5D5#v #vD#v:V c t 6Q016,5 5D5/ $$If!vh5 5##v #v#:V c  t 6Q016,5 5#rDJS҉eW[jD$$If!vh5 55 5#v #v#v #v:V c t 6Q016,5 55 5/ / Df00!|fj0miR(utD00002$$If!vh5 5##v #v#:V c t 6Q016,5 5#jD$$If!vh5 5##v #v#:V c4 t 6Q016+,5 5#/ rDJS҉eW[tD00003$$If!vh5 5- 5#v #v- #v:V c4 t 6Q016+,5 5- 5/ $$If!vh51#v1:V c t 6Q016,51tD00004tD00006tD00008$$If!vh5 55[ 555K#v #v#v[ #v#v#vK:V c t 6Q016,5 55[ 555K$$If!vh5 55[ 5#v #v#v[ #v:V c t 6Q016,5 55[ 5jD|D00009JS҉eW[$$If!vh5 5 '#v #v ':V c t 6Q016,5 5 '/ / Dd,X  C &Aarrow3"@@bqc*|!7nqc*|!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 "@@ CompObjaVBFrame5zv0000++fVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} [Uj[ Caption = "j[" ClientHeight = 5820 ClientLeft = 45 ClientTop = 330 ClientWidth = 7515 StartUpPosition = 1 'I[i[ tH[̒ TypeInfoVer = 169 End $  }t &R KQ_ MS UI Gothic ,H00000}$(00000}v}k0;bY0g "u MS UVBA+`j+ThisDocument&n__SRP_11 $__SRP_10 !"#$%&'()*+,./0123456789:;<=>?@ABCDEFGIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxz{|~ * .!2A@&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" _%& MY_FILENAME"vt@̂܂܊JƂĂ@񂩁HvbCrLf & "炸 @ۑBA!ρ 3K/@v@@,ύX@@łA? G[@o%~G Word.ActE}.ClGQExitCEnd I>f%Dj D:(D .Number>&ED,DescriW?$` WTYNew?YC '# Z$achede!L~A_```I@=x"tb V̖O>_ /"TaaKU `v["DU?j%j`!ςqy~pcaq_ savechanges:=D?b5b!bb@WtbaprU (  !!ia"""Q$.$ $1'%Y%%% &!&I&a&&& |1| 41 aY `` IWHK.x$ 4lx/xl'''0*#x*#t*#p*#l*#h *#d*#` *FP 2xtplhd`6P0 $  l@l'''0  l#x*#pt  ,lt*FP 2xpt)6P0(H$ @ xtplhd`P0 Kwlhx$ 4x Xh:X]"LL  <8<<<N0{00020906-0000-0000-C000-000000000046}8 @`0k 4`k%@ % %@8P"$(*&,.@x @t @0p @Hl @`h @xd @` @P @@ @0 @ @  @ @ @h @ @ 8Ph (*&,.x@x @h @XX @H @D @4 @$ @ @ @( @@ @ @p @ @ @ @ @ @ @0x @Hh @`X @xH @8 @( @ @ @ @ @ @ tAtt@@ RYP$*\Rffff*0450cc4c84*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13$*\Rffff*0O50cc4c84*\R0*#14*\R0*#e$*\Rffff*0N50cc4c84*\R0*#94/  8 "X "  &.(l " (8@HP X $`lp "  8l0.  $l @ H X ЃnCp[_C001 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/6) 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 .!0 * .!2A@&kxop@ ` !6!8 ( !6!8 (x    Wordt@C̖Ou (/ ( xvu !6!8vɕύXĂ܂񂩁H *u (/ (/xvt@C̖OςȂ悤ɂĂBA@&: !6B@B| kA@,|  .!0 .!04\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 H H$ &&,8B(% c&q&`ٱ nGetVersionExAn8GetVersionExAn\$GetProductInfonHLoadLibraryAAernlFreeLibraryn$GetProcAddress<X@?i*=h8+3q B(zE1Ōx B(zE1ŌX@?iRhRRRME, SS SHlH~>"L<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}hH!+hp@ )j`A %l hphrhthv hx(zx +|p$pX$++ )jxA%~hphrhthv hx(z0( hHh`hxhhB CBBBHCBpBBpB BB B B BBBBBBb8C%+PHpH iiii0i+lpl i+p i+` pPw12\$xME(6 << < @H`HDPHFpHJ@L@PB TH X@@Z@^8@b"  @d@Htouroku2011.dot(xHo[W@1.04@2012/02/03B(pHHxHN @RH V  @\h@` @jpfhrr9fHrmkstation.ini dbo.T_HokatuT_AgentrmT_Clientdbǎ@[Uj[0ox 53<%ǎ@Ǘ҃j[@@[Uj[@Ǘ҃j[> HX8xP@h(pHx8xP@h(pHx8xP@h( RYP$*\Rffff*0N50cc4c84**  8 "X   (0Ph 6 6 6 x   ((  (08 @ $H @ ЃnCp[_CE1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/] webmaster@hyperdyne.co.jp dot@ConstHO[o萔://]$touroku2011.dot00]$o[W@1.04@2012/02/03x]$jpfhrr9fic]$rmkstation.iniHOf]$ dbo.T_Hokatu(]$T_AgentP1]$T_Clientp]$.L]$ǎ@[Uj[]$ǎ@Ǘ҃j[O[oϐ] ] ] @] ] h] 8] ]$%Zbg؂蕶@] x] ] 0Public Const cTextBox1 As String = "Text Box 51"00Public Const cTextBox2 As String = "Text Box 52"0Public Const cTextBox3 As String = "Text Box 53" @Attribute 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 Sngtouroku2p011.1zcVERSION o4W@1.04@Q2/03 PASSWORD !jpfhrr9f1 INITrmkstay.ini1DATABASodbo.T_@HokatuA@GENTDBET@_Agent CLIV Cli kPTextBox14A  5BU 2 2&' 3 fc$GHR"MAX"I@nteger4(000O UMe nuߊǎ@U@j[fAdminǗ85GgHgmySawrG*!myDatabasen(Password!2ATISo^sBoolean*myLocǂd#Sep'" 'Zbg@蕶!  ipib`Cb CbCb CbXCbCbCbC!b(C"bPC$bH C&bx C'bC)bC+bC,bC.bC0`, `Xk ai  i  i  Hd @ % H8 @%`D`B `<` , `k $i  i ,  `Hk` (.i"  i `$p,( `k  ggAi `*t`,p`l`.h`0d P @ % 4 @%,2`k , i4 0 i6P i  `*t`p  %B CBCBCB @CBHBBB B@B BBB8BbCbCbCb0CbCbC b C#b C%bpC(bC*bC-b C/xX8 ` p P` p8 H h p(Hp  PH0@ X p pXHx`h `0z pH0|h %@   %p@( @@ @ @ X@ "@ '@ @ I@( @@ @X @ @ pQ@( ^@ b@ @o@P h(@ P.*&@ @ @x @h @X  @(h`z.*&@Xt @p @pl @h @d @` @P @@ @0 @ @0 @ @ h8Ph ` x(`"t`"tH`"tHh&.*& @l @h @d @` @ \ @X @hH @8 @( @ @ @ 0 @ 0 H x 0 `  H``0xh( `(xxP2|@0 @0, @* H %0@ H@ Hx).*& @ @| @x @xh @X @H @8 @( @ @ 0 p  (  h2 `2z 0.*& @X l @h @@ d @` @p \ @X @ H @ 8 @ ( @! @(! @ @ ! 1h  8 @0^RYP$*\Rffff*2k50cc4c24(*\Rffff*2k50cc4c24\0(*\Rffff*2k50cc4c2hB(( 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擾1 CE---------------------------------------------------------------------co.jGetVersionEx֘Aer   doh^$\̂̃oCg^$,W[o[Wԍ(Windows98/95Ƃ &H4)11/10/^$8}Ci[o[Wԍ(Windows95 = &H0 Windows98 = &HA)db^$ rhԍ^$vbgtH[ID萔 Te^$OSɊւtp(  .L^^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]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 Edition]DH1@ Ultimate Edition]DH1@' Web Server Edition (full installation)]DH 1@' Web Server Edition (core installation)   ` ''http://www31.ocn.ne.jp/~heropa/vb25.htm]D ]D ]D@ ]X ]p  (p $|' , OSVERSIONINFOEX\̂GetVersionExB'k  (p $h' " GetVersionExɎsȂ...B( Debug.Print "GetVersionExɎs"zHk@: Windows 95ȂAuAvuBvuCvԂB(肦)M Windows NTnȂAT[rXpbNKpς݂ȂuService Pack 6vƂԂB !z !z  $ ' !x KT Windows 9xn@16rbgnWindows !rKTWindows NT 3.51'NT35' KT !tKT Windows 95 !zCWindows 95 OSR2' !x eWindows NT 4.0'dh Windows 95 'kHWIN98'  KT Windows 98 !zA Windows 98 SE'd Windows 98'kWIN98' ZKT Windows Me Windows Me'WINME' S` ɂ͂Ȃ...BWindows Me later'' nS ɂ͂Ȃ...BWindows Me later'' n  Build:  !v$' KT Windows NTn@32rbgnWindows W[ԍɂď𕪊 !rNT8 GetVersionExCvgOSNT3.5ȍ~łB0 Visual Basic 6T|[gOSNT4ȍ~łB; OSVERSIONINFOEX̂́AWindows NT4 SP6ȍ~łBK AWindows XP̌݊[hWindows NT4 SP5Ƃ[hł...BWindows NT Version !r.00 !t$'  ! KT  Workstation' KT  Server'nP dH S WXǵuHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptionsvB ́uProductTypevɐݒ肳Ă镶񂪁uServerNTvȂServerA0 uWinNTvȂWorkstationŔʂł炵...Bk` ' KT !tKT Windows 2000 Windows 2000' ! KT  Professional' KT  Server'n WIN2000' KT Windows XP Windows XP' !   Home Edition'd( ! KT  Professional' KT( Serverʖ̂炵BWindows 2002 .NET Server'n k WINXP' KTWindows Server 2003' !   Datacenter Edition' ! e  Enterprise Edition' ! e  Web Edition'd  Standard Edition'kx WIN2003SERVER' SX Windows Server 2003 later'' n KT !t Windows Vista & 7KT Windows Vista'WINVISTA' KT Windows 7'WIN7' SWindows 7 later'' n`] '  !r !t ! ! $  KT  Enterprise Edition' KT  Ultimate Edition' KT  Business Edition' KT  Home Premium Edition' KT  Home Basic Edition'S  Unknown Edition'nkMTUnknown Windows'' n   (Service Pack 6)Ƃ  ( )'k`  Build:  !v'n8'z(   .!0 .!0 * .!2A@&ki   &H8000& = &H00008000 'd 'kpzh ` .!0 .!0 * .!2A@&k(i  *񒆂 NullChar yёŐ󔒂揜] " '$ $ " $ $ $ &' d "$ &' kzx p .!0 .!0 * .!2A@&k8i0  ] ]D0 ]H ]D` ]x ]D ]D kernel32GetProductInfo$2'(zk  (p $|'0ȊOԂƐB '(z k'.  !r !t ! ! .$'0ȊOԂƐB '(zk MsgBox oviex.dwMajorVersion MsgBox oviex.dwMinorVersion" MsgBox oviex.wServicePackMajor" MsgBox oviex.wServicePackMinor MsgBox lngProductType . K KTBusiness Edition'0 KTCluster Server Edition'0 KT-Server Datacenter Edition (full installation)'0 KT-Server Datacenter Edition (core installation)'0 K KTEnterprise Edition'0 KT-Server Enterprise Edition (full installation)'0 KT-Server Enterprise Edition (core installation)'0 KT3Server Enterprise Edition for Itanium-based Systems'0 K KTHome Basic Edition'0 K KTHome Premium Edition'0 KTHome Server Edition'0 KT!Server for Small Business Edition'0 KTSmall Business Server'0 KT%Small Business Server Premium Edition'0 KT+Server Standard Edition (full installation)'0 KT+Server Standard Edition (core installation)'0 KTStarter Edition'0 KT!Storage Server Enterprise Edition'0 KTStorage Server Express Edition'0 KTStorage Server Standard Edition'0 KT Storage Server Workgroup Edition'0 KTAn unknown product'0 K KTUltimate Edition'0 KT&Web Server Edition (full installation)'0 KT&Web Server Edition (core installation)'0n 0'(z  .!0 .!0 * .!2A@&kPiH   (+ DLLAPĨGg[邩ǂԂBWindows Vistaȍ~ŃT|[g]p ] 4$'* * * 6$' '2 *$'dX'2kHz@ 8 .!0 .!0 * .!2A@&ki>Attribute VB_Name = "clsWinVer" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz 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__SRP_4e __SRP_4f clsRegEx>__SRP_1c(R Xlhqt/llt)l4lllt^Xqh(tLf"s#x>(tLf"s#ZicZC_jlR`R ME( SS S@^>"<,<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}=+:p@ Y<`Y>Y@s EdYB CluYDH+H$p $ Y<@DataYJ`atioYL EntYN1YP HYRse E+TLp L i<@atioiJrU O` ZZ \Zt `Y`3``!aaasaabQbybbZ c.icc dQddd eQeeeQffgYgg hhhi9iai\i jajj)kkQ$ $iQ$ llylmYmmnYo ppqyrrAs tt uuqv1w xx1yyYzz{ |]9_q^iZ'ZI'@4 (1( NNWNNN:dKpz qH&H^q<H lqDlDSpB qd&d^q<d lqDlD/Gx3#x3# 1lxG>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(/ tDlxI0_d PI _4I _0 0,x|hH(ZZZ8K& l4ll^Wqhrver^x h`l Buhb Hhdusin+f(p i< hWini>@iV`NT Vih00ijiBKT)lA %iDP inuHKE+p8ph Y<pevBvHCBzCB|pCBBBPB BB BB B BBBB8B%h !+ px iWindi iKTiii8iBBBBB B(,8 `"k@ 088Qi ` i i i `l`h`d` ``\, `)kx 4 i  i , `,k 8 //i  i8 i+X ix i  `h`@,d```\, `H/k8 < i X ix i `p  d @ %` ``\`X, `1kX @ i x i i  `p`l,p`!$k( D CCi Hi hi i i  `t`p`l`h`hd```\,p`pk H @i ii  Q `x "`v `t `r , `4dk ]i i `p `lH ,`6fk`  ii  ii  `l`p7h, ``&k0 LXXui P*ipiiX0 i i i8'$i  `p `l `h `d``` `\ `$xB,, `(%nk $i 8 iXX ix(ii%i  `8t4`p , `8kH PIIi hii iX ii x i$(i  `9\ `XB `T`9P`L`H`$9 ,  `;Zk0 ($i P iXpi iii  `<` `\, ``k` ,2i  `t `p`h%Br CBtCBxCB~CB(BBxB BB BBB`BBXBBBBB(  x(8 H  p  `P8pp8 X`x`` z @ `t `p`t`p(  x(8 H  p  `P8pp8 X` @n @d @` h `z `ztx`t@p h #`t @X(H``z 8 ` 8 `t:z@X @T @D !`t`t@!p#` p`ph!X#`t!#`p #(`l8 (X(H@ p" 8 "P `l@"4 @$ p p<   ` ##$P$8$ $p#$!h `X#x`t`p#p:\&'`t`t`@%X H@T 0@$D @$4 `t@$$ @$ @$ @ @ #Hp~@ xXH&%&%h &`%z &% %H'`t@n pH0''(''(8'(h',`th( ` 'z `tx'8'' '`t(':\&@0)X @T @@(D @((4 @($ @X( @p( (@ @ @( ((@) )()'Hp~@H) `))@ @ p)H);(Pp*8***8**P*h` *x`*8** *`t*p*x1@*d @+T H@*D @X+4 @@+$ `t@p+ @ @ h `+z +++++`t0,+`p`tP,X,,H`l@, :\5`t-/`p 8 ,+ (.-h-@.+X.+@p.L @.< -.-`t/ `p11`t@., @.( @$ h,&Tp~@. @. @ @ @ Hh`.x`t`t/ 8 /0x0`000/H0,fp~@0T @P @L /\& @0< @0, @0 @0 @0 @ @ X 112@3(3312-h 1`1z  21`t`t1`ph2@6`XHl2h5`hX6`d3p7`1`\~&\@h @d x@X3T `@p3D @34 @3$ @3 @4 (@ 4X7`t`p847`XHl7`h(4p9`d5X9`3`@ @6X666@6p6@2h`t59`Xp59`l69`h79`d`h5x(`t @j @d 778p772h `X7z 7`t`p889`t(8:`XpP8 ;`lx88;`h0:P;`d@f (9:x9`HH::x:`: ;p9h;`4h( `X9z `t`p`XHl`h`d`p9`:\&8;A5@;D @@ @:0 @: @; @: @: @ @ @8; @P; @ :T~p@ =<(=<P<h=P<P=h<h `8<z x<P<<8<`t<<`Xp<<`l=<`h@==`d(=@Z 7` `@TG@RYP$*\Rffff*0Z50cc4c84(*\Rffff 2@8x  2 * 86X4 0 \&X B,      & 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ݒ肷 "&r WXg̃L[폜  eb`^Dx$\̂̃oCg^D$*ZLeBfXNv^(Win95,98ł͖).ocn.n^D$1̂ƂAppWXg̃L[쐬( "'+/2WXg̃nhsion (']D ]D h]D]DH G]D]DB]DpDe]D]D8samDesired̒萔]D(9WXg̒l擾&]DP9WXg̒lݒ肷]D9TuL[쐬]Dx9TuL[񋓂p]D9"WXg̓eύXʒmv2]D 9$L[IuWFNgƂ̃N쐬ha]D]D8L[VK쐬]D8L[I[v      !#$%&'0)*+,-./"34~6E89:;<=>?@ABCD5FGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefohijklmnapqrstuvwxyz{|}"----------------------------------ȉAG[bZ[W֘A(bZ[W̕w̏Ŏ擾 "'*8H dwFlags̒萔x ]D8@)nSizefw肵TCỸobt@mۂfo$]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𓾂    $:'  $\'    A A@&'zkxobt@mۂ$$\'  %').myRegistryRegOpenKeyExŊJL[̃nh    $H'   L[‚Ȃꍇ Ap'zhk` Ap $\'    A A@&'zknh‚ Ap G[̊mF  ~ $' 'dx&G[R[hG[bZ[W擾 $\'    A A@&'ki8 'zk    % % 'ix  '] ] ] ] 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   % %' nhm    $:' &G[R[hG[bZ[W擾 $\'    A A@&zk lݒ肷     $T' &G[R[hG[bZ[W擾 $\'    A A@&z knh‚ Ap G[̊mF  ~'d&G[R[hG[bZ[W擾 $\'    A A@&'k(i     ,WXg̃L[쐬܂͊̃L[J] ] ] ] ]         $f ' L[‚ Ap G[̊mF  ~ ~'   ,L[݂ĂȂ߁AV쐬  e *L[݂ĂAPɂ̃L[Jk dx &G[R[hG[bZ[W擾 $\'    A A@&'k i    '] ] L[폜  $\' G[̊mF  ~'z@ e폜錠܂BA@&'z d &G[R[hG[bZ[W擾 $\'    A A@&'z` kX iP   ']]]]](]@]X t' HyperDyne'database' L[I[vănh𓾂    $:' 'dX ''k@ 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   % %' nhm    $:' 'dx 'kh k` z'SOFTWARE\HyperDyne' L[I[vănh𓾂    $:' 'd''k 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   % %' nhm    $:' 'd'kknh‚ Ap'i   p']](]@]X    $z8k0''  z'SOFTWARE\HyperDyne'k  t' HyperDyne'k 'd'kxipp]]  $'z k   $'i    ]]  $'zk    $'ix  "&'"WXgڑׂĎ擾]0]H]`]x]] L[I[vănh𓾂    $:'  $\'    A A@&z8k0] $obt@mۂ$$\'  %'- $KTserver'KTdatabase'KTusername'KTpassword'KTatis'S8n0.myRegistryRegOpenKeyExŊJL[̃nh    $H'  L[‚Ȃꍇ Ap'zpkh Ap $\'    A A@&'zk G[̊mF  ~ $' $KT 'KT 'XKT 'KT 'KT 'SXnPdH &G[R[hG[bZ[W擾 $\'    A A@&'zk $nh‚ Ap'zhi` ']]  $zk    X   $zk'i  "&"ׂĂ̐ڑWXgɊi[']H]`]x]]] nhm    $:' &G[R[hG[bZ[W擾 $\'    A A@&zPkH] $ $KTserver' 'KTdatabase' X'KTusername' 'KTpassword' 'KTatis' 'Sxnp7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   % %' lݒ肷     $T'  &G[R[hG[bZ[W擾 $\'    A A@&z8k0 G[̊mF  ~'d &G[R[hG[bZ[W擾 $\'    A A@&'kh $nh‚ Ap'z i ']]  $zk    X   $zkx'ih ']]  $z k]WordVBA  $' KT 'WXgWordVBAƂڂȂƂz0KT *WXgWordVBAƂڂu0v̂Ƃz`1KT *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-jlpHkj3Cx/dlllplt0>d1x/ X0xtld`l CtlCpfhlHkf9 Wpz/flhlllplt8kfpz/`0pth PlCtpz6dltX4lXl ^qTX1l}kp k" ll1 k9 ll1 kP ll1 kg ll1  k~ ll1$(:D N44$ $`1\64$;YTl\Jl\X4lXl` X1lllCx.(:D N44$ $`1\64$;YTl\Jl\X4lXl` d1hRlhC` l`0e/  l`0}/  l`0/ pz/ 0`hpd     o__SRP_1dUR-MQ1{v2 7xW__SRP_41gF9__SRP_40(uH&  (@)bLp q  !  9 ,bpp  T dp$   Q i 1  Q  4(((dp Dep  ) I q   (8`0   0,A`4 0<`8 a  #0` <  (0` @  #<A`D) A Y y #####0` H  (0#,` 00` ! a#LA ` L   ) 00000#@ `% ) 00000#L ` P   ) #@  `) ) #(I `-#_n#10b$*\Rffff*0V50cc4c84$*\Rffff*0Y50cc4c84$*\Rffff*3=50cc595c*\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*#1bC8<@!Dt"}HWH9tN۟n(_Aif93;H]M{+C/bDHGX;zxC/bDHGX;z9tN۟n(MEp@SPSSS8 ""p>" LL"""LLLLL*LP@BD(FHJLNPRT@VXZ\^`bk @ @ ( @ @ @ @0 @H @` @x @ t @ d @ T @ D @ 4 ( @ $ @  @8  @P \k@h @ @ @ @ @ @  <@X  0  <>h p  ?@ @ ~ X E@ | E H`@ z N@ x  N0 Q@@ v X  W@t h @ W@ Z X.*&%`P@ p @l @ h @d @T 0 Xp @P @h((><*&@BX\@ t @d @hT `@8D @@ P@0 @, @ @ @ 4bt.0&D@ p@ @ @8 P#@ 8#` h%Xh' @ @ FHJLNPR6@ @ @ TV.@ 8M@- r @@x p-r @x X H0hht `tl X1`h8`d` `` /`\/`h`d```\`h`d```\`h`d```\`h`d```\8$&.* @H @8 @4 @ @ @ x)@ @ @ @H *Fh`/@ pH/(H=@ @ @ @ @ 8  X0L RYP*\R0*#1c$*\Rffff*2m50cc4c24$*\Rffff*3C50cc4c24$*\Rffff*3<50cc595c*\R0*#f*\R0*#9*\R0*#1d*\R0*#1e*\R1*#10e*\R1*#H%L(P*T,X-\0`2d3h5l4p1tx|/  ."$&+')  $(, 0 4 8<@  8 "X "    80 P!`p   (8HXh x ( 8HXhx hl % @Xp 5 g%0 H5X p(g%  5 8 H %   8  P 5` x    $ l   "    , G  48     , ,  |4     G 4 H P 0X 4p  4 X`h p    F F $B B 18 BP Bp B B B B B B0 BP Gp G "G B B B B8X  A`  2   5  * ,+8 hp x*9+  $l "  (H `"h p B4  1( 081Xx 1  0 8+H    8+     (%0 Ph   &   ( $@h p x  $l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX]@ @]`. ].] $ %.----]  !֘  % !B@[ h $ !(  !(" !($ !&(( !*(" !,(" !.(" !0(" !2(" !4(" !6("ȷ !8("W !:(" !<(" !>("( !@("j !B(" !D(" !F(" !H(" !J(" !L(" !N(" !P(" !R(" !&(" !T(" !V(" !X(" !Z(( !\((eb !^(( !`((̷ !b((]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'dn df` $ d $ $+f $$d $+f $Wind f !F,h !H(j•ʶD'd df $ dЃ $ $+f1 C $$d $+f $ght re f !H,hp://ww !J(j ȈՂȋƖp̑D'd df@ $ dg $ $+f"-- $$d $+f $ f !J,hg֘ !.(jkKK֊KMKKCKߊKKlK㊇KKD 'd df  $ d $ $+fXg $$d $+f $eb f !.,h$ dr fr|p h .!0 .!0 * .!2A@&.nk0o( ] .n !>!r !<!r !>!r',ʕ̐ƋZKԍ̐Ă܂B *>\CĂxf[^`FbNsȂĂBA@&|8k0k( !@!rB !@!rFؔԍ̐1ł͂܂B *>\CĂxf[^`FbNsȂĂBA@&̒l|pkhk` !<!r !B!r ,ʕ̐Ɛԍ̐Ă܂B *>\CĂxf[^`FbNsȂĂBA@&|k !X!r  7f[^x[X̔lɂ͍ő250o^ł܂B *>\CĂxf[^`FbNsȂĂBA@&[W|k]@ !\!r !4!r !b!r,$t'dH ]X]p]  d dw肵..mۂ  n!z%|aIDC@x n!z%~cIDC@x@ !.!rlicenceNo_HeadC@x !0!r licenceNoC@xpIDC@x@, F !&!raddressC@xݍ !D!rareaCodeC@x@ !F!rMoveAreaC@x !H!rkindC@x̃n !J!rpurposeC@x.d !L!r issueDateC@x !N!r estabDateC@x !P!r beginDateC@x !R!rtermDateC@x $dcallsignC@x $dgitekiC@x@ $d productNoC@xD& !6!rsyoninC@xH !T!r frequencyC@x !V!rpowerC@x( !X!rmemoC@x q $d n!%'v vp  n!%|PkH v e  v n!%|k ve $ʕ̏d͎sOɊmF`!ʕ2ˆȏqbg܂BA@&| k   DBo^ n%!(ro^܂BA@&A@|(  .!0 .!0 * .!2A@&k o  Ǘ҃j[.Show A@r‚܂o  A@r‚܂op   , H ]   $   $$+d P +k ]X   $   $$+x d  +kX ]   $   $$+H d  + k   .ʕ̐ƋZKԍ̐vĂ܂BA@&'tzp kh k`   X .ʕ̐Ɛԍ̐vĂ܂BA@&'tz k k ]]  dx $  $$ $+d  $$ $+ddP $ $+d myArray(i, 1) = ""k  $$ $+dd$ $+d myArray(i, 2) = "" k d'tzx p .!0 .!0 * .!2A@&k8i0(Attribute VB_Name = "Ƌo^"  Bas|0{21E9AF6A-DC93-4DFB-99A1-B846A214701F}{8E8420B1-C7648A2-93EC-09BD40051B2D} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option vlic`it Pgk myCollec9As&ESub U"Form_Initial`ize()B@rror GoTo ErrMes Dim cB@ranch c$ls ASetF= New ')G iIntegerO D&.Gert(i3%j> j@1 @9.Coun@R Me@mboBoxC9.AddI(temX.(jNext j$ListIndexi ockB Back7g= &HE0AcEgtxt)@s.Visi i f!gentr.L#2@Cli{Co$LicenceNo_Head allSign7GitekiNo7Syonin9ProductSI$&BCWCe=a Code9M0oveAyKinUUBd($>)X, 1i ?0\xhenqM sgBox & vbCrLf & DescriptioEnd If7=PrivateC o^_Click( On#|GoQ>cP As cls PaperLSet = New4@StxtGitekiNoCxt.Value70"" T 8 CallSign WK"ʕ̐ƋZKDĂ܂B" _G[X"\Cxf[^`FbNsȂ kFHSyoninT 1`ę"FK1ł͝@LK%% %,%zIProduct(I! II)bHHH HC!F Len(fMemoCo) > 25"XxYX̔lɂ͍őB _ABA???!,#(!Vari8antc@GetFromStringd$EE2%<, FG","i!Int,egEjmyIDLonguj`LzAmyCollecaNothc $qG'Withۑ1.Add0`.INI.RrAID(|"aID"GadC^c1xde"k(zd|Od "ьp  l!ressaddAreaCode/"RMoveFOGKinkPurpos=W p/"IssueD6 iOEEstabJeOEBegi:nJbOETerm:t/d嚬(jc0s01-g2pfU y6s}Frequ/yfOEPowerpbmcqf/Aq=K=1@DB.InsertOrUpd"sQ1dhcP.9DBpGFal@R԰U߶S \,0$ID7z= -o 'd͎sOɊmF0y0V2ˆȏq@g@܁ʱ ?st(p@KAGAMI#DB1").DropDown'@i "LZP dh<#1_m s'Ǘ҃j[.ShowC Unloa7P'‚51"I'9ۡ܂ubar Fun/(yBy-ŐqSR,-GitekiNo As String, _ ByVal myProductDelimr)Variant On Error GoToMesnDimlCallSignArr8ay(?If In(1,, , vbTextCompare) <> 0 0ThenBkmy g= Split( * +&Else+Reb0)a <0) =dEnd IfGӢEE EEE"FF pFNFF GBGFG@UBoundVĩJc jkMsgBox "̐ƋZKvĂ܂B"aGet9From "Exit Functio({egi )!I!- """ab"" " -aiIntegermyio fCF,aXo 5dc F i`9#i` ˤi;] 1 }( `, w'"" Z)UUA 2S  NxS,!, 0:SP.Numbder/~ HH&CrLf &.DescripC1E Ciic"""5c$$$Cic&&&5c+++5 d51d5Qd5id5d5d5d5 e51e'''5Ye)))0i5 /)e`A /)e`IA0ie0ie0ie 0if0if0i1f0iIf0iaf 0iyf$0if(0if,0if00if   40if   80i g   <0rU @` FXA^1hAa Q)ya! i)1 Qqq 1Y $ $iQ$ 11As^q zyiI aIII}A-+FAr)Ci^^^^A^80i _<0i!_ @/)9_`AD0iQ_!!!H0ii_###L0i_%%%P0i_(((T0i_***X0i_,,,\0i_---`0i[000d5 `222h0i1`333l0iI`555pCiC444t5a`111x5`|5`Ci`///5a5)a5Ia5ia   5a5a5a5b5Ab   5qb5b 717` A0i0CiAc...i!g@0i9gAAWAAA L K x tlrx Qltjdt $ldc`8' @jMP@t @l l l6@ jd`K!krD@l l l5@l l ll l 0ll l 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 l ll $l ll Hl ll Xl ll xl ll Pl ll \l ll dl ll ll ll l ll ,l ll 4l 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 rlcHkrDPkrlkrlkrl rd5lM N' '@l Hl l6@ l Xl dlg:Pl:0#l:$l@ "Z@6 Yd5@%l rlc|~krDPkrlkrlkrl rd|;5lM N' '@l Xl l6@ l xl dlg:Pl:0%l:!l@ "Z@6 Yd5@%l rlcxkrDPkrlkrlkrl rdxq5lM N' '@l xl l6@ l |l dl :Pl:0&l:'l:(l:)l:*l:+l:,l:-l:. l:/ l:t0 l@ "Z@6 Yd5@%l rlctq krDPkrlkrlkrl rdt. 5lM N' '@l |l l6@ ZZ$d 1ll 2ldlE l'T'' d 1ll 2ld#p3*#dh 1ll ,2lh*F@ 42pdh)ll6@ T(L @ z(tx: phdll@ T K 5x,dt t d:T]@t5dGdt t dD@ @ D@)t@6dD4''0'D63*#,7*Fd 4/,6dD0,dt t d:T]@t5dO,dt t d(T]@t5dM4''0'D83*#,7*Fd 4/,6dD0Gdt t dD@ @ D@)t@6dD4''0'D93*#,7*Fd 4/,6dD00dt <t dD(T]tt5d84''0'D:3*#,7*Fd 4/,6dD0dt t D@ @ 0  ;0Dd,<2,)t@6dD0 5IL5Ic c=[t4t[t4t 4Ftx 4=t >''0:?NDDlid t6dD0Ftx 4=t >''0:@NDDlid t6dD0Bdt |t ''0:TANDDd t6dD0Bdt t ''0:TBNDDd t6dD01''0:CNDD:TNdd 6dD0Bdt t ''0:TDNDDd t6dD0Bdt $t ''0:TENDDd t6dD0Bdt Ht ''0:TFNDDd t6dD0Bdt Xt ''0:TGNDDd t6dD0Bdt xt ''0:THNDDd t6dD0Bdt Pt ''0:TINDDd t6dD0Bdt \t ''0:TJNDDd t6dD0Bdt dt ''0:TKNDDd t6dD0Bdt lt ''0:TLNDDd t6dD0G@(T%dq''0:MNDDl -6dD0G@(T%dq''0:NNDDl -6dD0G@(T%dq''0:ONDDl -6dD0Bdt t ''0:TPNDDd t6dD0Bdt ,t ''0:TQNDDd t6dD0Bdt 4t ''0:TRNDDd t6dD0Bdt <t ''0:TSNDDd t6dD0cA@(T%d,tx d=t HTlq/,t5dl 24@tx d=t LTk)@t  l_ 5l4@tx d=t PTk)@tZ  l +''0'D:TUNdd 46dD0 d9@t+Vx =t |W@ 8X)t@+''0'D:TYNdd 46dD0<$ 1tt 2lt l''0'D 1tt 2l#,3*# 1@@ ,2l*Fd 42,)t@6dD0 0x8 ,t@dD0PlxZ$[ \x$ xPlxZ$[ \x$ x l ChlCdlC`lC\.Klhl\r1\MH@lh8 ]86 Y4X58XlhlX;ldl\1\MH@ld8 ]86 Y40580ldl0;l`l\j1\MH@l`8 ]86 Y4,58,l`l,;l0lXl0+''' :H^N88 468 :Hl/l,clXl,a+''' :H_N88 468 :Hl/%lXlXcnklXkll0kl0kll0kll,Bkl,klbl,kl dlMH l/$4 1 2l4l''' 4 1 2l4#3*# 1 ,2l*F8 42)68 / `H l,0`d\hX0 8 @8rU AL$A`$AA`$A`$A`<A`A/nrU +/ zQAsy ty  clsRmkINIh/__SRP_2aM __SRP_2b0ymodCheckDataJ8ґ?    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 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𒲂ׂx 0H*J}݂ΈȌ̏BȂΖ   $$& $+LJ}OO̔z   $$& $+LJ}̔z $$server<4O̔z̒lserverȂAϐmyServer͌̔z̒l $$'Vk $$database<8O̔z̒ldatabaseȂAϐmyDatabase͌̔z̒l $$'Xk( $$username<8O̔z̒lusernameȂAϐmyUsername͌̔z̒l $$'Zk $$password<8O̔z̒lpasswordȂAϐmyPassword͌̔z̒l $$'\k( $$atis80O̔z̒latisȂAϐmyATIS͌̔z̒l $$'^kk $ '$k%Do[viJԂjV%t@C‚ V ݒt@C Bserverݒ肳Ă܂B  B̐ݒA@&zk Z ݒt@C B usernameݒ肳Ă܂B  B̐ݒA@&zpkh \ ݒt@C B passwordݒ肳Ă܂B  B̐ݒA@&zk X ݒt@C B databaseݒ肳Ă܂B  B̐ݒA@& Xzpkhk`'zP H .!0 .!0 * .!2A@&ki !@ ')Microsoft Scripting RuntimeQƂ邱$myPatht@C烊l[]`  .old B@L Uc$ <Tz!F@w*=h8+3q7Jz`A@_WCx7Jz`A@_WCTz!F@wME< SS S 6"LL <N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p8 ,@`k@ QQ i `i  perdyy@`lclsR`j`$h`(f ,`k 33Zi iiXii  i @Ăi   \xE %``VV%@%@PXh Ă`z , @HJ`t`t``t`(@T $&VXZ@D @4 *@$ @ @( @ h\^B&.*@ @p @ P@ @ @ 8Ph H  ` h$ `t`p X`Xl&. `h08 `d P```tH`p`Xl`h@h`d ```Xz `t`ph`XlP`h8`d``x @@0 X .*& @ D @ 4 @ 0 @ , @( @$ @  @  @ @ @ @ @@$RYP$*\Rffff*2n50cc4c24*\R6*#16*\R6*#7*\R0*#e*\R0*#19*\R0*#13*\R0*#14*\R0*#1$*\Rffff*0N50cc4c84*\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 V; gp”\ȃt@Cԍ擾]$'(ݒt@CI[vAݒL^   server,  database, X username,  password,  atis,  #----------------------------- #̍sȍ~ 3#㖳@NJǗf[^x[Xpݒt@C 7#ݒ荀ڂ́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폜 .old B@'z  .!0 .!0 * .!2A@&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}}  AqQ$9$ $iyAY A!I a')I'@4 (1( *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$/ 8lp@t0 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*`! ) #nrU $`$`$`$``@RYP$*\Rffff*2o50cc4c24$*\Rffff*3<50cc595c*\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*#47$*\Rffff*0`50cc4c84$*\Rffff*3D50cc4c24$*\Rffff*0_50cc4c84$*\Rffff*2p50cc4c24$*\Rffff*0^50cc4c84$*\Rffff*0N50cc4c84$*\Rffff*0]50cc4c84*\R0*#f*\R0*#2*\R0*#1*\R1*#10e*\R0*dq]xMEh@ "p> LLL""""" "LLL" "6 Y  :. - :(X  $`<6 Y  8. - 8( 0,@E`8@H PX  `66 Y  2. - 2( ( ,8  YX x!!! !! !!,6! Y!" "" (." -" ##((# @# kH#`$h$ p$ x$ $$ $.-$$$$ %% "%:68% Yx%P& X&`& 6.h& -& #&6(& ' <k'X(`( h( p( ,(.-((() !) >0)p) ))).-))))) **  *660* Yh*8+ @+H+ 2.P+ -+ #+2(+ + 0k,0-8- @- H- `-p- x-.----- --  -8F- &0.>6X. Y.x/ // $/<6/ Y/0 00 0661 YH12 2 2 (2,6@2 Yp2(3 0383 "@3:6h3 Y34 44 4664 Y45 555 5(66$.(6-P6$(p66 6 68C6067 Y077 78 88F 806X8 Y8H9 P9X9 ,.`9 -9 ,(9 9E9:: : 2-:: : ::;;8-;P;X;`;p;x; ; $;l;; ;B; ; ;; ;;B-<P<X<`< p<$<<<'<<<<D-<(=0=8=H=P= X= $`=lp== =B= = == ==B-=(>0>8> H>$X>p>x>'>>>.>2-> >??-? 2-(?`? h?p?-x? 4-?? ???D-?0@8@@@P@`@p@@@@ @ $@l@@ @A ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H']@.n n!zB@6f[^`FbNݶ n!z%zk@݂̏폜@cIDAaID݃ZNVɂ邽߁As+ If cP.INI.Delete("") = False Then Exit Function End If n!zB@ zk Xzk    n%!   n%! Pzpkhk`    n%!   n%! zkk ݔl n%! zkk  zkx n!zB@6 f[^`FbNݶς n!z%z(k n!zB@'z  .!0 .!0 * .!2A@&ki` '].n]>--------------------------------------------------------------\̊{Iȏ`FbN2\̃^CgƐ\̕ʂ̃`FbN@K{ ݎw肵Ă n%!!r6uݎw肵Ăvuw肵Ăv̂܂ 2\̃^Cguw肵Ăv̂܂܂łB *&CĂxsĂB ݃^Cg$& zk ݎw肵Ă n%!!re0uݎw肵Ăvuo^\v̂Ƃ6uݎw肵Ă2v 1=A2=2718A3=2729 ݎw肵Ă2 n%!!r,\̕ʂu2718vɂȂĂ܂B *C܂H \̕ʂ̏C$& z@d8 ݎw肵Ă2 n%!(rkk ݎw肵Ă n%!!re4uݎw肵Ăvuo^\v̂Ƃ6uݎw肵Ă2v 1=A2=2718A3=2729 ݎw肵Ă2 n%!!r,\̕ʂu2729vɂȂĂ܂B *C܂H \̕ʂ̏C$& zpdh ݎw肵Ă2 n%!(rk(k k ݋LNN n%! L͂Ă܂B *s܂H L$& zkxdpLN@N ݋LNN n%!'" "  n%'" "/01/01ggge %'" " ݋LNN n%(k ݋LN n%!LN@ ݋LN n%!'" "  n%'" " ݋LN n%(k ݋LN n%!LN@ ݋LN n%!'" "  n%'" " ݋LN n%(k̃`FbNw肵Ă  ݈ n%!!r "݂̈悪w肳Ă܂B *&CĂxsĂB  ݈$& z kk'z  .!0 .!0 * .!2A@&ki '].n n!zB@6]8ݖݔ̈ړ͈1ݖݔ̈ړ͈2 ݖݔ̈ړ͈1 n%!!r ݖݔ̈ړ͈2 n%!!r @ݔ̈ړ͈͂̃v_E𓯎ɑI邱Ƃ͂ł܂B *&CĂxsĂB ݔ̐ݒuꏊ͈ړ͈$& zkk*ݖݔ̐ݒuꏊ͈ړ͈̓t[ݎgyы󒆐d1ݎgyы󒆐d2ݎgyы󒆐d3ݎgyы󒆐d4]P'݊]o^̗LԂ܂ ݉^pJn̗\ n%!z k d ݉^pJn̗\ n%!'" "  n%'" "  n!%_^pJn̗\̓t`uxxNxxxxv邢́uHxx.xx.xxv`ɏCĂB *&CĂxsĂB ^pJn̗\$& z k k  %  ݉^pJn̗\ n%(d(  A݉^pJn̗\̕256𒴂Ă܂Ă܂B *D̂߂݉^pJn̗\mFEC邱Ƃł܂B *s܂H *Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ݉^pJn̗\$& z k k '"ݶ^pJn̗\ " n!z%z kx n!zB@k` ݊]o^̗L n%! ݊]o^̗L n%!'" "  n%'" "  n!%k݊]o^̗Lԗ̓t`uxxNxxxxv邢́uHxx.xx.xxv`ɏCĂB *&CĂxsĂB ]o^̗L$& zPkHk@  %  ݊]o^̗L n%(d  E݊]o^̗Lԗ̕256𒴂Ă܂Ă܂B *Ĥ߂݊]o^̗LԗmFEC邱Ƃł܂B *s܂H *Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ݊]o^̗L$& zkk '"ݶ]o^̗L " n!z%z0k( n!zB@k݊J݂̖ړI݊J݂̖ړIt[ o^̏ꍇ ݎw肵Ă n%!!r ݖݔ̏uꏊtKi  ݖݔ̏uꏊtKi n%!0ݔ̏uꏊtKi͂Ă܂B *,o^ł͏uꏊtKi͂ĂB *&CĂxsĂB ݔ̏uꏊtKi$& z@k8d0  ݖݔ̏uꏊtKi n%!'" "  n%'" "  ݖݔ̏uꏊtKi n%(kݖݔ̏uꏊR[h ݖݔ̏uꏊR[h n%!.ݔ̏uꏊR[h͂Ă܂B **o^ł͏uꏊR[h͂ĂB *s܂H ݔ̏uꏊR[h$& zXkPdH ݖݔ̏uꏊR[h n%!'" "  n%'" " ݖݔ̏uꏊR[h n%( b " n!%Hݔ̏uꏊ̎s撬R[hAo^Ă̂ł͂܂B *<CĂxs邩Ǘ҂ɂ₢킹B "ݔ̏uꏊ̎s撬R[h$& zkkkkݖݔ̏uꏊ ݖݔ̏uꏊ n%!(ݔ̏uꏊ͂Ă܂B *$o^ł͏uꏊ͂ĂB *&CĂxsĂB ݔ̏uꏊ$& z`kXdP ݖݔ̏uꏊ n%!'" "  n%'" " ݖݔ̏uꏊ n%( b " n!%jݔ̏uꏊ̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B *8Z͂Ȃ炸s{n܂ĂȂ΂Ȃ܂B *&CĂxsĂB ݔ̏uꏊ̏Z $& zhk`kXkPkHݎʕ]h ݎʕ n%!ʕ͂Ă܂B *$o^ł͎ʕ͂ĂB *&CĂxsĂB ʕ$& z@k8d0 ݎʕ n%!'" "  n%'" " % " ݎʕ n%(d  1ʕ̕256𒴂Ă܂Ă܂B *4̂ߎʕmFEC邱Ƃł܂B *s܂H *Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ʕ$& zkxkp " n%' z@d8ݶʕ  n!z%zk n!zB@kkݓK\ݔ̔ԍ ݓK\ݔ̔ԍ n%!,K\ݔ̔ԍ͂Ă܂B *2o^ł͓K\ݔ̔ԍ͂ĂB *&CĂxsĂB K\ݔ̔ԍ$& zkd ݓK\ݔ̔ԍ n%!'" "  n%'" " % " ݓK\ݔ̔ԍ n%(d  =K\ݔ̔ԍ̕256𒴂Ă܂Ă܂B *B̂ߓK\ݔ̔ԍmFEC邱Ƃł܂B *s܂H *Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB K\ݔ̔ԍ$& zkkx " n%Syonin&H݌vFؔԍTextBox1ɓ͂ݶFؔԍ " n!z%zk n!zB@ " n%Gitekie8ZpKؖԍ΂炵TextBox1ɓ͂ " n%'" "zHd@ݶZKԍ " n!z%zk n!zB@kkkݖݔ̐ԍ ݖݔ̐ԍ n%!(ݔ̐ԍ͂Ă܂B *.o^ł͖ݔ̐ԍ͂ĂB *&CĂxsĂB ݔ̐ԍ$& zkd ݖݔ̐ԍ n%!'" "  n%'" " % " ݖݔ̐ԍ n%(d  9ݔ̐ԍ̕256𒴂Ă܂Ă܂B *>̂ߖݔ̐ԍmFEC邱Ƃł܂B *s܂H *Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB ݔ̐ԍ$& zkk " n%'" "zpdhݶԍ " n!z%z0k( n!zB@kko^̏ꍇ ݎw肵Ă n%!!re ݖݔ̏uꏊtKi  ݖݔ̏uꏊtKi n%!.ݔ̏uꏊtKi͂Ă܂B *4o^ł͏uꏊtKi͓͂ȂłB *&CĂxsĂB ݔ̏uꏊtKi$& zhk`kXݖݔ̏uꏊR[h ݖݔ̏uꏊR[h n%!,ݔ̏uꏊR[h͂Ă܂B *2o^ł͏uꏊR[h͓͂ȂłB *&CĂxsĂB ݔ̏uꏊR[h$& zkk ݖݔ̏uꏊ ݖݔ̏uꏊ n%!&ݔ̏uꏊ͂Ă܂B *,o^ł͏uꏊ͓͂ȂłB *&CĂxsĂB ݔ̏uꏊ$& z k k ݎʕ ݎʕ n%!ʕ͂Ă܂B *,o^ł͎ʕ͓͂ȂłB *&CĂxsĂB ʕ$& z k k ݓK\ݔ̔ԍ ݓK\ݔ̔ԍ n%!*K\ݔ̔ԍ͂Ă܂B *:o^ł͓K\ݔ̔ԍ͓͂ȂłB *&CĂxsĂB K\ݔ̔ԍ$& zX kP kH ݖݔ̐ԍ ݖݔ̐ԍ n%!&ݔ̐ԍ͂Ă܂B *6o^ł͖ݔ̐ԍ͓͂ȂłB *&CĂxsĂB ݔ̐ԍ$& z k k k ݔl  ݔl n%!  ݔl n%!'" "  n%'" "  ݔl n%(kH݊Jǂ̗\萔 o^̏ꍇ ݎw肵Ă n%!!r ݊Jǂ̗\萔 n%! Jǂ̗\萔͂Ă܂B *,o^ł͊Jǂ̗\萔͓͂ȂłB *&CĂxsĂB  Jǂ̗\萔$& zkko^̏ꍇ ݎw肵Ă n%!!re ݊Jǂ̗\萔 n%!"Jǂ̗\萔͂Ă܂B *,o^ł͊Jǂ̗\萔͂ĂB *&CĂxsĂB  Jǂ̗\萔$& zkd ݊Jǂ̗\萔 n%!'" "  n%'" " ݊Jǂ̗\萔 n%( " %0Jǂ̗\萔ɐȊO͂Ă悤łB *"CĂxsĂB  Jǂ̗\萔$& zXkPkHݶ Jǂ̗\萔 " n!z%zk n!zB@kk n!zB@6f[^`FbNݶς n!z%zk n!zB@'zh ` .!0 .!0 * .!2A@&k(i  '].n n!zB@6f[^`FbNƋl̂‚킹 n!z%zk n!zB@ B@ n! ! zHk@ n!z%~z k n!zB@6f[^`FbNƋl̂‚킹ς n!z%zk n!zB@'z  .!0 .!0 * .!2A@&kPiH 8'] .n n!zB@6f[^`FbN㗝l̂‚킹 n!z%zk n!zB@ B@ n! ! zpkh n!z%|zHk@ !!rݶ㗝l㗝l n!z%z?k?d? !!rݶ㗝lƋl n!z%z?kx?kp? !!rݶ㗝l㗝l n!z%z?k?k?k?f[^`FbN㗝l̂‚킹ς n!z%z>k> n!zB@ !( !( !( !('zH> @> .!0 .!0 * .!2A@&k>i>=.݉^pJn̗\@ȃ\tgł͕K{ (^pJn̗\͂Ă܂B&CĂxsĂB ^pJn̗\$& XBAttribute 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|  S|ub_.^_o1kl"0 Communicat = ‚ rbr\"_ETC]_Vopi_@\ybca&yTru|̕ : #: @.Numberj0+MsgBox& vbCrLf &Descri+ `aom AmyS ng#'-8\̊{Iȣ…L"CgƁeʂ@K{|OES6w肵Ă@ m.DropDown.V/1'uSWvu_̂܂!70 3#("E f `łB:]&"C ईxs) ,)OKOnly}2}vbOKLבo}Q y7E /߳j//a 2//#o^8Ƃ2v 1=A2=2718ȁA329$$$2@[,$x ]o ̲,  v*0$ 2O HvbYesN>o&33"No?bAge62;%Rك&&&&3&&&'W ''''Ξ/ " 'QjM ''294ɂ';'''C'7''''''3 '˵LNN0" 'x1 '? v "s`^܂_?3?'1 @N=4,]ng = cP.SanitizeText(myString, pNarrow, True )  ZVBA. Forma & "/01", "ggge"vGetValue(pKAGAMI%LNN").ResultdoEnd If LIf VV<> "" Then"m'@@ x#`4"8AI(Q8QH?QònI;= S''̃`FbNw肵\AYDrop`Down.p1̫MsgBox("CЂ!B܂B" _xtvbCrLBfvCxsI@, vbOKOnlyvc!! Exit FunpctioHmxiCheckKagaLINI.Se|"c, d baveCR'DJ݂̖ړIt[D9cavw)8DropDown.42L4ݔ̏uꏊKi#$l@W""pD%̀6tg ab(ł f B ""n< Eg6iV Q {~ p~Wid}~H~ w_)$' 9..R`Ph_6 y _._.62?.b0i)>.._f,`?b,_0oT o,&G^ L[O,C,êYo,o,o,xUO,ng+ "myLoca?S КAreaCode.Selec׷n)C))̎s@撬HAb'X̂VP迍xi'U!҂ɂ₢`킹Vl "oW +/}-q.JJ'o'o'g'I_?xEsIIY}I?wb!0OO J O dvOJVaI p3vR9JOvZSAMI, "ݖݔ̏uꏊ").Result = myStri ng If0LocationJTrue T8hen LbTcP.AreaCodeInsert(^)D""BFMsgBox("ZAs{Ŏn܂ĂAsR[hɓo^̂ł͂B" _hF& vbCrLf & "?̀ȂDB C 6G00CT)T xs *cW,IOK0Only "avbOK[A8Exit FuncAyBEnd If_G'CʕDimCallSign As MGetValue(pKAG ?ҞŜ F܂׉ɇto |X=6lse1Dx`x@}.ŋSaniti zeTex, p>, a) 7VBA.Len< 256^_t?E#!$0I̕@𒴂@|܂iCĂ= mFEF邱1ł  HN ꍇ́AuSpEvuӖȃXy Xv@ǂɒ`YesNoLYNo<1qmyƌ= CJCPOjVn5IINI.S"i$,H Exit Function End If6cP.INI.Save@p  A'ݔ̐D"If |GetValue(pKAGAMI, ":").Result = "`" Thew(MsgBox("<͂ĂB" _H& vbCrLf & "o^ł((', 'Cxs #,@OKOnl&y=")@vb_fNԕ A@j$jołojQ5IojojKoj~mjy ;$RpFh߆ O OK^Ç_χ3_gχ!_[6/CP?V=?4>̅ s`u 8s_88ʕ?]kE swEsK\k?P./!sob__5___W/!?s??8Ѵ 'ݖ̐ԍ If cP.GetValue(pKAGAMI, "").Result <> "" ThenMsgBox("yĂ܂B" _ AE& vbCrLf & "o^(łRRPł^V -CExs %,FOKOnlyA") =8Exit FunctioEnd Ifl [kmyString/ 5KSanitizeText(, pWide, TruJ)f@)CGJ̗\萔 '̏ꍇMwPDropDown.B"2 z %dV f fcpene dd$e?'惈<0Else2== 3=饫%=q<񟤊 ģ\?=ۢ?=?=%=9v pd19 UNarr|owA=FVNot VBA.IsNumericf),R"ɐȊO|%ux wGx?_rw?X 7?r: ?&sq`INI.SE"{:!,{Fa&߲ bA xave Read ("f[^`FbN 0ς % .S CheckETC51{ L ErrMxes:SP P.*ber0) HGQDescrip' @Public SelectCIDFromDB() As Boolea OnQor GoTo c `R1Dimcl@sPaperEtq= New (Ƌl̂‚@킹' 0vр.Shows &@ConfigQadE /*,p= ] O I) 01 -11"11@/11)E411?2?2ctA?2?2?25?2cP?2?W?23?2?2O"㗝?2?2&&92?2 ?2= VVY%;2?2LǗ҃j[.PȉC0TƂĈ.Value = False Th en If cP.INI.Set("", "@㗝l)Exit F@unctioEnd IfqE {Ǘ҃j[.@ƋlTr h%M"Y?[ ]D`?a'bIgUf[^`FbNĜ‚A@UZP1aveTTCWƂEnabledť. o! HSelectAIDFromDB'C ErrMxes:CC@c@.Number <> 0MsgBox  & vb@CrLf &BDescripq. [Gu__SRP_1bg/__SRP_1a}MQ1N{v2 \ 2__SRP_3bĭ0*#L*F<^/L6< C6Lp+n1t p l lL 0/Lp~;'':,2N3*F<^6<yh.Lp+n1t p l >L1hp-L++^+nY`lht >L1h*nlhpt p $4knpOE'':,2N5*#L*F<^/L6<M#M,@< 6<( ]g5<(lp+n1t p p pk'':,1N7*#L8*#*#%*#*#9*F<^2 L6<lCh-nlh2pt 4p xknpKnpt 4p p6Lp+n:t p l lL =/Lp.Lp+n:t p l >L1hp-L++^+nY`lht >L1h*nlhpt p $4knpoE'':,;N<*#L*F<^/L6<m#M,@< 6<( ]g5<(lp+n:t p p p1k'':,:N=*#L>*#*#%*#*#9*F<^2 L6</lCh-nlh;pt 4p xknpknpt 4p pC`dp+nt p | d 4l`)pd{6Lp+n?t p l lL 0/LpdY'':,@NA*#LB*#*#*F<^2L6<_.Lp+n?t p l >L1hp-L++^+nY`lht >L1h(lhp+n?t p p p6Lp+nCt p l lL 0/LpY'':,DNE*#LF*#*#%*F<^2L6<}.Lp+nCt p l >L1hp-L++^+nY`lht >L1h(lhp+nCt p p p uG,Llhpt p (HlL 0/LpE'':,INJ*#LK*F<^/L6<6Lp+nLt p l lL 0/Lp% Y'':,MNN*#LO*#*#*F<^2L6< C .Lp+nLt p l >L1hp-L++^+nY`lht >L1h(lhp+nLt p p p uGA ,Llhpt p HlL 0/Lp? Y'':,PNQ*#LR*#*#*F<^2L6<= 6Lp+nSt p l lL 0/Lp Y'':,TNU*#LV*#*#*F<^2L6< z .Lp+nSt p l >L1hp-L++^+nY`lht >L1h#hM,@< 6<( ]g5< (lhp+nSt p p p k'':,TNW*#LX*#*#%*#*#9*F<^2 L6< L+nlht >L1 l 0) x -nlTpt 4p xknp[ npt 4p p6Lp+nYt p l lL 0/Lp Y'':,ZNrU~|  q1s3a+ 3y3i3$ $iQ$FF[A[YCa=<1==aGa>>!E9G GHGGE>)q?>y @q@YsaABB 9y DEEьIGaFF)CGIC AAI HHyaJIJ?JK1x LYLL9MNM)NN PxxAyQP QQARxRASyO TTTQUUVyVWaWYx XaXX)YytYZI ;!} I q}i ٗ\Kmpz tnpt 4p p-npt 4p xknpbnpt 4p 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 4p p-npt 4p xknpFnpt 4p ppz$X pp lXpl'''$X pp lX#h*#T\ `` ,l\*FD 2hT\)p`6D$e(t0 h\Tp`D$Kpz 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+nt h | d 4l`)hdC`dh+nt h | d 4l`)hdE'' :<N,,!*#\ *FL^/\6L, 9dh+nt h | d 8)hd6\h+n"t h l l\ 0/\hOE'' :<#N,,$*#\%*FL^/\6L, J .\h+n"t h l >\1ph-\+++nY`lpt >\1p9:<&N,,lp'*FL ( `1p6L, (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 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`)hdE'' :<+N,,,*#\*FL^/\6L, pz$` hh l`hl'' ',` hh l`#\*# dd ,l*FL 2\)hd6L, e,tp0 \hdL, hK\pz tnpt 4p p`dp+n-t p | d 4l`PTX+^.t X | T 4lP)pdXTE'':,/N[*#L\*#*#*F<^2L6< ?.Lp+nYt p l >L1hp-L++^+nY`lht >L1h#hM,@< 6<( ]g5< (lhp+nYt p p p0k'':,ZN]*#L^*#*#%*#*#9*F<^2 L6<.Llht lL_0/L-nlh`pt 4p xknpnpt 4p p=Llht lLa0/L=L+nlht >L1h lh 0;-nlhbpt 4p xknpnpt 4p p6Lp+nct p l lL 0/LpY'':,dNe*#Lf*#*#*F<^2L6<v.Lp+nct p l >L1hp-L++^+nY`lht >L1h#hM,@< 6<( ]g5<(lhp+nct p p pk'':,dNg*#Lh*#*#%*#*#9*F<^2 L6<L+nlht >L1h lh 0%t-nlhipt 4p xknpWnpt 4p pBC`dp+nt p | d 4l`)pdB6Lp+n?t p l lL =/LpRY'':,@Nj*#Lk*#*#*F<^2L6<P6Lp+nCt p l lL =/LpY'':,DNl*#Lm*#*#*F<^2L6<6Lp+nLt p l lL =/Lp~Y'':,MNn*#Lo*#*#*F<^2L6<|6Lp+nSt p l lL =/LpY'':,TNp*#Lq*#*#*F<^2L6<6Lp+nYt p l lL =/LpY'':,ZNr*#Ls*#*#*F<^2L6<6Lp+nct p l lL =/Lp@Y'':,dNt*#Lu*#*#*F<^2L6<>6Lp+nvt p l lL =/Lp.Lp+nvt p l >L1hp-L++^+nY`lht >L1h(lhp+nvt p p pC`dp+nt p | d 4l`)pd6Lp+nwt p l lL =/LpY'':,xNy*#Lz*#*#*F<^2L6<C`dp+nt p | d 4l`)pd6Lp+nwt p l lL 0/LpY'':,xN{*#L|*#*#*F<^2L6<.Lp+nwt p l >L1hp-L++^+nY`lht >L1h(lhp+nwt p p phM,@ }E'':,xN~*#L*F<^/L6<-nlhxpt 4p xknpnpt 4p pnpt 4p p-npt 4p xknp5npt 4p ppz$` pp l`pl'''` pp l`#L*# dd ,l*F< 2L)pd6<p4th@ LpdXT<DKVpz tnpt 4p p-npt 4p x5      !"#$%&'()*+,-./012346789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY[\]^_`abcdefghijklmnopqrstuvwxyz{|}~knpbnpt 4p p$$npt p knp'hpt 4p lhpnpt 4p p-npt 4p xknp/npt 4p ppz$h pp lhpl'''(h pp lh#d*#X\ `` ,l\*FH 2dX\)p`6H((t0 d\Xp`H(pKpz tnpt 4p p-npt 4p xknpbnpt 4p p$$npt p knp'hpt 4p lhp.Xp$ p XfH]3p5XG-npt 4p xknpB -Xp$ p XcH]3p5X-npt 4p xknp-Xp$ p XcH]3p5X -npt 4p xknp-npt 4p xknp=npt 4p pp$ p Ppp$ p Ppp$ p Ppp$ p 8ppz$h pp lhphl'''8h pp lh#4*#(, 00 ,l,*FX 24(,)p06X8'p(t0 4,(p0X8W$!`nrU ;$;`$A;`$;`$;`$;`,A;`#$;`$;`$;`$A; `$; fff*3C50cc4c24*\R0*#1c$*\Rffff*3<50cc595c$*\Rffff*2r50cc4c24*\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$*\Rffff*0^50cc4c84*\R0*#1d*\R0*#1e*\R0*#f$*\Rffff*0N50cc4c84$*\Rffff*0Y50cc4c84*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*3=50cc595c*\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*2x50cc4c24$*\Rffff*0V50cc4c84*\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*0S5Y8c*gjs0@OoB)F f,O-H!m` _3DM}22lx` _3DM}22l0@OoBMESPSSS"(  "p>""L"  "L"LLLLL "LL LL*LP<<<<<<<<<<<<<<<<<<<<<<<0{018E909D-840C-44C6-A67C-16AD82E259D4}{0342A037-4969-41A4-84C4-CCD93950D4CF}<T  `8kww xXed.% txco.j%`$rerdy`j d`] ] fPPasst@8 X n%`*$t 0`.k} nxP%`t `0k nx%`t `H,xk (`p'k,8`x)kh ]]iv i   nt%`f"`d" `% D0% x`2kii, ~`8%k%% n`#k-- l8 ` k NN x ``5k !!5  `7k 22V  `9k    `;k HH ntP%`j`vd `%,`x>k i  ``0AkXXy`z `8CkWW`z `tk  ( 8`tk$ 1 x`tk( :  `tk, C  `ptk0 L 8 `Xtk4 U x `tk8 ^  `tk< g  `@Etk@ p 8 `@tkD y x `(tkH   `tkL   `tkP  8 `(FtkT   x `GtkX  " `Gtk\  $ !`Htk`!  &8 "`Itkd"  (x #`-tkh#  * $`.tkl$  , %`Jtkp%  .8 &`Ktkt&  0x '`Ltkx'  2 (`hMtk|(  4 )`PNtk)  68*`8Otk*  8x+` Ptk+  :,`Qtk,  <-`Q4k-++$ nx%% >.`S|k.OX% % xx x8 8 8  8x (0x x88 x  xx 8 8 8 `%0% `@(pX @l @d @0b H @H` 0 @P @@  (,.02@0 @ `0   @0 @ @p H@ pp@ @  8 @ @H ` '@ pH'H)@ *@ *,46:8><B@ @ @ @FDJHNLR@PVTZX^\`Xbdjlnprtpvxz|~.*&@ @ @  p&`.*@x @t p(x@x @t pX8p@x .@t pX@<p@x @t X@(@p@x @t (@(Dp@x `@t H(Hp @x @t Lp@x @t Pp@x x@t (Tp @x @t Xp@x @t \pP@x @t @D!!X"p"!!@"2 0<@DHL@!x p@v Xh!PTX\`b.*@p @"l @h @("d @` !&@"P @"@ @"0 @" @" @ @ 0$#$$$$ 08<@DHL@H$x #PTX`\(2##.*&@t @`$p @l @x$h @d @$T @$D @$4 @%$ @D@ % @ \(@ P&%&&8&&@h&x %&.*@t @&p @l @&h @d &&@&T @'D @('4 @@'$ @D@X' @ @ `bp(@(((((X((.*&@@z @(t @p @(l @h @(d @` @)P @)@ @0)0 @H) @`) @ @ h0**h**+*,0*+H*h (`*z X*0** @*p @n @,h X2d*|.@(+P @*L @H @@+4 @X+$ @p+ @+ @ @ *(++tnxz+~.&X\@ @0, @ -,r/@x ---x0x@x @t ...x.@x @t ////0/T&`.*@x0p h@0` 0@0P @0L @00< @H0, @`0 @ @ @ @ @0 @ p11112x1&.*@h2p @1` @2P @2L @ 2< @82, @P2 @ @ 2@ @ @2 @ p4335344~ (8<@3x @@v @3d @` @3P @H5@ h3@D4HL(4PTX@4\`@4< @48 @44 @0 X4.*&@, @5 @05 8@ @ 66H6066x6(@6x @ 7h @7X 6t`6.*&@T @6P @L @6H @D @874 @P7$ 8@h7 @ @ 8888h8P888 8<D@8x @v @X9d @@9T 8LTX\8`r.*&@P @9L @H @(9D @@ @p90 @9 @9 @ @ :p:;;:X:rv.*&@:x @t @:p @l @:h @d @0;T @H;D @`;4 @x;$ @; @ @ p8X<x<<<`<><`><X.(2@z @=p @0>l \<`%<@=L @(=< @@=, @X= @p= @ @= H<@> @= @ =dx.*@ @ @H> @ =&0?@???A0?@H?h `?z X?0??(&2&@X@t @?d @?T @@D @?4 @(@$ @@@ @ @p@ @ @ h?*@@ @A @@.@ @ HABBB (8<@HBt @0Bd @BT @BD @@@ (A@DH`BLPTxBtX\B`&@B0 @C @ C @ @ CD DD( 8@PDt @8Dd @DT @DD @@ C<@DHhDLPTDX\D`&@D0 @E @(E @ @ FEE`p@x @t FFFx@x @t GGGx@x @t HHHx@x @t IIIx@x @t JJhJx@x @t KhKPKx@x @t hLPL8Lx@x @t PM8M Mx@x @t 8N NNx@x @t OONx@x @t POOx@x @t PPPx@x @t QQQx@x @t 8SRRRSS8:<@ St @Rd @T @D @B @< @hS8 R>@BDFH@4 PSJLNPRSTVXZ\^ShT@x+//XGRYP$*\Rffff*2p50cc4c24$*\Rf0cc4c84*\R0*#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*#1bTx8<@DHLPTX\`dhlptx|  $(,048<@DPTX`LHhlpt|d4\U  8 "X "    8( H!Xhx "v.v%Hh x  5  0 @ P`x  5   08  @&Xh x "C"F ( 8"FH p "F  "H"H"H0"HX"H"H"H"H"H "HH"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 ,6tO6 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*xV4eVV $V*V4hW4hHWW *W*W4hW4hX@X HX*hX4hX4hXX X*Y4h(Y`Y hY*Y4eYY 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]@.]`.6] $ %.]  !  % !B@  $ !(  !(" !($]StringƃG[]StringƃG[] StringƃG[0123D'wȂ@lc̶lD'f dx ! (j ! ("0,40 ! ($ $  $$ $+d $ $ f $$f $+d $ d ! (& ! (  !((j !(("0,40 !(($ $  $$ $+d $ $ f $$f $+d $ d !((& !(( ].n] ,'*ID͕sŽ !.(r !.((OWordADBƁύXs· !0( !0(" !2( !2("  4 n%!!r  4 n%!!re@l ! (   4 n%!!rec ! (   4 n%!!rel ! ( k   6 n%! !0(r  : n%! !8(r  > n%! !<(r  B n%! !@(r  F n%! !D(r  J n%! !H(r  N n%! !L(r  R n%! !P(r  V n%! !T(r  Z n%! !X(r  ^ n%! !\(r !`( !b( !0!r !d(f f[^܂͂Ă܂B !d(h !j(d !0!r !2(r n!z%~ !d(f !2!r2f[^x[Xɓo^Ă邩mFĂB !d(hd0 !d(f !2!r6f[^x[Xɓo^Ă邱Ƃ͊mFĂ܂B !d(hkkA@lA@n !p( !r( !t( !v( !x( !z( !|((A@~|   .!0 .!0 * .!2A@&ko ].n] !T!r'Ƌl̏Z̊mF  $  n!% ̏ZmFĂBA@&|kd ̏Z͂Ă܂BA@&|k  n!% !`(r|  .!0 .!0 * .!2A@&kPoH0 8]p.n] !!r'Ƌl̏Z̊mF  $  n!% ̏ZmFĂBA@&|xkpdh ̏Z͂Ă܂BA@&|0k(  n!% !(r|  .!0 .!0 * .!2A@&ko A@ro F |pkh|` X .!0 .!0 * .!2A@&k o( F'].n n!% n!%'Xdzk] X n!%']].  !2!r  v n!%.] "DBɌ‚ȂƂ@VKo^ !d(f !2!r͂܂o^Ă܂B !d(hA@A@z  eDBɕ‚Ƃ@I !d(f !2!ro^Ă܂B *&uIv{^NbNĂB !d(h !2!r !|( !|((\A@z ẽ`.{ %.ĂID % !.(rtype % !(( vname % !2(rnameKana % !(r肵Ķ postalCode % % !(rxs postalCode % % !(r president % !(rĂ president2 % !(r0upresidentNameKana % !(rpresidentNameKana2 % !(r18address % !(rĂ addresskana % !(rtelNo %$telNo %- % !(rd !(rk areaCode % !(rperson % !(rfaxNo %$faxNo %- % !(r4ud@ !(rk( email % !(rmemo % !(r2= !d(f29 !2!r"̓o^mF邱Ƃł܂B !d(hTextBox1㏑ n!zB@6ɶݶcID !.!r n!z%\z( k n!zB@k !!r !t(k A@n !x( !z(A@~'z  .!0 .!0 * .!2A@&kX iP 8 FA@~ ! ! !(!  ! ! L !(($ ! ($ n% ! (( !((( k k !8!ggge !!r !8!r !($% !8($ !(( !((k k !<! !!r !<!r! !($ !<($"  !((N !((kx !!r !@!r !($ !@($ !((L !((%kk !D!% !!r !D!rN !($ !D($̃`F !((w !((kh !!r !H!r !($" !H($Ăܷ !((& !((kk !L!݈ !!r !L!r !($ !L($ !((  !((kX !!r !P!r !($ !P($8 !(( !((1kk !T! !!r !T!r͈ͯ !($r !T($ݔ !((n !((kHk@ !X! !!r !X!r !($ !X($ !(( !((kk !\! !!r- % !\!r- %All !($ h !\($e.co.j !(( w !((dykk !`!' !!r !`!r!z !($`Fb !`($ n! !(( !((kXkP|H @ .!0 .!0 * .!2A@& kox F !(( !((Ex !(( !((If !(( !(( !(( !(( !(( !(( !(( !((n !(( !(( !(( !(( !(( !(( !((n !(( !(( !((|  .!0 .!0 * .!2A@&kHo@ F ! ( !0( !8( !<( !@( !D( !H( !L( !P( !T( !X( !`( !\( !(( !( !2( !( !( !( !( !( !( !( !( !( !( !( !( !( !(|H @ .!0 .!0 * .!2A@&vko F !2($̃^C ! ! ! ($&d ! ($Ăk !0!g$ !0($dH* Me.txtNameW.BackColor = &H80000005 !0($ݎwk !<!v !<($ݎwd !<($18k !@!ݎw !@($n%dh !@($kH !D!18vɯ !D($*d !D($\k !H! !H($ d !H($2 nk !L! !L($Ăd` !L($ek@ !P!v !P($v̂d !P($Ăk !T!3=27 !T($ݎwd !T($!!k !X!,\ !X($29vdX !X($Ck8 !\!ʂ̯ !\($d !\($k !`!! !`($  !b(d !`($! !b( kh|` X .!0 .!0 * .!2A@&k o8 FDB^u𔒎ɓ !(( ͋󗓂ɂȂ! Me.txtNameD.Value = "" !(r !(r !(r !(r !(r !(r !(r !(r !(r !(r !(r !t(L !(r !(r !(r !(r|  .!0 .!0 * .!2A@&kXoPx F ! !N !(( !(rk !8!"  !(( !(rk !<!% !(( !(rFk !D! !(( !(rk@ !L!" !(( !(r k !T!xs !(( !(rk !X! !(( !(rk !\!*  !(( !(rk@ !`! !(( !(rk !r(|  .!0 .!0 * .!2A@&ko FA@ !r( !v(|` X .!0 .!0 * .!2A@&k o F ܂|k]8.ns n!% n!%'Xړd|k]X X n!%']p].ړ  !.!rIDC@x !(!rtypeC@xݎg !2!rnameC@x !!rnameKanaC@x !!r presidentC@x !!r president2C@x !!rpresidentNameKanaC@x !!rpresidentNameKana2C@x !!rpersonC@x !!r !!r postalCodeC@x\ !!raddressC@x* !!r addresskanaC@xJn !!rareaCodeC@x !!rtelNoC@x݉^ !!rfaxNoC@x' !!remailC@x !!rmemoC@xq !.!rJn  v n!%xxN|k v !.(r !2!ro^܂B !d(hdh  !.!r n!%\|8k0 !2!rXV܂B !d(hk !x( !d(f nTextBox1㏑ n!zB@6ݶcID !.!r n!z%Ă|hk` n!zB@|H @ .!0 .!0 * .!2A@& ko ' !(! pvʂw肵ĂBA@&zk !(!  !(!  !2!r ̎͂ĂĂBA@&n !2B@zd !2!r $$& !2(rk !!rtg &̎tKi͂ĂĂB *s܂H  ̎tKi$&  !B@z(k d !!r $$& !(rk k !!r &̑\Ҏ͂ĂĂB *s܂H  ̑\Ҏ$&  * !B@z0 k( d !!r $$& !(r !!rP *̑\Ҏij͂ĂĂB *s܂H  ̑\Ҏ$&  !B@zH k@ d8 !!r $$& !(rk k !!rmF .̑\ҎtKi͂ĂĂB *s܂H  ̑\ҎtKi$&  !B@]z@ k8 d0 !!r $$& !(r !!ro .̑\ҎtKi͂ĂĂB *s܂H  ̑\ҎtKi$&  o !B@zH k@ d8 !!r $$& !(rk k !!rݖ "̗X֔ԍ͂ĂĂB *s܂H   ̗X֔ԍ$&  !B@zX kP dH !!r $$& !(r !!r$ (̗X֔ԍ͐œ͂ĂĂBA@& !B@zk !!ri /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@z@k8 !!r "̗X֔ԍ͂ĂĂBA@& !B@zd !!r $$& !(r !!r$h (̗X֔ԍ͐œ͂ĂĂBA@& !B@z8k0 !!r /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@zkkk !!r ̏Z͂ĂĂBA@&u !B@%zHd@ !!r $$& !(rk !!r̦ &̏ZtKi͂ĂĂB *s܂H  ̏ZtKi$&   !B@z`kXdP !!r $$& !(rk  !!r "̓dbԍ͂ĂĂB *s܂H   ̓dbԍ$&  !B@ zxkpdh !!r $$& !(r !!r-$$rd 2̓dbԍ͐ƃnCtœ͂ĂĂBA@& H !B@zkk !!rFb (̎s撬R[h͂ĂĂB *s܂H  ̎s撬R[h$&  !B@P.zkd !!r $$& !(r !!r$If .̎s撬R[h͐œ͂ĂĂBA@& !B@zPkHk@'z0 ( .!0 .!0 * .!2A@&ki]H'type  !!r ! !  !((  !(($ ! ($ 'kPmemberNonamenameKana !!r !8!r !(r !($ !8($z%'k presidentName !!r  !<!r !(r !@!r !(r !($` !($ !<($ !@($'k?presidentNameKana !!r !D!r !(r !H!r !(r !($ !($ !D($ !H($'k? postalCode !!r !L!r !(r !P!r !(r !($ !($ !L($ !P($'kH>address !!r !T!r !(r !($ !T($ !t('k= addressKana !!r !X!r !(r !($ !X($'k0=telNo !!r !\!r !(r !($ !\($'k<areaCode !!r !`!r !(r !($ !`($'k0<personfaxNoemailmemo Bf[^x[X֔f̂`FbNĂsĂBA@&k;o;`]'type !!r !(!  ! (  !(($ ! ($'k:memberNonamenameKana !!r !!r !8(r !($ !8($'kH: presidentName !!r !!r !<(r !!r !@(r !($ !($ !<($ !@($'kx9presidentNameKana !!r !!r !D(r !!r !H(r !($ !($ !D($ !H($'k8 postalCode !!r !!r !L(r !!r !P(r !($ !($ !L($ !P($'k7address !!r !!r !T(r !($ !T($'k`7 addressKana !!r !!r !X(r !($ !X($'k6telNo !!r !!r !\(r !($ !\($'kX6areaCode !!r !!r !`(r !($ !`($'k5personfaxNoemailmemo :Word֔f̂`FbNĂsĂBA@&k85o05 ! ! ! ( !p( !((k4o4 !8! !8( !p( !((kx4op48 !<! !<( !p( !((k4o4x !@! !@( !p( !((k3o3 !D! !D( !p( !((kX3oP3 !H! !H( !p( !((k2o28 !T! !T( !p( !((k2o2x !X! !X( !p( !((k82o02 !`! !`( !p( !((k1o1 !L! !L( !p( !((kx1op18 !P! !P( !p( !((k1o1x !\! !\( !p( !((k0o0 !(! !(( !x( !((kX0oP0 !! !( !x( !((k/o/8 !! !( !x( !((k/o/x !! !( !x( !((k8/o0/ !! !( !x( !((k.o. !! !( !x( !((kx.op.8 !! !( !x( !((k.o.x !! !( !x( !((k-o- !! !( !x(( Me.CheckAreaCodeD.Visible = Truek8-o0- !! !( !x( !((k,o,8 !! !( !x( !((kx,op,x !! !( !x( !((k,o, !! !( !x(% Me.CheckPerson.Visible = Truek+o+ !! !( !x($ Me.CheckEmail.Visible = Truek+o+8 !! !( !x($ Me.CheckFaxNo.Visible = Truek*o*x !! !( !x(# Me.CheckMemo.Visible = Truek*o*].nƋl̖O̐Ƌl̖O͏ƍȂƋl̖OtKi̐ !!r !8!r $  : n%(k0)Ƌl̑\Җ̐" !!r !<!d $  > n%( !@!d $  B n%(kx($Ƌl̑\ҖtKi̐ !!r !D!d $  F n%( !H!d $  J n%(k'ƋlX֔ԍ̐ !!r !L!d $  N n%( !P!d $  R n%(k'ƋlZ̐ !!r !T!d $  V n%(k&ƋlZtKi̐ !!r !X!r $  Z n%(k &Ƌl̓dbԍ̐ !!r !\!d $  ^ n%(k%Ƌl̎s撬R[h̐ !!r"݂ɂ͖Ƌls撬R[hȂk8%o0% @B@o%%Attribute VB_Name = "Ƌlo^"D Bas0{018E909D-840C-44C6-A67C-16AD82E259D4}{0342A037-4969-41A4^C4-CCD93950D4CF} 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= 0&HE0AIgmyArray()<Variant 'SngƃG[ #12 "0",( "123" '$2'wȂ@Blc&$Re(1, UB8d(eV)I!n/TjW$Mooo3 vX4_ 43sE`nd If#W!I]`.).R0esuldwKa|na`4?3tKi?xt@siden:tQ115,\Ґ_\2__[_\ E t/@I V=ostalpCode X֔ԍO3v/ ~4.Addps//%Z/ xta, S1TelNodb? 0 0c4cmdSearch/f`Z3:W ""E@LabelS>.e8FF&C4CaSPfP^Pe͂ĂBTuDMDiPage1m aTP Me.txtNameD.Va@lue = W L  If cP.INI.ReadCID()`0 ThenJZLabelResult.ForeColor\ &HFF&ZCaption+& "f [^xXɓo^Ă邀mF B"anElse| U82012WƂ͂Ya܂YYndAERefreshBox etTagcmdToDoc.EnabldedFaBSearchD!WordYUpdateYComparSelect.Visi32DteCheckCExit Sub ErrMes:CFC@.Numbe r <> ͱMs g  & vb@CrLf &BDescriªgiPriv> ! cCSW_Cl ick()&OnGoTo*#Dim@ As clsPapDerSet=p Newmy@entAddsAStrin?ć% 'Ƌl̏ZU(C- `)"" A@ Not IsNultl()@AreaCode.Insert= ЎC6c\P4"lA-E"Ifˆ$C f܂+yFR @r౅D0? ]_#<@JB _rr__$$%}_D_ ___Ccl_?_Gl?_ss?_B`?_>VR?_/If/ox ///X)5S/~=PN@OAM/__ !H-________![q__mdi/!UnloadЖtebFromDB3b`mC@TGetData5rV oCT(H/s/sEVCubr Func j (O2wal ByP myIDm Long)Boolea OnuƑG#wGFy6ZDB.B(True)хjmybasA.7r%4Q%S myBSIntegSb5# @u44CountAll񘟁#qmyk㊟t,>۰  ,`3,0 ID l k `3Љ=^'DBɌ‚P @VKSPLooϠ /'& ͂܂VυC0/rB0%Va uRegist ?% A'(> 1C"&I_ \}1Z_'W@u v{㓂NbN00 #.`T 7?G/ }=~364  6! = myAllCollection.Item( 1) Me.txtIDD.`Value "ID" dComboBoxTypeD.ListIndexzt$ ?rNam:tn 6Kana:$ Postade1 VBA.Left(my}p`"), 3(2 (Righ(4(residentRNt"&Y2T$$.T` &G$'E)Adds_9aO8A"!k If Not IsNulltelNo")) Then݁TReplace, " -""Else ""End If#AreaCodsa)@Person)pGBI(fax(F(C" (5 A(Email eC!/(MemomLabelResult.Fo$re or&Hd8012<C|apÀ8Am& "̓o^mF邱Ƃł܂0B$J 'Text1㏑cP.INI.R8ead?SeBt(" e\c , f)Fa^PkExit Funާ ]Eav$g @#`<> ""lcmdSearchD.EnablebdTru0 4e0tTagcUpdateHB)pn DeleteCheck.GetDataF`romDB ErrMes:sSP.NumPber 00-s g H& vb@CrLf &RDescri%#pGPriv Sub DWAndD(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 ,"aR,lue Then Me.txtPresidentNameKana2D.BackColor = &HC0F#vW#vCheckyW.VisiblevTruer6D6End IFfFIf ~ostalCode@1W.Ena=d/> 'V < W"dX VG@G2@"G.GVGAdd@s "#c LFxckLK(A(A) )ess#n *ߣ+51 *+TelNo*VBA.Replace(+, "-"") @thUD .(_-G- ,&kD+ +Area?,cV \Vtf}+*O<2@ xit Sub ErrMes:C~ShP.Number'0|MsgBox H& vbC rLf &RDescriptio40Privateq De0lete2() On0GoToc # 5Type)'Falst%uoҜeڔ9o/`  )J.9k48d&koj υ U`?M?OBPersonȹkFa8xNo/?-Email/)MemO EBC SBB?BBBqCBResetTagBBe.Combo@B` "" 0 Q+W.x6߿P?/a)s&0 vH xt(1qExt4IDaa/< 1.txtPresidentName2D.Tag = "" Me.t Kana1$ostalC8ode AAdzds rea} yTelNoPerson Email Mem(Exit Sub ErrMes:BIf .Number <> 0 Then sgBox & vbCrLf & DescriptioEnd If7=Private! ReJfVh() Onor GoT>o(C CD.BackCol@ = &HE0AA)1 ComboTypeW.E@nabledFalse5e. ;E@D805 B(3'F ]&'AGKWLKK% EVA / 1c2m- C_.l_n2-*$ D@7J_KBS_c--$5` >r&n'?/2tP.. [[W?(?,c _+BapW?tTsgR E0Uo77k j c'#  x_ _ w dc0uP? ? xt OvD   4 cmdSearch ELA9&H{ 7JTr|uer4ClDataBa se__ 'DB^u𔒎c0>)D.List`Index47'Pɂp "3BÚValue`k2D.k_^ໟ_^A߅me?O._$?OA/#:/4D6 AxǟFaxʽ/5/5/5 a28,RostalCod'GK#HAddsF p !R"DD_ $TelN>oE ]E DreaAf gG Z"րcmdToDBpxit Sub ErrMxes: s.Number <> 0̓sgBox & vbC rLf &Descriptio @BPriPvate Compare_C@lick()AOn or GoToAWAndD#Word"""!""Upd`$"9A 7BeforeR egistFalsMEf@3Dim cP As clsPapDer#,Set=p NewLcP.NGetDBJ(!)H"",HmyDataba=@ L E#"!amyBIDAInteg%H (MLongPCollecaZ ca#myh$With ) .IDD.Va|, "ID"o_bopTypeGtawname.tY{Wpion2ot2~Q 1" dmeaSoberson} AHP9F$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:OOO Fu&no()pBoolea O_stω=  mL@Index0"핀ʂw$Ă0+u $%oxsuOr2 1\0 DuL@ .G Mc\B=̎"=R w ePcAP*FocuP Exit Function ElsehHMe.txtNameD.Value = Trim(StrConv(@, vb@Wide))nd IfIf !7Kana\""p The/sgBox(c\ & "̎tKi͂B" _wKB&QCrLf#s܂H"_YesNo, 5")pvbNoU/mSetFocusD"E 9Katak^i-FlPres@wn„1ml\AnlkkjM5SlUHjKiRWAkMc2сg%ij2Td3ni i"?j,?j5H*jB;5ie9kρuk.'+?,?989 m&$?n?nL)8!9o!E?')b6???iT>d}2eT_S Y1A?n_Tֈ%?Uy9ostalCodeo9!̗X֔ԍUO 8 5/B ?zloPN`arrowNot IsNumericԦ) MO͐?2a .__Q^.P Len {) 3  %u3-48v d& xt  XXap P,?2_ Y _ _ ?12O ,,de,, orM,#?-?-w[-cP-| ?.'2.4?.2OI.?߿AQPAddpsf(ȌZ|/c<,/ r Else 0Me.txtAddressD.Value = Trim(St@rConv(, vbWide))End IfD If hKana"" T8hen*.sgBox(c\ & "̏ZtKi͂B" _GK&CrLfBs.܂H"YesNo$, 3")~vbNo Q-iSet FocusAExit Functios% ălKatakATelNobdbԍaa`1_b F]IA\Narrow[Not IsNumeric(Replac&e "-@""<))Ë`͐ƃnCǓŔ CD?'V|reaCodeK|s撬RX[hK"6 {vb||+ LAf%|N%Q|MM KA 1L_K1%K CheckBefore@RegistudL ErrMxes:c^q.`qber <> z0,mMlǡDescripǸ!GPrivate Sub cmdToDB_Cl0ick(Dim b As Boolea$ bFaF'typ$נ* TWh@ ombo@aD.L%Indevx W C BackColor&H805W. 9TrdD'm$emNo'n|am$anN0_%I{$#j opP@ntA NP1_J2/es 2//Pyxt__\1O)000[,_],+M/,J/1!O/ @GQo ostal!o:4 T>'?_q2tPPo&8_] 82X/&aCAsd<.mO O% ?SearchD.Enabled 7سressKana If Me.CheckAddW.Value = TrpThen^txtZDZ4xBackColoBrn&H805i2W.2bDE nd If 'telNo}T zw ,q$nareaCodepA q u?M: #; zspersoĦ'faxv'email(0'memG|False LsgBox "f[^x@X֔f`FbNĂsB" E ASub Private  cmdToWord_Cli@ck() Dim b As Boolea7- 'typyTGmCombo aW.ListIpndexfwD߇cZk=. =?!c(a8berFe}& ㄕ\% 6"S8 Pnt?  ;O K 1W.Text 2P/0&)"o#o#o#j####qKatakt$ =elX֔ԍ9e.9ǐo,o,<99O3/%A,NarrF@  )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@Hl+" l l>F@  )l5@l l ll l 8#l,@l l @:P]3l5@@ l l $l%l l @$ll l &lz 8@l l @  )l5@'dl 4l 'ldl l l $lL@l l @:P(   @$/)l6@ x 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@ B,Lltpx p PlL0/Lp*'''<QR*F` .6`<*'''<QS*F` .6`<>Lltpx p P>LF`  )p5`$ +pp ,lpl'''< +pp ,l#L-*# + ,,l*F` .2L)p6`<,xt0 Lp`<K! x%`p p ``1tp5`lt=tMP@ B,Lltpx p PlL0/Lp*'''<QR*F` .6`<*'''<QS*F` .6`<>Lltpx p P>LF` $ )p5`$ +pp ,lpl'''< +pp ,l#L-*# + ,,l*F` .2L)p6`<,xt0 Lp`<PlxM$N Ox$ 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 dp $/lh=/hpo'h+npt dp $/>h0py/$nv0pt dp (/knpfp `QPp p H dPhkfLt dL x/QH`/h)pL5P kdp p $pLPp p P:41$hL L @$/h)pL6P$**/ kd{p p $pbPp p P:42$:-:3hL L @$/h)pL6P$?Pp p PhL L /h)pL5Pp p p*/ kd D#$(P` $D6P$8$:44NPPD $p p p6P$8$:45NPPD $p p p6P$8$:46NPPD $p p p6P$8$:47NPPD $p p p6P$J$:48NPPD $ 9 p p p6P$J$:48NPPD $ : p p p6P$8$:4;NPPD $p p p6P$8$:4<NPPD $p p p6P$8$:4=NPPD $p p p6P$8$:4>NPPD $p p p6P$8$:4?NPPD $p p p6P$8$:4@NPPD $p p p6P$+$:4ANPPD $ B6P$^$:4ANPPD C$h DFp p /hp6P$*&:4NPPp p p5P8$:4ENPPD $p $p p6P$8$:4FNPPD $p Xp p6P$+$:4GNPPD $ B6P$(^$:4GNPPD C$h DFp \p /hp6P$P&:4NPPp \p p5P8$:4HNPPD $p `p p6P$8$:4INPPD $p dp p6P$p p $pLPp p P:4J$hL L @$/h)pL6P$npt 4p 'pQPp p nPhKLLt 4L x'kn/h)pL5P/npt 4p '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` ` Cd< D#4CP8 D#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)xl6T4$ 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 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 dp $/ll=/lp'l+zpt dp $/>l0p$zv0pt dp (/kzpjp ` l`\BLp p '' :<4N,,L\ p6L, BLp p '' :<5N,,L\ p6L, BLp p '' :<6N,,L\ p6L, BLp p '' :<7N,,L\ p6L, BLp p '' :<;N,,L\ p6L, BLp p '' :<<N,,L\ p6L, BLp p '' :<=N,,L\ p6L, BLp p '' :<>N,,L\ p6L, BLp Xp '' :8FdD YD4<+Bx < p/4)t<6dDh8t t l>8FdD YD4<+Bx < p/4)t<6dD*dt t TdcT]3t5dh8t t l>8FdD YD4<+Bx < p/4)t<6dDh8t t l>8FdD YD4<+Bx < p/4)t<6dD*dt t TdcT]3t5dh8t t l>8FdD YD4<+Bx < p/4)t<6dDh8t t l>8FdD YD4<+Bx < p/4)t<6dD*dt t TdcT]3t5d"h8t t l>8FdD YD4<+B x < p/4)t<6dD*dt t TdcT]3t5dedt t dD YD8<+B!x < p/8)t<6dD*dt t TdcT]3t5dGh8t t l>8FdD YD4<+B"x < p/4)t<6dD*dt t TdcT]3t5dsHx(x$84t<dDHv$w$ d8     x| !"#$%&'( )*+,-.g__SRP_3a Const2-__SRP_e=J__SRP_ff`$; `$ ; ` $I; `(;`#$;`$ ;`$I;` $;`$$;`($ ;`,$I;`0$;`4$;`8$ ;`<$I;`@$;`D$;`H$ ;`L$I;`P$;`T$;`X$ ; `\$I ;!``$ ;"`d$ ;#`h$ ;$`l$I ;%`p$ ;&`t$ ;'`x$ ;(`|$I ;)`$ ;*`$ ;+`$ ;,`$I ;-`$ ;.`nrU~| pc4c84\2(*\Rffff*0S50cc4c84\3(*\Rffff*0S50cc4c84\4(*\Rffff*0S50cc4c84\5II  8 "X     8Ph $" (Hh  $  (08@HPX`hpx      0 !"#$%&'()*+,-./01246u89:;<=>?3ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs5vwxyz{|}~`!"`*<3xR0RRRRRRRR0RRHRME P@F@H@R@\H`Hz6 <jbC%FHhH`hJxhLsterhN doH(P]$@%hR0hTHhJ` hVx"hX hZhNSt\0 (^[@%h`H z,EBDBjdCjfCjh(CjjPCjlxCjnCjpCjr Cjt Cjv@ Cjx Cj|Cj~CjCjCj0CjXCjCj Cj Cj Cj  CjH CjpCjCjCjbCjdCjf8Cjh`CjjC hWWB(jlCjnCjp8Cjr` Cjt Cjv Cjx Cj| Cj~( CjP Cjx Cj Cj Cj Cj Cj@ Cjh Cj Cj Cj Cj CjCjbX Cjd Cjf Cjh Cjj CHjl8 Cjn` Cjp Cjr Cjt Cjv Cjx Cj|P Cj~x Cj Cj Cj CjCj@Cjh Cj Cj Cj Cj Cj0CjXCjCjbCjdCjfCjh Cjj`C( jlCjnCjpCjrCjt(CjvPCjxCj|Cj~CjCjCj@CjhCjCjCjCjCj0CjXCjCjCjCjbCjd CjfHCjhpCjjCjlCjnCjpCjr8 Cjt` Cjv Cjx Cj|Cj~Cj(CjPCjxCjCjCj Cj Cj@ Cjh Cj CjCjCjC( `H8x@h00pHP`jbCjd8Cjf`CjhCjjCjlCjnCjp(CjrP Cjtx Cjv Cjx Cj|Cj~Cj@CjhCjCjCjCj Cj0 CjX Cj Cj CjCjCjC@8x`(P0X00Hh`0`H5 RYP$*\Rffff*0S50cc4c84(*\Rffff*0S50cc4c84\0(*\Rffff*0S50cc4c84\1(*\Rffff*0S50c  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpdotpDLL@Const@O[o萔]$E` ]$CallSign\0^DHʕׂ^D`wbh@^Dxԍ^D px^D ʕ̔ԍZbg$t^D ʕZbg̐p Licence\^D0o^ԍׂ^DH wbhiցj^D` wbhiKj^Dxo^ԍ^D tbgij^Dp@^D o^̔ԍZbg^D o^̔ԍZbg̐p 0'b'd'f'h'j'l'n'p 'r 't 'v 'xx 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 AsAtegery69 JIKOSY O04CallSign\̆Tk t s:Sng'ʕׂHead  wbh(No cLo' 'Ԝ #Inu ' End UeH.*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߀6R7l8v+pf1skeM!H^ %̒"9Oʖ9qEb Eb B1"*1*1 1B 1c #rU KYKɀnrU 7T$7`,A7`,7` $7`$7`n/+''rU @@MQ1Nxb e=__SRP_377__SRP_3664clsSanib}@}j1CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R7*#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\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#50*\R0*#18|3}P2XtYO2s 91;2Hal^3J yNX `-AB}tfcx-AB}tfc2XtYO2s ME@SPSSS"p( 1>" LLL*L*P "LL"LL0{F9AD5AF2-3EFD-47F7-9C3C-75CA9AA7268F}{37050881-3F2E-4C5D-854B-884D4E35686C}00%%%  0`hkyy npp%`lster`jX d@% X%`$``!| `8 x+p) % 0` k) .%`vt`$r" ` k`z P`$x`vt `xk( %P( %b4@0X0@XxxHPphX@x @t p @n @` @\  %%%%T``\%hH@D @4 @$ @ @ @ @  @8 @ @x P5@ x5`\%70@ `@%`8@@0 @H @p xo(.*&h% x(8%% x%@Pl ( x0 x x@h x@ x@p @l   x % x8h x 0  @ h @ X p@x T @ D @ B @@  @H 0 (@` @ @ @ p p p X r @ p @ ` @8 \ @P L @ J   @H @h 8 @4 @$ @  @ X@ @ r@x P(P (x  XX(T RYP*\R7*#53$*\Rffff*2r50cc4c24$*\Rffff*3<50cc595c*\R0*#1c*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-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*\R7*#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*\R7*#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*0N50cc4c84$*\Rffff*0Y50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*2p50cc4c24*\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 !(h !|!|k !|!']X.n" n!% n!%'XdP|Hk@]x X n!%']].    n!%.]  9$'\N 9$ 'x̕ҏW(h9$'I̎!9$'񕝂̕ύX9$ 'sŜI 9$ 'Obh9999_nameOd5B@x% _nameKana OtKiP5B@x(_addressZP5B@x  _addressKana ZtKiP5B@x _areaCodes撬R[h25B@x _president \Ҏ<5B@xx_presidentNameKana\ҎtKiP5B@x_personSҬ<5B@x_telNoTEL<5B@x!(_IDID5B@xq8]]] $ telN $ %.  5!xname %9drnameKana %$nameKana %;dx;xNk`address %$address %;d;k addressKana %$(r addressKana %; d;2kareaCode %$areaCode %;dH;k0 president %$ president %'!zd'k president2 %$ @ president2 %;dp ;kXpresidentNameKana %$X presidentNameKana %'! d'kpresidentNameKana2 %$ @presidentNameKana2 %;dx ;8k`person %$rperson %;d;ktelNo %$telNo %;d;rkID % ; qxqp $((N|X P .!0 .!0 * .!2A@& ko0G MsgBox Item & vbCrLf & Item.SubItems(1) & vbCrLf & Item.SubItems(2)o]] ! %'v $ !!!w $ !!%% v $ !!%((k $!H(ko0]p']] $ !!! $ !!%! $ !!%%'v'y@k8 $X r |k v !.(r v B@ A@r8o A@r((1o϶Attribute VB_Name = "ƋlI"D Bas0{F9AD5AF2-3EFD-47F7-9C3C-75CA9AA7268F}{37050881-3F2E-4C5D-854B-884D4E35686C} 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 oemtIEe ,< 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$ x8HHD@8).``I77a7W7777P KG x x @x,tx$ x lt0/txQ+tx$ x lt4/tx p.t+nxp d x $ (*\Rffff*0V50cc4c84\1$*\Rffff*0V50cc4c84$*\Rffff*0U50cc4c84*\R0*#2*\R0*#1*\R0*#10*\R0*#f*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R0*#4*\R0*#f*\R0*#94   8 "X 0   B<&  @  HX`hp $"   4  4X H Z Z8 B B( 0 &8 $>P("x  $>("  D &>H*"p  &>*"rU 6x; 04a ;D qI} 00111 2A2a2223A333y///+''YX#. 9I 9I$ $iQ$EA5)5Q5y548 717` 7<0i- @/)` 7 D/) -`7H.).``I77a7W7777P KG x x @x,tx$ x lt0/txQ+tx$ x lt4/tx p.t+nxp d x $ lt=/tx't+nxp d x $ >t x$nv xp d x ( knplx d5\Y`j4klxp d 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(g(?iMiE# <2"Lk @ 33i" ( )?H P a %i p  i  i , `Ak Di   i  8  8i  dp  p  fl    `$"`xB`* ` .``` `0 ` ```  ,"`FhkH Hi  h $i    i  dp B  fl   `$ ``*@ `X `$` `p ` `$ `& `h ``` 0x,(`JktVi" i ,P`MkPLmi pi   i dp fl nCp[( `$"ed.`Mperd` w`*Ho.jp`Ȃ`MX`p %`ew c``*` ,x`@RkPi i   0i " dPSp(k fl`BHh `$"Avb` ̊`*啶`Svb`` ` ɕϊ`Svb``  ,,`@WkTi. ɕi gana, ``Zk8Xi X"i   i $ dp " flk `$ Rep`(L)``*0``()`X ``(Z` <vb,`^k`\::i KTi `pKT`_xb,0`ak `**i" 02vi X '"i2  ԍpi  `4p "`60l "%  pP xH%  pP xHh H`PxhP'"`"t`"t@h` hX`"t@(p (@l '$E@8\ @hL @P< '@, H@ @ "@ '@ .*@ @ @ @@ @ &h`px`"tSp&`"t `x`"t .*&<@p @l @0h @d @H` @\ @L @< @, @ @ @ 8@ k`"thH` x!`"t0 8 p !! 8X  8H `"t0 .*& @ p @l @ h @d @ ` @\ @0!L @H!< @!, @! ""!`"t@! `@ H@ #`"t""@##(###"#`!h`"x""`"t "(&*$@X#d @p#T @ $P @h$@ @P$0 ".&##@$, `"t#@( P&`"t@$ @8$  @ @$ @ @ P%%%%&&%P%%h%h`8%x@&x%P% %8%`"t%.*& @&p @l @p&h H@d ((`"&t4`" &t@&` @\ @&L @&< @', @' @0' X@ *&@ ((((h(8)((P((&h`'x@('`"(t(( $.*&@P)d @)` @(\ h)*`"t@X @T @ )P @L @)< @), **(`"t@) H@) 0@ (@ **@+X+++p+**(h`*x`"t+* $.*&@+d H-0-`"t@+` @+\ @X @T @+P @L @,< @0,, `"t@H, @`, @ @ X-0-..--.P.0--+h`-xp--`"t-X-.*&@-` @.P @ .@ .P.`"t @8.0 @ @X/ @h.  @  .h.h..@/ @ @0(0`"t@(/ @ @@/ @ @ XP0(0@11001H1(0x0.h`0xh00`"t 0P0(.*&@0` x1H1`"0t@1P @1@ @010 @ @P2 @`1  @  H1`1`1"@2 83 3 `"1t@ @ 2 p@ (@82 @ @ 0H`553333 3p31h`3x`33`" 3t 4H3.*&3@`6X @3H @x68 @4 @42 (43@840 P44@`4. x484@4,/ 4`44`4 5`"t44`p@5& H 54!@@5$ 055!X55'@h5" 5@5+@  5h5+5@06 h51@6 (7`"t 66`p@ @H6 @  @6 @6 @ @ h(`6z76`"t87 >`"t767p788@8(8X8685`p7$.*&@(9\ @9L @H 9h:`"t@8D @8@ @< (@88 @4 @@9$ p@X9 @p9 (@ @ :P:`"t:h:H;;::0;h::p8h`P:x`"t::&*.&@;d @;T ;=`"t@`;P @L @x;H (@D @;@ @< X@;, @< (@0< 0=<`"t;@ @@ (=====X===@=:h`<x`"t`==&*.&@X>d >??`"t @@>T @@=P (@L @>H @D @(>@ @< @p>, @> @> @ @ h h@` tp ?( P ?0AP@8@HA@?Ap=`>x` ?> `"t(@?$@xAp @l H@ @@\ @@L P` t?.*@@< @A, @@ @A @ @ @`A (@ @ @A @ @& x H ` X B HDCE8C CCxDCExBEBh``BxBxBB`B` tCB*$` Bt@`Dh @PCX @hCH @D8 @D( B&&@$ @C HCC7 @`E DC7@0D @ @ hD@ @D @ 0EEo` hDt@D @D @ @E @ @EEoPEEu xEC@E (E`E@ EEEC.F6@E @ ( xH F`HPGPJGhGGHG8IFIFh"`"FxHFFGF` FtHF`"t*$@Hh @GX @GH @`H8 @HH( 8G&@$ @ H 8HG6@I PI H6@xH @ @I @ H@H @ @I `"t@ I X@ @@`I xI8Io@ I`Io`tG(. @| I`IuJ H@Jt 0JI@p @JJ J@hJl @h 8KKKKXLpLK8KKPKh(8`( Kx`K8KK K`t`"tK$.*& @Lp @l @(Lh @d @@L` @\ @LL @L< @L, @L @L @ @ `x 8O0NR`NHNN`PNPMxQMh`MxXMMNM`tOM*$@xPh @xNX @NH @XO8 `t@@O( N&&@$ @O 0ON3@O OO3 @pO &@ @ @O OOG@P `POOG@ PON@(P @PPV@Q `PPP(PVHP(P]@ @P 0S`t@ @P QPtX@(Q (QPt @QPv@PQ hQ(Qx@ QPQxN.@QPQQO@Q QQX@ RQQ @(R @ 00`RH USWSS TU8T(VRVSh@`Rx( SRhSRU`.t`t`PTPS*$@Uh @SX @SH @T8 @T( xS&&@$ @`T xT8T1 @T T`T1@T @ @ @T UTC@pU H8UTC@ HUTJUpUS`.tH@U 0@V UUS@Z`t@VUZ @ @V @ @PV hV(Vr@ (xVPVrVPV V`T@V XVV@ VVVT. x@(W @ HXXxYHYXX`YXpX(Xh,`t`,Wx8XX`XW`.t HX$&.*@@Xd @XT @XD (@Y4 @Y$ @0Y @ (@ @Y @ @Y @ @Y @ hZ`YxZY[Y`t ]`txH`Y \([^X[@[[x]\[Y[Z[(Z*$@]h @p[X @[H @8\8 @P\( [&&.@$ @[ \\[2@] \[2@ @ p\@h\ @ @\ \\K`t@\ @\\K.]\R @@] X]\Y_`"\t@ Hh]@]Y ]@]`@ @] @ @] ^]{@0^ ^]{ ^]H^[@X^ (p^0^H@ 0^X^ X^__X!@^ @ _`0a0``Ha`_`a^h`x_x a`"x_t_x_`t`_ $.@H`` @``P @x`@ @`0 @ @a @`  ``'(@  a`'@a `1 \@xa @ `*&@ @a @ @ bXccc ccbbbh0 `0xbz bbbxb`"btb8$.*&@Pc\ @8cL @hc< @d, @ @c @ @c @ @c @ @(d @ ^@x#RYPh  B &Xp &x & $   ( &( @ P` ,h & &      $(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   rr r rr  $l0 8B$ @ ` Bh   80 8P 6 8 : $8 `p        0 H X `p       $ l0P XB$` x 61( 0H P$Xlh B   <  ( "@ "` "    $ l   B ! <! X!x! !"!"!"! "" "$"l("H" P"B4 X" x" " """"" " ""# .# 8#H#X#`#h# &p# $>#("# # #("$ ($ D0$ &>x$*"$ $ &>$*"% 0%8% &@%X% &`%x% %%% %% %$%l%% %B$ % & F &h& p&&& && &"& &"'  ' ,8' ,X' ,x'"'"'"' '("( ((("H( (p(&(( >((8)0)8)H)X) `)h)p)x)))))))))))))))** (* 8* "=P* x*69** * .* + &C+ *@@+ DKp+ -+  &C+ *@, DK0, -x,  H:,@9, - (- 070-B9`-- - ->9-. . .H98.. . .D9.. / /&!/k@//// / / &/ 0(0@0$1H0p0  x0  00 &B0 "?0 <I0 ,(1  $H1@9p11 1 1B91 2 (2  02H9@22 2 <22 2 22 2  23 303 83 @3H3 P3 $X3lh33 3B$ 3 3 V34 40484 @4H4 P4"p4 4"4 4 ,4 ,5 ,(5"H5"`5"x5 5("5 (5&56 >6X68x66666 66666667777 7(707H7P7X7`7h7p7x777 7 7 "<7 7688@8 H8 &CP8 "@x8 668 "8 8  &C9 "@89 66`9 "9 9  H:9:8:X: `: h:D8:: : 07:>8;P; X; `;:8p;; ; ;@8; < (< 0<&!@< kh<<<= = = &= @=*RP==8b==  = =  => &A> ">0> 62X> >  >:8>? ? ?>8(?h? p?  x?D8?? ? :?@ @ @@ 0@  @@P@ X@x@ @ @@ @ $@l@@ @B @ @ LA&"PA&"xA&"A&"A&"A&"B&"@B&"hB&"BBB B$BlBC CB$ C 0C F8CC CCC CC  C"C C"D 8D ,PD ,pD ,D"D"D"D D("E (@E&XExE >EE8EFFF(F 0F8F@FHFPFXF`FhFpFxFFFFFFFFF F F "=G 8G69HGG G .G DG H H X@H H0EH&"H 0I6F@IxII  I $I II I I XJ XJ0ExJ&"J 0J6FK8K@K  HK $PK xKK K K K@9KL L L<9(LhL pL xL!L^L(M0M8M @M HM PM hM  xM M M M M MMMMNN N< N8N&L@NhNpNxN N<NN&LNNN  N  NO O O (O 0O8O PO  `OpO xOO O OO O $OlOO OB$ P  P F(PpP xPPPPP P"P P"Q (Q ,@Q ,`Q ,Q"Q"Q"Q Q("R (0R&HRhR FpRR8RRSS S (S0S8S@SHSPSXS`ShSpSSSSSSS S S "=S  T690ThT pT PxT T (T TU `U0EU&"U 8U6FVHVPV  XV $`V VV V V (V TV HW0EhW&"W 8W6FW0X8X  @X $HX pXX X X XH9XY Y YD9(YpY xY Y!Y^Y@ZHZPZ XZ `Z xZ Z Z Z Z ZZZ[[ [ ([8[H[(P[p[x[[ [[[([[[ [  [\ \ \ (\ 0\8\ P\  `\p\ x\\ \ \\ \ $\l\\ \B ] ] X ]x] ]]]  "]]<+](^0^8^<+X^^^ ^^ ^ $^l^^ ^B$ _  _ F(_p_ x_____ _"_ _"` (` ,@` ,`` ,`"`"`"`  `("a (0a&Haha >paa8aaabb  b(b0b8b@bHb ,Pbbbbbbbbbb&Ab c c &<(c Pc68`cc c c c c "d (d Hd $hd d d d0Ed&"e &@e6Fheee  e $e ee f f (f0EHf&"xf 0f6Ffgg  g $ g HgXg hg pg g ggg@8ggg h h<8(hhh ph xh&!h]h0i8i@i Hi Pi &Xi i i i i iiijj j (j @jPj`j(hjjjj jjj(jjj  j  kk k0k 8k @kHk `k  pkk kk kkk k $klkl lB l (l b0ll lll  *l l"m 0m"Pm pm mmmm mmm mnn$=n@nPnXn`n$=pnnnn nn Ln$30o Xopo oo o oo oo o$oloo pB, p (p 0p 8pHpPpXp`p hp2p p, pqq q8q HqPq!Xqpq xq$"qq q$"qq qrrr r(r 0r$8rlHrhr pr r Ѓ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 "$'" "$'"  "  %'"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 "  %'" "  % " $'"kX "  % "L $'"k >uijv̑Spp̈ႢȂu邽vbTextCompareReplace "(L) $ % "(L)L $$'"kX "() $ % "() $$'"k KT <vbNarrowł́uAvu,vɁu`vu~vɒûŒ "  %'" KT "  %'" "  %'" KT ƃAt@xbĝݔp "$'" "$'" KT "ʕpuƂ1AƂ2v "  %'" "$'" "$'" KT &o^ԍpuK1234AK1235v "  %'" "  %'" "$'" "$'" KT ȂSn "'z  .!0 .!0 * .!2A@&ki  " "'zhk` "P1$'" "Q2$'" "R3$'" "S4$'". "T5$'" "U6$'" "V7$'" "W8$'" "X9$'" "O0$'" "'z  .!0 .!0 * .!2A@&ki  " "'zk "`A$'" "aB$'"h "bC$'" "cD$'"  "dE$'" "eF$'"" "fG$'" "gH$'" "hI$'"" "iJ$'" "jK$'" "kL$'"" "lM$'" "mN$'" "nO$'" "oP$'" "pQ$'" "qR$'" "rS$'" "sT$'"p "tU$'" "uV$'" "vW$'" "wX$'" "xY$'" "yZ$'"( "a$'" "b$'"  "c$'"X "d$'" "e$'" "f$'" "g$'" "h$'" "i$'"p "j$'" "k$'" "l$'" "m$'" "n$'" "o$'" "p$'" * "q$'" "r$'" "s$'":U "t$'" "u$'" "v$'" "w$'" "x$'" "y$'" "z$'" "'z  .!0 .!0 * .!2A@& ki ÕXy[X폜 "$&'"s폜 "A *A$'" "A A$'" "A A$'" " *A$'" " A$'" " A$'"uAAv́uAvɒu, "AAA $$'"ṒuAv͍폜 "$A " " $'" k "'z  .!0 .!0 * .!2A@&k i   ṕuvSpuAv "A$'"ṕu,vSpuAv ",A$'", "'z  .!0 .!0 * .!2A@&k i   (Word̃tH[tB[hL̋L폜 " "'zx kp " $ $$'" "'z8 0 .!0 .!0 * .!2A@&k i   (Word̃tH[tB[hL̋L폜 "P "'z k " $ $$'" "'zP H .!0 .!0 * .!2A@& k i   *{擪݂̂̕𒊏o' " z k O]003OZA09' "  % %  'z0 k( OZABA5' "  % % H 'zk]  "  " "  $$ " "  $ 'y`kXPzH @ .!0 .!0 * .!2A@&ki ({疖݂̐̂𒊏o' "zkO]@003OZA09' "  % %  "  % % 'zkOZABA5' "  % %  "  % % ' zk]X  " P " "  $$ " $ ' y kz  .!0 .!0 * .!2A@&ki  p ;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[g "'z0k(]]0]H]` ",  %+ $    $2 -1@|@string1 string2 菬0 @0@|@string1 string2 ͓2 @1@|@string1 string2 傫3 Null |@string1 ܂ string2 Nullx $ $$  $$' $ $+  +k`  $] $'' $  $$   ' $$ + $$'k $ @kx' $   $$'d0 , $$'k $ 'z  .!0 .!0 * .!2A@&ki    /myDelimiterł‚Ȃꂽ񂩂𔻒f]p "  $ "  $+ddd "+dk d ' z  .!0 .!0 * .!2A@&kpih`" H6uvbCrLfvuvbCrvuvbLfvƂsɒu"ÕXy[X폜 "$&'"su "vbCrLf *$'" "vbCr *$'" "vbLf *$'" "'zP H .!0 .!0 * .!2A@&kiH 6suvbCrLfvuvbCrvuvbLfvƂɒuÕXy[X폜 "$&'"su " *vbCrLf$'" " vbCrLf$'" " vbCrLf$'" "'z  .!0 .!0 * .!2A@&ki  eLXgo͗p " "'zHk@ "$'"  " $$'"k(ȉSanitizeTextƈقȂĂ̂Œ  "$'"k  KT "  %'" "  % " $'"k  "  "L $'"k >uijv̑Spp̈ႢȂu邽vbTextCompareReplace "(L) $ % "(L)L $$'"k( "() $ % "() $$'"k KT "  %'" KT "  %'" KT ȂShn` "'zP H .!0 .!0 * .!2A@&ki   ?uAvu`vł‚ȂꂽƋԍׂĂ΂炵āu,vł‚Ȃ' zxkp]X ] ṕuvSpuAv A$' ṕu,vSpuAv ,A$' s폜 A *A$'  A A$'  A A$'   *A$'   A$'   A$' uAAv́uAvɒu AAA $ %' ͂C A $ %'  $A   $' kP8tH[ɓ͂ꂽuAvł‚ȂꂽƋԍ΂炷 A $ A $$+ddd +dk] ] ] ]0 ]H ]` ]x ] ] ] ] $ d''''''' $$d` $'* * u`vłɕ $$d` $$+f fu`v̎gُłB * $$dA@&z8k0 'Ƌ̔ԍimyBody)ƂĈ u`v̑O$f $ %'$f  %   %'$f  $f   %  %&'$f %'$f $ %'$f  %   %'$f  $f   %  %&'$f %'      $@Ƌԍ̕\悤łB * $$dA@&zk $  $ &ƋԍɁuvĂ悤łB * $$dA@&zPkH  "Ƌԍ̐擪vĂ܂B * $$dA@&zk  ,Ƌԍɂ͂Ȃ炸uvtĂB * $$dA@&zxkp  %  %(Ƌԍ̐l̑召mFĂB * $$dA@&zk   %  % 2 "Ƌԍ50ȏw肵Ă܂B *  *  *s܂H  Ƌԍ̐$& z0k(k k'   %  %   'd ,  'k  $+ddh $$d $ %' $$d $  $' $$d  $$d   $ $&' $$d %'   $AƋԍ̕\悤łB * $$dA@&zHk@ $ &ƋԍɁuvĂ悤łB * $$dA@&z k ,Ƌԍɂ͂Ȃ炸uvtĂB * $$dA@&zp kh $$d $ $+dk@ 8 ] $ d  $$d' d , $$d' k 'z  .!0 .!0 * .!2A@&kp ih   @ PuAvu`vł‚Ȃꂽ\o^ԍ/ύX”ԍׂĂ΂炵āu,vł‚Ȃ'" z k ] ] ṕuvSpuAv A$' ṕu,vSpuAv ,A$' s폜 A *A$'  A A$'  A A$'   *A$'   A$'   A$' uAAv́uAvɒu AAA $ %'  $A   $' k 8tH[ɓ͂ꂽuAvł‚Ȃꂽo^ԍ΂炷 A $ A $$+dd` d8 +dk8 ]@ ]X ]p ] ] ] ] ] ]]]0]H]` $ d'''''$'&'' $$d` $'* * u`vłɕ $$d` $$+f fu`v̎gُłB * $$dA@&zk$f  %'$f $  $'$f  $f   $ ' - %'$$f$ '$f  %'$f $  $'$f  $f   $ ' - %'&$f$ '      ԍ̕\悤łB * $$dA@&zk  (ԍɂ͂Ȃ炸uvtĂB * $$dA@&z(k  $  $ "ԍɁuvĂ悤łB * $$dA@&zk  ԍ̐擪vĂ܂B * $$dA@&zHk@ $ % & %$ԍ̐l̑召mFĂB * $$dA@&zk  & % $ % 2  ԍ50ȏw肵Ă܂B *  *  *s܂H ԍ̐$& zkkk'  $ % & %    $( %'dx ,   $( %'k80 "00-00000000-000-00"  $+dd $$d  %' $$d $  $' $$d  $$d   $ ' $$d$ '  ԍ̕\悤łB * $$dA@&zk $ "ԍɁuvĂ悤łB * $$dA@&zk (ԍɂ͂Ȃ炸uvtĂB * $$dA@&z(k $$d $ $+dk??]x $ d  $$d' d? , $$d' k?x? '"zh? `? .!0 .!0 * .!2A@&k(?i ? ?Eu00-00000000-000-00v`邽߁Aׂāu0vɒu "10 $ %'" "20 $ %'" "30 $ %'" "40 $ %'" "50 $ %'" "60 $ %'" "70 $ %'" "80 $ %'" "90 $ %'" "'(z8= 0= .!0 .!0 * .!2A@&k<i<   <?uAvu`vł‚ȂꂽԍׂĂ΂炵āu,vł‚Ȃ' z`<kX<]]ṕuvSpuAv A$'ṕu,vSpuAv ,A$'s폜 A *A$' A A$' A A$'  *A$'  A$'  A$'uAAv́uAvɒu AAA $ %' $A   $'k:8tH[ɓ͂ꂽuAvł‚Ȃꂽԍ΂炷 A $ A $$+dd9d@ +dk9]H]`]x]]]]]]]  $ d''''''* $$d` $'* * u`vłɕ $$d` $$+f fu`v̎gُłB * $$dA@&zx8kp8 (ԍɂ͐̂̂̂Œ =́u0001vƐ擪Ɂu0vtߐlƂĈ̂͒ u`v̑O ԍ̕񂾂i[ Ru05823F0047vƂ悤ɓrɉpĂꍇɑΉ邽߂납猟 $f $f$f  $$$f$f  $ '*ԍ̕菜݂̂i[$f$f   $ $&'y6kx6p6 ȊO‚ȂƂ $f'k 6 ԍ̕񂾂i[ Ru05823F0047vƂ悤ɓrɉpĂꍇɑΉ邽߂납猟 $f $f$f  $$$f$f  $ '*ԍ̕菜݂̂i[$f$f   $ $&'y4k44 ȊO‚ȂƂ $f'k`4 ȉ  $ԍ̕񂪈vĂ܂B * $$dA@&z3k3 $ $ ԍ̐Ă܂B * $$dA@&z3k3  $ $ 2  "ԍ50ȏw肵Ă܂B * $$d *s܂H  ԍ̐$& z2k2k2k2'*   *0'*2'  $ $    'd2 , 'k1d1    *$'d1 ,   *$'k1k1d1    *$'dP1 ,   *$'k 1k11  $+dd0 ȂɂȂk00]8 $ d  $$d' d0 , $$d' k`0X0 'zH0 @0 .!0 .!0 * .!2A@&k0i0  P /?uAvu`vł‚ȂꂽZKԍׂĂ΂炵āu,vł‚Ȃ' zp/kh/]]0ṕuvSpuAv A$'ṕu,vSpuAv ,A$'s폜 A *A$' A A$' A A$'  *A$'  A$'  A$'uAAv́uAvɒu AAA $ %' $A   $'k-@tH[ɓ͂ꂽuAvł‚ȂꂽZpKԍ΂炷 A $ A $$+dd-d +dk,]]]]]]]]0]H $ d''''' $$d` $'* * u`vłɕ $$d` $$+f fu`v̎gُłB * $$dA@&z+k+ Íu0001vƐ擪Ɂu0vt”\邽ߐlƂĈ̂͒ u`v̑O "ZpKԍ̕񂾂i[ Nu001TYAA3000530`001TYAA3000534vƂ悤ȏꍇɑΉ邽߂납猟 $f $f$f  $$$f$f  $ '2ZpKԍ̕菜݂̂i[$f$f   $ $&'y)k)) ȊO‚ȂƂ $f'kP) u`v̌㔼 "ZpKԍ̕񂾂i[ Nu001TYAA3000530`001TYAA3000534vƂ悤ȏꍇɑΉ邽߂납猟 $f $f$f  $$$f$f  $ '2ZpKԍ̕菜݂̂i[$f$f   $ $&'y'k'' ȊO‚ȂƂ $f'kh'   ,ZpKԍ̕񂪈vĂ܂B * $$dA@&z&k& $ $(ZpKԍ̐Ă܂B * $$dA@&z&k&  $ $ 2  *ZpKԍ50ȏw肵Ă܂B * $$d *s܂H ZpKԍ̐$& z%k%k%k% ΂炵č'  $ $u0v̏ꍇ͏ȗ    'd% , 'k$d$   'd$ ,  'k$k$dx$   'dP$ ,  'k($k $   $+dd# ȂɂȂk##]` $ d  $$d' d# , $$d' k`#X# 'zH# @# .!0 .!0 * .!2A@&k#i#x "RtH[ɓ͂ꂽԍi^juAvu`v‚ȂĂȂ𒲂ׂ', .zh"k`"ԍ͌1‚̂͂ .A $1ԍ1ˆȏ̂̂͂Ă悤łBA@&z!k! .` $1ԍ1ˆȏ̂̂͂Ă悤łBA@&z`!kX! .',zH! @! .!0 .!0 * .!2A@&k!i!    ?uAvu`vł‚ȂꂽʐMׂĂ΂炵āu,vł‚Ȃ' zp kh ]]ṕuvSpuAv A$'ṕu,vSpuAv ,A$'s폜 A *A$' A A$' A A$'  *A$'  A$'  A$'uAAv́uAvɒu AAA $ %' $A   $'k8tH[ɓ͂ꂽuAvł‚ȂꂽʐM΂炷 A $ A $$+ddd( +dk]0]H]`]x]]&Ȃ̂邽stringŏ]]] $ d''''' $$d` $ %'* * u`vłɕ $$d` $ %+f fu`v̎gُłB * $$dA@&z`kX uׂ1v uׂ1Aׂ3v uׂ1`ׂ3v uׂviȂj uׂAׂ3v uׂ`ׂ3v u101A103vi񕔂Ȃj u101`103v ʐM̕񂾂i[ $f $f$f  $$$f$f  $ ' 菜݂̂i[$f$f   $ $&'yXkPH ȊO‚ȂƂ $f'k ʐM̕񂾂i[ $f $f$f  $$$f$f  $ '*ԍ̕菜݂̂i[$f$f   $ $&'yk ȊO‚ȂƂ $f'k     'dP$ʐM̕񂪈vĂ܂B * $$dA@&zkk  %  % ʐM̐Ă܂B * $$dA@&zk   %  % 2  "ʐM50ȏw肵Ă܂B * $$d *s܂H  ʐM̐$& zkkk'   %  %u0v̏ꍇ͏ȗ  myTail1󗓂ɂ0  'd , 'kd{0ꍇ   'd ,  'kpkhd`   'd8 ,  'kk  $+dd ȂɂȂk] $ d  $$d' dx , $$d' kPH 'z8 0 .!0 .!0 * .!2A@&ki  \uZpKؖԍvɓ͂ꂽ̂H݌vFؔԍZpKؖԍ𔻒肷' zHk@#H݌vFؔԍ͌1‚̂͂ṕuvSpuAv A$'ṕu,vSpuAv ,A$' A $Giteki'zXkP ` $Giteki'zkO]003OZA09'   % % Syonin'zkOZABA5'   % % Syonin'zPkH]   E擪u01vu010vŎn܂H݌vFؔԍ邽߁A납猟    $$  $  Giteki'dxSyonin'k`yXkPHz@ 8 .!0 .!0 * .!2A@&ki  '0 "zk]]VBScript.RegExp$8.4 4("Global=FalséAǒʂ̂ݏ 4(: 4(< 啶EʂȂ [A-Za-z0-9] 4(>_ " 4%@.6 6!xk " 4%'"  " $ %'"kH 2 "- $ %'"k "'0d '0k z  .!0 .!0 * .!2A@&k i Ō܂ŐlƂ  "  "'y8rk0r(rAttribute 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//__q XlpDSortVt,F Os1BooleanBFalseoIoIPWێʕпo^԰Ȃǁuŋ؂ꂽ\g5RJ\D?7o=f=C҄wavpWwiAsj[_(JQs =ASpli9"Binary :i` zUBoundS aj piep -|'A6-1@@|@s1 2 菬 F @0@|@strin@g1 P2 ͓0 ' @ 1 d傫hNullB ܂8 " iIf StrComp(s(j), s(ivbBinaryare) = -1 Then >JswapO8'j)j, End If Next j#i Dim s2 Asc jmyDelete>True]=u0Jj0jFor i zo UBoupnd(sa3z <>Aj + 1\@N2RF@CReADPreserveπ8] Dl""$:80 T:9x""ЀD1ElseK< A& "," z&'iT(KyS8ortADExit Functio@ ErrpMes:C,.Numberh7JMsgBox  & vbCrLf%ADescripCW'@G@Public" GetCtFrom.R( _ByVal myV, `Wimi.t@&[A)AIn teger!`On UGo@7 %c'"`ł‚Ȃꂽ񂩂𔀻f#GmyArray( C*In(1,!,@(>T`uƆ c / = Split(!L KK^ 0IgFe D䋣6D~)'xN!COkOORmOReplace6toCRA?A 8194v*T)@= ?Og( ( "PM, SI}s9 ' ƈ" a邀̂Œ&  px/g Spct Cas 0 T8hen f; = Replace(N"4Case pNarrow ~=gaConv?vb&Katakana'(Noth ('Ȃ @0Else Se0lectSa@nitize2uExit Functiod ErrMes:C@x.NumberoMsgBox  & vb@CrLf &BDescripG@GPublic# GetLicenceNo( _#ByValF As O Count CheckA Bo oleanATrue)  On,or GxoToAA'@uAv@`@vłbꂽԍׂĂ΁āu, ήC/4!""YmyG4= "" ɏjQA'Dim@FArray(6 2K'@ṕuSp#/ 't`~~"A"ZF _ ~I ,G s폜-G RCS?~ _)Lf_KQ&? - O,?@^Axu-aB@fA;8, d C5;7 ̑, a M# mRighty1)q5K+CLDefLen )p - 1Jo'tH[ɂ*u?-HK*my= Spli-?f ReIF0%0Tă1iWIntPegerWjQLong'kart8PosO S Head1Qb92TBod>y__Ta20 The vMsgBox "ԍ擪vĂ܂B" & vbCrLfmyArray(i) zR1Tail"" OrZ 2` ^ɂ͂Ȃ炸uvtccVBA.Val(myBody@1) >= 2)Ôl̑召m>FBc1AhԎCountCheck = True,7-;@ 50/T!@à(Ǡ50ȏwFn_ϛoD3`2Z"s@܂@H",Y esNo,ʔ")HvbNoX8'?ą/QcB0|qmyTempStr ""$For j53ToT,@4W  m&`& xo Elseo+ e,! $Next G$g/myPos)In .(1,%@D"FT Compare = Conv(Left$  )!ONarrowNc\atim(MDid + `Len( ) -Ap- 1) CRight1k)"E#= "' Aҕ\@`悤ł"ҡI a*},`%`;_nu`ЪbТ?H . Ѐ3s ssO O vO  u/p5%1?9O0!Qc=(DiFm@ As5ilngQPiho UB`nd-X-2,,*my  BQK )GetLicencePf= S< ErrMes8:  .Number+}x HQDescr|ipg 'Public6 @ Yobi ( vBy@ ' F,5bOal PBooleanB) On @ nGopm'uAvP`9ł@`ꂽ\o^/ύX²װ΀u,#} wr$g$/I+k,"&2('ṕu Spc my Replace01Vll"A"$2&/٪= /,'s'ڜ  ep  g 6  LfWL!__]??;O tp0ͅ u!B, vb/$00Uk(#17I"/tH[ɓ0 >j?%?=DP ( !0?UlSplincf ReDim myArray(p0)   =LicenceNoEnd 0If i As Long$j$Double(myStartPosInteger Head15Stri hmy2Body5 3)2pTail8 8Temp)For i0 To UBound(͊= ""ㅋ Q2@K % ? C>MƂ= In(1,Fi), "`", vbTextCompareH=If <> Ihen@A'u`vłɕ# DS2()?SplitX( !#"f2) #1 T# MsgBox7C&̎gُ)B" &@=CrLf(@# .Exit Functio > my= VB4A. .2 .".Binaryo. ! J1%trConv(Left$& B @8vbNaprrow6cPMDidQ + ALen ) -@>a8- 13 CRReplaceB `2-@""%VRigh mG)1!X) = ) ?)w)F)1))œF)2)!)a)k(gJ"" Or"EA E8{pԍ̕\悤pXfp&abc"2AB?ɂ ` utĂ ? DD  g~, 9 /Q"1}BQ" QuQ2u Q ? 2 (p2_\2 ̐擪Q\v$0$ܰi,H RԖ$11NValMC) >:g;)  l̑叀mFr _$iE C@tCheckeTrue ". -l 5߀'+("&50ȏwx_J7 vbFz#J3*}2 & "s@ ܂ HyYesNo X ̐"ыvo&"&2 ? [Aj`{+@*op my)/ Amb1Pmat(j, NumToZero4`q@@YEls& p,$c N[ '"00-008v gO‡docbb`oѶ_zsmyB Yr# M?3=lba.c `/n+Woo4%  "" Then  MsgBox "ԍuvĂ悤B" & @vbCrLfmyArray(i)Exit F@unctio qE nd If 2If myTail1 #͂Ȃ炸uDtWX} = StrCo(nv( ,Na0rrow |Next Dim#~" As%ing For i/0 To UBoxund1+= "myG'CElseGAG A & ",|q3GetYobiLicenceNo0 ErrMes:C@3@.Number?  ADescrip],Private ToZ@ero( _C+ByValg@eg)k On @y@lGo@k@55'u00-0v`@ؽ߁Aׂ@ ɒu$R#= VBA.Replacek, "1"0, PT@MCompareF_2_ ;3_]4_]5_m]6_]7_]8_]9]_EvINvav̀b{vnvublicGvProductNׯv&'u,%{O{CtCheckBoolean True||Avu`Qvł`Ӱ@S y@{A|,Fc-I"",my'4!3OfC{K2(3'pu@ Sp If IQ(A"H&q/W9/o ,'t s폜SqSVp &S呯*  uLfg ]ј__]??; t ͅ j [b;k/k/Rightn0Lef|Lenq) -`;3'tH[ɓP=V I:nY(p8 vb;y /:pplzi| "?=˝R:e?0t-qŝ0))H  1iRInteger3QjQLo!UчartPos?b˱m'my2Q_Temp`/!mat__qc qZ  ] _il20%`% ' mSt= Ә(C%i)(`S( Rg&`1 oPmɕC qeW,-O,52R1/%:x̎gُV6 ou5 B'~ɂA诂̂0̂Œ+' T`1uƐ*0PlƂ0Ϳ&̑O  'ԍ̕񂾂@i[ u05823F0047vƂ ɓrɉp:ꍇΉ-猟 `For k = 0 To Len(myArray2(0)) - 1 .If Not IsNumeric(Mid 6,Gk, 1(0Then(*my Head1ELehft$()#@菜̂CBDTailDTrimn F + 1, k)JExit Z,End IfNextK'.ȊO r@wƂ gS"" \my9H| &Kk׮1)̮2ϮWĂW"!:pWWWW{Wda|WAfW1L*tWȉ(f(<> g2fMs@gBox ".@vB" & vbCrLf3D(i?unctio&,1Val@Bx) >= 2)?dA¡&ޠCou@ntChecATrueT -1 5Vɠ4(450ȏw_7 ="s `x H", YesNo,#")pCvbNo~ "#  ? / UmatY ""[Vjp1gw'myV&8 "0BKempStrs z/ y/ A"sQ SSGX OQTy UElse9Y,F `" o &P&(j,'?QO K Xc)og 5#_q1 0RbD17" o?q/p? G0 'ɂUȂc1Dim&1Asb `ing i@Ao UBiφ̘= ?/my~PV<QGRʁ GetProduct0c= ,b ErrMes:  .pber ?QčHpQDescripgE F&Public  @ Git@ekiNo(tBy[  ,%bOal PBooleanBy)On yGo@b`U'@uAvP`ȂꂽZKb@{נp u, `r" # Then Exit Fu nctioEnd IfDim myArray() As String82 :>'ṕuvS@puA myGitekiNo = Re@place(, ""A"j) P,5P,P)s LI & vbCrLf Q)48R 'vb%V{|~uXVBA.Al, AvbTextCo`mpareIf RightJt1)"AjhLDefK LenH)p - 1DŃ'tH[ɓ͂ꂽ9ł@ȂZpKԍ8@A@.Inq(1,Ã^,I; <> 0= Spli 3A?QMElseCReI}0D!% 0)g'Ck"AiIntegerckmySta rtPosHead1aώA2SpTailAj A LoKTemp  For i`K`1o UBound@F&= "~"!)c2X*)= hJ郷i)aJ``i-h_a Q1PM' \`]ɕgERMO [K*2)!_1,_ aMsgBox "$̎gُłB"FYiH5E Fe'0001"Ɛ擪Ɂu0t”\邽lƂĈ͒ ,̑O̕i [ TYAA3530`R4q 0ꍇɑp! P猟;0k0S2(<0)SNot IsNumeric(Mi3aD,  k,`X) S6]$8m k'P{q %=TxrimAO Y k + p`k) )otU uX9Nr+ȊOp0j pjĂ`ƂpdmyE""mye?c1;bR@F.O._O.&O.1G/O.O.O.0E.Ho)1O.3O.I.1XJ.sO.VaL. O.O.O. D. O.(O C O.,O.O.aO.O.O.F.1 O.dC.!F.EO.'S1Am?Em?I4Ivd[܂nnuu qp ValKA>) >= 2/Y D2T zI/zP CAptChecjTxrueM" -x > 5=bD3("^50ȏw[_Ue溋> p߀""ܰ|HџybYesNo, "ZpKԍ̐") = vbNo T@hen Exit FunctioLEnd If.'炵č FmyTempStr""  For jVal('ail1) To 2)q'u0v̏ꍇ͏HȗIf00=PhX/myHead1TElseAEW& "," & z>>)j?CB?@fE pDA?K tAw!qy@p Next 7myArray(iAf;'Ȃɂq`Ȃ b cDim Za=As ingAiv {o UBound@H"3= ""0umy saNe hGetGitetki=l ErrMes:.Number <> MsgBox & vbCrLf @Descri>p? gPuPblic K atasi!( r_ByG 4a)9OnAy@Go`<'tH[ɓ͂ꂽ聁݁i^jAvu`I@ Ă`𒲂ׂc*"CDe'͌1‚̂͂& InF(1,j%A", 4T kCompare):"`ȏj`0&A悤łBv O P*A `O ' 'O O O "7E my'|4p041144444CallSign(m4W3,%BO2;al CNt CheckQBo olean`-Tr|ue/7/7A'K 44ŀ+Ȃ4@ʐMP4՝u,07v 14SmyzW((c_sUg* 2(  ṕuA Sp Repla\cec //"9d'P=,3's폜 J 0 \3]`' ѡ(P$ 2LfW_  Y$ S| '"-u VBA.O#, vbZk.Righ~t$`0l/LDef[LenX)p - 1([Prd0<0c% D!iPlLo!j/SInteger1artPosڱ |֧!2҈y适str@ŏT/yTail2 As String Dim myTemp pFor i = 0 To UBound(myAr0ray)|my Head1N""= *2*+=  A StartPos\VBA.In(1,(i), "`", vbTextCompareYIf#<>qhen_l'u`vłɕ# 2()DSplitCD3F 2) I1 TIMsgBoxpN̎gُU@B" &|CrLfRF /Exit Functio ?End8 If KGׂ1vA 3 ` viȂTj1@01A10.i% ` L%ʐMCi[ AkBLenŒ2(0)) - 1 p@Not IsNumeric(MiF , k, 1 L zLef|t$ ke'菜7̂>@Tr imA_k + k)T]orO(-q]N+'OȠƂ2TyF0elJC)J?JJ1` J?J J 8'໑Hi_KJc.PK_K_K_K_KAa""ZK{AFK1%/^Rs '؏-0j3.2?F0 {tu=`y҄KQExlse_q>1PvPe`GqqQ0qcoC ? 0 aVal`T!) >=<2)Ob T O/_ P CtCheciTrue "@ -> 5m23("50ȏ゠w[__y   "s܂ HYesNo&"ᱟvbNo?f_"/2_&ߐMt q`jT(=ou0̏ꍇȗ@ a3 SX'󗓀ɂ05vHHU& ",'{0PQߠ103,I Oi 5q??oss Next myArray(i) = myTempStrElse b'@ɂPnd If1DimWS ADs ingFor it0 To UBound()!If== "" ThenmyZ& ",x" &0g6GetCallSign"7Exit FunctioP ErrMxes:e .Number < > |gMsgBox & vb0CrLfR De`scrip1GER7?PublicH -GitekiOrSyo@nin( _%B0yVal@@@ue h)Il OnsA&mGol#7  C'uZpKؖԍvɓ͂ꂽ̂H݌vFQ𔀻肷0`""C0/fM'%͌1‚̂͂D ṕu7SpuA:mATR= Repla ce@&, ""A"':,,AIn(1,s,HTCompare)QO!2,F,K)`vb gOU< ga'O[#sYasA 003OZA09GIVBA.LeftC6#n(s)s̐&l&EbBA5??|?g' "&k&Intege$ak 1aLenE$) - 1'擪u01v0`[Ŏn܂nl ߁A ~猟c J@Not Iseric(Mi$jlk, 1`4ĠARight$;k> 4Aba/͡CaeWbBoi`KUcOg1OgOgOgaOgKg"Abcf@JP8,hOmhoDelete SpSqBoolea1wFaHihunelqklesl .( f Q'6I!HRE ObjectQMatcheISet = Create("VBS.RegExpdRE.Glob= 2 10'S=2́Aǒ Pm'RMult iLinepTruIgnor0eCas' 啶EqyPatter"[A-Za@-z0-9]$NDow>sE.Executs"K.Cpt  9m6 zsaLoop6 )=  Dxc", {qc `'-// -0//.1g";P4L2D)K?ɿKKKK!?__SRP_12q__SRP_13$TmodInputTextFile"k55Lb__SRP_3fkX&@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, / ,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, / ,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`      !"#$%&'()*+,-./12i4>6789:;<=3?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfg<:|lmnopqrstuvwxyz{e}~rU  уYYu qvə$ $iQ$ن1aIyٚ! Q9iɛsck3_#! Q9iɜA)qYѝ1aIyٞ! Q9iɟ! Q9iɠA)qYѡ1aIy٢! Q9iɣ! Q9i%ɤy)AYzYAsqYs tyttw9vrIyɧ !iɨ)u Ѫq!Eay qɬѭyHYA q!QAɫ 1Yy'уI'@4 (1( WW___WT l Ct-KZ lt0,Cx/ pltl>p1tpltp>p1t "lt 1t pltd>p1t plth>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`\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"@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(thp0  H8Dl CtlCpKltlpd1pM\@ltL L6 YHl5Llltll;llpz/$H DD  lHD:l'''$H DD  lH#@*#48 << , l8*FL 2@48)D<6L$/D8tl p0 @84D<L$< 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/pltl>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 lpt< hH(  l Ct-Kj 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 0l0l0l0l08'''(*#hl lp*FH /h6H(/l=l=8'''(*#hl lp*FH /h6H(/7l #h=l #=2h8'''(*#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 l0kRhltlF8>hFHMX@( (:`16H(bltl*#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=/hh 8'''(*#hl lp*FH /h6H(/ l= 8'''(*#hl lp*FH /h6H(/:l lp.@MX@H -H`#hl lp;/h5H  fh lpdpZ lx02 l lpCxN lx*#hl lp*1x/h  fp lxCx/$$ ll  l$l l'''($ ll  l$#h*# hh , l*FH 2h)lh6H(/ hPxl x p@t@ 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, 4 l Ct-K 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 "" LL"L""" *LP"L""<|< X% st%`Hz  %+H`0Tk II  nt Nul%`P `R$+ZX`xk R)G 0% npP%+X` kFFiR $% np% 8 l'% hЃ%`dight`bAll `\ h`Xco.j`hVsterE@G8@@XB X@  @0p t@@n @h &DXF,Z@pX @H @8 @( @ @ @ @ @ @0 @H @` @x @ @p @l @h (^*.b@Hd @` @5 @\ @`X @T 8x`P h  0`Zz @3 Gth % Gtx% Gtx% Gtx% Gtx% (@` @0P @@ 4NRZV:6@> @8 @ 4 (@ $ @  @ pHdFJ>B^fhjlnprt vxz|~ .*@  @ h @  @  @  @ (8 b& @ @ YxP %`Rt 8 $&@ `Rt .`RtX%`Rt  ( $`Rt   P8  ( 8  p ~$&@ D @ @ @8 0 @P @h  @ @ @8 @P  @ @ @  @ ( *&,.b@ `@h  @   = @  @  ` @ @ ;@ @ @ @X RYP*\R0*#1c$*\Rffff*2u50cc4c24$*\Rffff*3hp x 8( HX` &h    . :+PX <`  < $8PX 2`   H     Bt B    < H <`   TL H <`,-\V0 .'8 .-h `V  0' PL0 PL PL   -0 DVP  "' 8  8 P -p 0V    ,L  ,L0  ` ,Lx   ,L  ,L 0,L@ p,L ,L ,L( X,Lp ,L ,L 80 h 8x ,L ,L H,L` ,L ,L ,L( X,Lp  ,L  ,L  @,LX  ,L  ,L 8 P 8`,L,L,L,L(,LX,L,L,L,L,LH,Lx,L  8  8(0-`dV0-dV0hL2-hV@2-hVP2-XhV2-hV8  8  8HL0TLxTLPL(\LxdL&-@PVhXLlLhL\LHLP dL \L!@L`!PL!!! "  "" " ("" Bt"# #B # #  # (#8#@#H#P# X#`# h#p# 6"x#H #"# $ 0$ @$  `$ N@$.$:%&2@%4Yh%$>%1%.4% & (&0&8& @&'H&X&`&h& p& & & &&  &{& p' x''' ?' ' '' '  ((( Bt (h( p( x( (( ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/' webmaster@hyperdyne.co.jpX]@]@@ 8'H].n% n!JB@L n!J!NxJeLXgǂݍ݂̓y[Włɑ₳ꂽf[^ɑ΂Ă͎sł܂BA@&pzk]]tB^[̐ݒeLXgt@C(*.txt)$*.txt$ׂẴt@C(*.*)$*.*$'P !" P n!T%V'R R zk 'eLXgt@Cǂݍ .D R$X.D Dz8k0.FQ D%.F( F! ,0݂̃f[^݂̂̃tB[hُ̐łBA@&zk5-----------------------------------------------------݃y[W̍쐬5----------------------------------------------------- F$Zzksystemׂď n!z!\zk+[Uj[visibleǂmF6 ^!( ^B@` !(e B@`Tk "eLXgt@Cǂݍ݂܂B *LȂ炸f[^`FbNsȂŁA㖳exɂMB *L\Ăꍇ́AۑĂIAxJĂBA@&'Hz(   .!0KTKT  .!0 * .!2 *6ۂ̃v_E͈̔͂𒴂l͂Ă܂B beLXgt@CǍA@&Sp .!0 * .!2 beLXgt@CǍA@&n iXZ 5-----------------------------------------------------Z݃y[W̍쐬5-----------------------------------------------------'Z]8.nP[ ݃ev[g F% ݃ev[g n%(Auݎw肵Ăv 1=w肵ĂA2=o^A3=o^6uݎw肵Ă2v 1=A2=2718A3=2729 ݎw肵Ă F% ݎw肵Ă F% ݎw肵Ă n%!(rk ݎw肵Ă n%(ݎw肵Ă2 F%  ݎw肵Ă2 F% ݎw肵Ă2 n%!(rk ݎw肵Ă2 n%( ݋LNN F% ݋LNN n%( ݋LN F% ݋LN n%( ݋LN F% ݋LN n%( ݈ ݈ F% ݈ F%  ݈ n%!(rk`  ݈ n%(`1-------------------------------------------------\ҁiƋlj1-------------------------------------------------\Җ@lčl̕a 4 F% 4 F%  4 n%!(rk@\җX֔ԍO3  N F%  N n%(\җX֔ԍ4b  R F%  R n%(b\ҏZtKi  Z F%  Z n%(Pc \ҏZ  V F%  V n%( \ҖOtKi  : F%  : n%(  \ҖO  6 F%  6 n%(&\ґ\ҖE  d F%  d n%($\ґ\ҐtKi   F F%  F n%(\ґ\ҖtKif  J F%  J n%(g\ґ\ҐHg  > F%  > n%(pg\ґ\Җg  B F%  B n%(g\ғdbԍh  ^ F%  ^ n%(Ƌ1-------------------------------------------------㗝l1-------------------------------------------------㗝lX֔ԍO3*   f F%  f n%( 㗝lX֔ԍ4  h F%  h n%($$㗝lZtKi  j F%  j n%(% 㗝lZ   F%   n%(܂㗝lOtKi  l F%  l n%(̐ 㗝lO  n F%  n n%(㗝l\ҖE%  p F%  p n%(㗝l\ҐtKi  r F%  r n%(㗝l\ҖtKi $  t F%  t n%('㗝l\Ґ   F%   n%(㗝l\Җ  v F%  v n%(㗝ldbԍ  x F%  x n%(H1-------------------------------------------------㗝l1-------------------------------------------------  z F%  z n%(Ă  | F%  | n%(h   ~ F%  ~ n%(8    F%   n%(   F%   n%(   F%   n%(    F%   n%(   F%   n%(   F%   n%(o^   F%   n%(   F%   n%(    F%   n%(1------------------------------------------------- ݂̑'1-------------------------------------------------ݖݔ̈ړ͈1 F% ݖݔ̈ړ͈1 F% ݖݔ̈ړ͈1 n%!(rukݖݔ̈ړ͈2 F% ݖݔ̈ړ͈2 F% ݖݔ̈ړ͈2 n%!(rAvk` ݖݔ̈ړ͈̓t[ F% ݖݔ̈ړ͈̓t[ n%(ݎgyы󒆐d1 F%p  ݎgyы󒆐d1 F% ݎgyы󒆐d1 n%!(rkPݎgyы󒆐d2 F%' ݎgyы󒆐d2 F% ݎgyы󒆐d2 n%!(rkݎgyы󒆐d3 F% $ ݎgyы󒆐d3 F% ݎgyы󒆐d3 n%!(rkݎgyы󒆐d4 F%' ݎgyы󒆐d4 F% ݎgyы󒆐d4 n%!(rkX1-------------------------------------------------ݔl1------------------------------------------------- ݔl F% ݔl n%( ݔlSҖ F% ݔlSҖ n%( ݔlSҖ F% ݔlSҖ n%(A@ ݔldbԍ F% ݔldbԍ n%( ݉^pJn̗\ F% ݉^pJn̗\ n%(ԍ ݊]o^̗L F% ݊]o^̗L n%(݊J݂̖ړI F%B ݊J݂̖ړI F% ݊J݂̖ړI n%!(rk@ ݊J݂̖ړIt[ F% ݊J݂̖ړIt[ n%(  ݖݔ̏uꏊtKi F%  ݖݔ̏uꏊtKi n%(  ݖݔ̏uꏊR[h F% ݖݔ̏uꏊR[h n%( ݖݔ̏uꏊ F% ݖݔ̏uꏊ n%( ݎʕ F% ݎʕ n%( ݓK\ݔ̔ԍ F% ݓK\ݔ̔ԍ n%( ݖݔ̐ԍ F% ݖݔ̐ԍ n%(  ݔl F%  ݔl n%( ݊Jǂ̗\萔 F% ݊Jǂ̗\萔 n%('Zz  .!0KTKT  .!0 * .!2 *6ۂ̃v_E͈̔͂𒴂l͂Ă܂B beLXgt@CǍA@&SH .!0 * .!2 beLXgt@CǍA@&niX ].n]]] ]8]P]h]' R$~,myFileNamet@ĈȂ R,2myFileNamet@CV[PV̓[hŊJ',obt@NA..$a( EOFłȂԂ ( 1sǂݍ $# L##Ŏn܂ĂȂƒkłȂ : $'L:̈ʒu𒲂ׂ 0L%:݂ΈȌ̏BȂΖ   % %&'   % %& n!%'  %   n!%ږ܂B * A@&V.Xzk   C@xqkk  'kx)Do[viJԂjV)t@C‚k0  , G[ :ڂ̐Ă܂B * ݂̍: , *ۂ݂̂̍: !A@&.XV)t@C‚z`kX  B@x .XV%t@C‚z  .!0KTS .!0 * .!2 beLXgt@CǍA@&n.XV%t@C‚i`XAttribute 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 IrfI%Cv 1=NA2=o^A3=<s t2271829pX"j ")~ _IV/.DropDown.r&?ĉ 1SEnandli1O$O a2PbD?_WLNN ReO1%Ҧϛ 8?5 8 mvarKagami.Item("LN") ( 'pd@IfF") <> "" 0Then`cP.GetValue(pKAGAMI, w6.DropDown.%l _<@=t,E`nd If qEnabled = Truex--8'\iƋl j ;'@lčl̕*cB(niC3mCRX֔ԀO3Cu  ).ResultFV4o$ x$ACIZtKiIi$cH_a _Rǔ_O?! JhEa G \E'_N#_2K2Gt$_Q_%G&77_$$/{:4/ u Ҡ\db_//w//m(*&O{S '㗝l/JzlTP J~G!phM.osd9h  9"ooe]g9ool\ooeO]H/o Ǫ2//,S)oo?еe$} jo Wo.x ϑo ҋ3 ?O=OU$oC/poooRoli?515lϔx3Kagami.Item(cݑ㗝ldbԍ) '--n;cP.GetValue(pKAG`AMI, aXO3).Result _x= mxvar <4< Xu?.Ȣ K  f_Ǿ? Cʂp̑_ 3I f" ݔ͈̈1") <> "" pThen.DropDown~."i ə End Ifcg2>>݊J݂ړI")  End IfXcP.GetValue(pKAGAMI, " t[").Res`ult _x= mvarKagami.Item(zqݔ̏ uꏊyKi+{GBR[hA"@=~{ʕG 5K\giUoG-_lkTC _Jǂ̗\p萔k+# Inputx = TrueExit Function Er`rMes:ASelect Case @.Numberc004608GMsgBox(a& vbCrLf &Descr ip"ۂ̃v_E͈̔͂𒴂l͂Ă܂ B",iticalࢃe LXg@CǍ"LEls$'_ We146Private&9 ReadTextFile(By@ myName As String)ACol<@ On!0or GoToA@B%BDim cPclsPapASet= New KAmy 'c#T?myBu "" Thend''M@̂Ȃ aOp F`2By#1 V0mPVL,/Qn`ŊJ=q M'obq `NA'# GN%Do Until EOFH(1) 'p0Ԃ͇ALine #1,/%#'1sǂݍ[ Left0, pQ#" A@7#TnFFF@ƒkr H@ Co$+=0 () I:JC!=pare':̈ʒuNי10 {a 0.)}0Ȍ BP  qmyr6= VBA.Trim(w -d}m y9=0F.SaniplacepLtoCRLFvMidYh+a"A In61 S"=0=OE 7@:mqField7)CUv$f"P&?lss YClo|#1_Y=yd Nothy?<j4? With1B.Add@"!?uQ `k %Loop_A'DoZvaViJzjw'Z1‚oEA*k1j_`COUNT)'G[ "&":(̐bkN܂(:z'38my!.CountO, N,de. "G5*} F# `-=uClose #1 't@C‚ Exit Function ErrMes:>Select Ca4.Numb\erv>00 Else&MsgBox A _ $& vbCrLf &(Desc(rip,itical, "eLXg Ǎ"'En d YSet ReadTextFile = Nothing4 d@dMD@0 k 0: l]<ld='60mldmpbkbn3`2kbdMD@0 k 0 o`1\60Y'0kbdMD@ p o@p @ 8q>1X/@60>:N\M @(0 r(]@60^1+l\p X ,sk$4'''t*#@l\*F0 /@60= c=x lh'''0\M @XMD@ 60c kVpVf= kVE{'''uv*#@*#w*#E#*#*#x*#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 :  p`16H(p8l $ 4 hlllpt |p  >h1/lp l0` l c .(:XNHH_ (6H(h_ $lhE+'''(:XNHH 6H(p p2$npt 4p knp[$aH.V__SRP_3eL'{t0000__SRP_c<+t__SRP_d90?`!9n<8 l tKpz rU $ `T$A `X$ `\$ ``$ `Q$A `d$ `h$ `l$ `pcc595c$*\Rffff*3F50cc4c24*\R1*#91*\R1*#83*\R1*#c5*\R1*#44*\R0*#9$*\Rffff*3350cc4c24$*\Rffff*0a50cc4c84$*\Rffff*3050cc591a$*\Rffff*2u50cc4c24$*\Rffff*2z50cc4c24$*\Rffff*2y50cc4c24$*\Rffff*0Y50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FArU~| >?y qQ}Q$yq( ?sXI~? #Y ~0iQ12$ $A~-+FFCaGGGE 9  I Y ) aY IAY)y )qai Yь)yA zQy tуv! YDKpz tnpt Lp Tp'hpt Lp $lhp+'''(:XNHH 6H(:XH H(:8 : :  p`16H(p8l $ 4 hlllpt |p  >h1/lp l0` l c .(:XNHH_ (6H(h_ $lhE+'''(:XNHH 6H(p p2$npt 4p knp[$aH.V5H $ $aH.V5H $ PH'''(*#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<8 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%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@:`/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@-@:`RNPPt @:$]@6P@ V@:`RNPPt @"8+>Rp 8 |% 8')86P@-@:`SNPPt @:$]@6P@V@:`SNPPt @"8+>Sp 8 |% 8')86P@L@:`TNPPt @48+>Tp 8 p%/486P@-@:`UNPPt @:$]@6P@`V@:`UNPPt @"8+>Up 8 |% 8')86P@-@:`VNPPt @:$]@6P@V@:`VNPPt @"8+>Vp 8 |% 8')86P@-@:`WNPPt @:$]@6P@jV@:`WNPPt @"8+>Wp 8 |% 8')86P@-@:`XNPPt @:$]@6P@V@:`XNPPt @"8+>Xp 8 |% 8')86P@L@:`YNPPt @48+>Yp 8 p%/486P@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@-@:`_NPPt @:$]@6P@<V@:`_NPPt @"8+>_p 8 |% 8')86P@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@pz 88 !l q8l#0l 88 !  ,!'':`"N@@l #4*#l*#*##*FP 2 4)86P@0t 88 !  ,!'':`"N@@l #4*#l*FP 24)86P@8,dpt8 48P@<$l CtKh ppV"tMD@ i#@=/@z lt]Cd l h  jt}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46$*\Rffff*0U50cc4c84$*\Rffff*2m50cc4c24$*\Rffff*3D50cc4c24$*\Rffff*2p50cc4c24$*\Rffff*0^50cc4c84*\R0*#2*\R0*#1$*\Rffff*0O50cc4c84$*\Rffff*3@50cc4c24$*\Rffff*3150cc4c24*\R0*#23*\R1*#10e$*\Rffff*3050cc4c24*\R0*#11$*\Rffff*0[50cc4c84$*\Rffff*0450cc4c84*\R0*#f*\R0*#12*\R1*#10b$*\Rffff*2x50cc4c24$*\Rffff*0V50cc4c84$*\Rffff*2z50cc591a*\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*\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-00jQ4<^`.FPya@E55QwbZC EΝ*׋KkIJgfGKxRAWxKxRAWPya@E55ME,SPSSS"p">"L""" L""L"L"""" ""L ""L "" LLLL"LLLLLLLL <0<4<8<<<@kA n % 2( `@|k\ 4h `PA\kc 8 `xki : `xkn <( `8Bxks >h ``xkx @ `Cxk} B `Cxk D( `Dxk F `xE\k ff nx  %`Pt`Rp`Hl(`Jh@`L dH0 (  %X 0  %`h h ( X( H ( ( `  ( P%%`h h ( X( H ( ( `  ( @h8T>@ x @Pt @@d @` @(P j@J @D .*&@@ @< @8 @X( @p @ @ @ Xp@ @@x @h @X @H @Xp@t @@r @h *&.@@d (@T @D @04 @H$ @` @x @ @ @ @ @ xr x @x Ph8H`h@p @n &6@\ @L @< @, @  @ @P @ @ @ @ @ @ @ @ x .*@(t @@d @@XT @pD @4 @0 (@, @( ``p.*&@v @p @l @\ @L .@H @0D @H@ @< @x, @ @ @ @ xr@x HrH @x `(@Hx @0h @xX @`H @D @4 @$ @ @ x`@x @h @ X @H @D @ 4 @$ @8  @ ! !!! !8!!P!@"t @r @h @`!f x!8! @d !`! @!` *&.@"\ `!@"L @("< @@", @X" @p" @" @ @ @ @ h`$###$p#*&.@#x @#h @$X @$H @D @0$4 @x$$ @H$ p@ X@$ @ @ @$ @ %%%x%@x @%h @X @H &h'&&''&*&.@'x @&h @'X @ 'H @8'8 @P'( @' H@ 0@' @ @ @ (@ @' @ ((X)p)((@)t .*&(@p @()l @h @@)d @` `@)P (@)@ @)0 @) @) @ @ ****@x P,@+h @X @H ,+`,x,++.*&@,x @t @0,p @l .@H,h @d @,T @,D @,4 (@,$ @, @ (@ --P.h.--.*& @.x @t @ .p @l @8.h @d @.T @.D @.4 @.$ H@. @ @ X 0/(0@0//101*&@P1v @/p @@h1l @1h @X2d @X0T @p0D @04 @0$ @0 @0 @ @ 8/n6.@@(1 @11{@1 1(1 @1 @1 @1 @ @ @ @2 21@02 H22h@ P02.@p2 @ x@`H4(33p3@34x4@`4p @n &n6@3\ @3L @3< @3, @4 @ @04 @ @ @4 @ X3.*@4 @ 067x557X7p7& @5d @5T @5D @54 @h6$ @@6 (@ 6 @86 @P6 @6 @6 @6 @6 @6 @@7 H.@t @(7p @7l @7h @X @T `5 .*4@J @D @@ 988889p8*& H.@9x @8h @H9X @`9H .@B @98 @094 @0 @x9 @9 @ @ @ @  :P;::h;;x:*&.@;x @:h @:X @;H @ ;8 @8;( .@; @ @; @; @ @ @ @ @; @ h <>X=p=>H><*&.I@<x @<t @=p @(=l @@=h @d @=T @=D .@=4 @=$ @= @0> @ @`> @ @ @ @ 0?@`?x? @P@?*&.@H?x @@t @?d @?T @?D (@?4 @?$ @8@ @ @h@ @ @ @ @ @ 8A^(BA6B@ Bl @\ BBr(@x CCr(@x DxDr(@x `EHEr&@x  h 0FGHF`FII(&$@G` @xFP @F@ @F0 @F p@F @PG @F (@G @ G @8G @hG @G @G @G @Hp @Il @Ih FdPfj@@HX @(HH @@H8 @XH( @pH @H @H (@H @H @I @0I  6@HI @`I @xI @x @h @d @` Gnt.*@\ 8H!! ( 0 X(P2RYP$*\Rffff*0`50cc4c84$*\Rffff*3<50AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*3=50cc595c*\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*0N50cc4c84148<@]DHLPTX\`dhlptx-|U%&)*+VWXYZ[\    8 "X "  ?BB "8H Xhx  H 02 0@P`p25(8 @ HXhx  $l " ,[0@HX `"h ,[p "   .* HXHWh ,+ "(0@ H $Pl` "  <  < *8h p 0  % "7  0HW@,++  $ l( H P "X  ` p "x  ,] 4 p x  *   *        $( l8 X ` "h *p        "  E       (*  &+  0 8 @ P X ` $h lx   "    *9    ( $0l@` h"p x    $l " *.(@P X"` *h. "     $l( 0"8 @  HX ` $hlx "     8C <(Eh 8F 6H8F :E  .,6J+X` hp'x & ! ^+@H P!X p^+*9  (+8"KP-x* "K- "K"K  H Xh,6p(.**$D( 0PX:6`6. , *  *  $D0 /X *x  * $D 662.(*`p*$D &<6@K0p x 08C#8F#8H P2C`#46# 66:KH  #6= #( #@P #hx # # # # #0@ #Xh # # #6= 8  #P `  #x   #   #   # ! #!(! #@!P! #h!x! #!! #!! #!! #"" "0"#"# # # (# 8#66H#:K## #:6#>K$X$  `$8=$$ )$ )$$ 4$ 8) % )X%p% )x% )%% 8=%% K% K& & 2(& /`&:)x& &JK& ' /')0' H'"KP' x'' K' K'' 8='( K( K0(P( 4X( /(<)( (LK( @) /H))`) x)"K) )) K) K)) (6*,K(*X*  `* p** * $*l** *"* * * **+'+ & +0+8+ @+!H+ `+^+p+++ +!+ ,^+,p,x,,$, ,,, ,*,%,+,"K--0-*H- "K`--- "K---%-"K- .6.2K@.x.*O. @. T. H/  X/ h/x/ / $/l// /"/ / / ///'0 &0(000 80.@0 `0&*p000 0!0 0^+081@1 H1!P1 h1^+x111 "12T28p2  2,+222 *2-3  303&+83`3h3  p33333333+33 3 $4l404 84"@4 H4  &P4x4 44N484  50+5H5P5 *X5-x5 55&+555*56 66 606 H6P6-X6p6 666+66 6 $6l66 6"7 7 *7(7 07@7 P7X7 `7 h7 x7$7 77 7H7-8 8 8899 9 $9l(9H9 P9"X9 `9 ^Eh999 9 9)9:: "+:@: H: $P:l`:: :": : (Ht:;; ; <$<(<0<$8<P<X< (+`<< < $<l<< <"< < P<== = =$===$=>>  + >@> H> $P>l`>> >"> > "> > >">  ??  ?"(? 0? H?"P? X? p?"x? ? ?"? ? ?"? ? ?"? ? @"@  @ 8@"@@ H@ P@ X@h@p@x@@@ "@fE@ A(A  0A~HA8A*9A B(B0B8BXB`B$hB  BFEBBB  B~C8C&9C CCCCD D$(D @D*4PDDD  D hD FE:40E pEIEEE &EAE@EF F h F  *FAF@FF FAG (GAHG&V`GG  &GIG  GAG&VH0H  &8HI`H +xHH H $HlHH HI ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H T !6%((d T !6%( T !6%(xӁ@[Uj[ɂɑ > !(h !(ܷ !(r !(r !(r !([ !( !( !(]@.n n!zB@6ݶ㗝l n!z%Ƌl !(r  !(r !(r !( !( !( !(ݶ㗝l n!z%㗝le !(r !(r !(r !( !( !( !( kA@ !( !( !(( !(( !(r !j(r|P H .!0 .!0 * .!2A@&ko` !!r !!r" !(d !(ko !!r !!r !(dH !(k0o( ] .n n!zB@6]@ y[W\ y[W\ n!z%' *' y[W\ y[W\  * % n!z%"y[W\ۑł܂łBA@&%|k n!zB@d  * %'%k  !(d|  .!0 .!0 * .!2A@&kxopX `5----------------------------------------------------- y[W̌ 5----------------------------------------------------- $݂̎ۂ̃y[Wo璲ׂ].n  n!JB@6]] $ n!J!N  $ n!J%' d  * $ n!J%'肵k $( n!zB@6 y[W\ y[W\  * % n!z%"y[W\ۑł܂łBA@&݋L|@k8 n!zB@  !(dɏI܂BA@&L|  .!0 .!0 * .!2A@&ko B@%o( x !!r !!r n Vuo^\ƂĐݒvuo^\ƂĐݒv̂ꂩ`FbNĂB *>łɑ㗝lsĂꍇɂ́AsKv͂܂BA@&a|k]h !!r o^\'(rk@ !!rO3o^\'Fk $|k|  .!0 .!0 * .!2A@&ko !!rZ F !(  !(dP !( !( k(o  P{^NbNꍇAxf[^`FbNȂKv܂B *s܂H  㗝l̎w$&  !(F !(  !(].nt n!zB@6ݶ㗝l n!z%ݒۑł܂łBA@&|k n!zB@k|  .!0 .!0 * .!2A@&k`oX  H]`.n   DBo^ n%!(rh B@^ F  B@ |  .!0 .!0 * .!2A@&--ko ].n------ n!B@--|P H .!0 .!0 * .!2A@& ko !!r4 !(rF !!re% !(rko  !!r j !(r% !!re  !(r k@o8` ( B@Ki|  .!0 .!0 * .!2A@&Oko  B@|  .!0 .!0 * .!2A@&k`oX H] .nr Fo^DB͂͂łȂ ݎw肵Ă n%!!r6uݎw肵Ăvuw肵Ăv̂܂ F 2\̃^Cguw肵Ăv̂܂܂łB *&CĂxsĂB ݃^Cg$&  | k ݎw肵Ă n%!!re0uݎw肵Ăvuo^\v̂Ƃ-- ݎw肵Ă n%!!re4uݎw肵Ăvuo^\v̂Ƃh  0uo^v̏ꍇADBo^邱Ƃł܂B *&uJݓ́v̒iKDBo^ĂB ݃^Cg$&  |h k` kX (ʕ͂̏ꍇADB͂͂łȂ ݎʕ n%! @ʕ͂̏ꍇAf[^x[Xɓo^邱Ƃł܂BA@& F| k ]@'  n!J% A@&%|X kP ]X n!z%~'% 1--Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&--| k ]p n!z%|' 1 Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&| k   DBo^ n%!(r2 ]  B@ !!r̈ړ  n n%! !*(rݔ !!re! !!r   6 n%! !*(r F% !!re   n%! !*(rkk  6 n%! !,(r o^ԍʕ1] ݎʕ n%! ݎʕ n%!'" " !2(r " n%'  !\(r , n!% !<(rkZKԍ܂͔Fؔԍ(r]] ݓK\ݔ̔ԍ n%! ݓK\ݔ̔ԍ n%!'"y " n!%Giteki " !4(r " n%'4  !^(r , n!% !>(r " n!%Syonine " !6(r "'  !`(r , n!% !@(r----k0k(ԍ] ݖݔ̐ԍ n%!-- ݖݔ̐ԍ n%!'" " !8(r " n%'  !b(r , n!% !B(r k8 ݔ̏uꏊs撬R[h ݖݔ̏uꏊR[h n%!  ݖݔ̏uꏊR[h n%! !D(rk)ComboKind0n܂Ă邽߃}CiX1 ݎw肵Ă n%!!r !H(  ݎw肵Ă n%!!re !H( k J݂̖ړI ݊J݂̖ړI n%!!r !J( kP ݊J݂̖ړIt[ n%!F% !J( kuꏊ% ݖݔ̏uꏊ n%!F ݖݔ̏uꏊ n%! !&(r kpړ͈͐ݬ !F(  ݖݔ̈ړ͈1 n%!!r%KTwȂ KTkC !F( KTk000000 !F( KT֓ !F( KTMz' !F( KTk !F( KTC  !F( KTߋE' !F(  KT\ !F(  KTlA@& !F(  KTB !F(  KT悤 !F(  KTS !F( n ݖݔ̈ړ͈2 n%!!rKTwȂKTkC !F( KTk !F( KT֓ !F( KTMz !F( KTk !F( KTC !F( KTߋE !F(  KT !F(  KTl !F(  KTB !F(  KT !F(  KTS !F( n̑ ݖݔ̈ړ͈1 n%!!r ݖݔ̈ړ͈2 n%!!r ݖݔ̈ړ͈̓t[ n%! !F( ko^̓JݓύX ^pJn ݉^pJn̗\ n%! ݉^pJn̗\ n%! !P(rk8L ݊]o^̗L n%! ݊]o^̗L n%! !R(rkgyы󒆐d ݎgyы󒆐d1 n%!!rKT !T(r !V(rKT -2:351.2MHz`351.38125MHz@6.25KHzԊu30g@5W'351.2MHz`351.38125MHz@6.25KHzԊu30g !T(r5W !V(rS !T(r !V(rn` ݎgyы󒆐d2 n%!!rKT !T!r !T(r !V!r !V(rKT ,2:351.16875MHz`351.19375MHz@6.25KHzԊu5g !T!r*351.16875MHz`351.19375MHz@6.25KHzԊu5g !T(rd@ !T!r,@351.16875MHz`351.19375MHz@6.25KHzԊu5g !T(rk !V!r1W !V(rd !V!r@1W !V(rkSx !T!r !T(r !V!r !V(rn0 ݎgyы󒆐d3 n%!!rKT !T!r !T(r !V!r !V(rKT -2:351.16875MHz`351.38125MHz@6.25KHzԊu35g !T!r+351.16875MHz`351.38125MHz@6.25KHzԊu35g !T(rd !T!r-@351.16875MHz`351.38125MHz@6.25KHzԊu35g !T(rk !V!r1W !V(rd !V!r@1W !V(rkPSH !T!r !T(r !V!r !V(rn  ݔl n%!  ݔl n%! !X(rk B@ B@|x p .!0 .!0 * .!2A@&k8o0  ]@.n]`'  n!J% A@&|k]x n!z%~' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&|(k ] n!z%|' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&|k]  n!%' |Hk@  B@  !(r  !(r !!r  n n%! !*(r !!re !!r  6 n%! !*(r !!re   n%! !*(rk0k(  !(r  6 n%! !,(r ݐiDBo^ n%! ݐiDBo^ n%! !(rk$gggeNmmdd$ !(r: If cp.getvalue(pKagami,"ݔl").Result <> "" ThenM iǗo^.txtMemo.Value = cp.getvalue(pKagami,"ݔl").Result End If B@ B@| x .!0 .!0 * .!2A@&k@o8 (].n] '  n!J% A@&|k]8  6 n%!'  w肳Ă܂BA@&|`kX]P n!z%~' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&|k]h n!z%|' Tf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&| k XMLt@Cw肵܂B] $$$$00$$$00$.xml' !"  n!T%' !XMLt@Cw肳Ă܂BA@&|( k  n!T%   n!T% e A@ d t@Cgp̂悤łBA@&| k XMLt@COutput n!JB@L $|P kH $|0 k( I܂BA@&|  .!0 .!0 * .!2A@&k o    eLXgt@Cw肵܂B].n]$$$$00$$$00$.txt' !"  n!T%' &eLXgt@Cw肳Ă܂BA@&| k  n!T%   n!T% e A@ dP t@Cgp̂悤łBA@&| k !!r].]0 %'   %| k ! !re $|x kp kh I܂BA@&|H @ .!0 .!0 * .!2A@&k o H  !!r]. !H|k].nsystemׂď n!z!\|Hk@ Me._Click  "eLXgt@Cǂݍ݂܂B *LȂ炸f[^`FbNsȂŁA㖳exɂMB *L\Ăꍇ́AۑĂIAxJĂBA@& ! !re H|kk|  .!0 .!0 * .!2A@&ko Wordt@Cی삵܂B *s܂H mF$& |0k(] .n n!!&|ktH[ی삵܂BA@&|  .!0 .!0 * .!2A@&kxop( ` $Wordt@C̕ی܂B *6Wordt@Cׂ͂ďC邱Ƃł܂A *LtB[h폜肷ƃvOɋ@\ȂȂꍇ܂B *8܂Af[^`FbNŏsȂ΂Ȃ܂Bs܂H mF$& |k]h .n n!!*|k n!z!,|ktH[̕ی܂BA@&|p h .!0 .!0 * .!2A@&k0o( >Wordt@Cɂ邷ׂẴtB[h̃bN܂B *2f[^`FbNŏsȂ΂Ȃ܂Bs܂H mF$& |PkH] .n n!!0|k n!z!,|kbN܂BA@&|  .!0 .!0 * .!2A@&kxop  Ǘ҃j[.Hide j[.Show vbModeless ^B@o( B@  6B@oh A@r‚܂o A@r‚܂o A@r‚܂o`( A@r‚܂o8h A@r‚܂o A@r‚܂o? A@r‚܂o?( ?]h .n] ] ] ] ] CΏۂ̃t@Cw肷u (6vƂ̃NCWordf[^w肵ĂB ăN$& |>k>tB^[̐ݒWordt@C(*.doc)$*.doc$ׂẴt@C(*.*)$*.*$'P !" P n!T%V'H H$ $ %'H H|=k= H* $|=k= H n!T%N'RMY_FILENAMEw肷u (vw肵ĂB ăN$& |=k=tB^[̐ݒWordt@C(*.dot)$*.dot$ׂẴt@C(*.*)$*.*$'P !" P n!T%V'L L$ $$'L L|<k< L* $|;k; L n!T%N'J J (u (vł͂܂BA@&|x;kp;CΏۃt@CJ ' RRTVXZ\^`b d( PB@ H$P!8 (łɁu (vƃNĂ悤łBA@& B@ f: H$PB@B|`:kX: CΏۃt@C̕ی H$P!h j @ H$PB@lk9MY_FILENAMEJ ' JRTVXZ\^`b d( PB@ #MY_FILENAMEt@C̕ی L$P!h j @ L$PB@lk9MY_FILENAMEYt L H$P(8MY_FILENAMEی삷 L$P!h n @r jl L$PB@pkp8MY_FILENAMEۑȂŕ‚ f: L$PB@BCΏۃt@Cی삷 H$P!h n @r jl H$PB@pk7 CΏۃt@Cۑĕ‚ t: H$PB@BI܂BA@&|h7 `7 .!0 .!0 * .!2A@&k(7o 77 n!zB@^ HsAttribute VB_Name = "Ǘ҃j@[" Bas0{C7D27751-DE62-435A-8020-4516CE9D2AD7}{86E9FF8B-974B-49694A-6766B6A@D4780} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD' ЃnC p[_ ' Copyright (c) HyperDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit Pgk Sub UForm_Initialize() @@rror GoTo ErrMesAWor d.ActGDocument.CommandBars(cAdmi nMenus).pVisilcLeft@s100C) Top2'Ӂ@ hUŽɂMe.oW.CaT= cV@ERSIONF XMLǍ.EnFȉ̂lƂĈ.V8aluGplNZ)J N& Dim cP As clsPa _#Set= NewLcP.INI.SearchTextBox!$ReadRIf#Get)("", "C%")?"" Then Z&4&&4)d1D67 7gE?+l#+e +_}+Dߦ/:'+.w+nd If#P`aPag@աC}s1@f ^')ya炷(ft&top:MePthodI Multi 1T[pExitg;3e:8<.Numbe@r <> 0M:sg0@hE& vb@CrLf &RD`escriBZE?HSopro^\_Changps@0P m _a OrA+>HW8!U  )' o +` 05sQ js@j i+1snSng=SsgGj9\|j'q"MUBnq IBQ("WV BA.Rece(s,4r")rAL8aM8ۑ܂B5?: avPk a\ " D0A2txtH.A0PHHmH~ JHH^99ubp¸_Ck?*'-3"' ~!D ݂HۂBo璲ׂ5s5֡  Ai5Inte8ger6 i;PdoACount - 1a_6Q3!'p;|(i& *s_ ii*NP ipP==~==x")) = False Then MsgBox "y[W\ۑł@܂$ B"hEx@it Sub"E nd IfcP.INI.Save Me.txtPage.TextsxɏIp jf Er`rMes:;If .Number <> 0$& vbCrLf &Descriptioe7jpPrivatew ‹ݒ_Click() D _CAO{bNX.Show,'s1 &OnKor Go|Toy2wOVo^\.Value_HA`0 Su) gā>v u ̂ꂩ0`FAA@@ G()d"㗝lAGꍀɂ́ABKv͂胩 FDim myShinsei As String9YTrZK= "GLDA:c Cj(&Uy+ootoCoȉ@L`DS_Changer-Yfg. gƋl.Enabled@lD9 rE  ÅI#Agc$("A@^DvNvnAxf[ ^({sȂjqq|)|(s }H", vbYe@sNo, ":w"VBMe.::599&! cPclsPaper8Set `= New DReadg'2$Delete("`%D$#B#? >!YK W} p)Uz z߇ne|Bzņ0Rzc*g1u13 `Getx(pKA0GAMIp,DB`").DropDownF1sCHidT+ `j[ƒ2Mod sP33C!sRAh͊mF___w4_AYAreaC@.Check3m 3b 3Gq`H?h @&Ie`f\e.l<_R  r'e.< /o!p4 s* e6c%Tp$Q&&& &0ɿs ,7!s T /]rrO ?4?4?4?434Q S S/]sEE'up\ MȂ`7o__!Peo`= 11'ucvu_@܂@䜣̃^g/uwĂv̂łB" _ & vbCrLf &@ "Ct@xs B",dOKOnly, "݃^Cg@") = Then iExi t SubEnd IfElseIf cP.GetValue(pKAGAMId ").Drop`Down.1{2q <'uPo^\ƂF3FpHـMsgBox("u\ꍇADBƀeł}}u Jݓ́iKń}Ɲ}Ā]'͂6A͂4Ȃ Result""dCT "UPf[x@XXX$iKI;Dim s As Strings'5Page.CheckC1(sAFa@2&s_ AmyClientIDYaLo%=sINI.ReadCID()0+(̃`F bNȂH:悤;@*ȚB"#AgA;٥cx1 i#CPQƋ].Show vbModelesdK TMe.ȉ`㗝lF#U txt+Nalme&c O)QzCLJ mTruelUC!lF.͎ g4(ttyyCC{'A&ԍs`IallSign=* "_<> `my0B@߇$ad Z S %C(, 'TV?2H_ .!`CountVSaniFromp%,"l'ZKq ͔FWcGitekiNomSyoninOZK\ݔaV / U?""?# cOr &Az"= S "" Then  Ƌo^.txtAreaCode.Value = c P.Get(pKAGAMI, "ݖݔ`̏ucE nd If ' ComboKind0Pn܂Ă邽߃}CiHX1/If w肵= Dr@opDownf2|E.ListI0ndex}3+>2z J݂̖I" /CPurposeCsEG t[!!cQ EŞD$ddress)uC'ړp͈̓FCMXovec0C Select Case% 1d# C 1 'kL2@kC j 3@ k \ea A 4 ֓ 3'5 Mz 4 6 k+ 5 7 C 6 8 ߋE 7 9  8 10Ll _9 1 'B!CR 1$iI12 '+? l1m[1[S1C|}>2>F>>  5!>5?Q 5?OXA 6/?6??-6O?=6_?2>6o?2>6?t= 2 d??.x2=.?2D.y?'̑C@~1 _ A`s߾߾D? ?5?"?" =i'A΂̓ 3'ύX^pJn̗\VU @BeginDatןC L8ԣO J ]C 㘒Term q v# 'gyы󒆐d_q?1o1,sq1Frequencyf""APower@rHq'2:351.2MHz`A38125@6.25KHzԊu30g@5W^o^.txtFrequency.Value = "351.@2MHz`$381254@6.25KHzԊu30g" " ƋPoHwer5WVCase Else>'l)End Select i cP.Getx(pKAGAMI, "ݎgyыd2").DroppDownk^(1 f& "_u# !O2O'2:v1687v1Bz193CIz5bgIf /" ThenK E#$ H`@GM#yIfLK 1IA;@K@ lBJOB^lj߉gg3i kǟYv΋ b}M=(p aO?&xtw"5e <4?> ?/GK+ 剟7?0kl@>Result <> x,lIMemoooba!VHidC&Show4x@it Sub ErrMes:e .Number 0 MsgBox H& vbCrLf &RDescript "" ThenB ReceiptNoQ2G-1DatFormat(Now(), "gggeNmmdd") 'Vyp.getvagami,FlvvMemt#8C=RHideShowExit Sub ErrMes:9@.Numbe rm0LmMsgBox  & vb@CrLf &BDescrqiozE+Priv` XML숐_ck([ OnAor GoTo@(C.CDim@ As clsPaperSet= N,ew sA StPring s@""Page.Check(s) FalseCsCPGWB!AM$j=tmt.od8c|6"wĂ܂BD#mALoE,EID'INI adCIDa=A 4N"f[^̃`FbNsPȂdłBP `?dA6Ag 5A ͣR'pt@C=A@@) W`uFile! hmy'с[& Yearc)LdMonth#@00"DayN".xmlQ J.Save(ThisDocum 5.Path, S@a9NUd"@#dƪ `Test\Lo`&1F2EEFOeO=%Kil~l $@" gp~F4 d"'hOutpuUReadTextc#P pPutŀHer(ZV UFoo>t[IA0BgsfjsҜ8ssssb eLXgss '?? QOcP>ovpov R-B==AQAA()z)GC"ᰖA6x6AAEABs"_Btė1_B, ZB toBA.EYBrB%!B?BB BBp Me.opMethodfTr0̻'T' BT ?D~acTпahqeAT.WriteɢmyU, ?4DAOldMٍ Ϩt`NN? N݄NN'NNNǏNrrNNE?'?'Kc?'{?'xnP%In`o")/lml1En鵀d If PDim cP As clsPaperlSetAl= Newx'systemׂ@~If|.INI.ClearAll = False 0Then(Ex@it SubEn'Me._Click'MsgBox "eLXgt@Cǂݍ݂܂B" _(& vbCrLf & "Ȃ炸f[^`FbNs ŁAexM@4\Ă鏀ꍇ́AA3ۑWHI xJ4gEopOldMethod.ValueTr InputTextFilA /fAPip ErrMes: (@.Number <> 0q fADescriptioEBPrivate @HrPیÍ(")$On or GoTo+C*+C$("̰WordAz)Ȗ& " H",@YesNo, "mF")fvbNoA8W]cP.Form.Prot|ec=s!"d4"L+k@@@ @̢6AesC(A =XBb %I͠1aCMƂ łKxA"+L0B \h@ ƃvOɋ@T\`dd܂XDAnŏ\Ȃ aa> SR2aaUnpbj҅qb F`yѧi-I9(C _j_j/5U/5U0&"rO5 VO5{cVt,p1~h. 61|O+O+1?\?\?\oO+?\J+Lock{B++{ c V+?Ñ$MCG*f |!1H**0RUj[ ҥǗE.Hide 6Show0|Modelesua.1хub J7p::‚1Unload Me'2@` ۔C2OOOJ3OOO54OOOK5OOOK6OOOK7OOOEăNYWW9HsHH!myPGtStringeNameq0Full1K AMLDOTm '@0ΏBb4ߎw2#SE("uMY_FIL ENAMEA߁v̂0"c~ݙ`6 /\'n^I̐ݒ B= " (*.doc) Chr(0)a 2+spĴ*)" & Chr(0)"*."* myFullFileName = cP.4.OpenDlg(ThisDocument.Path, f@ilter)VBA.Repla(ce( _,, "", 1, , vbTextC@ompareQIfc "" Th enrExit SubEnd If >InStr(`?"*<9 <> 0&.(ExtractzjN'MY_FILENAMEw肷\MsgBox("uԈvĂBAhYesNoăN")vbNo&6'tB^[̐ݒB=|"Word@ @C(*.dotkA.8, &MLDOTuB:Dy#EF)k^KkP Pł͂܂@PDrc'C ΏEAJs2 i:=n@6onfirmConversions:=False, ReadOnlyp:= _# AAddToRec PasswZ:=Tem@tek !RetWrites J orma) wdFAutzVisibl@True C%-.Attached g=tłU#悤ł?Ǘ҃j[.Hida0aClose savechange`3wdDoNotS`Cc:SK̕یGProtect@KTypwdAllowAK2Fields, Unp C:=cPASSWORDdH5cBmCc131D3,A+U,611s61a6A=1=11&_tj 4lCS. sT9o o T Y\t+&)?=ĔbCk2i$ dNoG1b|0RD, NZLse@PN, 7:;@7s3y_ۑKȂŕ‚@).HHH&l em)%wS = ~///M/?Uu?nt? o`]Iԗ06f_ ErrMbp.NumberY? H&CrLfQDescripq_9`Q  /)3 ` 0i'UUU 414 /)Q4`  /)y4`  /)4` 0i4%%%0i4&&& /)4)))` 0i5***      !"#$%&'()*+,-./0123456789;A>@BCDELGHIJKLMNO=Q`STUVWXYZ[\]^_Pabcdefghijklmnopqrstvwxyz{|}~ /)15+++`  /)I5VVV /)q5WWW`  55XXX /)5YYY /)5ZZZ`Q  /) 6[[[`I A0I)6\\\I6q6` A0I6    ` A0I6    `  /)6`   717`   /) 8` !  W   W    W    _    _    _    _    _    0K?`:d%tx$ 4x 0t H` )xt`Bd`:d%tx$ 4x 0t H` )xt`B`:d%trU !!Y 1'%Y%-!.aq}a qi sٗ~ $ $iQ$w1YuIAQ + )r] HYIIyH.HI( ir0)/--A-Fx  ))*qFF.D D!E A ; IF[A[Y \\\ AA^YAsуA)1hYy)q Yhhiiqjjaj lI} 9lq-q. C/50Q12?QEit!t uquuv1w 445 # ( KYz&yzqzz{Q{{{ |1|Y|1}}}~q} 4/)9/`Q  8/)/ `I  </)+ `  @/) 0` DA0Ii0]]]H0i0 L/)0`Q  P/)0`  T/)0`  X/)1`  \/))1 `Q `I1q1d0i1 h/)1 l/)1` pI11 t/)12` x0iY2|I1q2--- /)2`  /)2` A0I2`I A0I)3`  /)a3`  /)3x$ 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 4 x xJxL 4 x x2DxL 4 x tlD0/DxcPx x  x5PcPx x  x5PfPx x  x5Px x P xx x P xx x P xx x 8 x2DxL 4 x tlD0/DxcPx x  x5PfPx x  x5PcPx x  x5Px x P xx x P xx x P xx x 8 x`x x 8 xx x 8 xx <x xx (x xcPx Hx  x5Px x x$@ xx l@x+l'''(@ xx l@#D*#8< tt ,l<*FP 2D8<)xt6P(0((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 4 t t*htx 4 t t>h1lt ll0ClWll 1dr>d#htx 4 t xkr2hdt+'''$:TNDD 6D$rtx 4 t t3"ll 1lllt 8t ht$ tt ltl'''$ tt l#h*#d  ,ld*FD 2hd)t6D$,xl0 hdtD$pK xrtx L t D#t0phtx L t $#lhtcd ll0%`kptx L t (#>`1lt7ll*#\`kptx L t (#l`*1l2\`t pdd[rtx 4 t tWll 1\r>\#`tx 4 t xkr2`\tu+''':LN<< 6<rtx 4 t tllt 8t ht+''':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@*#A*Fh /6hH4*hx x  hcX]3x5hBC*hx x  hcX]3x5hCCl D$ 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 x4$ xhH(K8E''(:XENHHF*#xG*Fh^/x6hH(3  P   P   P   4  * 4  |k+''('H:XHNhh 6hH( 4  $  ll''('H  l#x*#  ,l*Fh 2x)6hH((0 xhH(`Kr x9lp+v9x p |%l 8:)pl \%;$<$H pp lHpl'' 'H pp lH#D*#<@ ll ,l@*F, 2D<@)pl6, e(x0 D@<pl, K+ xtx t It$p tt lptl'''0p tt lp#l*#`d hh ,ld*FP 2l`d)th6P0(x0 ld`thP0*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$ xhHKJ$K$t xx ltxl'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4$ 0 phdxlT4KL$M$t xx ltxl'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4@$ 0 phdxlT4`KC xChlp+vNx p |%l 4:lh)plE'':DON44P*#dQ*FT^/d6T4sChlp+vNx p |%l 4:lh)plsChlp+vNx p |%l 4:lh)plsE'':DON44R*#dS*FT^/d6T4q6dp+vTx p l%ld0/dp+'''4:DUNTT 6T4C'vpx L p `#kvp3&''4'TMD@ 6T4!hpx 4 p lhqpl+'''4:D(NTT 6T4!hpx 4 p lhqpl+'''4:D(NTT 6T49lp+v9x p |%l 8:)plD%V$W+Tp p  TfD]3p5TKdp+vXx p l%>dFTlV$W Yl )pl5T*Tp p  TcD]3p5T*Tp p  TcD]3p5T`Kdp+v$x p l%>dFTlV$W Yl )pl5T*Tp p  TcD]3p5TKdp+vZx p l%>dFTlV$W Yl )pl5TKdp+v$x p l%>dFTlV$W Yl )pl5T6dp+vTx p l%ld=/dp;.dp+vTx p l%>d1p*lFDNTTpV$W Yp p5Td+vlx >d1*lFDNTTpV$W Yp p5TDvpx @ p 4\kvDTlV$W Yl )pl5T6dp+v]x p l%ld=/dpQ.dp+v]x p l%>d1p,dlpx @ p \\ld^0/dp*lFDNTTpV$W Yp p5Td+vlx >d1*lFDNTTpV$W Yp p5TDvpx @ p 4\kvDTlV$W Yl )pl5TO,dlpx @ p \\ld_0/dpO*lFDNTTpV$W Yp p5TlC*lFDNTTpV$W Yp p5TDvpx @ p 4\kvDTlV$W Yl )pl5T6dp+v`x p l%ld=/dpj .dp+v`x p l%>d1p*lFDNTTpV$W Yp p5Td+vlx >d1*lFDNTTpV$W Yp p5TDvpx @ p 4\kvDTlV$W Yl )pl5T6dp+vax p l%ld=/dp Kdp+vax p l%>dFTlV$W $Yl )pl5TChlp+vNx p |%l 4:lh)plX #(TpV$W XYp bp5T Chlp+vNx p |%l 4:lh)pl #(TpV$W XYp bp5TChlp+vcx p |%l 4:lh)pl& #(TpV$W xYp bp5T6dp+vdx p l%ld=/dp #(TpV$W xYp bp5T6dp+vex p l%ld=/dp Kdp+vex p l%>dFTlV$W Yl )pl5T#(TpV$W HYp bp5Thlp+vfx p |%l 4:lhq)pllw l #(TpV$W HYp bp5Tl #(TpV$W HYp bp5Tl #(TpV$W HYp bp5TlG #(TpV$W HYp bp5Tl{ #(TpV$W HYp bp5Tl #(TpV$W HYp bp5Tl #(TpV$W HYp bp5Tl #(TpV$W HYp bp5Tl K#(T pV$W HYp bp5Tl #(T pV$W HYp bp5Tl #(T pV$W HYp bp5Tl #(T pV$W HYp bp5Thlp+vgx p |%l 4:lhq)pll4lh#(T pV$W HYp bp5Tl#(TpV$W HYp bp5Tl#(TpV$W HYp bp5Tl#(TpV$W HYp bp5Tl8#(TpV$W HYp bp5Tll#(TpV$W HYp bp5Tl#(TpV$W HYp bp5Tl #(TpV$W HYp bp5Tl #(TpV$W HYp bp5Tl <#(TpV$W HYp bp5Tl p#(TpV$W HYp bp5Tl #(TpV$W HYp bp5Thlp+vfx p |%l 4:lh+gx  |% 4:ld+hx  l%ld=/d) plv#(TpV$W HYp bp5T6dp+vix p l%ld=/dpKdp+vix p l%>dFTlV$W dYl )pl5T6dp+vjx p l%ld=/dp|Kdp+vjx p l%>dFTlV$W lYl )pl5Thlp+vkx p |%l 4:lhq)pll):DNTTpV$W ,Yp p5T):DNTTpV$W 4Yp p5Tl):DlNTTpV$W ,Yp p5T):DmNTTpV$W 4Yp p5T):DNTTpV$W ,Yp p5T):DNTTpV$W 4Yp p5Thlp+vnx p |%l 4:lhq)pllKTpV$W ,Yp T:D4lV$W ,Yl )pl6T4KTpV$W 4Yp T:D4lV$W 4Yl )pl6T4l /TpV$W ,Yp T:D]3p5T$):DoNTTpV$W ,Yp p5TqKTpV$W ,Yp T:Dp4lV$W ,Yl )pl6T4/TpV$W 4Yp T:D]3p5T):DqNTTpV$W 4Yp p5TKTpV$W 4Yp T:Dr4lV$W 4Yl )pl6T4KTpV$W ,Yp T:D4lV$W ,Yl )pl6T4KTpV$W 4Yp T:D4lV$W 4Yl )pl6T4hlp+vsx p |%l 4:lhq)pllKTpV$W ,Yp T:D4lV$W ,Yl )pl6T4KTpV$W 4Yp T:D4lV$W 4Yl )pl6T4l/TpV$W ,Yp T:D]3p5T):DtNTTpV$W ,Yp p5TTKTpV$W ,Yp T:Du4lV$W ,Yl )pl6T4/TpV$W 4Yp T:D]3p5T):DqNTTpV$W 4Yp p5TKTpV$W 4Yp T:Dr4lV$W 4Yl )pl6T4KTpV$W ,Yp T:D4lV$W ,Yl )pl6T4KTpV$W 4Yp T:D4lV$W 4Yl )pl6T46dp+vvx p l%ld=/dpKdp+vvx p l%>dFTlV$W <Yl )pl5TV$WV$W$h pp lhpl'''4h pp lh#d*# ll ,l*FT 2d)pl6T4@|(x< dplT4WTK xCt'ntpx L p `#knph&'''<tM\@ 6<!px 4 p lqpl+''':\(N<< 6<!px 4 p lqpl&+''':\(N<< 6<$lpx d p \w>1p l0\\%x$y*lF\N<<px$y zp p5<%li<px$y zp p5<+<p p  F<x$y z )p5<X*<p p  F<x$y z )p5<V*<p p  F<x$y z )p5<%li<px$y zp p5<Kp+n$x p l%>F<x$y z )p5<6p+n{x p l%l=/pKKp+n{x p l%>F<x$y z )p5<O< ):\|N< .px$y zp p6<x$yx$y$ pp lpOl''' pp l#*#  ,l*F< 2)p6<T0xt0 p<lK xCt'ntpx L p `#knph&'''<tM\@ 6<.p+n$x p l%>1p l0*'''&'*F< 6<!px 4 p lqpl1+''':\(N<< 6<!px 4 p lqpl+''':\(N<< 6< ) * )t +lF\< )< ,:L-N .:,-NddtT .TD: /4`16<tdTD480$1 40llpx | p 2>01/p l0+''':\3N<< 6<*lpx | p (2lpb*lpx | p (2lp2M\@ 4b+''':\5N<< 6<npx L p T#pl 6l 7+''':\8N<< 6<$ pp lpgl''' pp l#*#(0 ,, ,l0*F< 2(0)p,6<Tl4xtX0(p,<tdTD4DK xD )D4 * ) +d )dT ,T:$-N4 .:-N .:}t`1t6dD4Tt8p0$1 4hltlplx | l $2>h1t/pl lt09+'4'D'T:$~Ndd 6dTD4*Tltlx | l (2lTlh*Tltlx | l (2lTltM$@ 4+'4'D'T:$5Ndd 6dTD4*dl Hl  dc$]3l5d@ PpP P>p1LJlLltP XkJ;*dl Ll  dc$]3l5dlt }+'4'D'T:$8Ndd 6dTD4$T ll lTl?l'4'D'TT ll lT#p*#@h DD ,lh*Fd 2p@h)lD6dTD4<D4xPtLTph@lDdTD4tK*hx Hx  hcX]3x5h DBD TkBS <$Bx< 4 x kBxH'''H*#8*#4*#0*Fh 28406hH*hx Lx  hcX]3x5h  $ xx lxl'''H xx l#8*#04  ,l4*Fh 2804)x6hH,<D0 840xhHLKE''(:XNHH*#xG*Fh^/x6hH(O )+ X  k+''('H:XNhh 6hH($  lFl''('H  l#x*#  ,l*Fh 2x)6hH(L(0 xhH(K t'':DN44*#x*#t*#p*#l*#h*#dG*FT^2 xtplhd6T4~ $ X  k$ 4  k+'''4:DNTT 6T4$  ll'''4  l#x*#pt  ,lt*FT 2xpt)6T4(< xtplhdT4|KP''$:TNDD*#x*#tG*Fd^2xt6dD$Z $ X  $k$ 4  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$ x K xE'':@N00*#`*FP^/`6P0X:@P P0:  : : p`1t6P0p8`0$1 4hltl`lx | l 2>h1l/`l9P P`ll 1l/`5P ll0jll$`lllx | l ,2>`1plE'':@N00*#`*FP^/`6P0:@P P0:  : : p`1t6P0p8`0$1 4hltl`lx | l 2>h1d/`l9P P`ld 1d/`5P ld0 ld.$`ldlx | l ,2>`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:@8NPP 6P0$` ll l`l} l'''0` ll l`#`*#\h dd ,lh*FP 2`\h)ld6P0  <$tdhpxl\`h\ldP0ph 8 <   \lt4@PTLX W$A `t$ `x$ `|$  `$I `$ `$ `$  `$I `$ `$ `$  `$I `$ `$ `$  `$I `$ `$ `$  `$I `$ `$ `$ `nrU~| DEmodMenu#IF__SRP_45__SRP_44-modCheckKagami1 R R !6%(( T !6%((|` X .!0 .!0 * .!2A@&k o ].n n! ! 'b n!!z|k0[NubNJꂽƂɊǗ҃j[J  T !6%(( R !6%((  B@|(d 'b4Ǘ҃j[𗘗pɂ́AǗҌKvłBA@& R !6%(( T !6%((  ^B@ |k| x .!0 .!0 * .!2A@&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     !#$%&'()*+,-/012356789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\^_`abcdefghijklmnopqrstuvwxyz{|}~ƂɊǗ҃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?-}3-f]--C7ߟߟߟߟߟabߟߟߟߟmeߟ֨ߟߟHQߟ }" ṕAKvłBe4\cOc=ggs_T[_T_ctit_T_Tr_TQ_T=_TA|=A.* @ @h @ q!} I}Y 1'%Y%-!.  )}Q$ #$ $i@K x$rtx t krtz$rtx dt 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 X8$ 4 HD@XTP0 lK x$rtx t krtz$rtx dt 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(l(x4 tlX8(a  6rU E$E`$E`$E`nrU 3$3`$3`$3`$3`-nA4 # kْExMEP@"p6 L""LLLL" "+?(?@Xhpx  $l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H]@.n n! ! 6'b n!!z|k0[NubNJꂽƂɊǗ҃j[J T !6%(( R !6%((  B@|hd`'b R !6%(( T !6%((  ^B@z|k|  .!0 .!0 * .!2A@&ko`   ^B@8 J RYP$*\Rffff*2x50cc4c24$*\Rffff*3<50cc595c*\R0*#19$*\Rffff*0^50cc4c84*\R0*#f*\R0*#13*\R0*#2*\R0*#14*\R0*#1*\R0*#e*\R1*#10e*\R1*#10b$*\Rffff*0V50cc4c84$*\Rffff*0N50cc4c84$*\Rffff*0_50cc4c84;;  8 "X ( "&&8$`$"((@ h   &&$0X$x"(( 8 X x (d(SxME<"p> L"LL" "<Nh HZP HV H6 HFH H Jh H B H ꐂ@(Hf0 HjX HlH Hnh Hr H0 Hv Hꐄ H|P H~ p HꐀH H ꐄ  H"ꐆpH#@H%ꐌpH'ꐆ0H(ꐊH*ꐎH,\ҁiƋlj㗝lA+`k ; nt%`"p+(`k  nt%`"p+`k  nt%`"p+`Pk }} nt%`"pꐆ@H4h HR( H:x Hd0 H> H ^ H hh H0 Hp Ht HxX Hz0 H Hꐂ H!ꐈH H$ꐊpXH&ꐈH)ꐌH+ H(X Xhp0H(0h8@@Pxp` %ݖ@lčl̕ݐ\җX֔ԍO3ݐ\җX֔ԍ4ݐ\ҏZtKiݐ\ҏZݐ\ҖOtKiݐ\ҖOݐ\ґ\ҖEݐ\ґ\ҐtKiݐ\ґ\ҖtKiݐ\ґ\Ґݐ\ґ\ҖEݐ\ғdbԍtݑ㗝lX֔ԍO3Җtݑ㗝lX֔ԍ4Ґݑ㗝lZtKiݑ㗝lZݑ㗝lOtKiݑ㗝lOݑ㗝l\ҖEݑ㗝l\ҐtKiݑ㗝l\ҖtKiݑ㗝l\Ґݑ㗝l\ҖEݑ㗝ldbԍt㗝lݕ㗝lX֔ԍO3ݕ㗝lX֔ԍ4lݕ㗝lZtKiݕ㗝lZݕ㗝lOtKiݕ㗝lOݕ㗝l\ҖEiݕ㗝l\ҐtKiݕ㗝l\ҖtKiݕ㗝l\Ґݕ㗝l\Җݕ㗝ldbԍݔlݔlSҖiݔlSҖݔldbԍҖx0`h`z @l @j b4*&@d @` @H\ @PX @xH @8 @( @ @ @ NRZ@  @ V:6dFJd@ 8>B^.^.@ 8p8 P`z  `8@l @j bf*&@d @` @P @0@ @H0 @` @8 @ hjj@ @ @ xlnprtvt@ @ x.@ p(@H`z  @l @`j b*&@d @` @P @@ @0 @ @ @ X~@ @x @ @ @ 0. @ h@px`z  @Hl @j bz*&@(d @`` @XP @@ @0 @ @ @ |~@ @ @ @ @ 0.@ -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 Y JZ`Z [ @[ X[ Lh[ L[ L\ (X\ (\ D\\ (^ 0^ P^ h^ ^ ^6^jO^ 8_@_H_.P_-p_(_#_ O_X` ``h`p`  &x` `6`lO` HaPaXa.`a-a(a a6a lOahb pbxb .b -b (bbPb O8cc ccc c6drO d ddd.d-d(d&.e O8ee eee $e Tfhf g @g Xg Vhg Ng Vh @hhh $hi i i @ij $j j k (k8k@k Hk $Pkl`kk k k ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp"ƋlA㗝lA㗝l̃`FbN]$\ҁiƋlj]$ݖ@lčl̕@]$ݐ\җX֔ԍO3]$ݐ\җX֔ԍ4h%]$ݐ\ҏZtKi( ]$ݐ\ҏZPb]$ݐ\ҖOtKi6%]$ݐ\ҖOx]$ݐ\ґ\ҖE ]$ݐ\ґ\ҐtKi]$ݐ\ґ\ҖtKi]$ݐ\ґ\Ґ]$ݐ\ґ\Җ]$ݐ\ғdbԍ]$㗝l]$ݑ㗝lX֔ԍO3@]$ݑ㗝lX֔ԍ40T]$ݑ㗝lZtKihKT]$ݑ㗝lZX( ]$ݑ㗝lOtKi( ]$ݑ㗝lO ]$ݑ㗝l\ҖE ]$ݑ㗝l\ҐtKi]$ݑ㗝l\ҖtKi]$ݑ㗝l\Ґ]$ݑ㗝l\Җ0]$ݑ㗝ldbԍ]$㗝lX]$ݕ㗝lX֔ԍO3]$ݕ㗝lX֔ԍK4]$ݕ㗝lZtKi]$ݕ㗝lZ ]$ݕ㗝lOtKi]$ݕ㗝lOH]$ݕ㗝l\ҖE]$ݕ㗝l\ҐtKi ]$ݕ㗝l\ҖtKip8]$ݕ㗝l\ҐH]$ݕ㗝l\Җ]$ݕ㗝ldbԍp]$A?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.n] n! ! 'bd'bk>--------------------------------------------------------------"݃y[W\҂̏mF,@lčl̕ʁ@dq\ł͎ŕK{  4 n%!!r ,̖@lEćEl̕ʂw肳Ă܂B *&CĂxsĂB  ̖@lEćEl̕$& z8k0k(1\җX֔ԍO3@K{ł͂Ȃ͂Ȃ  N n%! %̗X֔ԍO3͂Ă܂B *s܂H   ̗X֔ԍ$& zPkHd@  N n%!'" "  n%'" "  N n%( "$ -̗X֔ԍO3ɐȊO͂Ă܂B *s܂H   ̗X֔ԍ$& zHk@k8 " % +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H   ̗X֔ԍ$& zkk1\җX֔ԍ4@K{ł͂Ȃ͂Ȃ  R n%! %̗X֔ԍ4͂Ă܂B *s܂H   ̗X֔ԍ$& zkd  R n%!'" "  n%'" "  R n%( " % -̗X֔ԍ4ɐȊO͂Ă܂B *s܂H   ̗X֔ԍ$& zkk  R n%! +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H   ̗X֔ԍ$&  zkkkk:\ҏZtKi@K{iȃ\tgł͎ŕK{j  Z n%! $̏ZtKi͂Ă܂B *&CĂxsĂB  ̏ZtKi$&  zkd  Z n%!'"# "  n%'"> "  Z n%( kP\ҏZ@K{  V n%! ̏Z͂Ă܂B *&CĂxsĂB  ̏Z$& %zkdx  V n%!'": "  n%'" "  V n%(0' b " n!%' X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B *&CĂxsĂB  ̎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{  : n%! *̐\ҖOtKi͂Ă܂B *&CĂxsĂB  ̖OtKi$& z k d  : n%!'" "  n%'". "  : n%(  " %2  .̖OtKi50ȓœ͂ĂB *&CĂxsĂB  ̖OtKi$& zkkk\ҖO@K{  6 n%! "̐\ҖO͂Ă܂B *&CĂxsĂB  ̖O$& zkd  6 n%!'"Xy[X͍폜Ȃh1 "  n%'" "  6 n%( " %2  &̖O50ȓœ͂ĂB *&CĂxsĂB  ̖O$& zkkk\ґ\ҖE@K{ł͂Ȃ  d n%!  d n%!'" "  n%'" "  d n%(4k\ґ\ҐtKi@K{84  F n%! *̑\҂̐tKi͂Ă܂B *&CĂxsĂB  ̑\҂̐tKi$& zkd  F n%!'"& "  n%'" "  F n%(6L\ґ\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  J n%! *̑\҂̖tKi͂Ă܂B *s܂H  ̑\҂̖tKi$&  zhk`dX  J n%!'"(7 "  n%'" "  J n%(  F n%!@  J n%! %2  4̑\ҐtKi50ȓœ͂ĂB *&CĂxsĂB  ̑\ҐtKi$& zkkkk\ґ\Ґ@K{h9  > n%! "̑\҂̐͂Ă܂B *&CĂxsĂB   ̑\҂̐$& zkd  > n%!'"" "  n%'": "  > n%(D\ґ\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  B n%! "̑\҂̖͂Ă܂B *s܂H   ̑\҂̖$& zkd  B n%!'" "  n%'" "  B n%(  > n%!@  B n%! %2  ,̑\Ґ50ȓœ͂ĂB *&CĂxsĂB   ̑\Ґ$& z@k8k0k(k ,\ғdbԍ@K{ł͂Ȃ͂Ȃ  ^ n%!  ̓dbԍ͂Ă܂B *s܂H  dbԍ$& zPkHd@  ^ n%!'" "  n%'" "  ^ n%( "- % % &̓dbԍœ͂Ă܂B *s܂H   ̓dbԍ$& z8k0k(k 'z  .!0 .!0 * .!2A@&ki '].n] n! ! 'bdh'bkX>--------------------------------------------------------------"݃y[W㗝l̏mF1㗝lX֔ԍO3@K{ł͂Ȃ͂Ȃ  f n%! %̗X֔ԍO3͂Ă܂B *s܂H   ̗X֔ԍ$& zkd  f n%!'" "  n%'" "  f n%( " % (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ   ̗X֔ԍ$& zkk " % +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H   ̗X֔ԍ$& z@k8k03㗝lX֔ԍ4@@K{ł͂Ȃ͂Ȃ  h n%! %̗X֔ԍ4͂Ă܂B *s܂H   ̗X֔ԍ$& zPkHd@  h n%!'" "  n%'" "  h n%( " % (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ   ̗X֔ԍ$& z0k(k  " % +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H   ̗X֔ԍ$& zkxkpkhk`F㗝lZtKi@K{iȃ\tgł͕K{ł͂ȂƋlƓj  j n%! $̏ZtKi͂Ă܂B *$CĂxsĂ  ̏ZtKi$& zXkPdH  j n%!'" "  n%'" "  j n%(k㗝lZ@K{   n%! ̏Z͂Ă܂B *$CĂxsĂ  ̏Z$& z kd   n%!'" "  n%'" "   n%(㗝ls撬R[h b " n!% X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B *&CĂxsĂB  ̎s撬R[h$& zkkkxkp㗝lOtKi@K{  l n%! $̖OtKi͂Ă܂B *&CĂxsĂB  ̖OtKi$& zkd  l n%!'"Xy[X͍폜Ȃ "  n%'" "  l n%( " %2  .̖OtKi50ȓœ͂ĂB *&CĂxsĂB  ̖OtKi$& z@k8k0k(㗝lO@K{  n n%! ̖O͂Ă܂B *&CĂxsĂB  ̖O$& z`kXdP  n n%!'"Xy[X͍폜Ȃ "  n%'" "  n n%( " %2  &̖O50ȓœ͂ĂB *&CĂxsĂB  ̖O$& z k k k 㗝l\ҖE@K{ł͂Ȃ  p n%!  p n%!'" "  n%'" "  p n%( " %  ,̑\ҖE15ȓœ͂ĂB *&CĂxsĂB   ̑\ҖE$& z k k k 㗝l\҃tKi@K{  r n%! ,\҂̎tKi͂Ă܂B *&CĂxsĂB  \҂̎tKi$& z k d  r n%!'" "  n%'" "  r n%(L㗝l\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  t n%! ,\҂̎tKi͂Ă܂B *s܂H  \҂̎tKi$& z k d  t n%!'" "  n%'" "  t n%(  r n%!@  t n%! %2  4̑\ҐtKi50ȓœ͂ĂB *&CĂxsĂB  ̑\ҐtKi$& zkkkk㗝l\ҁ@K{   n%! $\҂̎͂Ă܂B *&CĂxsĂB  \҂̎$& zkd   n%!'" "  n%'"D㗝l\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ "   n%(  v n%! $\҂̎͂Ă܂B *s܂H  \҂̎$& zPkHd@  v n%!'" "  n%'" "  v n%(   n%!@  v n%! %2  ,̑\Ґ50ȓœ͂ĂB *&CĂxsĂB   ̑\Ґ$& zkkkk,㗝ldbԍ@K{ł͂Ȃ͂Ȃ  x n%!  ̓dbԍ͂Ă܂B *s܂H   ̓dbԍ$& zkd  x n%!'" "  n%'" "  x n%( "- % % &̓dbԍœ͂Ă܂B *s܂H   ̓dbԍ$& zkkk'z  .!0 .!0 * .!2A@&kxip( `']h.n] n! ! 'bd'bk>--------------------------------------------------------------$݃y[W畜㗝l̏mF1lX֔ԍO3@K{ł͂Ȃ͂Ȃ  z n%! %̗X֔ԍO3͂Ă܂B *s܂H   ̗X֔ԍ$& z?k?d?  z n%!'" "  n%'" "  z n%( " % (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ   ̗X֔ԍ$& z>k>k> " % +̗X֔ԍ3-4̌`ɂȂĂ܂B *$CĂxsĂ   ̗X֔ԍ$& z=k=k=㗝lX֔ԍ4  | n%! %̗X֔ԍ4͂Ă܂B *s܂H   ̗X֔ԍ$& z<k<d<  | n%!'" "  n%'" "  | n%( " % (̗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  ~ n%! $̏ZtKi͂Ă܂B *$CĂxsĂ  ̏ZtKi$& z9k9d9  ~ n%!'" "  n%'" "  ~ n%(kp9㗝lZ@K{   n%! ̏Z͂Ă܂B *&CĂxsĂB  ̏Z$& z8k8d8   n%!'" "  n%'" "   n%(㗝ls撬R[h b " n!% X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B *&CĂxsĂB  ̎s撬R[h$& z7k7k7k7k6㗝lOtKi@K{   n%! $̖OtKi͂Ă܂B *&CĂxsĂB  ̖OtKi$& z6k6d6   n%!'"Xy[X͍폜Ȃ "  n%'" "   n%( " %2  .̖OtKi50ȓœ͂ĂB *&CĂxsĂB  ̖OtKi$& z4k4k4k4㗝lO@K{   n%! ̖O͂Ă܂B *&CĂxsĂB  ̖O$& z3k3d3   n%!'"Xy[X͍폜Ȃ "  n%'" "   n%( " %2  &̖O50ȓœ͂ĂB *&CĂxsĂB  ̖O$& z2k2k2k2 㗝l\ҖE@K{ł͂Ȃ   n%!   n%!'" "  n%'" "   n%( " %  ,̑\ҖE15ȓœ͂ĂB *&CĂxsĂB   ̑\ҖE$& z01k(1k 1k1㗝l\҃tKi@K{   n%! ,\҂̎tKi͂Ă܂B *&CĂxsĂB  \҂̎tKi$& z 0k0d0   n%!'" "  n%'" "   n%(N㗝l\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ   n%! ,\҂̎tKi͂Ă܂B *s܂H  \҂̎tKi$& z.k.d.   n%!'" "  n%'" "   n%(   n%!@   n%! %2  4̑\ҐtKi50ȓœ͂ĂB *&CĂxsĂB  ̑\ҐtKi$& z0-k(-k -k-k-㗝l\Ґ@K{   n%!  ̑\Ґ͂Ă܂B *&CĂxsĂB   ̑\Ґ$& z8,k0,d(,   n%!'" "  n%'" "   n%(F㗝l\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ   n%!  ̑\Җ͂Ă܂B *s܂H   ̑\Җ$& z*k*d*   n%!'" "  n%'" "   n%(   n%!@   n%! %2  ,̑\Ґ50ȓœ͂ĂB *&CĂxsĂB   ̑\Ґ$& zx)kp)kh)k`)kX).㗝ldbԍ@K{ł͂Ȃ͂Ȃ   n%!  ̓dbԍ͂Ă܂B *s܂H   ̓dbԍ$& z(kx(dp(   n%!'" "  n%'" "   n%( "- % % &̓dbԍœ͂Ă܂B *s܂H   ̓dbԍ$& zh'k`'kX'kP''z@' 8' .!0 .!0 * .!2A@&k'i& &'].n] n! ! 'bd&'bk&>--------------------------------------------------------------&݃y[WAӔC҂̏mF '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ҏ   n%! ̏͂Ă܂B *s܂H  ̏$& z k d   n%!'" "  n%'" "   n%( " %  *̏͑Sp20܂ł͂ł܂B *&CĂxsĂB  ̏$& zkkktourokuł͕K{ł͂Ȃ̂ŒAӔCҖO   n%! ̖O͂Ă܂B *s܂H  ̖O$& zkd   n%!'" "  n%'" "   n%(AӔCҖO   n%! ̖O͂Ă܂B *s܂H  ̖O$& zkd   n%!'" "  n%'" "   n%(k   n%!@   n%! %2  &̐50ȓœ͂ĂB *&CĂxsĂB  ̖O$& z0k(k kAӔCғdbԍ   n%!  ̓dbԍ͂Ă܂B *s܂H   ̓dbԍ$& z`kXdP   n%!'" "  n%'" "   n%( "- % % &̓dbԍœ͂Ă܂B *&CĂxsĂB   ̓dbԍ$& z0k(k k '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 .!0 * .!2A@&kxiph#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ӔVCݼr0'O~W/_ R Hݔl ϓaВSPodWMc"G/?'_ї ዃAh|X_S]Option ExpAitVFuncClient()Bool(eanOrror GoTo ErrMesqx False  Dim cPclsPa`sSeXPNew !mycIf.fig`.ReadpTrue The q1myLocar = 3E N End If <'-v- '݃y[WX\҂̏@mF@lčl̕ʁ @dq\͎ŕK{dIf cP.GetValue(pKAGAMI, ci V).DropDown.6 = 1 ThenSWMsg Box(cC & "IEEw肳Ă܂0B" _M(& @vbCrLf$ C xs *&!,OK0OnlyhC")acvbOKd=Exit FunctiorEnd \IfS'8X֔ԍO3@Ȁu"J).Result0""#b&!i`B[܂@H"AZYpesNo ZWNbo4WlseGAcmyString;߮ :JSanitizeText(, pNarrow, TrueI)t"0@Not IsN@umericF)'1mɐ@ȊON=Pm,m={E=A iB(jVBA.Lenh"<> 23#Cq-4̌``p:"`pbB"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 Th en/\MsgB0ox(c}5"50ȓœ͂ĂB" ^`vbCrLf,Cxs %, vbOKOnlyyK")dA 7A Exit Functio@End |IfFC ''L@K{σV'"" 3i̐@dd܂d&UbI`^SlseKj@uN5Widc_>:jDcDg 7Ȃꍇ bȂĂ!Iɂm ?JHJ.|K<K `Kz܂H"AzYesNo2z̖HNo4yxIAEJJ!JE''/O _KѼ8E8ې Ͽ喆 q`If5f7kfMoMJ)f> .+8SDd@bԍDAA:bC#!K}%gf M̥AgAPjA~oA@o@7Fsk/@Narrow?eOOGNotIsNumeric(@ReplaceX"-X"")>)_V@u𐔎B@??`_Es?A X6CheckCliena!  ErrMes:S @P.ber <> -S3 HQDescripW  Pub(lic& Ag () As B oolea Onor GoTo`  gЕFaFrDimclsPape"rSetq= New !V0CcGConfigP+ad0A|'myLoca!3m;H '-'c7y[Wc㗝lm FX!YO3YPYYwY_GYYkZ ZZ:::o:34r?ZHݑlXԍO3).Result myString = cP.SanitizeText(4, pNarrow, True )zGetValue(pKAGAMI, cwgKIf Not VBA.IsNumeric) Then,0MsgBox(c & "}ɐȊO͂Ă܂B" _&(& vbCrLf$Cxs '",OKOnLly{B")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 pThen'+MsgBox(ce@ & " k50ȓœ̀ĂB" _)+& vbCrLf'Cxs #,OKOnly|F")yvbOKe;Exit Functio uEnd IfU'>@xK{JciHg"&" *\WĂ܂WVAyTSNG_E@iJLJ?Wid?mm" O mllylB"lkk  Cn;k㕀\ҖEkł'lG&4<> mQo R UNc@i$q15`QO15?Ϥ;ߐ?lÐGPP$PPE?xC ?y(/`v̎g_`_`@cvyz?od`_a _az8Cf8z9&Ojm7 N% PNꍇА肻̂űP# RUFk~Q?)<)?)?)" & <"@܂ HgYesNoS0'NoL/(gAE(\((җ e(//)/)5>b4c??8"@"ooO A ku9 cTTTlg T ,:U=3*JIon//ҐD0Dm/D/D ~yEOuC?@@ If ElsehmyString = cP.GetValue(pKAGAMI, cݑ㗝l\).ResultSanitizeText(, pWide, Tru )F' g@K{ȂȂĂ%ɂ#!N/W#If $"" T8hen$&Ms@gBox(cv & "̎͂܂`B" _$&& vbCrLf"s܂ H", YesNo4"))0vbNo*Exit Functio1End AR%bO:A%"/K%rVBA.Len(eSs"@"r/)) > 50qҜ y N50ȓ*ŢO`O@otO)OCOt tꐓxbRĂG ROKOnly SROK!XS?SqIXe#<䐓d@bԍ s𢏪C`,6 5EA`H/% .*)%##+gNarrow:44Not IsNumeric(ReplHace"-@""))Y~=6r >`_r$F6 CheckAgxent0Q ErrMes^:SP.ber <> Nsu HIQDescripl 0 n@Publico  Sub () As BooleBaq Onqor GoTo Fa&2Dimcls Paper#Setq= New !0@Sc .Config0ad (myLoca3H 3'-Dcy[$WAdsm$FXYO3OZ0OZ@WzH?@Ŝ08"/[4tߵ!;9 6/OON&ϛ[63#/\eUZ Ю  BZȊO?29R֓ ߓ t`)!Q0AnX3ml1P;-4̌`Ўq8 C3t4 k'M2Z(o-o-e-I P*m "̗Xԍ4͂Ă܂B" _ & vbCrLf & "s\H",4YesNo, c㗝lL") =HNo Then\Exit Functio End If2Else @myStringbcP.GetValue(pK AGAMI0 ).@Result(SanitizeText(6, pNarrow, True) &Ig6(If Not VBA.IsNumericL)MsgBox(hɐȊONԄCɅC\xŠĂBOKOnlyOK2?EQLeBnHP<> 4Q3-̌`ɂȂ^ׁ'RR+Pr- e#'nZtKi@K{iȃ\gł͡@&ƋlƓ꜁j 5il E|i"": b ߟ7aadR8`3!((1A դKatakana:ONH0GFF`T?Fv# @KucuKǟ"{uWidt#t_"} P.Is撬R[h!myLoca }`@ Are@aCode.InserwnG!1GAA As{`ŎnsdA ɓo^w̢T5qgk?|4|/(I (oL:)=#OhP%%.!?ef OA A o *Z=?B 50CC?">"50!Гłڵo _!<港<<#R!F_#̸$:{%%O9JO9O90 O9O9O9b{B9?88% 2AMI, cݕlO).Result 'Xy[X͍폜ȂxmyString = cP.Sanitize Text(4, pWide, Fals Tru )G 50 Then'ڀMsg 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%%%+/&/%/&&& que(pKAGAMI, cݕl\Җ).Result = myString  If VBA.Len(cP.@GetVal_ 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҂̏mF 'BZd zt(?YQ%(cWcuQYY&a :ss^ss |5eF%='ߎU{Ǐ[`[Wid [[`[[Ov's撬躃R0&h8 p02v p` Are@aCode.InserwiQ$4?%9%As{Ŏn0񈩁A; ɓo^ҋڂj ))): *ux*K+N dE"CsBB BCB`yb囗 D{`"^da77ҏG@ p@Aj?װK*UՁ2 ͑Sp2B50ϩł6rH66ԟ5= A!HC'tourokuqEѐFT7 O>c6:Gx= S% 6`6B" _ & vbCrLf & "s܂H",hYesNo, cACP̖O") =DNo Then Exit Functio4End If*Else4myStringRcP.GetValue(pK AGAMI).ResultDSanitize Text(_, pWide, Tru)#-@Y/M"'U Idf #1q1""%MsgBox(і͂ĂvAAV@M\oIsVBA.L8en(" @"-*) > L50?ML50PbN Nt`O)N(C|x2ĂOKOnlyOKpa_Q棪T#J{dbԍ@8?.| {{a@) ??*y,E%#-K zNarrow??^ %g6Not yIsNum eric(Re place("-`""))mmm Z 66P;6H!/7' /7d5/7 '87[AhX78108p"[8֖ 1?v88ﳗ{4ϗc͗/=99S:??? : @InЦ(1, a, "@Compare᭕pA_!v\!@ ߗ! }(!8!O*"ang.=  B=Ɂu.visIhjd`OOL!8N Check'municator@+e< ErrMes^:QQ.pfber <>V1K H(HQDescripw 0 7 __SRP_339"G__SRP_3202Wc{t{v2MNy__SRP_39,H@ #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~| 23| q!} +F iYQ$9 Y!EytYs  y I AI a a  QY 9Q i y  ) ! aYu!)!$ $ i !" ay""#)#Yy$ $)%$ %i%IY&%iI'' (y(()AY)y&&a' ' 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+jkt l lld0/dlO'' l*F@l*#d *#`*FP^ 2d`6P@ :.dl+jkt l l>d1pl-d+++jYlpt >d1p(lpl+jkt l plpM0@ O'' l*F@lG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5PBO'' l*F@l*#d *#`H*FP^ 2d`6P@ @6dl+jmt l lld0/dlO'' l*F@l*#d *#`*FP^ 2d`6P@ 8.dl+jmt l l>d1pl-d+++jYlpt >d1p(lpl+jmt l plpM0@ O'' l*F@lG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5P6O'' l*F@l*#d *#`H*FP^ 2d`6P@ 46dl+jnt l lld0/dlO'' l*F@l*#d *#`H*FP^ 2d`6P@ N.dl+jnt l l>d1pl-d+++jYlpt >d1p(lpl+jnt l pl6dl+jot l lld0/dlO'' l*F@l*#d *#` *FP^ 2d`6P@ .dl+jot l l>d1pl-d+++jYlpt >d1p(lpl+jot l pl u,dlplt l ld0/dlO'' l *F@l!*#d *#` *FP^ 2d`6P@ 6dl+jpt l lld0/dlO'' l#*F@lM*#d *#` *FP^ 2d`6P@ {~.dl+jpt l l>d1pl-d+++jYlpt >d1p(lpl+jpt l pl#pM0@P P(2]t5P|O'' l#*F@l%*#d *#` *FP^ 2d`6P@ z6dl+jqt l lld0/dl O'' l'*F@lO*#d *#` *FP^ 2d`6P@   .dl+jqt l l>d1pl-d+++jYlpt >d1p(lpl+jqt l pl#pM0@P P(2]t5P O'' l'*F@l)*#d *#` *FP^ 2d`6P@  6dl+jrt l lld=/dl? .dl+jrt l l>d1pl-d+++jYlpt >d1p(lpl+jrt l pl#pM0@P P(]t5P= O'' lQ*F@lR*#d *#` *FP^ 2d`6P@ ; 6dl+jst l lld0/dl O'' lT*F@lU*#d *#` *FP^ 2d`6P@  C.dl+jst l l>d1pl-d+++jYlpt >d1p(lpl+jst l pl6dl+jtt l lld0/dl O'' lW*F@lX*#d *#`*FP^ 2d`6P@  A.dl+jtt l l>d1pl-d+++jYlpt >d1p(lpl+jtt l pldl+jst l lld1*#`+tt  ll`*FP@ @(02]t2d`)l6P@?O'' l2*F@l3*#d *#` *FP^ 2d`6P@ =6dl+jut l lld0/dlO'' lv*F@lw*#d *#` *FP^ 2d`6P@ G.dl+jut l l>d1pl-d+++jYlpt >d1p(lpl+jut l pl6dl+jxt l lld0/dlO'' ly*F@lz*#d *#`*FP^ 2d`6P@ E.dl+jxt l l>d1pl-d+++jYlpt >d1p(lpl+jxt l pldl+jut l lld1*#`+xt  ll`*FP@ @(02]t2d`)l6P@CO'' l:*F@l;*#d *#` *FP^ 2d`6P@ A6dl+j{t l lld0/dlO'' lA*F@l>*#d *#`*FP^ 2d`6P@ .dl+j{t l l>d1pl-d+++jYlpt >d1p(lpl+j{t l pl.?lp @FP 5PO'' lA*F@lB*#d *#`*FP^ 2d`6P@ pz$ Cll Dll{l'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ tKpz t$jlt l kjlEzNz6dl+j`t l lld0/dlO'' ab*F@ac*#d *#`*FP^ 2d`6P@ .dl+j`t l l>d1pl-d+++jYlpt >d1p(lpl+j`t l pl#pM0@P P(]t5PO'' ab*F@ad*#d *#` *FP^ 2d`6P@ 6dl+jet l lld0/dljO'' a'*F@af*#d *#`*FP^ 2d`6P@ e.dl+jet l l>d1pl-d+++jYlpt >d1p(lpl+jet l pl6dl+jgt l lld0/dl|O'' a'*F@ah*#d *#`*FP^ 2d`6P@ w.dl+jgt l l>d1pl-d+++jYlpt >d1p(lpl+jgt l pldl+jet l lld1*#`+gt  ll`*FP@ @(02]t2d`)l6P@O'' a'*F@ai*#d *#` *FP^ 2d`6P@ 6dl+jjt l lld0/dlnO'' aA*F@a>*#d *#`*FP^ 2d`6P@ iw.dl+jjt l l>d1pl-d+++jYlpt >d1p(lpl+jjt l pl.?lp @FP 5PuO'' aA*F@aB*#d *#` *FP^ 2d`6P@ spz$ Cll Dlll'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ \*#2*\R0*#1*\R0*#f$*\Rffff*0Y50cc4c84*\R0*#e*\R0*#19*\R0*#13*\R0*#17*\R0*#14*\R1*#10e*\R1*#10b$*\Rffff*0V50cc4c84*\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*#46*\R0*#1b*\R0*#1b$$<@DHLPT"X\`'dh#l%p&t(x)|0*+t (aлq~GS\BOD+6 PDn%rOF#HWϷS$KXPԞxS$KXPԞq~GS\BOMEt@SPSSS8 ""p>" ""LLL"LLL*LP?@ABCDEFGHIJ`\NOPQR[TUVWXYZM]^_:_befghijklmnopqrstuvwxyz{|}~Pp  D &&= &H $+p ( : N&X 4 F& F( hp& g &g &H "vp .v& ( 6 &P  4x  H &  .  >P &  (  6 &  :@  P &  X  X 0  4+8  p x %         0  H 5X  h Xx  ,      V x,  X X% 0H` x 5  2=8 X`  x     $l "   ( 0@"HX "+p       8@ X` hp x$ '&  $l  "( 0 8 @,P+h  N    F $@ *h  F 0 <( h.^ "   (8 P` x   .^ 8(H RP 6 J 0>^H >\:^ "( @P hx  2^ 82^ 88X.^` 8  $l "  (_ :<H (_: &N08@ H $Pl` "    "   *+ @HP"Xh "+     (0 HP hp x ,&+<y 0+ HPX`Vh $A0+   >_(  $Ah 0+        BT vE0! !!!,!$+!"" K"$+0"X"`",h"$+""","$+"##,#$+(#P#X#,`#$+###,#"+##$ $"$ $ (+8$ `$h$ $$ (+$ $$,c$,+$(%0%,c8%.+h%%%  %,%,%,%B% B&"B8&B`&B&B&B&B&' '"K' 8'2H' `'h' p'5' ''' *',+' (((2L0(+h( (( ( $(l(( ("( ()  )0) ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp 0;wȂ --------CR 1;VKE\Җ31;VK32;2;ĖƋ3;ύXH4;p~5;̑ 21;VK֔ 22;•ʐVK23;J24;ύX 25;ύXj 26;ύXo^ 41;^l --------SR 6;VKE 11;VK 12;\ 7;ĖƋ 8;ύX 9;p~ 10;̑ 71;h 72;ύX 73;8]@  ]`.H].H] $ %.h]  !  % !B@H x $ !(  !(" !($H].nH !(" !(" !(" !(" !*(" !(" !,(" !X("]StringƃG[](StringƃG[]`StringƃG[>-------------------------------------------------------------- ݃y[Wn̏擾Ѓ  ݈ n%!!rypKTw肵Ăij h悪w肳Ă܂BA@& w|`KTkCdgǗǓaij01234567D'ݖ@lwȂDyэLHٶ_kD'fKTkdgǗǓaij0101112131415D'bwȂ{R`HcXD'fKT֓dgǗǓaij0202122232425262728D 'KwȂ敔s_ސtʶQnȖضRD 'fKTMzdgǗǓaij03233D'wȂVD'fKTkdgǗǓaij0363738D'wȂxRΐD'fKTCdgǗǓaij041424344D'wȂm򕌶OdÉD'fKTߋEdgǗǓaij0484950515253D'wȂɶsޗǶa̎RD'f KTdgǗǓaij05657585960D'wȂLRRD'f KTldgǗǓaij063646566D'wȂQmD'f KTBdgǗǓaij069707172737475D'wȂF{啪{D'f KTdgǗǓaij047D'wȂD'fS*ڑf[^x[Xݒ肳Ă܂BA@&|n d !(j !("0,40 !($ $  $$ $+d $ $ f $$f $+d $ d !(& !( ƋǶD'd $ d $$d !HB@ $ !H(  !H( !H(" !H($wȂVK•ʐVKJݶύXύXύXo^D'd $ d $$d !B@ $07D'wȂo^D'f d !(j !("0,40 !($ $  $$ $+d $ $ f $$f $+d $ d !(& !(  dr r fr ݎw肵Ă n%!!rKTw肵Ă|KTo^  !( KTo^( !( SH|@n8|0 ( .!0 .!0 * .!2A@&ko ](.nĂ]H !! ZKTwȂ葱w肵ĂBA@&n%|`KTVK 'KT•ʐVKn'KTJ'KTύX''KTύX{'KTύXo^R'S | n ]`  n!%'   !(rd@ !(rk( |  .!0 .!0 * .!2A@&k o x  ].n\ !!rK{tԍ󗓂łBA@&B|p kh ]. !!r n!%. t| k  ? If Not IsNull(.Item("aID")) And .Item("aID") <> "" Then myString1 = "aID"B $ myString2 = .Item("aID")E End IfD ? If Not IsNull(.Item("cID")) And .Item("cID") <> "" Then* myString1 = myString1 & ",cID"6 myString2 = myString2 & "," & .Item("cID")% End If type7$type7type7KTwȂ !( KTVKi !( KT•ʐVK !( KTJ"  !( KTύX: n !( KTύX !( KTύXo^Ȭ !( S | n k area7$area7area7 !(rkK If Not IsNull(.Item("receiptNo")) And .Item("receiptNo") <> "" Then"0 myString1 = myString1 & ",receiptNo"C myString2 = myString2 & ",'" & .Item("receiptNo") & "'" End If% receiptDate7$ receiptDate7 receiptDate7gggeNmmdd % !(rk0 frequency7$ frequency7* frequency7KTwȂ !( KTo^ǘ !( S !( nhk`counts7$counts7n%counts7 !(r kcharge7$charge7\charge7 !(r84kmemo7$memo7Ҷmemo7 !X(r܂kHq@|8 0 .!0 .!0 * .!2A@&tko  !!r !!rvZȂ܂H  ŠvZ$& (|pkhk` !!r !!r !!r$ !!r % !!r' !!rv !(rkk|  .!0 .!0 * .!2A@&kxop8 `]x.nn%.." ] !H! KT'KT'S G[@ǎ킪w肳Ă܂A@&%|n] !! 4KTwȂ50葱w肵ĂBA@&&|PKTVK'KT•ʐVK'KTJ'KTύX'KTύX'KTύXo^'S|nx !!r *tԍ͂ĂBA@&|0d( !!r % !!r %  >%tԍ8/9œ͂ĂBA@&|kk KKKKKKKKKKKK K)KT !!r % 6%CR̎tԍ́u6vŎn߂ĂBA@&|kKKK K K K KGKHKIKT !!r % 9 %ML̎tԍ́u9vŎn߂ĂBA@&|8k0S(| n T_ProgressNet receiptNo !!r n!%! $̎tԍ͂łɎgĂ܂B *XVĂłH iǗDB̍XV$&  |PkHk@ !!r%t͂ĂBA@&|k !!r n!%tmFĂBA@&B |k !!r㗝lmFĂBA@&͂|PkH !!r %s㗝lmFĂBA@&|k !!r0ƋlmFĂBA@&@K|k !!r %%ƋlmFĂBA@&b|PkH !!rsnw肵ĂBA@&$&|k] !! ^KTwȂuo^ǁvw肵ĂBA@&|KT150"'Spuo^ǁvw肵ĂBA@&|@n8 !!r !!r$ "͔pœ͂ĂBA@&0|k !!r !!r$!0$S͔pœ͂ĂBA@&|`kX  kindC@x typeC@x  frequencyC@x !!rareaC@x------ !!r receiptNoC@x !!r receiptDateC@x !!raIDC@xlX !!rcIDC@x͂ !!rcountsC@x !!rchargeC@x֔ !X!rmemoC@xBq] !!r  n!%'v$& v  n!%|k v e   v n!% |XkP ve$tԍ̏d͎sOɊmFɐ!tԍ2ˆȏqbg܂BA@&|k !!r ݐiDBo^ n%(I܂BA@& A@r|h ` .!0 .!0 * .!2A@& k(o  Ǘ҃j[.Show A@r‚܂oAttribute VB_Name = "iǗo^" Bas0{A79C4559-B6BF-A-BAA4-7251C1DD32C8}{30E675FD-F0A8-42CA-82D8-65C0115F92B6} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://www.hd.co.jp/webmaster@  '0;w@Ȃ- CR1;VKEM3E2;2;ĖƋ ;ύX4;p~5; ̑21`;E2 ;•I3;$JF!2425sH26D41;^DE;S@;'D6J;1E;CE;B7F;8D$9D;10;71;0i72!E3;jOption licit P myCollecAsESub UForm_Initialize()B@rror GoTo ErrMes!Dim cBranchb ` cls'Set= New ciInt0eger$.Gdet(ij` j}1 .Coun )a aMe mboBox.AddI(temc,.A(j Next jcListIndexiockSBack3= &HE0!ͪ3P!.PaC =2P@D2DcoT.LEĜdtxtReceiptNoDPAgentMember A#G MCli@ ID?=@#cVAr ray()a+Variant 'S@ngƃG[1, 2 '%1(݃yW`n̏擾$Se C1}cP5Value(pKAGAMI, "s").DropDow 60 k? ? ? 1 33s6$$PxR ( 7 _`=O=D0"4"44"44Y< `B" pehenvH& vbCrLf &DescriptioTuom0 `QycPq=clsPapeBr#Set p= New |qJaIntegW%/qh0b#G@"ۭ%߇xه1!q[my = 243O6)^?pe;2o( '1a324q pb4^5t 1f?35<6416<00e q'a!StrHing#my=%.DBG1044"" T4e.txtIU *"D)7O?O?O? #O?O?L???\ProgressDBO?O?a.1O? O?@?c-Ďtԍ󗓂łj;%M3%@lce?P%PJmyWJotPj`o'DataFrozm((xIs Noth@.o g[With* x 'q1P@ IsNull(.("aID"? _ae0Qmy7AAh/ c  Q W & ",/o BDa 2q",~"P  6mx("t0,# @hen Select Case .Item("type") 0 'wȂDLMe.comboT.ListIndex = 021SVK,S1SB2S•0S2)3)Jݏ{3'4'ύX'4'5') 56(o^ =6ElseExit SubKEnd  IfIf Not IsNull(area"0)) A <> "" TNŮA@.Valuew 'A receiptNo "J#FAmyString1@!& ", 2 2 '"2`'"_+`Dat@*,*-ptxtR#-VBA.Format8* , "gggeNmmpdd)_@frequency,2gC7aW_"NFE.e 7@sr 5sA1vvcountsl3ICb w$DDcharg[?b$ ʘmemCMMAQWithX ErrMe Pqmeric(d(\W0one _ D= 1575 + e * 630ߨ_((f(֮(((q((W((!Dim cP As cls Paper Setq= New myCol2$ h@cmyKi4IntegCQg# l1d|evfD"G[@ǎdzĂ܂5!Q$g#/ x 5 葱"  B/ "my = 22?17H2H;H2?H2/$ VUNor~vtԍ `Ă= ] `AVLenP)g8WRc r9W 8/9C ĂB" Exit SubTEnd If< ,Select Case my0Typef(1, 2, 3, 4, 5 2"j226 341?If VBA.Left$(Me.txtReceiptNo.Value, 1) <> "6" Then ?CMsgBox "CR̎tԍ́u6vŎnߘ vd7, 8, Z9K0k1k7U736o9oML o9OoElsw?BAJAC9@ocP.DB.CheckDB("T_ProgressNet", "rEsw) = 1LvCu("I=łɎg@u܂@ _]& vbCrLf & "XV H"vbYesNo@(iǗPDB "A$vxbNo'΁0Date;"z~-Q !IcChkB2 k'Fa`>,mF"#>AgentIDl IsNumeric}_b:01cCli–p`>.comboArea=0KnwJJC}DimFrequency As Integer 2b.ListIpndexC0 'ȂGebuo^ǀD!c摠 150 my= 7B/ +\+ountsdw" Ap5NCh& e ͔pN8o .$ hargwU/ ?Ch/ + SO coX With *Col!io.AddKindhk`t "f50m,9a9p{( #d~1_QXID Lcsi(qR)OB Mem"md3g CHID!HLongSmy = ӑInsertOrUpdxxFor5y)?^T DBmy'//Q6qG>  /,.IDo3o}i= -'f̏d͎sOԂɄP5IV2ˆqbg0i0j Get(pKAGAMI%HݱDBc").Result3U I~Unload M4+ ErrMes:SP.berQHQDesc~rKp"rP(riv- @‚_;ck(, '!҃j[.Show 6 P' 5q5p5pCiC///5p5`5`0i   Ciq 8/)A`I90i9W9999W9pK x tlrx Qltjdt $ldc`8' @jMP@t @l l l6@ jd`K!krD@l l l5@l l ll l 0l l l ll l ll l ll l ll l ll l ll l ll l ldl+ l |  4 ldq)ll:+''' :P N@@ 6@ l:Pl:0l:l:l:l:l:l:l@ Z@6 Yd5@:Pl:0l:l:l:l:l:l:l@ Z@6 Yd5@l:Pl:0l: l:!l:"l:#l:$l@ Z@6 Yd5@:Pl:0%l:&l:'l:(l:)l:*l@ Z@6 Yd5@l :Pl:0+l:,l:-l:.l:/l:0l:1l:p2l:`3 l@ Z@6 Yd5@ :Pl:04l:5l:6l:7l:8l:9l::l:p;l:`< l@ Z@6 Yd5@lg:Pl:0=l:>l@ Z@6 Yd5@g:Pl:0?l:@l@ Z@6 Yd5@lrU 8 FXl1h Eq+FQnQ$نa!Q  )Ii )Ii )Ii9Yy )9Y)Iiy )Ii )Ii )Ii )Ii )Ii ) I i iir     A a    F$ $ia I}  9 qHII  ytuy  Ys! t  AYAy Q1 zyq-A$l m1mYmlCic$$$<0im@0im D/)e` 9H0imL0imP5QdT0i!n X/)Qn"""`I9\0iyn`0ind0in'''h 717` 9l0iio###p0io%%%tCio&&&xCio(((|5ak)))0i00005k***0ik+++0ik,,, /) p---`9 /)9p...`95Qp5p!!!v: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 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 tlrlcHykrlkrl rdHQrlcDkrlkrl rdD5lM N' '@l l l6@ (@l l l5@ZZZdl+ l |  4 ldq@)ll@nl@ (@l l l5@l@ (@l l l5@$d ll ldljl''' d ll ld#<*#48  ,l8*F@ 2<48)l6@ :HpP 6tx@> P<84l@ 4K x`p p `PpP(@]3s+''' :@N`` 6` P(@]3pvP(@]3pvP(@]3pvP(@]3pvP(@]3pvP(@]3pv$kvpx d 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 x,dt t d:T]3t5dj+'''D:TNdd 6dD[t4tNdt t dx d  Tl4/)t5d4c 4^D:TNdd D :4N :$]<'6 dDD:TNdd D5d(T]3 (dt t t5d(T]3 (dt t t5d(T]3 (dt t t5d(T]39 (dt t t5d(T]3l (dt t t5d(T]3 (dt t t5d(T]3 (dt t t5d^D:TNdd D :4N :$]<'6 dDq8D:TNdd Dt t t6dD^D:TNdd D :4N :$]<'6 dD-\D:TNdd :4ND t t t6dD^D:TNdd D :4N :$]<'6 dD9D:TNdd D5d(T]3 (dt t t5d7(T]3 (dt t t5d7 (dt t t5d^D:TNdd D :4N :$]<'6 dD8D:TNdd Dt t t6dD^D:TNdd D :4N :$]<'6 dDi8D:TNdd Dt t t6dD^D:TNdd D :4N :$]<'6 dD8D:TNdd Dt t t6dDc$ tt ltl'''D tt l#*#  ,l*Fd 2)t6dD8t x< tdD|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 d  <lql/)t5`ll 24tx d t @k)t | ll@ 5ll4tx d 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$ xhXD80__SRP_38!3"modOutputTextFile$S__SRP_357__SRP_34 prU 9$9`$A9` $9`$$9`($9`,$A9`0nrU~| 45) Y5B6AC!7Qy7 88ɀi::;́u:vipjg܂B B@-#ږ̉pׂ͂Ĕppg܂B B@0#Rgsɂ́AsɁu#vipjg܂B B@A#lȂǂʼnsꍇɂ́uvbCrLfviׂĔpjg܂B B@E#tB[h́Aʏɓ͂łeLXgtB[hȊOɁA`FbN{b B@E#NXAv_Eihbv_Ej܂B`FbN{bNX`F B@F#bNĂƂ́uTruevip@T͑啶jA`FbNĂȂ B@ G#Ƃ́uFlasevip@F͑啶j܂͋󗓂ɁBv_ÉAj[ B@E#̐擪1Aȍ~2ȉɂȂ܂ipjB󗓂̏ꍇ B@F#ɂ́u1vw肵ĂB܂Av_E̐͂ꂼقȂĂ B@G#܂Bv_E͈͓̔̐lw肵AُȐl╶w肵Ȃ B@ #łB B@G#ڂƂđ݂ȂAgpĂȂڂ܂̂Œӂ B@ #B B@]]'  !6! ݕ̃f[^擾`  , !l    n!%: !  n% B@ !l e   n!%: !!r B@ !l e   n!%: !!r B@38kpkh  ' Ot@C‚ B@BǓai'z  .!0 .!0 * .!2A@&kiAttribute 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.Syem ")?'łɃeLXgt@Ώ㏑, Aa6fs.QGP, Tr ue@ a.Wr iteLi~"#dq\T|gVAe@8dl=io^/jR ;̕"R@%h%tgJISɂĂB'Wor(d@SBhiOC͕̓j́AォEɏ@oR܂B̂@ê ͖֌W-Ȃ- @x! ͍ږ(t+AjɁu`݁vƕt`BĂ !C ƃf^0Ƃ̊@@u:vip gpqTׂā$RgFs,s#UlȂǂʼn ꍇ" uvbCrLf7 ?#GB?0ABpR1ȊOA`Fb`N{b2:@X@Av`ED9h@vujbzB !! Q"J :9|f)@TAhj`DȂ2 e Fla4se F ͋0ɁBa'1A`eȍ~͸2ȡl : i`P ZKMB V< ɡ1 bpwi0(̐W` s3 "{h͈͓̔l AQ`FȐ`A.e -|v1݀"Agp"RBpHŒQo "#mmyFieldlR.@ymcc!kIntegejrSkg1 0Each{In A~veDocumentwz[d1'3MOcJ擾If k <= KAGAMI_COUNT The53`d .T wd qInВYmcPr .GepP(p, k) & ":"PSanitize2(Result, pNothing, wx% qEp CheckBox b t0 O0xME"p)L6 LLL"" LL+` k@ AAi l npx%`l erdy`h $.%`"%`Xx(X`z ҋp`t`t`t`t`t@X8,@8X @H @8 @( @ @ @P h('@O P'@  @ @ @ `,F(T8BT@0<p>PT@TTVHTTVPV @HP/X p  Dw 6h @6iP        $ l 0 8 H  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H']`.nn]]Scripting.FileSystemObject$8.$łɃeLXgt@CΏ㏑  %. /#dq\T|[gVXe@eLXgt@Cdl B@#io^\/o^\j B@# B@8#eLXgt@C̕R[h̓VtgJISɂĂB B@# B@E#Word̃tB[hiOC͕̓j́AォEɏԂɏo͂ B@3#܂B̂ߓȅԂƂ͖֌WɂȂĂ܂B B@E#ݕɂ͍ږitB[hjɁu݁vƕtĂ܂B B@2#ږƃf[^Ƃ̊Ԃm p .puR@ q DropDow~n "  l d. Enpd If!q)k + )Nu)C5S'XO_ ‚a.Clo` |%VaExitF# : :.Number <> 0<MsgH& m`&QDes}oT/EE <<I==>Q? @@@A1'%Y%+q!AF6$ $iQ$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"E $ (l Fw$ lk"p X 0 l!*#++Y lp l*FX%h25X $ (l G*hk"p X 0 l!*FX$ x D"kH%h/)6XH $ (l Sik"p X 0 l!*# $ | 4#l #*FX%h2)5X k"p" $ h$pz$ % &l ml''' % &l #'*# % ,&l*FX (2)6Xt@($plht4 XkrU 5(5`)nrU -(-` (-` (-` (-` (!-` (I-` (q-` (-modOutputXMLd__SRP_2d:F(__SRP_2c"00000000000=Fy50cc591a*\R0*#4*\R0*#12*\R0*#9$*\Rffff*3=50cc595c$*\Rffff*0^50cc4c84*\R0*#f*\R1*#10e*\R1*#10b$*\Rffff*0V50cc4c84*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*3G50cc4c24g  8 "X B      08  @`px       0 0 P  `p  aL?iA ]xMEP@"p> """"LL"L  p  0 `0  % x   ` `z  8 `t`t``t``t``t` H .*& @ p @l @ h @d @ ` @\ @8L @P< @h, @ @ @ @ `z @4`t@.`t `t7`t 8.*& @`t  @XPh(x@X @H @8 @( @$ @`  @ @ @ @ `t@  `t@ `t`t @ @ 0@P`z `tX 8.*&$@X @HH @`8 @x( @ `t@ @ `t@ @( @ @ `t@ (@ @ ``t@ @ @ (xpX@HH0@``z  `t08$@(X `t@H x`t@8 @( @ @ @ @ @` @ x`t@ @ `t @ @ @p @@ @X @0 @ @ @ @ @ @ @ @ X_@h @@ h@~ h@x p@v @0@@t X@r h@`t`t@p @l @@h @d @\ @HL @< @0.*& `z x`t( `tX- `tPx 8h(@Xx8&$.*@X @H @ 8 @8( @@P @ @ @ (@ @ @ @ @p @ @ @ @p @  p-8p<@ @ @ (@ @ @H ` e@ He@ @ H@~ @|  `z !`t !""`!x!" H!!`t! 8!`t@ !8.*& @"X @!H @!8 @!( 8'`t@! !@ @(" @@" @X" @" ## `t@ @" @ @ @# @(# @ @#$x$H$$%`$#0$p"`z  $`t$.*&@$p @l @$h `t@d @$` (@\ @ %L @8%< @P%, @% @% `t@ (@ 0PP&h&'H(&&`(P&&&`z %h`t&P&&`t&8.*&@(X @X'H ((H&`t )`t@p'8 @'( @' @ @' @' @( @( @ `t@x( @ x@ @( @( @ `z ) `t )8.*&`,+`t@+X )`t @)H (@)8 @*( *`t)*@+h))(+p+(()'@* @ @+ (,`t(@+ `@ H@X+ @ @ @ @+ @+ @ `z 0H, `t -`t, 8*.&z@.X *FX`t5X+,-P.p,X-h.+X,@)`t@p-H (@-8 @-( P0`t@- H@ 0@. @ . @8. @ @. @ @ @. @. 0@ `z `t/.`t2 p  10p000.80/0`t0/21`t8.*&`21`t@1\ @0L @0< @, @81( @$ @P1  h1`t@ @1 h2`tX@@ @1 @1 @ `z (2 `t 2~&: .*@x3\ 2`t2@4X @3H 4`td1 2 2p42X4P241820@38 @3( `t@3 (@(4 @ 5`> t@ 3 @4 @ @ @4 @ `z (54`tP5 `t85 8`> t @@8X 7H 4765X6694X85@p6H @68 @6( @6 @ @7 @7 4@P7 H48H:2 `> t*#@h7 @@7 (@7 @7 @7 @ @ 8@8 @(8 @ @p8 `5&.*&@8 8`> t@8 :`:p5@8 @9x @(9h @@9X @X9H @p98 @( (@$ `:H:;:`;:::H:x:(7x7`< x`> t.*&@;d @` :@;\ @X @0;T @P @H;L @H @x;8 @;( @; @; @ @ 8 ` RYP$*\Rffff*3050cc4c24$*\Rffff*3<50cc595c*\R0*#f*\R0*#11$*\Rffff*0U50cc4c84$*\Rffff*2     $l8 @BH ` h p      (8@  H`px   $l B       ( *0  `!x 4$x&#,.8C 0@7@8F @7X7..ph.b. (#p ,# H. V. X.h .# .# 2. :.X 4. D7 :7 6.X .. 4. 0# &(  P  p     $ l   B       * 'P p  T $#8C( `8.p8F 8.0&=8(` ..& ..& ..8&h ..& ..& ..@&p ..& ..&  ..H&x ..& ..( D0 :x,. 8C 8B.H8F B.( 0B.H L. R.,.p 6.:787(:7`v76. P..h.7,7,7,7(0.X&#  X , 68 p x T B ^0 N D L( x H H`  X B ^` N D LX x! H! ! X! XH" <" ^" N@# D# L# ($ $ H% X% p% 8% % % % % T& Fh& T& ' ' P( X( Xp( F( T)h) 8* PP* * X* b+ Tx+ + , P,  - 8- 8H- - - - ,- <- (. "0. "X. &. H. J. @@/ / / / / / / &0 *00 2`0 "0 :0 P1 P12 P2 2 T3 Z3 X4 $p4 4 *4 4 5 R5 86 <P6 6 :6 P6 P07 P7 P7 F 8 Nh8 <8 8 9 9 <09 @p9 89 9 9 8: $H: Tp: F: R; h; @< HX< <<0.X= > D> > H? XH? F? R? @@ A H0A xAA0.0B `C DxC C HC X D .xD DD @D H0E xE 8E E E E XE PF HpF F FF G G DG H L(H0xH I DI I HI D@J >J TJ T K TxK TK J(L RxL @L DM HXM NM JM 8@N  xN NN NN N $NlNN OB O O O O 0O 8O@O *HO'xO .6O&#O O2.P :@P0.P $P27P Q67(Q `Q>7Q &Q27Q,7 R@@PR R>IR "R>IS@@PS 2S6@S >T>@@T.7T T27T U67U :PU27U BU:7V27PV DV>@V .W:@@W47W2.W(#W  X 8XHXPXXX`X  NhX X NX&#Y $@YB.hY :Y0.Y $ Z<7HZ Z.6Z qZX[67`[[ [66[ q[\>7\\ &\86](H]^27^H^,7P^@@^ ^^^.6^*._$8_P_X_`_h_ p_ _ rj_`>I`X` "`` ` d[`a>IaHa@@Pa 2aa nsaPb6@Xbb >b66b2.cHcPcXc`c xjxcc87c0d.78d hd26d dPe27Xee e46e qepf67xff :f26f00gg27g0h B8h:7h27h DhN@@i .i:@i47j2.8j  Npj j Jj N(kpjxk0.k $l<7@l l ql  m86@m qxmn >7 n`n (hn(n,7Po@@o 06o ,.o $ p8p @p HpPp Xp xp rjpq >IqHq $Pq xq d[qq >Iq8r@@@r 4rr nsr@s 6@Hss @s86s 4.t8t @tHtPt xjhtt 87t u.7(u Xu pu v v <v0v Dw:7 x27`x DxN@x .0y:@`y47y2.yz(#z  @z `zpz xzz z $zlzz zB z z z z z {{ *{'@{ &#`{ {  &{ ${ {||| |(|0|8C8| p|66| 2.|| |}<6} 8.H}} }}>6} :.}~  ~(~0~ 6.H~ D7~ >7~ <@ FIH rv jd FIx ta 8 aP ؁<.   <@( >7h >7 :@ 8@( :@` FI <@ <@( >7h 8. 8F ( $@h  p B6.xD7>7<@8FIxDRDRFIPFINI<@0>7p>7 6= ( 0F@H F@ F@ PF@h F@ȋ F@( pF@ ЌF@ 0F@H F@ F@ P hp8@x:@FI<@8R@x>7Џ8.HP<CX 6. D7 >70 <@p FI DR DR@ FI FIВ NI <@h >7 >7 ( 0F@HF@F@PF@hF@ȕF@(pF@ЖF@0F@HF@F@ P 8@X :@ FIИ <@ R@X >7 8. (8@ H6.ȚD7>7H<@FIțDRDRXFIFINI0<@>7>76=@ x F@ F@ @F@X F@ F@ `F@x F@ؠ  F@8 F@ F@ @F@X  8@Ȣ:@FI@<@^@ȣ>7(8.h<C 6. D7@ >7 <@ȥ FI DRP DR FI FI( NIp <@ >7 >7@  F@F@HF@`F@F@ hF@ȪF@(F@@F@F@HF@`  8@ :@ FI( <@p ^@ >7 8.P  6.67>7(<@hFIDRDR8FIFIȰNI<@`>7>7:@ 8@`:@FIز<@ <@`>78.  " "H "p "ȴ6.ȵ>Cе27>@HDI@Iж@@8@PHI:Iз`R`Rp<IиDIBIXFIFI@I0:@pF@6@470hp>Cx27>@DI0@Ix@@8@HI0:Ix`R`R<IxDI@IFI@FI@Iп:@F@P6@47>C27X>@DI@I@@X8@HI:I`RX`R<IDIXBIFIFI0@Ix:@F@6@@47x >C .7>F@ 7 8.(`6.h27>@DI@I`@@8@>I:IXDRDR<I(:Ih:IFIFI0@Ix:@:@6@847p.78. &.27@47x67(.*.>7@>7>747@78>7x67D747847p<7,.,.<7H@76767>7827x,7@@>I >I`@@6@>@.7X2767.767(27`:7>74@4@P<@8@2@FI8DRDRFI<IXDI4@8@<@PB@@7.. H,.`07 @@:I8I@8Ix8IB@ <@0:Ip8I8I8I >@X $  ! &"@@0zpdvXvB@H@@:I8I8IP8IB@ F@:IX8I8I8IH@@  "! &"D@ ~H h z0 zF@0xD@:I8I8I@8IxF@ 8@  8HP2CX46  >N8 L`@ FI v[x ZIFIFI(FIp:@H@HI@FIJRHI H@h27     ( 0 $8lHh pB x     *' B7<@PD@BILR J[pJ[LRLR`TRBID@P:@@I>I@IXLRBIBI0<@xB7  $08!@P X 0h 07 L@  zr  / ~r X>@`  <@ <@ 27( `p07x<@ <@ @>@X<@<@27P $Xpx! ! !  N ( NH   4K 8+X  88 07 D@( LIp BI   DI( <Ip JR JR >IP F@  dW 8@P :I >I @I >RH H[ H[ D[ D[` @R >R H[( H[p D[ D[  @RH  BI  :@  27  H X  p  *  2+        8  8 07P D@ LI BI  `   DIp <I JR JRH>IF@ dW 8@:I>I@I@>RH[H[D[PD[@R>R H[`H[D[D[8@RBI:@27H  07 D@ LI BI`  0 DI <I JR@ JR >I F@  8@h 8@ :I >I @IX >R H[ H[  D[h D[ @R >R8 H[x H[ D[ D[P @R BI :@  27` 07D@@IPBILRLR(DIx<IJR JRP >I F@ 8@(!8@`!:I!>I!@I">RX"H["H["D[(#D[p#@R#>R#H[8$H[$D[$D[%@RX%BI%:@%27 &X& p&D+&07&D@'@IP'BI'LR'LR((DIx(<I(JR)JRP)>I)F@)8@(* 8@`*:I*>I*@I+>RX+H[+H[+D[(,D[p,@R,>R,H[8-H[-D[-D[.@RX.BI.:@.27 /X/ 87`/  /06/ z/p0>@x00 F@0:7167H18@1>@16@16702 h267x2@@2D@2D@83:@3:@3:@4B@@4674..4(#4  5 85H5P5X5 `5 $h5lx55 5B 5 5 5 5 5 55 *5'6 86$#P66.x6,.6:7687 7:7X7..7..7.77,7(8,7X8,780.80.8.79,7H9,7x9,792.9,.:0.@:>7p::@:<@:FI0;FIx;>@;6@<DI8<DI<8@<@7=27@=0.x=&#=  = =>>> > $ >l0>P> X>B `> h> p> x> > >> *>'>  >0#?,.8?:7h?87?:7?.. @4.P@0.@2#@$#@2.AF7PA67A>7A27B,7HB@@xB>IB>IB@@8C6@xC>@C.7C27 D:7XD4.D2.D<7E27HE@@E>@E@@F47@F47xF4@F2@F2@ G2@XG67G4.G6.H678H>7pH27H,7H@@I>IXI>II@@I6@J>@PJ.7J27J:7J8.8K4.pK27K4@K2@L2@PL2@L47L47L6.0M&#hM  M MM MM M $MlMN NB  N (N 0N 8N @N PNXN *`N'N  N&#N4.N 8C O XO:.pO8FO O:.PHPB.PP(#P$#P,.P2.Q*.PQ&#Q Q  Q QQ RR R $Rl(RHR PRB XR `R hR pR xR RR *R'R  R"R*# Sx.PSl.S6.8T67pT~@T67(Ul7`U87U0.V*#8V.#hV&#V..V67V:@(W:@hW87W..W..X<7@X@@XB@X<7Y<7HY<7Y..Y(#Y$ Z"HZ  pZZ Z ZZ Z $ZlZZ ZB [ [ [ .[ :H[[ [ [  [ [ [  [ [ \\ \8\X\ 8x\\ \ \ \ \] 4(]`] x] ] 6]] ] ^^ (^@^ X^ x^^ ^^ ^ $^l^^ ^B ^ ^ ^ __ "_"+(_P_X_  `_p_ (_"_,__``  ` `'@```x`  $`` 0` ` a  a   a @a $Paxa aa a $alaa aB a a  abbb  b0b8b@b Hb Pb `b hb xb b b b b b b b b b b b c c  c (c 8c @c Pc Xc hc pc c c c c c c c c c c c d d d (d 0d @d Hd Xd `d pd xd d d d d d d d d d d e e e  e 0e 8e He Pe `e he xe e e e e e e e e e e e f f  f (f 8f @f Pf Xf hf pf f f f f ff fff f $flfg g (g ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX' 8' XMLwb_ $zk\{$ $zk\ҁiƋlj. $zkAӔCҏ  $zPkH 㗝l $z k '㗝l) If OutputXML3(myXMLFile) = False Then Exit Functione7 End If \1 $zxkp \2 $zHk@p~nc $zk'z  .!0 .!0 * .!2A@&oki` 'pun $zhk` \萔 $z8k0 XMLtb^7 $zkShiftJISUTF-8ɕϊ $zk BOM̏ $zk'zp h .!0 .!0 * .!2A@& k0i( '] .nr wb_̏o]@]XScripting.FileSystemObject$8.( Trueŏ㏑`      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  %.!& B@<\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"> B@ `  B@.    B@T     B@ǎ ݎw肵Ă n%!!r o^\    N051 B@ ݎw肵Ă n%!!reo^\KT    N057 B@k    1o^ǃC^[lbg\ B@     B@   G dgp dq\E͏oVXe B@   A0001 B@    B@   B@   '101105 B@   50002 B@   7sinsei.xml B@   B@   B@    B@    B@    B@     B@     B@    B@     B@    B@   B@  B@XMLt@C‚ B@B.'zh ` .!0 .!0 * .!2A@&k(i p ].n']]Scripting.FileSystemObject$8.  %. <\> B@M----------------------------------------------------------------------------- ȉ\   <\> B@ ݎw肵Ă n%!!r o^\   <•_>1 B@ ݎw肵Ă n%!!reo^\   <•_>2 B@k  ݈ n%!!rKTkCdgǗǓaij   <>J B@KTkdgǗǓaij   <>I B@KT֓dgǗǓaij   <>A B@KTMzdgǗǓaij   <>B B@KTkdgǗǓaij   <>D B@KTCdgǗǓaij   <>C B@KTߋEdgǗǓaij   <>E B@ KTdgǗǓaij   <>F B@ KTldgǗǓaij   <>G B@ KTBdgǗǓaij   <>H B@ KTdgǗǓaij   <>O B@n =p~͂̂ƂO t悤BvmF3 a.WriteLine vbTab & vbTab & vbTab & ""     B@\̋敪J ݎw肵Ă n%!!r o^\   !<\_͏o敪>AA B@ ݎw肵Ă n%!!reo^\   !<\_͏o敪>AA B@k ݔ̋Ki   "<ݔ̋Ki>8 B@ǂ̎ʃR[h   +<ǂ̎ʃR[h>CR B@ǂ̎ʕ⑫R[h   2<ǂ̎ʕ⑫R[h>X B@    <ԍ/> B@o^ԍ    B@     B@     B@     B@    P B@    B@ o^̔N    B@     B@     B@     B@     B@    B@    B@R '-----------------------------------------------------------------------------% 'ȉ\ҁiƋljɊւ0 a.WriteLine vbTab & vbTab & "<\ғ>" 'Ƌl̖OM If cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 2 Then; '@l̏ꍇAƋl̖O@l͒ĉƋl̖OX a.WriteLine vbTab & vbTab & vbTab & "<@l_c_l̕>1"G a.WriteLine vbTab & vbTab & vbTab & ""= a.WriteLine vbTab & vbTab & vbTab & ""E If cP.GetValue(pKAGAMI, "ݐ\ҖO").Result <> "" Then n a.WriteLine vbTab & vbTab & vbTab' & "<͖>"' & cP.GetValue(pKAGAMI, "ݐ\ҖO").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & "<͖/>" End IfQ ElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 3 Then; 'ĉ̏ꍇAƋl̖O@l͒ĉƋl̖OX a.WriteLine vbTab & vbTab & vbTab & "<@l_c_l̕>2"G a.WriteLine vbTab & vbTab & vbTab & ""= a.WriteLine vbTab & vbTab & vbTab & ""E If cP.GetValue(pKAGAMI, "ݐ\ҖO").Result <> "" Then n a.WriteLine vbTab & vbTab & vbTab' & "<͖>"' & cP.GetValue(pKAGAMI, "ݐ\ҖO").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & "<͖/>" End IfQ ElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 4 ThenQ 'l̏ꍇA‚Ă͌l͖@lEc̑\ҖƋl̖OA5 'Ƌl̖O@l͒ĉƋl̖OɕύXX a.WriteLine vbTab & vbTab & vbTab & "<@l_c_l̕>3"G a.WriteLine vbTab & vbTab & vbTab & ""= a.WriteLine vbTab & vbTab & vbTab & ""E If cP.GetValue(pKAGAMI, "ݐ\ҖO").Result <> "" Then n a.WriteLine vbTab & vbTab & vbTab' & "<͖>"' & cP.GetValue(pKAGAMI, "ݐ\ҖO").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & "<͖/>" End If Else1 MsgBox "@lEćEl̕ʂُłB" Exit Function End If 'Ƌl̃tKiM If cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 2 Then? '@l̏ꍇA@l͒c̃tKiƋl̖OtKiM If cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result <> "" Then ^ a.WriteLine vbTab & vbTab & vbTab' & "<͖̃tKi>"' & cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result' & "" ElseI a.WriteLine vbTab & vbTab & vbTab & "<͖̃tKi/>" End IfQ ElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 3 Then? 'ĉ̏ꍇA@l͒c̃tKiƋl̖OtKiM If cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result <> "" Then a.WriteLine vbTab & vbTab & vbTab' & "<͖̃tKi>"' & cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result & "" ElseI a.WriteLine vbTab & vbTab & vbTab & "<͖̃tKi/>" End IfQ ElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 4 Then[ 'l̏ꍇAtKiȂA@l͒c̃tKiƋl̖OtKiɕύXM If cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result <> "" Then ^ a.WriteLine vbTab & vbTab & vbTab' & "<͖̃tKi>"' & cP.GetValue(pKAGAMI, "ݐ\ҖOtKi").Result' & "" ElseI a.WriteLine vbTab & vbTab & vbTab & "<͖̃tKi/>" End If Else1 MsgBox "@lEćEl̕ʂُłB" Exit Function End If% 'Ƌl̗X֔ԍinCtȂj5 a.WriteLine vbTab & vbTab & vbTab & "" Dim myAddress As String Dim myAreaCode As String Dim myAddressKana As StringA If cP.GetValue(pKAGAMI, "ݐ\ҏZ").Result <> "" ThenC myAddress = cP.GetValue(pKAGAMI, "ݐ\ҏZ").Result: myAreaCode = cP.AreaCode.AreaCodeInsert(myAddress) Else myAddress = "" myAreaCode = "" End If 'Ƌl̏Zԍ 'Ƌl̏Zs撬R[h# 'Ƌl̏Zs撬R[hȉ+ 'Ƌl̏Zs撬R[hȉtKi If myAreaCode <> "" Then4 a.WriteLine vbTab & vbTab & vbTab & ""I a.WriteLine vbTab & vbTab & vbTab & vbTab & ""  a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Left(myAreaCode, 2)' & ""} a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & "" & myAreaCode' & ""J a.WriteLine vbTab & vbTab & vbTab & vbTab & "" v a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<_>"' & cP.AreaCode.DeleteAddress(myAddress, myAreaCode)' & ""M If cP.GetValue(pKAGAMI, "ݐ\ҏZtKi").Result <> "" ThenS myAddressKana = cP.GetValue(pKAGAMI, "ݐ\ҏZtKi").Result Else myAddressKana = "" End If# If myAddressKana <> "" Then Z a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<_ڃtKi>"' & cP.AreaCode.DeleteAddressKana(myAddressKana, myAreaCode)' & "" ElseL a.WriteLine vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>" End If5 a.WriteLine vbTab & vbTab & vbTab & "" Else4 a.WriteLine vbTab & vbTab & vbTab & ""I a.WriteLine vbTab & vbTab & vbTab & vbTab & ""I a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""I a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""J a.WriteLine vbTab & vbTab & vbTab & vbTab & ""@ a.WriteLine vbTab & vbTab & vbTab & vbTab & "<_/>"H a.WriteLine vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>"5 a.WriteLine vbTab & vbTab & vbTab & "" End If 'Ƌl̓dbԍ5 a.WriteLine vbTab & vbTab & vbTab & ""9 a.WriteLine vbTab & vbTab & vbTab & ""1 a.WriteLine vbTab & vbTab & vbTab & "" 'Ƌl̑\ҖE1 'Ƌl̑\ҖiƖ̊Ԃ͑SpXy[Xj 'Ƌl̑\ҖtKiM If cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 2 Then? '@l̏ꍇAl͖@lEc̑\ҖƋl\K If cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").Result <> "" Then h a.WriteLine vbTab & vbTab & vbTab' & "<\ҖE>"' & cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & "<\ҖE/>" End If If cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result <> ""' Or cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result <> "" ThennW a.WriteLine vbTab & vbTab & vbTab' & "<\Җ>"' & cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result' & "@"' & cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result' & "" Else= a.WriteLine vbTab & vbTab & vbTab & "<\Җ/>" End IfA a.WriteLine vbTab & vbTab & vbTab & "<\ҖtKi/>"Q ElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 3 Then? 'ĉ̏ꍇAl͖@lEc̑\ҖƋl\K If cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").Result <> "" Then h a.WriteLine vbTab & vbTab & vbTab' & "<\ҖE>"' & cP.GetValue(pKAGAMI, "ݐ\ґ\ҖE").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & "<\ҖE/>" End If If cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result <> ""' Or cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result <> "" ThennW a.WriteLine vbTab & vbTab & vbTab' & "<\Җ>"' & cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result' & "@"' & cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").Result' & "" Else= a.WriteLine vbTab & vbTab & vbTab & "<\Җ/>" End IfA a.WriteLine vbTab & vbTab & vbTab & "<\ҖtKi/>"Q ElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.Value = 4 Then' 'l̏ꍇAƋl\҂͂Ȃ= a.WriteLine vbTab & vbTab & vbTab & "<\ҖE/>"9 a.WriteLine vbTab & vbTab & vbTab & "<\Җ/>"A a.WriteLine vbTab & vbTab & vbTab & "<\ҖtKi/>" Else1 MsgBox "@lEćEl̕ʂُłB" Exit Function End IfR '----------------------------------------------------------------------------- 'ȉAӔCB a.WriteLine vbTab & vbTab & vbTab & "<\ɊւAӔC>"? If cP.GetValue(pKAGAMI, "ݔl").Result <> "" Then | a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<>"' & cP.GetValue(pKAGAMI, "ݔl").Result' & "" Else= a.WriteLine vbTab & vbTab & vbTab & vbTab & "" End IfE If cP.GetValue(pKAGAMI, "ݔlSҖ").Result <> "" Thenvc! a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<>"' & cP.GetValue(pKAGAMI, "ݔlSҖ").Result' & "@"' & cP.GetValue(pKAGAMI, "ݔlSҖ").Result' & "" Else= a.WriteLine vbTab & vbTab & vbTab & vbTab & "" End IfA a.WriteLine vbTab & vbTab & vbTab & vbTab & ""= a.WriteLine vbTab & vbTab & vbTab & vbTab & ""8 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""M a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""M a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & ""M a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & ""N a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""D a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_/>"L a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>"9 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""= a.WriteLine vbTab & vbTab & vbTab & vbTab & ""A a.WriteLine vbTab & vbTab & vbTab & vbTab & ""G a.WriteLine vbTab & vbTab & vbTab & vbTab & ""C a.WriteLine vbTab & vbTab & vbTab & ""1 a.WriteLine vbTab & vbTab & ""XMLt@C‚ B@B.'z@1 81 .!0 .!0 * .!2A@&k1i0  0].n']]Scripting.FileSystemObject$8.  %. ݑ㗝lO n%!   <㗝l> B@dqϔC̗L    B@4-----------㗝l֘A-------------------------------   <㗝l񖾍> B@㗝l C:㗝l D:㗝l     <㗝/> B@ 㗝l̖O    <͖/> B@㗝l̖Ôӂ肪    <͖̃tKi/> B@ 㗝l̗X֔ԍinCtȂj      B@     B@      B@㗝l̏Zԍ        B@㗝l̏Z̎s撬R[h        B@      B@,㗝l̏Zs撬R[h͂      <_/> B@8㗝l̏Zs撬R[h͂́iӂ肪ȁj     <_ڃtKi/> B@     B@㗝l̓dbԍ      B@ 㗝l̖E    <\ҖE/> B@3㗝l̖Oiі Ɩ̊Ԃ͑SpXy[Xj     <\Җ/> B@;㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj    <\ҖtKi/> B@     <ϔC> B@=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     <ϔCo@/> B@(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> B@      B@    B@    B@XMLt@C‚ B@B.'z'k'H------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------   <㗝l> B@dqϔC̗L 2:gpȂ   "2 B@4-----------㗝l֘A-------------------------------   <㗝l񖾍> B@㗝l C:㗝l D:㗝l    <㗝>C B@ 㗝l̖O ݑ㗝lO n%!     <͖> ݑ㗝lO n%! B@d$    <͖/> B@k`$㗝l̖Ôӂ肪 ݑ㗝lOtKi n%!     <͖̃tKi> ݑ㗝lOtKi n%! B@d`#    <͖̃tKi/> B@k# 㗝l̗X֔ԍinCtȂj ݑ㗝lX֔ԍO3 n%!  "      ݑ㗝lX֔ԍO3 n%! ݑ㗝lX֔ԍ4 n%!  B@d!      B@k!     B@      B@]]] ݑ㗝lZ n%! ݑ㗝lZ n%!'  n!%'d ''k 㗝l̏Zԍ             %   B@d        B@k㗝l̏Z̎s撬R[h              B@d        B@k      B@,㗝l̏Zs撬R[h͂          <_>   n!%  B@d      <_/> B@kh8㗝l̏Zs撬R[h͂́iӂ肪ȁj ݑ㗝lZtKi n%! ݑ㗝lZtKi n%!'d'k       <_ڃtKi>   n!% B@d    <_ڃtKi/> B@k     B@㗝l̓dbԍ ݑ㗝ldbԍ n%!      ݑ㗝ldbԍ n%!- %  B@d      B@kh 㗝l̖E ݑ㗝l\ҖE n%!     <\ҖE> ݑ㗝l\ҖE n%! B@d    <\ҖE/> B@kH3㗝l̖Oiі Ɩ̊Ԃ͑SpXy[Xj ݑ㗝l\Ґ n%!   $     <\Җ> ݑ㗝l\Ґ n%!@ ݑ㗝l\Җ n%!  B@d     <\Җ/> B@k;㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj    <\ҖtKi/> B@     <ϔC> B@=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     "<ϔCo@>1 B@(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> B@      B@    B@H------------------------------------------------------------------------ 㗝lD݂̏ꍇɂ́A@lEćEl킸A\Ґ͂͂H------------------------------------------------------------------------  ݕ㗝l\Ґ n%! ݕ㗝l\Җ n%!   <㗝l񖾍> B@㗝l C:㗝l D:㗝l    <㗝>D B@㗝l̖O     <͖> ݕ㗝lO n%! B@㗝l̖Ôӂ肪 ݕ㗝lOtKi n%!      <͖̃tKi> ݕ㗝lOtKi n%! B@d    <͖̃tKi/> B@k"㗝l̗X֔ԍinCtȂj  "      ݕ㗝lX֔ԍO3 n%! ݕ㗝lX֔ԍ4 n%!  B@     B@      B@ ݕ㗝lZ n%! ݕ㗝lZ n%!'  n!%'d''k㗝l̏Zԍ           %   B@d        B@k㗝l̏Z̎s撬R[h            B@d        B@k      B@.㗝l̏Zs撬R[h͂         <_>   n!%  B@d      <_/> B@kx :㗝l̏Zs撬R[h͂́iӂ肪ȁj ݕ㗝lZtKi n%! ݕ㗝lZtKi n%!'d 'k        <_ڃtKi>   n!% B@d    <_ڃtKi/> B@k     B@㗝l̓dbԍ       ݕ㗝ldbԍ n%!-$  B@㗝l̖E     <\ҖE> ݕ㗝l\ҖE n%! $$& B@5㗝l̖Oiі Ɩ̊Ԃ͑SpXy[Xj  ! 4     <\Җ> ݕ㗝l\Ґ n%! $$&@ ݕ㗝l\Җ n%! $$&  B@=㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj    <\ҖtKi/> B@     <ϔC> B@=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     "<ϔCo@>1 B@(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> B@      B@    B@k    B@XMLt@C‚ B@B.'zx p .!0 .!0 * .!2A@&k8i0  ']x.n]]Scripting.FileSystemObject$8.  %.    B@ V݂̏ꍇ ݖݔ̏uꏊtKiݖݔ̏uꏊR[hݖݔ̏uꏊ]]]]](' ݎw肵Ă n%!!r o^\ ݖݔ̏uꏊ n%! ݖݔ̏uꏊ n%!'d'k ݖݔ̏uꏊR[h n%! ݖݔ̏uꏊR[h n%!'dx'kh  ݖݔ̏uꏊtKi n%!  ݖݔ̏uꏊtKi n%!'d'k     <ݔ̐ݒuꏊ> B@    <ݔݒu敪>3 B@    <ݒuꏊ_uꏊ> B@      B@       B@          %  B@            B@       B@     <ݒuꏊ__>   n!% B@       <ݒuꏊ__ڃtKi>   n!% B@d ~   <ݒuꏊ__ڃtKi/> B@k}      B@     B@    <ݒu_ړ͈͏> B@      <ʐM/> B@       B@      B@       B@      B@     <ړ͈_l/> B@     B@    B@' k{ ݎw肵Ă n%!!reo^\uꏊɊւĂ͂ȂɂȂkzݖݔ̈ړ͈1ݖݔ̈ړ͈2<ݖݔ̈ړ͈̓t[@_łȂɂĂȂ ݖݔ̈ړ͈1 n%!!r ݖݔ̈ړ͈1 n%!!r    <ݔ̐ݒuꏊ> B@    <ݔݒu敪>1 B@    <ݒuꏊ_uꏊ> B@      B@       B@         B@         B@       B@      <ݒuꏊ__/> B@      <ݒuꏊ__ڃtKi/> B@      B@     B@    <ݒu_ړ͈͏> B@ ݖݔ̈ړ͈1 n%!!rKTKTkC     <ʐM>J B@KTk     <ʐM>I B@KT֓     <ʐM>A B@KTMz     <ʐM>B B@KTk     <ʐM>D B@KTC     <ʐM>C B@KTߋE     <ʐM>E B@ KT     <ʐM>F B@ KTl     <ʐM>G B@ KTB     <ʐM>H B@ KT O     <ʐM>O B@ KTSSqnq       B@      B@       B@      B@     %<ړ͈_l>̗ B@     B@    B@' ko ݖݔ̈ړ͈1 n%!!r     <ݔ̐ݒuꏊ> B@    <ݔݒu敪>1 B@    <ݒuꏊ_uꏊ> B@      B@       B@         B@         B@       B@      <ݒuꏊ__/> B@      <ݒuꏊ__ڃtKi/> B@      B@     B@    <ݒu_ړ͈͏> B@ KTkC     <ʐM>J B@KTk     <ʐM>I B@KT֓     <ʐM>A B@KTMz     <ʐM>B B@KTk     <ʐM>D B@KTC     <ʐM>C B@KTߋE     <ʐM>E B@KT     <ʐM>F B@ KTl     <ʐM>G B@ KTB     <ʐM>H B@ KT O     <ʐM>O B@ng       B@      B@       B@      B@     %<ړ͈_l>̗ B@     B@    B@ ' ke ݖݔ̈ړ͈2 n%!!r ݖݔ̈ړ͈2 n%!!r    <ݔ̐ݒuꏊ> B@    <ݔݒu敪>1 B@    <ݒuꏊ_uꏊ> B@      B@       B@         B@         B@       B@      <ݒuꏊ__/> B@      <ݒuꏊ__ڃtKi/> B@      B@     B@    <ݒu_ړ͈͏> B@ ݖݔ̈ړ͈2 n%!!rKTKTkC     <ʐM>J B@KTk     <ʐM>I B@KT֓     <ʐM>A B@KTMz     <ʐM>B B@KTk     <ʐM>D B@KTC     <ʐM>C B@KTߋE     <ʐM>E B@ KT     <ʐM>F B@ KTl     <ʐM>G B@ KTB     <ʐM>H B@ KT O     <ʐM>O B@ KTSS@]n8]       B@      B@       B@      B@     1<ړ͈_l>̗yт̏ B@     B@    B@' kP[ ݖݔ̈ړ͈2 n%!!r     <ݔ̐ݒuꏊ> B@    <ݔݒu敪>1 B@    <ݒuꏊ_uꏊ> B@      B@       B@         B@         B@       B@      <ݒuꏊ__/> B@      <ݒuꏊ__ڃtKi/> B@      B@     B@    <ݒu_ړ͈͏> B@ KTkC     <ʐM>J B@KTk     <ʐM>I B@KT֓     <ʐM>A B@KTMz     <ʐM>B B@KTk     <ʐM>D B@KTC     <ʐM>C B@KTߋE     <ʐM>E B@KT     <ʐM>F B@ KTl     <ʐM>G B@ KTB     <ʐM>H B@ KT O     <ʐM>O B@nPS       B@      B@       B@      B@     1<ړ͈_l>̗yт̏ B@     B@    B@ ' kXQ    <ݔ̐ݒuꏊ> B@    <ݔݒu敪/> B@    <ݒuꏊ_uꏊ> B@      B@       B@         B@         B@       B@      <ݒuꏊ__/> B@      <ݒuꏊ__ڃtKi/> B@      B@     B@    <ݒu_ړ͈͏> B@      <ʐM/> B@       B@      B@       B@      B@     <ړ͈_l/> B@     B@    B@kKݎgyы󒆐d1ݎgyы󒆐d2ݎgyы󒆐d3ݎgyы󒆐d4'  ݎgyы󒆐d1 n%!!r ݎgyы󒆐d2 n%!!r ݎgyы󒆐d3 n%!!r    B@k0J ݎgyы󒆐d1 n%!!r      B@      B@       B@        B@      B@       B@      <͌`>2 B@       B@        351200000 B@        351381250 B@        B@      <Ԋu>6250 B@      30 B@       B@       B@        B@       B@     <󒆐d>5 B@       B@      B@' kD ݎgyы󒆐d2 n%!!r      B@      B@       B@        B@      B@       B@      <͌`>2 B@       B@        351168750 B@        351193750 B@        B@      <Ԋu>6250 B@      5 B@       B@       B@        B@       B@     <󒆐d>1 B@       B@      B@' k> ݎgyы󒆐d3 n%!!r      B@      B@       B@        B@      B@       B@      <͌`>2 B@       B@        351168750 B@        351381250 B@        B@      <Ԋu>6250 B@      35 B@       B@       B@        B@       B@     <󒆐d>1 B@       B@      B@' k@9  ݎgyы󒆐d4 n%!!r     B@ ݎgyы󒆐d4 n%!!re     q<>RTPDQlg`RTPDRWPQTlg܂ł̂UDQTjgԊûROg̎gp͑S̗ɌB B@k7    B@d7    B@      B@      B@       B@        B@      B@       B@       <͌`/> B@       B@         B@         B@        B@      <Ԋu/> B@       B@       B@       B@        B@       B@      <󒆐d/> B@       B@      B@     B@    B@k1    B@      B@     B@    <]on/> B@    B@    <ύX> B@     B@     B@     B@      B@     B@     B@     B@     B@      B@      B@     B@     B@     B@    <@l_c_l̕/> B@     B@     B@    <͖/> B@    <͖̃tKi/> B@      B@     B@      B@        B@        B@      B@      <_/> B@     <_ڃtKi/> B@     B@      B@     B@     B@    <\ҖE/> B@     <\Җ/> B@    <\ҖtKi/> B@    <\ɊւAӔC> B@      B@      B@      B@       B@      B@       B@         B@         B@       B@       <_/> B@      <_ڃtKi/> B@      B@       B@      B@      B@     B@     B@J݂̏ꍇiύXj     B@      B@      B@       B@       B@       B@       B@      B@     <^pJn̊> B@       B@       B@       B@       B@      B@ n!z!6zH!k@!݉^pJn̗\]@ n!z! '    ./ $ %'     <^pJn̗\> B@        gemmdd % %  B@         e % B@       <>  yyyy/mm/dd % % B@       <>  yyyy/mm/dd % % B@      B@dh     <^pJn̗\> B@       B@       B@       B@       B@      B@k      B@       B@       B@       B@       B@      B@݊]o^̗L]X n!z! '    ./ $ %'     <]o^̗L> B@          gemmdd % %  B@           e % B@         <>  yyyy/mm/dd % % B@         <>  yyyy/mm/dd % % B@      B@d     <]o^̗L> B@Ȃ       B@‚ɂ       B@       B@       B@      B@/k       B@ J݂̖ړI]p'" ݊J݂̖ړI n%!!r ȈՂȋƖp'"k ݊J݂̖ړIt[ n%! " ݊J݂̖ړIt[ n%!  %'"d "@ ݊J݂̖ړIt[ n%!  %'"k0k( "       B@d          " B@kH      (3 B@       B@       B@       B@       B@     <ǂ̖ړI_ʐM> B@      <ǂ̖ړIR[h/> B@      <ʐMR[h> B@       <ʐMR[h/> B@       B@      B@      B@XMLt@C‚ B@B.'z  .!0 .!0 * .!2A@&kX iP  @ '].n]] Scripting.FileSystemObject$8.  %.    <ݔ̐ݒuꏊ_J> B@     <ݔݒu敪/> B@     <ݒuꏊ_uꏊ> B@       B@        B@          B@          B@        B@       <ݒuꏊ__/> B@       <ݒuꏊ__ڃtKi/> B@       B@      B@     <ړ͈͏> B@       <ʐM/> B@        B@       B@        B@       B@      <ړ͈_l/> B@      B@     B@ʕ]8 n! !zk n! ! ']P   n! !      <ʕ> B@      <ʕ_敪>H B@ ʕ      <ʕ_>  n! %  B@ ʕAԕ  n! %       <ʕ_Aԕ>  n! %  B@dh     <ʕ_Aԕ/> B@k      <ʕ_p/> B@     <ʕ_⑫/> B@      B@ dP     <ʕ> B@     <ʕ_敪/> B@ ʕ     <ʕ_/> B@ʕAԕ     <ʕ_Aԕ/> B@     <ʕ_p/> B@     <ʕ_⑫/> B@      B@kp n!z!6zPkH]h n!z! '] n!z! ' ] n!z! ']]H------------------------------------------------------------------------K\ݔ̔ԍH------------------------------------------------------------------------    z0ʕ> B@     <ʕ_敪/> B@ ʕ     <ʕ_/> B@ʕAԕ     <ʕ_Aԕ/> B@     <ʕ_p/> B@     <ʕ_⑫/> B@      B@kp n!z!6zPkH]h n!z! '] n!z! ' ] n!z! ']]H------------------------------------------------------------------------K\ݔ̔ԍH------------------------------------------------------------------------    zZpKؖԍ̏ꍇ , n!% , n!%.ZpKԍƐԍ̐v܂BA@&khk` , $$+d , $$+f  d      B@      B@      <ԍ̎>1 B@       B@         $d n!% B@        <ԍ_ZK_F> $d n!%<ԍ_ZK_F/> B@       B@       <ʔԍ> B@       <ԍ_ʔԍ/> B@        B@        B@      B@ ԍ       <ԍ> $f  B@      <󒆐> B@       B@        B@      <󒆐̈ʒu> B@        B@          B@          B@         B@         B@        B@       <ܓx> B@         <ܓxID/> B@         <ܓx_x/> B@         B@         B@        B@       B@       B@      B@    eH݌vFؔԍ̏ꍇ  , n!%(H݌vFؔԍ͂Ă܂BA@&zk  ԍ , $$+f  f      B@      B@      <ԍ̎>2 B@       B@          n!% B@        <ԍ_ZK_F>  n!% B@       B@       <ʔԍ> B@       <ԍ_ʔԍ/> B@        B@        B@      B@       <ԍ> $f  B@      <󒆐> B@       B@        B@      <󒆐̈ʒu> B@        B@          B@          B@         B@         B@        B@       <ܓx> B@         <ܓxID/> B@         <ܓx_x/> B@         B@         B@        B@       B@       B@      B@ dh      B@      B@      <ԍ̎>2 B@       B@          n!% B@        <ԍ_ZK_F>  n!% B@       B@       <ʔԍ> B@       <ԍ_ʔԍ/> B@        B@        B@      B@      <ԍ/> B@      <󒆐> B@       B@        B@      <󒆐̈ʒu> B@        B@          B@          B@         B@         B@        B@       <ܓx> B@         <ܓxID/> B@         <ܓx_x/> B@         B@         B@        B@       B@       B@      B@k`   eǂ󗓂ꍇ      B@      B@       <ԍ̎/> B@       B@        B@       <ԍ_ZK_F/> B@       B@       <ʔԍ> B@       <ԍ_ʔԍ/> B@        B@        B@      B@      <ԍ/> B@      <󒆐> B@       B@        B@      <󒆐̈ʒu> B@        B@          B@          B@         B@         B@        B@       <ܓx> B@         <ܓxID/> B@         <ܓx_x/> B@         B@         B@        B@       B@       B@      B@   eǂf[^ꍇ:ZpKԍƍH݌vFؔԍ͂Ă܂BA@&      B@      B@       <ԍ̎/> B@       B@        B@       <ԍ_ZK_F/> B@       B@       <ʔԍ> B@       <ԍ_ʔԍ/> B@        B@        B@      B@      <ԍ/>" B@      <󒆐> B@       B@        B@      <󒆐̈ʒu> B@        B@          B@          B@         B@         B@        B@       <ܓx> B@         <ܓxID/> B@         <ܓx_x/> B@         B@         B@        B@       B@       B@      B@k    <\ʎ̔l> B@݊Jǂ̗\萔 ݊Jǂ̗\萔 n%!       <݊J݋ǐ> ݊Jǂ̗\萔 n%! B@d     <݊J݋ǐ/> B@k@     <\ʎ̔l_͗/> B@     B@     B@      <ގ/> B@      B@      <ʐM/> B@     B@ύX    <ύX_J> B@      B@      B@      B@       B@       B@       B@      B@     B@     B@    B@XMLt@C‚ B@B.'z  .!0 .!0 * .!2A@&k`iX  H'].n]]Scripting.FileSystemObject$8.  %.p~@֌WȂ    B@   <ǂ̎ʃR[h/> B@     B@     B@     B@     B@     B@    B@     B@     B@     B@     B@    B@    B@     B@     B@     B@     B@    B@     B@    B@     B@      <ԍ̎/> B@      B@       B@      <ԍ_ZK_F/> B@      B@      <ʔԍ> B@      <ԍ_ʔԍ/> B@       B@       B@     B@     <ԍ/> B@    B@    B@XMLt@C‚ B@B.'z  .!0 .!0 * .!2A@&ki ']0.n]P]hScripting.FileSystemObject$8.  %.p@֌WȂ   B@     B@     B@     B@     B@     B@   <Čt̗R敪/> B@   <Čt̗R/> B@   B@  

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

 B@XMLt@C‚ B@B.'z(  .!0 .!0 * .!2A@&ki б'].n]]Scripting.FileSystemObject$8.  %. \萔   <\萔> B@    B@ ݎw肵Ă n%!!ro^\@1700~   <萔z>1700 B@ ݎw肵Ă n%!!reo^\@2150~   <萔z>2150 B@k   "<萔[t@>1 B@    B@    B@    <ގ/> B@    B@    <ʐM/> B@    B@   B@XMLt@C‚ B@B.'z  .!0 .!0 * .!2A@&ki0 '].n]]Scripting.FileSystemObject$8.  %. XMLtb^  B@   B@   X B@   L B@    B@     B@     Q B@     B@    E B@     B@    B@   B@   B@    B@     B@     B@       B@      B@     B@    B@     B@     B@      B@      B@     B@     B@     B@    B@    B@  B@ * B@XMLt@C‚. B@B'zH @ .!0 .!0 * .!2A@&ki ''ADO(2.5ȏ) StreamIuWFNg𗘗p3CharsetŕR[hLineSeparatorʼnsR[hw]@ ] X ] p ] ] ] ] ] ] ] StreamIuWFNg̍쐬 ADODB.Stream$8., ADODB.Stream$8.. 2͂t@C̕R[hƉsR[hw肷 Shift_JIS , (0  , (2 , B@ $ , (lt@Cǂݍ  , B@4 .o̓t@C̕R[hƉsR[hw肷UTF-8 . (0 . (2 . B@0ǂݍ񂾓̓Xg[o̓Xg[ɃRs[ . , B@6 StreamIuWFNg̉ , B@B., "o̓Xg[t@Cɏo  * . B@8 StreamIuWFNg̉ . B@B.. 'z` X .!0 .!0 * .!2A@&k i0 '] ] $~t@C݂܂BA@&zk$'   $:  擪3oCgBOM $:    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 .!0 * .!2A@&k i  > '< zk > $'< zk > 01KT > '< 02KT > '< 03KT > '< 04KT > '< 05KT > '< 06KT > '< 07KT > '< 08KT > '< 09KT > '< 10KT > '< 11KT > '< 12KT > '< 13KT > '< 14KT > '< 15KT > '< 16KT > '< 17KT > '< 18KT > '< 19KT > '< 20KT > '< 21KT > '< 22KT > '< 23KT > '< 24KT > '< 25KT > '< 26KT > '< 27KT > '< 28KT > '< 29KT > '< 30KT > '< 31KT > '< 32KT > '< 33KT > '< 34KT > '< 35KT > '< 36KT > '< 37KT > '< 38KT > '< 39KT > '< 40KT > '< 41KT > '< 42KT > '< 43KT > '< 44KT > '< 45KT > '< 46KT > '< 47KT > '< S@'< n0z(  .!0 .!0 * .!2A@&kiؘAttribute 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 $ 0False'0w b_ 0xMsgBoxa& vbCrLf &Descri™(k9Foo 2cf$C p4744@B萔M8 t^9 ShiftJISUTF-8ɕϊConvertTexߩMT KH!'BOM Delete  F"O4y3O4O4pO4?O4O4r;@s4rivaP)yo?;op$~=2Dim cPclsPaSetq= New '3o#qfsqObjecqQaM`= CreS(D"Sng.Sym")S'ŏ㏑,#a fs.3*Q$, aa.WriteLi0"P IQgfЧ^ pnsdenpa.soumu.g¤sinsei :d w3.org/2000/09/@dsig#mei/XkoubO e_Tab_"N051Q DZփ^p/ljg!B2f'] "?(#: VXeB dg$pq E͏oj  /)3loPW>P;"#/&O6O6q~oo? .101105aCdߟ oh 2XWriteLine vbTab &8"sinsei. xml"6m:Yt)7?/!: ."_WFxXg|B F#ASY*Hl596fXVHlm:czT@VYB \Ǘm!C'XML!@‚CloseSet fs = No`thingCCOutput1Tru Exit Function Err0Mes:If @.Number <> 0 The@ MsgBox CrLf~ADescr ip !End IfePriPvate& 2(ByVal my`File As Str)A@Boolea  OnAor GxoToAED im cPclsPaperA(@(ew K(Fale/ 0@Objectaa CF6Cre#("SC&ng.ASystem)c")a@fs.OpenTex tA(#, 8, ="<#'-?%d ȉ >CeEQcP.Get@Aue(pKAGAMI, "w肵").DropDown."&2 X 'o^ #C•_>1JP t悤BvmF 'MMM?Զ"AN1 s~~~lue~szs <8CRl ʕ⑫=+iteLine vbTab &p"<̎ʕR[h>X6'o^')E35_\O!~"<$nK5#B>"AԶEc.dg@{sK511052Ɍfԓ ɓYwp~鏈ꍇ2"1`53_ "<ଐl`Fbc[? C"U.#84.Result <> ""M-{_3!a(1x>" C /ë HElse,@+End If \\3~.'.O.3X7//.>2.P.ߋY.. O O .RAoE#.a/2' 8"'22ɕ|XxO )_313_3_3__3a__ la"_3_3Oax_3:1Ua_3Ƀ_3_3_3@_3_3&a&Msg`Box "1)s-E/ʂłBVExit Functioh/tKita5%;Qi::Q˗ Q_ ((((_ 5Ns[[)))x  & "" 'Else8La.WriteLine vbTLab "</ nd If\gIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.1 = 3 Then'1̏ꍇAAvƄ(O  J\KResult <> ""H#_@ -4Ȃ@)ɕύXpFuVh4MsgBox$ "ႁEEُ łB xit FunctiZoE%d 'EX֔ԍ inC`LKj?!qDDim myAddress As StringreaCodeKana.aZG=zJ DXE A.Insert( )J ": &:<; >!s撬R[h?ȉH"4??L&Q yo& ~""n& VBA.Lef t, 2)!d& O 0@ &95%? O  "<_x68D`eleteH'8,!/G:wB0Hq@2NHIX |EO=;X ;a0)))MqdOGb2H /yE8)_1@9P\//""  ' 'l̑\ҖE2i̊ԂSpXy@[XjftKiIf cP.GetValue(pKAGAMI, "ݖ@lč").DropDown.1 = 2 ThenO5̏ ꍇA9d́$E%k=]u J\p҄#JResult <> ""GIa.Writ_?& "<3>" W+/&Else)_6M18End If3(_^4OrڗFqUTp =@>!5D@7_D4$CMM>ō \L= 3auxVu;12Id_J翎ǿ ^8_G}W&QwOSn "_GO/~I_G#T1_G_GOu_G!ϔz_G _G4^Gٌ͂ȂH4  ۆ+:+?[MsgBox "7EsʂُłBQ# Exit FunctioŢd'-EȉAӔCNT"<1Ɋւ'ٺll#?9>E "" ' a.WriteLines撬;" 0 The@ $MsgBox aCrLfDescripA End If@PrivateF# ,3(ByV al my/File As St r)ABoolea Onor GoToAA Dim cPclsPap"~dqϔC̗L 2:gp0ȂSc"<HF>2C "" ThenA7Yx&_ & "<͖>"n N-(/ ElseG#0,/sEnd IfԁẐӂTf]tKi_b_ 0D1gc#2CG+I 3X֔ԍinC`@j4cEO35i& 33 m% 40/Ed?ng;e 9ßw)ΏZE?Ms{_s撬 FDim myAddress As StringreaCodeCKan~a A [Q =``c [@e RA.Insert();> =e@?Vl q<0@ k oo9 .< 9& VBA.Left$A , 2)on"d%$PC? 3jU-@R[h?eO@?? ?<χ5_zXD[ s@YG/AP00 <_ВO0&FADeleteQA,S11P/_  ("% ä́i6/d"a_/[O "™VUHi%PZ%/%%%%%%/&`%A%&  &&&%&S7BbV*pdb pfVݑ㗝ldbԍ").Result <> "" T@hen a.WriteLine vbTab4 &_hv& D"<>" :VBAwplace(cP.GetValue(pKAGAMI, "0-"")Z""&nd I f'̖DE If h\ؿ2ܖ)z/KA\]Oi Ɩ̊Ԃ͑SpXy[Xjg?g͟L8:f (@|g%>=ن!lE!?=ӂ蠂?>(>}g"<tKiϔCņ'Co@ 1:ʏij/ʓrQ 2:i,ggŵ"<>x1D<"%$4'?PioϔW<͖>]?H o]1 0"2[ < ̕X'_$_$p1U$q , e++ KJiuG1;(?kxX֣^nCȂ]&**lO3?O+ OO4 Y7Z/Ws{_s)O7Ӆ?1 6QmyAddress =//lZ7 reaPCodeA.Insert(&)O1 "V=E/#`x /WK`E h/iO!/2'to2 A& qLeft$ , 2n GA ( a.WriteLine vb Tab &&8"<s{`/>" E nd If'㗝l̏Z̎s撬 R[h(If myAreaCode <> "" Then!b 7_ HL& "" I /!1Else 8G111"1<6/hj'MiG ꍇA͕s¿ qYP1 ooiÏ) /'XML$@C‚ a.CloSet fsNot@hing COutput03TruExit Functio ErrMes:e.NuPmber0\MsgBox H 0CrLfQDescripqPrivate & 4(Byp File As \ )@Boolea  Onor GxoTo C4FaDimaclsPapLerscPNxew  ObjectWaIC`te("Sng.@System")fs.OpenText!, 8,Vuec''VY/'!C:S'#uNok3ACs  Dim myAreaCode As String Boopleanp(tk*Integer *my^= False,If cP.GetValue(pKAGAMI, "ݎwĂ").DropDown.1 = 2 ThenN'o^\gݔ̏u4Result <> ""13ddressAa-OE- /""nd IflR[ho=i8/9G9HptKihrKanans;\<ǘCAELa.WriteLine vbTab &I"HP? ' "<Aha 敪>3" 2VBA.Left(H, 2)"" a.WriteLine 0vbTa"<J=5MM6G>3G1 'BEuJFH2 ' OO3 'SbElse7 End #`7 uOϝ*l//"̗1</* o__Q^4_ _ U }ժ gJ>Do<5 5o/"?:K0A aKi/>"  a.WriteLine vb Tab &"</Z_uꏊ9KF_O;SR_ړ͈RSelect Case k 1 'k8C3ʐMp>JA"!4!XMz?!!B"!5a!k?!!D"!6!C?!-Cf7߼E jBE87#F9 x'lejG`10 '㼏B! H1 '\ O1OExnd "̗ 1 :_A00OOOJ3 Then"1__o t] -J'" pXx;YOKOKOKPJ ? O U uJ݃R" qbCCase 4 '֓ a.WriteLine vbTab &"<ʐMP>AD>7>*CP>C>8>TEP>E9? F10 'l?C G1 ',B>N>H2 ' OO3 'SC /ElsegEnd Selectg?/"H_ Q s撀 _( _ړ0͈?ܰ"̗yт 1 &#_ //R"G.(_tKiooolo)Ta3G??7!V<>w ryk+J qr1kCAo o e J߄q7b2`_ rOOOHIOB3@ӅOOOHԥtB!_ԕOOOHԥtBԕOOOHեtB!_ՕOOOHtBՕOOOH֥tB!_DmLine vbTab &p"<ʐM >Fs{/>}s撬"̗yтĂ@ 1 _Or __~2___ PW3_R )2/ry//<1o o ))u5 ߇Oٿ8dǧ^G0qL1xѕ===R `& OOOH0?.oo ڍ/?P=?͌`>2</`>" a.WriteLine vbTab &&"<`gE_& f_n@>351206WTB}3@A","E}?"<d>85 1 Th|en AU gdǧ^? /% "<L#ѕ5_B"" a.WriteLin1Ԋu>6250XFڍ}?"<d0>1RTPDQlg`&RWPT#܂łĂUbTja`ROggp͑S̡zɌB" a.WriteLine_ʐM6ʕ!6@u:\ʎ@̔lD"" a.WriteLine vbTab &&8"<:"=IU <> ""T #VBAkplace( , "."/, ,extCompare)5{"<E\Ō""L _(& :L eft$(AFormatL=N]o^̗LԖ =_ [ 3  ??1B υY+/߁ 4}]K>s}Reques}(my}H}} =oRe~?~T?~ e!,j?O},Oaodk`$&  //-  v 1R 25 0,0&pi[?Y;_ ] _ c _2Y2//+8?qLd111f[?M?O O?j+}u;/J݂̰ړId'%Q"dhGetValue(pKAGAMI@>").DropDown.@2`yString = "ȈՂȋƖp" End If,If cP.GetValue(pKAGAMI, "݊J݂ړIt[").Result <> "" Then=m "VBA.Conv(2, vbWide)Else  8=& "@" & RA~a.WriteLinekTabO$vb"<_͗/>{;JDw_UP>" </-F-QGıR[h1>3_!*I}"" ' ʕDim myCallSign As @String:I@f cP.c<.Get*= False Then-dExit F@unctioE`nd If"j=/ ZW'kInteger <> "" ?For k = 0 To/Cnt - 1(Xa.WriteLine"<"&_敪>H<>//ޅ1ol71_ & 7_>" ՅHead(0, k) @8 !K;Aԕ XNo R)}KL*SM UN,[C K"E r+!?14C /]z ? u& p ⑫? pc>b.I Next k-.?Z!J w #FQ  P? : M L HLik(INI.NRV nw w ~GnkiNo~myy3SSNinsyoy_myV_P@roductomyv&Arrpay()= 2'-'K\򦧘ԅ- A'Zp ؖ ̏ꍇc1\[dlSanibountPFrom( , ",") `AMsg`Box "y 2  v܂B<2Q23mye'= Splitm, , `dbCompare)a)[UBdH 'HLnn_|_ɑs11 "1" J  CʋLWe"" myArray2(k)@2=)A$?ZǪ"D#ߋˏ _x "<   b   sAThenq'H݌vF}̏ꍇ`cP.Sani.GetCountFromStri ng(my, ",") 01 +aMsgBox "͂Ă܂BExit Functio E If myProductϋ6)Split  , , pCompare)1For k0 To UBd0o%o%e%"2" /_DT& "< h %myArray2(k)$a%AZNCĀ"2" cP.Sani.GetStringFrom(myNinsyoNo!/~O$i/`o "<'3'W& No  ? EC! 3 "< '/I_/ 5ENo-_[6,_T___Su//o //p ? ? wҏO!|q/ujZʕ]`bbR0"DFX1۱"<Q@y#@ 󒆐̈ʒu_HF p  uEnd IfElseIf myGitekiNo = "" A@myNinsyoeThen'ǂ󗓂·?"<?O"" ElseIf myGitekiNo <> "" AndPNinsyoP0Thenlt'ǂf[^HMsgBox "ZpKƍH݌vF͂܂BCqa.WrLine vbTas"< ,"<Z\ݔX+/̎/G*ZK__IV-Lp_.Lt"<.E-G//GQ"Iox Sx ID!!!q_x? ? 4 > S@bte_y_{DB?Q?o?_7%"<ܟ"i  "? ?"_=&0"<" "T "?o/JZ m ^? ? 3 @nIfhS "<\ʎl#6'݊Jǂ̗\萔cP.GetValue(pKAGAMI, "").ResultD [ +_ &"@

" ?> o" 5ݔ̐ݒuHRDRړ ͈;M@ʕ>$"m>$J ݋Ǐl2" 0 The@ MsgBox ACrLf܁DescripA End If@Privat eF# ,6(By@Val my/File As Str7)BooHlea/On"or GoToAe @ Fal&#@Dim cPA clsPaperA)@)ew G,@Object=a! C3CrFe("S#ng.ASysteRmc")a`fs.OpenTextA(!, 8, :C'p~AH@֌`WȂY"N<?U"<ǂ̎ʃ`R[hl" ?KЕ\OHO֥ P-o""9IA̔ԍ)7?n/=#敪>"AbԬE"*1~"<iC ́syn___͕ 8}tKiXցixiZ_+'%'s{_s   `Ϧ_ڿ?I{A\Җ0"<^/!@WW"O5O5I5_bQj> & "" a.WriteLine vbTab!"<<2@" 0 The@ @MsgBox &aCrLf@DescripA End If@PrivateF# ,8(ByV al my/File As St r8)Boolea% On#or GoTo4B8BFalODim cPclsPaperWWew @_&ObjecztGaA kCre>("SKng.:System")a.fs.OpenT(ext (G, 88, y '\萔"!"1e &?`*/?HI"o ŁKey>}sO O RSA??OB=Mo`dulus Expone|nt .. X509DataCab & vbTp"" a.WriteLine Name/BONumber2Q""aCrLfCC'XMLt@C‚CSet fs = NothingCa.C@lose Output9 TruAExit Function ErrMeDs: If @.C <> 0 The@ MsgBox /@1DescripAA End I6 APrivmAF# ConvsText(ByVal my0File As Str;)Boolea/On"or GoTo@33AFalG'ADO(2.5ȏ)eamIuWFNgp)'CharsetŕHR6h{Separator@ʼns#`w#@st adCRLF`-113"10BTypeBinarya/Ka& 2Read"= -A2SaveCre`1JD = gO`4i Dim InN5O{ 7Q' ;/̍8쐬]g = C ("8DB.y#")']'͂ṅ=;! f.D#"Shift_JIS$‡F@cCM Opn'/<=%='Fǂݍ- LoadFromb0kFo>?['g,IUT8F-8(LF/c'$A3Xg1 oɃ`Rs[%Cxopy` N.U!3](W3', ɏo15To,B6V]2g̗ ` $ kRbb b{bbbbbbbDeleteBOMbbbbzbKdb(CgytDtAFqhIntegerCFDir(6)Y"""F"݂B3? {"uCeFrtee$(DP4tF7 rct#76 LOF(F) > 3 '擪3og̀31ReS4- 4$G#F, 4, b'43ڂIEyQ1bc5q, q 'e@|Ům)".tmp")a.Kil& 'ꎞГIl!Jc_;f!6I l̎擾(ȍ~œFW/l S Put , S'a^ CLOSE^ޔ+½W폜Cr7GGCG?6GG 0.Pref@G?AAeuoes my= )21A *F^ Is c`It~)?0?<SXct Case.!r"01(Man2oǠoS"03oo m4kl GetPrefNum = my Case "05"HdU$63l736836921031323Z334 s1s1Us1s1s2s2us2s2D2DDDDDD3DDDDDDDDDD=4DDo "4_"umMA4_"oo4_"oo4_"oo4_"oo4_"onElseWΓ"vEnd SelectExit Function Er`rMes:AIf .ber <> 0 The1MsgBoxI& vbC rLf &RDescrip!If )Ii )Ii )Ii )Ii\l CtKpzlt 'lt <lt Qlt flt {lt lt lt pz$l pp  llpVl'' ',l pp  ll#h *#\` dd , l`*FL 2h\`)pd6L, \(t0 h`\pdL, tl CtKpzlt j'lt k<lt lQlt mflt n{pz$l pp  llpl'' ',l pp  ll#h *#\` dd , l`*FL 2h\`)pd6L, (t0 h`\pdL, (l CtKpz p X  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*#$*# *# +*FX%h2$ 5X7*#$*# *# ,*FX%h2$ 5X.*#$*# -*FX%h2$ 5X.*#$*# .*FX%h2$ 5X.*#$*# /*FX%h2$ 5X#*#$0*FX%h/$5X1*FX%h5X h2clpz$   l#l'''   l#$ *#   , l *FX 2$ )6X(4plht0 $  X l CtK ppz X  X4l5X't@(8%c%lX34h5X4*FX%h5X#*#5*FX%h/5XC+p  | 4l).*#*#6*FXrU~| ,---!!!I-q--$ $iQ$ Y5BaAC yц Fq+FAy qq  Q)ɍIَ65Aq Ea!a!a!Q qq)iyɏ Ay)ь i! z9iA)qqIa AѨyqɪ!y ai)1a9iѫ IyɰiY)a 9qa9aa Ayɸ)Yɹ!qI Ia YIə 9yɾћ 99a Y1y &YuYH1tYIAIa YAYq 9)q1y Y!iAyQ 9 I IAsу9r!y QIIy1iٷ 1a)Ya IQ9i)q 9!a---9-a-AIy i)q)aA a1a1 Q a 11) Q!i!i Q1q A0qy!Yѝ9A  aɠ)ia١ A yI٢yAYA yyt9Yy%h25XC+p  | 4l).*#*#7*FX%h25X+8p  | 4lq)l.*#*#9*FX%h25Xtl@.*#*#:*FX%h25Xtl.*#*#;*FX%h25Xtl.*#*#<*FX%h25Xtl.*#*#=*FX%h25Xtl<.*#*#>*FX%h25Xtl{.*#*#?*FX%h25Xtl .*#*#@*FX%h25Xtl .*#*#A*FX%h25Xtl 8.*#*#B*FX%h25Xtl t.*#*#C*FX%h25X.*#*#D*FX%h25XC+p  | 4l).*#*#E*FX%h25XC+p  | 4l).*#*#E*FX%h25X.*#*#F*FX%h25X.*#*#G*FX%h25X.*#*#H*FX%h25X.*#*#I*FX%h25X.*#*#J*FX%h25X7*#*#*#K*FX%h25X7*#*#*#L*FX%h25X7*#*#*#M*FX%h25X7*#*#*#N*FX%h25X.*#*#O*FX%h25X.*#*#P*FX%h25X7*#*#*#Q*FX%h25X7*#*#*#R*FX%h25X7*#*#*#S*FX%h25X7*#*#*#T*FX%h25X.*#*#U*FX%h25X#*#V*FX%h/5X h2clpz$   l l'''   l# *#  , l*FX 2)6X 4dplht0 X Xl CtK ppz X  X4l5X't@(8%c%lX34h5X6+p  llY0/+#*#*FX%h/5X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#`*FX%h25XI*#*#*#*#*#q*FX%h2 5XI*#*#*#*#*#z*FX%h2 5X@*#*#*#*#f*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X#*#*FX%h/5X h2clpz#*#*FX%h/5X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X6+p  llY=/q*#*#*#*#+p  ll*#*FX%h2 5X7*#*#*#*FX%h25X6+p  llY=/rq*#*#*#*#+p  ll*#*FX%h2 5X7*#*#*#*FX%h25X6+p  llY=/ *#*#*#*#+p  ll*#+p  ll*#*FX%h2)5X 7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#`*FX%h25X6+p  llY=/ .+p  l>1$lp  h>1 YCYC lY=T j*#*#*#*#*#a*#l #*#c*FX%h25X I*#*#*#*#*#q*FX%h2 5X lY= [*#*#*#*#*#d*#l*#e*FX%h25XW I*#*#*#*#*#z*FX%h2 5X@*#*#*#*#f*FX%h25XlY=lY=% s*#*#*#*#*#llp  0hl*#*FX%h25Xg @*#*#*#*#*FX%h25X6+p  llY=/ .+p  l>1 YClY=lY=_j*#*#*#*#llp  4hl*#*FX%h2 5X7*#*#*#*FX%h25X7*#*#*#*FX%h25X6+p  llY=/+p  l*#*#*#*#Yl #*#*FX%h25X7*#*#*#*FX%h25X6+p  llY=/q*#*#*#*#+p  ll*#*FX%h2 5X7*#*#*#*FX%h25X6+p  llY=/*#*#*#*#+p  ll*#*#+p  ll*#*FX%h2)5X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25Xj+p  llY=+p  llY=2).*#*#*FX%h25X7*#*#*#*FX%h25Xq*#*#*#*#+p  ll*#*FX%h2 5X6+p  llY=/q*#*#*#*#+p  ll*#*FX%h2 5XP7*#*#*#*FX%h25X*#*#*#*#+p  ll*#+p  ll*#*FX%h2)5X7*#*#*#*FX%h25X@*#*#*#*#`*FX%h25X6+p  llY=/.+p  l>1$lp  h>1 YCYC lY=j*#*#*#*#*#a*#l #*#c*FX%h25XI*#*#*#*#*#q*FX%h2 5X lY==[*#*#*#*#*#d*#l*#e*FX%h25XI*#*#*#*#*#z*FX%h2 5X@*#*#*#*#f*FX%h25XlY=lY=Vs*#*#*#*#*#llp  0hl*#*FX%h25X@*#*#*#*#*FX%h25X6+p  llY=/.+p  l>1 YClY=lY=j*#*#*#*#llp  4hl*#*FX%h2 5X7*#*#*#*FX%h25X7*#*#*#*FX%h25X+p  l*#*#*#*#Yl #*#*FX%h25X+p  l*#*#*#*F>FX  :Hx%h26 Xx+p  l+p  l*#*#*#*F>FX  :Hx>FhX XH H8:8(%h2)6XhXxH8(7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X#*#*FX%h/5X h2clpz$$   l$Sl'''$   l$# *#  , l*FX 2)6XXX@(plhtdXxhXH8(nml CtKMmpz p X  X4l5X't@(8%c%lX34h5X#*#W*FX%h/5XpC+p  | 4l);6+Xp  llY=/6.+Xp  l>1@YC6+Zp  llY=/.+Zp  l>1YC6+[p  llY=/.+[p  l>1&YClY=lY=6.*#*#\*FX%h25X7*#*#*#]*FX%h25X7*#*#*#^*FX%h25X@*#*#*#*#_*FX%h25XI*#*#*#*#*#`*FX%h2 5Xv*#*#*#*#*#a*FMH@X b X:8c%h2 6Xd*#*#*#*#*#*#d*#l*#e*FX%h25XI*#*#*#*#*#f*FX%h2 5Xa*#*#g*#llp  0hl*#i*FX%h2 5XlY=lY=aa*#*#j*#llp  4hl*#k*FX%h2 5X.*#*#l*FX%h25X@*#*#*#*#m*FX%h25X7*#*#*#n*FX%h25X7*#*#*#o*FX%h25X@*#*#*#*#p*FX%h25X@*#*#*#*#q*FX%h25X@*#*#*#*#r*FX%h25XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#t*FX%h25X@*#*#*#*#u*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25Xp~C+p  | 4l)~+xp  | 4l+xp  | 4l ).*#*#\*FX%h25X7*#*#*#y*FX%h25X7*#*#*#^*FX%h25X@*#*#*#*#_*FX%h25XI*#*#*#*#*#`*FX%h2 5XR*#*#*#*#*#*#q*FX%h2 5XR*#*#*#*#*#*#z*FX%h2 5XI*#*#*#*#*#f*FX%h2 5XI*#*#*#*#*#{*FX%h2 5XI*#*#*#*#*#l*FX%h2 5X@*#*#*#*#m*FX%h25X7*#*#*#n*FX%h25X7*#*#*#o*FX%h25X+xp  | 4lq)l -l @*#*#*#*#|*FX%h25X-lA @*#*#*#*#}*FX%h25X-l @*#*#*#*#~*FX%h25X-l @*#*#*#*#*FX%h25X-l4@*#*#*#*#*FX%h25X-l@*#*#*#*#*FX%h25X-l@*#*#*#*#*FX%h25X-l '@*#*#*#*#*FX%h25X-l x@*#*#*#*#*FX%h25X-l @*#*#*#*#*FX%h25X-l @*#*#*#*#*FX%h25X-l +-@*#*#*#*#q*FX%h25X@*#*#*#*#r*FX%h25XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#t*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25XpC+xp  | 4l ) c.*#*#\*FX%h25X7*#*#*#y*FX%h25X7*#*#*#^*FX%h25X@*#*#*#*#_*FX%h25XI*#*#*#*#*#`*FX%h2 5XR*#*#*#*#*#*#q*FX%h2 5XR*#*#*#*#*#*#z*FX%h2 5XI*#*#*#*#*#f*FX%h2 5XI*#*#*#*#*#{*FX%h2 5XI*#*#*#*#*#l*FX%h2 5X@*#*#*#*#m*FX%h25X7*#*#*#n*FX%h25X7*#*#*#o*FX%h25Xkp~ k~@*#*#*#*#|*FX%h25X k~.@*#*#*#*#}*FX%h25X k~|@*#*#*#*#~*FX%h25X k~@*#*#*#*#*FX%h25X k~@*#*#*#*#*FX%h25X k~f@*#*#*#*#*FX%h25X k~@*#*#*#*#*FX%h25X k~@*#*#*#*#*FX%h25X k~ P@*#*#*#*#*FX%h25X k~ @*#*#*#*#*FX%h25X k~ @*#*#*#*#*FX%h25X@*#*#*#*#q*FX%h25X@*#*#*#*#r*FX%h25XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#t*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25X d8p+p  | 4l+p  | 4l )$.*#*#\*FX%h25X7*#*#*#y*FX%h25X7*#*#*#^*FX%h25X@*#*#*#*#_*FX%h25XI*#*#*#*#*#`*FX%h2 5XR*#*#*#*#*#*#q*FX%h2 5XR*#*#*#*#*#*#z*FX%h2 5XI*#*#*#*#*#f*FX%h2 5XI*#*#*#*#*#{*FX%h2 5XI*#*#*#*#*#l*FX%h2 5X@*#*#*#*#m*FX%h25X7*#*#*#n*FX%h25X7*#*#*#o*FX%h25X+p  | 4lqx)lxY"lx@*#*#*#*#|*FX%h25XY"lxm@*#*#*#*#}*FX%h25XY"lx@*#*#*#*#~*FX%h25XY"lx @*#*#*#*#*FX%h25XY"lx` @*#*#*#*#*FX%h25XY"lx @*#*#*#*#*FX%h25XY"lx!@*#*#*#*#*FX%h25XY"lx S!@*#*#*#*#*FX%h25XY"lx !@*#*#*#*#*FX%h25XY"lx !@*#*#*#*#*FX%h25XY"lx F"@*#*#*#*#*FX%h25XY"lx W"Y"@*#*#*#*#q*FX%h25X@*#*#*#*#r*FX%h25XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#t*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25XpC+p  | 4l ), ct,.*#*#\*FX%h25X7*#*#*#y*FX%h25X7*#*#*#^*FX%h25X@*#*#*#*#_*FX%h25XI*#*#*#*#*#`*FX%h2 5XR*#*#*#*#*#*#q*FX%h2 5XR*#*#*#*#*#*#z*FX%h2 5XI*#*#*#*#*#f*FX%h2 5XI*#*#*#*#*#{*FX%h2 5XI*#*#*#*#*#l*FX%h2 5X@*#*#*#*#m*FX%h25X7*#*#*#n*FX%h25X7*#*#*#o*FX%h25Xkpr kr (@*#*#*#*#|*FX%h25X+ krZ(@*#*#*#*#}*FX%h25X+ kr(@*#*#*#*#~*FX%h25X+ kr(@*#*#*#*#*FX%h25X+ krD)@*#*#*#*#*FX%h25X+ kr)@*#*#*#*#*FX%h25X+ kr)@*#*#*#*#*FX%h25X+ kr.*@*#*#*#*#*FX%h25X+ kr |*@*#*#*#*#*FX%h25X+ kr *@*#*#*#*#*FX%h25X+ kr +@*#*#*#*#*FX%h25X@*#*#*#*#q*FX%h25X@*#*#*#*#r*FX%h25XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#t*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25X dtd$p k#2.*#*#\*FX%h25X7*#*#*#*FX%h25X7*#*#*#^*FX%h25X@*#*#*#*#_*FX%h25XI*#*#*#*#*#`*FX%h2 5XR*#*#*#*#*#*#q*FX%h2 5XR*#*#*#*#*#*#z*FX%h2 5XI*#*#*#*#*#f*FX%h2 5XI*#*#*#*#*#{*FX%h2 5XI*#*#*#*#*#l*FX%h2 5X@*#*#*#*#m*FX%h25X7*#*#*#n*FX%h25X7*#*#*#o*FX%h25X@*#*#*#*#p*FX%h25X@*#*#*#*#q*FX%h25X@*#*#*#*#r*FX%h25XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#t*FX%h25X@*#*#*#*#u*FX%h25X7*#*#*#v*FX%h25X.*#*#w*FX%h25Xp+p  | 4l+p  | 4ldhl+pp l |h 4ld) lh3.*#*#*FX%h25XC+p  | 4l)87*#*#*#*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%h25XpC+p  | 4l)>7*#*#*#*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%h25XpC+p  | 4l)=D7*#*#*#*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%h25Xp ktEC+p  | 4l)D7*#*#*#*FX%h25XAEC+p  | 4l)AE7*#*#*#*FX%h25X.*#*#*FX%h25XuK.*#*#*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%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*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%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#`*FX%h25XI*#*#*#*#*#q*FX%h2 5XI*#*#*#*#*#z*FX%h2 5X@*#*#*#*#f*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*#*#*#*#*#*#q*FX%h2 5XR*#*#*#*#*#*#z*FX%h2 5XI*#*#*#*#*#f*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#Q*FX%h2 5XI*#*#*#*#*#R*FX%h2 5XI*#*#*#*#*#S*FX%h2 5XI*#*#*#*#*#T*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#Q*FX%h2 5XI*#*#*#*#*#R*FX%h2 5XI*#*#*#*#*#S*FX%h2 5XI*#*#*#*#*#T*FX%h2 5X@*#*#*#*#*FX%h25X$p 4 kk\!p 4 `>1` l`Y=_"l` 1`@*#*#*#*#*FX%h25X:8NXX`MH@ *#*#*#*#*#*# #*#\*F%h2\6X*#*#*#*#*#*F:8NXX`MH@ :(L%h2 6 XL*#*#*#*#*#*F:8NXX`MH@  L:(<%h2 6 XL<*#*#*#*#*#*F:8NXX`MH@  L:(<%h2 6 XL<@*#*#*#*#*FX%h25X3a@*#*#*#*#*FX%h25XI*#*#*#*#*#Q*FX%h2 5XI*#*#*#*#*#R*FX%h2 5XI*#*#*#*#*#S*FX%h2 5XI*#*#*#*#*#T*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#Q*FX%h2 5XI*#*#*#*#*#R*FX%h2 5XI*#*#*#*#*#S*FX%h2 5XI*#*#*#*#*#T*FX%h2 5X@*#*#*#*#*FX%h25X!p 4 d>18 l8Y=e"l8 18@*#*#*#*#*FX%h25X:8NXX8MH@ *#*#*#*#*#*# #*#\*F%h2\6X*#*#*#*#*#*F:8NXX8MH@ :(L%h2 6 XL*#*#*#*#*#*F:8NXX8MH@  L:(<%h2 6 XL<*#*#*#*#*#*F:8NXX8MH@  L:(<%h2 6 XL<@*#*#*#*#*FX%h25Xg@*#*#*#*#*FX%h25XI*#*#*#*#*#Q*FX%h2 5XI*#*#*#*#*#R*FX%h2 5XI*#*#*#*#*#S*FX%h2 5XI*#*#*#*#*#T*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XYC4C+p  | 4l)4hC46+p  llY=/.i l4Y0hN+p  l>FX `146X,i`+p  ll4*F>FX `146X l4Y0iI*#*#*#*#*#*FX%h2 5Xi[*#*#*#*#*#*#l4*#*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*# *FX%h25XI*#*#*#*#*# *FX%h2 5XI*#*#*#*#*# *FX%h2 5XR*#*#*#*#*#*# *FX%h2 5XI*#*#*#*#*# *FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X h2clpz$   lml'''   l# *#  , l*FX 2)6XHmL4 p4l8ht``\lhXL<__dFEl CtK/Epz p X  X4l5X't@(8%c%lX34h5X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#^*FX%h25XI*#*#*#*#*#_*FX%h2 5XR*#*#*#*#*#*#`*FX%h2 5X[*#*#*#*#*#*#*#q*FX%h25X[*#*#*#*#*#*#*#z*FX%h25XR*#*#*#*#*#*#f*FX%h2 5XR*#*#*#*#*#*#{*FX%h2 5XR*#*#*#*#*#*#l*FX%h2 5XI*#*#*#*#*#m*FX%h2 5X@*#*#*#*#n*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#p*FX      !"#$%&'()*+,-./0123456789n<I>?@ABCDEFGH;JKLMNOPQRSTUVWXYZ[\]^abcdeghijklm`pqruvwxyz{|}~%h2 5XI*#*#*#*#*#q*FX%h2 5XI*#*#*#*#*#r*FX%h2 5XR*#*#*#*#*#*#s*FX%h2 5XI*#*#*#*#*#t*FX%h2 5XI*#*#*#*#*#u*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X$p ( @k!p ( $>1 lY={ 0p ( lcx 7*#*#*#*FX%h25X@*#*#*#*#*FX%h25Xr*#*#*#*#*#kp ( 0l*#*FX%h25X/kp ( 4l3/sr*#*#*#*#*#kp ( 4l*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X d+ 7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*# *FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X$p 4 kT !p 4 X>1!p 4 T>1!p 4 \>1lY=lY0 lY=W K!lp @ 4"k!lp @ 4"k)U +''':H#NXX 6X8:H!NXXl $6 Y6X8:H!NXXl $6 Y6Xlc7*#*#*#%*FX%h25X@*#*#*#*#&*FX%h25XI*#*#*#*#*#'*FX%h2 5XI*#*#*#*#*#(*FX%h2 5X*#*#*#*#*#*#)*#klp @ ("l*#**FX%h25X*#*#*#*#*#*#+*#klp @ ,"l*#,*FX%h25XI*#*#*#*#*#-*FX%h2 5XI*#*#*#*#*#.*FX%h2 5XR*#*#*#*#*#*#/*FX%h2 5XR*#*#*#*#*#*#0*FX%h2 5XI*#*#*#*#*#1*FX%h2 5X@*#*#*#*#2*FX%h25XW*#*#*#*#3*#kl*#4*FX%h2 5X@*#*#*#*#5*FX%h25XI*#*#*#*#*#6*FX%h2 5XI*#*#*#*#*#7*FX%h2 5XI*#*#*#*#*#8*FX%h2 5XR*#*#*#*#*#*#9*FX%h2 5X[*#*#*#*#*#*#*#:*FX%h25X[*#*#*#*#*#*#*#;*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#>*FX%h2 5XR*#*#*#*#*#*#?*FX%h2 5X[*#*#*#*#*#*#*#@*FX%h25X[*#*#*#*#*#*#*#A*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#B*FX%h2 5XI*#*#*#*#*#C*FX%h2 5X@*#*#*#*#D*FX%h25X7*#*#*#E*FX%h25X d ?lY0lY=,*!lp @ 4"k+''':HFNXX 6X lY="8:H!NXXl $6 Y6Xlc|"7*#*#*#%*FX%h25X@*#*#*#*#&*FX%h25XI*#*#*#*#*#G*FX%h2 5XI*#*#*#*#*#(*FX%h2 5X*#*#*#*#*#*#)*#lp @ ("l*#**FX%h25X*#*#*#*#*#*#+*#lp @ ,"l*#H*FX%h25XI*#*#*#*#*#-*FX%h2 5XI*#*#*#*#*#.*FX%h2 5XR*#*#*#*#*#*#/*FX%h2 5XR*#*#*#*#*#*#0*FX%h2 5XI*#*#*#*#*#1*FX%h2 5X@*#*#*#*#2*FX%h25XW*#*#*#*#3*#kl*#4*FX%h2 5X@*#*#*#*#5*FX%h25XI*#*#*#*#*#6*FX%h2 5XI*#*#*#*#*#7*FX%h2 5XI*#*#*#*#*#8*FX%h2 5XR*#*#*#*#*#*#9*FX%h2 5X[*#*#*#*#*#*#*#:*FX%h25X[*#*#*#*#*#*#*#;*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#>*FX%h2 5XR*#*#*#*#*#*#?*FX%h2 5X[*#*#*#*#*#*#*#@*FX%h25X[*#*#*#*#*#*#*#A*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#B*FX%h2 5XI*#*#*#*#*#C*FX%h2 5X@*#*#*#*#D*FX%h25X7*#*#*#E*FX%h25X d|,7*#*#*#%*FX%h25X@*#*#*#*#&*FX%h25XI*#*#*#*#*#G*FX%h2 5XI*#*#*#*#*#(*FX%h2 5X*#*#*#*#*#*#)*#lp @ ("l*#**FX%h25X*#*#*#*#*#*#+*#lp @ ,"l*#H*FX%h25XI*#*#*#*#*#-*FX%h2 5XI*#*#*#*#*#.*FX%h2 5XR*#*#*#*#*#*#/*FX%h2 5XR*#*#*#*#*#*#0*FX%h2 5XI*#*#*#*#*#1*FX%h2 5X@*#*#*#*#2*FX%h25X@*#*#*#*#I*FX%h25X@*#*#*#*#5*FX%h25XI*#*#*#*#*#6*FX%h2 5XI*#*#*#*#*#7*FX%h2 5XI*#*#*#*#*#8*FX%h2 5XR*#*#*#*#*#*#9*FX%h2 5X[*#*#*#*#*#*#*#:*FX%h25X[*#*#*#*#*#*#*#;*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#>*FX%h2 5XR*#*#*#*#*#*#?*FX%h2 5X[*#*#*#*#*#*#*#@*FX%h25X[*#*#*#*#*#*#*#A*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#B*FX%h2 5XI*#*#*#*#*#C*FX%h2 5X@*#*#*#*#D*FX%h25X7*#*#*#E*FX%h25X?lY0lY057*#*#*#%*FX%h25X@*#*#*#*#&*FX%h25XI*#*#*#*#*#J*FX%h2 5XI*#*#*#*#*#(*FX%h2 5XR*#*#*#*#*#*#K*FX%h2 5XR*#*#*#*#*#*#,*FX%h2 5XI*#*#*#*#*#-*FX%h2 5XI*#*#*#*#*#.*FX%h2 5XR*#*#*#*#*#*#/*FX%h2 5XR*#*#*#*#*#*#0*FX%h2 5XI*#*#*#*#*#1*FX%h2 5X@*#*#*#*#2*FX%h25X@*#*#*#*#I*FX%h25X@*#*#*#*#5*FX%h25XI*#*#*#*#*#6*FX%h2 5XI*#*#*#*#*#7*FX%h2 5XI*#*#*#*#*#8*FX%h2 5XR*#*#*#*#*#*#9*FX%h2 5X[*#*#*#*#*#*#*#:*FX%h25X[*#*#*#*#*#*#*#;*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#>*FX%h2 5XR*#*#*#*#*#*#?*FX%h2 5X[*#*#*#*#*#*#*#@*FX%h25X[*#*#*#*#*#*#*#A*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#B*FX%h2 5XI*#*#*#*#*#C*FX%h2 5X@*#*#*#*#D*FX%h25X7*#*#*#E*FX%h25X?lY=lY=?+''':HLNXX 6X7*#*#*#%*FX%h25X@*#*#*#*#&*FX%h25XI*#*#*#*#*#J*FX%h2 5XI*#*#*#*#*#(*FX%h2 5XR*#*#*#*#*#*#K*FX%h2 5XR*#*#*#*#*#*#,*FX%h2 5XI*#*#*#*#*#-*FX%h2 5XI*#*#*#*#*#.*FX%h2 5XR*#*#*#*#*#*#/*FX%h2 5XR*#*#*#*#*#*#0*FX%h2 5XI*#*#*#*#*#1*FX%h2 5X@*#*#*#*#2*FX%h25X@*#*#*#*#M*FX%h25X@*#*#*#*#5*FX%h25XI*#*#*#*#*#6*FX%h2 5XI*#*#*#*#*#7*FX%h2 5XI*#*#*#*#*#8*FX%h2 5XR*#*#*#*#*#*#9*FX%h2 5X[*#*#*#*#*#*#*#:*FX%h25X[*#*#*#*#*#*#*#;*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#>*FX%h2 5XR*#*#*#*#*#*#?*FX%h2 5X[*#*#*#*#*#*#*#@*FX%h25X[*#*#*#*#*#*#*#A*FX%h25X[*#*#*#*#*#*#*#<*FX%h25X[*#*#*#*#*#*#*#=*FX%h25XR*#*#*#*#*#*#B*FX%h2 5XI*#*#*#*#*#C*FX%h2 5X@*#*#*#*#D*FX%h25X7*#*#*#E*FX%h25X7*#*#*#N*FX%h25X6+Op  llY=/@z*#*#*#*#P*#+Op  ll*#Q*FX%h25X@@*#*#*#*#R*FX%h25X@*#*#*#*#S*FX%h25X7*#*#*#T*FX%h25X7*#*#*#U*FX%h25X@*#*#*#*#V*FX%h25X@*#*#*#*#W*FX%h25X@*#*#*#*#X*FX%h25X7*#*#*#Y*FX%h25X7*#*#*#Z*FX%h25X@*#*#*#*#[*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#\*FX%h25X7*#*#*#]*FX%h25X.*#*#^*FX%h25X#*#_*FX%h/5X h2clpz$   lEl'''   l# *#  , l*FX 2)6XEX@ plhtHXl CtKpz p X  X4l5X't@(8%c%lX34h5X#*#`*FX%h/5X.*#*#a*FX%h25X.*#*#b*FX%h25X7*#*#*#K*FX%h25X7*#*#*#L*FX%h25X7*#*#*#M*FX%h25X.*#*#c*FX%h25X.*#*#P*FX%h25X7*#*#*#Q*FX%h25X7*#*#*#R*FX%h25X7*#*#*#S*FX%h25X7*#*#*#T*FX%h25X.*#*#U*FX%h25X.*#*#d*FX%h25X7*#*#*#Q*FX%h25X7*#*#*#R*FX%h25X7*#*#*#S*FX%h25X7*#*#*#T*FX%h25X.*#*#e*FX%h25X.*#*#f*FX%h25X.*#*#g*FX%h25X7*#*#*#&*FX%h25X@*#*#*#*#J*FX%h25X@*#*#*#*#(*FX%h25XI*#*#*#*#*#K*FX%h2 5XI*#*#*#*#*#,*FX%h2 5X@*#*#*#*#-*FX%h25X@*#*#*#*#.*FX%h25XI*#*#*#*#*#/*FX%h2 5XI*#*#*#*#*#0*FX%h2 5X@*#*#*#*#1*FX%h25X7*#*#*#2*FX%h25X7*#*#*#I*FX%h25X.*#*#h*FX%h25X#*#i*FX%h/5X h2clpz$   ll'''   l# *#  , l*FX 2)6X4plht8 XDl CtKpz p X  X4l5X't@(8%c%lX34h5X#*#o*FX%h/5X.*#*#b*FX%h25X7*#*#*#K*FX%h25X7*#*#*#L*FX%h25X7*#*#*#M*FX%h25X.*#*#c*FX%h25X.*#*#p*FX%h25X.*#*#q*FX%h25X#*#r*FX%h/5X#*#s*FX%h/5X.*#*#t*FX%h25X7*#*#*#u*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#`*FX%h25XI*#*#*#*#*#q*FX%h2 5XI*#*#*#*#*#z*FX%h2 5X@*#*#*#*#f*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#v*FX%h25X.*#*#w*FX%h25X7*#*#*#a*FX%h25X7*#*#*#b*FX%h25X@*#*#*#*#K*FX%h25X@*#*#*#*#L*FX%h25X@*#*#*#*#M*FX%h25X7*#*#*#c*FX%h25X7*#*#*#P*FX%h25X@*#*#*#*#Q*FX%h25X@*#*#*#*#R*FX%h25X@*#*#*#*#S*FX%h25X@*#*#*#*#T*FX%h25X7*#*#*#U*FX%h25X.*#*#x*FX%h25X.*#*#y*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#`*FX%h25XI*#*#*#*#*#q*FX%h2 5XI*#*#*#*#*#z*FX%h2 5X@*#*#*#*#f*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#z*FX%h25X.*#*#{*FX%h25X7*#*#*#|*FX%h25X@*#*#*#*#Q*FX%h25X@*#*#*#*#R*FX%h25X@*#*#*#*#S*FX%h25X@*#*#*#*#T*FX%h25X7*#*#*#}*FX%h25X7*#*#*#~*FX%h25X.*#*#*FX%h25X#*#*FX%h/5X h2clpz$   l=l'''   l# *#  , l*FX 2)6XD4plht8 Xl CtKpz p X  X4l5X't@(8%c%lX34h5X#*#*FX%h/5X.*#*#*FX%h25XC+p  | 4l)'.*#*#*FX%h25XC+p  | 4l).*#*#*FX%h25X.*#*#*FX%h25X#*#*FX%h/5X#*#*FX%h/5X.*#*#V*FX%h25X.*#*#W*FX%h25X.*#*#X*FX%h25X#*#*FX%h/5X*FX%h5X h2clpz$   ll'''   l# *#  , l*FX 2)6X*#4plht0 XLl CtKOpz p X  X4l5X't@(8%c%lX34h5X*FX%h5X#*#*FX%h/5X.*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X#*#*FX%h/5X#*#*FX%h/5X#*#*FX%h/5X.*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X#*#*FX%h/5X*FX%h5X *FX%h5Xcl h2pz$   ll'''   l# *#  , l*FX 2)6X4plht4 Xl CtKpz\  \4p5\\  \4l5\:L%p(L%p p(L%pt@p:L%l(L %l ll @p p2cpt@(<%l l2clpz$$ ((  l$(l'''$ ((  l$#  *#  , l*F\ 2 )(6\*0lpt0 (\ l CtKpz"tM\@ #XY0/Xd+'''(:\NHH 6H('H pn5Hltkn] kn^"kn^pknpY_pkn='lt*FH #XY=/X5H$lt*FH 5Hltlt*#X/X'H pn5Hltkn] knpkn=lt*FH 5Hpz$   ll'''(   l#X *#  , l*FH 2X)6H( 4pt: XH(\l CtK ltY0%YCxtMd@ EYCxltC` 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`0ltCxYCx$X \\  lX\Vl'''(X \\  lX#T *#HL PP , lL*F8 2THL)\P68(\0`x`t0 TLH\P8(z     *` (-` (- ` (- ` (9- ` (a- ` (- `)nrU \$ `$A `$\R0*#23*\R0*#1d*\R0*#1e$*\Rffff*2o50cc4c24*\R0*#2*\R0*#1$*\Rffff*3=50cc595c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#1b$*\Rffff*2z50cc591a*\R0*#1b*\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*#2648<@DHLP  8 "X @t~:ٹX2|S~J7*1*+gD=OB)\XB|׸I { [G nbx { [G nb2|S~J7*1MEt@SPSSS"p( >"""  "LL"PLLL`< R `0 k 33i   nh 8% d@%`(` [ Tx% ] `P>%`$`%( %@@%%x@ B D F H J L @Pl @h\ @X `N .*&@T @ P @L @8H @D @4 @$ @ @ @ xX 0HHN @N hl  `h@\ @Z @@ @0 @8 (@ @p H@ p @P  @ B D .*&p-@  @ @  @ @h @ @ R  8 P h @ B D &R @ x @ h @ X @ H @ D (@ 4 @@ $ @  @(  @ X@X @@ @p @ @ @ .*@ @  @  @ ^H @ h P 8  HR @R l  @X\ @Z @@ H@ 0 h@ @ @  @ 0 @ @ B D .*& '@p @ @ @ @ @ 5@ B r^@x @v @d @T x*&N .@x @h @X @0H 8@H8 @`( @ @ @ @ @@ (@ @ @  @ B D @l @h @d @T %@R `\ 0RYP$*\Rffff*3150cc4c24$*\Rffff*3<50cc595c*\R0*#1c$*\Rffff*0a50cc4c84$*\Rffff*0`50cc4c84*"    (66(<`4,,  8@ H $Pl` "  EHPX `$p   $l "  B,+Hx   4$*6- PX`$h* B- $* B-0x $  *F< @P X *+`   $* R< @PX,+`  $* R< H X ` ,+h         $ l   "  Z $        "   $(  @ P $X  p      $    $       ( B 0 8 @  H X  ` p x *    # #    &    8  &H h     (&      & ( 8@(&H p  &    $l @ HB P X ` hx * ## &  @ &Xx (&  &  (&( P &h    $l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H (݂`FbN܂B !@ (&Ƌlf[^x[XƂ‚킹܂B !B (&㗝lf[^x[XƂ‚킹܂B !D (,f[^`FbNŎWf[^j܂B !F ( $ׂĂ̍ڂ`FbNE܂B !H (f[^`FbNI܂B !J (f[^`FbNJn܂B !L (A@N |  .!0 .!0 * .!2A@&kxop@ `*f[^`FbNŎWj܂B *:f[^`FbNɃf[^CꍇɎsĂB W̃NA$& |k].n n!z!,|pkhA@N |X P .!0 .!0 * .!2A@&ko  !@ !r !B !r !D !r !ŝ1‘IłBA@& |kx].n F.`FbNĂ鍀ڂf[^`FbNɂ n!z!6|k !@ !rFf[^`FbNݶ n!z%|kk !B !( !B !rf[^`FbNƋl̂‚킹 n!z%|kkk !D !( !D !rpf[^`FbN㗝l̂‚킹 n!z%|kxkpkh n!z!<|Hk@A@R f[^`FbNJn !@ !rNݕ`FbN܂B ݂̃`FbN$&  ز|k ݂̃`FbNI܂BA@&  !@ (rA@R kPkH !B !( !B !r6&Ƌlf[^x[XƂ‚킹܂B Ƌl̂‚킹$&  |k"Ƌl̂‚킹I܂BA@&D !B (rA@R kPkHk@ !D !(F !D !r4&㗝lf[^x[XƂ‚킹܂B 㗝l̂‚킹$& x |k"㗝l̂‚킹I܂BA@&< !D (rA@R kHk@k8|0 ( .!0 .!0 * .!2A@&koSuf[^x[XƂ‚킹vvisiblêƂ́AuǗ҃j[vĂяoꂽ !B !(X A@r‚܂  B@d8 A@r‚܂  ^B@ko@ ! !@ (r !B !( !B (r k !D !( !D (rkx (d` !@ (r !B !( !B (rk  !D !( !D (rk (<ko ].n].] '   n!J%X kX]8]X$.Z $.\ ]x]  \ !  \ % !@ (f !@ (r  Z %ς !@ (fp !@ (rkhk`  \ %Ƌl̂‚킹 !B (f8 !B (r  Z %ς  !B (f !B (rkk  \ %㗝l̂‚킹 !D (f` !D (r  Z %ςP !D (f !D (rkk z  .!0 .!0 * .!2A@&ki ].n](.`]H'   n!J%X k8]`]$.Z $.\ ]]  \ !  \ %B !@ (f   Z %ς !@ (fkhk`  \ %Ƌl̂‚킹 !B (f`  Z %ς  !B (f.kk  \ %㗝l̂‚킹 !D (f  Z %ς8 !D (fxkXkP  ^z8 0 .!0 .!0 * .!2A@&k i Attribute VB_Name = "f[^`FbNj@[" Bas0{0E96C3DB-B7@9F-47AEC7-2D6FAB549E81}{F1FC0BC3-4112-495D-93F0-BBDE4A5@80E6F} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD' ЃnC p_ ' Copyright (c) HyperDyne Inc. All reser;.http://www.hd.co.jp/webmaster@ Option vlicit P35 Sub UForm_Initialize() @@rror GoTo ErrMes Me.TagX1D ݂.ControlTipText@ "܂BƋl CxQXƂ‚8 . cmd`Clear+ނŎWBjFheckׂĂ̍`E l`?I¹Exec_`JnLIS etQExitSS N:KIf!Q.Number <> 0 ThenBGsgBox& vbC rLf &De0scri"cEnd If !@cd7_ChkAdUc 5 Mb(,;; _A!LeCC)ꍇ@Ɏs@i,YesNoX, "K"̠A") qvbNo,(+0#Dim cP As clsPa8`= NewL!cP.INI.b` _2ACsC a2C#`Q ECd`?D !De.ValuFAA?.],55"&̂1‘IŸ'1$6$s$&'Ee@.NNZЖɰPG(ReaF?(Gᅼ B@"@9 81Q |9Q1 "ƒsVisi P &x/S q?oҦ~̷}/*^%V2!&S1g_(k p*-A \#%$# a>v'JA>UColorS'lu\ 0[? &mC@rLf & ADescripti>oDER@[Pr ivateA^ cmdClose_Click()<'uv$vò́AuǗ҃j[ Ăяo8ꂽC:@cyUnload݀'‚".ShDowKMods:s E@G  =yUe x.heckg.#"Tag@g?e.``FbN.Vhg_+' ?4 xߣۣxr#` -1'Av.....ҏҿ.?f \.{fFu nc!Form! Onor GoToADim cP As clsPape= NewL!myAlSs :msStringes@="""cP.Page.C@0r(, s?AwX` It$emO KeyB 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#1r"OOrOrOr^sOrd6bq]cb7OrQqaOrOrOrPaOr297*O im myCKey As Collection D SetI`tem =$|(1)  B2BN DiInte(ger*kFor kp1 Tou\.Count34If(k)."" The*Me.`FbN. ee5= &HxFF&.0..10#280124End If uƋl̂‚킹{f[^"xX?BA?[Femā㗝F FhFNext kÔExit Fun ErrMes: c`L .Numbe@r <> 0hM@sgBox & vbCrLf &Descri~pX` \A__SRP_bf __SRP_a[*.O0000000Ata__SRP_23aQ)%*$+($ 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 dC`*Z`d\h L\ \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 dC`*Z`d\h L\ \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 P@LHD(kx*hx x hcX]3x5h-x 4x xkx$x x kxT*hx x hcX]3x5hR-x 4x xkxP$x 4x kx} h 5h*hx x hcX]3x5h]<''4:$NHH:XNhh^rU h/!6+i66)77 8Y8+$ $iQ$ qQXsI91:1:q; <!a<A  #9899+a++++4I6+8I6 ,<I6Y, @/),`I  D/),`   H/),`  L/) -` P 7 17`  d W    W  KFl%,/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''(:X,NHH- *#x.*Fh^ /x6hH(O $ 4 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 4x kx*hx x hcX]3x5hL-x 4x xkxJ$x x kx*hx x hcX]3x5h-x 4x xkx$x x kxT*hx x hcX]3x5hR-x 4x xkxP$x 4x kx} h 5h*hx x hcX]3x5h]<''4:$NHH:XNhh^ 6hH4[ +''4'H:X Nhh 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)xD6hH4e(DxDhH4$vx x kvxYlx%$& 'xd%($)lx%$& 'xd `$ `$ `(A `/( `/nrU #$#`$A#`$#`$#`$#`$A#`3<50cc595c$*\Rffff*3F50cc4c24*\R0*#1d*\R0*#1e$*\Rffff*0`50cc4c84$*\Rffff*3050cc591a*\R0*#2*\R0*#1$*\Rffff*2u50cc4c24$*\Rffff*2z50cc4c24*\R0*#11$*\Rffff*0[50cc4c84$*\Rffff*0450cc4c84*\R0*#f*\R0*#12*\R0*#23$*\Rffff*3150cc4c24$*\Rffff*0O50cc4c84$*\Rffff*2z50cc591a*\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*3=50cc595c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Mio( f /   %.0S`hOx9`H%"CTB՚D2'wq>H / 9x2'wq>H / 9`hOx9`HMESPSSS "p">" "" ""L" "LLLLLL"LLLLLL <<<<<<<<<<<<<<<<0{D7951EDE-632C-4BA5-8603-F9C89A1A600B}{BA9AD5A2-D594-44C1-8BE3-BB7FDAF8AF92}  @`k  `k & `0 k / 8` k8 nxT %`lǗ `` k%%U nx!%`$p `l8  ``kz` ``hk `X@k .. nxD%`t P%`L "`hk"" Dh % n<% . `k  n% 80 `Pk  :p `Pk  < `Pk  + > `8Pk$ 8 %H  %p@ `80%^%p@ `80 n\x%`8hRT>@Px @t @@d @` j.*&@@(L @H @D @@ @< @X, @p @ @ @ X p @  @@ x @ h @@ X @ H @D @ 4 (@$ @  @   @@H x @0 h @@x X @` H @D @ 4 (@$ @  @   ` x @ t @r @ h *&.@@ d @ T @ D @8 4 @P $ @h  @  @ @ (@ @ @ xp0@0t @r @h @f  @d ` @H` *&.@H\ @L @< @, @ @ @ @@ (@ @ @ 0H *&.@@xx @`h @@X @H @D @4 @@$ @ @ @8 @ (@ @P @  P8.*&@@x @hh @X @(H @D @@ (@< @8 @4 @$ @@ @ @ p & @(d @@T @XD @4 p@$ @ @ @ @ @ @@` @0 @H @x X@ @@t @p @8l @Ph @X @T @ .*@J @D @@ pP 8PX*& H.@@px @hh @X @H @B @8 @4 @0 @ @( @@ @ @ @ @ @p0`(*&.@@Xx @t @d @T @D @4 @$ (@H @ @x @ @ (@ @ @ x`HRTr@l @h @d @T @P xRTr@l @h @d @T @P RTr@l @h @ d @T @P  @ RTr@l @( h @` d @T @P @  (RYP$*\Rffff*0a50cc4c84$*\Rffff*crosoft Forms 2.0 Object Library*#41*\R3*#4e*\R3*#4d*\R3*#8c*\R1*#c6*\R1*#c1*\R1*#17b$*\Rffff*0N50cc4c8448W<@XDHZLPTXP\Q`dUhRlptxY|TSE  8 "X "  ?BB? "(P   ` hx  $l " ,[@PXh p"x ,[ "    .*( 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 "  ?0?H `p?x? " ?? (?0?H`x " ?? ??0 8"@ H?X?p ?? 0 ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H R !6%((d R !6%(d R !6%( T !6%((Ӂ@Ǘ҃j[ɂ > !(hA@ !( !(( !(( !(r !j(r|@ 8 .!0 .!0 * .!2A@&ko@ !!r !!rݷ !( d !(!ko !!r !!r! !(d8 !(k o ].n ! n!zB@6Z ]  y[W\ y[W\ n!z%'! '\ y[W\ y[W\  * % n!z%"y[W\ۑł܂łBA@&D (|k n!zB@d  * %' k  !(d|  .!0 .!0 * .!2A@&kho`8 P5-----------------------------------------------------4y[W̌5-----------------------------------------------------t$݂̎ۂ̃y[Wo璲ׂpu]x.nv n!JB@60]] $ n!J!N N $ n!J%'d  * $ n!J%'(k $  n!zB@6 y[W\ y[W\  * % n!z%"y[W\ۑł܂łBA@&z|0k( n!zB@  !(dɏI܂BA@&|  .!0 .!0 * .!2A@&ko  !!r !!r Vuo^\ƂĐݒvuo^\ƂĐݒv̂ꂩ`FbNĂB *>łɑ㗝lsĂꍇɂ́AsKv͂܂BA@&|k] !!r o^\'kP !!rزo^\'k $|k|  .!0 .!0 * .!2A@&ko  B@ȵ !B (( !B (r !D (( !D (r  B@|8 0 .!0 .!0 * .!2A@&ko`  eLXgt@Cw肵܂B].n]$$$$00$$$00$.txt' !"  n!T%' &eLXgt@Cw肳Ă܂BA@&|k  n!T%   n!T% eP A@ dt@Cgp̂悤łBA@&|PkH !!r@].8] %'   %|k ! !re $|kkI܂BA@&|x p .!0 .!0 * .!2A@&k8o0   !!r]P. !H|k]p.n`systemׂď> n!z!\D|xkp Me._Click:  "eLXgt@Cǂݍ݂܂B *LȂ炸f[^`FbNsȂŁA㖳exɂMB *L\Ăꍇ́AۑĂIAxJĂBA@& ! !re H(eLXgǂݍ݂ŃG[܂BA@&p|kk|  .!0 .!0 * .!2A@&ko >Wordt@Cɂ邷ׂẴtB[h̃bN܂B *2f[^`FbNŏsȂ΂Ȃ܂Bs܂H mF$& *|k].nN n!!0N|k n!z!,|`kXbN܂BA@&|0 ( .!0 .!0 * .!2A@&ko !( R !6%(( T !6%(( A@r d T !6%(( R !6%(( A@r‚܂k8o00 !( R !6%(( T !6%(( A@rd  R !6%(( T !6%(( A@r‚܂k ox p !( R !6%(( T !6%(( A@rSd  R !6%(( T !6%(( A@r‚܂k o  !( R !6%(( T !6%(( A@rd`  R !6%(( T !6%(( A@r‚܂k o ]`.n n!zB@^ Attribute VB_Name = "[Uj@[" Bas0{D7951EDE-632C-4BA5-8603-F9C89A1A600B}{BA9AD5A2-D594-44C1-8BE3-BB7FDAF8AF92} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' Ѓn(Cp_ ' Copyright (c) HyperDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit Pgk Sub UForm_Initial`ize()B @ rror GoTo ErrMes Word.ActEDocument.CommandBars(BcAMenup).Visii`Leftp100D TopjApdmin0ĉ!'Ӂ@Êɂ Me.oW.Cab= cVERSIONETDim cP As clsPaSet= NewcP.INI.SearchTextBoxq PagJF"s1.Enayข炷6d@t op`Method.Valut?Multi1;ExitSK#O:%IfaQ.Number <> 0 Then3cBsg!& vbCrLf &Descri1End Ifb  b+dgo^\_Changd!@j _Or ' Ke.7)Eaa 8=?#?. ? V?q[<de*8ttReadgsA}SngFs$zGete("Br\"~,  a O""l`>`!f> , @VBA.Repc0e(s,44`x")) bAaM8 ۑł܂B W?9 avM/a\ "  D A2txt1H.TP 0nHHmH KeJH3HHubz"zЏ_Ck?*y'-#('&𐔂!D݂Hۂo)璲ׂ5s9o/ 5i5Integers6Y ico.ACount - 1_6bB!'p;(i& *sh6i*N ~ iupPP 40CC=r=uxH==[=? <88%EɏI$0GD;;p8:dI w; `σCV؃ARY U"u Đݒ0vu@@;`FbN\ a O"_ɑ㗝l 鏈ꍇ́ARKvbJb$CSQ>myShinse2@u0 Oχ7 kY,Vrok?Щ S(׶_x i  ErrMes: If x.Number <> 0 Th enpMsgBox & vbC rLf &*DescriptiojEnd If  Sub Private  f[^`FbN_Click().ne.Hide *j[.Ƌ(lxOXƂ‚킹.Visible = Fals?Nalu#&㗝M!'MShowMod elessXExitekEeLXgHIOnor GoTo(C't@Cw肵 ܂B Dim cP As clsPaperSet= N ew myTe0xtFiSt0ringH= Year(Now())Format(MonthD, "00"Day".txDt"cP. ."Save(ThisDocument.Path,~ $ՁsJ+"J"}"M))@Ă)B$ 'H/a&gs(Lo`~)t2E@vKill(  #"EEgp̂悤E A Me.opFMethod.VDqTr˨BOTDOA8{OT@ OsNs cT.GetDataM?!Da(T.`WriteBg., s.£,A:";4Old+@_NE;I"FU'H0䕓c&N$NO;'%InputE%&"s W 20P@40Y'systemׂď0 P.@INI.Cl`XAP@-   '@@3hgCfǂ0QC' _gQX"炸"sp`HŁAexɂMྂ-"\[ꍇ́Ap\aԑ2 C3xJPĈ ?O o$^ FG[蔭 @ =1(O @AU@tH ̃!p.// sp ("Wordnp3@tBh "$(,& "*ŏ#p++`&pF3)H", vbYesNomF= No!{ucOEsE֞.UnqMR%SG )(c /kqԟk۟k۰uSaە‚1)Ǘ.V' ).A ctiveCommandBar@s(cUsePnuName)@t.zAdminMeA 3Unload MANOOOQ_C 0'?5 &2_Click()  If ҃j[.Visible = True ThenWord.ActiveDocument.CommandBars(cUserMenuName)AFalse(GApdminHGUnload MZE+dV1yU zV'€܂eEnd IfSub Pr@ivate  3 7D?o_?oC?o o4?o77?o@?o߄τ7窍?oA ?o&o2D<@)xt6L, p((\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 4 t t*htx 4 t t >h1lt ll0ClWll 1dr>d#htx 4 t x kr2hdt+'''$:TNDD 6D$rtx 4 t t3"ll 1lllt  t ht$ tt ltl'''$ tt l#h*#d  ,ld*FD 2hd)t6D$,xl0 hdtD$pK xrtx L t Dt0phtx L t $lhtcd ll0%`kptx L t (>`1lt7ll*#\`kptx L t (l`*1l2\`t pdd[rtx 4 t tWll 1\r>\#`tx 4 t x kr2`\tu+''':LN<< 6<rtx 4 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)xD6hH4N (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 "I 1'%Y%-!.Y aqa qY $ $iQ$ws1YuIQ))*qFF.x + HYIIyH.H( .0)/ C/50Q12?)3QE 44!E!5 A~ 1Y~40i0 8/)0 `# </)0WWW `Q#@ 414 D/)2XXX `I#H0iY2LA0Ii0ZZZ P/)y4` # T/)Q4`# X/)15 `#\0i'PPP `/)I5QQQd0i1 h/)5UUU `# l/)q5RRR` # p/)2`I#tI1BxI1q2|A0I)6YYY /)5TTTA0I2`I#A0I)3`# /)/`#55SSS 717` #u##W###W####W####_#pK?`: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\ 4 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< 4 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 $ X  $Bk$ 4  k+''$'D:TCNdd 6dD$$  lul''$'D  l#x*#t  ,lt*Fd 2xt)6dD$|(0 xtdD$PD$Eal.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G HhK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G Hh,P$ hdPlPD$Eal.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G HhK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G Hh,P$ hdPlPD$Eal.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G HhK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G Hh,P$ hdPlPD$Eal.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G HhK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlhF$G Hh,P$ hdPllpTP D h 8 X <o__SRP_224Hzv0000)q__SRP_4b>__SRP_4aydY$#`$#` $#`$A# `$# `$# `$ # ` $I# `$nrU JQE|i!EQ$ q!Q} .Caption = "Check if over 21"' End WithDebug.Print myShape.Name Next myShape Dim myControll As Control9 For Each myControl In Word.ActiveDocument.FormsDesign' If myField.Enabled = False Then" myField.Enabled = True End If Next myControll1 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") J 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() ;'' If myShapes. Like "Check*" Then myCheckBox.Delete !' Debug.Print myShape.Name Next iDebug.Print "ok"o@ FWordt@Cɓ͂ꂽׂ̂č폜AׂĂɖ߂܂B *s܂H mF$& |Hk@].n n!B@` tH[𔒎ɖ߂܂BA@&|  .!0 .!0 * .!2A@&ko ].n n!zB@\|` X .!0 .!0 * .!2A@&k o A@r‚܂  B@oAttribute VB_Name = "J҃j@[" Bas0{6D2F069E-C3A0-44DD-B0BA-7B463CDCFC5B}{D2CB668D-41BB-4DF3-B4A5-74D79409D50B} 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 -^1HhQOcriB[aroVXeP  B[OCOǀ}@INI@nCoq&ooa oooIfq/1‚0b Unload Me0'r+0Ǘ~owѐ*ModXs]Q84*\R0*#23$ $A ww x1xw 4/)Yx`IK 8/)x`K </)A`K@ 7I17` K`KWKKK8$  8KE''(:XNHH*#x*Fh^/x6hH(O  X (+''('H:XNhh 6hH($   l3l''('H   l#x*#  , l*Fh 2x)6hH( tb X޸Hʼn=$Ky'9@E G+NJKzE#5+8ZK {x5+8ZK {ʼn=$Ky'MEL@SPSSS"p6"" "L"1'%Y% q|-+A-q-!} I}modInitialize1__SRP_2e]0__SRP_2fEiclsAreaCode(o?(?@Xhpx R \8_8 :~p -  \ 60 ?h ?    $l B ( 0 8H X }`hp x @  @ 0 8 44@ x   $ l   B  @ 0 @H    @  @ ,C@ "+p   T     49 X  49p  .'  Tx 2IH 2I <    69P 69h0'  $l  (8 ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H !6!f  !6(f k !6!h % !6(h k]@.n n!j ! |k ݃ev[g n%!'" ( ݃ev[g n%(k8  DBo^ n%!  DBo^ n%(.Prik ݐiDBo^ n%!Prin ݐiDBo^ n%(k n! ! ꂽ'b"ciENbNJ̏ꍇj * n!!z |k0[NubNJꂽƂɊǗ҃j[J T !6%(( R !6%((  B@|d'bK==ENbNj[́uJv̏ꍇ폜===================================n!zU㖳{ExłȂp\RłuMY_FILENAME(.dot/.dotx)v𒼐ڊJ !6! ( !6! (x u (/ (/xvWord̃ev[gt@CɂȂĂ܂B *(ENbNj[́uJvgA *@Word́ut@Cvj[́uJvgĊJȂłB *HACRNbNi邢̓_uNbNjĂ̂܂܊JĂBA@& !6B@B|8d0 U㖳{ExłȂp\RŁuMY_FILENAME(.dot/.dotx)vQƂĊJ /QƂĊJꍇɂuDocument_OpenvȂ̂Œ R !6%(( T !6%((  ^B@|PkHk@|8 0 .!0 .!0 * .!2A@&ko` ].n n!JB@L' Wordt@Cu vpɐݒ肵܂B *@łWordt@Cɓ͂Ăꍇɂ͎sȂłB *2͂Ă̂̈ꕔ󔒂ɖ߂Ă܂܂B *s܂H mF$& zk]' :-------------------------- (yxMEt@"p> L"L""LL"" L""LL B](=C%Li?$>$B`5adCsCmyLoc m9@{= Bl.a'ciENbNJ̏ꍇjc C!DB.Database nectCheck0R"s'NHNuꂽƂɊǗj[QCondBars(cAdminMenu).VisiנF$aU vbModeles@?alufaj5 '=F=4"́u"v6폜='㖳{ExłȂp\RAuy( .dot/x)A𒼐@}7 @G5 f_A!Orr& "x͔!MsgBox "u"X & I /px%͡)tD@` "@ĂܠfB"M&`>CrLfa gĂA3 uvj  Y Aa@iuvj @ C;q CloUzQ1oBEZ11**r*?*8*Q 9r x*20Puu_ "ȰŒӿHDHa /xnt.M?Ijc VU#Iuq :.Numberqz0 03& v`bCrLf`SDescripAn'Y -!.  %& &>iA? @@Q$ #$ $QQECIC DD!E.qEEEF)FqFFF HyH9G GHaGYIGIGCK'vx$ 4x |kvxKx$ 4x x'vx$ 4x kvxx$ 4x x p$vxp px ,kvx6lx+vp x lll 0/lx#( x+vp x px1jx+v p x dkjx}'x+v p x hx1jx+v p x dkjx'x+v p x hx$vxp x  kvxz$vxp dx kvx+?P:T%dx$ 4x 0d HP )xdP?P:T%dx$ 4x 0d HP )xdPT%$z_lx$ 4x ll 0<d$ 4d l< *#802l<8)xd~''' *#l*#< *#8*#4*#0*#,*#(*#$*# *F 2l<840,($ 6-'''x$ 4x x6?P:T%dx$ 4x 0d HP )xdP?P:T%dx$ 4x 0d HP )xdPT%$ $ !xx "lxl''' !xx "l#l*#8< !dd ,"l<*F 2l8<)xd6 (pLl<840,($ xdPl CtK pjlp Ll T#lpz}'':,$N%lt*#d&*#`*#\'*#X*#T(*#P*#L)*F<^2d`\XTPL6<plt *4'''+lt*#d,*F< /d6<pz$ !ll "lll''' !ll "l#d*#\` ! ,"l`*F< 2d\`)l6<,pt@ d`\XTPLl<$l CtK$pz pC`dh+n-p h |d 4.l`)hd+''' :P/N@@ 6@ ltC l009dh+n1p h |d 8.)hd' l20'9dh+n1p h |d 8.)hd'h+n1p h hhx@ 3@ 4:05N :P6 7h+n8p h p/h6 @ I@ 3@ 9 h+n:p h p/h6@ I@ 3@ ; h+n<p h p/h6@ ltC l009dh+n=p h |d 8.)hd l209dh+n=p h |d 8.)hd'h+n=p h hhpz$` !hh "l`hl''' ` !hh "l`#*# !dd ,"l*F@ 2)hd6@ 4pt4 hd@ arU .$.`(.`(.`nrU @$`,A`!0,`% 0,`)90,`-900A` 1900` 54*\R0*#e*\R0*#19*\R0*#13*\R0*#9*\R5*#47*\R5*#45*\R5*#43*\R5*#42$*\Rffff*0Y50cc4c84*\R0*#f*\R5*#3f$*\Rffff*0N50cc4c84$*\Rffff*0_50cc4c844   8 "X  $ "   $08@HP'Xp$x  "6.  **0 `h.p  2* ,*@H P h6.                         ! " # $ % & ' b * + , - . [ 1 2 3 4 5 6 7 8 9 ) ; M = > ? @ A B C D E F G H I J K L : N O P Q R S T U V W X Y Z \ ] ^ _ ` a c ~ z e g h i j k v m n o p q r s t u d w x y { | } #00%>%"[A/<n^JB>*=h8+3q ~ϥAl9!x ~ϥAl9!n^JB>ME`@SS S"p) >"L "LLLLL"P "6:.@8.$"  6+ ( 0 8  8+P     +   $ l   B   ( 0  8 $H ` h p x      4 h BH $  8 H P X :` 4 v *0  $  8 @ PX%` $P(P   .8$,P x    $l B     ( 0$@X`hpx    4 b H@ U  $   % $P 0PH x  .$,   ( 0@ H $Pl` B     $  ( 0 4@ VxI$  :  $ l0P XB ` x   $   4 ^8I$h &:  $l( 0B$8 P X ` h$x   4  L0 (I$p dH0YpH@4Z  $l8 @B$H ` hp x$   4 T  0xI$x   lH !!8Y !xHX!!!<Z! " (" $0"l@"`" h" x" ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp y@z Dim cArea As New clsAreaCode%  ]@ .n0 n! ! ʕ'bd'b|k n!%'X]` X n!%']x]]\ҁiƋlj̏Z̊mFʕ  V n%!Li  V n%!' $'  ̏ZmFĂBA@&|k  Z n%!'   $ "̏ZtKimFĂBA@&|kkd ̏Z͂Ă܂BA@&|k㗝l̏Z̊mF󗓂̏ꍇ   n%!   n%!' $'  ̏ZmFĂBA@&|k  j n%!'   $  ZtKimFĂBA@&|`kXkPkH㗝l̏Z̊mF󗓂̏ꍇ   n%!   n%!' $'  ̏ZmFĂBA@&|xkp  ~ n%!'   $ "̏ZtKimFĂBA@&|kkkݔ̏uꏊ̊mF ݖݔ̏uꏊ n%! ݖݔ̏uꏊ n%!' ݖݔ̏uꏊR[h n%!' - $ %' ,ݔ̏uꏊR[hmFĂBA@&|k  $&ݔ̏uꏊmFĂBA@&|8k0k( ݔ̏uꏊtKi̊mF  ݖݔ̏uꏊtKi n%!  ݖݔ̏uꏊtKi n%!' ݖݔ̏uꏊR[h n%!' - $ %' ,ݔ̏uꏊR[hmFĂBA@&|k  $p .ݔ̏uꏊ̃R[hmFĂBA@&|pkhk`I܂BA@&|@ 8 .!0 .!0 * .!2A@&ko ']@ .n n! ! 'bd'bzkx]`]x.t ----------------------------------------------aSQLŎ擾f[^w@Z̐擪3Ŏs撬R[hiTM_AreaCodejA擾5SELECT DISTINCT rmkstationCenter.dbo.TM_AreaCode.ken ' FROM rmkstationCenter.dbo.TM_AreaCode 1 WHERE rmkstationCenter.dbo.TM_AreaCode.ken LIKE ' $ %' 'r r n!%x .t t !zk]ken t %| !r'z ----------------------------------------------pSQLŎ擾f[^w@TM_AreaCodeŌAs撬R[h̓s{s撬ƃR[hzɊi[WSELECT rmkstationCenter.dbo.TM_AreaCode.code, rmkstationCenter.dbo.TM_AreaCode.address ' FROM rmkstationCenter.dbo.TM_AreaCode . WHERE rmkstationCenter.dbo.TM_AreaCode.ken =' z ' 'r .t r n!%x .t ] t ! '~ ]] ~  d8 $ ~  code t %| !r $+daddress t %| !r $+d t B@ $(z̏ZV[g̏Z𕶎񌟍 $ ~    $$d $ $$d'yhk` $zH @ .!0 .!0 * .!2A@&ki@ 'p ] .n n! ! 'bd'bzk]].t ----------------------------------------------[SQLŎ擾f[^w@ZtKi̐擪5Ŏs撬R[hiTM_AreaCodejABs撬R[h̓s{s撬tKiƃR[hzɊi[ .SELECT rmkstationCenter.dbo.TM_AreaCode.code, 1rmkstationCenter.dbo.TM_AreaCode.addresskatakana ' FROM rmkstationCenter.dbo.TM_AreaCode > WHERE rmkstationCenter.dbo.TM_AreaCode.addresskatakana LIKE '  %%' 'r .t r n!%x .t ] t ! '~ ]0]H ~  d $ ~  code t %| !r $+daddresskatakana t %| !r $+d t B@ $(z̏ZV[g̏Z𕶎񌟍 $ ~   $$d $ $$d'p y k $z  .!0 .!0 * .!2A@&kx ip  P ']( .n n! ! 'bd 'bz k $&']H]`.t ----------------------------------------------PSQLŎ擾f[^w@s撬R[hiTM_AreaCodejAZ擾0SELECT rmkstationCenter.dbo.TM_AreaCode.address ' FROM rmkstationCenter.dbo.TM_AreaCode / WHERE rmkstationCenter.dbo.TM_AreaCode.code =' -$''r r n!%x .t t !z8 k0 t ! z k address t %| !r'z  .!0 .!0 * .!2A@&ki ' ] .n n! ! 'bd8'bz(k ] ]8.t ----------------------------------------------XSQLŎ擾f[^w@s撬R[hiTM_AreaCodejAZtKi擾8SELECT rmkstationCenter.dbo.TM_AreaCode.addressKatakana ' FROM rmkstationCenter.dbo.TM_AreaCode / WHERE rmkstationCenter.dbo.TM_AreaCode.code =' -$''r r n!%x .t t !zhk` t ! zHk@addressKatakana t %| !r' z  .!0 .!0 * .!2A@&ki   X '] .n n! ! 'bd`'bzPkH]]0.t ----------------------------------------------SQLŎ擾f[^wF͂ĂZs撬R[hőւł镔̕폜A"s撬R[hȉ̏Z𒊏o/SELECT rmkstationCenter.dbo.TM_AreaCode.address' FROM rmkstationCenter.dbo.TM_AreaCode . WHERE rmkstationCenter.dbo.TM_AreaCode.code=' -$''r r n!%x .t t !Zi (jAYs{s撬R[hi j܂BA@&zk address t %| !r $Zi jAs撬R[hi 0jɊYs{s撬܂BA@&zHk@ address t %| !r $$'z  .!0 .!0 * .!2A@&ki   P '] .n n! ! 'bdP'bz@k8]](.t ----------------------------------------------N͂ĂZtKis撬R[hőւł镔̕폜A*s撬R[hȉ̏ZtKi𒊏o7SELECT rmkstationCenter.dbo.TM_AreaCode.addressKatakana' FROM rmkstationCenter.dbo.TM_AreaCode . WHERE rmkstationCenter.dbo.TM_AreaCode.code=' -$''r r n!%x .t t !ZtKii (jAYs{s撬R[hi j܂BA@&zk addressKatakana t %| !r $ZtKii jAs撬R[hi 0jɊYs{s撬܂BA@&z(k  addressKatakana t %| !r $$'z  .!0 .!0 * .!2A@&kiAttribute VB_Name = "clsAreaCode" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFals e dC|tablPredecl2aIdCExposeTemplateDerivCustomiz 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 Sub ECheck()B@rror GoTo ErrMes B P$Pa@ Sept cPkD%If@.Config.Read True ThenmyLocaB1= EB DExit6 nd If0myDaCcP.DB.GetD7myBID8IntegerA=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 ,,M 'ݔ@,u/PA"#"5 +D v?,,00Rh?YVBAce{, " -"@0, , vbText2215 " O I3.eY>>+V J (Uԗ?L) )/q5;$$**78* Code = VBA.Replace(myArea, "-" , , vbTextCompa@re) I f f"" Then@NMsgBox "ݔ̏uꏊR[hmFĂB" BExit SubEnd If <> InsertKa@takanad@dress)*U[\Ij܀~z ErrMes:x .Number x0h.&CrLf & DescriptioDl UX\Public` Func V( _$ByValX As StPring) OnA or GoTo@7KnBDim cPclsPaperSet= New IcP.Confi2gadTrueLmyLoc2a9= ElseC' Fa?lJDCA0my8SQLFIResult9ADODB-cordset A;my a?MT?M[=L6M!JC|O3#Tot\$I` 2gVmys8$ReaICounJiLsArrayf( a+Ree-` 1, 11sF ci[no@,0ai, 0)4.A.!l>1o2D Mo8veN` iek'Q+ࠏSPV0UgT0oj@BIn`C( *, 1)}Ow:  GotwQIEr1p ( 37Ӯ<e 5a-[z,aE {opbc!0 >p P/!0Vt3   X h3>gM p'4j tKi5h?m=mFmm7mm-koldNkkߕeoߕrde.2pqꁖw4, 5$$$r5\3q>#,gqsqqsqqy aq= q1]20) = myResult.Fields("code").Val ue myArray(i, 1addresskataka naMove0Next i  'z̏ZV[g𕶎@񌟍.For i0 ToTotal - 1If InStr(1,u AK k, vbTLCompare) <>b ,hen')AreaCIns8ert&0)Exit W End If.unctio< ErrMeߙp?N?N?N^?N?N?N?Nә*'Ă ֋őւł@ׂ폜kȉےoQQ?MQQQQQQQs> +Q-6GQtA"ip4;p`AYs{ٓPn܂ B" Exit FunctionXEnd If,If InStr(1, myAddressResult.Fields("a2").Value, vbTextCompare) = 0 T hea{MsgBox "Z`i" &_ "jAs撬@R[h(r@eaCode)Ys{50DeletezaReplace(*"",   ErrMes: .NumberX <>&CrLf Descripy{@PublicF @Kana( _%ByzmAs ing,NEk A)  On *or GoToA!c"Dim cPclsPapDer'Set=` New ScP.Config`.ReadTrue̩myLocaNElseC( FaX؃A0mySQLOgE?8myADODB-cordsetA; <9 '-'c '͂ ĂvtKiat+tőւ镔̕폜 A ȉJ 𒊏oz)$= "SELECT rmkst3Center.dbo.TM_ADN.KattakW"!O*a& " FROM^WHEREc`='hD, "-`"")='Y 9T=Get?D)" Y>.EOFX%6XZ߫ˡF8̡4ai ͡Q#Ίg%cg1HggŅg __SRP_30 __SRP_2HclsCallSignG;< @__SRP_3d^H,:X%l@ T l (, 4H`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/ `IE*#\D*#Xlt #T*#P *1d2\XTP$Lldlp dl 0 QL`lj` P kj/H` h lH/:(L:8%%l` T l (L 4(`1x)lL5(/$H ll lHll'''H ll lH#\*#TX LL ,lX*F( 2\TX)lL6(/ 8 x`ptd4 \XTPlL(\l CtlCp-KOCx l$fhl h kfhTzez/ \I*#X*#Tlp #P*#L *1`2XTPL$Hl`hl dh 0 QH\hf\ P kf@H'''lt*#X*#Tlp*#P *F8 2XTP68/YltF8H:(%h\ T h (H 48(]3)hH68H'''lt*#X!*#Tlp*#P"*F8 2XTP68/Z8H:(%h\ T h (H 48Xlt 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#*#X*#Tlp #P*#L *1`2XTPL$Hl`hl dh 0 QH\hf\ P kf@H'''$lt*#X*#Tlp*#P *F8 2XTP68/YltF8H:(%%h\ T h (H 48(]3)hH68H'''$lt*#X!*#Tlp*#P"*F8 2XTP68/Z8H:(%%h\ T h (H 48Xlt 1x/X)hH58/$ hh lhl''' hh l#X*#PT HH ,lT*F8 2XPT)hH68/<$x\lpt`4 XTPLhH8($H:4%l` T l (H 4$`1D)lH5$**#\*#XlD*#T*1d2\XT `$Hldlp dl 0 QH`l` h lp"%k"k"c~P$H:4%l` T l (H 4$`#\kl/\)lH5$P$H:4%l` T l (90nH5$ ` drU <   rAsYs tyttYuKuY$ $iQ$ у)'QI'@H (1(  =W====W====W===H <qx/ rU (F q!}  AtI}1 9!  a  $ $iQ$!aYui  Q  +A i ai  y)aь1   zy 'AI'@4 (1( WW,K0 x$rtx t krt>zJz'l+rtx dt $ >l&t$rv&tx dt ( krpjt6lt+r'x t l(ll=/lt.lt+r'x t l(>l1dtlld )>l1\ l\0H*'' ',*+*FL 6L, .lt+r,x t l(>l1`t l`=ll\l`4)ll0/l*'' ',*-*FL 6L, *'' ',*.*FL 6L, 6lt+r/x t l(ll=/ltE.lt+r/x t l(>l1dtlld )>l1\ l\0*'' ',0+*FL 6L, .lt+r1x t l(>l1`t l`=Cll\l`4)ll0/lA*'' ',02*FL 6L, 6lt+r3x t l(ll=/lt.lt+r3x t l(>l1dtlld )>l1\ l\0*'' ',4+*FL 6L, .lt+r5x t l(>l1`t l`=ll\l`4)ll0/l*'' ',4-*FL 6L, 6lt+r6x t l(ll=/lt.lt+r6x t l(>l1dt.lt+r7x t l(>l1\t"l\ 1\ l\0u+'' ',:<8NLL 6L, l\lld )ll=/l+'' ',:<9NLL 6L, 6lt+r:x t l(ll=/lt.lt+r:x t l(>l1dt.lt+r7x t l(>l1\t"l\ 1\ l\0+'' ',:<8NLL 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 dl 0 QH`lj` P kj/:$H:4%l` T l (H 4$`1D)lH5$**#\*#XlD*#T*1d2\XT `$Hldlp dl 0 QH`l` h lp"%k"k"c~P$H:4%l` T l (H 4$`#\kl/\)lH5$P$H:4%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*tdDFH8 \XTPLlH$l l Ct-K[Cx p$jlp l kjlNz_z/ `U=>*#\*#X?*F(tMH@8 @ 8: `1d2\X6(8 `$ldlp dl 0 Q`l` h lp%kkcP8:H%l` T l ( 48`#\kl/\)l58P8:HA%l` T l ( 48`#\kl/\)l58 ` d8kcS,ltklGklCxS d/$ ll lll'''( ll l#\*#X  ,lX*F8 2\X)l68(/ D*xt`p`Xd0 \Xl8(| l Ct-KuCx p$jlp l kjlNz_z/tMX@H BH`1t5H @IC*#<D*#8lt #4*#0 *1D2<840$,lDlp dl 0 Q,@lj@ P kj/(@ h l(1/:*#13*\R0*#f*\R0*#9H  8 "X   ( $ (8$`$ B   B  0 8B@ H ` hBp x  B     0 @ Xhp xB      0@H P ,":"V7٦POӝC6{|*=h8+3q*@uObx*@uObOӝC6{|ME SS S HF" ">" LN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}b  8@b P@@" D@%A %X@ % ,! hx+i ,! xhx+X i ,! hx+$i (,! 8hx+(%i ,! h`+x,+i iNi p@ % `@%,! h`+X0;i xiNi xp@ % `@%,! h `+84Ki X iNx4i  Xp@ % `@%,! hh(t+88 [i @@ %)` A %,! h8@k< di  i  t , `H k` @ 88oi   zt% d 0 ` ,`$*8`(P`&X` @ ` x@%%  % , `h 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/ $ L- 4Cx/ #(x L- 8Cx/ (x - k / k*/@k uk D@p ktksklp@` l`Cx/`Hxpi T `i v YK- k / k*/@k uk D@p ktksklp@` ldCx/`Hxpi T `i v YK- k / k*/@k wk D@p ktkuklp@` lh1x/`Hxpi T `i v H  YKH k  0t@k ;k D@t 0t H@(ti T Y|- 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*D k*DA k(k*DA *dpz/ $h  lhl'''4h  lh#l*#  ,l*FD 2l)6D4/ dL 0XIt,!#i *#v *#*#q*d!h 4 lD4Kxl Ct lt0" qxn8:`NPPlt@ @6 Y<p6P@lpqx/ @x4ptP@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((A=h!((=h%0(=h)00=h -aq00A=h 1a__SRP_3cKclsClipl x(__SRP_52|W__SRP_53qq00=h 5aq00=h 9a4,=h =a0(A= `A#,= `D(0= ` H 0nrU Sh q~  Q 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 `  x  @   @   \lstrcpy֐̂Q‚̈̌^͈ʓIɎĝƈقȂA"Any^"ł邱ƂɒӁB=f[^̓ǂݏɑΉ邽߂ɂAny^ɂKvB `]D#&eLXgf[^      !"#$%&'(*+,./13456789:;<=>?@ABCDEFGHIJKLNOQSTUWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~ݏꍇ̒萔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  $ ' 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 X` OpenClipboard 8CloseClipboard \$EmptyClipboard HGetClipboardData lSetClipboardDatanGlobalAllocnGlobalLocknGlobalUnlockn4GlobalSizenT lstrcpyA <gtGO q‘N*=h8+3q:a-)O(x:a-)O(gtGO q‘NME@PSS S>"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p + `p@ i + $p$ + HpH + @lp l i + p i i + @p i  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 @< @`, @(  & @H @x @ @ @ C`xx ` @d @` H &ai@ P @ @ @ 0 @ H@8  %@P @ @  @$0RYP$*\Rffff*3750cc4c24*\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 tiQ$w}'}I'@4 (1( RWR|-pf^q\ ""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@&# @F$A"~#aXX1X V9 V(Xf٧<NfJ~>VEȨ*=h8+3qhODYsXxhODYsXNfJ~>VEȨMEH @SS S""p6"L"" L"n??? ?24up?? @3@4 ?hQ=???@)))!iXב_?_?a_?V?_Registry "e")//z" ad: 2įyy8pvby8A $i ai'!}I'@4 (1( $W$$\Kpz(p$ 4lp*#l*1t2pl"tM\@ #p=/p XVltX kV1''$ *F4@ *FD 6D4$/  3V  p $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 kR1''  *F0@*F@ 6@0 /H 3Rv vvltv p (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 >p v0 / vCx/ $  ll''$'4  l#p*#l  ,ll*FD 2pl)6D4$/ 4xXt0 plD4$HrU $@($`#,A$`!Y#($`%0nrU 8 |'|I'@4 (1( `xxf*0V50cc4c84\34..  8 "X      (08@ HP h      ( H h     ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpDLLppubN萔DLLppubNϐ ' ''''''' 0' D,!ٛ <˳ZiMG*=h8+3qx 'JGR$hVxx 'JGR$hV˳ZiMGRRRRR0RRHRMEPSS SH HH H 6"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}  0 H  `%jCjCjCj0CjXCjCjCjCj Cj Cj HCj pCj Cj Cj Cj Cj 8Cj ` Cj  Cj  Cj dCj Cj CjCjxCjCjC%j(CjPCjxCjCj Cj Cj Cj @Cj hCj Cj Cj Cj Cj 0 Cj X Cj  Cj dCj Cj CjCjHCjpCjC@ XjCjCj CjCj p Cj Cj Cj Cj  Cj 8 Cj ` Cj Cj Cj Cj Cj ( Cj dCj x Cj CjCj Cj CjP Cjx Cj Cj CjCj  Cj @ Cj h Cj Cj Cj Cj Cj 0Cj XCj Cj Cj Cj Cj Cj CjCjCjCjCjCj8Cj`CjCj Cj Cj Cj (Cj PCj xCj Cj Cj Cj  Cj @ Cj h Cj dCj Cj Cx`pH80@HhP(jCjCjCj0CjXCjCjCjCj Cj Cj HCj pCj Cj Cj Cj Cj 8Cj ` Cj  Cj  Cj dCj Cj C X8`00HHpH`H`@)(RYP$*\Rffff*0V50cc4c84(*\Rffff*0V50cc4c84\0(*\Rffff*0V50cc4c84\1(*\Rffff*0V50cc4c84\2(*\Rfff' ȈՖ CR' ړ ML' n FB' Œ FX' gъn FP' gыǁ@ MP' ړǁ@ MO' ďoǁ@ RP ' \ǁ@ LO ' ǁ@ EX ' A}`Aǁ@ ATd'  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 '@iJa) xY>iJa) 995FA}ME(SS S6"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p(%` %8@0RYP$*\Rffff*3950cc4c244   8 "X    ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/H webmaster@hyperdyne.co.jpdotpDLLppubN萔dotpDLLppubNϐhAttribute VB_Name = "clsConst2" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ dotpDLLppub N萔Option licitA rU U'I'@4 (1( `__SRP_55tPBclsDate2, V__SRP_7 j__SRP_6 mRrU T@nrU @,`#8A`!#0` %0#nirU )@()`#(A)`!4 9  8 "X  B       ( 48p  %(`x  (B,0 P X ` p*x JD ` 8x " 86H <h $   :$@`h px (Y( Eٜ<4r}Gҳ_l*=h8+3q}Gcsx}Gcs4r}Gҳ_lMED @SS S "p">"LL" 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.n]X]pṕuvSpuAv A$'ṕu,vSpuAv ,A$'s폜 A *A$' A A$' A A$'  *A$'  A$'  A$' $A   $'k:tH[ɓ͂ꂽuAvł‚ȂꂽƋ̓t΂炷 A $ A $$+ddxd +dkP] $ dDpׂđ啶pɁAÕXy[X폜ApXy[X폜 $$d$& $ n!% n!% $'" u.vu/vɒu " ./$'" " $'z8k0 "  $ " H $ "  $ " $&H$ $ge.m.d$'" d "  $ " $&H$ $ge.m.d$'" k(k  " H $ " $& $ge.m.d$'" kk "  $ " S $ " a $ " $&aS$ $ge.m.d$'" d( "  $ " $&S$ $ge.m.d$'" kk " S $ " $& $ge.m.d$'" khk` " $+dH] $ d  $$d' d A $$d' k 't 'z  .!0 .!0 * .!2A@&kxiph"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'pׂ啶pɁAÕXy`uX폜H/"krOH?? =.Format("$!ec !"r"H")"Napwge.m.db@(909ltpc.o7w!? P[@\*_B+O6??/N%NUta 01o.1)*OJ({ OOOO=B=jDGS//@`p(La??B Dffg!Ct"SDD o~o~s`r2+|1 DM`.___T?DB y cP.GetValue(pNa me, f0myStartPos).Result = myDateString  Corre ctDVTrueFExit Fu@nction 0 The d Format(*Conv(TPrim( )+N arrow"ge.m.d") \?F  'Fa lsȌ# ErrMes:5Y.NumberQMsgBox  &@_CrLf &BDescripxE%@y'PuPblic ,KAGAMI( _H 'By  As ePaper,@t B)Boolea'On)or GoTo?'ݗp̓tCEApLqC@ B ɂ邽b Dim@ׁcls*Set= New  J:C2HAArray( 0MsgBox & vbCrLfn Descrip0Eo7@PublicH@ Check^( _ By ing As ,Re)Boolea{ On`or GoTo@ 'ݗpt`FbNALq  ɂ邽߃ RIsNull(my.) OrK2H:AqqYDim cP<clsPaperC$Set= New  ) CV? CCQ '@KuvSputA?2R@eplaceE, ""@15,9, +s폜))x^gd$eLf?2_q9vblC, bRight,?1)BG?aL*Lef-Lenj ) - 1G b'tH[ɓ͂ꂽ$Uł‚ȂaƋd{(`In_(1,Jx1,TCompare)ɧGi= Spli  , - % Re s0%0*i(A# i~Do`5AFi2o UBound@-h 'phׂđɁAÕXy.XmA?k,Conv(Sani.ABCHenkF$ :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$/@@&`\tXB@ TD$Hjpz/lMT@D Dd 1<>#@hp @h 4l<8p @8 $>4F$ clsDB w Z__SRP_29o V__SRP_28VclsFile Z$*\Rffff*0_50cc4c84*\R0*#10*\R0*#f*\R0*#f*\R5*#46*\R5*#3*\R5*#47*\R5*#45*\R5*#43*\R0*#1b*\R0*#1b*\R1*#10e*\R1*#10b$*\Rffff*0V50cc4c84*\R5*#21*\R5*#2*\R5*#0*\R5*#42*\R5*#3f*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R5*#3e*\R5*#3d$*\Rffff*0N50cc4c844   8 "X   B  F@HP p  $8@ HBP ` hp x 0&=& $+ 0(8 `& & & (&H p& & & 8&X & & ( 4+0 hpx $l rU (  YYuAsi)AzryYqу &1IiH$ $Q$9)Y+Ʌ'I'@4 (1( Wl CtK_ lt0)pz/ lttllM\@ Tpz]pz%T XX lT!3X2'''"*#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<@lCtK p*dhltl p h l'>d1lhlMT@ ll0jpz/lMT@D Dd 1<>#@hp @h 4l<8p @8 $>4F$ `1l2d@<)h86D$"ll 1lllkXpz/6llllllllMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h p'hpz/IllGlMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h p'hpz/llYlMT@D D$ :N$ `1l6D$$llhltl p h p'hpz/6llllll lMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h p'hpz/lllMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h p'hpz/llYlMT@D D$ :N$ `1l6D$$llhltl p h p'hpz/pz/$ hh lh5l'''$ hh l#d*#<@ 88 ,l@*FD 2d<@)h86D$/@0tpl< d@<4h8D$ 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`1t5Dlt8:dNDDlt$ $6 Y X6D$AXltlX;lXfsolX.@Md@D -DT 1>#` @ 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\Zl\6\Md@D B  F08 @ P ` p P+  $l0 8B@ X *`       ( 0  P                           ! " # $ % & ' ( * + , - . / 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 c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ tsx$v2vn(<(ES2*=h8+3q8ӦI,x8ӦI,(ES2ME SS S 1 "p" 98 >"LLLL *LPLL"LPLLP <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0 v N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(^pn,z`k@  i  / tx  %,4 `&k //i nt%,`!k@$Mi6 h $2 i .. 8 t`%,@`)k(++eiX i `r,2 P`pk,i iXii %)(   % ; dHx %,x `k0ir %) % ; p  % u h %,J `(`(4k` 4ir i  B ; p %,`0:k<iN   i@i  u pxF%,P `<k @ DD)   %i  n`r pf`P lH`R h,( `@k D 00F)  %ivi  4`r p`"l2, `hDkhH vi i u p %`r l, `Gk  L qq)  @H%i  `r p`P hl`R h, `Jk P XX)    %iv8 i  npp %`r l`"h, `8Nk  T..]iN  %)0 %`r p u Mhh % N` %, `Qk XiT  i i0 i u hh %`r d,@ `Tk \$$iV  i `r t u l8 %, `Wk `,,i  i `X t u h %`r d,Z `H[kP di p i\  i u t %`r p,^ `H^k( hi Hi\ hivHi  u t%`r p,` H`1k l==i @ib `iiv%) %`r p u D% < !0% 8@ .%,d X`@ak p--Z)  *%iv擾i  ! npw%`n`r hBA@`"dKT,f `dk t\\)  ai%ivKTi  j np'4 %`r lai`P honSh`R dKThz ai%,`h,kHx==i '4 iaii('4 ivPai%)p lace%`r pai u H-DonSh% <% 8rmks%,8`gk0 |__ )  PXڑ%ivxBA@i   np%`n) `r h`P d`R `g`zhz ڑ %,` kkx //)   %ivi  ܂ nkp %`n`r h!0`"dnipH% ; pP % u H% hVXZ\2 .*& t%8 %H  X P@@ 8(P `(H  X P@@ 8(P `( t`h8(@P@p @l @h @d @` @\ @X @T @P @L @X< @p, @ @ @ @ @  %%`t (a", vb`XpV H$2 `l.p : `hF (00Ph ((3 0 3 x `t `Xp `l `h`t@`Xp`l`h@H` @`\ @xX @T @P @L @H H@D Ȃ.*&  @8@ `@< @8 0@( @ @ @ @ @ @ !h `!  (y  y x %  `r th %`Xt`XtVXZ\2 D F H @!l @ X %`Xt @!H P .*& @D @0!@ @< @H!8 @4 @x!$ @! @! @ @ @"#0%0$$H%"$"h`x"x%`t""`tx"`Xp@#%`l#%`h`t`XpX' `l@x$0*`h@x%p X4 &.* @H$` @`$P @$@ @$0 &`)"`Xp`l`h@% @% @ @ @`% @ @ @% p&@ h4 `4 %x&.*@r 0&H*"`r t`*`r t@p&l @h `Xt%H(X&'p'%@'X'%%#@d @` @'P @'@ @'0 `r t@( @( @0( @ @ @) , `6k( 8ir (`r tiv(i  @H) `r t@ h(`r t0*(H*++**+`*0*x*#``)z`Xt@l &.* @*\ *@*L @+< @X+, %`r t@p+ 8- -*%`N t@+ @ @ @ , @ @8, `r t%`N t @ @P, @ ( -x-.@/p.../ -p-(+( -x `--`t -H-(Hx .*&@@-l D% t-%/%`r t@.h @(.d p@@.` @X.\ (@X @X/H %% t8+ /(0%@(/@ @6 @0 ,-`@( @p/ @/ (@/ X00 `r t@/ @/ @ @ (a " a 0x..`b t0@0Fx .*&`N t@0l (@1h D%%% t-2%( `@0(00h22P2222(0h0.D%`N t@2d % t.@ 2` @82\ @X @2H @2@ @6 @0 p,0`X@( @3 @H3 @`3 % t, @x3 @3 @ p@ (hJ  `J 3z 33 334%`t%3455`5H5x5353`r t VXZ\2 L .* t*@5l D%`t(@ 6\ @6L (@H @5D @@ @5< (@8 4& @@86( @P6 @6 (@ 67 t167 t1 8%%@ (7x88H8x8`8878h6h   %% t0` 7z ( t489 %`r tVXZ\2 L H .@8l @P9\ @89L @D 996%@@ 08*& @9< @ 98 @4 @h9$ @9 @9 @ @ h(`9x: t6<P=`t ` :9:0;;x;`;9;8`N t @;l x .*&@;h @;d  t8@` @;P @L @;< @8 @0<( @H< =x<`t@`< @ @ h % t6P== 8(??==??=P= >:`x<z D%`N t t.== d1`=@8>T @>D @P>4 J .*&@>$ p>@h> @> @> 0@@ t8@? %`N t@ @@? @p? @X? @ (@? @ @ (@? @ @ h `@z X@@`T @t@`A`pxA `l t7x@`A0CCAACCxA@xB> t0h(5` @BX @AH @A8 @`B( D%`T At8B D`pBD`l@B AJ .*&@B @B @C @ 8DX@ t< @HC @xC @`C @ @C @ X@ @C @ @ h`Dx`t`N t D8D EEPE8EE DEBD&x .*&@Fh @EX @hEH @E8 @E( @@F @ @E @ @ @(F XF@ @ hGh %`N t`XFz pFFFXF*F t(3 GFXDJ 8H HG`T FtXGpK`pIXK `l FF@IpJhHPH HJ8HFXJF@f `h=`0G@HP @H@ @H0 @H I@H I@H @I @(I @ @J pI@XI @pI @I %`T XItIIK`pK `l@@J x@(J @ @ F.*&0@@J @ @  X pK Kx KMLLKMKpKM0Gh (`XKz  t7XDJ @f @L` \A`@xLL @0L< @HL, @`L @L @L @L @L @ @PM @M @ M @8M @ @hM @ K.*& @M @ @ (> MxpF NM`b tP p 8 OXOOOpOpPPM(ONOM`N tPN@Pl x &.* %%%@Pd @^ @OL @O< @P, @(P D%%`b t @@P @XP @ @ @ O`P @ @P @ h `Px%D% tPO`QQ 8RP`T Qt%%P HRpQpRp RHSS`SSQSPQ`RpQ`pRHR`lpRO@R` @R\ @RX S@RT @P x .*& % t(Q@SL (@S< 8UhT %@8 @S( @$ @T @ T @8T @ H@ h`PTx tQ hT HUxUUUUhT`UxSPT @Vp x &.*l@Vh @d `b t@UT @VD @ V4 @8V$ @PV @hV @ @ PW8W tS@V (@V @ @W @ h` WxxW W @r `W a @Xl X\`b t%`t 8W WXPY YYZZ`W8W[V@Y` @x .*@8Y\ [ tHOD%%@Z @@YH (@YD @hY4 @Y$ @Z @HZ @Y @ @ %`t@0Z @ @`Z @xZ @Z @ @ @ `\^ tYX& hZ %D%% p \P \\]\P]\\W t@O`Z [x@@0\l (@H\h @\d ] t(S@\` H@\ 0x .*& @]X @]H (@D @h]4 % t0[@0 (@] x_a%@] @] @ ^@ h^  `^ ]z h t@[h(^^```0``^`Z@_l @_h @0_d @H_` ]@`_\ @_X _a tW_@_T (@P x`b%`tx .*&h\`@H`L X@`< (@8 @`( Xb p@a % t]@` @@ (@(a @ @ a@b(8c(dbpb@b@dXba(b]hd   `d az  tIXFJ .*&@l `0Q`@PcP @b@ b@b0 @b (@hc Xe@e ^`t% t0]@c  @pd @ @c @c @c @c @c @d @ @Xd @ @ @ @ehe8P ggfeege@eebhf  `f (ez e(e tOeheXF .*&@b \X`fe @xfL @`f< hh t_D% t`@f, @@f (@f @f @f @g @ @ @8g @Pg @hg @g @ @g @ @ Xhh`jjiPiij(ihhfh hiX]`hz hh tQ@ihXH .*&@l \8[`Hi(i @iL k tc@i< P@i, 8@j @i @j @0j @Hj @ @ @xj @j @j @j @ @k @ @ 0 lmnll`l nxlkHlleh `kz lk8lk tYl lXHJ .*&@l `@f`xl @0mP @l@ @l0 @m @Hm @`m  @Pn @ @xm @m @m @m @m @m @ @8n @ @ @ 0iH8H@(RYP*\R5*#51*\R5*#5b*\R0*#1c$*\Rffff*0Y50cc4c84$*\Rffff*3<50cc595cX  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 'z]` V X Z \$2 .. x . B@B%.. 'zzh ` .!0 ,f[^x[Xւ̐ڑŃG[܂B * G[ԍF .!0 * G[eF  .!2A@&esulkziDa '4 ].nn*݃y[Wڑf[^x[X擾  ݈ n%!!rIfKTw肵ĂijA悪w肳Ă܂BA@&lacezKTkCdgǗǓaijrmkstationHokkaido'4 3 KTkdgǗǓaij "rmkstationTohoku'4 KT֓dgǗǓaij rmkstationKanto'4 KTMzdgǗǓaijrmkstationShinetsu'4 eplaceKTkdgǗǓaijrmkstationHokuriku'4 eplaceKTCdgǗǓaijrmkstationTokai'4 KTߋEdgǗǓaijrmkstationKinki'4 KTdgǗǓaijrmkstationTyugoku'4 eplace KTldgǗǓaijrmkstationShikoku'4 tring, KTBdgǗǓaijrirmkstationKyushu'4 KTdgǗǓaijIfrmkstationOkinawa'4 ɓS*ڑf[^x[Xݒ肳Ă܂BA@& InSznz x .!0 .!0 * .!2A@&) k@i8 mp @WindowsWXg܂INIt@Cڑf[^x[X擾0)'].8 End If 8 ! 'X 6  Doubl 4 X F݂̈iʐMǁjAݒ肳ĂxƂĂ܂BA@&z(k k X'z  .!0 .!0 * .!2A@&niki), " " $ڑf[^x[XxID擾vɒu]( XrmkstationHokkaidoKTate, "'rmkstationTohokuKT'rmkstationKantoKT'rmkstationShinetsuKTe'rmkstationHokurikuKT 'rmkstationTokaiKT'rmkstationKinkiKT'rmkstationTyugokuKT", vbT 'rmkstationShikokuKT 'rmkstationKyushuKT 'rmkstationOkinawaKT 'S*ڑf[^x[Xݒ肳Ă܂BA@&Narr'.d")zxnp 'z` X .!0 .!0 * .!2A@& -------------------------------------------------------------- GMicrosoft ActiveX Data Objects 2.x Library QƂ悤ɐݒ肷邱"H]0 voC_SQLOLEDB : (< ڑT[o[wonv(Tr Data Source= ;Initial Catalog= X;> @  : B@, : .2 are) kp> t B@B.t zP> H> .!0 .!0 * .!2A@&k>i>    =] .t ] 1SELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent WHERE [memberNo] =  \  AND [bID] = 'r r $x .t t %| !r'Z t B@B.t z= < .!0 .!0 * .!2A@&k<i<  <'^ ].t ]1SELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent WHERE [memberNo] =  \  AND [bID] =  AND [ID] = v'r r $x .t t %| !r'^ k; t B@B.t zp; h; .!0 .!0 * .!2A@&k0;i(;  ;]#SELECT * FROM rmkStationCenter.dbo. F WHERE [bID] =   AND [name] =' b ''r v$ v r AND [ID] = v'r k8:].t r $x .t ]](. t !'. .` z9k9 t ! ' t !a. ID t %| !rIDC@xmemberNo t %| !rmemberNoC@xname t %| !rnameC@xnameKana t %| !rnameKanaC@x president t %| !r presidentC@x president2 t %| !r president2C@xpresidentNameKana t %| !rpresidentNameKanaC@xpresidentNameKana2 t %| !rpresidentNameKana2C@xperson t %| !rpersonC@x postalCode t %| !r postalCodeC@xaddress t %| !raddressC@x addresskana t %| !r addresskanaC@xareaCode t %| !rareaCodeC@xtelNo t %| !rtelNoC@x telNoPack t %| !r telNoPackC@xfaxNo t %| !rfaxNoC@xemail t %| !remailC@xmemo t %| !rmemoC@xq(6  B@x t B@ 6 .` z5 5 .!0 .!0 * .!2A@&k5i5   H 5UPDATEȂ̂Ńkf'd ].n] X$'](]@  " 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. F SET  " WHERE [ID]= v AND [bID]= 'r r $J z0k0'd zx0 p0 .!0 .!0 * .!2A@&k80i00   X 0'f ].n] ]8]PbID'P X$'R  memberNo7$memberNo7 P ,memberNo'P R ,'memberNo7''R k(/name7$name7 P ,name'P R ,'name7''R k.nameKana7$nameKana7 P ,nameKana'P R ,'nameKana7''R k(. president7$ president7 P ,president'P R ,' president7''R k- president27$ president27 P ,president2'P R ,' president27''R k-presidentNameKana7$presidentNameKana7 P ,presidentNameKana'P R ,'presidentNameKana7''R kP,presidentNameKana27$presidentNameKana27 P ,presidentNameKana2'P R ,'presidentNameKana27''R k+person7$person7 P ,person'P R ,'person7''R k+ postalCode7$ postalCode7 P ,postalCode'P R ,' postalCode7''R kx*address7$address7 P ,address'P R ,'address7''R k) addressKana7$ addressKana7 P ,addressKana'P R ,' addressKana7''R kX)areaCode7$areaCode7 P ,areaCode'P R ,'areaCode7''R k(telNo7$telNo7 P ,telNo'P R ,'telNo7''R kH(faxNo7$faxNo7 P ,faxNo'P R ,'faxNo7''R k'email7$email7 P ,email'P R ,'email7''R k8'memo7$memo7 P ,memo'P R ,'memo7''R k&q&!INSERT INTO rmkstationCenter.dbo. F ( P  ) VALUES (  R )'r z8&k0& r v$ 'f zh% `% .!0 .!0 * .!2A@&k(%i %  $]x#SELECT * FROM rmkStationCenter.dbo. H WHERE [bID] =   AND [name] =' ''r v$ v r AND [ID] = v'r k0$].t r $x .t ]]. t !'. .z#k# t ! ' t !a. ID t %| !rIDC@xtype t %| !rtypeC@xname t %| !rnameC@xnameKana t %| !rnameKanaC@x president t %| !r presidentC@x president2 t %| !r president2C@xpresidentNameKana t %| !rpresidentNameKanaC@xpresidentNameKana2 t %| !rpresidentNameKana2C@xperson t %| !rpersonC@x postalCode t %| !r postalCodeC@xaddress t %| !raddressC@x addresskana t %| !r addresskanaC@xareaCode t %| !rareaCodeC@xtelNo t %| !rtelNoC@x telNoPack t %| !r telNoPackC@xfaxNo t %| !rfaxNoC@xemail t %| !remailC@xmemo t %| !rmemoC@xq(  B@x t B@ .z  .!0 .!0 * .!2A@&ki    '].n] X$']]]bID'P X$'R  type7$type7 P ,type'P R ,type7'R kname7$name7 P ,name'P R ,'name7''R k nameKana7$nameKana7 P ,nameKana'P R ,'nameKana7''R k president7$ president7 P ,president'P R ,' president7''R k president27$ president27 P ,president2'P R ,' president27''R kppresidentNameKana7$presidentNameKana7 P ,presidentNameKana'P R ,'presidentNameKana7''R kpresidentNameKana27$presidentNameKana27 P ,presidentNameKana2'P R ,'presidentNameKana27''R kperson7$person7 P ,person'P R ,'person7''R k postalCode7$ postalCode7 P ,postalCode'P R ,' postalCode7''R kaddress7$address7 P ,address'P R ,'address7''R k` addressKana7$ addressKana7 P ,addressKana'P R ,' addressKana7''R kareaCode7$areaCode7 P ,areaCode'P R ,'areaCode7''R k@telNo7$telNo7 P ,telNo'P R ,'telNo7''R kfaxNo7$faxNo7 P ,faxNo'P R ,'faxNo7''R k0email7$email7 P ,email'P R ,'email7''R kmemo7$memo7 P ,memo'P R ,'memo7''R k0q(!INSERT INTO rmkstationCenter.dbo. H ( P  ) VALUES (  R )'r zk'z  .!0 .!0 * .!2A@&ki   8 pUPDATEȂ̂Ńkf'].n] X$']]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. H SET  " WHERE [ID]= v AND [bID]= 'r r $J zk'zp h .!0 .!0 * .!2A@&k0i(    `( p' ]x V X Z \$2 .: r L : B@@].t SELECT @@IDENTITY AS [NEW_ID] H : %@.t NEW_ID$t 'v : B@B.: ' zo o .!0 .!0 * .!2A@&koio r v$ p۶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ߝ ߝ'ߝѝre< T_ProgressNet;ɞ*@`DER BY DES~CdxaEOFa@ AVBA.LenW?h Uk)@68h  Left$/ .?)PFormat((Righ(" 4)) + `/"0"a A t= 9  = 0s_ eL  u  4ٽOr 0&rS/@/r H/r"DBq>uNOOoEoEoEOboEtoEYO@"Q 1DCF[]0:&QAND [bI>D GFRes(mySQLString) CheckMemberN@o = myult.Fields(0).Val ue:Clos1&SetjNo th^Exit Function Err0Mes: }If" .Nu <> 0 The)MsgBox $& vbCrLf &Descrip_1End8 Ifk {PuPblicF |B@yID( _ZByxiBID As Integer, Lon^g )%B ooleaOn_or GoToMFal1Dim>ADODB.Reco`rdsetb ew A)H!"SELECT COUNT(*) FROM @rmksta`CeKr.dbo.T_Ag@"Mf& " WHERE [m]Ar mySA AND [bID"BcID;Getoӻ@@"1bTrEÅ6a8 `'DataFr|omB8cC0fNamegIhcRefWCountk2OByal`gColleYhZP5Z*YSYPcAGENTDBNAMEZcV\& Vvn "Y'Y$Z'"#(S IsNullID) AmsYe?'W%2= NpCg:)<AllG EOF ~my#S= 0ca mgKmy A)&cDo Untiaf8.C30 Withp+ .AddD"ID"D, Q?P"_&?4Kana"presidqm'728H??QV ^ @2JS!!"perxsonYpo0?deG??addsk"Y__areaCoZ &telNo Pack2faxemailx@@wQ!JUFK MoveNexdLoopeq^\\ [ ́1C f{ H  Update.KwCO OO'UPDATEȂ̂kf  icP clsPapDps}4CmyQ=Q@baseg" r"#3`fo=A.Item(p v,k"bQ")?tr[ing & ",nameKana="p'(.Item("d")d mySt2r= president402N20ON?R.Z/^er8son SostalCodeadd@}s?nDhreaS:aDtelNoO9gfaxQgemail"gmemkEnd With #@~QL"UPDATE rmkKtionCer.dbo.cAGENTDBNAME _ SET a WHERE [ID]BmyIDAND [b'BID If DBExecute() = False ThenExit F8uncIfcUpdateAg Trued ErrMes:E$ .Number <> 0MsgBox & vbCr Lf`Descxrip` 1GP ublicf InsertB(& ByVal@ColleB As ŧ,Ref .YLo` 6)B oolea@' Onor GoToA@&E.C&@Dim cP! clsPaperSet= New KAh8aN' k"12= "H" 2 GetJ@HDatabase)ca*)>Not IsNull(i@@No")(7C""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 myStri@ng1 = X& ",addressKana" 2f2 f'" .ItemT(" ~):'E nd IfVIf Not IsNull(AreaCode")) A0 <> "" ThenSiHgtelNo f d1c9@ldfax00C00emaila0C00memp0O|$|With3 QL@"INSERT INTO rmkstationCenter.dbo.cAGENTDBNAME _ () VALUES ( iB)`DBExecuteGePtID(,ID)FalselExit Funcc)Ins`ertAg Trued ErrMes:   .Number80MsgBox & v`bCrLfDescrip`  GPublicf DataF@romCli(A,ByVal!BID As I20ger,Name;RefA`CountOB LongA  s Colle!d- On or GoToA@(%(Dim SKC,<3"SELECT * FROMAOSSOCLIvOWHERE [bID]A 0myA%&OAND [n@"@Bmy$ Ů?my!O!!@c_IDETC%Resul"ADODB.Recordset1CSetD= New 0|$04)SW!9A3Allo ?aks 0my .EOF5)= 03 (0hk3myz C C f B43Do Unti9  a=1WYM.Add .Fields("ID").Aue, q?1typVa4 &pidQ72/nt2ذ_6V _ _ ^ @_ ("personYpop>a!H??k߁"Y__aV &DPack7Ĵ$waQ_ILUDFK M@oveNex$mLoopc[[ _[ ;S f____Q _37vection, _ ByRef myID As Longd)0Boolean On Error GoToMes.InsertClient = FalseDim cPclsPaper.Set= New 2myBInt eg4= Get(myDat@abase)lmySQLStri 1I2 *= "bID"( 2yIWithCollf Not IsNull(.Item("@type")nd <> "" The N& ",%7, " &K E"IfI.nam .0..'H.D3'h/Kana _A?12D3presid 4?[D1C",_~2"3ic22FNeaO~Nhc>* 8x8g?nv: ;ng1 4? ? < ? ? = 5? ? = email|4? ? < ? ? = 5? ? = mem$#      qe`INSERT INTO rmk faC er.dbo.cCLIENTDBNAMEA p (e) VALUES ( q)ğ9DBExecute`IDF,8ID)`xRExit FunCc|Trud| :f .NumberA0MsgBoxI& vbCrLfUDescrip  End I f Function Public @ UpdateClient( _ ByVal myCollepP As , PIBD@Long2) Booleaq 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)e The aExitCATrutrr:$`.Number <> 0 MsgBox & vb0CrLf DescripBTA ll%0prN ll&0 prN ll'0 prN ll(0 prN ll)0 prN+'' ',:\*NLL 6L, pr/krpz/$   ll'' ',   l# *#  , l*FL 2)6L, / ,\lt0 L, AHl CtlCplCllCh-Kd$ flh*#P*#Dll*#T*#Hlt*#`*#\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$/l 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'LJp$ @ll=KHl5L;LD:\L%lH Tl (5D 46L")lD5L p$ < c=ppz/$@ ll  l@lyl'''$@ ll  l@#< *#48 DD , l8*FL 2<48)lD6L$/0Hpt0 <84lDL$xl CtK p(dMlt*#l/*#h0Qdp2lh`p hl`d qx`p hl`;<L:P4%dp Td (5L 46<"qx)dL5< qx c=Kp/$` dd  l`dkl'''(` dd  l`#l *#8h LL , lh*F< 2l8h)dL6<(/x,pt0 lh8dL<( l tKpz ltd^4:TNNDDd 34 0:$NNd 3:]<'6 D4NCl&4:TNNDDd 34`1h6D4^4:TONDDd 34 0:$ONd 3:]<'6 D4N llP*1l8lhQ*F4:TONDDd 34`1h6D4^4:TRNDDd 34 0:$RNd 3:]<'6 DrU ( I}i \$ $i)YQ$  1 $!}9 Eq+FQnnnQoo pipp qaqqrirqaA 1XY9 I1qI9YI\a zyyAsɺAy I &YuH9aIQy)iAqQ Y!yia A1q)a Iyٻ QqQIY I)iY!a AqQ a y Ys9vuta I q9y Qy I 9y!Q)'I}I'@4 (1( )W))))W))))W))))_))))_))))_))))_)KPpzpvvvv,Qpt t$ < c=tpz/ $l pp  llp'''  *#h *#dl pp  ll#`*#\ *#X *#LP TT , lP*F< 2hd`\XLP)pT6</ / e(t@ hd`\XPLpT<-KCx tdhl+rt l |h 4ldq`)lhl`+''' :PN@@ 6@ / l`Cxl` Cxl`!Cxl`"Cxl`#Cxl`1$Cxl`J%Cxl` c&Cxl` |'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 ll 0CprN ll!0ZprN ll"0qprN ll#0prN ll$0prN4 llS*1l8lhQ*F4:TRNDDd 34`1h6D4^4:T7NDDd 34 0:$7Nd 3:]<'6 D4 llT*1l8lhQ*F4:T7NDDd 34`1h6D4^4:TUNDDd 34 0:$UNd 3:]<'6 D4E llV*1lClhW*F4:TUNDDd 34:$/`1h6 D4^4:TXNDDd 34 0:$XNd 3:]<'6 D4H llY*1l4:TXNDDd 3Z[4 \1lhW*F:$]N>F ^:/`1h26D4^4:TGNDDd 34 0:$GNd 3:]<'6 D4 ll_*1lClhW*F4:TGNDDd 34:$/`1h6 D4^4:T`NDDd 34 0:$`Nd 3:]<'6 D4 lla*1l8lhQ*F4:T`NDDd 34`1h6D4^4:TbNDDd 34 0:$bNd 3:]<'6 D4? llc*1l8lhQ*F4:TbNDDd 34`1h6D4^4:TdNDDd 34 0:$dNd 3:]<'6 D4 lle*1l8lhQ*F4:TdNDDd 34`1h6D4^4:TfNDDd 34 0:$fNd 3:]<'6 D4 llg*1l8lhQ*F4:TfNDDd 34`1h6D4cd*hll*#i*#lh*#j*1p2lp4k/pz/$   lzl'''4   l# *#  , l*FD 2)6D4/ 8 dtlph@ D4P l tKpzCl lth8llk*F(8:XNNHHh 38`1l6H(88lll*F(8:XONHHh 38`1l6H(88llm*F(8:X7NHHh 38`1l6H(88lln*F(8:XRNHHh 38`1l6H(88llo*F(8:XUNHHh 38`1l6H(8^8:XXNHHh 38 0:XN((h 3:]<'6 H8(68:XXNHHh 3Z[8 \1llp*F:]N>F( ^:/`1l26H8(D llq*1lMllr*#/*F(8:XGNHHh 38:/`1l/6 H(88lls*F(8:X`NHHh 38`1l6H(8^8:XbNHHh 38 0:bN((h 3:]<'6 H8(d8llt*F(8:XbNHHh 38`1l6H(8r llu*1l^8:XdNHHh 38 0:dN((h 3:]<'6 H8( 8llv*F(8:XdNHHh 38`1l6H(8 llw*1l8llx*F(8:XfNHHh 38`1l6H(8ch(yll*#z*#l#*1p2lp4k/pz/$   lDl''('8   l# *#  , l*FH 2)6H8(/P4hltp@ H8(l CtK  pE{|*#h}*F8tMX@H ~H(:/`1l/h68H(ll0Qpp hl qxp hl;H:X4%p T (5 46H"qx)5H qx c=Kp/$   ll''('8   l#h *#  , l*FH 2h)6H8(/ 0plt0 hH8(( l tKpzClfv(kf1h lt`^0:PNN@@` 30 0: NN` 3:]<'6 @0 ll*1l8lhQ*F0:PNN@@` 30`1h6@0^0:PON@@` 30 0: ON` 3:]<'6 @0 llP*1l8lhQ*F0:PON@@` 30`1h6@0^0:PN@@` 30 0: N` 3:]<'6 @0% ll*1l8lhQ*F0:PN@@` 30`1h6@0^0:PN@@` 30 0: N` 3:]<'6 @0 ll*1l8lhQ*F0:PN@@` 30`1h6@0^0:P@N@@` 30 0: @N` 3:]<'6 @0x ll*1lClhW*F0:P@N@@` 30: /`1h6 @0^0:PBN@@` 30 0: BN` 3:]<'6 @0G ll*1lc0:PBN@@` 3lhW*#0 \#*#/*1h26@0^0:PN@@` 30 0: N` 3:]<'6 @0 ll*1lClhW*F0:PN@@` 30: /`1h6 @0^0:PRN@@` 30 0: RN` 3:]<'6 @0 llS*1l8lhQ*F0:PRN@@` 30`1h6@0^0:PN@@` 30 0: N` 3:]<'6 @0> ll*1l8lhQ*F0:PN@@` 30`1h6@0^0:PN@@` 30 0: N` 3:]<'6 @0A ll*1l0:PN@@` 3Z[0 \1lhW*F: ]N>F ^:/`1h26@0^0:PN@@` 30 0: N` 3:]<'6 @0D ll*1l0:PN@@` 3Z[0 \1lhW*F: ]N>F ^:/`1h26@0^0:PN@@` 30 0: N` 3:]<'6 @0G ll*1l0:PN@@` 3Z[0 \1lhW*F: ]N>F ^:/`1h26@0^0:PN@@` 30 0: N` 3:]<'6 @0J ll*1l0:PN@@` 3Z[0 \1lhW*F: ]N>F ^:/`1h26@0^0:PN@@` 30 0: N` 3:]<'6 @0M ll*1l0:PN@@` 3Z[0 \1lhW*F: ]N>F ^:/`1h26@0^0:PN@@` 30 0: N` 3:]<'6 @0 ll*1lClhW*F0:PN@@` 30: /`1h6 @0^0:PN@@` 30 0: N` 3:]<'6 @0 ll*1lClhW*F0:PN@@` 30: /`1h6 @0^0:PN@@` 30 0: N` 3:]<'6 @0Z ll*1lClhW*F0:PN@@` 30: /`1h6 @0^0:PN@@` 30 0: N` 3:]<'6 @0  ll*1lClhW*F0:PN@@` 30: /`1h6 @0^0:PfN@@` 30 0: fN` 3:]<'6 @0 llg*1lClhW*F0:PfN@@` 30: /`1h6 @0^0:PN@@` 30 0: N` 3:]<'6 @0g ll*1lClhW*F0:PN@@` 30: /`1h6 @0^0:PGN@@` 30 0: GN` 3:]<'6 @0 ll_*1lClhW*F0:PGN@@` 30: /`1h6 @0c`<|*#*#ll*#i*#lh*#j*1p2 flp4kfz/pz/$   ll'''0   l# *#  , l*F@ 2)6@0/ (8 `tlphH@0 8 l tK pz pfv(kf#`*1h/` lt\8lh*F,:LNN<<\ 3, `1h6<, 8lhl*F,:LON<<\ 3, `1h6<, ^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, O8lh*F,:LN<<\ 3, `1h6<, ] lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, 8lh*F,:LN<<\ 3, `1h6<,  lh*1hMlh*#`/*F,:L@N<<\ 3, :/`1h/`6 <, l,:LBN<<\ 3lh*#`/*#, \#*#/*1h2 `6<,^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, Z8lh*F,:LN<<\ 3, `1h6<, h lh*1h^,:LRN<<\ 3, 0 :RN\ 3 :]<'6 <, 8lhn*F,:LRN<<\ 3, `1h6<,  lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, 8lh*F,:LN<<\ 3, `1h6<,  lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, ,:LN<<\ 3Z[, \1lh*#`/*F:]N  >F ^:/`1h2`6<,  lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, ,:LN<<\ 3Z[, \1lh*#`/*F:]N  >F ^:/`1h2`6<,  lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, ,:LN<<\ 3Z[, \1lh*#`/*F:]N  >F ^:/`1h2`6<,  lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <, ,:LN<<\ 3Z[, \1lh*#`/*F:]N  >F ^:/`1h2`6<,  lh*1h^,:LN<<\ 3, 0 :N\ 3 :]<'6 <,  ,:LN<<\ 3Z[, \1lh*#`/*F:]N  >F ^:/`1h2`6<,   lh*1hMlh*#`/*F,:LN<<\ 3, :/`1h/`6 <, Mlh*#`/*F,:LN<<\ 3, :/`1h/`6 <, Mlh*#`/*F,:LN<<\ 3, :/`1h/`6 <, Mlh*#`/*F,:LN<<\ 3, :/`1h/`6 <, Mlhx*#`/*F,:LfN<<\ 3, :/`1h/`6 <, Mlh*#`/*F,:LN<<\ 3, :/`1h/`6 <, Mlhr*#`/*F,:LGN<<\ 3, :/`1h/`6 <, c\:|*#`*#lh*#z*#l#*1l2 `fll4kf /pz/$   l- l' '',   l#` *#  , l*F< 2`)6<, /8 8 \phtlH`<, , l Ct-Klt*#l/*1p/l hdlp0Qdh 2`^h Pk^+''':LN<< 6< c=3` l`x/h hl+''':LN<< 6< c=3` l`x/ l`W<:L7%dh Td (5 46'':,7N< 3)d6<W<:Lf%dh Td (5 46'':,fN< 3)d6<W<:L`%dh Td (5 46'':,`N< 3)d6<W<:LU%dh Td (5 46'':,UN< 3)d6<W<:LX%dh Td (5 46'':,XN< 3)d6<W<:LN%dh Td (5 46'':,NN< 3)d6<W<:LO%dh Td (5 46'':,ON< 3)d6<W<:Lb%dh Td (5 46'':,bN< 3)d6<W<:Ld%dh Td (5 46'':,dN< 3)d6<W<:LG%dh Td (5 46'':,GN< 3)d6<c l`x/$ dd  ldl''' dd  l#l *#  , l*F< 2l)d6</\ ,<$xh`tp0 ld<dl CtlCplClK h<lt*#`*#\lp*#X*#Tll*#P/*1d2 `\XTPLld0QLh;(8(<%Lh TL (58 46("qx)L85( h  c=Kh/$$ LL  l$LXl'''$ LL  l$#` *#X\ 88 , l\*F( 2`X\)L86(/ d8 hptld8 `\XTPL8(-KCxl #p*1t/p lhlt0Qhldl hld+'''$:TNDD 6D$/dl hld+'''$:TNDD 6D$/dl hldD:TI%hl Th (5 46D:4]/$:I%l T (5 46 0)h6D+'''$:TNDD 6D$/:D:TI%hl Th (5 46D`1x)h5D/ l  c=Kl/$d hh  ldhl'''$d hh  ld#p *#  , l*FD 2p)h6D$/ 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 PkZCxP4D:HU%\h T\ (5D 464$ $(]3)\D64$4D:HU%\h T\ (5D 46$:U%h T (5 46$` # t4l F:Nok ^`1x2l`)\D64$P4D(H%\h T\ (5D 464$ $( ]3)\D64$4D:HU%\h T\ (5D 46$:U%h T (5 46$` # t4l F:Nok ^`1x2l`)\D64$ h  c=Kh/$ \\  l\l'''$ \\  l#l *#` DD , l`*F4 2l`)\D64$/ 4xxhdtDl`\D4$LK t8*#ll#h*#d*#`k #\*1p2 lhd`\Xlp0QXt;4D(H%Xt TX (5D 464"qx)XD54 t  c=Kt/$0 XX  l0XBl''' 0 XX  l0#l *#dh DD , lh*F4 2ldh)XD64 /L,tp8 lhd`\XD4 |Kpz tQ*#ll#h*#d*#`k #\*#X1*#Tl#P*1p2lhd`\XTPLlp0QLtA(8(<%Lt TL (58 46((]3)L85(pz t  c=Kt/$ LL  lLql''' LL  l#l *#dh 88 , lh*F( 2ldh)L86(/|,tpDlhd`\XTPL8(@ lCt-KC+H*#l-*#hk #d*#`.*#\lt*#X/*1p2 lhd`\XlMH@ 0Àlp1*#l#h*1p2lh D@lp0Q@D 286D Pk6 c=38 l8x/0D hl06D Pk6 2< l<,W(:H4%@D T@ (5( 46'':4N, 3)@(6W(:HI%@D T@ (5( 46'':IN, 3)@(6W(:H8%@D T@ (5( 46'':8N, 3)@(6W(:H9%@D T@ (5( 46'':9N, 3)@(6W(:H:%@D T@ (5( 46''::N, 3)@(6W(:H;%@D T@ (5( 46'':;N, 3)@(6W(:H<%@D T@ (5( 46'':<N, 3)@(6W(:H=%@D T@ (5( 46'':=N, 3)@(6W(:H>%@D T@ (5( 46'':>N, 3)@(6W(:H?%@D T@ (5( 46'':?N, 3)@(6W(:H@%@D T@ (5( 46'':@N, 3)@(6W(:HA%@D T@ (5( 46'':AN, 3)@(6W(:HB%@D T@ (5( 46'':BN, 3)@(6W(:HC%@D T@ (5( 46'':CN, 3)@(6W(:HD%@D T@ (5( 46'':DN, 3)@(6W(:HE%@D T@ (5( 46'':EN, 3)@(6W(:HF%@D T@ (5( 46'':FN, 3)@(6W(:HG%@D T@ (5( 46'':GN, 3)@(6c,7'''l<@@MH @8 3l@=3<@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:PIN@@` 30`1d6@ 0Mld*# /*F 0:P8N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P9N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P:N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P;N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P<N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P=N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P>N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P?N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P@N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PBN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PCN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PEN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PFN@@` 30:/`1d/ 6 @ 0Mldr*# /*F 0:PGN@@` 30:/`1d/ 6 @ 0c`SH*# *#ld*#*#l#*#*#kn#*1h2 llh4kln/pz/$   ll'' '0   l#  *#  , l*F@ 2 )6@0 /8 `pdthH @0  D l tK pz pChbv(kb1d lt\^,:LIN<<\ 3, 0:IN  \ 3:]<'6 <,  lh*1hCldW*F ,:LIN<<\ 3,:/`1d6 < ,^,:L8N<<\ 3, 0:8N  \ 3:]<'6 <,  lh*1hCldW*F ,:L8N<<\ 3,:/`1d6 < ,^,:L9N<<\ 3, 0:9N  \ 3:]<'6 <, O lh*1hCldW*F ,:L9N<<\ 3,:/`1d6 < ,^,:L:N<<\ 3, 0::N  \ 3:]<'6 <,  lh*1hCldW*F ,:L:N<<\ 3,:/`1d6 < ,^,:L;N<<\ 3, 0:;N  \ 3:]<'6 <,  lh*1hCldW*F ,:L;N<<\ 3,:/`1d6 < ,^,:L<N<<\ 3, 0:<N  \ 3:]<'6 <, \ lh*1hCldW*F ,:L<N<<\ 3,:/`1d6 < ,^,:L=N<<\ 3, 0:=N  \ 3:]<'6 <,   lh*1hCldW*F ,:L=N<<\ 3,:/`1d6 < ,^,:L>N<<\ 3, 0:>N  \ 3:]<'6 <,  lh*1hCldW*F ,:L>N<<\ 3,:/`1d6 < ,^,:L?N<<\ 3, 0:?N  \ 3:]<'6 <, i lh*1hCldW*F ,:L?N<<\ 3,:/`1d6 < ,^,:L@N<<\ 3, 0:@N  \ 3:]<'6 <,  lh*1hCldW*F ,:L@N<<\ 3,:/`1d6 < ,^,:LN<<\ 3, 0:N  \ 3:]<'6 <,  lh*1hCldW*F ,:LN<<\ 3,:/`1d6 < ,^,:LBN<<\ 3, 0:BN  \ 3:]<'6 <, v lh*1hCldW*F ,:LBN<<\ 3,:/`1d6 < ,^,:LCN<<\ 3, 0:CN  \ 3:]<'6 <, % lh*1hCldW*F ,:LCN<<\ 3,:/`1d6 < ,^,:LEN<<\ 3, 0:EN  \ 3:]<'6 <,  lh*1hCldW*F ,:LEN<<\ 3,:/`1d6 < ,^,:LFN<<\ 3, 0:FN  \ 3:]<'6 <,  lh*1hCldW*F ,:LFN<<\ 3,:/`1d6 < ,^,:LGN<<\ 3, 0:GN  \ 3:]<'6 <, 2 lh_*1hCldW*F ,:LGN<<\ 3,:/`1d6 < ,c\<H*#*#lh*#i*#ld*#j*1l2 blll8kb /pz/$   l: l'' ',   l# *#  , l*F< 2)6<, /D <$\pthld@ <, @ lCt-KC+,*#l-*#hk #d*#`.*#\lt*#X/*1p2 lhd`\XlMH@ 0Àlp1*#l#h*1p2lh D@lp0Q@D 286D Pk6 c=38 l8x/0D hl06D Pk6 2< l<,W(:H4%@D T@ (5( 46'':4N, 3)@(6W(:H7%@D T@ (5( 46'':7N, 3)@(6W(:H8%@D T@ (5( 46'':8N, 3)@(6W(:H9%@D T@ (5( 46'':9N, 3)@(6W(:H:%@D T@ (5( 46''::N, 3)@(6W(:H;%@D T@ (5( 46'':;N, 3)@(6W(:H<%@D T@ (5( 46'':<N, 3)@(6W(:H=%@D T@ (5( 46'':=N, 3)@(6W(:H>%@D T@ (5( 46'':>N, 3)@(6W(:H?%@D T@ (5( 46'':?N, 3)@(6W(:H@%@D T@ (5( 46'':@N, 3)@(6W(:HA%@D T@ (5( 46'':AN, 3)@(6W(:HB%@D T@ (5( 46'':BN, 3)@(6W(:HC%@D T@ (5( 46'':CN, 3)@(6W(:HD%@D T@ (5( 46'':DN, 3)@(6W(:HE%@D T@ (5( 46'':EN, 3)@(6W(:HF%@D T@ (5( 46'':FN, 3)@(6W(:HG%@D T@ (5( 46'':GN, 3)@(6c,7'''l<@@MH @8 3l@=3<@6 D  l8x/$0 @@  l0@3l'''0 @@  l0#l *#dh (( , lh*F 2ldh)@(6/@@(x,Dt8<p< lhd`\X@( L l tK pz plv(klpnCdlv(kl1` lt\^,:L7N<<\ 3, 0:7N  \ 3:]<'6 <,  ldT*1d8l`Q*F ,:L7N<<\ 3,`1`6< ,^,:L8N<<\ 3, 0:8N  \ 3:]<'6 <,  ld*1dCl`W*F ,:L8N<<\ 3,:/`1`6 < ,^,:L9N<<\ 3, 0:9N  \ 3:]<'6 <, W ld*1dCl`W*F ,:L9N<<\ 3,:/`1`6 < ,^,:L:N<<\ 3, 0::N  \ 3:]<'6 <,  ld*1dCl`W*F ,:L:N<<\ 3,:/`1`6 < ,^,:L;N<<\ 3, 0:;N  \ 3:]<'6 <,  ld*1dCl`W*F ,:L;N<<\ 3,:/`1`6 < ,^,:L<N<<\ 3, 0:<N  \ 3:]<'6 <, d ld*1dCl`W*F ,:L<N<<\ 3,:/`1`6 < ,^,:L=N<<\ 3, 0:=N  \ 3:]<'6 <,  ld*1dCl`W*F ,:L=N<<\ 3,:/`1`6 < ,^,:L>N<<\ 3, 0:>N  \ 3:]<'6 <,  ld*1dCl`W*F ,:L>N<<\ 3,:/`1`6 < ,^,:L?N<<\ 3, 0:?N  \ 3:]<'6 <, q ld*1dCl`W*F ,:L?N<<\ 3,:/`1`6 < ,^,:L@N<<\ 3, 0:@N  \ 3:]<'6 <,   ld*1dCl`W*F ,:L@N<<\ 3,:/`1`6 < ,^,:LN<<\ 3, 0:N  \ 3:]<'6 <,  ld*1dCl`W*F ,:LN<<\ 3,:/`1`6 < ,^,:LBN<<\ 3, 0:BN  \ 3:]<'6 <, ~ ld*1dCl`W*F ,:LBN<<\ 3,:/`1`6 < ,^,:LCN<<\ 3, 0:CN  \ 3:]<'6 <, - ld*1dCl`W*F ,:LCN<<\ 3,:/`1`6 < ,^,:LEN<<\ 3, 0:EN  \ 3:]<'6 <,  ld*1dCl`W*F ,:LEN<<\ 3,:/`1`6 < ,^,:LFN<<\ 3, 0:FN  \ 3:]<'6 <,  ld*1dCl`W*F ,:LFN<<\ 3,:/`1`6 < ,^,:LGN<<\ 3, 0:GN  \ 3:]<'6 <, : ld_*1dCl`W*F ,:LGN<<\ 3,:/`1`6 < ,c\<,*#*#ld*#i*#l`*#j*1h2 lllh8kl /pz/$   lB l'' ',   l# *#  , l*F< 2)6<, /L <$\ptdh`@ <,  l tKpz plv(klpn lt`8ld*F 0:P7N@@` 30`1d6@ 0Mld*# /*F 0:P8N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P9N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P:N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P;N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P<N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P=N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P>N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P?N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:P@N@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PBN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PCN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PEN@@` 30:/`1d/ 6 @ 0Mld*# /*F 0:PFN@@` 30:/`1d/ 6 @ 0Mldr*# /*F 0:PGN@@` 30:/`1d/ 6 @ 0c`S,*# *#ld*#*#l#*#*#kn#*1h2 llh4kln/pz/$   ll'' '0   l#  *#  , l*F@ 2 )6@0 /8 `pdthH @0      0,)`%I 0,)`)&@)`- )=I0A)`1i=,)`5i#0)` 9i(#0)` =(4A) `AY9#8) ` EY9#,) `IA(4 ) `MY9#8I) ` QY9#0)`U=98)`Y a(, )`]) 0,I)`a00)` eA Y (8)`iA Y #@ )`mA y  &=98I)` qY9#8)` uY9(#@)`yA   &=98 )` }Y9(#8I)` Y9#nrU ( !qYhIi19jvtI9v qQ$y $ $ tzyy'I'@4 (1( W   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 *z^ FZ`P (GetOpenFileNameAl <S GetSaveFileNameA<Rar6J; ܦN*=h8+3q#}\ Jއ0x#}\ Jއ0Rar6J; ܦNRRLLME(8 SS S Hj >"L<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}X `j  hl 0Khn H(typhp ` typhr x  typht sterhv Xhx hz h| (h~ $$h ((̃nh 8,,( h P00Xh h44( h 88xh ::^h <<(h @@TCh DD(h HHXB PBB HBB xBB BB B B B %+ pX ) xA %+ (p( ) A %,V` k(%%7i HiPhi $@ %`@ ,`( 4k FF\i  iR@i $x@ %` ` ,p`4k$EEi iRi $P@ %` 8 , `Do(i i ` p,N`(kH,i hi `$r` l`Rh%B (BB  BB BB pBB BB C H pPp(xH pPp(xhV`V x0  x ` t` t @ `Pp` t `Ppp   X  `Pp p (  `A %H \ @ @ @ @  %(  @  ` t `Rph ` t0 `Rp  X`0 Hp ` x` t`Rp(`A % \ @p @ @ @  @ (@ @(   %.@ @$&h@ ` t@`Rp` tp(`Rp@ x@Xt @@d @pT @D @4 XX@ @h `(x` tX `Rp`A %\ @ @  @8 @P  @h @ @P   %.@ ` t$&@8 @h @t @d @T ` t@D @4 Xp@ ` t`` th H` x0` t~.  @` @\ @L @H @D hN`Nx( h(` t$p4& ,@X @H @@8 @(  @0p RYP$*\Rffff*0[50cc4c84(*\Rffff*0[50cc4c84\0*\R0*#19*\R0*#1a*\R0*#13*\R0*#11*\R0*#14*\R0*#9*\R0*#f*\R0*#e*\R0*#f41 (  X ,` ,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) HyperDy                   L      M " . $ % & ' ( ) * + , - ! / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J   O \ S T U V W X Y Z [ K ] ^ _ ` 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 { | } ~  ne 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^[̃TCYbg^D(tB^̃CfbNX^D(t@C̃obt@^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\ar0------------------------------------------------   S-----------------------------------------------------------------------------------֐ OpenDlg SET:pr ut@CJvR_CO\A nHandleFEChẼnhAnFilterFtB^[Y߂l t@CIꍇ̃t@C̃pXALZꍇ""߂S-----------------------------------------------------------------------------------t ! ]0OPENFILENAME\]0߂l!  - \̂̐ݒ轂ID  9 MOr OFN_SHOWHELPȏq9p 0.AvP[ṼCX^X̃nhwJ .hInstance = App.hInstance 'CX^Xnhݒ9n 0eEBhẼnhwt@CJ9 0 R_CAÕ^Cgݒ$ P9r 0tB^[ݒ 9l 0\̂̃TCYݒ9| 0"t@C̃obt@̃TCYݒ$$\9~ 0tpXp̃obt@m۬9 0"tpXp̃obt@̃TCYݒ$$\9z 0t@C̃obt@m 9 0ftHg̃tH_̐ݒq $ '' ,LZ̏ 'Vd,OK̏ !z 'Vencek(i    BOtĕۑ_CAO{bNXJA擾t@CԂXMLt@Cp]`]D \̂̃TCYݒ % 9l eEBhẼnhw/9n .AvP[ṼCX^X̃nhw%9p 6t@Cp^[ݒiw肷ꍇ͑ċLj XMLt@C(*.xml) *.xml ׂẴt@C(*.*) *.*9r (DIɕ\tB^̃CfbNX9x t@C̓e R$ $ \9z  oCg9| 3t@Cobt@̐ݒ(NullŖ߂Ăj$ $ \9~  oCg9 ftHg̃tH_̐ݒ 9 _CAÕLvVOtĕۑ9 flags̓̐ݒ   9 q $ ' 2LZ{^ꍇiN[YEG[j'zd*ۑ{^ꍇit@C擾j !z !z  % $ 'Rk  R.xml $ % R.xml'RkX ꉞgqƍĂSAVE R$ .xml %Z R'd "t@Cw肵ĉBA@&'k i   BOtĕۑ_CAO{bNXJA擾t@CԂeLXgt@Cp]8]DX \̂̃TCYݒ 9l r eEBhẼnhwH9n .AvP[ṼCX^X̃nhw 9p 6t@Cp^[ݒiw肷ꍇ͑ċLjeLXgt@C(*.txt) *.txt ׂẴt@C(*.*) *.*9r (DIɕ\tB^̃CfbNX9x t@C̓e R$ $ \9z  oCg9| 3t@Cobt@̐ݒ(NullŖ߂Ăj $ $ \9~  oCg9 ftHg̃tH_̐ݒ 9 _CAÕLvVOtĕۑ9 flags̓̐ݒ   9 Xq $ ' 2LZ{^ꍇiN[YEG[j'zd*ۑ{^ꍇit@C擾j !z !z  $ 'Rk  R.txt $ R.txt'R kꉞgqƍĂSAVE R$ .txt R'd"t@Cw肵ĉBA@& 'k@i8p*t@CbNĂ邩ǂ𒲂ׂ]#t@C݂Ȃꍇɂ2Ԃ $ ~' zk$' %p  5G[ȂibNĂȂjƂ0Ԃ . V' d1G[ibNĂjƂ1Ԃ' ki<************************************************************, pXt@C(gq܂)o<************************************************************]]]'$'R \ _h $ '$  $ $' $\    $'R^  R'Nd'Nk N$&'NimAttribute 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__SRP_1eq __SRP_1f`clsForm_n# @R__SRP_4dR vPl CtlCp-$q 4   T0 lpT L  5    `#T$/6 (5    `#T/6 ltT, q,$^q<$ lq l 9 CxCl@Cx/PpXxi0T p t $i T  YhYhDl 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/HpXxi0T p t $i T 4  dT4YhYh8l 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/H8pXxi0T p t $i T 4  tT4YhYhl 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 @,Iip 4,j(p 40`  00A` ! !00` % !0,`)A(,`-a0 YhnrU M@(M`#,AM`! #(M`%#(M`)#8M`-~  8 "X  B *)08 @BH `*h " "0&B- (  8 "@ "h 0 &B B /( 8H P` hBp    B,   (8 @H PBX p x C٨<IxX*=h8+3qgzMz;_sZ*qxgzMz;_sZ*qIxXME< SS S)L"  ">"L LL<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}h,*``pPk@  i  ,&` k i `  cFormi  ,0h` bk( $ 'i  t` %,` `pk (3i  zp! %,`(nk(, B)( HP.`%i* pi*.i , 0`p+4Li* i ,`pkp0 )(  `%i bi , `v+8i 8@i X%0h`x%0h`pH(ph!6`* t*`z  ``* t(`* tH@p (p n @n h ` z0`* t@h`* t@p h* `*z  `* t hH x ` 0   j@ @t @p @` @P ` x h& `&H z  ` H n @j* @t @p @ ` @( P @@ @ @p 0 @X @ @ @ H X  h0 `* t`* t`0@ z  @  @@ p @l @0 h H   @dO p 0  @b 0 h` 0`` z  `* t `* t   &p@x @v p  h`x@t   @p h ` 8xP8@v @PPhXX@< RYP(*\Rffff*0V50cc4c84\0$*\Rffff*0V50cc4c84$*\Rffff*3050cc591a*\R1*#10b$*\Rffff*3=50cc595c*\R1*#129*\R1*#1e$*\Rffff*0N50cc4c84*\R1*#91*\R1*#c6*\R1*#c1*\R1*#17b4     8@ X` x  " "   ( HP h p   $ $ 8@ `h  " " $ @$H p x "       8 "@  h p             $  0 $8  ` &h   &           8 @  ` h          "   "  8 &@  h $p   $   $   $  ( 0  H P  p x          $    8@ `(h &    $ 8 @ `h    B$      B( @ H Pp x    0 8P Xp x " "   (@ Hh p  $ $ 8 @` h   " " $ $ H Pp "x    "@ H` h   $ $8 &@h &p    8 @` h  " " &@ $Hp $x $ $     (H Pp x  $  8 (@h &p   $ 8 @X `   Ѓ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 '* !6!h j= @ !6B@lk'*i `'& !6!h n7擪ɈړĂAی삷 NoReset=Trueœ͕ی ! B@  @ r jl !6B@p !6!h je A@* 擪ɈړĂAی삷 NoReset=Trueœ͕ی% ! B@  @ r jl !6B@pk(k '&i'0]H  !6! ! ( k '0ih'` $&z`kX].z z!\z(k .z'` i  ( KT * $ ' S'ni; * ݃ev[gKT' ݎw肵ĂKT' ݋LNNKT;' ݋LNKT ' ݋LNKT' DBo^KT' ݐiDBo^KT' ݈KT' ݖ@lčl̕KT ' ݐ\җX֔ԍO3KT(= ' ݐ\җX֔ԍ4KT ' ݐ\ҏZtKiKT ' ݐ\ҏZKT ' ݐ\ҖOtKiKT' ݐ\ҖOKT' ݐ\ґ\ҖEKT' ݐ\ґ\ҐtKiKT ' ݐ\ґ\ҖtKiKT' ݐ\ґ\ҐKT' ݐ\ґ\ҖKT' ݐ\ғdbԍKT ' ݑ㗝lX֔ԍO3KT' ݑ㗝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.' ݖݔ̈ړ͈1KT/' ݖݔ̈ړ͈2KT0' ݖݔ̈ړ͈̓t[KT1' ݎgyы󒆐d1KT2' ݎgyы󒆐d2KT3' ݎgyы󒆐d3KT4' ݎgyы󒆐d4KT5' ݔlKT6' ݔlSҖKT7' ݔlSҖKT8' ݔldbԍKT9' ݉^pJn̗\KT:' ݊]o^̗LKT;' ݊J݂̖ړIKT<' ݊J݂̖ړIt[KT=' ݖݔ̏uꏊtKiKT>' ݖݔ̏uꏊR[hKT?' ݖݔ̏uꏊKT@' ݎʕKTA' ݓK\ݔ̔ԍKTB' ݖݔ̐ԍKTC' ݔlKTD' ݊Jǂ̗\萔KTE' SH' n8i0   0 ( KT $ 'S'ni 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ݖݔ̈ړ͈1' 0KTݖݔ̈ړ͈2' 1KTݖݔ̈ړ͈̓t[' 2KTݎgyы󒆐d1' 3KTݎgyы󒆐d2' 4KTݎgyы󒆐d3' 5KTݎgyы󒆐d4' 6KTݔl' 7KTݔlSҖ' 8KTݔlSҖ' 9KTݔldbԍ' :KT݉^pJn̗\' ;KT݊]o^̗L' <KT݊J݂̖ړI' =KT݊J݂̖ړIt[' >KT ݖݔ̏uꏊtKi' ?KTݖݔ̏uꏊR[h' @KTݖݔ̏uꏊ' AKTݎʕ' BKTݓK\ݔ̔ԍ' CKTݖݔ̐ԍ' DKT ݔl' EKT݊Jǂ̗\萔' Sx' nhi`XAttribute 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= 1NF#A-b.F../rdHc/*qgii0__ O~/W R%3O/< / \_/Җ\T3/u4_ V _0??p t 41?4CU "4000021p40\ 0=2.0ݔړ͈1_0 0O![- 50?4gyы@d8 Case 51 GetFieldNameKagami = "ݎgyы󒆐d2"~U2;3P3;P4PI Z4lT5!SҖ$6$$7$dbԍ8^pJn̗\N9g]o^@LM60hJ̖ړIN(Ft[̏uꏊKiN(PR[h_Fo `ʕM6_fK\v'W6`& ' a n$C_J#iBElse^ "End Select !Function  kv<4<Cx kv=J=Cx kv>`>Cx kv?v?Cx kv@@Cx kvAACx kvBBCx kvCCCx kvDDCx kvEECxOCx/ (4x  Y%+ '!I'@4 (1(__SRP_4cBcclsINIQ __SRP_18 *@__SRP_19sC &,AM`4&0M` 10,M`80nF$G 4Hp IQl[htprU ,`#,A`#,`0,`0x@x$xTnX5RYP$*\Rffff*3=50cc595c(*\Rffff*3=50cc595c\0$*\Rffff*0U50cc4c84*\R0*#10*\R0*#9*\R0*#e*\R0*#19*\R0*#13$*\Rffff*0N50cc4c84*\R0*#14*\R0*#f*\R1*#155*\R1*#152*\R1*#c6*\R1*#c1*\R1*#17bB4 6@ ,x > < ( @ ` h 6 & &  &( P p    & & "  2H 6 $$&"0 :X  N *vReL>*=h8+3qkLxkLeL>RxR MEL @SS S H ">"rU LhP!-FaGGGA-q-E 9  I Y ) AaYY) Iy C)qai Yь)yA1'%Y%+ '!I'@4 (1( MWMMMMMWMMppz*ptF$G 4Ht <Ilpt\):`JNPPtF$G 4Ht It5Ppz/ ,p$ tPlpz*ptF$G 4Ht <Ilpt0p'0PtF$G <Ht Kt6P0B''0:`JNPPl M@ @tF$G 4Ht HIt6P0[*ptF$G 4Ht <Ilpt[  Y 0p'0PtF$G <Ht Kt6P0B''0:`JNPPl M@ @tF$G 4Ht HIt6P0pz/ l$ tP0xpz/lpF$G 4Hp IQl[htpdLibt dLkbZ t hL tdL8pz/ x0hdtplppzv+x kv)/  Mpxp NkxR/  c=Nppz/  p(p |HlCt5l qplp4nlt4knpz=pz/H(t Xl CtltCp lp0'pzL lp0>pzL lp0UpzL lp0lpzL lp0pzL lp0pzL lp0pzL lp0pzL lp 0 pzL lp 0 pzL lp 0  pzL lp 0$ pzL lp 0; pzL lp0RpzL lp0ipzL lp0pzL lp0pzL lp0pzL lp0pzL lp0pzL lp0pzL lp0 pzL lp0!pzL lp08pzL lp0OpzL lp0fpzL lp0}pzL lp0pzL lp0pzL lp0pzL lp0pzL lp 0 pzL lp!0!pzL lp"0"pzL lp#05#pzL lp$0L$pzL lp%0c%pzL lp&0z&pzL lp'0'pzL lp(0(pzL lp)0)pzL lp*0*pzL lp+0+pzL lp,0,pzL lp-0-pzL lp.02.pzL lp/0I/pzL lp00`0pzL lp10w1pzL lp202pzL lp303pzL lp404pzL lp505pzL lp606pzL lp707pzL lp808pzL lp90/9pzL lp:0F:pzL lp;0];pzL lp<0t0>pzL lp?0?pzL lp@0@pzL lpA0ApzL lpB0BpzL lpC0CpzL lpD0,DpzL lpE0CEpzLpz/ X,8pt DH-7l qtlt0pk8>p1x; 1x/ H(xpH-k pv kv"Cx kv8Cx kvNCx kvdCx kvzCx kvCx kvCx kvCx kv  Cx kv  Cx kv  Cx kv  Cx kv * Cx kv@Cx kvVCx kvlCx kvCx kvCx kvCx kvCx kvCx kvCx kvCx kvCx kv2Cx kvHCx kv^Cx kvtCx kvCx kvCx kvCx kv  Cx kv!!Cx kv""Cx kv##Cx kv$$$Cx kv%:%Cx kv&P&Cx kv'f'Cx kv(|(Cx kv))Cx kv**Cx kv++Cx kv,,Cx kv--Cx kv..Cx kv//Cx kv0,0Cx kv1B1Cx kv2X2Cx kv3n3Cx kv44Cx kv55Cx kv66Cx kv77Cx kv88Cx kv99Cx kv::Cx kv;;CxL LLLL @i@ hςi `$8h` d,x`:2k x::i6 i> 8irXi   Thԍ`$;d̗\` `` H;\`B X Se0 % X,h`w>k | 99iD 8i i   F lH [0@ % H wh$  $p`$dh` ` l` \ n %   % (H,6`+k !77i  `J tion`$p` lh` h ` d```^p % B,H `@k "&&+i  `$t DoE` pGx,,!`0bk #Qi   `P t`R p,\`"`dk $pi  8 % V #`$|+% X $`h&|+&,L %`Nk  'OOi  `t$@ Mp$+ '$p,X&`Hzk(i"  ANi   i ' pP Mo%,~'`Vk)i X`t̖,|H(`Kk*i `PIt@,L)` |k+33i h`|t,N X*`Ek ,Ji  i  "` p6,T +`gk -ii  ^ x$,`((k.--`x8%b hHHb PHb (Hb 8 @" @p@b 0H @b L @b T @b 0` @b Xh @b t@b |@0  ((  X80h PxH`X@ xH h  hH X H ( Xh h `$z"`x`Z `: t &JLN6 @#T #" ' "` t` t@)8 "$@x%P ` t` t@`$$z@@L #@#J ## @p'H $A %#%# ` t@%8 A %` t` tA %` t 6 -`)t+"/i "@4 %@)0 #@@' @@% (@0& 'p' ` t` t@' A %` t P"@X' '` t@' @@ (@ # (B` t@ @ ` t*` t !hB!"%"%$'x##(# )p*(` th".* @) x)X*` t` t` t+,` t@ `#8""h6 `6X*z  )` t,` t` t` t` t@X(p*+0-@,+-p,,p*-( L $B @`-X @.H ),,` t,+` t@X,8 (@8.( @$ @,  /` tx-(0`rp@@ + L .*&@ @H- @ @-  /+` t`rp@ (` t.2 [Dummy] @P. ` t@h. @ @ ` p.h2,`rp` t(2`rp h 0`6 t`/ 5`> p05`@ l(0(0@0,` /x p `" xX0 1`6 t`> p `@ l7`" xX01p0218`" x37` t h$ x`$ 2z H2 22gjh  ` h2z ` t8  (3@P4p (3`" xH38`6 t85`" xp38`> p089` t`rl22222-@l 57@77X7 5(78/h  ` 5z X$9` t((  h ( HxPH  0XX h8@  Hh Xh0hX`x$  xH` t nX8@p @p7` 8@7P @7@ @0 @7 @ 8h`7x`6 tp9@9 ` t898:99@98(91`> p`@ l    9@X9` @ :\ 9X9 @?` t99 9`rp@X (T#`8:9 @P @H:L `: :@H p:H::H:X9;;x`<=<=<H;=`;h `0;z p;H;;0;`6 t;;`> p;;``rl(<;     @8<T P<< @x<P <8< @L @<H <x< @D <<<<@8=@ =<`=< $`(==P=8<%@8 x=8=,>4X$``=,;@P@2 >p>>p>>>h ?` X>x>p>>X>` t> @p Hh ` ?x@?D` t8@@?x@?`@0?(@?` tP@@`rpp@8@Hn0C@l h `t`A00BABCBAA`AAxA`@z A`A A@X .B N *&@Bl @h @Bd  BA@` HBB@B\ BpC E+ 2 `'@Z @T @BP @L @(C< @@@C, @XC @C @C PE8E+`6 HCt@ @ PDDDED EhDXB B. D`6 PDt@d @P G@T @L @J @8ED XE@@ 8E/hN  `N `Ez ExEF`E2 `t`6 Et@xEEXHGGG@HxE(HE` tE`6 tpHPI`6 FtP&NLJ@0G` @HGP @`G@ @xG0 @G @G @ @ H`6 t@G @H @ F.*@ @I 8IH*`6 tJ`6 tHM`> pM`@ l@ I @ h| `|8Ix6.*&` t@r @Jl (J@R(`6 t@L\ K`6 tPJ(R`> pXR`@ l@JX @T @P @JL @H K@(K8 @K`6 t*@L( P`6 tKT`> pLS`rl0IxJJIIJPIhIF`> p`@ l`" x@pM `6 t  T`> p@M `6 tHMU`> pNU`rl@ @ hL `L Mz   @Pl VI`@ l @j hNxW `6 t`W`D t8PY` pX@MPOO(NOMPH`> p`rl@QX @OH @Q8 @4 M    .*@P0 H_`6 tY`> p`D t0QZ` p@, @P( @$ O&@XQ @pQ Z`K`rl@ @ XR@RRR@RRIh ` (Rx` tR[`D th[` p(@Sd @ ST @D @8S4 @$  TTTTTT`Kh ` Sx` t`Th\`D tP\` pn@R@T` @TP @U@ @0 @U @ VU`V0VUV Mh ` Ux` tn@HV` @xVP V@V@ @0 @V (@ xWWWhXWWXxWW@Nh~ `~`Wx6.*&@r @8Xl @X\ @ XX @T @P @PXL `@H @X8 @X( @X @X @ @ YYYNh ` Yx ZZZxPh ` Zx P[[[pRh ` h[x h\h\\8Th \` P\x` xP]P]]h]h ` 8]x]x]P]`8] xX^X^^p^h ` @^x^^X^`@^  x____Pe`"_th ` h_x^__h_ ````h ` p`x````p` xh ` `xHa`2 ` xbb`"(ata``(aab`6 (atb0cHcccc`cbc@ah, `,bz 6\.*&@x @cl H@xch @d @` `"Xct@c\ @X @dH @ d8 @8d( @Pd @hd (@ @ 8efehffee8eeeh\ `\ ez `g`6 t`"8ete8e e  T .*&l@x @ ft @p @8fl @h H&@Pfd @` @fP @f@ g@f0 @f @f @ @ 0ghT  `T gz  Pg(gg@m`D tgj ` p(gh`h8ihh(gHh@gJLN.*&@xht @hp @hi` @\ `t@iX @T @ iP @L @Pi< @i, @i @i @ @ 2 2hj82 @h @dh&  `& jxmm`t jjj0lX2 mm(mjh( H`( lxl `md@o`t nnPn0nh*  `* nx@nnn0 pnh, x`o`ooxo`"8ntp`t`, hnx0o`oJhn @hphppph. `. Ppxphp Pp8z`lpp qqqqh0 `0 xqxqqxq.* Hrp`ssrrrh2 `2 rxrrrr `6 rt (sr  @8sl Pss @sh xs8s @d s8s@s` ss@\ sssttttth8 `8 txttt  @@t uhvvv8vu vuh: `: uxuuvu`6 t0vPvu   @`vl xv8v@h Lv`v`@d vv `H&`vv @\ `vXxwxyXxw@xwh `wz wwxw`D t0xw` ppxx   @xX xXxx@xT xx@P xx@xL .*yxH@ yH 8yx@HyD `y y$ @@ pyHy$yHy*x2@> h `yx yyzy`"yty @H{l 8gy8 z{x{{{yzy.*&@0{h @d @` @`{\ @X @{H @{8 @{( @{ @| @ @ .}(}}X}0~|H~|hL `L|x}||JLN.@@}l @p}h @}X @T @`~P @}@ @}0 @~ @~ @ @ @ }*&@x~ @ u00**0 .8&h   (0"X$ & " 8Xx &*B  47@H PB X  `p6  B   *<  B  ( @ 6H  ` p   B    6   &0   B  ( H ` B h p   " *       0  8 H X ` h             ( ")@ "h       $    0 @  H  P  "#h           0 @ P hx      B   "     (B0 8 H P" X ` p xB   B   B   B  8 @BH P p xB   B   B "   B( 0 P XB` h  B   B   B    B( 0 P XB` $h  B$      8 P `x %   *  @ X` hB p x    B    (0H `      B,  $ HP  X  x  !8@ H P X ` hB,p      %8X "p$#") *"'@H P40X &  (08@ H PX  "`    !    08 @HP XB$` x ,      8 %Pp            %8Xpx"#")   '0Ph    B     (0  $8`hpx (,;   (  @ X  p x      $  "(!@! P!X! `!h! x!!! !$!l!! !B! !!!" " "0" 8"H"P"X" x" "" " "" "" " " 4#8#H#P#X#`# h#$p#l## #B# # # ###&#$ ($ 0$,@$ p$x$$ $$$ $$$ $$$ $$$l%(% 0%B8% @% H%P% `% 2h% %%%%% %$%l%& &"&  & 0&"8&  @& H&BP& X& `&h&p&  x& & & & & &&& &' 8'0'H' P'  X'.#p' ' ''''  ' ' ( ((( 0(8(  @( P( p( (( ((  ( ( ( (( ((  )*) H) X)`) h)p)  x).) ) )) )))* *$*l *@* H*B$ P* p* Bx** *** *$+l+0+ 8+B@+ H+ (P+x+ +++ +++++ +$+l,(, 0,B8, @,  (H,p, x,,, ,,,,, ,$,l- - (-B0- 8- @-6PH-H60A1 (2 B42(A@7 (6 B 73h--P-Hh70A7 (p- B76(A7 (8 B86 88-P-H-0AH8 (x8 B87(A8 (8 B87 9-.. .$.l(.H. P.B X. `. h.p.#x.*+...#.(*.B /@/#H/(*h/B//#/(*/B0 0(000 80$@0lP0p0 x0B0 0 0 P0B00P0B1 1P(1BH1h1p1x1 1$1l11 1"1 B02x222222<2F2  3 (3 Q`5P3 Q03x3 QX333 3  33 <3 4 40+04`4 4 4 4 04 .056666h4 p4$x4l44  2" 3 332 (5 &55 5 5 "5 66 06 @6  H6X6 `6p6 x6 (9x +r[hiRɕςĂ(^^;)j0------------------------------------------------& INIt@C𑀍삷NXW[7 Modewɂ胁ł̑ŝŁA”\6 Wordt@CActiveXRg[pɉ y@z Dim INI As New clsINI yvpeBz0 AName / ^[QbgAtiveXRg[ Mode / [h̐ݒ  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[@$Section`]D]h$Section`]D=$key&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]@(ݖǂ̐]@0(ݓo^̔ԍ]@(ݓo^̔ԍ\[gς]@X(ݓo^̔ԍ̐]@(ݓo^̔ԍ̌]@(ݎʕ]@(ݎʕ\[gς]@0(ݎʕ̐]@(ݎʕ̌]@X(ݔFؔԍ]@(݋ZKԍ]@(ݐԍ]@(݉^pJn̗\]@(݊]o^̗L Section  %    %  ' kiKey   %    n %' kHk@i8ZNV  % % ' i L[]  n %'$ $  $ % ' khi`  l]  n %'$ $   % $ % ' ki[Section]`ɂ  ' i8Key=Value`ɂ  n r' iP#FilezSection\̂蓖Ă]]P]h]]] Dummy  B|kANZXĂ݂$B .!0B  +B Err.Clearkk蓖_ DoEvents  Gxj  $B$   B  ZNVƃL[ Err.Clear $@T   $ $T Ps󂯂 $+T $ '$ $@T@kk $ ! $+T $ !  $ '$ $@T` $ %  $+T(  ' $ '$  $B$ e) RgƂs, L[̓VJg $@T  $B $+T $ '$k   ' h $ B T'B .B@,o0 AName̎擾 ' m  AName̐ݒ " ' mh  Mode̎擾 '$ m  Mode̐ݒ " ' m(  Section '& mX ݂̖ǂ̐̑ '( m  ݂̎ʕ ' mH ݂̎ʕ\[gς ' m ݂̎ʕ̑ ' m ݂̎ʕ̌ ' mHh ݂̓o^̔ԍ '* m ݂̓o^̔ԍ\[gς ', m( ݂̓o^̔ԍ̐ '. m ݂̓o^̔ԍ̌ '0 mh ݂̔Fؔԍ ' m8H݂̋ZKԍ ' m݂̐ԍ  ' m ݂̉^pJn̗\  ' m h݂̊]o^̗L  ' m` SectionKey]p 4 G{j  G{j 4  NoŎw 4 $ ! '2 6 e NameŎw $   $$ !$  6  $$ ! '2 y( k  d $ SẴL[(Section֌WȂ) $   2 $$ ! '2 k m NoԖڂSection01Ԗ 4 G{j 4 4 $ !$ '8 k m SectionNameNoԖڂKey01Ԗ]  G{j < G{j $   $$ 5$  6 5 < < 7 $ ': k( y k q  m  SectionNameKeyNameɑ΂l]] @ 'ȂDefaultl  {p kh $   $$ 5$  6  5   7 $  >  7 $ ':v{kkqm  ValuẽZbg]x]]]] Gzj  ZNV $   $$ !$  6  $$ !  L[ $$ !   $$ % $  > $ ValueXV > r$  $$ , yk $$ !  $$ !    VKL[ $$ If .KeysCnt > 0 Then t = 0 @ ( > r$  ; 5  9 qk'ykkk  $    VKZNV  G'$j $@ H $$  p 6 $ 9 > r$ ; 9 q  ' 'k 'ki  x ݒ̍폜%KeyȗꍇAZNVƍ폜]]DX]]] zk   ZNV  $ !$  D   @F  $   +F    ' kPH     F '  ' 'kd L[̂ $  $$ !$  D  $$ ! yk $$ !  $$ % $    @H @ $$ %   +H    ' k   $$  ` H $$ (  $$ ( 'kpkh`kX 'k@i8h (ݒ̓ǂݍ]]]] '6zkActiveXRg[̓ǂݍ](]@]X'TextBox1 L'    $ %'   $$+BZNV'  B B $B $B$ ZNV擾'  ' @  $B $ ( $B$ eL[擾  $ @  $B  $ ,  $ !  $ (   ' kk  ' A@L '6zp h .!0 .!0 * .!2A@&k0i( ݒ̕ۑ]]0'  zɍ\̂ZbgA .!0zk $ B B .!0ypkh  $$B' d@   $$B' kTextBox1. Word.ActiveDocument.TextBox1.Value = myStr $N zk'z  .!0 .!0 * .!2A@&kXiPH @',A@6]] y[W\ y[W\$'P ݶ㗝l$'R A@\ P  y[W\ y[W\ P $zkkx R ݶ㗝l R $z8k0k(A@',z  .!0 .!0 * .!2A@&ki '\ P' + Word.ActiveDocument.TextBox1.Value = "" T zHk@'\z0 ( .!0 .!0 * .!2A@&ki`dumy' o' o 'L ]@]X݂擾ʕݶʕ$' ' ' ' d ' $' ,  %+  ' k'  Jǂ̗\萔ݶ Jǂ̗\萔$ %' ' d@  %@' k FؔԍݶFؔԍ$' ' d ' kZKԍݶZKԍ$' ' dp ' k`ԍݶԍ$' ' d ' k^pJn̗\ݶ^pJn̗\$' ' d ' k]o^̗Lݶ]o^̗L$' ' d ' k'L z  .!0 .!0 * .!2A@&ki   ;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[g]8. "  %'z  .!0 .!0 * .!2A@&kiX !TextBox1ɖߍ܂ꂽcID𒊏o]A@6ݶcID$' $'~z8k0  %@'~z  .!0 .!0 * .!2A@&ki !TextBox1ɖߍ܂ꂽaID𒊏o]0A@6ݶaID$' $'|z@k8  %@'|z  .!0 .!0 * .!2A@&kiH ] J !6%Z !\  '  %' kp L !6%Z !\  N !6%Z !\ ' 'k( N !6%Z !\ k 'Lz  .!0 .!0 * .!2A@&ki x'N ]@  % P ĕۑł܂BA@&zk  % P  P P %'   N !6%Z (\ k  % P  P P %'   L !6%Z (\ k(  % P  P P %'   J !6%Z (\ k'N z  .!0 .!0 * .!2A@&khi`X P'T J !6%Z !\  J !6%Z (\ k L !6%Z !\  L !6%Z (\ k N !6%Z !\  N !6%Z (\ kp'T z` X .!0 .!0 * .!2A@&k i : % %:   %' koh ` <eLXg{bNX̔ԍƖO͍쐬ɕtAύXłȂ]!]!']8"]hB]"' $ !6!Z ! $ !6%Z !Text Box % %Text Box KT $ !6%Z !+2 KT $ !6%Z !+2 KTx$]`#]k'S 1n1  'k16 Debug.Print Word.ActiveDocument.Shapes(i).Name $ &eLXg{bNXُɂȂĂ܂BA@&kh0|`0 X0 .!0 .!0 * .!2A@&k 0h0 J !6%Z (\ 4'J'L'N*擾eLXg{bNX̖O\[g'(Ȃ炸ԍ̎ႢŎ擾Ȃ $ !6%Z !+2 vf0珇ɒړIɃ\[g   b  '$ $  b $8  $$8  $8 ': $$8  +8  : $+8 k3 $ '$3  'h3o`3  %' 2 A@6 ].kk$2 'J(d$2 'Lg,$2 'N J !6%Z !\ ' %kk J !6%Z (\ s Stri  % %  L !6%Z !\ ' : % %:  L !6%Z (\  % %   %' L !6%Z (\  ' : % %:   %' N !6%Z (\  % %   %' N !6%Z (\  '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:_%*:?I_NinsyoNoC F؟Giteki1ZKPropductkSta8rtDb*^pJn\+RequesOah ]3/LgFunFCheckb>ByN w)FL!`@$YIfA.@Left$(,8 1)noPVBA.RighnThenQv8TruAQTIfoE o  [(S O RS'PO p p2 <> qS{ In0.(cP) ;  ) "VQp?,S7fqc HMid2,n) - 2)K  .b$ w Qi1 O i i > ~0 )0, i 1  %> r  'Bg >ĵy=Value`ɂ ChangeKey = & cP &  End Function Private Sub StrectTo`Ary()T'FilezS:h\̂ 蓖xDim ,() AsLingiTLo tws Const DxumyY2tsEq" my"vEP_On Error Resum@e NextkI@f INI_iCnt <= 0 8ThezRe[FILE(0kExitt If1'ANZX݅<*= ""<[.Number L /=M8 'ClearC/E0C&'{DoDoEventsCa@0s >=XAW KA D Chec kb(+w)) Or w > UBound)C1 XNVƃL[; 9.L9wPr@eserveCix)4Έi - 1) <>u * Psx󂯅)Y""UI ii + 1 a? ?eqG56s).Name+Fntjo@(@`s!n%o_S(t#)s`s,Else]Not "Y  YÊ VRgƂs, V̀XJkbwlQ`% wwLoopu^ eSub@ublic Property GeJ ɃE'A!̎擾cB@ b aWE o Lf By nv% ݒc ` nv ModeBoo@ !A ( T jK Q? 01 >CXt | nwSta'݂̖ǂ̐$qCallSig>nc#a1ʕ%WP. BySor_2U\[g#\CLu <_ Se& .̌:o@t LicencT;o^̔u 4T' wGm 3K3? ; wA8() %7f_Y9`@#JG@ (  1hAqANinsyoNoF %?pGipteki0ZKw%t3wductÏ6? `rtD^pJn̗\SDOOGReq8ueso@ ]c(LԳ8p9 _ Optiona l ByVPSecxNo As Long = -1, _ ame^StribV)| p'Key,Dim i +If INI_1Cnt <= <Then Exit Pro`pertyH 3 1 *,Q>= b0 'qNoŎw YCouF=M(!).sUpElseG

"" 2 3ForHo ( p- 1)GI1G4et2N$(i).) A k3 B^@)K@End IfN8extCBUSẴL[O֌WȂH7iA@*f+h2H'- A0PublicF YS(ÿNoԖڂ̄aD'01A o ŃjD$No8!t!-!PAy ~,$E&%A'4D,cO WithIMc beF/r!% > #wA_ <@C=a(((o)̆A%=ai{AiFbF ue(KiGc Default" % tJOd ɑ΂ෂl0NAB x0'A tVb,/܅6TTT'tsj*ojc0D*t)Qj4q}'s5s('v' -K.|lc?1Q^eFun"[t0l6]002(/7WBoolean5+'ry`Zbg-File(Zw%0%w71%z's$0AAp$So%u 2>ZNV_2!?A*@%r%5en" o1 ) 5{ 6i  s n 3=Bf'S ui"#XVWo>UpPChangepi, ?j:i-8;Q 1 Or tw?j#̼VKaOBσ}' FV$ / Rea;Preserve 2A= 7Q=+ 1oTUSeU&$$ =$S h$ <#i#qa:l#b"K7gAVL^' ReDim .Keys(0) As String .Name = ChangeSect(ion0) X^(T, Value1Cnta1KEnd WithINI_'w* + 8SeNteNJIfHIf Mode 0Then/SaLve  Funct{ P@ublic  Delete( _ByA ,Op#al BooleaP)'̍폜ȗꍇAZNVƣiniH(A3#gCLoņt}w[m<= 0]ExitR G]&%s""'K;For o{- A Get((t)) <>qAPreserve YwRY H =)1E w>Descri#e q`^]q[ۑ?Z !HC= "" bbzɍ\̂:bCallToAry{kO )I1Io I19G/ &R1iqs__a_`,'@atBox1 ' Word.ActiveDocument.Tex.Value = myStr If SaTveD(2)DFalse ThenNVExit (Funo,End If"G9, ErrMes:+v.Number <> 0 kMsg $& vbCrLf &Descripti 4JS@Public[ Clear() As Booe On*or 0GoToU V ReadDim m&ing n m!Get("y[W\", )!n@݁㗝l"MXAll @UmS""LSS_, m~n#6, n?!ʤFqTrueCBCu/FbwcReSINI_Sect(0^&gCnt0?1&"" =,P"C4|oxz4Crivate Sub 4ass_Initialize(q@-ANam"dumy$ ` P Termin `E @7EHC4C%!Es1ssc St6r&C'wDʕs` IA/*CallSig!NWEBySorXf\B`s3& !a (sDA"%= VBA.Split(s`*,,B@=a0`$;cp8Not Iseric)Lt %!1 b7o ?!9;Number & vbCrLfErr.Description  End I f $FunclPublic  ReadAID() As LongdOn or GoTboMes 'TextBox1ɖ܂ꂽaID𒊏o'Dim myAgentID`Striby&"= GetValue("", "U")*If Not Iseric() The~/l = 0 Exit} VBA.CLng/ rr:OƄ<> b0JMsg.6rivateF3BreCs[ s{,hsfN@7W ord.Ave Docum@v.Shapes(c).Alternative B""LBssf-k$jLeft(ss, n(": ")~)  Mid4;= s -+ JA *2_?3#YA4@?#x2A& AA! 5 !A^AWAIAt A_ǿ##E@͟A3A \Ax AANm.,AA  s Q  URA bA}t`!#C\w?s?s?s?sϏϏ P=sSaj0yh(By Ho"Booleap_tqђqpFalsetmyx-vf`n(s) > sMAX * 3T"ĕۑBn"sA ߎ \\#Le2c =Rv s,M + 1,~ Xj(((=oS . 1 Q & b- U b t30 x #  e10 /Tru.>} >>>>> Cp 01& vbCrLf & Descr`iptioye1  !Sub P0ublic, (ByRef data(, a$7קjHgtemp@.#j?ĉ'vf0`9!ړIɍ=Dhile j <-di j+gFiEc9a/Comp(b j),!i_!b=j#e @"iU~iA 8I iLoop!* hA L- pCx/ #(x L- tCx/ (x L- xCx/ (x L- |Cx/ h(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/ 0xdt\Xl CtlCplCl-llCx<7/h<d\lh@.X@qTPTlPlt0/PdTdH!PldTlPlp0/PPldT>P1x/ dfH qT-X hf\U/e 48 xXtplP@l CtlCplCl40,/<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/DLD*@8tplh:4NPLl CtlCp<'/ lp0`<dT%Pl`@AlPlt=/Pl\l l`@@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>h tpl!i L0 @ % rU 0/: x1'%Y%)zQza{Ysz{Q$ $ $iYuryz tt9vvww {) zsytyyIY1xAsYxuxxxy9ywywi у'I'@ (1(Q   0W_____ _    _    WW_      _ Pl Ct7lt #p0lt #l02plFpz/ P(tplpl Ctlt #p=/pd6' :PN@@tM`@ 6@ bpz/ lp(tp@ P l Ct-<tMd@T T(D4$$lt 4 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<7DD0 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/ $ H Hqx/ $ L- \Cx/ (x L- `Cx/ (x H dPqx/ 5X$ H hqx/ *$ L- LCx/ (x L- PCx/ (x H Tqx/ $ H Xqx/ $ L- lCx/ (x P K)40&pz/ p^X>X1d,*#Xld 1d/X;:HN88ld( (6 Y$D68( <DLlDdllD=llDkZ qh<<<@ llD<@AllDk$lh<@A llDlh<@A;(<@A<@Alhqh lf<< pz/ $$  l$l'''($  l$#X*#  ,l *F8 2X )68(/ ,dt0 X 8(CpK h ll lhRl>/ DLtDd` h ll lhRl lp0ltDCplp*#\ltD*1p/\ tf`^ZlpkZ/ pz/ $h ll lhll'''h ll lh#\*#LP TT ,lP*F< 2\LP)lT6</ (p0 \PLlT<tKpz xl66t>l1tl7&t>l1p x lt=xlt66xkx/  lp=xlp7&xkx/  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/ I6i$ 0 ld`thP0D 4%$( D 4$ PKpzl+&t>l1t lt0b \ `#ld/l lt\l+jltll`/l8:X,NHHlt8 86 Y4p6H8lp#ld/l h#l-&tll .1t/l lt04 HKtMX@^(Hl/&t>l1t lt0 l ltll0&t>l1t lt0 p ltpl1&t>l1t lt0  t lttl2&t>l1t lt0Q x_ ltxl3&t>l1t lt0 | lt|pz/ $4 00 l40El'''84 00 l4#l*#$( ,, ,l(*FH 2l$()0,6H8/ P4pt0 l($0,H84 l Ct-K9 8pllltp 09>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(`Kk rl5&t>l1ttM\@ 'O qx/ tM\@^(qx/ $T XX lTXl'''(T XX lT#l*#HL PP ,lL*F8 2lHL)XP68(/  (t0 lLHXP8(`Kk rl%&t>l1ttM\@ 'O qx/ tM\@^(qx/ $T XX lTXl'''(T XX lT#l*#HL PP ,lL*F8 2lHL)XP68(/ (t0 lLHXP8(-KPPT MX@hl$ 4l Dh 0T 0lP=/P)lhTHPT MX@hl$ 4l Dh 0T 0>P1p)lhTA:X)N@@0 0"pM @ :)]36@0L('@pMX@0 0`1p6@0BlpT MX@hl$ 4l Dh 0T 4)lhTA:X*N@@0 0"pM @ :*]36@0('@pMX@0 0`1p6@0BlpT MX@hl$ 4l Dh 0T 4)lhTlpCtPPTMX@hl$ 4l Dh 0T 0lP=/P)lhTHPTMX@hl$ 4l Dh 0T 0>P1p)lhTA:X)N@@0 0"pM @ :)]36@0H('@pMX@0 0`1p6@0BlpTMX@hl$ 4l Dh 0T 4)lhTA:X*N@@0 0"pM @ :*]36@0('@pMX@0 0`1p6@0BlpTMX@hl$ 4l Dh 0T 4)lhT ltlp*1tPPTMX@hl$ 4l Dh 0T 0lP=/P)lhTHPTMX@hl$ 4l Dh 0T 0>P1p)lhTA:X)N@@0 0"pM @ :)]36@0H('@pMX@0 0`1p6@0BlpTMX@hl$ 4l Dh 0T 4)lhTA:X*N@@0 0"pM @ :*]36@0('@pMX@0 0`1p6@0BlpTMX@hl$ 4l Dh 0T 4)lhT ltlp*1tltCx/ $ ll lll'''0 ll l#P*# hh ,l*F@ 2P)lh6@0/ 0xpt4 PlhT@0(l CtK.pz#tM`@P P(@.]t5Pj+'''0:`#NPP 6P0/#tM`@P P(@@]t5P*(PAtM`@0 0`1p6P0BlpM`@$ 4 D 0 4)#tM`@P P(@]t5P*(PtM`@0 0`1p6P0BlpM`@$ 4 D 0 4)#tM`@P P(@]t5P*(PtM`@0 0`1p6P0Blp M`@$ 4 D 0 4)pz/$  ll'''0  l#*#  ,l*FP 2)6P0/ ,pt4 P0tKpzPX\ M`@pt$ 4t Dp 0\ 0lX=/X)tp\B\ M`@pt$ 4t Dp 0\ 4)tp\PX\M`@pt$ 4t Dp 0\ 0lX=/X)tp\4B\M`@pt$ 4t Dp 0\ 4)tp\PX\M`@pt$ 4t Dp 0\ 0lX=/X)tp\B\M`@pt$ 4t Dp 0\ 4)tp\pz/ $T tt lTtil'' ',T tt lT#X*#LP pp ,lP*F< 2XLP)tp6<, / t$ 4 XPLtp\<, @pxpZ<zLPT$ 4T DP (lL)TPcH04zM8@PT$ 4T DP 04 l: N ">0F :]3)TP46kxp k4Q04zM8@PT$ 4T DP 04 ll0`;/0)TP4 kQ04zM8@PT$ 4T DP 04 ll0`;/0)TP4 kQ04zM8@PT$ 4T DP 04 ll0`;/0)TP4pZ kxp       +            ,     * " # $ % & ' ( )  - . / 0 1 2 3 5 U 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T 4 V W X Y Z [ \ ] ^ _ ` 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 { | } ~  x zdHL kZJ+''':8 N 6   +`YL` ``$L TT lLT9l'''L TT lL#0*# PP ,l*F 20)TP6e@P8`deeTee8 0TP4.pxkx kxpz kzkx kz z kx Ctkz kx ; ltkz ; kzpz# kxpx  (t       !"#$%&'()*+,-./_,`0,A`00` 0$`(h0(Ah!(h%#(h)( h-((Ih1((h50(h90( h=((I hA(( hE0( hI0(  hM((I hQ((hU0(hY0( h]0(Iha0(he00h i!(, h m00Ih q!A08hu!Yq08`y!Y#0 ` }#(I `#(  `#( !`#( "`#$I #` $ $`( %`#0 &`  0(I '`(( (`(( )`0, *`#(I +`#$ ,`0 -`!9p&nrU 0 Eq+FQnQ$n nQoo pipp qaqqrir$ $i '1I'@< (1( 1W11L- clsKagami __SRP_31j1__SRP_30tX-[000000000D/! jVKTݎw肵Ăij悪w肳Ă܂BA@&zKTkCʐMǓaijrmkstationHokkaido'X$'KTkʐMǓaij rmkstationTohoku'X'KT֓ʐMǓaijrmkstationKanto'X'KTMzʐMǓaijrmkstationShinetsu'X$ 'KTkʐMǓaij[rmkstationHokuriku'X $B'KTCʐMǓaijrmkstationTokai'X'KTߋEʐMǓaijrmkstationKinki'X' KTʐMǓaij̐rmkstationTyugoku'Xh ' KTlʐMǓaijMormkstationShikoku'X( ' KTBʐMǓaijrmkstationKyushu'X ' KTꑍʐMǓaijrmkstationOkinawa'X 'S0*ڑf[^x[Xݒ肳Ă܂BA@&zn X      !"#$%&'()*+,-./01346789:;<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~'b 'd 'h z  .!0 .!0 * .!2A@&okixAttribute 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, "cE!E").D ?Down.C#A1 w肵ĂijMsg Box "abB eExit E62kCʐMǓamyDArmksta@HokkaidFo/= 2L3a@kTohoku 3 4 ֓ PKant4 5a Mz S@hinets5 6k7uri)6 7CToE77 8 0ߋE Ki\nkA)bES89M8a0Tyug)910 'l77"k 10 1 'xBK0yush)Cc112 'OOk`|wFa"@w= 1EER]X WS S Qw#`Su=Pp ?!a`sPkTrNu0 Cq:If .NumbЅ<> 0 ThenH& vbCrLf &DescriRSa IfWb*\R0*#14*\R1*#10e*\R1*#10b$*\Rffff*0V50cc4c84< 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 ld#*# hh ,l*F@ 2)lh6@ / (Xt0 lh@ !T k y mD/,gGBEb*=h8+3qo(Fƥ[xo(Fƥ[/,gGBEbME4 SS S"p>"L LL"<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(@0%,!f hxx+p i ster,!hz+ i ,h `k0 $??i6 X i   nt %`0r(%bb 4@bd 8@ 000hHhf `f xX0 b 88pPh ` zҋ`8 d xx@0@xXhh  `h (z `h@b d .(p&Xb d .*@p @l @h @d @`  @HP @`@ @x0 @ @ @ X@ @@ @  @  @ 00H(XRYP$*\Rffff*0Q50cc4c84$*\Rffff*3<50cc595c*\R0*#e*\R0*#19*\R0*#13$*\Rffff*0N50cc4c84*\R0*#14*\R1*#10e*\R1*#10b$*\Rffff*0V50cc4c84< X  8 "X    B  ( @ HBP X p xB      8&=,  $+P x(   &   &  @ X&`   &   &  ( @&H  p &   &   (&0  X p&x    4+    (0 8$@lPp x Ѓ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 ݂̈ b 'f m ݂̈ d 'm h'h ]x .n]2݃y[Wڑf[^x[XExID擾  ݈ n%!!rHrU 1H(1h0(A1h!&,1`%I #nrU ( nAnQoo pipp qaqqr )ICxgvV[W XrmkstationHokkaidoKTD !j (rrmkstationTohokuKT !l (rf rmkstationKantoKT !n (r rmkstationShinetsuKT !p (rrmkstationHokurikuKT !r (r[rmkstationTokaiKT !t (rrmkstationKinkiKT !v (r rmkstationTyugokuKT  !x (r rmkstationShikokuKT  !z (r rmkstationKyushuKT !| (rrmkstationOkinawaKT !~ (rS no@<ݒ{^NbNƂɎsCxgvV[W ].n ]] !j !r rmkstationHokkaido' kC' kH !l !r rmkstationTohoku' k' k !n !r rmkstationKanto' ֓' k !p !r rmkstationShinetsu' Mz' Bkh !r !rrmkstationHokuriku' k' k !t !rrmkstationTokai' C' k !v !rrmkstationKinki' ߋE' Hk !x !rrmkstationTyugoku' B' k8 !z !r rmkstationShikoku' l' k !| !rrmkstationKyushu' B' k !~ !rrmkstationOkinawa' ' 0kP  V Z \ n! %  'Xݒۑ܂BA@&A@dݒۑł܂łBA@&kd$f[^x[Xւ̐ڑ񂪈ُłBA@&|`kXoP A@r Me.HideoBAttribute VB_Name = "‹ݒ_CAO{bNX"D Basb0{092C7FFE-6B5F-4F28-BA24-45E59D686066}{27A62886-EB71-421E-8767-F51432ADF90F} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD ' Ѓnp [ Copyright (c) HyperDyne Inc. All re(ser<.http://www.hd.co.jp/webmaster@ Option wlici0t P@4@6 Sub UForm_Initia@lize()A A'tH.ǂݍɎs@6x@gvVA W Select CmyDAj"rmksta'HokkaidoGMe./hu.Valu|s To@ uUCKant%$ShinetsV%LurikTo0& B9Kinki   Tyugo +k  Kyush/ yU_Okinawa%EbCkEnd Co!xLub}_Ck|{^ ྊ0Ƃ~pDim cP As `clsPa@#Set= NewLAmyBranchStrin>gc`E If Then my ޚkC$4a*If iPh@k/h֓ y3BM*|ewMz oN~g]T S'abpC*0PCTbߋE[Y7n]Ip#\n4l0Y//^ecB?aN7kxT<@> "" AgmdySqr )anIPassword; cP.Config.Save(j)?#(FJ7!qMs@gBox "1oۑnna1‚rGw5q/8  7tb ppM\l"zƍߡC2Sg CN(~e$ա&3Jw@oxe$ա&3Jw@ob ppM\l"zME4SPSSS"p>" "LL <8<<<0{092C7FFE-6B5F-4F28-BA24-45E59D686066}{27A62886-EB71-421E-8767-F51432ADF90F}  @`Tk  `(kBB& nxerdy%` t2t` ps `xkh@8%h@ %@suK%%Xj l n p r t v @x @t @d @T x z | ~ Xj l n p r t v x @l @(\ @pL h@< z | ~ VZ\X&@: @( @ @ @ X@ \^@*@r@@x h(@xpRYP$*\Rffff*3@50cc4c24$*\Rffff*3<50cc595c*\R0*#1d*\R0*#1e*\R0*#14$*\Rffff*0_50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*0N50cc4c8448<@DHLPTX\`dhln  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[ǂݍݎɎsŀs܂?t9df^xPX̐ڑ񂪈ُ  xit3  0 I 'Unload0uc0 uHidX__SRP_9$__SRP_8Zl2clsPage6 __SRP_27p^ !i )Ii  q!}Q$ YAiA4I1  8/))`I  </)A` @ 717`  DA0IّHA0ILA0I)PA0IITA0IqXA0I\A0I`A0IْdA0IhA0I)lA0IQk W  L 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 t5T( ((<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@8<HrU x$ `$A `$ `nrU 'T$' `h $A' `l('h0('h!1a*\R1*#d4$*\Rffff*3=50cc595c*\R0*#10*\R1*#b5*\R1*#d6*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#1b*\R0*#1b$*\Rffff*0S50cc4c84*\R0*#9*\R0*#f*\R0*#14*\R0*#19*\R0*#13*\R0*#eH+  8 "X    6 8 "X    , ,   *8 h  "@h p ."   0"TH=8|m?{?vPvG>1*=h8+3qG T@SQͧxG T@SQͧvG>1RR RxRMEd @SS SH H " (L " 8 >"*LLLLP Li  `t` p`$n8 % ,X `k \PP[)   %i  i  [ t  % ]  p@  % zh` %`$f`xd,h `(k `<<i  i  zt0 %`$r`p, `5k d00i  i  p %` l [ d8 % ] `X %`. `$,%" 4@b 8@b <@b D@((8x(` h  Ph0 |((8x(` h  Ph0 (p8 P  (X@p@h `z 0%`" x`" xL *.&X5@x @n p@l @h `" x`@pd @X` @\ @X @T @P @@ @0 @ @ @0 `@ @ P  hPXphL `Lz ( *& @r @h @d @T @D @4 @$ @( @@ `@ @ @ @ p@ 8.@ @ @ `h Ph8 h ` z `P, D.*&@`t x8@r `@l `@h @d @ ` `@\ @8X @T @D @4 @$ @ @ @ @  0Ph ` z  .*&@(l `@ @j `h( @d xP (@` @\ 0@X @T @P @L H@H< @`, (@x @ @ .*@ @ h H (   hxhX  `X `z x` L *.&@n X` t@@b X5` t @` @@\  h@ X @H @8 @0 ( @H  @' ` t @`  X@x @@ @ @ @ @ @  @ !!!!h ` !x!!"! @p"""`" x" ####hN `N#x### l h$$$$h`$x$$$$ .*&`%%%%%h ` %z%%%( P&h&&&&h ` &z &&&  ''('h`'z('' '  ((()(h ` (z((( @))*)h ` )x*) ) H*+*h ` *x*+*& *0 ,+P,,,- ,,+8,,h6 `6+z ,+ +@h,r  .*&@,` @^ @,X X@T @@P @,L @H @(-8  @@-( @X- @p- @- @ -@ X..(2.@/(/12/X..p.h  ` @.z .X...@. ` t/. .*&@.h (@d ``/ @X/P @p/@ @/0 P@/ @/ @/ @/ @0 @0 @00 @H0 @`0 @x0 P@0 @0p @0` @0P @0@ 0@10 &@ 1 @81 @P1 @h1 p@1 @1 @@1 (@1 @1 @ @ @~ @x @@2t p@X2p @l @0444@54H4x3(3`3@3h ` 3z P3(3333  .*&z@3j 3x3 @3h 33 @3f 43 @d/ 43 @`4T @x4P @4L @5< @8 @4 433@40 @5, @( @(5$ @  @x5 5` t@5 @5 6` t @ @ 6x@`678H87`7H777`86076h  ` t` 6z 66 76 ` t 77(X .*&@@j @ 8P @7@ @80 @( @7& 787 @$ 887@9 x87@8 @  (`8(@8 @ @8 @ 6@ 9 @ @  8h x8Tp+8RYP*\R0*#1c$*\Rffff*2z50cc591a(*\Rffff*2z50cc591a\0(*\Rffff*2z50cc591a\1$*\Rffff*3050cc598  @ 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[W GetPos pos擾 y\bhz% Read Wordt@C̓ǂݍ% FindWord Wordt@C̓ǂݍ Sort \[g$ ReadTextBox INIt@C̓ǂݍd`C PageSection\^D y[W^D0 lU ^DH  myStartPos^D`  y[Wԍp PageSet\0x^D ݂pos^D݂̃y[WԍBp]@D( y[WZbg]@D(y[WZbg]@D(^[QbgActiveXRg[]@D(ZNV]@D8(y[Wdumy' ȽW o' o AName̎擾P ' mh AName̐ݒ " ' mPPageW 'Nm((NoԖڂPage01Ԗ G{j  $ !'~kmNoԖڂPage01Ԗ G{j $ ! ' ^k0m((NoԖڂ̃y[Wԍ01Ԗ G{j $ ! ' Y km NoԖڂValue01Ԗ G{j $ !r'k0m(( ' mSetNoԖڂ݂̂Pos01ԖY G{j0 $ ! ' @kmSetNoԖڂ݂̂̃y[Wԍ01Ԗ G{j $ ! ' km݂̃y[W𒲂ׂ'6]. !*zk' ]@ @ݬ$ ($ (r' zk zk !&zk'6z  .!0 .!0 * .!2A@&k !&zhk`iXP 8' ]]' !6! . b ! C@ 9 9dC@@q ! ! '  @   $ ( ! $ (r  ' k@8' z(   .!0 .!0 * .!2A@&ki0 ' ]]]] $    $ $$ !r %@ $ !r %@ $$ !r' $$ !' $ !r $$ (r $ ! $$ ( $ (r $ (k  $' zX P .!0 .!0 * .!2A@&ki ' ]P ,'*]h $  $$ ( $ ( dx * $$ ( $ $$ ( k@ $$ !KT ǎKT * D '*n $' z  .!0 .!0 * .!2A@&ki p'L"݂̃y[WTextBox1擾' ] .z zB@6] y[W\ y[W\ z%' ' y[W\ y[W\  * % z%"y[W\ۑł܂łBA@&z8k0 zB@d  * %'k]  *  %+ ]P $ @  $$  $$ ( $ $$ (r  ' $ z0k( zk'Lz  .!0 .!0 * .!2A@&ki ' ] ] ' ] $  $$ !KT @ P $$ ! $ ( $$ ! $ ( '' n $' z  .!0 .!0 * .!2A@&kp ih   ` H &f[^`FbNςł邩ǂ'X ] .Z ]( .\ Lz k ]H .z zB@6]h ] ' $  $ ' $$ !KTf[^`FbN z%ςς Z B@x \ B@xd  Z B@x \ B@x 'dx  *'kP 'X k@ n8 $f[^`FbNƋl̂‚킹 z%ςς Z B@xƋl̂‚킹 \ B@xd  Z B@xƋl̂‚킹 \ B@x Ƌl̂‚킹'd@  *Ƌl̂‚킹'k 'X k f[^`FbN㗝l̂‚킹 z%ςς Z B@x㗝l̂‚킹 \ B@xd  Z B@x㗝l̂‚킹 \ B@x 㗝l̂‚킹'd  *㗝l̂‚킹'k'X k  ȉ̃`FbNςł܂B * 'k Z B@x \ B@xz` X .!0 .!0 * .!2A@&k i &f[^`FbNςł邩ǂ' Lzk] .z zB@6]8 ]P ' $  $ ' $$ !KTf[^`FbN z%ςd 'd  *'k'kxnp $f[^`FbNƋl̂‚킹 z%ςd Ƌl̂‚킹'd  *Ƌl̂‚킹'k'kf[^`FbN㗝l̂‚킹 z%ςdX 㗝l̂‚킹'd   *㗝l̂‚킹'k'k  ȉ̃`FbNςł܂B * 'kz  .!0 .!0 * .!2A@&kHi@h  8y[W̖OƂɃf[^`FbNςł邩ǂ' ] .]'  $X k] ]@$.Z $.\ ]`']x $ \ ! $ \ %  $ Z %ς' 'ykk $ . MsgBox myPageName & "݂͑܂B"kp.Z .\ .zP H .!0KTS( .!0 * .!2A@&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 <> 0 The@MsgBox & vbCrLf & DescripA )IfA Public% Check( _C ByRef myColA;W@/mG, sAS`tringyB ooleaB=On)Go@AC*'f[^`FbNςł逗ǂ੔% +JZ+ItemK*f= New 2CKeyAorTl= Fals l"INIA!cls@A0I@.A%*k  \? k`.i +e'AGetValue("+C", )r"D"Le =.Add O:E8N !d c28A!Ws %irb^%#ci_A"Ƌl̂‚킹"BYA?p ck) J> 'xo3bQo \6oo`R "P" ȉu܂B"Y@IFOyC 4?JRe0sult s r   nw@e4= yut aPt,_Q_r't-_~_ Q 0Ȅc __͌=@3%rB_{8? _{/4iE&'{r{C?Nbi{qO BoUSU Y 7Oss OѰ" Then  s = "㗝l̂‚킄"Elses & vbCr Lfnd IfCheckResultFagE0If s <> " ȉ̃`FbNςł܂B" s.Exit Functio ErrMxes:@ .@NumberE0 MsgBox  Descrip1A7u?@PublicH ByPageN@ame( _MB@yVal m As Strin g)Bool$eamOn(or` 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 | ` .Count`%a(ia#hJo.'"`o1A CTruA3#voaa6Next i &$?'ax(& "݂͑ h1l ll0ClIll 1dr>d#ht xkr2hd+'''$:TNDD 6D$/  rt "ll 1l8:TNDDll$ $6 Y6D$lcD@ klk@Ak#hk@A/hDD dcrPkr/ rXkr / pz/ $   ll'''$   l#h*#d  , ld*FD 2hd)6D$/ e8tH~ele0 hdD$|Kpz 8nDcjkn@ACd ld084"kn@A84A"kn@A 84ACtCp ndj2pz/ $\ ``  l\`ol'''\ ``  l\#X*#LP TT , lP*F< 2XLP)`T6</ |0dpt0 XPL`T<lKgpz t pnTkn;/ h nh  1fDc` kfpdkf@AC\ l\0$Xh tlX0/X)''':HN88t 68)''':HN88p 68)''':HN88t 68)''':HN88p 68 0 1*#X*'/Xpz fd`v$X h tlX0/X0)''':HN88t 68)''':H N88p 68)''':HN88t 68)''':H N88p 68 0  1*#X *'/Xpz$X h tlX0/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/74d\hpt0 X8*KpzxTkx)/ t xt  1 rDcl krppkr@ACh lh0$dt tld0/d 0 1  *#d*' /dpz rdloCompObjaVBFrame:{t0000++rU &8" xQ siI$ $Q$w1YuIrWaX1 M!1'%Y%9yy)'QI'@H (1( 'I' '''W''''W''''_''''_'''''W'D <$( D <$ L- <Cx/ (x Ll Cx lx<(x H Dqx/ $ |H-l /Dl ;l @ACx/ 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 | ,t 0 `LHXP8W4l CtKpzpr$dh$ 4h Qdlh krhl 4Qh` ` ` lt` [~'''''' '@'`'''''' '@` 6@ `@ c`!~hl 4h 8 k~prh krD@ ltD@A)xl 4lx#tD@A/tDD?pz/$x hh  lxh(l''' x hh  lx#t*#lp dd , lp*F@ 2tlp)hd6@ / 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/  ,tp8 P8,$ 0(KpzEpxvDcr kvc@A@A kxkv@Akvkv@A ;kv@ACl ll0 ll0 kxpx vdr/pz/ $d hh  ldhvl'''$d hh  ld#`*#TX \\ , lX*FD 2d$d t tld0/d(e 0C  1 \ *#d *' /dpz$d t tld0/d 0  1  *#d *' /dpz = *#d *' /d/$\ ``  l\`l''' \ ``  l\#d*#PT XX , lT*F@ 2dPT)`X6@ /P ,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__SRP_2653clsPaper __SRP_16 __SRP_17rfF ('h%(,A'h )0,'h -&,'h 1&,'h 5&(A'h9&,'h =(,'h A(( ' `E#,I' `I#(' `M#('`Q#( '`U#(I'`Y#8'` ]Y=90#,'`a0#, '`e#WWnrU p$ ` $A `,4c84$*\Rffff*0]50cc4c84$*\Rffff*0^50cc4c84$*\Rffff*0_50cc4c84(*\Rffff*0V50cc4c84\1(*\Rffff*0V50cc4c84\0*\R1*#10b$*\Rffff*0V50cc4c84$*\Rffff*3<50cc595c*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R1*#10a*\R1*#c6*\R1*#c1*\R1*#17bd  8 "X   " $  (08@HPX`hp"x              0 @r0uu=lgg 0@M*=h8+3quIB$0exuIB$0egg 0@MMEp0$( 4D<8@@SS S"` " " "" " ", "8"h " ",n "  1L ">"LLLLx+,L) x%  h?x+X0Q) x%,!z h)x+4V%) % AzX h@x+08 [) P% z hAx+< `)  %,!0h(4x+@ e%)( % AhHDx+pD j)  % hEx+H o) %,!Jph*x+H@Lt%)h  % AJhFx+Py) % J@hIx+T~) 8%,!hJx+X %)  % A hKx+\)   %  hLx+X `) x  %,! h(x+ d$%) $% AX hMx+0 h) P $%  hOx+ l) $%,!j 0 h x+ p(%)( (% Aj hhPx+p t) (% j hQx+ x) (%,!Tp h(5x+H @ |,%)h ,% AT hSx+ ) ,% T@ hTx+ ) 8 ,%,! h3x+ 0%) 0% Ah Ux+ ) 0% hVx+X) x0%,!h@1x+ 4%) 4% AXhWx+0!) P4% hPXx+") 4%,! 0h%x+#8%)( 8% A hYx+p$) 8% h[x+%) 8%,0`p,k@&i" `)`-a<%i i i  i p(%,8`X]kp'i" )`Va<%i i i p0%,`]kx( i  i   i p%,`_k@)i `i   i p%,`hbk*(i (i  P i 8cp%,,0`Pek+7i. i p(%,`gkp,Fi i   i p%,`jk8-Ui Xi p%,0``lk .di" i   i2 H i  p%,`#k0/!!s)( `@%i* i*8D%)X D% px %%" 4@" 88@" (<X@" P@x@"nxD@" H@" L@" P@" T@" @X8 @" h\X @" `x @xP0p@ X h@p0 0 p @ X080(X@xP0p@ X h@p0 0 p @ X080(X@ `x`* t`* t(`* t % %`* t@` x0 x x  % % x xX  % % x @n 8% xP .*&  x` @!h @!d @@$T !@`#D @@ @<  x0"% xP"%@"8 8%$% xX#" x"% x" x"%%@8#4 $% x0#%@0 %%@X$ % x#%`X"!!! "X! @p$ @$ @ @ (   $xp"$$$  n X&x' xP# xx# xx%% x%%$$$$@x `' x&%@&H' x@'%% ( x"(( `'x# (z '% z'x'((% x(% x (%8('#'%%%% x(%x'x'' % ))4%% xh)% x`(''()(((J H( % % xh*p*% xX((+(+X,@+ J(*xP(+(++ xh+% x++% xH) x@*(* x+% x,,%4% x0,% xP,%n(-`-X.p//p.(--@-h `-xP-(--x--`"t`-@@/l .00+ xH*% x-%.*&,0%% x0.% xP. %@.h @d 0 x-@` 0%% x.% x/ % % x8/ %@X/\ @X @/H @/8 @/( @/ @0 @ @ ( @) 0x, ( .% x0 % % x/ x.(21 x0 `0x.% x81$%0000H0- x1% % x 2$%`0 R33 x2 x1%,% x2 %( .,% x2p$%11820 x223 x3$% 2xx0$% x 4(%335P2 x44@6(65 x5(% (6(6p64 x5$%(T 2$% x 6(% T5x25 xh6% 0P%% x6%6h76 x6607 x7,% x(7(%( 6 x`7$%  07x6% x7(% x6 % %,% x7,%h7h77699 :9 x7 xh9(%(% x9,%( 7:9 x79 x90%  9x79 7 xP: %8:  x:7 %%%(%,% x:0% xp9:  x: x: x:P;; < < x; %,% x:%;% % x<,% x; <? xp<0% x<<,%$% x<0% x<4%8:h:X: x;0%0% x=4%:;:P;x;h; x; x= x;%% xx?0% x?4%4% x?8%;0<; x=A x@8% x??h@H< x< x=A xP?$%(%0%`"tAB@ xAB xB4%4% xB 8%  xX?B  xPC%8C C xA%% xC8% xB xC xADC(% %`"tB CCpF`"t 8ChCXCnpF xE4%4% xF 8% x D %,% xPF 8% xE xChGG` tCEDn (DG`"t ( (D Gx(F x0F 0P % % xH,% xG$%`"t HpG (  xG xH8%H8H  xH8%`tpFPGD x8H xI0%0%` t GGGFI J$%(%`"t`"t@ xI( xJ0K`K8L`t HhHXH x8L xJ L(%,%`t HHH xHM 4% xhLPM4%8%` t xxM`"t`.tIJJ ON xM xpL,%0%8%`t 0K LHK xN 0P xNO x xN`t`tH8LPLXK P0%4%` t`"t l 4%`.t PMNhM xQ0R @d x Q pR8%`t \  xpQ`tNONR @8 xR `t `t OPOS 8%`.t  U`"Tt PXQQ xT h`UxPVVV`"tTVU`"t `t `VW`t0RXRHR`t@pZl Z`* tpRRRRSS0Y`\`"Xt` t`YH\&.*& x\ `.t STT@XZh @d @` Z@Z\ @X P[`t@ZH @[8 @ [( @8[ @p[ X@ [`t@ 0]`* tUUTh`Y`H\x` t@_``t @^l X.*&@]h (@d @` `dPU`"\tVxW(ZZZ@ZVHY V`\x\\\^^]`\\X`t@^\ @X @_H @(_8 @h_( @_ `h`(]`tH@_ @ @ `* t`````aa`a``\h `h`x `t `@al .*&a@xah 0a c`"`tPcc`.t Y@d @` @a\ @X @aH @b8 @ b( X@8b @Pb @ @ ( cp`cc0dHdc cxcah`cx`t8cM@dl 0P.*&(ee`* t@ch @d xc@` @d\ @X @dH @d8 `t@d( @d @d p@ @ @h,(`,dx8edep]eef8fffPfe fc`.t@fl .*&@hfh @d @` @f\ 8e@X @gH Ph8h`t@ g8 H@8g( @Pg @hg @ @ (8h`hhhXipih8hhfh` hxxh h`t `h@il .*&@hh @d i@` @i\ @X jj`"it@iH `@i8 @i( 0@i @i @ @ (jxjk@kkkXkj(k0ih`jx_kj`tj@kl .*&@pkh @d @` @k\ @X @kH @l8 @l( @0l @Hl @ @ Pm hmm8nPnxmmmm0mh0 `0mz @mmhmm`"mtPm@n .*&@mh @d @n` @\ @ nX @T @hnD @n4 @n$ @n @n @ @ f00 hp8[(RYP$*\Rffff*0Q50cc4c84$*\Rffff*2y50cc591a$*\Rffff*3=50cc595c$*\Rffff*0U50cc4c84$*\Rffff*2z50cc591a$*\Rffff*3050cc591a$*\Rffff*0Y50cc4c84$*\Rffff*0Z50cc4c84$*\Rffff*0[50cc"H PX`hpx B   "     "     B   0"  8  @ P"  X  ` pBx   "     "     B   "     "     0B8  @ P"  X  ` p"  x   B   "     "     B   "     0"  8  @ PBX  ` p"  x   "     B   "     "     B   0"  8  @ P"  X  ` pBx   "     "     B   "     "     0B<& 8 ` h p"" $l B4     (8X `$hlx B$      $ l @ H B$ P p x     $ l   B$    ( 8 P X $` lp   B       $ l 0 8 B$ @ ` h  p    $ l   B      8 @ $H lX x  B,        $ l ( 0 B, 8 X `  h *Px    $ l   (      b x    " : 0 @ H `p Ѓ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 clsPaper eNX𓝍邽߂̃NX ]@]@]@]@(]@P]@x]@]@]@]@]@@]@h . V . . . .n0 . C$. (. ,. 0. 4. 8. B o. . . . .n. . . . . . . oH . m(p . m . m@ . Bm . m . m .z mh . @mHX . m( . m0 . m . m n.Jmp .nm .nmh@ .mH . m( . m .m . mX . m .j m0 . mh . mH .Tm(p . m . m@ .m . m . m .mh . mHX . m( . m0 . m . m  ]. "     %'zP H .!0 .!0 * .!2A@&ki 0 ].8 "    %'z  .!0 .!0 * .!2A@&k`iX  8 % 0].$%   %'z  .!0 .!0 * .!2A@&ki   ].V    %'zP H .!0 .!0 * .!2A@&ki   ]p.@   %'z  .!0 .!0 * .!2A@&khi` @]. . %,',z  .!0 .!0 * .!2A@&ki  0 ].   %'z` X .!0 .!0 * .!2A@&k i ]x.%  %'z  .!0 .!0 * .!2A@&kix  P]h. "  2 %0'0z  .!0 .!0 * .!2A@&ki  ]` . ( * * % !6%. . zH @ .!0 .!0 * .!2A@&kiPublic Function SetValue(' ByVal pName As ePaper,' ByVal fName As String,' Optional myStartPos As Integer') As Word.FormFieldOn Error GoTo ErrMes 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 Then4 MsgBox Err.Number & vbCrLf & Err.Description8 End If End Function_Attribute 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 CCallSignqINI@SanitizeHPPagFFormH DBDBHR RegExFiQFil DD+: AACodI fgConfig Sub Class_IA9al:()R SetR=EbSCDiGTFATU߆UUP' C+&F'+&+ ,RGd,F`,f,FD#-&A'--F - En d -Q/Term @bte1/othin 6 b.d- -,,+B+*"*)('ub Proty GT}()\U &C7cK[1E`2l Lh ByVal mvardb ?j " er!eq!s("a"Cb"e(Cm #kUaC_ "#_ gn//"2e"TO"ic'(; =R$P (@mp1/!aA6IQqo  [  t 9zB|OIhhg4P _t   YA- dC"!v߶vFt 9; h1 QsqatTDBwpc3#=B`RPChkVWDO O t (0I  End Property @Public Set ChkDate(ByVal mvarD @As clsX)` TcD =B*GAreaCode|()Q TZcAWL WA a A[/sI/Config牉fg#X8CFG Dfg?DD D?ϡFunction SanitizeText( _CwyString3eC,Opok'veP DeleteSpaceA Boolean CRLF KigoHenk an VTrue)#/YOn Error GoToMesDim sAACsNewLs.FPmL, %# ADExit 3C@rr:If.Number <> 0 0ThenAMsgBox& vbCrLf &DescriB8If"!E2EEonvEEE?)??2?2(@oA@>>!> >>Azf>Licence|NoN>&gm9CountCheck9@'uu5is.my, 222818OQ[p ductOyO [OYO_2TT|RЂO@ E m O Q Q^Q"!?2QQQ2 Giteki?y//2?m////# = b2M .j1?Katasi my7c ____/ 9 OHo~..߀I CallSigna.....O|?> u my...ߙߙߙߙ_2OaOaDa:OrSyoni_` z..^C@L mue//B\@&/IspLAbc., _ Optional oDeleteSpace As Boolean = False, `Hihun`^). On Error GoTo Mes Dim s/cl sSaniSet= New  IsNumAbcs. (myString,  )YExit FuncBLG:IfO.1ber <> 0` ThenWM sgBox & vbCrLf & DescriEnd If4, 8, 2)Drothׄ[wwo@' x+x'Wx?]xx'y' 'l1x/ $d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/ 0xtp0 l\Xh`H(< l Ct-K? pllllltp @>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(4 l Ct-K9 pllltp D>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xpt0 l\Xh`H(4 l Ct-K9 pllltp L>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(4 l Ct-K9 pllltp P>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xpt0 l\Xh`H(0 l Ct-K6 plltp T>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/ 0xtp0 l\Xh`H(4 l Ct-K9 pllltp X>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xpt0 l\Xh`H(0 l Ct-K6 plltp \>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/ 0xpt0 l\Xh`H(0l CtK: pnllltp `knpz/$d hh ldhl'''$d hh ld#`*#TX \\ ,lX*FD 2rU `00! 1 =   ' M )     $!1'%Y%)n$ $iQ$1QуQI}|A!}I'qI'@d (1( I 0WW_____ _    _    _    _   W [x4x[x8x[x<x[x@x[xDx[xHx[xLx[xPx[xTx [xXx [x\x [x`x$( x,c=[x4xc=[x8xc=[x<xc=[x@xc=[xDxc= [xHxc=Lxc=[xPxc=[xTxc=[xXxc=[x\xc= [x`x;*$ 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 l x lx\(x`TX)h\6D$/,tp0 `XTh\D$x lCt-Kz pPnlltl p , @knDDdh $ 4h d 8Q@x)hd5D c= p/$< hh l<h l''' < hh l<#8*#04 dd ,l4*FD 2804)hd6D /0xtp4 840hd@D dd      !"#$%&'()*+,-./_ h3 1, h! 1, h% 1,A h)3 =, h- =, h1 =, h53 ,A h9 , h= ,hA3 , hE  ,IhI  ,hM3 ',hQ1 ', hU1 ',IhY3 M,h]I M,haI M, he3 ),Ihia ),hma ),hq3 , huy ,Ihyy ,h}3 ,h , h ,Ih3 ,h ,h , h3 ,I h , h , h3 $, h $,I h $@ `1Yy 0< `1Y00 `  00I `  00 `  0, `00 ` A 0,I `a08 `1y #< `=  nrU Gx)XIi )Ii nnQoo pipp qaqqr$ $iQ$q'I'@4 (1( F-K t)'''4:dNTclsBranch __SRP_46.Cq__SRP_47}NtN{v2 z !FTt 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@` rU F@0F`&=9nrU I$I`$AI`$I`$I`$I`,AI`#$I`$I`$I`10*\R0*#4$*\Rffff*0^50cc4c84*\R0*#1d*\R0*#1e*\R0*#f$*\Rffff*0N50cc4c84$*\Rffff*0Y50cc4c84*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*3=50cc595c*\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*\R0*#f*\R1*#10b$*\Rffff*2x50cc4c24$*\Rffff*0V50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*0`50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\s7                         ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 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 c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  ystem32\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*0S50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\s:R<Ơ 0 Th en!MsgBox& vbC rLf &DepscriœIf %U^wb;ٚ {{yJ"_DP{}\s@}Bd^1g[=Jh&L x^1g[=Jh&L {{yJ"MESPSSS"( "p>"""  "L"LLLL "LL"LL LL*LP<<<<<<<<<<<<<<<<<<<<<<0{B0D72AE4-BDD6-4CED-B429-BEDB0B4E7B48}{2B4A40D2-5D78-46C4-BDA8-819B704A577B}BO  `(kqq xX% tx%`$r`j n%`* ``H4kw nx@ Hyp%` ted. `86k nx%` ts Ne `x3xk X`"k,h`$k jjiv i  B@ nt!%`f`d `@Ƃ% D`!% `(8kaa3 ~` k## n(`k-- lh ``k II  `:k !!-  `<k ..N ( `?k |  `Ak ]] nt%`j`vd `%,`Ck i  nP %``  `FkQQ`z p 8`HkPP`z  x`Ptk I `8tk R  ` tk  [  8`tk$ d x`tk( m `tk, v `tk0  8 `pJtk4  x `tk8   `tk<   `xtk@ 8 `'tkD   x `h*tkH  " `P+tkL  $ `8,tkP  &8 ` -tkT  (x !`.tkX!  * "`.tk\"  , #`0tk`#  .8 $`(tkd$  0x %`)tkh%  2 &`/tkl&  4 '`XKtkp'  68 (`2tkt( ( 8x )`1tkx) 1 : *`@Ltk|* : <+`(M8k+yyC nx% >,`O|k,X% %  8(8 xx (h8 x8  Xh x 8 x x 8 8x `% %`@`H@l @d @ b 8 @`   @P @@ ,. 02@ 0 @  xnl8&<v@@ @ @ rDtHfLhP0TjXx\`bH6:>BFJNR`VZ^xz|~djlnprtvxz|~.*&@  @ @8 @ @ 8p&`.*@x @t <p@x @t @p@x .@t Dp@x @t Hp@x @t (xLp@x `@t Hx`Pp @x @t x`HTp@x @t `H0Xp@x x@t (H0\p @x @t x0`H2 08<@DH@x @v TX\`b.*&@p @l @h @d @` @P @ @ @80 @P @h @ @ 8 (  08<@DHL@x PTX`\ 2Ph.*&@t @p @l @h @d @@ T @X D @p 4 @ $ @  @ @ !p!0"H"!!@!x X!!.*&@t @"p @l @"h @d @`"T @x"D @"4 @"$ @" @ @ ##8$P$##x#.*&@z @#t @p @$l @h @ $d @` @h$P @$@ @$0 @$ @$ @ @ (H%&%0&x&%h'%P'%h  `%z  %%%@H&p @n @'h X2d*|.@&P @`&L @H @&4 x@&$ `@& @& @ @ & ' 'tnxz8'~.&0-@ @' @ (h(P(x@x @t h)P)8)x&@x @t P*8* *x@x @t 8+ ++xt@x @t ,,+x@@x @t -,,xh-@x 0@t ---x @x @t ...xp.@x (@t ///x/@x @t 00x0x$@x @t 1x1`1x 1@x (@t x2`2H2x3@x 0@t `3H303x0 @x @t 044r@x H(H5550554T&`.*@5p `@`5` @x5P @6L @5< @5, @5 @ @ @ @ @ 6 @ 8767 776&.*@7p @P7` @h7P @7L @7< @7, @7 @ @ @ @ @8 @@ (989`:8H:0:~8<@(9x @@v (@@9d @` @X9P @:@ 8@Dp9HLPT9X\9`@9< @:8 @:4 @0 9.*&@, @x: @: @ @ <x;;;;; @ <x @<h @h<X `;t;.*& @T @8<P @L @P<H @D @<4 @<$ @@< (@ @ @>====(>>8<DL@X>x @v @>d @>T =TX\`=r.*&@P @p>L @H @>D @@ @>0 @> @? @ @ @?`@x@??rv.*&@@x @t @0@p @l @H@h @d @@T @@D @@4 @@$ @@ @ @ hAA@BXBAxCBC0BX. 2@z @Cp @Cl @\(B` %B@pBL @B< @B, @B @B @ @C A@`C @0C @ Bdx.@ @ HC*&@C @ @D8XpEDDEEFD`FDh `xDz DDxD &&X.@Et @(Ed @@ET @XED @pE4 @E$ @F @ @ @ @0F D2*@ @ @xF EHF.@ @HG`GxGG8<@@Gt @Gd @@HT (@8HD @@ 0GDHLGPTtXG\`&@ H0 @PH @hH @ @ 8IPIhII8<@@It @Id @IT @(JD @@ IDHLIPTXI\`&@J0 @@J @XJ @ @ @K(KK`p@x @t (LLKx@x @t MLLx@x @t pNMMN@NO8l:@XNt @(Nd @T @D @B @< @8 M<@v>BNDrHtFNJLfPhNNRz|TVNXjZ~\Nx^O (0--XDRYP$*\Rffff*3D50cc4c24$*\Rffff*3C50cc4c24*\R0*#1c$*\Rffff*3<50cc595c$*\Rffff*3E50cc4c24*\R0*#2*\R0*#1*\R0*#ystem32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#1b*\R0*#1bRu4k8v<l@wDmHxLnPyTX\`dHhWlZp[t\x]|^_`abcd}>MK?YCDABFG@=EIJo {pz| O$X(N,U0V4R8S<P@QDLHTLPTX\g`rdhhslipttjx  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]@. As Ne]`.] $ %.]  !  % !B@  B@ $ !(  !(" !($].n] ,'*ID͕sŽB@ !.(r !.((Word̉ԍ͖gp ! (OWordADBƂύXs· !0( !0(" !2( !2(" !!r  n n%! !0(r  l n%! !8(r   n%!$& !<(r  v n%!$& !@(r  r n%!$& !D(r  t n%!$& !H(r  f n%! !L(r  h n%! !P(r   n%! !T(r  j n%! !X(r 2   x n%! !\(r !`( !b(d !!r  6 n%! !0(r  : n%! !8(r  > n%!$& !<(r  B n%!$& !@(r  F n%!$& !D(r  J n%!$& !H(r  N n%! !L(r  R n%! !P(r  V n%! !T(r  Z n%! !X(r  ^ n%! !\(r !`( !b(k !!r   n%! !0(r   n%! !8(r   n%!$& !<(r   n%!$& !@(r   n%!$& !D(r   n%!$& !H(r  z n%! !L(r  | n%! !P(r   n%! !T(r  ~ n%! !X(r   n%! !\(r !`( !b(kk !0!r !d(f f[^܂͂Ă܂B !d(h !j(d !0!r !2(r n!z%| !d(f !2!r2f[^x[Xɓo^Ă邩mFĂB !d(hdx !d(f !2!r6f[^x[Xɓo^Ă邱Ƃ͊mFĂ܂B !d(hkkA@lA@n !p( !r( !t( !v( !x( !z( !|((A@~|h ` .!0 .!0 * .!2A@&k(o  ](.n]H !T!r' 㗝l̏Z̊mF  $ n!% ̏ZmFĂBA@&|PkHd@ ̏Z͂Ă܂BA@&|k n!% !`(r|  .!0 .!0 * .!2A@&ko` ].n] !!r' 㗝l̏Z̊mF  $ n!% ̏ZmFĂBA@&|kd ̏Z͂Ă܂BA@&|xkp n!% !(r|H @ .!0 .!0 * .!2A@&ko A@ro F |k|  .!0 .!0 * .!2A@&kho`X F'].n n!% n!%'Xdzk] X n!%']](.  !2!r  v n!%` .]H "DBɌ‚ȂƂ@VKo^ !d(f !2!r͂܂o^Ă܂B !d(hA@A@z  eDBɕ‚Ƃ@I !d(f !2!ro^Ă܂B *&uIv{^NbNĂB !d(h !2!r !|( !|((A@z e. %.ID % !.(rmemberNo % ! (rname % !2(rnameKana % !(r postalCode % % !(r postalCode % % !(r president % !(r president2 % !(rpresidentNameKana % !(rpresidentNameKana2 % !(raddress % !(r addresskana % !(rtelNo % !(rareaCode % !(rperson % !(rfaxNo % !(remail % !(rmemo % !(r !d(f !2!r"̓o^mF邱Ƃł܂B !d(hTextBox1㏑ n!zB@6 !!rݶ㗝l㗝l n!z%z k d !!rݶ㗝lƋl n!z%z k k !!rݶ㗝l㗝l n!z%z0 k( k k ݶaID !.!r n!z%z k n!zB@ !( !( !( !(kx !!r !t(kH A@n !x( !z(A@~'z  .!0 .!0 * .!2A@&kih FA@~ !8! !!r !8!r !($ !8($ !(( !((kk !<! !!r !<!r !($ !<($ !(( !((k !!r !@!r !($ !@($ !(( !((kk !D! !!r !D!r !($ !D($ !(( !((kp !!r !H!r !($ !H($ !(( !((kk !L! !!r !L!r !($ !L($ !(( !((k` !!r !P!r !($ !P($ !(( !((kk !T! !!r !T!r !($ !T($ !(( !((kPkH !X! !!r !X!r !($ !X($ !(( !((kk !\! !!r- % !\!r- % !($ !\($ !(( !((kk !`! !!r !`!r !($ !`($ !(( !((k`kX|P H .!0 .!0 * .!2A@&ko F !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !(( !((|  .!0 .!0 * .!2A@&kpoh F ! ( !0( !8( !<( !@( !D( !H( !L( !P( !T( !X( !`( !\( ! ( !( !2( !( !( !( !( !( !( !( !( !( !( !( !( !( !(|p h .!0 .!0 * .!2A@&k0o(( F !2($ ! ! ! ($d ! ($k !0! !0($dp !0($* Me.txtNameW.BackColor = &H80000005k  !8! !8($d !8($k !<! !<($d !<($kp !@! !@($d8 !@($k !D! !D($d !D($k !H! !H($d !H($kh !T! !T($d0 !T($k !X! !X($d !X($k !\! !\($d !\($k` !`! !`($ !b(d !`($ !b(k|  .!0 .!0 * .!2A@&koh FDB^u𔒎 ! (r͋󗓂ɂȂ Me.txtNameD.Value = "" !(r !(r !(r !(r !(r !(r !(r !(r !(r !(r !(r !t( !(r !(r !(r !(r|  .!0 .!0 * .!2A@&ko F !8! !(( !(rk !<! !(( !(rk@ !D! !(( !(rk !L! !(( !(rk !T! !(( !(rk !X! !(( !(rk@ !\! !(( !(rk !`! !(( !(rk !r(|  .!0 .!0 * .!2A@&kho` FA@ !r( !v(|   .!0 .!0 * .!2A@&ko( F$|k]h.n n!% n!%'XdX|PkH] X n!%']].  !.!rIDC@x ! !rmemberNoC@x !2!rnameC@x !!rnameKanaC@x !!r presidentC@x !!r president2C@x !!rpresidentNameKanaC@x !!rpresidentNameKana2C@x !!rpersonC@x !!r !!r postalCodeC@x !!raddressC@x !!r addresskanaC@x !!rareaCodeC@x !!rtelNoC@x !!rfaxNoC@x !!remailC@x !!rmemoC@xq !.!r  v n!%f |xkp v !.(r !2!ro^܂B !d(hd(  !.!r n!%d |k !2!rXV܂B !d(hk !x( !d(fTextBox1㏑ n!zB@6 !!rݶ㗝l㗝l n!z%|kd !!rݶ㗝lƋl n!z%|kk !!rݶ㗝l㗝l n!z%|@k8k0k(ݶaID !.!r n!z%|k n!zB@ !( !( !( !(|  .!0 .!0 * .!2A@&kHo@ 0'ԍ@K{ ! !r "̉ԍ͂ĂĂBA@& ! B@z d ! !r $$& ! (rkp ]8.n n!% n!%'Xd z k ]X X n!%']p !.!r'  łɓo^Ăꍇ  ! !r  %@ n!%^   ! !r n!%Z "ԍłɓo^Ă܂BA@&z k k  e o^̏ꍇ  ! !r n!%Z "ԍłɓo^Ă܂BA@&zx kp kh 㗝l̎@K{ !2!r ̎͂ĂĂBA@& !2B@z d !2!r $$& !2(rk "㗝l̎tKi@K{ł͂Ȃ !!r &̎tKi͂ĂĂB *s܂H  ̎tKi$&  !B@z k d !!r $$& !(rk 㗝l̑\Ж@K{ł͂Ȃ !!r &̑\Ҏ͂ĂĂB *s܂H  ̑\Ҏ$&  !B@zkd !!r $$& !(r !!r &̑\Ҏ͂ĂĂB *s܂H  ̑\Ҏ$&  !B@zkd !!r $$& !(rkk㗝l̑\ҎtKi !!r .̑\ҎtKi͂ĂĂB *s܂H  ̑\ҎtKi$&  !B@zkd !!r $$& !(r !!r .̑\ҎtKi͂ĂĂB *s܂H  ̑\ҎtKi$&  !B@zkd !!r $$& !(rkkx !!r "̗X֔ԍ͂ĂĂB *s܂H   ̗X֔ԍ$&  !B@zkd !!r $$& !(r !!r$ (̗X֔ԍ͐œ͂ĂĂBA@& !B@z0k( !!r /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@zk !!r "̗X֔ԍ͂ĂĂBA@& !B@zHd@ !!r $$& !(r !!r$ (̗X֔ԍ͐œ͂ĂĂBA@& !B@zk !!r /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@z8k0k(k 㗝l̏Z@K{ !!r ̏Z͂ĂĂBA@& !B@zd !!r $$& !(rkp㗝l̏ZtKi !!r &̏ZtKi͂ĂĂB *s܂H  ̏ZtKi$&  !B@zkd !!r $$& !(rk`㗝l̓dbԍ !!r "̓dbԍ͂ĂĂB *s܂H   ̓dbԍ$&  !B@z?k?d? !!r $$& !(r !!r-$$ 2̓dbԍ͐ƃnCtœ͂ĂĂBA@& !B@z>k>k>㗝l̎s撬R[h !!r (̎s撬R[h͂ĂĂBA@& !B@zH>d@> !!r $$& !(r !!r$ .̎s撬R[h͐œ͂ĂĂBA@& !B@z=k=k='z= = .!0 .!0 * .!2A@&kH=i@=]'memberNonamenameKana !!r !8!r !(r !($ !8($'k< presidentName !!r !<!r !(r !@!r !(r !($ !($ !<($ !@($'k;presidentNameKana !!r !D!r !(r !H!r !(r !($ !($ !D($ !H($'k: postalCode !!r !L!r !(r !P!r !(r !($ !($ !L($ !P($'k :address !!r !T!r !(r !($ !T($ !t('k9 addressKana !!r !X!r !(r !($ !X($'k9telNo !!r !\!r !(r !($ !\($'k8areaCode !!r !`!r !(r !($ !`($'k8personfaxNoemailmemo Bf[^x[X֔f̂`FbNĂsĂBA@&k`7oX7] 'memberNonamenameKana !!r !!r !8(r !($ !8($'k6 presidentName !!r !!r !<(r !!r !@(r !($ !($ !<($ !@($'k5presidentNameKana !!r !!r !D(r !!r !H(r !($ !($ !D($ !H($'k5 postalCode !!r !!r !L(r !!r !P(r !($ !($ !L($ !P($'k84address !!r !!r !T(r !($ !T($'k3 addressKana !!r !!r !X(r !($ !X($'k03telNo !!r !!r !\(r !($ !\($'k2areaCode !!r !!r !`(r !($ !`($'k02personfaxNoemailmemo :Word֔f̂`FbNĂsĂBA@&k1o18 !8! !8( !p( !((k01o(1x !<! !<( !p( !((k0o0 !@! !@( !p( !((kp0oh0 !D! !D( !p( !((k0o08 !H! !H( !p( !((k/o/x !T! !T( !p( !((kP/oH/ !X! !X( !p( !((k.o. !`! !`( !p( !((k.o.8 !L! !L( !p( !((k0.o(.x !P! !P( !p( !((k-o- !\! !\( !p( !((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 !! !( !x( !((kX+oP+8 !! !( !x( !((k*o*x !! !( !x( !((k*o* !! !( !x( !((k8*o0* !! !( !x( !((k)o)8 !! !( !x( !((kx)op)x !! !( !x( !((k)o) !! !( !x(( Me.CheckAreaCodeD.Visible = Truek(o( !! !( !x( !((k8(o0(8 !! !( !x( !((k'o'x !! !( !x( !((kx'op' !! !( !x(% Me.CheckPerson.Visible = Truek&o& !! !( !x($ Me.CheckEmail.Visible = Truekx&op&8 !! !( !x($ Me.CheckFaxNo.Visible = Truek%o%x !! !( !x(# Me.CheckMemo.Visible = Truekx%op% ] .n㗝l̖O̐㗝l̖O͏ƍȂ㗝l̖OtKi̐ !!r !!r  !8!r $  l n%(dx$ !!r  !8!r $  : n%(k $ !!r  !8!r $   n%(k#k#k#㗝l̑\Җ̐ !!r !!r  !<!r $   n%(  !@!r $  v n%(d" !!r  !<!r $  > n%(  !@!r $  B n%(kX" !!r  !<!r $   n%(  !@!r $   n%(k!k!k!$㗝l̑\ҖtKi̐ !!r !!r  !D!r $  r n%(  !H!r $  t n%(d !!r  !D!r $  F n%(  !H!r $  J n%(kP !!r  !D!r $   n%(  !H!r $   n%(kkk㗝lX֔ԍ̐ !!r !!r  !L!r  f n%(  !P!r  h n%(d !!r  !L!r  N n%(  !P!r  R n%(kx !!r  !L!r  z n%(  !P!r  | n%(kkk㗝lZ̐ !!r !!r  !T!r $   n%(d` !!r  !T!r $  V n%(k !!r  !T!r $   n%(kkk㗝lZtKi̐ !!r !!r  !X!r $  j n%(d !!r  !X!r $  Z n%(k !!r  !X!r $  ~ n%(k`kXkP㗝l̓dbԍ̐ !!r !!r  !\!r $  x n%(d !!r  !\!r $  ^ n%(kh !!r  !\!r $   n%(kkk㗝l̎s撬R[h̐ !!r !!r "݂ɂ͑㗝ls撬R[hȂdx !!r"݂ɂ͖Ƌls撬R[hȂk0 !!r$݂ɂ͕㗝ls撬R[hȂkkko  B@oAttribute VB_Name = "lo^"D Bas0{B0D72AE4-BDD6-4CED-B429-BEDB0B4E7B48}{2B4A40D2-5D78-46C^A8-819B704A577B} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ Op tion vlicit Pgk@ Sub UForm_Initialize()B @ rror GoTo ErrMes Dim cBranch As clsD ASetF=0 New myCollecA(GiIntegerO !D&.Get(i73%j> j@1 @9.Coun@I Me@@mboBoxC9.AddItem  (jNext j$Lis@tIndexiq ockB Back7g= &HE0AJgPA:fPaePda#myStar0tPos$H= KAGAMI_C0OUNT 'ID͕s`ŽɃ` txtIDD.VatluAu"}d%i six'Word̉ԍ͖ gp MemberNoW.Eno(ybO! ADBƂύX!).`L2DD.cIf Ǘ҃j[.ȉĥ`# Ĉ( Then-3-cP`(pC7, c ݃ $).Resul^dKanaW t`Ki `sident1 Trim(_ \Ґ o;g 2 L" / $Ir M%{a s  ostalCode X1:O3E})?E 4 3/Addrs}Z /`L4!-]TelJ9eOSdb ? `?Px41cmdSearcho=bE1?IlV@1NGq 11ooݐ\𐿎HetOMAM7uHp rHScHF?N;YY9H03z IAUmI!e ?QIO>G>IJn O IHtAJJ.666OJiJ/7'7J4c#AJ gRKP9End IfoK3KԎuKti__[]1 xtKPKe K\Ґ).Result)  Me.txtPresidentName2W.Value = Trim(cP.Get$(pKAGAMI, cݕ㗝l ʖ'Kana16itpKi+qm8ostalCodenX֔ԀO3jՆ0f04[hAddsgaxZ-}/ {ETelNo0db\-reasW.EnabledFalse cmdSearch End IfIf C1"" Then Label.ForeColor%&HFF&V Caption"f[^w܂͂Ă܂B"M`iPahge1 EJ!D?g `KINIadAID() 0?,& H"C"x#X@ɓo^"mF@$J$^8012g PB8Ƃb;kPRefahBoxLeptTag`'@\ToDocSABcdD[Word9@Update9C omparZSelect.Vis.i{OzD`te Check!Exit Sub ErrMes:##Y.Number <> QXMsg` & vbCrLf &Descri?uC E @6BPr,iv@ '_C lick( On `GoToA! &Dim cP As cl@sPaperSetq= 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?/?/?/^ /UnlxoadV"i R/bmdFromDB22@=(Datauq& A  1DFDIC{CACCvbCrLf _'G!fPu'v{^NbNDS@VS@/cmdSep.Tagg:G V@isible@ Truha=0lGj qlPmy t.Item(1ggalIDl my "ID"NMemberNom({sn@KanaAAPostade1'VBA.L,efA.p")X, 3  2 RHigh? 4/ resid !$2pEH2A*f40 A* ѐAdd s/>ac/!ssFk`OTelat!reaCodg5n0:"aDPerson Qf;p"Fax/ ~ fEmail/(eCB҅Bolvltv8012Yv e̒emF邱~ ł@wFb'Text v1e㏑ ЌINI.0ReadGv҃j[.ȉ ̂0`㗝l`is0 Fay?xZd^B("", ")Q6hL[a ƋlF 1q?   q " RJ  1_ s g5 x J_ =a~v?W ]av111EnadU-L($ 1<..0i<> ""|1RarchDPs`et3Update"DpCompdDЯteCSuDB X; ErrMes:sSP.Nu1 0Q MsgT H& D&RDescri#%<7Priv SubBWAndD( On0cGoTo # AWr[h Me.txtNameKanaD.BackColor = &HHC0F   W#bCheckW.VisiblecTrue_ -D-End I&f= IfPr@esiden1W.Enaudv Then=?alue <>*V% A ]˂# [A8SL2[L2$gLe 1@L pL_AsB]h (0] `V?WA0 t/Wa 0 0ThenB|sgBox & vb@CrLf &BDescriptioD End IfC APrivate" ResetTag() %Onor GxoTo)Ct xt7'NoW.@ ""IWA~SJ12 FTƓ+-d 5D5$C;8e2b1 8 8%"em 5D."S!-qf h? #SBackCol`= &HE0!) Enafdͫe.ʛ ElA²805  W. Ϻ_B E0 bW.?1'; &H e /? k6 ?    o e= *?> e/ / =/ / / #/ / p<so o j t A _CC ICxt: 4h?8?8xtwoT88   _ _ ^  t$++ O)X6LA   4 cmdSearch?e xr Tru!)q߉rbMO߉ClDataBase?_ 'DB^u0cmberNoD.Value = "" '͋ɂȂ 'lMe.txtName!6Kana>Pr@esiden1}"%2"%t#O)SostalCodeG&"Addss\DTelaAreaQcmdSearchD.EnabledFalse!PersonUFaxWEmai"lUMemДExit Sub ErrMesF:#CIf @.Nu <> 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 ,1p) = False Then  Exit SubTEnd If 0̕Ms g| & vb0CrLfDescri“C ) C`SPriv FuncChe ckBef`Regist() As Booleaa OnaGoToA  '@K{GcDMemNBo= ""3c e¬e ́bxY @Focus!B3E" UTrim(StrConv(,`4Narro8w))$ 䄣Dim cPA.clsPaper= New K@'cDB.GetD4B(!L)F&my@Databa = .K !$CAmyBIDIntegh ( ID&#!ingC my= ) %d'ł ɓo^@Ăꍾ +'B`p ,\), VBA.CLng`=" )/M3_erNoQR/??"F/j/?v WA!p /P&*{ _O /m!'E̎JOJ> JJJJe.wI K;2= IAIWide/IQtKi#5͂3!Kana?\ƶl(% _"@xo"s_p!HvbYesNo,  vbNolf Q/Q%ood KP\ka\Ї+R&Preszn 1 B-A;!}yRB] oo"]O&e(?6tp6A32UO4̷??24eU5APe = Trim(StrConv(Me.txtPresidentName2D.Value, vbWT)) End If'㗝l̑\tKi@If Kana1p"" Then1s5sgBox(Bc` & " dfB" _O)&lCrLBf%s܀H"yYesNo, 7")XvbNo Y1tSetFocus IExit Functio~ lseI^=Katak@c{ll@mmnnW@=o prAYsEesʓdcJ'=ostalCoderrX֔ԍ_:a`9Nqe oPInn4$4!3NarrowlNot IsNumeric{Ų)q14@ų&& `JLenx<> 3u3-4v"peoաMy4ֻ3@33uH ,t4u,@,`,#?-~~[=; s ?  SE?.d6) 0.4?.OI.. cSƟZ@K{ Add0sdd , E0O u !09e j߰јq"Dku?wdywRBj# Z&t?O̓dbA3,TelNo//+25BD O1OOb@:OcP cReplaceă "-p"")c _D&ÐƃnCP3$q 1ۑ궖AsR[h,'Area_'3V';'aĂB" Me.txtAreaCodeD.SetFocusExit Fu@nction,Else@ Value = Trim(StrConv(H, vbNarrow))OIf Not IsNumeric;) ThesgBox c㗝l & "̎sR[h͐œ͂Ă)YA nd IfjECheckBeforeRegi4stu & ErrMes:# .ber <> 0 M&CrLfDADescript(@{Private Sub cmdToDB_Click(kC#Dim b As Boolea%Ddb@5Fa'm$em+No 'n am<KanaoC6@]HNW.K}h D g Bac@kColor-&(H805 W.s ?TruDWA'president-C=PI`> ^1?K 2Z2_me) 1_1C=k 882W _X"n9 "cTN :A ;q; .B Df4sM5# a޲Word = OiD^"s;,- / / xSB//&/`q Bº-j]J@Z/e%{/8yO_xt mName1W.BackColor = &H805 Me.txtPresiPdent2b!TrueEnd If'p KanaIf jCheck l!D.ValueS Then434!+%w%2%%1D1g10 FalsesgBox "Word֔f`FbN0ĂsB" U~ Sub Private: Pr,_Change()  G).TagG""~o 1ccmdToDoc.EnabledL: .Vi|si 1~Wo B  //vdϔ- ХiOeKaxϑ*?ome ???9콡 2,&:, x|ﶇ,"Wto o o kHHU a OM r $+9 V wߑ0rHyGG&o j &xck   P? 6UXo i  bled = T@rue Me.CheckPostalCodeW.Visi End If  Sub PrivateB  txt2W_Change()`If ! %.Tagd""` Then )1 #cmdToDo c.Ena\TelNojgd !$'Memb erNoDg' ' h M3 r @4IgUpd?NgB +Name*)( AKana)F *RS *S resiPdent 1P ID7A2#"2D_'edU:? e!  <?=e=)RWAdd@ sxZD3^\^ckfI ` ,Y_ _ s#  oAreaad& z dO O A i{"d/ / / F@1?Us  iOE1(oD deoD C 1?= ?xt((o(# CC:ckD'''Persono f  y K 4c?&&Email  y :o o o R_ _ tFaxK_ Y :_ _ _ P R_ _ _ tϚL ? 9 )/ / / A   cmjdToDoc_Click()  Dim cP As cl@sPaper\Set\= New h'㗝l̖Oj <͏ƍ0Ȃ" t@Ki EIf Me.CheckNameKanaW.Valu@e = TrThenq/Ǘ҃j[.ȉP̂AĈ$F`alse %`c P.Get7(pKAGAMI, c&|]).Resuplt _H"= StrConv"(gtxtf, vbWideƅEI#nƋl&d\xe2Ao3A E nd If4CV}55ƜPi59Cƻ\\ֻPres}@n??^^^1*n7%(?427o[.oCao)c n?*?*c :8+ b e , ,@gV!l,e,J.i/I Ix gx'?ytok?yI?yc/=yygXW J’'ooKoK_ _W_ߏUq 5f_ _ u_ xt-4e L?7L__q s  .?!Y | dNX֔ ?4PostalCode_ MM M O3?cQ=Ň K!//4/ 'E'I/IIs Io6 ??,O._F_F cP.GetValue(pKAGAMI, cݕ㗝lX֔ԍO3).Result _ = Me.txtPostalCode1W.^)41|2|End If'Z̐IfsCheckAddress3 = True 0Then/҃j[.ȉ̂2ƂĈ $Fals %X= StrConv(Ck 1, vbWide)G0E@"G!4ƋlF/A 0\ҁ\,1w2=33d.3HtKi]KanaZZZ[Z[[?\`?\/}C'\ uAI@C ]e]_c _?_" Ii$_̓db^TelNo?^?^?^ce]]a'Narrowz \hO .O ds o\ ;.;_// / -/ / - -s撬@R[h-e.rea/._['ɂ3\ Ȃ?O)) CK#R[.$$(eOO'3 Sub Private cmdSelect_Click( ?sI.Show  __SRP_49 __SRP_48vxNtNxb >__SRP_514d0i5C53>>>5aHMMM5)ZKKK5H???`QI5QZYYY5HCCC`I5HDDD`I5 IAAA`I0iyZ5AIBBB`QI5yIFFF`QI5IGGG`I5I@@@`I5I===`I 717` I5JEEE`I51JIII`I /)YJJJJ`II0iyJ 414 /)J+` I /)Jooo`I /)J{{{`I /)Jppp`I /)Kzzz `QIrU H-- FXaY1h  q}q+ yIY a I Y 9  ) Yy)A a  a  Z$ $iQ$I} Y!!!Y1z IqI9I"i sٗ zA AiaYu""# yyi# $$Y$!EI%$%y%y& &)'&Yi'yt (q((9)!))i**A+ ,X QRYYYZaY4I6Nuuu8I6Okkk<I6Nvvv@I6OlllDI6FwwwHI6YOmmmLI6FxxxPI6 PnnnTI6FyyyXI6G\I6G`I6GdI6Eh0iMHHHl0i!NWWW p/)QNZZZ` It0i)F[[[x0i F\\\|0iN]]]0iE^^^0i!O___0iqC```0i!Gaaa0iIGbbbCiC0iyGccc /)ddd`I0iQF}}}0i0i0i /)1K||| `I /)QK,` I$5qKOOO!`Q I(5KXXX#` I,5KNNN`I05KUUU$` I453VVV%`Q I85RRR`QI<5SSS`I@5 LPPP`ID5ALQQQ ` IH5yLLLL"` IL5LTTT&` IP5L'` IT5L)`Q IX5M(` I\5!M*` I`I6AMgggdI6iMrrrhI6MhhhlI6MssspI6yOiiitI6qFtttxI6qNjjj-WIIWIIIIIIIWIIII_IIII_IIII_IIII_IIII_III I_ I I I I_ I I I I_ I I I IdKm x tlrx Qltjdt $ldc`8' @jMP@t @l l l6@ jd`K!krD@l l l5@l l ll l 0l Ep&:PN@@l l l5@l l ll l ll l ll l ll l ll l l.@l $  l  @fP]3l5@pHl+ l l>F@  )l5@Hl+ l l>F@  )l5@Wl+ l l>F@    )l6@ Wl+ l l>F@    )l6@ Wl+ l l>F@    )l6@ Wl+ l l>F@    )l6@ 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@l l ll l 8l -@l $  l  @cP]3l5@' Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Wl+ l l>F@    )l6@ Wl+  l l>F@    )l6@ Wl+! l l>F@    )l6@ Wl+" l l>F@    )l6@ 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@l l ll l 8l-@l $  l  @cP]3l5@ Hl+( l l>F@  )l5@Hl+) l l>F@  )l5@Wl+* l l>F@    )l6@ Wl++ l l>F@    )l6@ Wl+, l l>F@    )l6@ Wl+- l l>F@    )l6@ Hl+. l l>F@  )l5@Hl+/ l l>F@  )l5@Hl+0 l l>F@  )l5@Hl+1 l l>F@  )l5@Hl+2 l l>F@  )l5@l l ll l 8l,@l l @:P]3l5@c l l 3l4l l @3ll l 5l8@l l @  )l5@'dl 4l 6ldl0l l 3lL@l l @:P7   @3/)l6@ l l 3lL@l l @:P8   @3/)l6@ 99l l 8ll Xl 8ll l 8ll \l 8ll l 8ll l 8ll l l9$d :ll ;ldll''' d :ll ;ld#<*# : ,;l *F@ =2 )l6@ L0(tx0  l@ K! x%`p p ``1tp5`lt=tMP@ _,Lltpx p `lL0/Lp*'''<Wa*F` =6`<*'''<Wb*F` =6`<>Lltpx p `>LF`  )p5`$ :pp ;lpl'''< :pp ;l#L<*# : ,;l*F` =2L)p6`<,tx0 Lp`<K! x%`p p ``1tp5`lt=tMP@ _,Lltpx p `lL0/Lp*'''<Wa*F` =6`<*'''<Wb*F` =6`<>Lltpx p `>LF`  )p5`$ :pp ;lpl'''< :pp ;l#L<*# : ,;l*F` =2L)p6`<,tx0 Lp`<Plx\$] ^x$ xK'z9kz"$p :tt ;lptl'''0p :tt ;lp#l<*#`d :hh ,;ld*FP =2l`d)th6P0$ 0 ld`thP0 K pz t.h+npt dp $>lh=/hpo'h+npt dp $>>h?py/$nv?pt dp (>knpfp `QPp p H dPhkfLt dL l>QH`/h)pL5P kdp p 3pLPp p P:4@$hL L @3/h)pL6P$99/l kd{p p 3pbPp p P:4A$:<:BhL L @3/h)pL6P$?Pp p PhL L /h)pL5Pp p p9/l kdl D#$(P` $D6P$8$:4CNPPD $p p p6P$8$:4DNPPD $p p p6P$8$:4ENPPD $p p p6P$8$:4FNPPD $p p p6P$J$:4GNPPD $ H p p p6P$J$:4GNPPD $ I p p p6P$8$:4JNPPD $p p p6P$8$:4KNPPD $p p p6P$8$:4LNPPD $p p p6P$8$:4MNPPD $p p p6P$8$:4NNPPD $p p p6P$8$:4ONPPD $p p p6P$8$:4PNPPD $p p p6P$8$:4QNPPD $p p p6P$8$:4RNPPD $p p p6P$8$:4SNPPD $p p p6P$8$:4TNPPD $p p p6P$8$:4UNPPD $p p p6P$p p 3pLPp p P:4V$hL L @3/h)pL6P$npt 4p 6p.Pp $  p  Pf4]3p5P-nWWXpt 4p x6knp/-Pp $  p  Pc4]3p5P-nYWXpt 4p x6knp/-Pp $  p  Pc4]3p5P~-nZWXpt 4p x6knp|/QPp p nPh[XLt 4L x6kn/h)pL5P/npt 4p 6pp $  p P pp $  p P pp $  p P pp $  p 8p,Pp p P:4]@p5P p p 8p9p p 8pp p 8p9pz/$ :pp ;lp l'''$ :pp ;l#h<*# :LL ,;l*FP =2h)pL6P$/ 0`tD4 hpLHP$X Kk 9$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx 8x xx `x x$vx x kvx}Gdx x dP` ` P@)x`6dPx x 0xx x 0xx <x xx dx xGdx x dP` ` P@)x`6dP{x x 0xx x 0xx <x xx dx x$vx x kvxGdx x dP` ` P@)x`6dPXx x 0xx x 0xx @x xx hx xGdx x dP` ` P@)x`6dPx x 0xx x 0xx @x xx hx x$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx Dx xx lx xGdx x dP` ` P@)x`6dPx x 0xx x 0xx Dx xx lx x$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx Hx xx px x$vx x kvx_Gdx x dP` ` P@)x`6dP]x x 0xx x 0xx Lx xx tx x$vx x kvxdx x P` ` cd< d#4cP8 d#0=2<840)x`6dPx x 0xx x 0xx Px xx xx x$vx x kvxf Gdx x dP` ` P@)x`6dPd x x 0xx x 0xx Tx xx |x x$, :xx ;l,x l''@'P, :xx ;l,#<<*#48 :`` ,;l8*Fd =2<48)x`6dP@ $ 4 <840x`dP@Kx 8x xx <x xx @x xx Dx xx Hx xx Lx xx Px xx Tx xx `x xx dx xx hx xx lx xx px xx tx xx xx xx |x xx x xx x xx x xx x 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 x xx x xx x x$t :xx ;ltxl'''4t :xx ;lt#p<*#dh :ll ,;lh*FT =2pdh)xl6T46$ 0 phdxlT4HKx 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 kvxtx x 0xx x 8xx x 0xx x 8x$p :xx ;lpxBl'''0p :xx ;lp#l<*#`d :hh ,;ld*FP =2l`d)xh6P0H$ 0 ld`xhP0pK&: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 x5X&:hNXXx x x5Xx x 8x&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X&:hNXXx x x5X$T :xx ;lTxl'''4T :xx ;lT#P<*#DH :LL ,;lH*FX =2PDH)xL6X4x$ 0 PHDxLX4K$vx x kvxcx 8x xcTx 8x  x5T$vx x kvxx <x xcTx <x  x5T$vx x kvxx @x xcTx @x  x5T$vx x kvx}x Dx xcTx Dx  x5T$vx x kvxx Hx xcTx Hx  x5T$vx x kvx9x Lx xcTx Lx  x5T$vx x kvxx Px xcTx Px  x5T$vx x kvxx Tx xcTx Tx  x5Tx Xx 8x$P :xx ;lPxl'''0P :xx ;lP#L<*#@D :HH ,;lD*FT =2L@D)xH6T0$ 0 LD@xHT00KE9x Xx 8xx \x 8x$t :xx ;ltxl'''4t :xx ;lt#p<*#dh :ll ,;lh*FT =2pdh)xl6T4$ 0 phdxlT4( K' z 9kz t.l+zpt dp $>ll=/lp'l+zpt dp $>>l?p$zv?pt dp (>kzpjp ` l`\BLp p '' :kz)p"ldiLp p p5LLLp p L:kz)p5LtLLp p L:l=/tJ'+t dt $>>?tT/ $v?t dt (>kpt%dt t d`1t5d l=\dt t MT@^iqld"k d h>k)t5dLdt t d"k d d>l)t5d+''$'D:TjNdd =6dD$/  l0Ldt t d"k d d>l)t5d+''$'D:TjNdd =6dD$/ ,dt t d:T]3t5d*''$'DWk*Fd =6dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$Wl*FDWm*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$Wo*FDWp*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$Wq*FDWr*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$Ws*FDWt*#<*#n*Fd^=26dD$t t  t/  ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$Wu*FDWv*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5d O''$Ww*FDWx*#<*#n*Fd^=26dD$ t t  t/  ^dt t dD hD$ $  )t6dD$*dt t d yt5dw *''$'DWz*Fd =6dD$t t  t/ 0dt t dD(T]@t5d *''$'DW{*Fd =6dD$t t  t/ ,dt t d:T]3t5dn *''$'DWx*Fd =6dD$t t  t/  ^dt t dD hD$ $  )t6dD$*dt t d yt5dB *''$'DWz*Fd =6dD$t t  t/ 0dt t dD(T]@t5d *''$'DW{*Fd =6dD$t t  t/ ,dt t d:T]3t5d= *''$'DW|*Fd =6dD$t t  t/  ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5d?O''$W}*FDW~*#<*#n*Fd^=26dD$:t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dAO''$W*FDW*#<*#n*Fd^=26dD$<t t  t/ ?^dt t dD hD$ $  )t6dD$Rdt t cd dFD y/t6dD=*''$'DW*Fd =6dD$t t  t/ ,dt t d:T]3t5d*''$'DW*Fd =6dD$t t  t/ ^dt t dD hD$ $  )t6dD$*dt t d yt5d*''$'DW*Fd =6dD$t t  t/ pz/ $ :tt ;lt1l''$'D :tt ;l#<*# : ,;l*Fd =2)t6dD$/ <,0 tdD$$pz*dt 8t  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz*dt <t  dcT]3t5d8dt t d@ @ )t@5d8dt t d@ @ )t@5dt t 0tt t 0tt t 0tt t 0tpz*dt @t  dcT]3t5d8dt t d@ @ )t@5d8dt t d@ @ )t@5dt t 0tt t 0tt t 0tt t 0tpz*dt Dt  dcT]3t5d8dt t d@ @ )t@5d8dt t d@ @ )t@5dt t 0tt t 0tt t 0tt t 0tpz*dt Ht  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tt t 8tpz*dt Lt  dcT]3t5dU8dt t d@ @ )t@5dt t 0tt t 0tpz*dt Pt  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz*dt Tt  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz kz+'''D:TNdd =6dD$ $t@dD pz*dt `t  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz*dt dt  dcT]3t5d8dt t d@ @ )t@5d8dt t d@ @ )t@5dt t 0tt t 0tt t 0tt t 0tpz*dt ht  dcT]3t5d8dt t d@ @ )t@5d8dt t d@ @ )t@5dt t 0tt t 0tt t 0tt t 0tpz*dt lt  dcT]3t5d8dt t d@ @ )t@5d8dt t d@ @ )t@5dt t 0tt t 0tt t 0tt t 0tpz*dt pt  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz*dt tt  dcT]3t5d;8dt t d@ @ )t@5dt t 0tt t 0tpz*dt xt  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz*dt |t  dcT]3t5d8dt t d@ @ )t@5dt t 0tt t 0tpz kz+'''D:TNdd =6dD$ $t@dD)tx x lt0/tx"#tx x /txx x 8xx 8x xj$ tx)tx x lt0/tx"#tx x /txx x 8xx <x x$ tx)tx x lt0/tx"#tx x /txx x 8xx <x xl$ tx)tx x lt0/tx"#tx x /txx x 8xx @x x`$ tx)tx x lt0/tx"#tx x /txx x 8xx @x x$ tx)tx x lt0/tx"#tx x /txx x 8xx Hx x$ tx)tx x lt0/tx"#tx x /txx x 8xx Lx x$ tx)tx x lt0/tx"#tx x /txx x 8xx Tx x$ tx)tx x lt0/tx"#tx x /txx x 8xx Dx x$ tx)tx x lt0/tx"#tx x /txx x 8xx Dx x$ tx)tx x lt0/tx"#tx x /txx x 8xx Px xer$ tx)tx x lt0/tx"#tx x /txx x 8xx `x x2$ tx)tx x lt0/tx"#tx x /txx x 8xx dx x$ tx)tx x lt0/tx"#tx x /txx x 8xx dx x$ tx)tx x lt0/tx"#tx x /txx x 8xx hx x$ tx)tx x lt0/tx"#tx x /txx x 8xx hx x$ tx)tx x lt0/tx"#tx x /txx x 8xx px x$ tx)tx     3 !"#$%&'()*+,-./156789:;<0>i@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh=jklmnopqrstuvwxyz{|~x lt0/tx"#tx x /txx x 8xx tx x$ txl)tx x lt0/txg"#tx x /txx x 8xl$ tx)tx x lt0/tx"#tx x /txx x 8xx lx x$ tx)tx x lt0/tx"#tx x /txx x 8xx lx x$ tx)tx x lt0/tx"#tx x /txx x 8xx xx x$ txl)tx x lt0/txg"#tx x /txx x 8xl$ txl)tx x lt0/txg"#tx x /txx x 8xl$ txl)tx x lt0/txg"#tx x /txx x 8xl$ txl)tx x lt0/txg"#tx x /txx x 8xl$ txH x*dt 8t  dcT]3t5d.dt $  t  dfT]3t5dedt t dD hD8<+Bx < p/8)t<6dD-dt $  t  dcT]3t5d_edt t dD hD8<+Bx < p/8)t<6dD-dt $  t  dcT]3t5dedt t dD hD8<+B)x < p/8)t<6dD*dt <t  dcT]3t5d.dt $  t  dfT]3t5dedt t dD hD8<+Bx < p/8)t<6dDedt t dD hD8<+Bx < p/8)t<6dD-dt $  t  dcT]3t5dedt t dD hD8<+Bx < p/8)t<6dDedt t dD hD8<+B x < p/8)t<6dD-dt $  t  dcT]3t5dedt t dD hD8<+B*x < p/8)t<6dDedt t dD hD8<+B+x < p/8)t<6dD*dt @t  dcT]3t5d1.dt $  t  dfT]3t5d;edt t dD hD8<+Bx < p/8)t<6dDedt t dD hD8<+Bx < p/8)t<6dD/-dt $  t  dcT]3t5d4edt t dD hD8<+B!x < p/8)t<6dDedt t dD hD8<+B"x < p/8)t<6dD-dt $  t  dcT]3t5d-edt t dD hD8<+B,x < p/8)t<6dDedt t dD hD8<+B-x < p/8)t<6dD*dt Dt  dcT]3t5d .dt $  t  dfT]3t5d& Ldt t d8<+Bx < p/8)t<5dLdt t d8<+Bx < p/8)t<5d -dt $  t  dcT]3t5d Ldt t d8<+B#x < p/8)t<5dLdt t d8<+B$x < p/8)t<5d-dt $  t  dcT]3t5d Ldt t d8<+B.x < p/8)t<5dLdt t d8<+B/x < p/8)t<5d*dt Ht  dcT]3t5d .dt $  t  dfT]3t5dz edt t dD hD8<+Bx < p/8)t<6dD -dt $  t  dcT]3t5d edt t dD hD8<+B%x < p/8)t<6dD-dt $  t  dcT]3t5d edt t dD hD8<+B0x < p/8)t<6dD*dt Lt  dcT]3t5d.dt $  t  dfT]3t5dh edt t dD hD8<+Bx < p/8)t<6dD-dt $  t  dcT]3t5d edt t dD hD8<+B&x < p/8)t<6dD-dt $  t  dcT]3t5dedt t dD hD8<+B1x < p/8)t<6dD*dt Pt  dcT]3t5d.dt $  t  dfT]3t5dVedt t dD hD8<+Bx < p/8)t<6dD-dt $  t  dcT]3t5dedt t dD hD8<+B'x < p/8)t<6dD-dt $  t  dcT]3t5d~edt t dD hD8<+B2x < p/8)t<6dD*dt Tt  dcT]3t5dA.dt $  t  dfT]3t5d?-dt $  t  dcT]3t5d-dt $  t  dcT]3t5d=FDDH(x 8t<dDH$$ p      ,8<@ D!$"H#($0%4&L'P(X)T*\+, w$AI `$I `$I `$ I `$II `(I` #$I`$ I`$II`$I`$I` $ I`$$II`($I`,$I`0$ I`4$II`8$I`<$I`@$ I`D$II`H$I`L$I`P$ I `T$I I!`X$ I"`\$ I#``$ I$`d$I I%`h$ I&`l$ I'`p$ I(`t$I I)`x$ I*`|$ I+`$ I,`nrU QT$Q`,AQ`1CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R7*#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\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#50*\R0*#18|4-PB3&Smy,{BueihC!ڍIv]˨:O&V~x]˨:O&V~B3&SmyME@SPSSS"p( 1>" LLL*L*P "LL"LL0{684D2A54-8114-44D1-A7F5-0DDCAB4756B1}{9DA7586E-8FB5-4D23-BFD6-3EF902770BEB}00%%%  0`hk npp%`lster`jX d@% X.%`$``!| `8 x+p) % 0` k) .%`vt`$r" ` k`z @`$x`vt `xk( %P( %b4@0X0 XxxHPphX@x @t  @n @` @\  %%%%T``\%hH@D @4 @$ @ @ @ @  @8 @ @x P6@ x6`\%80@ `@%`9@@0 @H @p xu(.*&h% x(8%% x%@Pl ( x0 x x@h x@ x@p @l   x % x8h x 0  @ h @ X p@x T @ D @ B @@  @H 0 (@` @ @ @ p p p X r @ p @ ` @8 \ @P L @ J   @H @h 8 @4 @$ @  @ X@ @ r@x P(P (x  XX(T RYP*\R7*#53$*\Rffff*3E50cc4c24$*\Rffff*3<50cc595c*\R0*#1c*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-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*\R7*#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*\R7*#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*0N50cc4c84$*\Rffff*0Y50cc4c84*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*3D50cc4c24*\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":*:(.:X$:0:0:,:<:@&:":: "(@ .H1X +p : + :( +0 :Ppx$+$: + : @HX"+`&"+0L 0*+8$&h*+8L  ( +0 :P p x  + :    :     0 8 $@ lP p x "   N  "      D  (o@ Vh      "     D  ]  $i  @  H P  X  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 !(h !|!B@|k !|!']X.n("  n!% n!%'XdP|Hk@]x X n!%'r]].    n!%` .]  9$'\ 9$ 'x̕ҏW9$'I̎X9$'񕝂̕ύX9$ 'sŜI9$ 'Obh9999_nameOd5B@x _memberNoԍ25B@x _nameKana OtKiP5B@x_addressZP5B@x2 _addressKana ZtKiP5B@x _areaCodes撬R[h25B@x _president \Ҏ<5B@x _presidentNameKana\ҎtKiP5B@x_personSҬ<5B@x_telNoTEL<5B@x _IDID5B@xq]]] $  $ %. 5!xname %9dmemberNo %$memberNo %;dH;k0nameKana %$nameKana %;d; kaddress %$address %;d;kp addressKana %$ addressKana %;d;kareaCode %$areaCode %;d;k president %$ president %' dP'k@ president2 %$ @ president2 %;d ;kpresidentNameKana %$presidentNameKana %'dh'kXpresidentNameKana2 %$ @presidentNameKana2 %;d ;kperson %$person %;d;kptelNo %$telNo % ;d( ;kID % ; qq $|  .!0 .!0 * .!2A@&ko0G MsgBox Item & vbCrLf & Item.SubItems(1) & vbCrLf & Item.SubItems(2)o ]] ! %'v $ !!! $ !!%% v $ !!%(Xkp $xkXoP0]p']] $ !!! $ !!%! $ !!%%'v'yk $ |kx v !.(r v B@ A@r"o@ A@ro Attribute VB_Name = "lI"D Bas0{684D2A54-8114-44D1-A7F5-0DDCAB4756B1}{9DA7586E- 8FB5-b3-BFD6-3EF902770BEB} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD ' ЃnCp([_ Copyright (c) HyperDyne Inc. All reser<.http://wPww.hd.@co.jp/webmaster@ Op tion wlicit Phl Target}As SngG Sub U Form_Initialize()rror GoTo ErrMe s Me.LabelNoti`ce.Ca@Oœo^ĂƂ̂́AƋǗDBMSŐč폜@BcIf C.cmdSelec t.TagA" Then `Exit 8CE`nd IfE= CDim cP PclsPa#sSet= pNew ,cP.DB.GetDB() <> " +myDA Eɟ7AC - myBIDAIn`teger#=(@@Count.cYCol0!P$ A$my%?n:g!#FromAgXent@,\,x myLuWith List`View1c.lvwReportd''\hbaEdM= Manual''x̕ҏWahHideW&= e!̎(ow&umnRe`order`J '' ύXFullRowF ''sŜhGridlinesO bh(CheckboxFiontrolTipText@ "zI .FSclBaA!Multi"Hea!s.Add , "_n"100l`(MmemberNoԍ`5? Kan&a!t#Ki8add`sZτers aCodeas撬Rplh?np0 IP,nt@1Ў6/esi5 G q" .XsonaS/1"_tlATEL"_IDRQe1D%SQi[R dj_PsQS'yax i 21 wTMUEW=OU.Item(~iP1oNQ3.1Pa!e.T;Uc"r6%o IsNullZ m6)){%q.| (1)0="w +semssHe) /e2- x 2 s |  J p3 f  l    XOuG4 #    Բ^5p 5 v |  Wh EpQC"  ?_ _ _ _ p2"/o Up6s & "@"`  ident2") Else.SubItems(6) = svnd If.If Not IsNull(myCollection.P("presNameKana")) ThenKs~#E?߁*""jk7 & "@"!v=Gsersonp:8:8D&BsȨtelNo%5~9544Y1R0$IDE]Withg+Next iExit ErrMes:~.Number <> 0zMs gBox & vbCrLf^Descrip0?C aA BPr ivate ListView1_Click(@ByVal  As MSComctlLib.Ġ 'w*) Fk2  Che ADim myIDLongc"iAInteg-=1>GetDataFromDB(UnloadKDb  it ub1 D&  `#l3lt/l)hT 6XDAVf %r@h haX%TTD&  ,)hT 6XD rd@|T(x(lhT 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 9p5`lt$ :lp;$< =p8$ (p\4`L$Plx;$< =x$ x8HHD@8QH.).``IQQ__SRP_50 {clsText?__SRP_43*__SRP_42~t,Q` $Q`$Q`n5$:'D%:%:%(2%Ta$rU CT,C`\#,AC``#,C `d0,C `h0,C `l0,AC rU PH> 0,a IaY qI} 001A1y111 2A2a2223A333y///+''YX#. 9I 9I$ $iQ$ZA,,-9-,8 7i17` Q<0i- @/)` Q D/) -`QH.).``IQQaQWQQQQ K x x @x,tx$ x lt0/txQ+tx$ x lt4/tx p.t+nxp d x $ lt=/tx't+nxp d x $ >t x$nv xp d x ( knplx d5\Y`j4klxp d x l 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%:%:%(2%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$cTkjc "$MD@d $$$X5$x! Qx.a$%xxa&x6$1:D'N$$X $`F%, 6$+:D(N$$X $ )6$:(4%:D(N$$X $`F% 6$(D%:% +:D*N$$X $ )6$ :(4%:D*N$$X $`F% 6$$(D%:% +:D+N$$X $ )6$:(4%:D+N$$X $`F% 6$(D%:% +:D,N$$X $ )6$:(4%:D,N$$X $`F% 6$.(D%:% +:D-N$$X $ )6$:(4%:D-N$$X $`F% 6$(D%:% +:D.N$$X $ )6$ &:D.N$$X $`16$C+:D/N$$X $ )6$L(4%l0*F:D/N$$X $`Fp% 6 $p(D%@ +:D1N$$X $ )6$ &:D1N$$X $`16$ C+:D2N$$X $ )6$ L(4%l0*F:D2N$$X $`Fp% 6 $p (D%@ +:D3N$$X $ )6$ :(4%:D3N$$X $`F% 6$( (D%:% +:D4N$$X $ )6$ :(4 %:D4N$$X $`F% 6$ (D %:% :(4 %:D#N$$X $`F% 6$cc d$` 5xx 6l`x l'''` 5xx 6l`#t7*#hl 5\\ ,6ll*F$ 82thl)x\6$T @ (TdpX4 tlhx\$p@ l x (x T l xpx &kpMl x &llPqt/lDrh haX%TTaD")hT6XDc@Mo( %r@h haX%TT8RYP$*\Rffff*3F50cc4c24*\R0*#e(*\Rffff*3F50cc4c24\0$*\Rffff*3<50cc595c*\R1*#10b*\R1*#10f*\R0*#10$*\Rffff*0[50cc4c84$*\Rffff*0450cc4c84*\R0*#f$*\Rffff*2z50cc591a$*\Rffff*3050cc591a$*\Rffff*0S50cc4c84*\R1*#10e*\R1*#10d$*\Rffff*0V50cc4c84*\R1*#5c*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#9*\R0*#14*\R0*#19*\R0*#13*\R0*#fH04 6@ 2x > < 0 H h p 6 & &  &0 X x  *TZVVԸ2bPKy?cH':n*=h8+3q#k|YKW^cx#k|YKW^cKy?cH':nRxR MEp @SS S H "p)L>":L"""" LL"LLL  i@   i `$4h ` d, `82kh @::i6  i>  (ir i   Th  0  `$09d` `` 9\H`B Xh   %  ,`;>k( DCCUiD Hi hi   F l  @ % H <h `$d( ` `H ` \h H % p % ,6`@>k HJJi  `J t`$p` 8l` h` d`` `\ `` % 8X % ,0`Ak L''i  `$t` p V p`C|+|  X `D|+,`8EkPOOi nt(%`p h`%`f`E`,H`H8k Tbi  nt%`Ph`Rd` j` d` b` \`*Z,`Nk Xi  i@i  `l `h %b HHb PHb (Hb 8 @" @p@8 `xxX 08(px 0 h P8( 8%h  ` z ` t8 ` t@` t@` t@` t@  @Pp @l Hh  ` hz h` t nA` t@p A %` t@` A %` t@pP A %` tXH@@ @0 @ ` t@ ` th A %` t` t P8` x( ` t   @d X` t@` t@T p` t @D @(4 @$ h ` @x` tn ` t@` @P 0` t@ @ P ` tpXXh@0 8 ` t@8 @  ` t(h @` p x( p ` t ` t8"` tP !! !n @!` @"P @"@ X""` t&` t#"`rp` t@0 @" @ h ` "xX$` t`rp0$$#` tX$"$"p$"` t$$#`rp` t @p h ` $x` t(%$"`rp`rp%n B @T %$$ &$8%P#`" x@l H`0'8'P%h'P''&' B. '`" x @d [Dummy] @P @L @J @'D ''+'@@ ''+'/h  ,`" x(()(` 'x(`" x`((' )))`" x ) `6 )t** +*h$ `$ *z ***`6 *t + h& `& +x /`6 +t,,-,,,+ -(..`6 t`6 ,t x /..x.-h2 `2 -x8.-.`.`6 t`6 .t(  @.l .. (@/h .. @/.`6 t@d 5`6 th//`> p//`@ l@/` 8 @\ /h8 `8 /x0//  .`: x01`6 t@t 01`6 t01`> p1X2`@ l8 /`0/ 00h: `: 1x`6 t0`6 t2h3`> p23 `rl   `@h3l `6 t`> p33X4 `@ lP  1 p43X4X21@280@h `6 th3`> p0443`rl@d (`6 t`> p44`@ l`(`(@\ h`4x`6 t44`> ph5(54(6`D t5P5` p`@ l(    `6 t56 `> p(66 `rl 4 P5476764h53@6` @7\ 7@X F`D t076 ` pT``(X77 `6 t777`> p77 `rl@P (@7L @H 876 h X99 8 P :;::99h;8h 89`D tH98` p`8z `6 tp909`> p9X9(`rl99     @9T :9 @(:P @:9 @L @P:H `:h:(:H@D x:P::P: ::`D t;:h` p@;@ (@;<`0;9%@8 X;;, 4`@;,9;@2 <P<0@=(><P<<h<h `8<z x<P<<8<`D t<<` p=<   =@=X 0=< @h=T X== @P == @=L =h=%(@=H ==%@=D ==*.&@@ >=*>=0=< @> Ph>h@P@H?`?(@??>??h6 `6>z  ?> ?> 8* $B @x?L @@< @?, @@ @ ?0?  .&@@  @?1@ X@@@1&@ @?@@ @@ @ @@ @ @@ @ @ ABB C8CB0BHBABAh `Az AA`BA .B *&@Bl @h @pBd BHB@` BpB@B\ pB@Z @T @CP @L @PC< @hC, @C @C @C @ @ hD \  E EhH0xFFH0H(GGFEH(Fh `ExG`EtPFE`pFE *,@Gl @F\ 0@X `@FT GF&@PO XGF&@L @@GJ (@H FD`0GtIxI `p PLH8@GD @G@ @< `F.&T @HH, @`H @xH @H @H @ (@ HxI0`xKIIJIKLLxI MGhH `H`Iz PJ`I@Mp E@Ln  6&,& 8 @ JT (@8JD @J4 @J$ xJLF`xItK LF`p@J H@J 0@K @@HK @K @0K @`K @ @xK @K @t @Kp @pMl @T pLLI8LxG@ LR @LP I2 : M` LtLLI`p@LN H@L 0@J @D PMLL@8M@ 8L.* @< `ML[ Ls@8 (h `Mz MMNM `Mt J`xMNOPONOhOMNMNM`pN8.*&@OX @ OH @8O8 @( @O$ @  @O @ @O @ @O @P @ K xx hT  & & "( 2P 6 $$& 88"p 8 ** Ph &p& B   (478px B   6  B   *< HB  P Xp6x  B   6 &0@ HB  P Xx B   " *  ( 0 8 @ `  h x             ( 8 @ X ")p "       $  @ P ` p  x    "#          ( 0@  p             B   ( " 0  8  P X B` h  x  "     B    B$   0  H Xp   %    *(X x  B       B  ( 0 P`h      ( 0B, 8 $X      !8Ppx     B,      0P %p "$#") * "'Px 40 &  0H X`hpx    "     !0  H PXhp x B$  ,  $  HX`h  p  %     0 H  P X` .h    %(0"#8")`   ' 8@ .H x    B      08 @  Hhp*x  *  .  &0 X hx %  ; 4(%8Xp         0H ` $   "(    ($0l@` hBp x       ( 0  8  H X  `         $ l ! !"!  ! (!"0!  8! @!BH! P! X! `!p!8x!2!!L"P"Zh"H"<#FP#B#D#V($Z$Z$Z@%\%Z&Z`&\&" '\H' ' ' ' '( 6(P( $p((/(( 6(( #() #)() 0) @) `)p) ) 4M) *) ** 0* <P* * T*+ &+ 0+ H+ (`+ + + + + + ,,,  , $(,l8,X, `,Bh, p, x, , ,$,,, (, b, P- p- -- --80. P.`.h. p. .  .<+...  <. 8/ <P/ 0/ / / / 0 00 P0 p0 0 @0 .0 * 1 :P1 &1 B12 2 2 2 (2 .3 H3 h3  <x3 3 <3444 4(40484P4 `4 "&x4414.44$<4 56?(5 (M`555$5 :i5$(L5 6 6(606 86H6 <P6 <6 46 X7 V`7 87 p7 6`8 t8 |9 (9 69 N9 @: : ,`; (; $; ; < : < `< x< << < $<l<< <B < < <<=*=  *8=!h== ===== = $=l== >>x +r[hiRɕςĂ(^^;)jne I0------------------------------------------------.j+ eLXgt@C𑀍삷NXW[7 Modewɂ胁ł̑ŝŁA”\6 Wordt@CActiveXRg[pɉ!| y@z Dim cT As New clsText yvpeBz0 AName / ^[QbgAtiveXRg[ Mode / [h̐ݒ 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[$Section`]D]$Section`x]D=$key&Value`2Private Const CB As String = ";" 'Comment Block]D#$ Comment Block]D *($%Section&Value؂蕶iʏ͉sj Section\x^D $ZNV "[Section]"^D $L[  "Key=Value"^$L[p]@DP$^[QbgINIt@C]@D8$SetValuȅ[h]@$ ZNV]@D`$ZNV]@D $INIt@Ce Section  %    %  ' kix8Key   %    n %' kkiZNV  % % ' i8 L[]  n %'$ $  $ % ' k8i0 l]P  n %'$ $    % $ % ' kih[Section]`ɂ  '  ihKey=Value`ɂ  n r'  i #FilezSection\̂蓖Ă]]]]0]H] Dummy ` B|pkhANZXĂ݂$B .!0B  +B  Err.Clearkk蓖_ DoEvents  Gxj  $B$   B   ZNVƃL[ Err.Clear $@T   $ $T Ps󂯂D $+T $ '$ $@Tkk $ ! $+T $ !   $ '$ $@T $ %  $+T  ' $ '$  $B$ e) RgƂs, L[̓VJg $@T0  $B $+T $ '$kP   ' 8 $ BP T'B .B@,oX AName̎擾 ' m AName̐ݒ " ' m Mode̎擾 '$ mxx Mode̐ݒ " ' mP Section '& m( 8 SectionKey] 4 G{j  G{j 4  NoŎw 4 $ ! '2  6 e(  NameŎw $   $$ !$  6  $$ ! '2 ykd$ SẴL[(Section֌WȂ)! $    2 $$ ! '2 hk`mX NoԖڂSection01Ԗ 4 G{j 4 ! 4 $ !$ '8 kmx SectionNameNoԖڂKey01Ԗ]  G{j! < G{j! $   $$ 5$  6 !5 < < 7 $ ': kykqm 0 SectionNameKeyNameɑ΂l] ] @ 'ȂDefaultl  {8k0 $   $$ 5$  6 p# 5   7 $  >  7 $ ':v{ k x kp qh ` mX  (  ValuẽZbg] ] ]8 ]P ]h Gzj$  ZNV@% $   $$ !$  6  $$ !  L[ $$ !   $$ % $  > $ ValueXV" > r$  $$ ,  y kx p $$ !  $$ !    VKL[ $$ If .KeysCnt > 0 Then t = 0 @  > r$  ; 5  9 q k 'y k kx p kh  $    VKZNV((  G'$j $@   $$   6 $ 9 > r$ ; 9 q  ' 'k 'kp ih    ݒ̍폜%KeyȗꍇAZNVƍ폜]]D]]]0ZNVȂɂȂƂ )'zk   ZNVP*  $ !$  D   @F ` $   +F *   ' k     F '  ' 'k'L[݂Ȃiw=tj̏ꍇTrue  +'kHd@ L[̂ $  $$ !$  D  $$ ! yk $$ !   $$ % $     @H  $$ %   +H    ' k0(    $$   H $$ (   $$ ( 'k'L[݂Ȃiw=tj̏ꍇTrue  -'khk`XkP 'k8i0  '6ݒ̓ǂݍݐ.]8]P]h] /zk]eLXgt@C̓ǂݍ]]Scripting.FileSystemObject$8./$łɃeLXgt@CΏ㏑0 %.P0(t@C̓eSǂݏI܂Ń[v ! a t@C̓e1s“ǂݍ 1 ! ' d  * ! ' k`X B@B]]'  $$+B-AĎsꍇKeysCnt邽ߏ1@ ($ @ P1$ , $ ( 2ZNVP2'  B B $B$ 2 ZNV擾'  ' @ p $B $ ( $B$ e3 L[擾2  $ @  $B  $ ,  $ !  $ (    ' k  ' '6z  .!0 .!0 * .!2A@&ki ݒ̕ۑ']]'  Pzɍ\̂ZbgA .!0(zk $ B B .!0yk  $$B' d   $$B' kxp $zPkH'z8 0 .!0 .!0 * .!2A@&ki0dumy' op' o ].n]0/#dq\T|[gVXe@eLXgt@Cdl'  *#io^\/o^\j'  *#'  *8#eLXgt@C̕R[h̓VtgJISɂĂB'  *#'  *E#Word̃tB[hiOC͕̓j́AォEɏԂɏo͂'  *3#܂B̂ߓȅԂƂ͖֌WɂȂĂ܂B'  *'#ݕ̐擪[]t܂B'  *2#ږƃf[^Ƃ̊Ԃɂ́u=vipjg܂B'  *-#ږ̉pׂ͂Ĕppg܂B'  *0#Rgsɂ́AsɁu#vipjg܂B'  *A#lȂǂʼnsꍇɂ́uvbCrLfviׂĔpjg܂B'  *E#tB[h́Aʏɓ͂łeLXgtB[hȊOɁA`FbN{b'  *E#NXAv_Eihbv_Ej܂B`FbN{bNX`F'  *F#bNĂƂ́uTruevip@T͑啶jA`FbNĂȂ'  *G#Ƃ́uFlasevip@F͑啶j܂͋󗓂ɁBv_ÉAj['  *E#̐擪1Aȍ~2ȉɂȂ܂ipjB󗓂̏ꍇ'  *F#ɂ́u1vw肵ĂB܂Av_E̐͂ꂼقȂĂ'  *G#܂Bv_E͈͓̔̐lw肵AُȐl╶w肵Ȃ'  * #łB'  *G#ڂƂđ݂ȂAgpĂȂڂ܂̂Œӂ'  * #B']H Dim i As Integer Dim j As Integer]h0 i = 1 '1X^[g@̒ʎZy[W' ʎZJEg j = 1 'pJEg]  !6! !l  !  n%' !l e !!r' !l e !!r'k  , ݕ̃f[^擾   *[]'kh  *   n!%= '$ ElseIf k > KAGAMI_COUNT Then# '̃f[^擾 If j = 1 Then5 s = s & vbCrLf & "[_" & i & "]" End IfN s = s & vbCrLf & cP.Form.GetFieldName(pJIKOSYO, j) & "=" & myValuek If k = KAGAMI_COUNT Then j = 0 End If! If j = JIKOSYO_COUNT Then j = 0 i = i + 1 End If  ' j = j + 1  'z  .!0 .!0 * .!2A@&ki 'H].n n!J!LzHk@" If cP.Page.PageCount <> 2 Then[ MsgBox "eLXgǂݍ݂̓y[Włɑ₳ꂽf[^ɑ΂Ă͎sł܂B" Exit Function End If]]0tB^[̐ݒeLXgt@C(*.txt)$*.txt$ׂẴt@C(*.*)$*.*$'P !" P n!T%V'R RzkeLXgt@Cǂݍ R' $62eLXgt@C̓ǂݍ݂ŃG[܂BA@&zk5-----------------------------------------------------y[W̒5-----------------------------------------------------) If cP.Form.UnprotectFile = False Then Exit Function End If Dim Page1 As String Dim Page As String Page1 = "_1" Page = "_" Dim i As Integer For i = 0 To SectCount: If VBA.Left(GetSect(i), VBA.Len(Page)) = Page Then' If GetSect(i) <> Page1 Then# 'y[W̍ŌɈړ3 Word.Selection.EndKey Unit:=wdStory 'y[W}< Word.Selection.InsertBreak Type:=wdPageBreak Word.ActiveDocument.AttachedTemplate.AutoTextEntries("ǎ\g").Insert WHERE' :=Word.Selection.Range, RichText:=True End If End If Next i! '擪ɈړĂAی삷' If cP.Form.ProtectFile = False Then Exit Function End If5-----------------------------------------------------ǂݍ5-----------------------------------------------------]H]`]x]] ,'* &  $8 '     $2    $: '   n!%   n%!l KT   $   n%( KT   $True   $False   $   n%!(rkp KT   $$   $ %   n%!! !   $   n%!(rk k n k  k 5 If VBA.Left(sSect, VBA.Len(Page)) = Page Then6 For iKey = 0 To KeyCount(iSect, sSect) - 1. sKeyName = GetKey(sSect, iKey)Q If cP.Form.GetFormField(pJIKOSYO, sKeyName, myStartPos) <> 0 ThenP Select Case cP.GetValue(pJIKOSYO, sKeyName, myStartPos).Type1 Case wdFieldFormTextInputj cP.GetValue(pJIKOSYO, sKeyName, myStartPos).Result = GetValue(sSect, sKeyName)0 Case wdFieldFormCheckBoxm If GetValue(sSect, sKeyName) = "True" Or GetValue(sSect, sKeyName) = "False" Thenv cP.GetValue(pJIKOSYO, sKeyName, myStartPos).CheckBox.Value = GetValue(sSect, sKeyName)" End If0 Case wdFieldFormDropDownH If IsNumeric(GetValue(sSect, sKeyName)) Then If VBA.Val(GetValue(sSect, sKeyName)) <= cP.GetValue(pJIKOSYO, sKeyName, myStartPos).DropDown.ListEntries.Count Thenz cP.GetValue(pJIKOSYO, sKeyName, myStartPos).DropDown.Value = GetValue(sSect, sKeyName)& End If" End If End Select End If Next iKey3 myStartPos = myStartPos + JIKOSYO_COUNT End If 'Hzh ` .!0 .!0 * .!2A@&k(i  ']`]xScripting.FileSystemObject$8.$łɃeLXgt@CΏ㏑  %.  B@ B@B..'z@ 8 .!0 .!0 * .!2A@&kiAttribute VB_Name = "clsText" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz EOption 0licit B CompI Binary 'r[hiRɕĂ(^^;)j '-, eLXgt@C삷N WAModewɂ胁 łB ŝŁA ”\AWo rd@ ActAMXRpɉB5 y@zDim cT As New yvp5BC AB  /^QbgA g8 F ` ̐ݒASectCount@ C Z@KVAKeyGL[GetMA?@F@ValueA'Cl8擾 @@\7h?Set pl̀)= D8ele@./@̍폜ReadCINI̓ǂݍĂ݁Sav" AI֕ۑ#le} #E̊0J/g4aW+CPop ConsPt sPBS`ng!["A'-m` E]` c=key&K. ' CB;`me JBlolckMm#rIKvbCrLf !؂"iʏ`͉s'0\`qType > ,_lr0g'LҼ"[]  ^s() #g'SBc"=B-C ( Lo@G#ApEnd a H_eM''%a-a`Boo ^np㹋!!1h&/ A%! I FILEQ,'@E Fun`CheckBy. AG5)OtQu&"IfA.Left$(, 1)P:A;VBA.Ri gh9ThenQvTru QIfE k #(S O }S'PO p p2 <> :{ In0(cP) ;  ) O e8 9fw9`}cG Mid2 ,n) - 2)n$@ 6b$ 0i ia{Q> i i > 0), i 1 % H  'l    5 LenQ)qi8 Change%?&ing '^`_Х @&E& EP$OI@ <, 3>Bg > >d a= Q& `& " 1 SubA6@To0Ary('Filez[uЂ蓖P1.Z1,"tk1!w/s+SDumyqc*u"`my" On Error ResuNex3 p(d_1 al<=6Re A2h0ZB+@Exit CGN3]'AZXP݂tÔE= ""|>p .Number A1 = A!.Ccr q ' DoDoEvps s >=&dQwz w)) OHr w@PUBPdv(i'p`J_8ReDim Preserve File(i) As String If s > 0 Then hJ< - 1) <> "" T'Ps󂯂J# =F!i = i + 1+9End If& MINI_Sect(s).NameFor tR o KeysCntBk/i#U?(t)=NextKs.sX(ElseNot@ Check(3a%h _ Opt` 4#s Noa6 -1, g=&NoŎwERA&H.(F).ᮣ da#q֡p A$dga :y%&")@9Asi"/#%N' uSĂX֌WȂ _ o_ +7q Y3_S@f2T 'NoԐڂS'01.v<(O. 0 >|1G +"ÅU`a&yj, E`D_ '%PB!??yOX'1 'With&C1 t O9me [E` ;1p(()5%:vqU+ S4?#?# ue(dgp 7dgG$a kDefaul0p°n''ɑ΂l ' !" n E'pM~!C?+ n e?*?*?*Q5pp B?*?*&&2eqD*t= 40_#3 s0) 'Z/%c?1QFunc![t0l6].02XryZb- 3%0%w As Long Dim zIf INI_AName = "" Then Exit Function  VSectCn t > 0X 'ZNVhFor ic]/o (oC-8 1)'+Get,(i).)F8 (KeysÓX L[[ata.ekD[ kN(t)l #ValueXV Z)0Change(, b  orEnd IfNextSTk< 1 Or KAs[\JVKu7WithBĊW A '*.L#J@(= 0ReAPreserve bStri = n"&=A+ 1A9#3=SetIM I mI%cHGiGFDf'0 b;hnaKe;N c>0)aqD¡yW !Ly Hd"%=D!.BCKB7 -Mode$z Savfe.E !P ublic Delete( _yByR *,Opal |aB1Booleaf'ݒ@̍폜 'ȗꍇA₲gainib7 'd8 @ () KtOw'' ȂɂPƂC/@N{>=q` @aCw&Ϡ<<^w8=et/u ww WU5rPw wB[bI=Qs .k"N08w @|N`#> A/Exit Functi ErrMes:$ f .Number <> 0 MsgBoxHADestE 'PublicF Save@`Boolea|c'ݒ̕8ۑ!`Fai!#là On wGot@" # 'zɍ\̂obCallToAryY!(k,0H;iEhbo]8cGkmA'R0i<< s&bk-f Write~,ch|  #00 /1 /1/1/1z.1riv Sub Class_Initializ1(A@""dumy"G  PTermin(P? %q09GetData)ZTO31E q9cP9clsPap5p= New !QStrvs #dq\PT|g yX@d6ls(V"#@io^@/jo×"#A KR@ h` tgJISQB Word Bhi@OC ͕j́AE@ɏPot͐uB̂ ̲Ƃ͖ ֌W0 ȂĂ  ̀擪[  ]t[ږƃf^̊0 u=vip8gM̉p@xׂ_o##Rg@"sA u#PlȂǂʼn3 *1g PJ/ #w! ʏƓp!0׫h*#ȊOɁA@`Fb@{\b u Xv_EQ'hpvjq9~)%[@T͑啰5jG qFȂFlaseF` ͋ɁBfj[C.1A3ȍ~p27Ciu*'(p B= 'u1vw0pD,B܂Av_E̐͂ꂼقȂĂ" s = s & vbCr$Lf"#B ͈͓lw肵Aُ Ȑ&ඎc_0łڂƂȂAgpe%DS]̂ŒӁrADim myField As Word.Form 'iInteger j k i1'1X^[g@̒ʎZDy WLkK Jg=jc p m@yValueA"Sptrin6 Each=In=ActiveDo@cument@sC#IfE .Tydpe wdILTextInput Then "= cP.San itize 2(^.Result, pNoth@+, False,@ True)E!CheckBox!E .JhDropDownb Nnd IfG5k <= KAGAMI_CO(UNT'@ݕ̃f`F^擾_d5H1O[ ]gaEla:!A@.GetAName(p, k)A="AX 9k >oa'deg(cj0 _iA?a   JIKOSYO, j a BA2Aj!0)5!JJ Ai + 1 aaLkljc=ANcTDData@FaFilAExit Fu no ErrMes:#.Number <> 0dMsg!ݡDescriptia 0 @(Publ4ic "()BooleabOn or GoToA  a›!cP clsPapaSet@New K nPageٰSad1=sS \b Coutnt2t""eL@lgݍ݂kzłɑⰉꂽJ|͎sP{BFl rQ [ltzmeG'tB w`ݒc = f @C(*.txt)AChr(0"<2+x*^*7 q0.OpenDlg (ThisxPath,B4p@ y""_4Y'Seu A}=rsSRead`0_'"Vf#ŃG["z0B!1+ %!'-Ǵe@RpqUnprotecpqRNR?{M5o/ 620-q91I- -m1u6{E"Eo4 !? 0Z q`Vo Sp A4VBA.`Left(p]!(i), Cn())w1G1 'dF̍ŌɈ|ړSRS,el ^."Key Unit:=wdStory( '}wInsertBreak  p(Attиe[mplate.Auto\EnPes("\g"). WHEREL _2 :=Rang Rich!:=5F |i$'擪C`;ڕیP40P0m00! 98G"3/o7a s-ji?(kkmyStartPos{ myStartPos = KAGAMI_CO UNT For iSectt 0 To ,Count - 1FENsFGet(Ef)>If D"" 0Then!mKe^yl kN,B) y7s,Nam.e; (p, i /cP.om.Field(p6() <> }V$SelCase )&Value$.Type y"3 wdCHTextInput9ResulLGM$CheckBox$Vg"True " Or Z Fals O'@->.BfiBEn0d IfW?KDropDow .KIsNumeric(D)MDVBAA:<=ݪe.ListEntries.C22f 2‘ }3ayaCy;Nsw' ;a1Leftőn(Page))@QD; @"  `5̡JIKOSYO, gjn  $R mHvQ\ `ʡ*'0_E"J ?.TetT`x@e42TTT7oT; T@0T%93.UUo l ,_:) "O&eyŽ/-. OHVV )@ + 4ŬVS9 S\DFil6Exit Functio| ErrMes:f .`|ber/ MsgI& vbC rLf &RDescrip pPublic Writeq (By& As S{ng, )s &)Boolea OnaGo SfFcDim fbObjWaISet= C reate(""Scng.A System"3'łɃeLXgt@CΏXap fG (my,& a. Line s3a.ClosNot0hingW= Zy##F# ###Ѫ#<d\lh@.X@qTPTdlPlt0/PdTdH!PldThlPlp0/PPldTl>P1x/ dfH qT-X hf\U/48 xXtplP@l CtlCplCl4 0,/<d<dP%Lld@AdlLlt0/Lld@A#`ld@AdD)Ll`ld@AhlLlp0/L'LlllptlLl`ld@A;/L `fD0ld@Al`ld@Ald@.@@q<l`<LlllptlLl`<;/L<< q<-@pz dfPY"<ld<< qdld@ ld@.8@q44LltplLT4/L!LlllptlL4;/L 4 q4-8<<pz 82Lk2pz/LD*@8tplh L8l CtlCp<.pz/ lp 0-`<dT%Pl`@AdlPlt=/Pl\l l`@@l\ll@l\q\ `fTY l\l` l\@ l@ l\<pz l\l`(pzd<dH%Pld@AdlPlt0/Pld@A#`ld@Ad@&)Pl`ld@AhlPlp=/Pl`hl`ld@Al\lh;l\q\ `f@ l\l`'l`ld@Ahld@Al\ld@Apz l\l`pz dfHK 8>Lk>pz/@X>hLtpl!"i  PKpz4 0&/ L  L4`5L 4@`L4\5L\WLc<]35L ld 0\WL`1d5L%ld*FL\W,`1d6L,f \p;:<NLLld, ,6 YD6L,@ %@A @A;@A <DLlDdllD\k* qh<<<@ llD<@AllD`k$lh<@A llDlh<@A;(<@A<@Alhqh lf<<pz/ $   l}l''',   l#*#  , l*FL 2)6L,/ 4d`\t0 L,pz CpK x h ll  lhRlE/ DLtDd`rU BPKt9vQvYsww$ $w/Y556Y6i6rQ$ x 6!7y7 88199::; <<I==>Q? @@@A1'%Y%+qAFA!Qyq(  BsBBytBuBACy/'/I'@H (1(QCC CWCCCC_CCCC_CCCCCC_CCWCCCCWCCC_CCPl 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)JllD\kJllDltxlhNltlx =L  ltlx;ltqtltxlh@Altlx;#plh@Ad@ltqtltxlplh@Altlx; pf@lhqhltqtDJllD`kJDltxllDltlx;ltqtllql ltD xD PPHP<0xdPTL- 4Cx/ (x Ll Cx lx4(x H 8pz/ $ @ k 8$ H <qx/ $ PlCt<l /<8/l [l @Aqx  lt =p<dh%dlp@Adldlt0/dlp@Aqx pfh p<d\ lxlp@Aqx pf\/ (tdP-l /<l Ftl @Ad>t1x/ P(xt l Ct-<#/l9/p<dhlp@.d@q`\`dl\lt0/\`l\l`h>\1x q`-d pfhU/ 0xdt\Xl CtlCplCl-llCx<7/h h ll  lhRl lp 0ltDCplp*#\ltD*1p/\ tf`eZlp4XkZ/ pz/ $h ll  lhll'''h ll  lh#\*#LP TT , lP*F< 2\LP)lT6</  (p0 \PLlT<D 4$  D  4$ ,-K tCplp*#l*1p/llp*#l*1p/llp*#l*1p/llp*#l*1p/llp*#l*1p/llp*#l*1p/llp*#l *1p/llp*#l!*1p/llp*#l"*1p/llp*#l#*1p/llp*#l$*1p/llp*#l%*1p/llp*#l&*1p/llp*#l'*1p/llp*#l(*1p/llp*#l)*1p/llp*#l**1p/llp*#l+*1p/llp*#l,*1p/llp*#l-*1p/llp*#l.*1p/lpf/X\/$0 41\ 2QX[Th\P3Lh (3lLFp6lh l3D+H+JYLllt 4>D1`/lLh (3lLG#J\h x3\ D5kJ1`\Lh (3lLS#L\h |3\ 46lL1`\ kfEh kflp*#l7*1p/lMlp*#Dlkf\t X4\ 08ll*#@*# ;t`1h6T4t8p?$@ 42llhlppt |4p A>l1d/pp ld 0!/  ld nHkns+'''4:DBNTT 6T4/ EpZjT,lTcPIpkj4>p1d ldC0=&bTldkj0lTcL=pkbld8>p1\1J+nl\pt X4p ,8kJp1Tp+nl\t 4p (3lTqDplDF<p l\ld<lpp+nl\t 4p p3/pp/lDGD?p l\ld<lpD0l l\ld<llE02pl?Mp l\ld<lpW@p+nl\t 4p x3@ H5/p)p@/lDS/$p l\ld<>pFT F5T-iT<@p+nl\t 4p |3@ <6< ,Gp l\ld<lp HlT/p)p@<+Lp l\ld<lpP@p+nl\t 4p |3@ 86/p)p@ bdL jdPpz/ $T pp  lTpl'''4T pp  lT#p*#8l @@ , ll*FT 2p8l)p@6T4/ D8 \hdtdPpl8p@<T4t0l CtlCpKpzX  X4l5X!t@c8%lXI4h5Xp@hJ hchclpz/$ $$  l $%l''' $$  l #*#  , l*FX 2)$6X/04lhtp0 $X     HH`p00C ` t0$C`x(Ch0(ACh!(Ch%#(Ch)( Ch-(0ICh 1!(,Ch 500Ch 9!A08 Ch=!Yq08IC`A!Y#0C` E#(C`I#( C`M#$IC`| $C`(C`Q0( C`U#0IC` Y)# nrU !(!` (!` (!` nII A0* pHddq\T|[gL@  Z= ~ RYP %J< 9st dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system3modOutputXML2 __SRP_21@&J__SRP_20_VBA_PROJECTN?R0*#4*\R0*#19*\R0*#13*\R0*#f$*\Rffff*0^50cc4c84*\R1*#10e*\R1*#10b$*\Rffff*2x50cc4c24$*\Rffff*0V50cc4c84*\R0*#e*\R0*#14U  8 "X B     *'( TH & T(#   VH  "C 8J.0:.0.6 lh 0. <6 |h  8."F 8J.H:.0.6 lh( 0. <6 |h8(Ռ7/xME8"p6 L"LL "<<<+`k@ i  npx%`l `h f ` `@`+`k8 ddi T As npp%`l `h +` tk ##2i  np %`l  `h ł` uo`Xuo`v %` `xP`z lRN/>8`tB@@X @H @8 @( @ @ @h @ @8 "@ @ @ @ @ %@ @ @ @@ @ HFJ&NRV@X @p @ (Z^d.*`z `t0`t `t  `t 88 `t Xx @X  @X X @pH p@8 X@( @ @ @ @0  X@  @@ @H  @`  @x  X@  @@ @ @  @  @ h.*& @  `t@ `t*FX@ ` `t`t @ (@ p   @`z  `t 8nlfh@ X @( H @@ 8 @X ( @p  @ @H  @p @  @  @  @  @0  @  @ p@ d@  @  # jxpve @ * rtz|~ &*#@@ #p @X @x @ @x .*&,@t wRYP$*\Rffff*3G50cc4c24$*\Rffff*3<50cc595c*\R0*#f*\ 8."F <( J.h :. 0. 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  ,.DjX[0 @\0\ 4.8\"F <86x lh 0.@DjH0   ,.(XDj[0 \[ 4.[(\"F` $0.,.4.H*+P      $l B  8  H@    *' T ` Tx8.6 bq(.7Dj0.76727  "X " J L @H! ! ! ! ! ! >! T0" "" " h# $ X $ Xx$ $ T$ 68% p% 8& NH& & R& @' ,7@'@@p'>I'>I'@@0(6@p(>@(.7( 6) ~8))27))67* T8* * p+ R+ +<7+ :.(,*#h, , ,, ,, , $,l,-  -B(- @- H- P- X- h-p- *x-'-  N- . N8.6.&#. .2.. : /0.`/ $/27/ /670 @0>7`0 &0270,71@@01 p1>I1 "1>I1@@02 2p26@2 >2>@ 3.7`3 3273 3673 :0427p4 B4:742705 Dh5>@5 .5:@ 647`62.6(#6  6 7(70787@7  NH7 7 N7&#7 $ 8B.H8 :80.8 $9<7(9 h969 rq9:67 :X: `:6: q:(;>70;p; &x;Dj;(;p<27x<<,7<@@< (=0=68=.X=$x===== = "= = rj> d[x>>>I>>I(?h? @@p? 2?? ns@p@6@x@@ >@@6A. A@AHAPAXA ~spAA>@A8B .7@B pB6B zB(C270ChC pC6C rqC D67(D`D @hDDjD0DE27EE HEDjF0`FG:7GPG 27XG DGN@G .(H:@XH47H2.H  NI XI NpI6I(#I J (J8J@JHJPJ 0.XJ $J<7J J6K rq(KK67KK K6L q(LL>7LL (MDj(M(pMM27N8N,7@N@@pN 6N.N$NOOO O (O $HO pO rjO d[O`P>IhP>IPP@@P 40QhQ nsQQ6@Q0R @8R6xR.RRRRR ~sRhS>@pSS .7S S6T z TT27TT T6U  UU67UU BUDj8V0VW27 WXW J`WDjW0WX:7XX 27X D(YN@pY .Y:@Y470Z2.hZ(#Z  Z ZZ[[ [ $[l([H[ P[] ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX 8']`.nA]]Scripting.FileSystemObject$8.  %.@M-----------------------------------------------------------------------------0>  ȉ\ҁiƋljɊւM-----------------------------------------------------------------------------  <\ғ> B@Ptourouł́u@lčl̕ʁvuo^lR[h`FbNvuo^lR[hv^OKv Ƌl̖OƋl̃tKiZ  4 n%!!r2@l̏ꍇAƋl̖O@l͒ĉƋl̖O   *<@l_c_l̕>1 B@     B@    B@  6 n%!     <͖>  6 n%! B@$dx   <͖/> B      !#$%5'()*+,-./01234"6789:;<=>?@ABCDEFGIJKLMVOPQRSTUHWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@k@6@l̏ꍇA@l͒c̃tKiƋl̖OtKi'  : n%!̐     <͖̃tKi>  : n%! B@ndX   <͖̃tKi/> B@k  4 n%!!re 2ĉ̏ꍇAƋl̖O@l͒ĉƋl̖O   *<@l_c_l̕>2 B@    B@! '    B@  6 n%!Ȃ     <͖>  6 n%! B@Sed`   <͖/> B@k(6ĉ̏ꍇA@l͒c̃tKiƋl̖OtKinNam  : n%!     <͖̃tKi>  : n%! B@!d@   <͖̃tKi/> B@k  4 n%!!re6l̏ꍇAl͖@lEc̑\ҖƋl̖O   *<@l_c_l̕>3 B@    B@    B@  > n%! "   <͖>  > n%!@  B n%! B@h d   <͖/> B@k6l̏ꍇA@l͒c̃tKiƋl̖OtKi 6  F n%! "   <͖̃tKi>  F n%!@  J n%! B@"d   <͖̃tKi/> B@kd @lEćEl̕ʂُłBA@& zPkH Ƌl̗X֔ԍinCtȂjIf   N n%!  R n%!       N n%!  R n%!  B@dP     B@$$k]]  V n%!  V n%!'   n!%'d''k    B@     B@DƋl̏ZԍƋl̏Zs撬R[hƋl̏Zs撬R[hȉ'           %  B@ @           B@d       B@       B@kh     B@        <_>   n!%  B@d     <_/> B@kh&Ƌl̏Zs撬R[hȉtKi]  Z n%!  Z n%!'d 'k       <_ڃtKi>   n!% B@d@    <_ڃtKi/> B@k    B@Ƌl̓dbԍ  ^ n%!        ^ n%!-$  B@d     B@k 5-----------------------------------------------------!kaisetuł́udbԍ⑫vKv    B@5-----------------------------------------------------    B@Ƌl̑\ҖE,Ƌl̑\ҖiƖ̊Ԃ͑SpXy[XjƋl̑\ҖtKi  4 n%!!r6@l̏ꍇAl͖@lEc̑\ҖƋl\  d n%!     <\ҖE>  d n%! B@dx   <\ҖE/> B@k@   > n%!  B n%! "    <\Җ>  > n%!@  B n%!  B@d`    <\Җ/> B@k(   <\ҖtKi/> B@  4 n%!!re6ĉ̏ꍇAl͖@lEc̑\ҖƋl\  d n%!     <\ҖE>  d n%! B@d   <\ҖE/> B@k  > n%!  B n%! "    <\Җ>  > n%!@  B n%!  B@d    <\Җ/> B@k  4 n%!!rel̏ꍇAƋl\҂͂Ȃ   <\ҖE/> B@    <\Җ/> B@   <\ҖtKi/> B@dx @lEćEl̕ʂُłBA@&z@k8XMLt@C‚ B@B.'z  .!0 .!0 * .!2A@&ki AtourokuɂWordɘAӔCҏZE[AhXȂ̂Œ']X.n]x]Scripting.FileSystemObject$8.  %.M-----------------------------------------------------------------------------ȉAӔCM-----------------------------------------------------------------------------   <\ɊւAӔC> B@   n%!     <>   n%! B@d0     B@k    n%!   n%!   $    <>   n%!@   n%! B@d     B@k     B@      B@ Dim myAddress As String Dim myAreaCode As StringD If cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result <> "" ThenF myAddress = cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result: 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 & ""0 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/>"9 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""     B@      B@        B@        B@      B@      <_/> B@     <_ڃtKi/> B@     B@   n%!        n%!- %  B@d      B@k     B@N 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     B@    B@   B@XMLt@C‚ B@B.'z  .!0 .!0 * .!2A@&ki '].n](]@Scripting.FileSystemObject$8.  %.H------------------------------------------------------------------------㗝l݂ȂꍇH------------------------------------------------------------------------  n n%!   <㗝l> B@dqϔC̗L    B@4-----------㗝l֘A-------------------------------   <㗝l񖾍> B@㗝l C:㗝l D:㗝l     <㗝/> B@ 㗝l̖O    <͖/> B@㗝l̖Ôӂ肪    <͖̃tKi/> B@ 㗝l̗X֔ԍinCtȂj      B@     B@      B@㗝l̏Zԍ        B@㗝l̏Z̎s撬R[h        B@      B@,㗝l̏Zs撬R[h͂      <_/> B@8㗝l̏Zs撬R[h͂́iӂ肪ȁj     <_ڃtKi/> B@     B@㗝l̓dbԍ      B@ 㗝l̖E    <\ҖE/> B@3㗝l̖Oiі Ɩ̊Ԃ͑SpXy[Xj     <\Җ/> B@;㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj    <\ҖtKi/> B@     <ϔC> B@=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     <ϔCo@/> B@(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> B@      B@    B@    B@XMLt@C‚ B@B.'zkH------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------   <㗝l> B@dqϔC̗L 2:gpȂ   "2 B@4-----------㗝l֘A-------------------------------   <㗝l񖾍> B@㗝l C:㗝l D:㗝l    <㗝>C B@ 㗝l̖O  n n%!     <͖>  n n%! B@d    <͖/> B@kh㗝l̖Ôӂ肪  l n%!     <͖̃tKi>  l n%! B@d    <͖̃tKi/> B@kP 㗝l̗X֔ԍinCtȂj   f n%!  h n%!  "       f n%!  h n%!  B@dP      B@k     B@      B@]X]p   n%!   n%!'  n!%'d0''k㗝l̏Zԍ㗝l̏Z̎s撬R[h             %   B@             B@d        B@        B@kX      B@,㗝l̏Zs撬R[h͂          <_>   n!%  B@dP?      <_/> B@k?8㗝l̏Zs撬R[h͂́iӂ肪ȁj]  j n%!  j n%!'d>'kp>         <_ڃtKi>   n!% B@d=     <_ڃtKi/> B@k=     B@㗝l̓dbԍ  x n%!        x n%!-$  B@d<      B@kX< 㗝l̖E  p n%!     <\ҖE>  p n%! B@d;    <\ҖE/> B@k`;9㗝l̑\ҖOiі Ɩ̊Ԃ͑SpXy[Xj    n%!  v n%!   $     <\Җ>   n%!@  v n%!  B@d8:     <\Җ/> B@k9A㗝l̑\ҖOӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj   r n%!  t n%!   $    <\ҖtKi>  r n%!@  t n%! B@d8    <\ҖtKi/> B@kp8     <ϔC> B@=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     "<ϔCo@>1 B@(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> B@      B@    B@H------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------   n%!    B@XMLt@C‚ B@B.'zx5kp5   <㗝l񖾍> B@㗝l C:㗝l D:㗝l    <㗝>D B@㗝l̖O   n%!     <͖>   n%! B@d 4    <͖/> B@k3㗝l̖Ôӂ肪   n%!     <͖̃tKi>   n%! B@d3    <͖̃tKi/> B@k2"㗝l̗X֔ԍinCtȂj   z n%!  | n%!  "       z n%!  | n%!  B@d1      B@k1     B@      B@   n%!   n%!'  n!%'d0''k0㗝l̏Zԍ㗝l̏Z̎s撬R[h             %   B@             B@d`/        B@        B@k.      B@.㗝l̏Zs撬R[h͂          <_>   n!%  B@d-      <_/> B@k-:㗝l̏Zs撬R[h͂́iӂ肪ȁj  ~ n%!  ~ n%!'d-'k,         <_ڃtKi>   n!% B@dX,     <_ڃtKi/> B@k,     B@㗝l̓dbԍ   n%!         n%!-$  B@d +      B@k*㗝l̖E   n%!     <\ҖE>   n%! $$& B@d*    <\ҖE/> B@k);㗝l̑\ҖOiі Ɩ̊Ԃ͑SpXy[Xj    n%!   n%!   $     <\Җ>   n%!@   n%!  B@d(     <\Җ/> B@kh(C㗝l̑\ҖOӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj    n%!   n%!   $    <\ҖtKi>   n%!@   n%! B@d '    <\ҖtKi/> B@k&     <ϔC> B@=ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij     "<ϔCo@>1 B@(ϔCԍiʏϔC̏ꍇA͕sj      <ϔCԍ/> B@      B@    B@    B@XMLt@C‚ B@B.'z$ $ .!0 .!0 * .!2A@&kx$ip$  F n%!  J n%!  F n%!  J n%!%d@   <\ҖtKi/> B@B@kd#kX# "   <\ҖtKi>  F n%!@  J n%! B@ "   <\ҖtKi>  F n%!@  J n%! B@x"Attribute 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"touroúu@lčl̕ʁvuo^lRh`FbNv^OKvC?̖OtKi If.Get@ue(pKAGAMI, c0C. &).DropDown. ~2 TheAa'ȁ`ꍇAȔW)*! __&>x1 "",e& "<1>"!)a&_Cj4 /K O EFa??M*End If Pk%O`+PKc44E58c[5~̥ 6Vzn7H8P{Qy!"J@aAUAJ 3JJO?5#"?+_J_J2JOF_[JAbz/ / " #_{uJGJ 4JDJJE$\}`!"<3KKiKKor TGUK/ 000҃?{((w?_K﷎ @_ 55%#Q3Q=Q45E 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}" "" FHa.WriteLine vbTab &_>& "<1>" T7/ 8JElse(4 0/>"nd Iff\ \ 3Or:nSenms;Sm@}GAS"%If@o.GetValue(pKAGAMI, c ).Result <> "" ThenC7a#C)_ & D"" NcP&P/E k-)/NEnd IfQ Q+Orb?1B61?1D0<@?_" End Ifa.WriteLine vbTab &"'If cP.GetValue(pKAGAMI, cݘAC҃[AhX).Result <> "" Then PT'_59& Ďq m>" (:[1;/d{Y: C'XMLt@C$CloRSet fs = Nothing  OutputCommunicatorTru@` Exit Functio@ ErrpMes:@.@Number0ĨA MsgBo x  CrLfADescri>pEjPuPblic$ C/A`gent(AB"y myEFile As Str<)Boolea3 On&=GoTo6' G "FaS 1#'Dimy clsPaper!-cPNew K@1Objeczta Cf7C reate(""Sc&ng.Systemc")a fs.OpenTextA(#, 8, =<'-?  l݂Ȃꍇ  ( C\#O=gGapcpe'ϔC̗L E#f x֘AQI"<EA'C C: D:C? qa Kc a4? 3 ̷͖ @̂ӂ; &sy XKi/̗XinZtP0j"<o+&ZYWs{_s撈#ḻu'% RДhUߡ_X}h7 ͂ "<_̩i4_-_4 /5`o*o g / /) )ZEqQ\rkiі Ɩ̊Ԃ͑S@pXy0/XϯMB|Y 66u{co@ 1:ʏCij/ʓrQ 2:OOO*cc7 @A͕s¯7 "W#8 a./= Nothing OutputAgent = TruelExit Fun ctionXEn0d If '-DN㗝lR_a.WriteLine vbTab &I"<>>"?dqϔC̗L 2:gppȂ)1"<$#>2C "" TheD!c(_"<͖>" N'P/ Elsig0& ,/s'IẐӂ)#.qa.tKi/kB/`/ 0uD}1G?2ˆ+m2 {3X֔ԍiPnC`j4&cEO3쌅4A X 4 m-"00 <<+  /%m?we#<"ZR[h#@p o oo{.< 9& VBA.Left$Cq , 2)r" d%$ 1W= <*DeleteL>,M,,/"" ~"% /  8́iu5[KanaYTTeoC?ZNݟ ggU l'i'''-4'e (((Q W(( %ᥕ( vbTab &p"<_ڃtKi/>" End If a.Write0Line"< /Z'㗝l̓dbԍQIf cP.GetValue(pKAGAMI, c42).Result <> "" pThenE'_C& "<0>" Replace(S, "-"")*:HElseM%a^EC]\ ^BP^Q__]P)~/ CAy\[]D Oiі Ɩ̊Ԃ͑SpXy[XjhL h@Or?llE</% 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  ??0EO3APh(pKAGAMI, cݕ㗝lX֔ԍ4).Result <> "" Then a.WriteLine vbTab & _hv& "<>" cP.GetValueO3: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).R Thena.WriteLine vbTpab && "< i> %'̐9@1 k/lElse#/>"*ndx If'ϔ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~| ! Y55y AC q+FA Y II AA 9 Y Q$9 ə A! z9iaɠ  )i9y) aYu١ɾ Aћy Y96$ $ii9a 9qy!Yѝ9 at IY٢YAA  yy)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  0&l*#2*FX%h2 5X 7*#*#*#3*FX%h25X6+4p  l l=/{ .+4p  l >1 Cl=l= j*#*#*#5*#llp  4&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'tz 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  0&l*#2*FX%h25X @*#*#*#*#3*FX%h25X6+pp  l l=/ .+pp  l >1 Cl=l=s*#*#*#*#5*#llp  4&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  0&l*#2*FX%h25X1@*#*#*#*#3*FX%h25X6+~p  l l=/.+~p  l >1Cl=l=2s*#*#*#*#5*#llp  4&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\$@(plhtPXxaU50cc4c84clsSani pK# modInputTextFile2u50cc4c24B modInputTextFile  pP(M{t00000`50cc4c84{t0000FpP0`h( 4%modMenu2w50cc4c24vmodMenuEX 8qmodCheckKagami12x50cc4c24modCheckKagami1SXpP 2Wc{t{v22y50cc4c24 2Wc{t{v2лxph.a"modOutputTextFile2z50cc4c24"modOutputTextFileO0p(modOutputXML3050cc4c24modOutputXML]p` 000000000003150cc4c2400000000000 : 00000000a50cc4c84_0000000 ( Szv00003350cc4c247zv0000޸( ^modInitialize0O50cc4c84d modInitializey HpX (clsAreaCode0^50cc4c84o clsAreaCodeA/XpP([clsCallSign2y50cc591a clsCallSign`\7clsClip3750cc4c24 clsClipX@clsConfig0_50cc4c84 clsConfigxH0X&clsConst10V50cc4c84 clsConst1 p!clsConst23950cc4c24 clsConst2 clsDate0]50cc4c84 clsDateٜE clsDB0Y50cc4c84- clsDB(Xpt clsFile0[50cc4c84i clsFileZ`F clsForm3050cc591a clsFormp(C clsINI3=50cc595c clsINI#clsKagami0Q50cc4c84a clsKagamia *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.4#0#C:\Program Files\Microsoft Office\Office12\MSWORD.OLB#Microsoft Word 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files\Common Files\Microsoft Shared\office12\mso.dll#Microsoft Office 12.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{EDD2FCD3-92F7-449D-B212-51EF49EA1408}#2.0#0#C:\DOCUME~1\oohashi\LOCALS~1\Temp\Word8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#C:\Program Files\Common Files\system\ado\msado25.tlb#Microsoft ActiveX Data Objects 2.5 Library*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime*\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINDOWS\system32\MSCOMCTL.OCX#Microsoft Windows Common Controls 6.0 (SP6)"*\G{2781A321-2B6B-46B9-9358-AE7F7DF8389E}#2.0#0#C:\DOCUME~1\oohashi\LOCALS~1\Temp\VBE\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)\ uM*  RYP(')!  $" *ThisDocument0450cc4c84ThisDocument7 Const10N50cc4c84< Const1clsWinVer2k50cc4c24gclsWinVer 0`clsRegEx0Z50cc4c849clsRegExHrMQ1{v22m50cc4c24MQ1{v2Wxp`HclsRmkINI2n50cc4c24clsRmkINI x$modCheckData2o50cc4c24modCheckData] PpX q MQ1N{v22p50cc4c24 MQ1N{v2s xpPp Const20S50cc4c84B Const2<3f* MQ1Nxb2r50cc4c24A MQ1Nxb}3clsSani0pstX-[0000000003@50cc4c24tX-[0000000007X0$clsPage2z50cc591a clsPage(vclsPaper3<50cc595cqclsPaper= `(HXpclsBranch3C50cc4c24clsBranchRx@ NtN{v23D50cc4c24 NtN{v2 x pPA NtNxb3E50cc4c24 NtNxb-4clsText3F50cc4c24clsText2bp(ڸmodOutputXML23G50cc4c24 modOutputXML27/pPیH(x@PpX`0h0x-nȆQO*CB^&1糒IjDmVCBGq˘,s#tG˴140a!|COREf~O 0%Ol&b Y@ʼnmC9JH,Y*aBeIީ'\=X#JБJB4DJ0TfJ~A_+[-e͋2GIEؖF6+.N. 1d9)A۰Aő&|AZ Ju.jsYsPQ0 D"|G!1II,_;HntQ)ETq,583\@ֿnѹ E9G`o>JB}7S ]lXE\(5i[B0?6E=b4t(DA(N .p6K @ChtHNˍ' [HD iZ6D4P?~dF[W bIJZ&'OLk)JgfN*@T7i`P?7EW;)ҭD O.~coc4;LC ܴs5tLJ ȝ5D=Čh4a*Hc ŖB:#pL as bByRefbyval+Database.Debug=dimQFYFunction_IfNameReadThen Wordk@ VBA@Win16~@Win32@Mac@VBA6#@ dq\T|[g@stdole`@Officeu@MSFormsC@ADODBs@ Scripting@ MSComctlLibm@ ThisDocument<@ _Evaluate@ Document_Open@ErrMes@Path2@ vbTextCompare Q@MsgBoxR@ (MY_FILENAME)*@vbCrLf@ (DocumentOpenH@Erro@Number-@ Description @ Document_New;E@ActiveDocument\@AttachedTemplate@ savechangest@ Const1O@(cVERSIONp@ (cPASSWORD%@(INI_FILEw@ (cDATABASENAMET@ (cAGENTDBNAMEG@ (cCLIENTDBNAMEE%@ (cTextBox1@ (cTextBox2@ (cTextBox3@ (cTextBoxMAX@ (cUserMenuNamez@(cAdminMenuNameB @(myServer@ (myDatabase!@ (myUsername5@ (myPasswordɊ@(myATIS3@(myƋo^ss@ (myLocation@(Sepj@ clsWinVer@ GetVersionEx@ lpVersionInfo@ OSVERSIONINFOqd@kernel32_@dwOSVersionInfoSize@dwMajorVersionF@dwMinorVersion_@ dwBuildNumbero@ dwPlatformId@ szCSDVersion@GetVersionExEX@OSVERSIONINFOEXZB@wServicePackMajor@wServicePackMinoryA@ wSuiteMask ]@ wProductType@ wReserved֙@VER_PLATFORM_WIN32sJ@VER_PLATFORM_WIN32_WINDOWS@VER_PLATFORM_WIN32_NTX@VER_NT_WORKSTATION@ VER_NT_SERVER{@ VER_SERVER_NT2@VER_WORKSTATION_NTd@VER_SUITE_SMALLBUSINESS@VER_SUITE_ENTERPRISE@VER_SUITE_BACKOFFICEO@VER_SUITE_COMMUNICATIONSo@VER_SUITE_TERMINAL@"VER_SUITE_SMALLBUSINESS_RESTRICTED8@VER_SUITE_EMBEDDEDNT@VER_SUITE_DATACENTER@VER_SUITE_SINGLEUSERTS@VER_SUITE_PERSONALA@VER_SUITE_BLADEk@VER_NT_DOMAIN_CONTROLLER@GetProductInfo@dwOSMajorVersion@dwOSMinorVersionh@dwSpMajorVersion@dwSpMinorVersion@pdwReturnedProductType G@ LoadLibrary]@ lpLibFileNameU@ FreeLibraryJ@ hLibModuleך@GetProcAddress@hModule@ lpProcName@PRODUCT_BUSINESSa@PRODUCT_BUSINESS_N@PRODUCT_CLUSTER_SERVER@PRODUCT_DATACENTER_SERVER=@PRODUCT_DATACENTER_SERVER_CORE{5@PRODUCT_ENTERPRISE]:@PRODUCT_ENTERPRISE_Np@PRODUCT_ENTERPRISE_SERVERO~@PRODUCT_ENTERPRISE_SERVER_COREe@PRODUCT_ENTERPRISE_SERVER_IA64@PRODUCT_HOME_BASIC<@PRODUCT_HOME_BASIC_Nu@PRODUCT_HOME_PREMIUMһ@PRODUCT_HOME_PREMIUM_N@PRODUCT_HOME_SERVER@@ PRODUCT_SERVER_FOR_SMALLBUSINESS@PRODUCT_SMALLBUSINESS_SERVER.@$PRODUCT_SMALLBUSINESS_SERVER_PREMIUM@PRODUCT_STANDARD_SERVERl@PRODUCT_STANDARD_SERVER_CORE*W@PRODUCT_STARTER%Y@!PRODUCT_STORAGE_ENTERPRISE_SERVERW6@PRODUCT_STORAGE_EXPRESS_SERVER@PRODUCT_STORAGE_STANDARD_SERVERoA@ PRODUCT_STORAGE_WORKGROUP_SERVER]@PRODUCT_UNDEFINED5@PRODUCT_ULTIMATE @PRODUCT_ULTIMATE_Nx@PRODUCT_WEB_SERVERe@PRODUCT_WEB_SERVER_COREc@ GetOSVersion@ strOsVersion@WinNameS@ovit@oviexns@ lngResultQ@ blnSuccessExS@ strOSSubName@ vbNullCharY@LoWordI@Right @edition.@DWord@nSize}@ Argumentsj}@ kernel32.dll]@FORMAT_MESSAGE_ALLOCATE_BUFFER*7@FORMAT_MESSAGE_IGNORE_INSERTS\@FORMAT_MESSAGE_FROM_STRING*@FORMAT_MESSAGE_FROM_MODULE@FORMAT_MESSAGE_FROM_SYSTEM":@FORMAT_MESSAGE_ARGUMENT_ARRAY*@FORMAT_MESSAGE_MAX_WIDTH_MASK>@ GetRegistry@myName@RootKey@SubKeyP@myValuel@myLength%@ myRegistry@Ret@strErrord\@ChrK~@DeleteNullChar #@strBuff@ SetRegistryW@nHandles@nLeng@StrConvx'@ vbFromUnicode0@ SetCreateKey@SA_@Resultur@ Disposition@DeleteRegistryi@ CheckRegistryBn@bOLD@bNEW9@ bOLDWrite*@ bNEWWrite @SelectRegistry#b@ GetRegistryEx3@ SetRegistryEx@ GetConfig8@Server@UserName\@Password@ATISN@ GetConfigEx$@ SetConfigs@ SetConfigExm@GetConfigExStart,@sj@ Ƌo^@ myCollectiong@ CollectionW@UserForm_Initialize5c@cBranch&@ clsBranchT<@myColEk@GetCol@ja@Count0v@ComboBoxBranch@AddItem @Itemz@ ListIndexQ@Locked @ BackColorރ@ txtAddress@Visible@ txtAgentName@ txtClientNameO@ComboLicenceNo_Head@ txtLicenceNoC@ txtCallSign@ txtGitekiNo[u@ txtSyoninNo@ txtProductNo@txtLicenceNoCountz<@txtCallSignCountI@txtGitekiNoCount@txtSyoninNoCount@txtProductNoCount@ txtAreaCode@ ComboMoveArea}@ ComboKind@ ComboPurpose@ txtIssueDateS@ txtEstabDate@ txtBeginDateq@ txtTermDate?@ txtFrequency5S@txtPower@txtMemo?a@ txtLicenceNo2"@ txtCallSign2@ txtGitekiNo2 1@ txtSyoninNo2@ txtProductNo2em@myArray@myArray2,@List*@ ColumnCount$@ o^_Click+@cP\@ clsPaper @ValueK@GetArrayFromString@myIDr@Addr@INI6@ReadAIDIU@ReadCID_@DB\@InsertOrUpdateHP@InsertDBr@UpdateDB@GetValue]@ pKAGAMI@DropDown@LZ_Clickq@ I_Click @ myCallSignm@ myGitekiNo:@ myProductNo@ myDelimiter`@myCallSignArrayO@Split)@myGitekiNoArrayEW@myProductNoArray@@ clsRmkINIvm@ ReadRmkINIB@myPathd@ myConfigArray|@ myStrBuff\@myCount7@ myCommaPos@EOF@ vbInformationn@ SaveRmkINI@fso@FileSystemObjectNU@MoveFilew@ myFileNum @ DeleteFileO@ modCheckData@(CheckDataKagamif@SetValueE@Save@ (CheckKagami@ (CheckClientb@(cݑ㗝lZ ^@(cݑ㗝l\Ґ(@ (CheckAgentCj@(cݕ㗝lZs@(cݕ㗝l\Ґa@ (CheckSubAgent@(CheckCommunicatorD7@(CheckETC@vbOKOnly@vbOK%@vbYesNo@vbNo%@ SanitizeTextd@ pNarrow@ myDateString@ pNarrowS@ChkDate@CheckDateKAGAMIe@ pWide@AreaCode@AreaCodeSelect @AreaCodeInsert#@ pCallSigna@ GetCallSign @GetGitekiOrSyonin7@ GetGitekiNoW6@ GetProductNon@ IsNumeric$*@(SelectCIDFromDB@ Ƌlo^@Show@ConfigI@ ReadConfigR@(SelectAIDFromDB@ 㗝lo^@ Ǘ҃j[$A@ȉ̂̂㗝lƂĈM@Ƌl@㗝lg@Enabled۪@@myArray1,@ ComboBoxTypeW0@ BoundColumn?@ ColumnWidthsi@Columni@ ComboBoxTypeD0@ myStartPos @ (KAGAMI_COUNT@txtIDD@txtNameW^@txtNameD}^@(cݐ\Җ@lčl̕.@(cݐ\ҖOm@ txtNameKanaW#]@(cݐ\ҖOtKi#@txtPresidentName1W@(cݐ\ґ\Ґ}@txtPresidentName2W@(cݐ\ґ\Җ@txtPresidentNameKana1WF@(cݐ\ґ\ҐtKil}@txtPresidentNameKana2W G@(cݐ\ґ\ҖtKi.@txtPostalCode1W@(cݐ\җX֔ԍO3d@txtPostalCode2W@(cݐ\җX֔ԍ4@ txtAddressW@(cݐ\ҏZ@txtAddressKanaWu@(cݐ\ҏZtKi-@ txtTelNoW6@(cݐ\ғdbԍs@ txtAreaCodeW@ cmdSearchWn@ LabelResultUS@ ForeColor@Captionx@ MultiPage14?@ RefreshBox r@ResetTagUa@cmdToDocm@cmdToDBh@ cmdSearchD\@ cmdToWordX@ cmdUpdate11@ cmdCompare@ cmdSelect[@DeleteCheckBox+U@cmdSearchW_Click@myClientAddressH%@IsNull@(c\`@cmdSearchD_Click/@ txtAddressD@ txtAreaCodeDs@ cmdExit_Click@cmdFromDB_Click@ GetDataFromDB{M@GetDB_@myBIDe@GetBID@myAllCollectionO@GetDataFromClientXY@ClearDataBaseBox@CheckBoxForRegist@Tag&@ txtNameKanaD]@txtPostalCode1Dx@txtPostalCode2D@txtPresidentName1D@txtPresidentName2D @txtPresidentNameKana1DF@txtPresidentNameKana2DF@txtAddressKanaDc@ txtTelNoD$@Replacef@ txtPersonDXs@ txtFaxNoDވ@ txtEmailDrk@txtMemoD@ CompareWAndDe@CheckNameKanaW@CheckNameKanaD@CheckPresidentNameWF@CheckPresidentNameD4@CheckPresidentNameKanaWn0@CheckPresidentNameKanaD\0@CheckPostalCodeWF@CheckPostalCodeDF@ CheckAddressWC@ CheckAddressDB@CheckAddressKanaW]o@CheckAddressKanaDKo@ CheckTelNoW@ CheckTelNoD@CheckAreaCodeW'@CheckAreaCodeD@ CheckTypeWnG@ CheckTypeD\G@ CheckPersonW@ CheckFaxNo+@ CheckEmail=@ CheckMemo @cmdCompare_Click@cmdUpdate_Click @CheckBeforeRegist!@ InsertClient]@ UpdateClient>@SetFocus@vbWide'@ vbKatakana?@vbNarrowO@ cmdToDB_Click7@cmdToWord_Click@ComboBoxTypeW_Changer@txtNameKanaW_Change @txtPresidentName1W_Change48@txtPresidentName2W_Changex@txtPresidentNameKana1W_Change@txtPresidentNameKana2W_Change@txtAddressW_Change@txtAddressKanaW_Change͵@txtAreaCodeW_ChangeBd@txtPostalCode1W_ChangeL@txtPostalCode2W_Change@txtTelNoW_Change@ComboBoxTypeD_Change@txtNameKanaD_Change@txtPresidentName1D_ChangefK@txtPresidentName2D_Change%@txtPresidentNameKana1D_Change@txtPresidentNameKana2D_Change%@txtAddressD_Change@txtAddressKanaD_Change@txtAreaCodeD_Changetw@txtPostalCode1D_Change~@txtPostalCode2D_Change³@txtTelNoD_Change@txtPersonD_Change$@txtEmailD_Change@txtFaxNoD_ChangeI@txtMemoD_ChangeEa@cmdToDoc_Click@cmdSelect_Click8@ ƋlI}@ Const2P@ (JIKOSYO_COUNTl@ (!tCallSign@ (!sCallSign@Headed@ CallSignNoL@Noj^@tC<_@(!tLicenceN@ sLicenceNo*@Head2*@ LicenceNor@Footz@(!sLicencelM@tLE_@ (eLicenceNoN@ pwȂ A@ pd@ pM@ pCX@ ph@ p @ p@ pl@ pn@ p@ pk@ p@ (eLicenceNo2@ pʗSP@ pʗJ@ pʗM@ pʗOJ@ pʖO@ pʖqg@ pʖF@ pʖ[@ pʖH@ pʍqL@ pʌN@ pʊCCF@ pʎL@ pʎ@ pʎ@ TargetNamem@ LabelNotice/@ ListView19@ViewI@ lvwReportyU@ LabelEdit@ lvwManual.@ HideSelections@AllowColumnReorder>@ FullRowSelect~@ Gridlines +@ Checkboxes̍@ControlTipText8@ FlatScrollBar)@ MultiSelect@ ColumnHeadersd@ ListItems@SubItems@ListView1_ItemClickU^@ListItemFk@ListView1_ItemCheck:2@Checked0@cmdExecute_Click@ clsSani;'@oStrConv@(eStrConv@ oDeleteSpace (@ oDeleteCRLF@ oKigoHenkanÊ@ Delete8194J@Delete11Nv@vbBinaryCompare̝@ DeleteCRLFX|@ KigoHenkan!z@ pKatakanap@ NumHenkan\@ ABCHenkan@ pLicenceNo?=@ vbUpperCasek.@ pNothingv;@vbCr$@vbLfT%@ChrW@GetStringFromStringy@kb@GetNoFromString@StrSort@myDelete{@swap=@s2_@GetCountFromString@ReplaceStringtoCRLF@ReplaceCRLFtoString@ SanitizeText2c@ oReplaceCRLFP@ GetLicenceNo@ myLicenceNod@ CountCheck@myPosѰ@myHead1K@myHead2K@myBody1`@myBody2a@myTail17@myTail27@ myTempStr-@Val@myStr@GetYobiLicenceNok@ myBody1Str`@ myBody2Str&@ NumToZero!7@myFormat&@ GetKatasikiNo|@ myKatasikiNo @IsNumAbc@ oDeleteHihuny@RE^@Matchesm@ CreateObject@ MultiLine@ IgnoreCase0@Patterni@ExecuteY@ modInputTextFile@mvarCollectionI@ mvarKagami\@ ( InputTextFile@PageN}@ ReadTextBoxz@ PageCountTI@myFilter>@ myFileNameC@File%@OpenDlgG@ ReadTextFile@ ( InputKagami@ClearAll @ [Uj[B@ _Click@ vbCritical+}@(cݐ\ґ\ҖEw@(cݑ㗝lX֔ԍO3p9@(cݑ㗝lX֔ԍ4@(cݑ㗝lZtKi@(cݑ㗝lOtKi5@(cݑ㗝lO.@(cݑ㗝l\ҖE R@(cݑ㗝l\ҐtKi>R@(cݑ㗝l\ҖtKi@(cݑ㗝l\Җ@(cݑ㗝ldbԍ:1@(cݕ㗝lX֔ԍO3я@(cݕ㗝lX֔ԍ4E@(cݕ㗝lZtKi@(cݕ㗝lOtKim@(cݕ㗝lOD@(cݕ㗝l\ҖEY@(cݕ㗝l\ҐtKi@(cݕ㗝l\ҖtKia@(cݕ㗝l\Җ@(cݕ㗝ldbԍs@@myKagamiCollection@myData @Sanin@Form@ GetFormField@ CommandBars @Top5@ o[WA@XMLǍ^@SetPage@s1n@Ƌf[^2@y[W炷 |@y[Wt[z@ opNewMethod\x@Optiono^\_Change)@Optiono^\r@Optiono^\D>@Optiono^\_Change@txtPage @GetName<@‹ݒ_Click@ ‹ݒ_CAO{bNX@ s1_Click@ myShinseiyd@ (y[WݒK@#ȉ̂̂㗝lƂĈ_Change-@ _Click&@@vbYesa?@Deletex@f[^`FbN_Click@Hide9z@ f[^`FbNj[@ vbModelessZ @sR[h͊mF_Click@ AreaCodeCheck7k@ Ƌl_ClickK@㗝l_ClickgV@Ƌl_Click @㗝l_Click:@Ƌf[^_Clickb@CheckTheCheckResult(@ myClientIDU@ myAgentID@ mySyoninNo$@iǗf[^_Click~@myAgentMemberNo@ ReadMemberNoS@ iǗo^N@txtAgentMemberNow@ txtAgentID@ txtClientIDC@ txtReceiptNo@txtReceiptDate,M@Now%@ XML쐬_Click@ myClientName@ myXMLFile`@Year6n@Month@Day@FileSave @ TestFileLock@Kill@(OutPutXMLHeader@(OutPutXMLFooter"c@eLXg_ClickE@ myTextFile@ TextFileSave@cT\@ clsText@(GetDataForTextFile @ WriteFile&@ opOldMethodK@eLXgǍ_ClickJ@tH[ی삷_Click)@ ProtectFilej@tH[̕ی_Clickvt@ UnprotectFilet@Clear@ tH[̃bN_Click`@ UnLockFileID@[Uj[J_Click@J҃j[J_Click~@ J҃j[K@@ ‚1_Click "@ ‚2_Clicki@ ‚3_Click@ ‚4_Click@ ‚5_Click !@ ‚6_ClickY@ ‚7_Click@ăN_Click5@myFullFileName@myMLDOT@ myFullMLDOTaQ@ExtractFileName@ Documents@FileNamej@ConfirmConversions@ReadOnly4<@AddToRecentFilesV@PasswordDocument8@PasswordTemplate@Revertn@WritePasswordDocument@WritePasswordTemplateu@wdOpenFormatAutoh@wdDoNotSaveChangesԇ@ProtectionType@wdAllowOnlyFormFields!@ Unprotect?@wdNoProtection@Protectf@NoResetg@ wdSaveChanges~@ modMenu5@( MenuOpen@DatabaseConnectCheck@ ( UserMenuOpenU@ ( AdminMenuOpen;-@ modCheckKagami1+@(c㗝lL@ (c㗝lN@ (cAӔCҧW@(cݘAӔCҏU@(cݘAӔCҐIS@(cݘAӔCҖV@(cݘAӔCғdbԍ}H@ comboTypeA@ comboArea@comboFrequency@cmdReceiptNo_Click @myType@myNextReceiptNo[@GetNextReceiptNo@cmdGetProgressDB_Click<@ myCollcetion]@GetDataFromProgress@ txtCountsh@ txtCharge@ cmdCal_Click&@myKind_@CheckDB @ CheckDatei@ myFrequencye@InsertOrUpdateForProgress @InsertDBForProgress)@UpdateDBForProgress[@ ‚_Click@ modOutputTextFile\@fsF]@aX@CreateTextFile@ WriteLinee@myFieldU@ FormField@ FormFields-|@wdFieldFormTextInputk\@ GetFieldNameB@wdFieldFormCheckBox@CheckBoxi{@wdFieldFormDropDownt@ modOutputXMLg@ OutputXML1d@ OutputXML2d@ ()OutputClient @()OutputCommunicatorz@ ()OutputAgent)s@ OutputXML4d@ OutputXML5d@ OutputXML6d@ OutputXML7d@ OutputXML8d@ OutputXML9d@ ConvertTexta@ DeleteBOMU@vbTabc9@ OpenTextFile@ OutputXML3d@ myAddress@ myAreaCode@ myAddressKana@ DeleteAddressF@DeleteAddressKanaeM@ myBooleans@ myStartDateK(@ StartDateE@ myRequestDatehC@ RequestDateWv@ cCallSignA@CallSign@ CallSignCntu@GetCallSignHead"@ GetCallSignNo@GitekiNoC@ myNinsyoNoO@NinsyoNo@ ProductNo:@adCRLF@adCR@adLF@ adTypeBinary@ adTypeText@ adReadLinee;@adSaveCreateNotExist@adSaveCreateOverWrite@ InputFile9@ OutputFile9i@CharsetQ#@ LineSeparator4@ LoadFromFileY@CopyTo[@ SaveToFile_@LOFc@ GetPrefNum#@ myPrefNum@݂`FbN@"Ƌlf[^x[XƂ‚킹r@"㗝lf[^x[XƂ‚킹:@cmdClearco@cmdCheckX@cmdClosej@ cmdExecuten@SetFormH@cmdClear_Click@SetColorK@@cmdClose_Click!P@cmdCheck_ClickFG@ CheckTheCheck@myCItem@myCKeyg@tH[𔒎_Clickm@AllClear2@VXe󗓂_Click@ modInitializerZ@ShowGrammaticalErrorsD@ShowSpellingErrorsC@Reg@ ݂̐ݒ@ clsAreaCode5@AreaCodeInsertKatakanaV@ mySQLString@myResultAu@ Recordset@GetResq-@myKen@Fields7@myTotal\@@ RecordCount{@MoveNextL!@myAddressKatakanaP@AreaCodeSelectKatakana@ clsCallSign@sCallSignBySort@ sCallSignCnt}@sCallSignSetCntMg@ CallSignSets?@CallSignSetCnt@CI Gothic , 0X0000g "u MS UI Gothic$(0000k0zzkk0g "u MS UI Gothicv}k0$DX0040H0000k0zzkk0kp Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} JallSignBySortg@GetCallSignAllr@sNo@tk@GetCallSignSetzR@GetCallSignSetStr@ clsINI@ CallSignCount#@CallSignCountSet%@ss'_@myHeadJ@ CallSignSet@cSan@ clsClip@ OpenClipboard@hwnd/@user32*@CloseClipboardby@EmptyClipboardZ@GetClipboardData/@wFormat5t@SetClipboardData0/@hMemʏ@ GlobalAllocj@wFlags܋@dwBytes֐@ GlobalLockP@ GlobalUnlockƅ@ GlobalSize6@lstrcpy@ lpString1@ lpString2@CF_TEXTR@ GetClipTextK%@lngHwnd@lngMem@ strClipDatad@lngClipDataLen@ blnErrflgf@lngRetw@ SetClipText @strData@@ lngDataLen @ GMEM_MOVEABLE@ clsConfig9}@ri@ SaveConfig @ myNewDatabase@ ReadDatabaseU@ clsConst1?@(ePaper@(eBureau5@ pNon@ pCR@ pML@ pFBv@ pFX@ pFP@ pMP@ pMO@ pRP@@ pLOa@ pEXg@ pAT@ pHOUKATSU>S@(eRadior@ sCR"@ sSRr@ clsConst2@@ clsDate@ myDateData4@myDate @IsDate2@ CorrectDatef@pNameZ@fNameR@ clsDB@ myConnection{@ Connection@GetCon@ GetFromKagamiM-@myCheckv@cConn@myConGk@Provider@ConnectionString@UserIDj@ActiveConnection@ adOpenKeyset@adLockOptimistic<@ adCmdText#@ DBExecute1@adExecuteNoRecords܄@ myReceiptNo@ myString1@ myString2@myTableI@myAID_@myWhereݮ@ CheckMemberNo@ myMemberNoM@CheckMemberNoByIDO@GetDataFromAgent@ myAgentName @ UpdateAgent@ InsertAgentf@ clsFileG@ OPENFILENAME35@ lStructSize/r@ hwndOwner@ hInstance @ lpstrFilter@lpstrCustomFilter@nMaxCustFilter`@ nFilterIndexc@ lpstrFileV@nMaxFile@lpstrFileTitlep4@ nMaxFileTitleym@lpstrInitialDirr@ lpstrTitleo@flagso@ nFileOffsetI@nFileExtension9@ lpstrDefExt_@ lCustData'5@lpfnHook@lpTemplateNamet@OFN_ALLOWMULTISELECT@OFN_CREATEPROMPT^9@OFN_FILEMUSTEXISTٽ@OFN_HIDEREADONLY@OFN_NOCHANGEDIR͙@OFN_NOREADONLYRETURN@OFN_NOVALIDATE@OFN_OVERWRITEPROMPT@OFN_PATHMUSTEXIST@ OFN_READONLY!@ OFN_SHOWHELP@ OFN_EXPLORERL@GetOpenFileName]?@ pOpenfilenamec@ comdlg32.dll?@GetSaveFileNameW@ myFolderNameE%@OFN)@ vbNullString@ tOpenFileName@ sFileName@iFileNo-@PathName'@ WrkStringPQ@ clsFormh@myReset_@ SelectionZ@HomeKey@Unit@wdStory&@GetFormFieldKagami$@fNumber@GetFieldNameKagami/@sP$_@EP]@CB\@IP]@ INISection @Keysq@KeysCnt@ INI_AName@INI_Modef@ INI_SectCnt@INI_Sectj@INI_StationCntq@ INI_Licence/G@INI_LicenceBySortd@INI_LicenceCntl@INI_LicenceCntSet:W@ INI_CallSign!1@INI_CallSignBySort0@INI_CallSignCntM@INI_CallSignCntSet#@ INI_NinsyoNo@ INI_GitekiNo@ INI_ProductNo@ INI_StartDate#@INI_RequestDate*@ CheckSect@SectF@CheckKey@Key@ GetSectNameJp@ GetKeyNamem@ GetValueNamed@ ChangeSectL@ ChangeKey@ StrectToAryq@wm@Dumy @AName!@nvq^@Modev@ SectCount(0@ StationCount@Licenceo@ LicenceBySortt@ LicenceCount@LicenceCountSet8@KeyCount@@ SectionNoEv@ SectionName+@GetSect)-@GetKey@KeyNoL@KeyName@Default@zq@SectionG@iniSect3@iniKeyb@rl^@GetCnt@ SaveTextBox@md@ne@ ClearTextBox@Class_Initializen@Class_TerminateP@Shapes<@AlternativeTextb@ SearchTextBox@ clsKagami4@KSendTo@KbID@ GetSendTo@GetInfo @Optionhokkaidouc)@ OptionTohokuʡ@ OptionKanto @OptionShinetsu@OptionHokuriku@ OptionTokai@ OptionKinki@ OptionTyugoku$@ OptionShikoku@ OptionKyusyuq@ OptionOkinawaxR@ ݒ_Click'@myBranch0f@ clsPageZ@ PageSectionG9@Pos@PageNo"d@PageSet>@KagamiD@ KagamiPage:@Sets@SetCnt@ Page_AName&@ Page_Sect@Page_CntEv@GetPos1$@ GetPageNo@ GetSetCnt@ GetKagamiPos@SetNo@ GetKagamiPage@cF\@cZ@Sort@SetPosz4@FindWord@ targetWord@blnFound,h@ rngContent@Range @Contentl@Findn@ClearFormatting)@WrapWy@ wdFindStop'f@Found+@ swapValue@swapNameL-@ReadSet@CheckTheCheckByPageName{@ myPageName?@cK\@cC\@cINIZ@ cSanitizeWX@cDB}@cR\@cFi}@cD\@cA\@cfg}@cKagami@mvarK&@mvarCC @mvarINI@ mvarSanitize{@mvarP&@mvarF&@mvarDB0@mvarR&@mvarFi@mvarD&@mvarA&@mvarCFGy@ txtMemberNoW@myAgentAddress@ txtMemberNoDy@myIDStrkz@ 㗝lIs@ AtEndOfStream@ReadLine@iSectQ@sSectYT@iKeyJ@sKeyName0@ ListEntries-@ modOutputXML2Ap@Documentj@Class@ InitializeN@ TerminateyL@UserFormN@[Uj[Ji@XML쐬@f[^`FbNP@sR[h͊mF@J҃j[Ja@Label1,@‚2j@‚5m@‚4l@‚7o@ݒt[@ Ƌlͣ@ 㗝lͮ?@㗝l̈t[G@Label2,@tH[̃bN)+@tH[ی삷^^@tH[̕ی@ăNκ@ eLXg*@ eLXgǍހ@‚6n@Label3,@Label4,@iǗf[^̈́@Label5,@‚3k@ LabelPage@y[W𑝂₷&@؟D@‚1i@‹ݒ@Change@Click@ݒ@_B_var_StrConv{@ _B_var_Stringӊ@ _B_var_Chr\;@ x̐ݒ^@ݒ=@‚銞@ _B_str_LeftV@ _B_str_Right#(@ _B_str_MidX@ LZs@o^@Label6,@Label11A@Label12B@Label15E@Label16F@Label19I@Label20e@Label21f@Label22g@Label23h@Label24i@Label25j@Label26k@Label27l@Label28m@Label30@Label31@Label32@Label35@I$@Label36@Label37@Label38@Label39@Label40@Label41@Label42@Label43@ txtChangeDate@Label44@Label45@LabelPostalHihunWi@LabelPostalHihunDh@ cmdFromDB@ LabelAreaCode{@ LabelName$@ LabelNameKana @LabelPresidentName"@LabelPresidentNameKanaI@LabelPostalCode@ LabelAddressu@LabelAddressKana<@ LabelTelNo@cmdExit\@ LabelPersonV@LabelFaxt@ LabelEmailO@ LabelMemo@ LabelBranchDD@ LabelTypez@ ItemClick@ ItemCheck@LabelAgentNameD@LabelClientName@ LabelCaptionn@LabelReceiptNo`@LabelReceiptDateV@ LabelAgentNot@ LabelClientIDr@ cmdReceiptNo]@ LabelKindc@LabelFrequency]@ LabelArea@ LabelCounts%@ LabelCharge@cmdGetProgressDB@cmdCal@tH[𔒎ə@VXe󗓂u@ LabelMemberNo@ _B_var_Format@ _B_var_Midp@ _B_var_TrimmT@ _B_var_Right9@ _B_var_LeftQ@ _B_var_ChrW@ _B_str_Chrm#@ _B_str_String@ _B_str_Trim@DBExecuteGetID6@ _B_var_IfP@ID]@ _B_var_ErrMesf=@ bTextBox1@ bTextBox2@Stream*@ bTextBox3@ banngouno'@_B_var_banngouno@ wakaijunnkara~@bTextBoxC@_B_var_bTextBoxz@upBubbleSortStr@data;@tempR@dgN9Ui   %cC d ' ( )Q_a !  7%& $ 6 #. / B 3 q$Aw 7R S"D F- Pe WH=CGo bA VCVa  fx&# $P A @`JA Q@ G LZ  BFdir __SRP_0M__SRP_100000000000&`j+0}+2\STDOLE2.TLB# Automat8ion0EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42EProgram Files\CommonMicrosoft Shared\o@12\mso.dll#M 1q Object LibraryKMSForms>SFrms3D452EE1-E08F0A-8-02608C@4D0BB4SFM20.DLLH'EB &/;"1?jIqAHq00}#0Bq# 5h0 AEDD2FCD3-92F7-449D-B212-51EF49EA14086DOCUME~1\oohashi\LOCALSTemp\Word8.0\DU.exd<".E .`M AADO DB> ADOBN1I200aAK10-86D2EABh5aC\ado@2 5.tlbH1ActiveX DaTtaKs95K @Scripti`ng>cripvingtj`@420B28vE718-11CF -893D0C@90542211vscrrun`f RuntimFe @ M"Skctl c>V@`C_m@tLb@a|`A831FDD16 -0C5C@D2 -A9FC@00F8754DA1YaOMCTL.OCX*Windows }Controls 6.0 (SP6)b?=Db0 d2781A321-2B6B-46B9-9358-AE7F7`389EdedVBEc.ld!`@\ uM*BThisDocumentG`TiDDatf끈C>D`TtbxiBo EoٜqvDBG ADB/F2L t(xFiljF`OliOioFoZ`yormioFr`,FkJo@mp*a  y a ! a N y[y\\i])^^___WSa   ``abacyd1e)fIfqffff g1gYgggggca A hA8Qgqggg9a * QqYa #::;!;I;ya ;AY/A81PaPPPP Q1QYQyQQQQ)RQRRRR S9SySS TQTTTT!UYUUUU1VqVVW1WiWWW X9XiXXXXYa #Xa 7Q/A8.!/-Pa  )*yUUUUUV9ViVANVVVQ*y*!WQW***+1+a+a ?222a >!A8q8889!9I9i999:Q:y:::;9;y;;; <I<<<!=a====>)>Q>y>Aa E# ||}ia 3#89a 9qA81qaqqQga 5##a -#Prrs9sYsyssssk t)tIta .CٍYOyOOOOKCC?????QQQ+ R)RARYR()# a !#8A)AQiiq ThisDocumentConst1 clsWinVerclsRegExƋo^ clsRmkINI modCheckData Ƌlo^Const2 ƋlIclsSanimodInputTextFileǗ҃j[modMenumodCheckKagami1 iǗo^modOutputTextFile modOutputXMLf[^`FbNj[[Uj[J҃j[ modInitialize clsAreaCodeReg clsCallSignclsClip clsConfig clsConst1 clsConst2clsDateclsDBclsFileclsFormclsINI clsKagami‹ݒ_CAO{bNXclsPageclsPaper clsBranch 㗝lo^ 㗝lIclsText modOutputXML2dq\T|[g [ ] = ; | touroku2011.dot *0000001.0402012/02/03 jpfhrr9f rmkstation.ini dbo.T_Hokatu T_Agent T_Client !q}@\Nf00000000 !q}@\Nf0{t0000  3uˊMQ1N  K0L00lNVSO PNn0%R K0L003uˊOjuSMR3Ah K0L003uˊOjuS_4Ah K0L003uˊOO@b0000 K0L003uˊOO@b K0L003uˊ TMR0000 K0L003uˊ TMR K0L003uˊNhy_w K0L003uˊNhY0000 K0L003uˊNh T0000 K0L003uˊNhY K0L003uˊNh T K0L003uˊqjuS NtN K0L00NtNOjuSMR3Ah K0L00NtNOjuS_4Ah K0L00NtNOO@b0000 K0L00NtNOO@b K0L00NtN TMR0000 K0L00NtN TMR K0L00NtNNhy_w K0L00NtNNhY0000 K0L00NtNNh T0000DB K0L00NtNNhY K0L00NtNNh T K0L00NtNqjuS _NtN K0L00_NtNOjuSMR3Ah K0L00_NtNOjuS_4Ah K0L00_NtNOO@b0000 K0L00_NtNOO@b K0L00_NtN TMR0000 K0L00_NtN TMR K0L00_NtNNhy_w K0L00_NtNNhY0000 K0L00_NtNNh T0000 K0L00_NtNNhY K0L00_NtNNh TVBA K0L00_NtNqjuS #a}HQ K0L00P@b^\ K0L00PbS_ TY K0L00PbS_ T T K0L00PqjuS #  F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL  X F5C:\Program Files\Microsoft Office\Office12\MSWORD.OLBWord 9h0F FINIC:\WINDOWS\system32\STDOLE2.TLBstdole  QxL-[DR?C:\Program Files\Common Files\Microsoft Shared\office12\mso.dllOffice q.E .`M C:\WINDOWS\system32\FM20.DLLMSForms  QDQI5C:\DOCUME~1\oohashi\LOCALS~1\Temp\Word8.0\MSForms.exd Qm.? QBm(B5lUjU*KD8H\{lFWJOXML쐬!-6S` Q/Qf[^`FbNJ҃j[JRҋB ` opOldMethod"-?@Label1‚5‚2‚4‚7 Ƌl?F`ݒt[ o[WXMLǍ 㗝l㗝l̈t[Ƌf[^Label2y[Wt[s1tH[̃bNOptiono^\Optiono^\tH[ی삷tH[̕یăN C{lFWJO MultiPage1 eLXg eLXgǍ‚6Label3Label4iǗf[^Label5‚3y[W𑝂₷ҋB `txtPagey[W炷‚1‹ݒ opNewMethodBҋB `ȉ̂̂㗝lƂĈƋl㗝lȏ[qJ eUserFormL.!RG=Y F3Dynamic Q7y7GetCon[Uj[JUserForm_InitializeOptiono^\_ChangeOptiono^\_ChangeSetPage _Click‹ݒ_Click s1_Click #ȉ̂̂㗝lƂĈ_Change _Clickf[^`FbN_ClicksR[h͊mF_Click Ƌl_Click㗝l_ClickƋl_Click㗝l_ClickƋf[^_ClickiǗf[^_Click XML쐬_ClickeLXg_ClickeLXgǍ_ClicktH[ی삷_ClicktH[̕ی_Click  tH[̃bN_Click[Uj[J_ClickJ҃j[J_Click ‚1_Click ‚2_Click ‚3_Click ‚4_Click ‚5_Click ‚6_Click ‚7_ClickăN_Click  4x 0o0Wordn00000000000k0j0c0f0D0~0Y00 (S00000000n0 0O0 00Oc0_000ANameMode SectCount DWordn0 00000 00000n0 0O0 00Oc0f0K0j0D0g0O0`0U0D00 H000000000B00D0o00000000 W0f0]0n0~0~0D0f0O0`0U0D00VU N7hrɊPIuTWN կF܈=F#9AzJ졬EdIzcEDa[i+ݒ! FKqe 9By7H c? B 1, S0n0Word00000 0  0(uk0-[W0~0Y00 K0L00c[W0f0O0`0U0D02 ChangeKey StrectToAry DY0g0k0Word0000k0eQRU00f0D004XTk0o0[LW0j0D0g0O0`0U0D00 2eQRU00f0D000n0n0NL0zz}vk0;bc0f0W0~0D0~0Y00 }LW0~0Y0K0 x 3uˊf0 0  0(uk0-[W0~0W0_00 K0L00[HQ% F [HQ0c[W0f0O0`0U0D00 {v23uˊf K0L00c[W0f0O0`0U0D0 Sb{v23uˊf /01/01 ggge K0L00eQt^get^ K0L00eQt^geg K0L00eQt^gee 1$" X 1$) x 1$  1$!  1$ X~؟yEl̳ H/cOGR}T GetSendToGetBIDGetInfo H4 , 44<!\i cv soft\Sys K , ChangeSect 44<!\i cv soft\Sys K`7Lx'*_-w~JpKXv( CallSignCntCallSignSetCntCallSignCallSignBySortGetCallSignAllGetCallSignHead GetCallSignNoGetCallSignSetGetCallSignSetStrCountStrSort 44T48D!@i v 1KBKM.kAP&4#2vbtAMmލ 4   ,< CheckSectCheckKey GetSectName GetKeyName GetValueName StationCount CallSignCountCallSignCountSetLicence LicenceBySort LicenceCountLicenceCountSetNinsyoNoGitekiNo ProductNo StartDate RequestDateKeyCountGetSectGetKeySetValueDeleteReadSaveClearClearAllGetCntReadCIDReadAID ReadTextBox SaveTextBox ClearTextBox SearchTextBoxGetNameGetPos GetPageNo GetSetCntGetDB# 4@!i x H(D! L P \ ` d l p t x | O315:1hM?NGeknM8zk^ NumHenkan ABCHenkan DeleteCRLF KigoHenkan Delete8194Delete11GetStringFromStringGetNoFromStringGetCountFromStringReplaceStringtoCRLFReplaceCRLFtoStringGetYobiLicenceNo NumToZero*HMKt   ,  PageCount GetKagamiPos GetKagamiPageFindWordSortSetPosReadSet CheckTheCheckgĤIx8<CheckTheCheckResultCheckTheCheckByPageName ::T4<@!i | W0DI7zHawꥱ9E=zU UnprotectFile ProtectFile UnLockFileAllClear GetFormFieldGetFormFieldKagami GetFieldNameGetFieldNameKagamiInczMxARDatabaseConnectCheck GetFromKagamiPm.GetResVm. DBExecuteDBExecuteGetIDInsertOrUpdateForProgressInsertDBForProgressUpdateDBForProgressInsertOrUpdateInsertDBUpdateDBGetDataFromProgressCheckDB ReadMemberNoGetNextReceiptNo CheckMemberNoCheckMemberNoByIDGetDataFromAgent UpdateAgent InsertAgentGetDataFromClient InsertClient UpdateClientԗ+ͨWG;D  # RegOpenKeyEx ADVAPI32 RegOpenKeyExA 9`a`RegQueryValueExstr RegQueryValueExA 9`1a( RegSetValueEx RegSetValueExA 9`bH RegDeleteKey RegDeleteKeyA 9`bhRegCreateKeyEx RegCreateKeyExAGetConfigExStart B 9`c RegCloseKey RegCloseKey 9`d FormatMessage kernel32.dll FormatMessageA aee GetRegistryDeleteNullChar SetRegistry SetCreateKeyDeleteRegistry CheckRegistrySelectRegistry GetRegistryEx SetRegistryEx GetConfig GetConfigEx SetConfig SetConfigExP8cO{oZ[ əI9"x ,,LL, $,0<HGetOpenFileName comdlg32.dll GetOpenFileNameA hiGetSaveFileName GetSaveFileNameA hi OpenDlgFileSave TextFileSave TestFileLockExtractFileNameAh[EMAa P^UH 2 CheckDate CorrectDateCheckDateKAGAMI "2nLJ^i&VN}E^g AreaCodeCheckAreaCodeInsertAreaCodeInsertKatakanaAreaCodeSelectAreaCodeSelectKatakana DeleteAddressDeleteAddressKana?G6 ReadConfig SaveConfig ReadDatabase) F [HQL0c[U00f0D0~0[000 $rmkstationHokkaido rmkstationTohoku rmkstationKanto $rmkstationShinetsu $rmkstationHokuriku rmkstationTokai rmkstationKinki "rmkstationTyugoku "rmkstationShikoku rmkstationKyushu "rmkstationOkinawa *c}Y00000000L0-[U00f0D0~0[000 1$ (  , 1$ H  K0L00 A 1$x h 1$1 1$h 1$ 1$E 1$j  1$y ( 1$w H  Dummy [Dummy] 000ib dumy X%R&{S @\n0N[pe (tLf"s#˳ZiMGx 'JGR$hVhODYsX8ӦI,$*A4#APya@E55QwbZC EΝ*KkIJgfGKxRAW)$|J[8r 9~y7 nJ_~`hOx9`H%"CTB՚D2'wq>H / 9Bj&" y7H/,gGBEbo(Fƥ[ 44<!2i Av A-1068-A K 44<!2i Av A-1068-A KY^E__Շ`ˁ@[F 44T48D!i T YDky&II"p| lFZ   , # 4@!p i L X P D! L P \ ` d l p t x | I2 ~ϥAl9!NfJ~>VEȨ WordVBA 0 1 $SOFTWARE\HyperDyne HyperDyne database K0L00K(uYn0N[ge 1$ p 1$   1$_  1$`  K0L00!q}-Pn0yR{V1 K0L00!q}-Pn0yR{V2 K0L00!q}-Pn0yR{V000 K0L00hTlpeSs0zz-N}R1 K0L00hTlpeSs0zz-N}R2 K0L00hTlpeSs0zz-N}R3 K0L00hTlpeSs0zz-N}R4 K0L00 ^gY00{v2n0 gRg K0L00-n0vv K0L00-n0vv000 K0L00!q}-Pn08^n4X@b0000 K0L00!q}-Pn08^n4X@b000 K0L00!q}-Pn08^n4X@b K0L00X%R&{S K0L00iTh:y!q}-Pn0juS K0L00!q}-Pn0 juS K0L00P K0L00@\n0N[pe \Tz!F@w7Jz`A@_WC ReadRmkINI SaveRmkINI K00-[0S_g0M0~0[00g0W0_00 n0-[ 000000n0-[_n1RM /b ppM\l"zƍߡC2Sg CN(~e$ա&3Jw@o x̐ݒݒ‚D3@B¬ Yy7POptionhokkaidou OptionTohoku OptionKantoOptionShinetsuOptionHokuriku OptionTokai OptionKinki OptionTyugoku OptionShikoku OptionKyusyu OptionOkinawa ݒ_Click ‚_Click xƏYl| 1$ ` server username password atism.A \m. ,000000x0n0c}g0000L0zvuW0~0W0_00 000juS 000Q[  SQLOLEDB Data Source= ";Initial Catalog=Yl|ďYl|CҋB ` MQ1NɏYl|  "000ib0OX[g0M0~0[00g0W0_00ҋB `#=h8+3qG?,2qLɘɘ   12 *h_O>y 22  gPO>y ( g) (*h)   2  3  4  5  6  7  8  9  ! % E & F ' G ( H ) I * J + K , L - M . N / O 0 P 1 Q 2 R 3 S 4 T 5 U 6 V 7 W 8 X 9 Y : Z A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X Y y Z z 0     00 1$  1$k  d 1$  003OZA09 OZABA5 vbCrLf vbCr vbLf ,{0 ,{ ^  0^ 0n0OD0eL0pu8^g0Y00 $`$MQ1juSn0hsL0J0K0W0D00F0g0Y00 &MQ1juSk0 0,{ 0L0bQ0f0D000F0g0Y00 "MQ1juSn0HQ-L0NW0f0D0~0[000 S ,MQ1juSk0o0K0j00Z0 0S 00NQ0f0O0`0U0D00 (MQ1juSn0pe$Pn0'Y\0xW0f0O0`0U0D00 $MQ1juSg050N N0c[W0f0D0~0Y00 MQ1juSn0pe $a$MQ1juSn0hsL0J0K0W0D00F0g0Y00 - juSn0hsL0J0K0W0D00F0g0Y00 [A-Za-z0-9] (juSk0o0K0j00Z0 0S 00NQ0f0O0`0U0D00 "juSk0 0,{ 0L0bQ0f0D000F0g0Y00 juSn0HQ-L0NW0f0D0~0[000 $juSn0pe$Pn0'Y\0xW0f0O0`0U0D00 juSg050N N0c[W0f0D0~0Y00 juSn0pe $ juSn0eW[RL0NW0f0D0~0[000 juSn0peW[L0wvW0f0D0~0Y00 $ juSg050N N0c[W0f0D0~0Y00 juSn0pe ,bSWniTjuSn0eW[RL0NW0f0D0~0[000IgnoreCase LabelType (bSWniTjuSn0peW[L0wvW0f0D0~0Y00 ,bSWniTjuSg050N N0c[W0f0D0~0Y00 bSWniTjuSn0pe 2i[juSk01d0N Nn00n0L0eQRU00f0D000F0g0Y00 $X%ROSn0eW[RL0NW0f0D0~0[000 X%ROSn0peW[L0wvW0f0D0~0Y00 $X%ROSg050N N0c[W0f0D0~0Y00 X%ROSn0pe Giteki Syonin VBScript.RegExp GlobalMultiLine OutputXML9PatternExecute CountReplace 1$ ^ F F !q}@\NfgĤIx8<X 0000000 n0 *g MQ1Nn0d0M0B00[0 NtNn0d0M0B00[0 N Nn00000L0n0g0D0~0[000u F FK0L00n0[HQO@\ L00-[U00f0D00/e`1Xh0O0D0a0L0c0f0D0~0Y005m.ٷI\m. :SELECT @@IDENTITY AS [NEW_ID] NEW_IDm.Lm. fSELECT ID FROM dbo.T_ProgressNet WHERE receiptNo =' ' ID ,cID kind ,kind type ,type receiptNo ,receiptNo ,' ,power receiptDate ,receiptDate . yyyy/mm/dd memo ,memo area ,area counts ,counts charge ,charge frequency ,frequency >INSERT INTO dbo.T_ProgressNet ( ) VALUES (  ) ,purpose power 1$0 ( aID= ,cID= ,type= ,kind= ,receiptNo= ,receiptDate=' ",receiptDate=NULL ,memo= ,area= ,counts= ,counts=0 ,charge= ,charge=0 ,frequency= ,MoveArea purpose :UPDATE dbo.T_ProgressNet SET   WHERE ID= SELECT ID FROM $ WHERE callSign =' bID ,aID licenceNo_Head ,licenceNo_Head licenceNo ,licenceNo address ,address areaCode ,areaCode MoveArea issueDate ,issueDate estabDate ,estabDate beginDate ,beginDate changeDate ,changeDate termDate ,termDate callsign ,callsign productNo ,productNo giteki ,giteki syonin ,syonin INSERT INTO   ( bID= ,aID= ,licenceNo= ,licenceNo=NULL ,licenceNo_Head= (,licenceNo_Head=NULL ,address= ,areaCode= ,MoveArea= ,MoveArea=NULL ,kind=NULL ,purpose= ,purpose=NULL LabelBranch ,issueDate= ,issueDate=NULL ,estabDate= ,estabDate=NULL ,beginDate= ,beginDate=NULL ,changeDate= ,changeDate=NULL termdate ,termDate= ,termDate=NULL ,callsign= ,productNo= ,giteki= LabelMemo ,syonin= ,power= UPDATE  SET  dSELECT * FROM dbo.T_ProgressNet WHERE receiptNo =' SNjuSL0d0K00~0[000 $SNjuSL02d0N N{v2U00f0D0~0Y00 *SELECT COUNT(*) FROM   WHERE   = ' lSELECT * FROM rmkstationCenter.dbo.T_Agent WHERE ID = rS_Y00NtNL0S__00~0[000 ,pen0NtNL0rS_W0~0Y00xW0f0O0`0U0D00 memberNo 2NtNjuSL0{v2U00f0D0~0[000xW0f0O0`0U0D00 t(type = 1 OR type = 2 OR type = 3 OR type = 4 OR type = 5 ) OR type = 21 OR type = 22 OR type = 23 OR type = 24 OR type = 25 OR type = 26  president NOR type = 31 OR type = 32 OR type = 41) v(type = 6 OR type = 7 OR type = 8 OR type = 9 OR type = 10 " OR type = 11 OR type = 12 OR type = 71 OR type = 72 OR type = 73) HSELECT receiptNo FROM T_ProgressNet  WHERE  nameKanaLabelFax 0 ORDER BY receiptNo DESC 0000 bSELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent ( WHERE [memberNo] =   AND [bID] =  AND [ID] = FSELECT * FROM rmkStationCenter.dbo.  WHERE [bID] =  AND [name] =' name LabelEmail president2 "presidentNameKana $presidentNameKana2 person postalCode addresskana telNo telNoPack faxNo email memberNo= ,name= ,nameKana= ,president= ,president2= &,presidentNameKana= (,presidentNameKana2= ,person= ,postalCode= ,addressKana= addressKana ,telNo= ,faxNo= ,email= 8UPDATE rmkstationCenter.dbo.  WHERE [ID]=  AND [bID]= ,memberNo ,name ,nameKana ,president ,president2 $,presidentNameKana &,presidentNameKana2 ,person ,postalCode ,addressKana ,telNo ,faxNo ,email BINSERT INTO rmkstationCenter.dbo. type= k0-[0OX[g0M0~0[00g0W0_00 (00000k0-[0OX[g0M0~0[00g0W0_00 00000n0-[ Database -[0000 $g0serverL0-[U00f0D0~0[000 (g0usernameL0-[U00f0D0~0[000 (g0passwordL0-[U00f0D0~0[000 (g0databaseL0-[U00f0D0~0[000 1$; H .oldC @B( *KzK6\У   <#----------------------------- CheckTypeD #S0n0LNM!q 4#x N!q}TSO0!q}@\{t000000(u-[0000 Z#-[vo00server0database0username0password0atis #n05d0a " *#1LZ0d00000g0:SRc0f0Y00S0h00 @#00000L0j0D04XTk0o0 0passwd, 0h0000~0g0eQ00S0 #h0a .#0000Lk0o0 0# 00LHQ-k0Y00S0h00 6#zzLo0!qY000~0_0000n0j0D0-[vo0!qY000txtPresidentName2D X#000L0B0c0f000server0database0username0password0 <#atisNYo0!qY000N͑k0-[W0f0B004XTk0o00_0k0 #W0f0B000n0L0*QHQU0000 1$ h SwmS qgS qg O Sx qgwm яu -NV VV ]N] l~ -[0OX[W0~0W0_00txtPresidentName1D -[0OX[g0M0~0[00g0W0_00 $000000x0n0c}`1XL0pu8^g0Y00 JRdY00)jPL0B00~0[000 00000O0 XML0000(*.xml) *.xml Y0y0f0n00000(*.*) *.*  TMR0NQ0f0OX[ .xml "ckW0D00000 T0c[W0f0 NU0D00 1$  1$^  n0OO@bL0eQRU00f0D0~0[000 1$  00000000(*.txt) *.txt .txt 13 (eQRU00_0eN000L0ckW0O0B00~0[000 eN: 1$-  s^ s^b ge.m.d -f -fT CheckClient CheckAgent CheckSubAgentCheckCommunicator n0OO@b0xW0f0O0`0U0D00 "n0OO@b00000xW0f0O0`0U0D00 OO@b00000xW0f0O0`0U0D00 ,!q}-Pn08^n4X@b0000xW0f0O0`0U0D00 &!q}-Pn08^n4X@b0xW0f0O0`0U0D00 .!q}-Pn08^n4X@bn00000xW0f0O0`0U0D00 B}NW0~0W0_00 jSELECT DISTINCT rmkstationCenter.dbo.TM_AreaCode.ken  N FROM rmkstationCenter.dbo.TM_AreaCode ( K000rS_Y00S^ w^:S:uQg000 n0Nhn0 T b WHERE rmkstationCenter.dbo.TM_AreaCode.ken LIKE  %'  ken- SELECT rmkstationCenter.dbo.TM_AreaCode.code, rmkstationCenter.dbo.TM_AreaCode.address  \ WHERE rmkstationCenter.dbo.TM_AreaCode.ken =' '  code  L0S__00~0[000 WriteFile \SELECT rmkstationCenter.dbo.TM_AreaCode.code,  brmkstationCenter.dbo.TM_AreaCode.addresskatakana ! | WHERE rmkstationCenter.dbo.TM_AreaCode.addresskatakana LIKE ' addresskatakana `SELECT rmkstationCenter.dbo.TM_AreaCode.address  CheckTypeW ^ WHERE rmkstationCenter.dbo.TM_AreaCode.code =' pSELECT rmkstationCenter.dbo.TM_AreaCode.addressKatakana addressKatakana ^SELECT rmkstationCenter.dbo.TM_AreaCode.address \ WHERE rmkstationCenter.dbo.TM_AreaCode.code=' OO@b InputTextFile  K000^:S:uQg000 0 k0rS_Y00S^ w^:S:uQg TL0S__00~0[000 nSELECT rmkstationCenter.dbo.TM_AreaCode.addressKatakana OO@b0000 ,n0lN0VSO0 PNn0%RL0c[U00f0D0~0[000 &OckW0f0K000F0N^[LW0f0O0`0U0D00 n0lN0VSO0 PNn0%R &n0OjuSMR3AhL0eQRU00f0D0~0[000 n0OjuS .n0OjuSMR3Ahk0peW[NYL0eQRU00f0D0~0Y00 .n0OjuSL03Ah-4Ahn0b__k0j0c0f0D0~0[000 &n0OjuS_4AhL0eQRU00f0D0~0[000 .n0OjuS_4Ahk0peW[NYL0eQRU00f0D0~0Y00 $n0OO@b0000L0eQRU00f0D0~0[000 n0OO@b0000 n0OO@b Xn0OO@bL00S^ wg0Y~0c0f0D0j0D0K00^:S:uQg000k0{v2U00f0D000n0g0o0B00~0[000 n0^:S:uQg000 *n03uˊ TMR0000L0eQRU00f0D0~0[000 n0 TMR0000 0n0 TMR0000o050eW[NQg0eQRW0f0O0`0U0D00 "n03uˊ TMRL0eQRU00f0D0~0[000 n0 TMR (n0 TMRo050eW[NQg0eQRW0f0O0`0U0D00 *n0Nhn0Y0000L0eQRU00f0D0~0[000 n0Nhn0Y0000 *n0Nhn0 T0000L0eQRU00f0D0~0[000 n0Nhn0 T0000 0 6n0NhY T0000o050eW[NQg0eQRW0f0O0`0U0D00 n0NhY T0000 "n0Nhn0YL0eQRU00f0D0~0[000 n0Nhn0Y "n0Nhn0 TL0eQRU00f0D0~0[000cmdExit .n0NhY To050eW[NQg0eQRW0f0O0`0U0D00 n0NhY T n0qjuSL0eQRU00f0D0~0[000 qjuS &n0qjuSL0peW[g0eQRU00f0D0~0[000 n0qjuS (n0OjuSk0peW[NYL0eQRU00f0D0~0Y00 $OckW0f0K000F0N^[LW0f0O0`0U0D0 $n0 TMR0000L0eQRU00f0D0~0[000 n0 TMRL0eQRU00f0D0~0[000 .n0Nhy_wo015eW[NQg0eQRW0f0O0`0U0D00 n0Nhy_wGetDataForTextFile ,Nhn0l TY0000L0eQRU00f0D0~0[000 Nhn0l TY0000 ,Nhn0l T T0000L0eQRU00f0D0~0[000 Nhn0l T T0000 $Nhn0l TYL0eQRU00f0D0~0[000 Nhn0l TY $Nhn0l T TL0eQRU00f0D0~0[000 Nhn0l T T n0NhYL0eQRU00f0D0~0[000 n0NhY n0Nh TL0eQRU00f0D0~0[000 n0Nh T n0@b^\L0eQRU00f0D0~0[000 n0@b^\ ,n0@b^\o0hQ҉20eW[~0g0W0K0eQRg0M0~0[000 n0 TMRYL0eQRU00f0D0~0[000 n0 TMR TL0eQRU00f0D0~0[000 (n0Y To050eW[NQg0eQRW0f0O0`0U0D00 ck8^k0B}NW0~0W0_00 V 0{v23uˊfh0W0f0-[ 0 0Sb{v23uˊfh0W0f0-[ 0n0D0Z00K000000W0f0O0`0U0D00 >Y0g0k0NtNL0[LW0f0D004XTk0o00[LY00_o0B00~0[000ڍH˰׫t2|S~J7*1*+gD=OB)\XB|׸I { [G nb݂`FbN "Ƌlf[^x[XƂ‚킹 "㗝lf[^x[XƂ‚킹cmdClearcmdCheckcmdClose cmdExecuteļG@Q&!{ )-y7PcmdClear_ClickcmdExecute_ClickcmdClose_ClickcmdCheck_ClickSetFormSetColor \ 00 &00000000L0c[U00f0D0~0[000 0000L0O(u-Nn00F0g0Y00Ky?cH':n#k|YKW^c   , ::T4@!i \ @? D!? / 1$  "00000000000~0W0_00 LK0j00Z000000000Lj0c0_0F0H0g00x N!q}TSOT/ek0T0OO0`0U0D00 Lh:yL0qN0f0D004XTo00D0c0_00OX[W0f0K00B}NW000F0N^D0f0O0`0U0D00 InputKagami ReadTextFile   (000000g0000L0zvuW0~0W0_00txtNameW-?+aJ|txtPostalCode2D BS0n0Word0000k0B00Y0y0f0n000000n00000dW0~0Y00 200000000gRK00[LW0j0Q00p0j00~0[000 0000dW0~0W0_00 4Scripting.FileSystemObjectOpenTextFileAtEndOfStreamReadLine Close 0#P[3uˊ00000000000000000Ni #{v23uˊf/Sb{v23uˊf  <#00000000n0eW[000o0000JISk0W0f0O0`0U0D00 J#Wordn000000000n0eQRR o00] NK00S Nk0juk0QRU00 4#~0Y00]0n0_00Q[n0juh0o0!qOk0j0c0f0D0~0Y00 *#K0L00Rn0HQ-k0[K0L00]L0NM0~0Y00 4#v Th0000h0n0k0o0 0= 0JS҉ 0OD0~0Y00 .#v Tn0peW[o0Y0y0f0JS҉peW[0OD0~0Y00 2#0000Lk0o00L-k0 0# 0JS҉ 0OD0~0Y00 H#Pkj0i0g09eLY004XTk0o0 0vbCrLf 0Y0y0f0JS҉ 0OD0~0Y00 ComboBoxTypeW ComboBoxTypeD F#00000o008^k0eQRg0M00000000000NYk00000000 F#000000000000000 L0B00~0Y0000000000L000 L#00U00f0D00h0M0o0 0True 0JS҉0To0'YeW[ 00000U00f0D0j0D0 N#h0M0o0 0Flase 0JS҉0Fo0'YeW[ ~0_0o0zzkk0000000o000000 H#n0HQ-L010]00NMo02N Nk0j00~0Y0D0Z000JS҉peW[ 0zzkn04XT H#k0o0 01 00c[W0f0O0`0U0D00~0_0000000n0peo0]00^00puj0c0f0D0 H#~0Y0000000n0{VQn0pe$P0c[W00pu8^j0pe$P0eW[R0c[W0j0D0 #g0O0`0U0D00 H#vh0W0f0X[(WW0j0L000O(uW0f0D0j0D0vL0peYO0B00~0Y0n0g0laW0f0 #O0`0U0D00& F [K0L00] 200000000n000g0000L0zvuW0~0W0_00 True False$ FCreateTextFileWriteLineLabelPostalCode2ҋB `ComboBoxBranchtxtIDD Pd00000000W0_04XT00F0N^000000000W0j0J0Y0_L0B00~0Y00 NtNn0c[bD[J/6R-g0@OoB)F f,O-H!m` _3DM}22l CheckMemoLabelPresidentName LabelName LabelAreaCode LabelPersonCheckPresidentNameKanaDCheckAddressKanaD CheckTelNoDCheckAreaCodeD LabelAddressLabelAddressKana LabelTelNo CheckPerson CheckFaxNo CheckEmail 3y7txtNameD txtNameKanaWtxtPresidentName1WtxtPresidentName2WtxtPresidentNameKana1WtxtPresidentNameKana2WtxtPostalCode1WtxtPostalCode2W txtAddressWtxtAddressKanaW txtTelNoW txtAreaCodeW cmdSearchW LabelResultcmdToDoccmdToDB cmdSearchD cmdToWord cmdUpdate cmdCompare cmdSelect txtAddressD txtAreaCodeD txtNameKanaDtxtPostalCode1DtxtPresidentNameKana1DtxtPresidentNameKana2DtxtAddressKanaD txtTelNoD txtPersonD txtFaxNoD txtEmailDtxtMemoDCheckNameKanaWCheckNameKanaDCheckPresidentNameWCheckPresidentNameDLabelPostalHihunWLabelPostalHihunD cmdFromDBCheckPostalCodeWCheckPostalCodeD LabelNameKana CheckAddressDLabelPresidentNameKana CheckTelNoWCheckPresidentNameKanaW CheckAddressWCheckAddressKanaWCheckAreaCodeWcmdSearchW_ClickcmdSearchD_Click cmdExit_ClickcmdFromDB_Click GetDataFromDB CompareWAndDDeleteCheckBoxResetTag RefreshBoxClearDataBaseBoxCheckBoxForRegistcmdCompare_ClickcmdUpdate_ClickCheckBeforeRegist cmdToDB_ClickcmdToWord_ClickComboBoxTypeW_ChangetxtNameKanaW_ChangetxtPresidentName1W_ChangetxtPresidentName2W_Change txtPresidentNameKana1W_ChangetxtPresidentNameKana2W_ChangetxtAddressW_ChangetxtAddressKanaW_ChangetxtAreaCodeW_ChangetxtPostalCode1W_ChangetxtPostalCode2W_ChangetxtTelNoW_ChangeComboBoxTypeD_ChangetxtNameKanaD_ChangetxtPresidentName1D_ChangetxtPresidentName2D_ChangetxtPresidentNameKana1D_ChangetxtPresidentNameKana2D_ChangetxtAddressD_ChangetxtAddressKanaD_ChangetxtAreaCodeD_ChangetxtPostalCode1D_ChangetxtPostalCode2D_ChangetxtTelNoD_ChangetxtPersonD_ChangetxtEmailD_ChangetxtFaxNoD_ChangetxtMemoD_ChangecmdToDoc_ClickcmdSelect_Click =?ABܶ\?={{yJ"_DP{}\s@}Bd^1g[=Jh&L  txtMemberNoW txtMemberNoD LabelMemberNoqBGF) Zy7X  23uˊfn00000L0 0c[W0f0O0`0U0D0 0n0~0~0g0Y00 K0L000000Label43 2 0Sb{v2 0n04XT0DB{v2Y00S0h0L0g0M0~0[000 ( 0-J\ 0n0kg0DB{v2W0f0O0`0U0D00 @X%R&{SL0*geQRn04XT0000000k0{v2Y00S0h0L0g0M0~0[000 T000n00000L0Lj000f0D0j0D00F0g0Y00HQk0000n000000Lj0c0f0O0`0U0D00Uy M6L9tN۟n(_Aif93;H]M{+C/bDHGX;zLabel32Label35ILabel36Label37Label38Label39Label40Label41Label42 txtChangeDateLabel44Label45 txtAddress txtAgentName txtClientNameComboLicenceNo_Head txtLicenceNo txtCallSign txtGitekiNo txtSyoninNo txtProductNotxtLicenceNoCounttxtCallSignCounttxtGitekiNoCounttxtSyoninNoCounttxtProductNoCount txtAreaCodeA`;Bn g9n by7 ComboPurpose ComboMoveArea txtIssueDate ComboKind txtTermDate txtFrequencytxtPowertxtMemo txtLicenceNo2 txtCallSign2 txtGitekiNo2 txtSyoninNo2 txtProductNo2 txtEstabDate txtBeginDate L