ࡱ> #Sahzvzn~ K [ZY _^]\ RAbjbjcTcT>%%%%%9998qu\9IpT%%%= k!l!8LDkIkIkIkIkIkIZLNdkI9%"/ ^ ""kI%%%=Ia'a'a'"%p%%=/La'"LDa'a'2*~*%3+9!&J*.I0IR*,`O!&`O~*~*B`O%*,""a'"""""kIkI&p"""I""""`O""""""""" :  FORMTEXT touroku-hk2011.dot !q}@\Sb FORMDROPDOWN   FORMTEXT      t^ FORMTEXT      g FORMTEXT      e0 FORMDROPDOWN 0 FORMTEXT        FORMDROPDOWN 0k 3u ˊ 0 FORMDROPDOWN  OjuS  FORMTEXT      FORMTEXT      OO@b0000  FORMTEXT       OO@b  FORMTEXT       0000  FORMTEXT       l TSo0 Ty  FORMTEXT      0pS Nhy_w  FORMTEXT       0000  FORMTEXT        FORMTEXT       Nhl T  FORMTEXT        FORMTEXT       qjuS  FORMTEXT       N t N _ N t N OjuS  FORMTEXT      FORMTEXT      OjuS  FORMTEXT      FORMTEXT       OO@b0000  FORMTEXT       OO@b0000  FORMTEXT       OO@b  FORMTEXT       OO@b  FORMTEXT       l T0000  FORMTEXT       l T0000  FORMTEXT       l T  FORMTEXT      0pS l T  FORMTEXT      0pS Nhy_w  FORMTEXT       Nhy_w  FORMTEXT       0000  FORMTEXT      0 FORMTEXT      0pS 0000  FORMTEXT      0 FORMTEXT      0pS Nhl T  FORMTEXT      0 FORMTEXT      0pS Nhl T  FORMTEXT    >@BHLNjlnpr땉}ncQnC9h$CJOJaJjh$CJOJUaJ#jhQh# OJQJUh@1h=eOJQJjh@1h=eOJQJUh@1h=eOJQJo(h@1hFOJQJo((h$rh$rB*CJOJQJaJo(ph*h$rB*CJOJQJaJmHnHphu4jh$rh)IB*CJOJQJUaJphh$rB*CJOJQJaJph(jh$rB*CJOJQJUaJphBp6 ^ `  N P  dG$XD2gd1  @dG$gd1  dG$gd1  dG$gd1 dG$gd1$a$gd+y $4$a$gd+y$a$gd- $G$a$gd$r టຑs_N= h@1h+yCJOJaJnHtH!jh@1h+yCJOJUaJ&jhCJOJUaJmHnHu'j4hh&CJOJUaJhCJOJaJjhCJOJUaJ!jh$CJOJUaJh$CJOJaJ#h@1h+yCJOJaJnHo(tH&jh$CJOJUaJmHnHujh$CJOJUaJ!jHh$CJOJUaJ   $ & ( 2 4 6 8 T V X Z \ ȶ}lXF6h@1h+yCJOJQJaJo(#h h+yCJOJPJQJaJo('jhQh# CJOJUaJ h@1h+yCJOJaJnHtH*jh$CJOJUaJmHnHtHu)j8h$CJOJUaJnHtHh$CJOJaJnHtH#jh$CJOJUaJnHtH#h@1h+yCJOJaJnHo(tH!jh@1h+yCJOJUaJ'jhQh# CJOJUaJ\ ` b d f h l n ٸ٭reQr:,jhh1CJKHOJUmHnHu'jhh1CJKHOJUhh1CJKHOJ!jhh1CJKHOJU&h1h1CJKHOJo(v*h1h1@7CJKHOJo(vh1CJKHOJo(#j4hh1CJOJUjhh1CJOJUhh1CJOJhh1CJOJo(h+yCJOJPJQJaJo(      " İљ|kWљk=2h1h1@YCJKHOJnHo(tHv'j:hh1CJKHOJU hh1CJKHOJnHtH#hh1CJKHOJnHo(tHh1CJKHOJo(,jhh1CJKHOJUmHnHu'jhh1CJKHOJUhh1CJKHOJ!jhh1CJKHOJUhh1CJKHOJo(jhh1CJOJU" $ & ( < > @ J L N P V X Z \ p r t ~ ̻̐u_K̻7̐'jfhh1CJKHOJU&h1h1CJKHOJo(v8*h1h1@<CJKHOJo(v8hh1CJOJo(jhh1CJOJU,jhh1CJKHOJUmHnHu'jhh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJUh1CJKHOJo(.h1h1CJKHOJnHo(tHv òÇx^Dò0'j hh1CJKHOJU2h1h1@CJKHOJnHo(tHv82h1h1@CJKHOJnHo(tHv8jhh1CJOJU,jhh1CJKHOJUmHnHu'j hh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJUh1CJKHOJo(hh1CJKHOJo(#hh1CJKHOJnHo(tH     $ & ( * > @ B L N P R ȹs_ssKBh1CJOJo('j hh1CJKHOJU'jF hh1CJKHOJU hh1CJKHOJnHtH&h1h1CJKHOJo(v8*h1h1@<CJKHOJo(v8h1CJKHOJo(hh1CJOJnHtHjhh1CJOJU,jhh1CJKHOJUmHnHu!jhh1CJKHOJUR Z \ ^ ` t v x òvgSvgChh1CJOJnHo(tH'j, hh1CJKHOJUjhh1CJOJU,jhh1CJKHOJUmHnHu'j hh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJUh1CJKHOJo(.h1h1CJKHOJnHo(tHv2h1h1@CJKHOJnHo(tHv òvgWHW㧘'jhh1CJKHOJU2h1h1@CJKHOJnHo(tHv8 2h1h1@CJKHOJnHo(tHv8 #hh1CJKHOJnHo(tHjhh1CJOJU,jhh1CJKHOJUmHnHu'jJhh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJUh1CJKHOJo(teV@,&h1h1CJKHOJo(v8*h1h1@<CJKHOJo(v8hh1CJOJnHtHjhh1CJOJU,jhh1CJKHOJUmHnHu'jhh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJUh1CJKHOJo(2h1h1@CJKHOJnHo(tHv82h1h1@CJKHOJnHo(tHv8  468BDηηp\Q=η'jxhh1CJKHOJUh1CJKHOJo(&h1h1CJKHOJo(v8*h1h1@<CJKHOJo(v8'jhh1CJKHOJUhh1CJKHOJo(jhh1CJOJU,jhh1CJKHOJUmHnHu!jhh1CJKHOJU'j4hh1CJKHOJUhh1CJKHOJDFH\^`jlprt|~ӿਙmYEਙ'jhh1CJKHOJU&h1h1CJKHOJo(v*h1h1@CJKHOJo(vh1CJKHOJo(hh1CJOJjhh1CJOJU,jhh1CJKHOJUmHnHu'jhh1CJKHOJUhh1CJKHOJ!jhh1CJKHOJUhh1CJKHOJo(<<<< << <"<ôodڙPNôڙ:'jhh1CJKHOJUU'jhh1CJKHOJUh1CJKHOJo(&h1h1CJKHOJo(v*h1h1@CJKHOJo(vhh1CJKHOJhh1CJKHOJo(jhh1CJOJU,jhh1CJKHOJUmHnHu!jhh1CJKHOJU'jbhh1CJKHOJU  0 FORMTEXT      0pS qjuS  FORMTEXT       qjuS  FORMTEXT       Nn0!q}@\n0 Yf{v20SQ0_0D0n0g00 FORMDROPDOWN   {v2juS FORMTEXT      {v2t^ge FORMTEXT      t^ FORMTEXT      g FORMTEXT      e Yf0_h0Y00t1u FORMDROPDOWN 0 FORMDROPDOWN 0 FORMDROPDOWN 0 FORMTEXT      RW0_0N FORMTEXT       0!q}-Pn0<@<B<V<X<Z<d<f<h<n<sbNsb42h1h1@7CJKHOJnHo(tHv'jLhh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJU.h1h1CJKHOJnHo(tHv2h1h1@7CJKHOJnHo(tHvh1CJKHOJo(hh1CJOJhh1CJKHOJo(jhh1CJOJU,jhh1CJKHOJUmHnHun<p<r<t<<<<<<<<<<<̻̐rcSC0%jh@1h=eCJOJQJUaJh@1hFCJOJQJaJo(h@1h}CJOJQJaJo(h1CJOJPJQJaJo(hh1CJOJnHtHjhh1CJOJU,jhh1CJKHOJUmHnHu'jhh1CJKHOJU hh1CJKHOJnHtH!jhh1CJKHOJUh1CJKHOJo(.h1h1CJKHOJnHo(tHv <<<<<<<< = ====(=*=>=ȸzgQC9h$CJOJaJjh$CJOJUaJ*jh$CJKHOJUaJmHnHu%jh$CJKHOJUaJh$CJKHOJaJjh$CJKHOJUaJh(<h& CJOJQJaJo(#h+yhFCJOJPJQJaJo(h@1hFCJOJQJaJo(%jh@1h=eCJOJQJUaJ+jhQh# CJOJQJUaJh@1h=eCJOJQJaJ<=(=====0 $IfXD2gd-kdl$$Ifc\j u'j  o  064 cac $IfXD2gd$ $IfXD2gd $IfXD2gd+y>=@=B=L=N=P=R=f=h=j=t=v=x=z=========ඥoҔZH#h+yh& CJOJPJQJaJo((h(<h& B*CJOJQJaJo(ph'jh(<h+yCJOJUaJ h(<h+yCJOJaJnHtH!jh(<h+yCJOJUaJ!jhh$CJOJUaJh$CJOJaJ#h(<h+yCJOJaJnHo(tHjhT8CJOJUaJjh$CJOJUaJ!jh$CJOJUaJ========>>>>>$>&>(>*>,>ͷܧ͑ܧ~oY~I9jh$CJKHOJUaJh(<hRYCJKHOJaJo(+ju!hQh# CJKHOJUaJh(<hRYCJKHOJaJ%jh(<hRYCJKHOJUaJ+j hQh# CJKHOJUaJh(<h2_CJKHOJaJo(+jM hQh# CJKHOJUaJh(<h2_CJKHOJaJ%jh(<h2_CJKHOJUaJh(<hFCJOJQJaJo(,>@>B>D>N>P>R>T>f>h>|>~>>>>>>>>>>>ѻѦqѻ\J:h(<h=eCJOJQJaJo(#h(<hFCJKHOJQJaJo((h(<hu%nB*CJOJQJaJo(ph%jt#h$CJKHOJUaJh(<hFCJOJQJaJo(#h+yhFCJOJPJQJaJo((h(<hu%nB*CJOJQJaJo(ph*jh$CJKHOJUaJmHnHujh$CJKHOJUaJ%jU"h$CJKHOJUaJh$CJKHOJaJ=R>T>f>>tk $Ifgd+y $IfXD2gd-ukd"$$Ifc0j 'j t064 cac $Ifgd$>>>>>uu $IfXD2gd$a$gd-ukd#$$Ifc90j 'j t064 cac>>?v??h_V $Ifgd+y $IfgdkIL$G$IfWDXD2^`Lgd~kd$$$IfTc0 ( k t0644 labT>>>???$?&?(?*?,?H?J?L?N?P?d?f?ݸm]MA.%j(h$CJKHOJUaJh$CJKHOJaJjh$CJKHOJUaJh(<h2_CJOJQJaJo(+j&hQh# CJOJQJUaJh(<hCJOJQJaJo(+j%hQh# CJOJQJUaJh(<hCJOJQJaJ%jh(<hCJOJQJUaJ#h(<hF@CJOJQJaJo(h(<hFCJOJQJaJo(#hhFCJOJPJQJaJo(f?h?r?t?v?x????????????˶zjWH2W+j)hQh# CJOJQJUaJh(<h<CJOJQJaJ%jh(<h<CJOJQJUaJh(<hFCJOJQJaJo(#hhFCJOJPJQJaJo((h(<hu%nB*CJOJQJaJo(ph(h(<hFB*CJOJQJaJo(ph(h(<hkIB*CJOJQJaJo(phh(<h+yCJOJaJo(*jh$CJKHOJUaJmHnHujh$CJKHOJUaJ???V@@vmd $Ifgdu%n $Ifgdu $IfXD2gd|kda)$$IfTc0 ( k t0644 labT???@ @ @@@,@.@0@2@4@P@R@T@V@X@ͷܪxkUG2(h(<hkIB*CJOJQJaJo(phh(<h+yCJOJaJo(+j],h$Vh$VCJOJQJUaJhYCJOJQJaJo(+j+h$Vh$VCJOJQJUaJh$VCJOJQJaJjh$VCJOJQJUaJh$VCJOJQJaJo(+j*hQh# CJOJQJUaJh(<h<CJOJQJaJ%jh(<h<CJOJQJUaJh(<h<CJOJQJaJo(X@@@@@@@@@@@@@@@Į}m`SC5+h$CJKHOJjh$CJKHOJUh!2hQCJOJQJaJo(h}{CJOJQJaJo(hCJOJQJaJo(h(<hWa CJOJQJaJo(hFCJKHOJQJaJo(#hWa hFCJKHOJQJaJo(h(<hFCJOJQJaJo(*jh iCJOJQJUaJmHnHu#hhFCJOJPJQJaJo((h(<hkIB*CJOJQJaJo(ph(h(<hu%nB*CJOJQJaJo(ph@@@@@@6AhAttfffZ d,$Ifgd$ d,$G$IfgdQ $IfXD2gd~kdI-$$IfTc0 ( k t0644 labT@@@@@@@@@@A A AAA$A&A(A2A4A6A@ABAVA༬࢑xn]xIx&jhQp;CJKHOJUmHnHu!j.hQp;CJKHOJUhQp;CJKHOJjhQp;CJKHOJUhQp;CJKHOJo(!jM.h$CJKHOJUh$CJKHOJh!2hQCJOJQJaJo(h!2hQCJOJQJaJo(&jh$CJKHOJUmHnHujh$CJKHOJU!j-h$CJKHOJUVAXAZAdAfAhAjAlAnArAtAxAzA~AAAAAAAAAAAAAAAAAAAAAAAAAAA෥zvh,Q2 h^o(h ih^hdth[h!\jh!\Uh+yhFCJo(#hhFCJOJPJQJaJo((h(<hQB*CJOJQJaJo(ph&jh$CJKHOJUmHnHujh$CJKHOJU!j!/h$CJKHOJU'hAjAlApArAvAxA|A~AAAAAA~ywywywywuwugd+ygdu%n|kd/$$IfTc0 ( k t0644 labT AAAAAAAAAAAAAAAAAAAAAAAAAAAAd<]AAgdu%n:&P 1}2P:p+y. A!S"Q#S$n%S D000000 Ttouroku-hk2011.dotDf00000004xbW0f0O0`0U0D0 Yf{v23uˊf{v2 YfJ\vDK0L003uˊt^vDK0L003uˊgvDK0L003uˊeDfK0L00DB{v20DB{v2n0D K0L002WcDB{v2JS҉eW[xDfK0L00k InputForm CheckForm c[W0f0O0`0U0D0 SwmS}TO@\wqgS}TO@\wqg}TO@\wO}TO@\wSx}TO@\wqgwm}TO@\wяu}TO@\w-NV}TO@\wVV}TO@\w]N]}TO@\w l~}TONR@bwDf00000003 lN0VSO0 PNn0%RlNVSO PND K0L00NtNOjuSMR3AhJS҉eW[ InputForm CheckFormD K0L00NtNOjuS_4AhJS҉eW[ InputForm CheckFormD InputForm CheckFormDK0L003uˊOO@b InputForm CheckFormDK0L003uˊOO@b InputForm CheckFormDK0L003uˊl T InputForm CheckFormD K0L003uˊNhy_w InputForm CheckFormD K0L003uˊNhY InputForm CheckFormD K0L003uˊNh T InputForm CheckFormD K0L003uˊNhY InputForm CheckFormD K0L003uˊNh T InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormD K0L00NtNOjuSMR3AhJS҉eW[ InputForm CheckFormD K0L00NtNOjuS_4AhJS҉eW[ InputForm CheckFormDK0L00NtNOjuSMR3AhJS҉eW[ InputForm CheckFormDK0L00NtNOjuS_4Ah InputForm CheckFormDK0L00NtNOO@b InputForm CheckFormD K0L00NtNOO@b InputForm CheckFormDK0L00NtNOO@b InputForm CheckFormD K0L00NtNOO@b InputForm CheckForm|D NtNl T0000~D _NtNl T0000DK0L00NtNl T InputForm CheckFormD K0L00NtNl T InputForm CheckFormD K0L00NtNNhy_w InputForm CheckFormD K0L00NtNNhy_w InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNNhY InputForm CheckFormD K0L00NtNNh T InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormD K0L00NtNqjuSJS҉eW[ InputForm CheckFormDf00000005xbW0f0O0`0U0D0ll,{27agn030n0[k0003uˊW0~0Y00ll,{27agn030,{4n0[k000J\Q0Q~0Y00jDjDjDDK0L003uˊe InputForm CheckForm$$Ifc!vh5j 5 5o 5 #vj #v #vo #v :V c065j 5 5o 5 / 44 cacDf0000000600yR{V0 YfDf0000000700,g>yOO@bn0 YfDf00miRn0b'Yn0_000yR{V0 YfmiRn0b'Yn0_000hTlpe0 YfmiRn0b'Yn0_000yR{V0hTlpe0 YfjD$$Ifc!vh5j 5t#vj #vt:V c065j 5t/ 44 cacjD$$Ifc!vh5j 5t#vj #vt:V c9065j 5t44 cac$$IfY!vh5 5k#v #vk:V c t065 5kabTDf 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 NzzjD$$IfY!vh5 5k#v #vk:V c t06,5 5kabTDf00%351.2MHz^351.38125MHz06.25KHz30l05wDf00(351.16875MHz^351.19375MHz06.25KHz5l01wDf Dropdown200)351.16875MHz^351.38125MHz06.25KHz35l01wDf Dropdown1002351.2MHz^351.38125MHz~0g0n06.25KHzn030ln0O(uo0hQVn0x Nk0P00$$IfY!vh5 5k#v #vk:V c t065 5kabTjDjDjDjD$$IfY!vh5 5k#v #vk:V c t06,5 5kabT Microsoft Forms 2.0 FormEmbedded Object9q VERSION 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 = 170 End op$  }t &R KQ_zv00009+3J+foCompObjaVBA@P+Y+ThisDocumentG[__SRP_46$__SRP_47[  !"#$%&'()*+,-./012345678:;<=?@ABCDEFGHIJKLMNOPQRTUVWXYZ[\]^_abcdefghijklmnopqrstuvwxyz|}~.!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?b1baa@Vsaaoa(rU G(8 Fa !!"a 1## $A%%$(q&I&&&&'9'Q'' ( a  4!a)!`` FIFFWFHK.x$ 4lx/xl'''0*#x*#t*#p*#l*#h *#d*#` *FP 2xtplhd`6P0 $  l@l'''0  l#x*#pt  ,lt*FP 2xpt)6P0 dH$ @ xtplhd`P0 Kwlhx$ 4x Xh:X]"LL  <8<<<N0{00020906-0000-0000-C000-000000000046} @` k 4`pk%@ % %(@"$(*&,.@x @t @ p @8l @Ph @hd @` @P @@ @0 @ @ @ @ @X @ @ (@X(*&,.@x s@ph #@HX $ @H <1 @D @4 @$ &@ 7 e@ 4@ @0 &@ 7 e@` @R@x @ &@ 7 e@ @ @ @ x @8h @PX @hH @8 X @( @ @ @@ @ @ @ @@zP$*\Rffff*Cf50cc7a1c*\R1*#c1*\R1*#17b*\R0*#19*\R0*#13$*\Rffff*Cv50cc7a1c*\R0*#14*\R0*#e$*\Rffff*D<50cc7a1c*\R0*#941  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:// $3   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 .!0 * 1c*\R0*#1c$*\Rffff*Cy50cc7a1c$*\Rffff*Cq50cc7a1c*\R0*#2*\R0*#1*\R0*#f*\R0*#4*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#f$*\Rffff*D<50cc7a1c$*\Rffff*D450cc7a1c*\R0*#1d*\R0*#1e$*\Rffff*D750cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*D150cc7a1c*\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*DE50cc7a1c$*\Rffff*Cp50cc7a1c*\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*Co50cc7a1c*\R0dY cg~_iwo[pMՍ9.k.K""L " "L"LLLLL "LL LL*LP<<<<<<<<<<<<<<<<<<<<<<<0{054B1C2E-2F3C-4336-8F82-2E300C89C85D}{C87F9B44-9719-4E4B-9AF9-81A34E0AB6B8}/pT >`8kxx @xX% Etx%`Hr`Lj \ ^ `P8 X n%`r 0`k~ nxP%`t `k nx%`t `xk (`k,8`kh ]]i i   nt%`f"`d" `% D0% .x`pkii- `"k%% `@$k-- 8 `x&k NN x `(k !!6  `*k 22W \ `-k   ^ `.k HH ntP%`j`d `%,``1k i  z``4kXXz`z |`6kWW`z ~`8tk  ) 8`x9tk$ 2 x``:tk( ; `H;tk, D `0<tk0 M 8 `=tk4 V x `>tk8 _  `>tk< h  `?tk@ q 8 `@tkD z x `AtkH   `BtkL   `pCtkP  8 `XDtkT  x `@EtkX   `(Ftk\   !`Gtk`!  8 "`Gtkd"  x #`Htkh#   $`Itkl$   %`Jtkp%  8 &`Ktkt&  x '`Ltkx'   (`hMtk|(   )`PNtk)  8*`8Otk*  x+` Ptk+  ,`Qtk,  -`Q4k-++% nx% .`S|k.PX% % xx x8 8 8  8x (0x x88 x  xx 8 8 8 `%<0% `@(pX @l @d @0b H @H` 0 @P @@ Pbltv|@0 @ `0   @0 @ @p H@ pp@ @  8 @ @H ` '@ pH'H)@ *@ *,@ @ @ @Xp.*&@ @ @ &.*@xp @` @P @L @0< @H, @` @ @ @ @ @ @ px&.*@hp @` @P @L @ < @8, @P @ @ @ @ @ @ hr@x hP8.*&@z @t @p @l @h @d @` @(P @@@ @X0 @p @ @ @ hX8(Xph `@z X@@p @n @@h *v@PP @ L @H @h4 @$ @ @ @ @ l "$&(.&@ @X @ !( X !@ !x!bl 02s @p x @v @ d @` :s @ P @!@ `f  468 :<>s @BDe FHJ@0!< @H!8 :s @`!4 @0 `f !LN.*&t @, :s @! @! @ @ 0Tq #"####P048<@DHe@8#x `f "LR26:>BF"JNTVXZ.*q @t e@P#p @l @h#h 0Tq @d e"&8@#T @#D @#4 e@$$ @($ @ @ ep%$%%X%@%b|@%x $l% e(%"&(.*&@t @%p n @l e@%h @d @&T n @&D e@0&4 @H&$ @`& n @ e@ '0'( (H'x''b|@'x n @v '.*f @p @'l p @h e@'d `f @` `'&=ep @8(P e@P(@ `f @h(0 @( p @( e@ `f @ )h)))))l p @*x e@p*h @X*X P)"$&q )(.*&e@T 8p @(*P @L p @@*H @D `f @*4 @*$ i @* e@ @ 0,++++,,bP048i @H,x e@v @,d @,T p+<@DH+L.*&@P @`,L )* @H e@x,D `i @@ @,0 i @, e@, @ @ --P.h.--..*&e@.x `i @t @ .p i @l e@8.h `i @d @.T i @.D e@.4 `i @.$ @. i @ e@ `i p8X//00H0/h101 0`vl @z ,$ @0p e@1l \0``f %0@`0L ,$ @x0< @0, `f @0 @0 ,$ @ e@1 /"@P1 ,$ @ 1 e@ 0$&(.*@ )* @ e@1 @ 81&e$ 23223P42842h` e``h2z 220r h2l&nlj @3t 0r @3d e@03T @`3D @H34 XXn @x3$ e@3 1n @ @3 0r @ e@ r 2*prt@4 0r @h4 e3vx  4.0r @<@ 0r @ eH85P5h55Pbl0 4@5t @5d :s @6T e@@6D @@ 585<@e5DHL5&Xq @(60 @X6 e@p6 @ @ @7X7p78Rlb2 6e@7t $ @7d @8T Xq @H8D @@ (7:7>B7FJNe7&$ $ @080 @`8 Xq @x8 e@ @ `9H909bPe$ @x e@t $ H:0::0`$ @x @t e0;;;4@x @t `$ <<;4q ؟q e@x $ @t =<<8e^$ @x e@t ===8`$ @S@x `$ @t e>>>@$ $ @x @t `$ ???D$ $ He@x $ @t @@p@L@x @t ApAXA<@x @t pBXB@B<@x @t XC@C(CH@x @t @D(DDlR@x @t (EED 2@x @t FEE6@x @t FFF6@x @t GGG:@x @t HHH:@x @t IIIB@x @t JJhJF@x @t KhKPK@x @t hLPL8L>@x @t PM8M M>@x @t 8N NN@x @t OON"@x @t POO&@x @t PPP$@x @t QQQ(@x @t 8SRRRSS0nl4@ St @Rd @T @D @B @< @hS8 R8@4 PS<v@SDHLPT+//XGzP$*\Rffff*Cg50cc7a1c$*\Rffff*DA50cc7a*#17*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#1b*\R0*#1bT48<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|V  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"SS ,ST T"T )T"0T@T ,PTT T"T )T"TT *TU U"U )U"0U@U *PUU U"U )U"UU *UV V"V V V 0V PV "pV*V4eVV $V*W4h0W4hhWW *W*W4hW4h(X`X hX*X4hX4hXY Y*0Y4hHYY Y*Y4eYY Z* Z4h8ZpZ $xZ*Z (ZZ Z"Z  Z [ [ ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H]@.@tp://]`.D] H @%J.D] L D!N L D%T !PB@R L H !P(V !P(X !P(Z]StringƃG[]StringƃG[] StringƃG[0123D'^wȂ@lc̶lD'` ^\x !b(d !b(f0,40 !b(h H ^ H$^ H+\ H H ` H$` H+\ H \ !b(j !b(V !l(d !l(f0,40 !l(h H ^ H$^ H+\ H H ` H$` H+\ H \ !l(j !l(V].n] t'rID͕sŽ !v(x !v(zOWordADBƂύXs· !|(~ !|(X !(~ !(X   n%!!x   n%!!xe@l !b(V   n%!!xec !b(V   n%!!xel !b(Vk    n%! !|(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x !(~ !(~ !|!x !( f[^܂͂Ă܂B !( !(~d !|!x !(x n!% !( !!x2f[^x[Xɓo^Ă邩mFĂB !(d0 !( !!x6f[^x[Xɓo^Ă邱Ƃ͊mFĂ܂B !(kkA@A@ !(~ !(~ !(~ !(~ !(~ !(~ !(zA@|   .!0 .!0 * .!2A@&ko ].n] !!x'Ƌl̏Z̊mF  $  n!% ̏ZmFĂBA@&|kd ̏Z͂Ă܂BA@&|k  n!% !(x|  .!0 .!0 * .!2A@&kPoH0 8]p.n] !!x'Ƌl̏Z̊mF  $  n!% ̏ZmFĂBA@&|xkpdh ̏Z͂Ă܂BA@&|0k(  n!% !(x|  .!0 .!0 * .!2A@&ko A@ro F |pkh|` X .!0 .!0 * .!2A@&k o( F'].n n!% n!%'dzk]  n!%']].  !!x   n!%.] "DBɌ‚ȂƂ@VKo^ !( !!x͂܂o^Ă܂B !(A@A@z  eDBɕ‚Ƃ@I !( !!xo^Ă܂B *&uIv{^NbNĂB !( !!x !(  !(zA@z e. %T.ID %T !v(xtype %T !l(Vname %T !(xnameKana %T ! (x postalCode %T % !(x postalCode %T % !(x president %T !(x president2 %T !(xpresidentNameKana %T !(xpresidentNameKana2 %T !(xaddress %T !(x addresskana %T !(xtelNo %T$telNo %T- %  !(xd !(xk areaCode %T !(xperson %T !"(xfaxNo %T$faxNo %T- %  !$(xd@ !$(xk( email %T !&(xmemo %T !((x !( !!x"̓o^mF邱Ƃł܂B !(TextBox1㏑ n!B@6ݶcID !v!x n!%*z( k n!B@,k !!x !(~k A@ !(~ !(~A@'z  .!0 .!0 * .!2A@&kX iP 8 FA@ !b!~ !l!V !b!V !l(Z !b(Z !b(z !l(zk k !!~ ! !x !!x ! (Z !(Z !0(z !2(zk k !!~ !!x !!x !(Z !(Z !4(z !6(zkx !!x !!x !(Z !(Z !4(z !6(zkk !!~ !!x !!x !(Z !(Z !8(z !:(zkh !!x !!x !(Z !(Z !8(z !:(zkk !!~ !!x !!x !(Z !(Z !<(z !>(zkX !!x !!x !(Z !(Z !<(z !>(zkk !!~ !!x !!x !(Z !(Z !@(z !B(zkHk@ !!~ !!x !!x !(Z !(Z !D(z !F(zkk !!~ !!x- %  !!x- %  !(Z !(Z !H(z !J(zkk !!~ !!x !!x !(Z !(Z !L(z !N(zkXkP|H @ .!0 .!0 * .!2A@&kox F !P(z !0(z !4(z !8(z !<(z !@(z !D(z !H(z !L(z !R(z !2(z !6(z !:(z !>(z !B(z !F(z !J(z !N(z !T(z !V(z !X(z !Z(z|  .!0 .!0 * .!2A@&kHo@ F !b(  !|(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !l(  !(  !(  ! (  !(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !"(  !&(  !(( |H @ .!0 .!0 * .!2A@&ko F !(Z !b!~ !b(Zd !b(Zk !|!~ !|(ZdH !|(Z* Me.txtNameW.BackColor = &H80000005k !!~ !(Zd !(Zk !!~ !(Zdh !(ZkH !!~ !(Zd !(Zk !!~ !(Zd !(Zk !!~ !(Zd` !(Zk@ !!~ !(Zd !(Zk !!~ !(Zd !(Zk !!~ !(ZdX !(Zk8 !!~ !(Zd !(Zk !!~ !(Z !(~d !(Z !(~kh|` X .!0 .!0 * .!2A@&k o8 FDB^u𔒎 !l(V͋󗓂ɂȂ Me.txtNameD.Value = "" ! (x !(x !(x !(x !(x !(x !(x !(x !(x !(x !(x !(~ !"(x !$(x !&(x !((x|  .!0 .!0 * .!2A@&kXoPx F !b!~ !P(z !P(xk !!~ !0(z !0(xk !!~ !4(z !4(xk !!~ !8(z !8(xk@ !!~ !<(z !<(xk !!~ !@(z !@(xk !!~ !D(z !D(xk !!~ !H(z !H(xk@ !!~ !L(z !L(xk !(~|  .!0 .!0 * .!2A@&ko FA@. !(~ !(~|` X .!0 .!0 * .!2A@&k o F `|k]8.n n!% n!%'d|k]X  n!%']p].  !v!xIDC@b !l!xtypeC@b !!xnameC@b ! !xnameKanaC@b !!x presidentC@b !!x president2C@b !!xpresidentNameKanaC@b !!xpresidentNameKana2C@b !"!xpersonC@b !!x !!x postalCodeC@b !!xaddressC@b !!x addresskanaC@b !!xareaCodeC@b !!xtelNoC@b !$!xfaxNoC@b !&!xemailC@b !(!xmemoC@bq !v!x   n!%d|k  !v(x !!xo^܂B !(dh  !v!x n!%f|8k0 !!xXV܂B !(k !(~ !(TextBox1㏑ n!B@6ݶcID !v!x n!%*|hk` n!B@,|H @ .!0 .!0 * .!2A@&ko '` !l!Vʂw肵ĂBA@&zk !l!V !l!V !!x ̎͂ĂĂBA@& !B@hzd !!x n$l$j !(xk ! !x &̎tKi͂ĂĂB *s܂H p ̎tKi$& r ! B@hz(k d ! !x t$l$j ! (xk k !!x &̑\Ҏ͂ĂĂB *s܂H p ̑\Ҏ$& r !B@hz0 k( d !!x n$l$j !(x !!x &̑\Ҏ͂ĂĂB *s܂H p ̑\Ҏ$& r !B@hzH k@ d8 !!x n$l$j !(xk k !!x .̑\ҎtKi͂ĂĂB *s܂H p ̑\ҎtKi$& r !B@hz@ k8 d0 !!x t$l$j !(x !!x .̑\ҎtKi͂ĂĂB *s܂H p ̑\ҎtKi$& r !B@hzH k@ d8 !!x t$l$j !(xk k !!x "̗X֔ԍ͂ĂĂB *s܂H p  ̗X֔ԍ$& r !B@hzX kP dH !!x v$l$j !(x !!x$x (̗X֔ԍ͐œ͂ĂĂBA@& !B@hzk !!x /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@hz@k8 !!x "̗X֔ԍ͂ĂĂBA@& !B@hzd !!x v$l$j !(x !!x$x (̗X֔ԍ͐œ͂ĂĂBA@& !B@hz8k0 !!x /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@hzkkk !!x ̏Z͂ĂĂBA@& !B@hzHd@ !!x n$l$j !(xk !!x &̏ZtKi͂ĂĂB *s܂H p ̏ZtKi$& r !B@hz`kXdP !!x t$l$j !(xk  !!x "̓dbԍ͂ĂĂB *s܂H p  ̓dbԍ$& r !B@hzxkpdh !!x v$l$j !(x !!x-$ $x 2̓dbԍ͐ƃnCtœ͂ĂĂBA@& !B@hzkk !!x (̎s撬R[h͂ĂĂB *s܂H p ̎s撬R[h$& r !B@hzkd !!x v$l$j !(x !!x$x .̎s撬R[h͐œ͂ĂĂBA@& !B@hzPkHk@'`z0 ( .!0 .!0 * .!2A@&ki]H'type !P!x !b!V !l(V !l(Z !b(Z'kPmemberNonamenameKana !0!x !!x ! (x ! (Z !(Z'k presidentName !4!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k?presidentNameKana !8!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k? postalCode !<!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'kH>address !@!x !!x !(x !(Z !(Z !(~'k= addressKana !D!x !!x !(x !(Z !(Z'k0=telNo !H!x !!x !(x !(Z !(Z'k<areaCode !L!x !!x !(x !(Z !(Z'k0<personfaxNoemailmemo Bf[^x[X֔f̂`FbNĂsĂBA@&k;o;`]'type !R!x !l!V !b(V !l(Z !b(Z'k:memberNonamenameKana !2!x ! !x !(x ! (Z !(Z'kH: presidentName !6!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'kx9presidentNameKana !:!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k8 postalCode !>!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k7address !B!x !!x !(x !(Z !(Z'k`7 addressKana !F!x !!x !(x !(Z !(Z'k6telNo !J!x !!x !(x !(Z !(Z'kX6areaCode !N!x !!x !(x !(Z !(Z'k5personfaxNoemailmemo :Word֔f̂`FbNĂsĂBA@&k85o05 !b!  !b(  !(~ !P(zk4o4 !!  !(  !(~ !0(zkx4op48 !!  !(  !(~ !4(zk4o4x !!  !(  !(~ !4(zk3o3 !!  !(  !(~ !8(zkX3oP3 !!  !(  !(~ !8(zk2o28 !!  !(  !(~ !@(zk2o2x !!  !(  !(~ !D(zk82o02 !!  !(  !(~ !L(zk1o1 !!  !(  !(~ !<(zkx1op18 !!  !(  !(~ !<(zk1o1x !!  !(  !(~ !H(zk0o0 !l!  !l(  !(~ !R(zkX0oP0 ! !  ! (  !(~ !2(zk/o/8 !!  !(  !(~ !6(zk/o/x !!  !(  !(~ !6(zk8/o0/ !!  !(  !(~ !:(zk.o. !!  !(  !(~ !:(zkx.op.8 !!  !(  !(~ !B(zk.o.x !!  !(  !(~ !F(zk-o- !!  !(  !(~( Me.CheckAreaCodeD.Visible = Truek8-o0- !!  !(  !(~ !>(zk,o,8 !!  !(  !(~ !>(zkx,op,x !!  !(  !(~% Me.CheckTelNoD.Visible = Truek+o+ !"!  !"(  !(~% Me.CheckPerson.Visible = Truekx+op+ !&!  !&(  !(~$ Me.CheckEmail.Visible = Truek*o*8 !$!  !$(  !(~$ Me.CheckFaxNo.Visible = Truekx*op*x !(!  !((  !(~# Me.CheckMemo.Visible = Truek)o)].nƋl̖O̐Ƌl̖O͏ƍȂƋl̖OtKi̐ !0!x !!x n$l   n%(k)Ƌl̑\Җ̐" !4!x !!d n$l   n%( !!d n$l   n%(kX($Ƌl̑\ҖtKi̐ !8!x !!d n$l   n%( !!d n$l   n%(k'ƋlX֔ԍ̐ !<!x !!d v$l   n%( !!d v$l   n%(k&ƋlZ̐ !@!x !!d n$l   n%(kx&ƋlZtKi̐ !D!x !!x n$l   n%(k&Ƌl̓dbԍ̐ !H!x !!d v$l   n%(k%Ƌl̎s撬R[h̐ !L!x"݂ɂ͖Ƌls撬R[hȂk%o% B@o$$Attribute VB_Name = "Ƌlo^"D Bas0{054B1C2E-2F3C-4336-8F82-2E300C89C85D}{C87F9B44-9719-4E4B-9AF9-81A34E0AB6B8} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://www.hd.co.jp/webmaster@ Option vlicit Pgk Sub UForm_Initialize()B @ rror GoTo ErrMes Dim cBranch As c$ls ASetF= New myCollecA(GiInteg erO D&.Get(i3%j> j@1 @9.Coun@I Me@mboBoxC9.AddItem (jNext j$ListIndexi ockB Back7g= &HE0AIgmyArray()2 "0", "12,3"'$2'w@Ȃ@lc̙$Re@(1, UB8dZ(e)I!n/TjWa$Mooo3 vX}4 43sEnd Ifm#W!I]`.).ResuldwKana`4?3tKi?xt@sidentQ115,\Ґ;_\2__[_\ E t/@I V=ostalCode X֔ԍO3v/ ~4.Addps/C/%Z/ xta, S1TelNodb? ?0 0c4cmdSearch/fs?Z'; ""EA@Label>.`eGFF&Ca3ܰf^e܂͂Ă܂BuDM0EiPage1(nE@lse Me.txtNameD.Valueh = LWLIf cP.INI.ReadCID()`0 ThenJLabelResult.ForeColor\&HFF&-Caption+& "f[^xXɓo^Ă邩mF" 4B"nE U80 12WƂF͂Ya܂YnPd IfAERefreshBox etTagcmdToDoc.EnabldedFa@BSearchD!WordYUpdateYComparSelect.Visi32DteCheckCExit Sub ErrMes:CFC@.Numbe r <> ͱMs g  & vb@CrLf &BDescriªgiPriv> ! cCSW_Cl ick()&OnGoTo*#Dim@ As clsPapDerSet=p Newmy@entAddsAStrin?C% 'Ƌl̏ZU(C- `)"" A@ Not IsNultl()@AreaCode.Insert= ЎC6c\P4"lA-E"nʆ$C f܂+yFR )@r౅D0 ]_#ϥ<@JB _rr__C_$_ ___Ccl_?_Gl?_ss?_B`?_>VR?_/$/x ///XB5S/~~=PN@OAM/__ pt!V/'______y__U_i/!UnlxoadЖ^bmdFromDB3b`mC@TGetData5rV oCA./s/s/s'/sEwubr Funcj (O2w al ByP myIDmLong)Boolea On.G3 wFylDB.B(True)хjmybasA^+۪r%4Q%S myBSIntegSb5@u44CountAll񘁺#qmyk㊟t,>  v,`3,0 ID l k Љ=^'DB‚DP @VKSPLooϠ/'ق& ͂܂υC0/rB0%Va u`Regis6t ?% A'(> 1C"&I}_ \1F_W @u v{㓂NbN00 #.`T 7?G/ }=~364 6!ection = myAllColl.Item@(1) Me.txtIDD.Value "ID" dComboBoxTypeD.ListIndexzt$ ?rNam:tn 6Kana:APostade1 VBA.L@eft(my}p"), 3(B2 (Righ(4(residentRNtI&Y2T$$.T` &$'E)Adds_9aO8A" !k If Not IsNulltelNo")) Then;TRe place, "-""Else ""End If#AreaCodsa)Person)pBI(fax(F(C" (5 (Email e!/(MemomLabelResult.FHore or&H8012<xCap8Am& "̓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 ,"`a2W.Value Then  Me.txtPresidentNameKana2D.BackColor = `&HC0F#vW#vChecky@isiblevTruer6D.V6End If#If ~ostalCode1W.Ena=d> <<>'< W"҃ dX VG@G ? * GמAdd@s F#c LFqa#Lrw A(`H) )essAw d*$ߣkk + TelNo*VBA.Replace(C,+, "-"") @t@nh5D '(߀3W ?AD +Area?,cV \Vt*}+@'<2?@ )xit Sub ErrMes:C~ShP.Num(ber'0|Ms gBox H& vbCrLf &RDescriptio40Privateq Delete2ɀ() On0GoToc # 5Type)'Falst%uoҜeڔ9rP GP74k.9}?k4&ko9T__j`6$>MOBPerson(=EFaxNo/)Email/)MemO EBC SBBBBBqCBResetTagBBe.Com 0 ThensgBox & vbCrLf & Descr iptioEnpd If7@P@rivate! (RefVh()  Onor GoTo(C CD.BackCol@ = &HE0AA)1 ComboTypeW.EnabledAFalse5e. E@D805 B(߁3'F h& '!UWU/ 1c2mC_l_$OD0J2,!fa #Y B-A2?.+.` >rn'?/$ tP.. --W?(?, _+BapW?tTsgR E0U}Y#o_&H 6#  x _ _ w ? ? xt Ov D  4 cmdSearch ELA QTruer4ClDataBase__ 'DB^uc0>)D.ListIndex47'͋PɂȂ 3BÚVala28,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_bopTypeGtawnameqqY߻Wpion2ot2~]Q 1" dm~eaSoberson} AHA9F$qa k_Rf(qtxAFaxNofEmaileMem(mtaM63Ic5QI6LInsxerth@B<,;ID)U1<2U!V@myIl1LabelResult.C>at <$"o^0BT Ce n,2? 3??.? n? @„& 0 XV? (ð (|m#)FPpp = &HH8012'TextT1㏑lINI.Re|ad1@^BY(""=YcYP_w K TSaveS@ O:OOO Funo ()pBoolDea O_stω=  mL@Index0"ʂ w$Ă0?+u $%oxssuOr2 1\0 w@ .G Mc\AB=̎=R BcAP*FocuP Exit Function b lse4TMe.txtNameD.Value = Trim(StrConv(@, vbWide))nd I"fIf 7Kana\"" The/sgBox(c\ & "̎tKi ͂B"\ _wK&QCrLf#s܂H"_YesNo, 5")vbNoU/mSetFpocusD"E}E 9Katak^i-FlPres@wn„1ml\AnlkkjM5SlUHjKioRWAkMc2g%2Sd2hi hj" iip5)pj:q5ieju?k'+?989 ?m&$mimL)8!9q3o!Eا)b6ٿ?iT>d}2eTS Y1AmT%?Uy9ostalCodeo9!O̗X֔ԍU 8ωˉ5/B ?zloyPN`arrowNot IsNumeric)_ MO͐a .__Q^.P Len {) 3  ௖%u3-48v d& xt  XXap P,?2ݼ_ Y _ _ 12O ,,de,, orM,#?-?-7[-cP-| ?.'2.4?.2OI.޿AQPAdd0sf(ȌZ|/c<,/ v ElseMe.txtAddressD.Value = Trim(St@rConv(, vbWide))nd If " If hKana"" Then*.sgBox(c\ & "ZtKi@͂BX" _GK&CrLfBs.܂H"YesNo, 3")~vbNo Q-iSetFocusAExit FunctiosE% ălKatakATelNobdbԍaa`1_b F]IA\Narrow[Not IsNumeric(Replac&e "-@""<))Ë`͐ƃnCǓŔ CD?'VdXc wreaCodeK|s撬R[hK"6 {vb||+ LAf%|N%Q|?MM KA 1L_K1%K CheckBeforeRegistudL ErrMes:RS.`qber <> 0,mMlDescripǸE aGPrivate Sub cmdToDB_Click(Dim b As Boolea%$ bFaF't\yp$ck TWh@ 0CombFo@aD.L%Index W  BackColor&H805W. TrdD'memNo'nam$anN0_%I{$#j pP@ntA NP1_r]J2/es 2//Pxt__\1O)000[,_],+M/,J/1!O/ @GQo ostal!o:4 T>'?_q2tPPo&8_] 82X/&aCAsd<.mO O% SearchD.Enabled 7ֳddressKa na If Me.CheckAW.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####q 1OOOe__lX֔ԍ_9e.R9W++;9r9O3>$ ?,hNarrow9q4lZAΟN!S M? Z74O7O7O7J7   tZZdb.H bE 4%Z s撬R[ho&e&d 'CsɂC~ȂCGe"4 S}ІSe0lectSI.Show       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ\k^_`abcdefghij[lmnopqrstuvwxy{|}~iDI0iDD)!EI0iIEI0iqEI0iEI0iEI0iEI0iEI0iF6I!7` D)F`QD)F`Q2G2G29G2YG`2G`2G`2 H`Q2AH`2yH`2H`2H`2H`2I`A/)1IrU 0/x :Z@ic)yم !"! ) ,FQ i  A !! !PaA%$a A%{n I.Y9|Y}q }iyaIi , 9~Y!EIyy )i q  9!!!i""A# $0 TAAAiAA@42A`82A&` <2 B'` @21B`D2aB ` H2B!`Q L2B"` P2C$` T2)C(` X2IC)`Q \2iC+` `2C*` d2C,` hI0iClI0i?pI0i3tI0i/xI0i/|I0i+I0i+I0i'I0i'I0i DI0i1DI0iaDI0iDI02aI`Q  0II`IA/)IA/)IA/)J!8 I8 A/)1J$A/)iJ(A/)J,A/)J 0 0IJ`4A/)J 8 0IK`<A/)9K @ 0IYK `Q D 0IyK `HA/)KLA/)KPA/)K T 0IG-`Q  X 0I/` \ 0I;` `A/) LdA/))L h 0IIL`l2iL#` p2L%`Q tA/)LxA/)L|A/)L  0IM.` /WWW_____ _    _    _    _  j KJ x tlrx Qltjdt $ldc`8' @jMP@t @l l l6@ jd`K!krD@l l l5@l l ll l 0lv:Pl:0l:l: l@ Z@6 Yd5@v:P l:0 l: l:l@ Z@6 Yd5@%l l l dl (@l l Xl5@l l tlrlckrlkrl rdcrlckrlkrl rd5lM N' '@l l l6@ (@l l l5@l l dl (@l l Xl5@l l tlrlckrlkrl rdrlckrlkrl rd5lM N' '@l l l6@ (@l l l5@ Bp&:PN@@l l l5@l l ll l ll l ll l ll l lCdl+ l | 4ld)lBqCdl+ l | 4ld)l (@l l l5@qCdl+ l | 4ld)l (@l l l5@qCdl+ l | 4ld)lq (@l l l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+ l l>F@  )l5@Hl+  l l>F@  )l5@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 @l '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@ /,Lltpx p 0lL0/Lp*'''<12*F` .6`<*'''<13*F` .6`<>Lltpx p 0>LF`  )p5`$ +pp ,lpl'''< +pp ,l#L-*# + ,,l*F` .2L)p6`< ,xt0 Lp`<K! x%`p p ``1tp5`lt=tMP@ /,Lltpx p 0lL0/Lp*'''<12*F` .6`<*'''<13*F` .6`<>Lltpx p 0>LF` $ )p5`$ +pp ,lpl'''< +pp ,l#L-*# + ,,l*F` .2L)p6`< ,xt0 Lp`<Plx4$5 6x$ xK'z*kz"$p +tt ,lptl'''0p +tt ,lp#l-*#`d +hh ,,ld*FP .2l`d)th6P0$ 0 ld`thP0X KW pz t.h+npt pp $7lh=/hpo'h+npt pp $7>h8py/$nv8pt pp (7knpfp `QPp p H dPhkfLt pL 7QH`/h)pL5P kdp p $pLPp p P:49$hL L @$/h)pL6P$**/ kd{p p $pbPp p P:4:$:-:;hL L @$/h)pL6P$?Pp p PhL L /h)pL5Pp p p*/ kd D#$(P` $D6P$8$:4<NPPD $p p p6P$8$:4=NPPD $p p p6P$8$:4>NPPD $p p p6P$8$:4?NPPD $p p p6P$J$:4@NPPD $ A p p p6P$J$:4@NPPD $ B p p p6P$8$:4CNPPD $p p p6P$8$:4DNPPD $p p p6P$8$:4ENPPD $p p p6P$8$:4FNPPD $p p p6P$8$:4GNPPD $p p p6P$8$:4HNPPD $p p p6P$+$:4INPPD $ /6P$^$:4INPPD J$h KFp p /hp6P$*&:4NPPp p p5P8$:4LNPPD $p $p p6P$8$:4MNPPD $p Xp p6P$+$:4NNPPD $ /6P$(^$:4NNPPD J$h KFp \p /hp6P$P&:4NPPp \p p5P8$:4ONPPD $p `p p6P$8$:4PNPPD $p dp p6P$p p $pLPp p P:4Q$hL L @$/h)pL6P$npt @p |'pQPp p nPhRSLt @L t'kn/h)pL5P/npt @p 'p,Pp p P:4]@p5P p Tp 8#p*p Pp 8#pp p 8#p*pz/$ +pp ,lp l'''$ +pp ,l#h-*# +LL ,,l*FP .2h)pL6P$/ 0`tD4 hpLHP$8 KH *$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx x x$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx 0x x$vx x kvxZGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx 4x xGdx x dP` ` P@)x`6dPXx x 0xx x 0xx x xx 4x x$vx x kvxGdx x dP` ` P@)x`6dP5x x 0xx x 0xx x xx 8x xGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx 8x x$vx x kvxGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx <x xGdx x dP` ` P@)x`6dPx x 0xx x 0xx x xx <x x$vx x kvx_Gdx x dP` ` P@)x`6dP]x x 0xx x 0xx x xx @x x$vx x kvx<Gdx x dP` ` P@)x`6dP:x x 0xx x 0xx x xx Dx x$vx x kvxf dx x P` ` Jd< K#4JP8 K#0=2<840)x`6dPd x x 0xx x 0xx x xx Hx x$vx x kvxC Gdx $x dP` ` P@)x`6dPA x $x 0xx x 0xx x xx Lx x$, +xx ,l,x l''@'P, +xx ,l,#<-*#48 +`` ,,l8*Fd .2<48)x`6dP@ $ 4 <840x`dP@0KFx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx 0x xx 4x xx 8x xx <x xx @x xx Dx xx Hx xx Lx xx hx xx lx xx px xx tx x$t +xx ,ltxl'''4t +xx ,lt#p-*#dh +ll ,,lh*FT .2pdh)xl6T4$ 0 phdxlT4 K4x x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx x xx $x xx x xx Xx xx `x xx dx x$t +xx ,ltxl'''4t +xx ,lt#p-*#dh +ll ,,lh*FT .2pdh)xl6T4x$ 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)xl6T4T$ 0 phdxlT4 Kz*kz t.l+zpt pp $7ll=/lp'l+zpt pp $7>l8p$zv8pt pp (7kzpjp ` l`\BLp p '' :<<N,,L\ p6L, BLp p '' :<=N,,L\ p6L, BLp p '' :<>N,,L\ p6L, BLp p '' :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$wt$  80\    D @Xh4@ D!H"L#l$P%p&8'<(T)X*`+\,d-T.g#$`$`$`$A `$ `$ `$  ` $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 N$N`$AN` $N`$$N`($N`,$AN`0n1rU H$H`T$AH`X$c7a1c*\R0*#10*\R0*#2*\R0*#1*\R0*#f$*\Rffff*D450cc7a1c*\R0*#e*\R0*#19*\R0*#13*\R0*#17*\R0*#14*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c*\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$.8%<@*D)HLPTX\"`#d!h$l&pt/x|t) cao.d8$Jp9ܪ>M17ܟ?{*-jIR'$^3@6iux$^3@6iud8$JpMEx@SPSSS8F"B"p>"  ""LLL"LLL*LP<|<0{8539EBAB-AADC-4D3E-A131-37B6DC9F3F7B}{9D2D042A-156A-49EB-81BE-8F030552E827}`%% % >`@4k# @xx% Eterdy%`Hr --`LjE nK % \ 4; ^X 21 22@ ` 25x   x`X k ++ nx@P%`v` ` k$UU nx% % 8`xk(0 `hk,G nx%`r&`F`F`l& `0xk0h`8%h %"4@x8 (``  x`0 (@l @d @8b P @x` 8 @P @@ P@X0 @p H8 &.@ @ @  0$@ @ @ @  @ @ @0 @H @`p @` @^ xQ@\ QS@ Z  T@8 X ( TP V@` V x 8 [@ T ` [@P ` ]@ N d@ L d( f@8 J P  n@p H ` 8 n 8 p@ F p q@D q s@@ z*@( < @@ 8 @4 H(`  ( h ( @ X &.*@@ p @ ` @P @ @ @ @ 0 @ @  @ @ @ @X  @ @ @p  @ 0@Xp0h&@t @d @T @D @4 @$ @ @ @ @H @H @ `p%h@ @ @ (.*@ 9@ @` @ 80H`hp&rx.@x @xh @X @H @PD @4 @$ @ @ @  @ @ @ @ *@ @ x0`&*@t @` @P  @@ @ 0 @8 @P @h @ @ @ @ @ @ @ @ 1@H @ @ hpr@ xr.@t bp`p%u@h r@x  8h4 zP*\R0*#1c$*\Rffff*Ch50cc7a1c$*\Rffff*DA50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#1d*\R0*#1e$*\Rffff*DE50cc7a1c$*\Rffff*D650c 0'(,+-#  8 "X         ( 8 P h x        ( @ P ` x   "    088P p!    0@ 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`       $l "  ( 0 8H"P` "+x      ( @H `h px $ '&  $l  ("0 8 @ H,X+p  N    F $H *p  F 0 <0 p.^ "   0@ Xh    .^ 80P RX 6 J 8>^P >\:^ "0 HX p  2^ 82^ 8@`.^h 8  $l "   (_(:<P (_: &N8@H P $Xlh "     "   *+ HPX"`p "+     08 PX px  ,&+<y 0+  PX`hVp $A0+  ( >_0  $Ap 0+        BT vE8! !!!,!$+!"" K"$+8"`"h",p"$*""","$*"##,#$*0#X#`#,h#$*###,#"+#$$ $"$($ (+@$ h$p$ $$ (+$ $$0c$,+%0%8%0c@%.+p%%%  %,%,%,%B& B &"B@&Bh&B&B&B&B&' '"K' @'2P' h'p' x'5' ''' *',+'((0(2L8(+p( (( ( $(l(( ("( () ()8) ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp 0;wȂ --------CR 1;VKE31;VK 32;2;ĖƋ3;ύX4;p~5;̑ 21;VK 22;•ʐVK23;J24;ύX 25;ύX% 26;ύXo^ 41;^ --------SR 6;VKE 11;VK% 12; 7;ĖƋ 8;ύX 9;p~ 10;̑ 71; 72;ύX 73;8]@  ]`.@].D] H @%J.D] L D!N L D%T !PB@R L H !P(V !P(X !P(Z].n !(X !(X !(X !(X !(X !(X !(X !(X]StringƃG[](StringƃG[]`StringƃG[>-------------------------------------------------------------- ݃y[Wn̏擾  ݈ n%!!xKTw肵Ăij悪w肳Ă܂BA@&|`KTkCdgǗǓaij01~234567D'^wȂDyэLHٶ_kD'`KTkdgǗǓaij0101112131415D'^wȂ{R`HcXD'`KT֓dgǗǓaij0202122232425262728D '^wȂ敔s_ސtʶQnȖضRD '`KTMzdgǗǓaij03233D'^wȂVD'`KTkdgǗǓaij0363738D'^wȂxRΐD'`KTCdgǗǓaij041424344D'^wȂm򕌶OdÉD'`KTߋEdgǗǓaij0484950515253D'^wȂɶsޗǶa̎RD'` KTdgǗǓaij05657585960D'^wȂLRRD'` KTldgǗǓaij063646566D'^wȂQmD'` KTBdgǗǓaij069707172737475D'^wȂF{啪{D'` KTdgǗǓaij047D'^wȂD'`S*ڑf[^x[Xݒ肳Ă܂BA@&|n ^\ !(d !(f0,40 !(h H ^ H$^ H+\ H H ` H$` H+\ H \ !(j !(VƋǶD'\ H \ H$\ !B@R H !(V !(~ !(X !(ZwȂVK•ʐVKJݶύXύXύXo^D'\ H \ H$\ !B@R H07D'^wȂo^D'` ^\ !(d !(f0,40 !(h H ^ H$^ H+\ H H ` H$` H+\ H \ !(j !(V \r ^r `r ݎw肵Ă n%!!x!(KTw肵Ă|KTύXo^\ !(VKT o^ύXͬ !(VS@|8n0|(   .!0 .!0 * .!2A@&ko ](.n!(]H !!V(KTwȂ葱w肵ĂBA@&!|XKTVK'KT•ʐVK('KTJ'KTύX(z'KTύX'KTύXo^x'S | n ]`  n!%'! !  !(xd8 !(xk |  .!0 .!0 * .!2A@&k o x  ].n !!x!tԍ󗓂łBA@&|h k` ].!x !!x n!%. !(| k  ? If Not IsNull(.Item("aID")) And .Item("aID") <> "" Then0 myString1 = "aID"$ myString2 = .Item("aID")(z End If!? If Not IsNull(.Item("cID")) And .Item("cID") <> "" Then* myString1 = myString1 & ",cID"6 myString2 = myString2 & "," & .Item("cID")z End If!type7T$type7T!type7TKTwȂ !(VKTVK0 !(VKT•ʐVK !(VKTJ  !(VKTύX(  !(VKTύX !(VKTύXo^  !(VS | n k area7T$area7T area7T !(x ( kK If Not IsNull(.Item("receiptNo")) And .Item("receiptNo") <> "" Then( 0 myString1 = myString1 & ",receiptNo"C myString2 = myString2 & ",'" & .Item("receiptNo") & "'".!0 End If receiptDate7T$ receiptDate7T( receiptDate7TgggeNmmdd % !(xk( frequency7T$ frequency7T!|( frequency7T KTwȂ !(VKTo^0005 !(VSx !(Vn`kXcounts7T$counts7T~counts7T !(xkcharge7T$charge7Tcharge7T !(xkmemo7T$memo7Tmemo7T !(xk@q8|0 ( .!0 .!0 * .!2A@&ko  !!x !!xvZȂ܂H p ŠvZ$& r!|hk`kX !!x !!x !!x$x !!x % !!x' !!xv !(xkk|  .!0 .!0 * .!2A@&kpoh8 X]x.n..] !!VKT'KT'S G[@ǎ킪w肳Ă܂A@&&|n] !!VDBKTwȂ葱w肵ĂBA@&|HKTVK""'KT•ʐVKx'KTJ(x'KTύX(x'KTύXx'KTύXo^x'S|xnp !!x tԍ͂ĂBA@&x|(d  !!x % !!x % P%tԍ8/9œ͂ĂBA@&|kk KKKKKKKKKKKK K)KT !!x % 6%CR̎tԍ́u6vŎn߂ĂBA@&|kKKK K K K KGKHKIKT !!x % 9%ML̎tԍ́u9vŎn߂ĂBA@&|0k(S |n T_ProgressNet receiptNo !!x n!% $̎tԍ͂łɎgĂ܂B *XVĂłH piǗDB̍XV$& r|Hk@k8 !!xt͂ĂBA@&|k !!x n!%tmFĂBA@&|k !!x mFĂBA@&|Hk@ !!x %x mFĂBA@&|k !!x mFĂBA@&|k !!x %x mFĂBA@&|Hk@ !!xnw肵ĂBA@&|k] !!VKTwȂuo^ǁvw肵ĂBA@&|KT150'Shuo^ǁvw肵ĂBA@&|8n0 !!x !!x %x"͔pœ͂ĂBA@&|k !!x !!x %x$S͔pœ͂ĂBA@&|XkP  kindC@b typeC@b  frequencyC@b !!xareaC@b !!x receiptNoC@b !!x receiptDateC@b !!xaIDC@b !!xcIDC@b !!xcountsC@b !!xchargeC@b !!xmemoC@bq] !!x  n!%'   n!%|k  e   n!%|PkH e$tԍ̏d͎sOɊmF!tԍ2ˆȏqbg܂BA@&|k !!x ݐiDBo^ n%(I܂BA@& A@r|` X .!0 .!0 * .!2A@&k o Ǘ҃j[.Show A@r‚܂oAttribute VB_Name = "iǗo^" Bas0{8539EBAB-AADC-4D3E-A131-37B6DC9F3F7B}{9D2D042A-156A-4b-81BE-8F030552E827} 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" 0fhenawH& vb@CrLf &DescriptioTuIf0vqwPrivateAx cmdRecePNo_Click( [ On!PGon0 ua zcP1>clsPaper#Set p= New C}1KaIntegW&O1i >0"$"谉m&x1m1\my = 236)u_?pe@<256(a3+4q 0c45t .?31642?30=00s!q'!@String#my=%.DBHqp44"" T4e.txtJV>P*"Di7??? #???O?E?]Progress|DB??a+1? ?4Ad-Ŏtԍ󗓂ł;%5N3%@lceQP%6QyAJmyWJotPj`p'DataFrom((xIs Not>h@.o [With* 'q1P@ IsNull(.("aID"`_e0Qmy7AAh/ c ? Q W & |",o BDa 2 r","P  6m("t0*("type") <> "" T@hen Select Case .Item bF0 'wȂDLMe.comboT.ListIndex =$ 0R21S@VK,S1S2S•ʰ) 2)3)J+{3'4'ԍX'4'5')56(o^=6ElseExit SubKEnd IfIf Not IsNull(area")) AVŮA@.Value 'A receiptN>o "J#FAmyString1@!!& ", % 2 2 A'"d`'"_+`Dat*,*-txtR#-VBA.Form at8* , "gggeNmmdd")O2a'a22frequency,2_"NFEb.e 7@sr 5sHvvcountsl3ICb w$_\@\charg[b$ qʘmemCM?MAQWi thX ErrMes:S5P.Number0 MsgBox H& vbCrLfHQDescrQiod@[`Priv`Fqa cmdCal_@Click(?  Onor GoTo@ 0+pFC1aO Ps ("vPZPH",A YesNoIŚ@=No_ nυme.1 -> Pqmeric(d(\W0oe)d_ D= 1575 + e * 630\(P x&(((($?(W((!Dim cP As clsPaper#*Setq= N ewmyCol! 2P@h>t`cmy Ki5Integ׿Cqg#! l1d0|?evf4C"G[@ ǎ킪"dzĂ܂ 55s #!/ =x 5 P" B/ ܮ"my = 22?17h2h;h2?h2/$ BspU4Nor~vtԍ `Ă ] `aVLenP8Ie r9X 8/9œĂB"  Exit SubTEnd If Select Case myTypef(1, 2, 3, 4, 5 2226 e341?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ၯZ !I1Chk 2 k'Fa`>,pmF#>A@gentIDc@㗝l6L IsNumericdJ?!cce?Clic\ҟ :.k=?comboPArea?0MnwL)>CDimFrequency As Integer ٠Rb.ListIpndex0 'ȂGeduo^ǀ+&! "1 150 my= 7B/ {xQ] / /,/ID?oo3 ȹi= -'&̏d͎sOњIV2ˆqbgi0I߈ Getr(pKAGAMI%HqDBc").Result*4U I~Unload M ErrMes:SP.pberHxQDesc~r6L!P(riv- @‚_l@ Z@6 Yd5@g:Pl:0?l:@l@ Z@6 Yd5@rU O  :Znic !"E) ,FpA%)yم 9i9Yy1QYq )Ii )I9YyIi9Yy )I9Yy )Ii )Ii )Ii )Ii )IiiuwAaF%$a a.{ysH9ѫٓa)~Yy| {qA )   a !n )  1 y  a Ii - $Aninnnn 8 0In...`N<D)n%%%@2oD2Ao***H2ao)))LA/)oP2oTA/)oX2g\D)g ` 0I p"""`INdA/)1p###h2Qp!!!lD)_$$$pA/)qp&&& t 0I1`INxD)!E///|6!7` NA/)K   A/))L 0I_` NA/)7000A/)qA/)AqA/)iqlv: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 p p h>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 p  \l4/)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`r*''' *F` 6` ,`t t ` t5`*''' *F` 6` ,`t t `:@]3t5`(*''' *F` 6` ,`t t ` t5`*''' *F` 6` ,`t t `(@]3t5`+''' :@N`` 6` `t t `ttt(@]3D+''' :@N`` 6` t(@]3^p+''' :@N`` 6` c`t t `:@]<    0')t6`0! +''' :@N`` 6` c`t t `:@]<    0')t6`0 +''' :@N`` 6`  4p,'' :0N``rM@@p 6` ,'' :0N``M@@p 6` ,'' :0N``M@@p 6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` B`t t '':@N  `p t6` cpK`t t k`x p  <lql/)t5`ll 24tx p t @k)t x ll< 5ll4tx p t Dk)t7 x llx +''' :@N`` 6` L`t t `+x  p /)t5`+''' :@N`` 6` lt$ t$ tt ltl'''  tt l#*#h  ,l*F` 2h)t6` 8t pPtx< ht` Plx$ x$ x|`8t0*\R1*#c5*\R1*#44*\R0*#9*\R0*#1d*\R0*#1e$*\Rffff*Ck50cc7a1c$*\Rffff*Cs50cc7a1c$*\Rffff*D350cc7a1c$*\Rffff*D950cc7a1c$*\Rffff*D=50cc7a1c$*\Rffff*D>50cc7a1c*\R0*#11$*\Rffff*D550cc7a1c$*\Rffff*Cf50cc7a1c*\R0*#f*\R0*#12$*\Rffff*Ch50cc7a1c$*\Rffff*D450cc7a1c*\R0*#10$*\Rffff*Cx50cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46$*\Rffff*DE50cc7a1c$*\Rffff*Ct50cc7a1c$*\Rffff*DB50cc7a1c$*\Rffff*Cg50cc7a1c$*\Rffff*D750cc7a1c$*\Rffff*Cr50cc7a1c*\R0*#23*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c*\R0*#2*\R0*#1$*\Rffff*Cv50cc7a1c$*\Rffff*D;50cc7a1c$*\Rffff*D250cc7a1c*\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\syste`Q4]E`4kWD[M֗^D;iqbBꄯj^%E~@NQ!Co9jtfAQcxtfAQckWD[M֗^DME0SPSSS"p">"L """ ""L"""LL """""LL" ""LLLL"LLLLLLLL <4<8<<<@``XkT<< nLX% &`kX B ,`8k\ K X`k`T nx8X%`.l~22 2`kP&&q nx!%`Hp@`.l! :(`h|kd >` kh`@ D`(Hkl  F `@kp n% L ``kt  nxx`% T `h kx  nx% X  `X"Hk|  Z` `p#Hk  \ `$k  ^`x&k! b`h(hk##/ nx8 n%`.`fy[`h .`l n`ny[` `,k@@R nx(%`.t`f`h2`p h`.(kFF nxy%`.t----`----`f`h[W`' `1@k.. nx %`t%8 P%`.L `5k"" Dp% n<% `(7k( n% X ``9k@ nP %  `;k[ n %  `=|kv 8 `>\k} x `?xk  `X@xk  `(Axk 8 `Axk x `Bxk  `Cxk  `hDxk  `8E\k ff nxP %`tX`p`l`h` d(   %(   %8 x 8 (X  h x ` `X   %P%@p@ @(x @Xt @Hd @` @0P  "$@J @D .*&@@ @< @8 @`( @x @ @ @ `xH(*@x @h @X @H @D @4 @$ @  @  (* @Px @8h @X T@hH ; @D 0O@4 @$ 00@ E@  @h@t @r @h *&0.8 @d @T @(D @@4 @X$ @p @ @ @ @ @ @  x8@8t @r @h @f  @d h @P` *&0.@P\ @L @< @, @@ (@ @  @ @ @ @ < Hh(**&B. @8x @ h @hX @PH @D @4 @$ @ @ @ @ @ @ @ @x @(h @X @H (*p&H.@0x @@h @XX @pH @8 @( @ @ @ @ @ @ @ @H @ `0`NRP.*&@v @Hp @l @x\ @8 L @H @D @@ @< @ , @  @P @ @ P!!!!8! !@h!t .*&@p @!l @h @!d @` @!P @!@ @"0 @(" @@" @ @ #(#@#"@x @X#h @X @H ($@$X$$@x @p$h @X @H p%@%%%X%(%<.*&@%x @t @%p @l @%h @d @&T @&D @0&4 @H&$ @`& @ @ `'0'''H''`.*&@x'x @t @'p @l @'h @d @'T @(D @ (4 @8($ @P( @ @ X p@P)8))h) )(*p**,*&Rpr@+v @@*p @+l @)\ @)L @)< @), @) @* @ @* @H+ @+ )t.@ *p*4@ @* **d@, ,*@`+ @0+ @x+ @ @ @ @+ @+ @+| @+x @t @0,p H,,@X,l p,0,@h X,X**Hx`0X.8---P-(..@p.p @n &Rr@-\ @-L @-< @-, @. @ @@. @ @ @. @ h-t.*@. @ 8P`0p////0 1@1p @n &@/\ @0L @0< @00, @H0 @ @x0 @1 @0 @ @0 @0 @0 @1 @81 /.*@P1t @h1d @1T @1D @4 @10 @, @( 04H423444&@2d @2T @2D @(34 @3$ @@3 @X3 @p3 @3 @3 @4 @3 @3 @4 @x4 @t @`4p @4l @4h @X @T 2$.*@J @D @@ xX86555 665$*&.@7x @6h @6X @6H @B @P68 @h64 @0 @6 @6 @6 @ @ @ @ 7878897*p&r.@09x @(8h @@8X @X8H @p88 @8( @8 @ @9 @8 @ @ @ @ @H9 @ 8 :P;::h;;:*p&r.@0:x @H:t @`:p @x:l @:h @d @:T @:D @;4 @ ;$ @8; @; @ @; @ @ @ @ <X=<<p==h<*p&r.@<x @=t @<d @<T @=D @(=4 @@=$ @= @ @= @ @ @ @ @ >X?@?NR@p?l @\ @@(@r@x A@r@x AAr@x BBr@x ChCr@x PD8Dr@x EEr@x X p 8 EpGF FPIhI(p&r$@G` @8FP @PF@ @hF0 @F @F @G @F @F @F @F @(G @G @@G @XG @Hp @8Il @Ih E N @GX @GH @H8 @H( @0H @HH @`H @xH @H @H @H @H @I @ I @x @h @d @` G"(.*@\ `6!! ( P20 zP$*\Rffff*Ci50cc7a1c$*\Rffff*Cy50cc7a1c$*\Rffff*DD50cc7a1c*\R1*#91*\R1*#83m32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*D150cc7a1c*\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*D<50cc7a1c148< @ DHLP^T-Xa\`dbh]lptx|&)*+Z[\_`%   8 "X "  ?BB "8H Xhx  I 0      !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHQJKLMNOPCRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}2 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 "    ,6J+PX `h'p & ! ^+8@ H!P h^+x*9  (+8"KP-x* "K- "K"K   HX(.`  # # # #  0#@ P#` p# # # # # #(8h0h*$D     & ( 08 h8C#8F#  ( 8#H6=X # # #  #8H #`p # # # # #(8 #P` #x6= # # 0 #HX #p # # # #  #8H #`p # # # 26 (J    ( 8 H8=h ) ) 4 8)  )@ X  )`  )p  8=   K  K ! 2! /H!:)`! !JK! ! /")" 0""K8" `"h" Kp" K"" 8="" K" K#8# 4@# /x#<)# #LK# ($ /0$)H$ `$"Kh$ $$ K$ K$$ $%>C%,P%%>C% % ,%&  &0&8&>C@& & <&& . &'>F' P' :`'' , ''>F' ( D0(x( 6 (((>6( ) V5)p) H@x))) )06) * >5(*h* H@p***  ****  * ++ + $ +l0+P+ X+"`+ h+ p+ x+++'+ &+++ +!+ +^+,`,h, p,!x, ,^+,---$- 0-@-H- P-*`-%p-+-"K---*- "K--. "K0.X.`.%h."Kx..6.2K./*O/ @@/ T/ / / /0 0 $0l(0H0 P0"X0 `0 h0 p000'0 &000 0.0 0&*1(101 81!@1 X1^+h111 1!1 1^+2h2p2 "x22T283  3,+03`3h3 *p3-3 33&+333  44(484@4H4X4`4+h44 4 $4l44 4"4 4  &45 5 5N(58x5  50+555 *5-6 (686&+@6h6p6*x66 6666 66-67 77 7+(7@7 H7 $P7l`77 7"7 7 *77 77 77 7 7 8$(8 @8H8 P8Hp8-X9 p9 2+9 9999 9 $9l9: :" : (: ^E0::: : :)::: "+:; ; $;l(;H; P;"X; `; (Hth;<< < <$<<<$== = (+(=P= X= $`=lp== ="= = P=p>x> > >$>>>$>>>  +>? ? $?l(?H? P?"X? `? "? ? ?"?  ?? ?"? ? @"@  @ 8@"@@ H@ `@"h@ p@ @"@ @ @"@ @ @"@ @ A"A A A A0A8A@AHAPA "XAfEAAA  A~B8B*9B BBBC C(C$0C  HCFEhCCC  C~C8XD&9xD DDDDDD$D E*4EHEPE  XE hxE FE:4E 8FIHF`FhF &pFAF@FF F hF  *PGAG@GG GAG GAH&V(HPH  &XHIH  HAH&VHH  &II(I +@IXI `I $hIlxII II ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H  !6%(zd  !6%(%  !6%( Ӂ@[Uj[ɂX  ! ( !(~22 !(x !(x !(x !(~ !(~ !(~ !(~]@.n n!B@6ݶ㗝l n!%Ƌl !(xw !(x !(xT !(~05 !(~V !(~ !(~ݶ㗝l n!%㗝le !(xun !(x !(x !(~ !(~ar !(~ !(~arkA@ !(~ !(~$ ! (z7 !"(z !$(x !(x|P H .!0 .!0 * .!2A@& ko` !(!x !*!x! !(~d !(~Hko !(!x !*!x! !(~!dH !(~k0o( ] .n n!B@6x]@ y[W\ y[W\ n!%'. .'. y[W\ y[W\ . * %  n!%*"y[W\ۑł܂łBA@&|k n!B@,d . * % '.k . !0(d|  .!0 .!0 * .!2A@&kxopX `5-----------------------------------------------------Kxy[W̌J5-----------------------------------------------------$݂̎ۂ̃y[Wo璲ׂ'].np n!4B@6]] H n!4!6 .  H n!4%8'.d . * H n!4%8'.Dk H n!B@6 y[W\ y[W\ . * %  n!%*"y[W\ۑł܂łBA@&|@k8 n!B@, . !0(dɏI܂BA@&43|  .!0 .!0 * .!2A@&ko <B@Ǔaio( x !(!x !*!xw XuύXo^\ƂĐݒvuo^ύX͏oƂĐݒv̂ꂩ`FbNĂB *>łɑ㗝lsĂꍇɂ́AsKv͂܂BA@&|k]h !(!xlύXo^\'@k@ !*!x66D o^ύX͏o'@k @$B|k|  .!0 .!0 * .!2A@&71ko !!xw !(~ !(~dP !(~ !(~`k(o  P{^NbNꍇAxf[^`FbNȂKv܂B *s܂H p 㗝l̎w$& H !(~ !(~ !(~].n! n!B@6ݶ㗝l n!%Jݒۑł܂łBA@&|k n!B@,k|  .!0 .!0 * .!2A@&k`oX  H]`.n H  DBo^ n%!(x ! B@N R PB@|  .!0 .!0 * .!2A@&Xko ].nH$\ n!B@V|P H .!0 .!0 * .!2A@&Dko !!x !(x !!xe! !(xko  !!x H !(x !!xeH$` !(xk@o8` ( <B@(V|  .!0 .!0 * .!2A@&ko  `B@ |  .!0 .!0 * .!2A@&k`oX H] .n  ݓo^ԍ n%!@o^ԍ͂̏ꍇAf[^x[Xɓo^邱Ƃł܂BA@& |k]@'. . n!4%d .A@&|`kX]X n!%'f fTf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&| k ]p n!%j'h hTf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&| k   DBo^ n%!(x]] R pB@ !!x  r n%! p!(x !!xe !!x   n%! p!(x F !!xe F  t n%! p!(xk k   n%! p!(x&o^ԍ'l ݓo^ԍ n%!'l l l %kKKT p!v(VKKT p!v(V֊KKT p!v(VMKKT p!v(VKKT p!v(VCKKT p!v(VߊKKT p!v(VKKT p!v(VlKKT p!v(V㊇KKT p!v(VKKT p!v(VS p!v(Vn l l %  % p!x(x l n%z'n n p!|(x n, n!% p!~(xk@ ʕZKԍ܂͔Fؔԍԍ ݔ̏uꏊs撬R[h)ComboKind0n܂Ă邽߃}CiX1 ǂ ݎw肵Ă n%!!x p!(V ݎw肵Ă n%!!xe p!(Vk J݂̖ړIuꏊړ͈ p!(V ݖݔ̐ݒuꏊ1 n%!!xKTwȂKTkCx p!(VKTk p!(VKT֓  p!(VKTMz( p!(VKTk p!(VKTC  p!(VKTߋE p!(V KT p!(V KTl p!(V KTB p!(V KT" p!(V KTS p!(Vnp ݖݔ̐ݒuꏊ2 n%!!xKTwȂKTkC p!(VKTk p!(VKT֓p p!(VKTMz  p!(VKTk  p!(VKTC p!(VKTߋE p!(V KT p!(V KTl p!(V KTB  p!(V KT  p!(V KTS p!(Vn8̑  ݖݔ̐ݒuꏊ1 n%!!x ݖݔ̐ݒuꏊ2 n%!!x ݖݔ̐ݒuꏊt[ n%! p!(VkPo^̓] ݓo^̔NN n%!  ݓo^̔NN n%!/ ݓo^̔N n%!/ ݓo^̔N n%!'l l %2' $  ggge/mm/dd % p!(xkkJݓ ύX ^pJnL gyы󒆐d ݎgyы󒆐d1 n%!!xKT p!(x p!(xKT -2:351.2MHz`351.38125MHz@6.25KHzԊu30g@5W'351.2MHz`351.38125MHz@6.25KHzԊu30g p!(x5W p!(xS p!(x p!(xnx ݎgyы󒆐d2 n%!!xKT p!!x p!(x p!!x p!(xKT ,2:351.16875MHz`351.19375MHz@6.25KHzԊu5g p!!x*351.16875MHz`351.19375MHz@6.25KHzԊu5g p!(xdX p!!x,@351.16875MHz`351.19375MHz@6.25KHzԊu5g p!(xk p!!x1W p!(xd p!!x@1W p!(xkS p!!x p!(x p!!x p!(xnH ݎgyы󒆐d3 n%!!xKT p!!x p!(x p!!x p!(xKT -2:351.16875MHz`351.38125MHz@6.25KHzԊu35g p!!x+351.16875MHz`351.38125MHz@6.25KHzԊu35g p!(xd( p!!x-@351.16875MHz`351.38125MHz@6.25KHzԊu35g p!(xk p!!x1W p!(xd p!!x@1W p!(xkhS` p!!x p!(x p!!x p!(xnύXKvƂ闝R'l ݕύXKvƂ闝R1 n%!!x$ύXKvƂ闝RFړ͈͂ύX'lkx ݕύXKvƂ闝R1 n%!!x l$ύXKvƂ闝RF{ЏZ̕ύX'ld l@{ЏZ̕ύX'lkk ݕύXKvƂ闝R3 n%!!x l4ύXKvƂ闝RFƖĝ߁Aړ͈͂ύX'ld( l @Ɩĝ߁Aړ͈͂ύX'lk ݕύXKvƂ闝R3 n%!!xe l2ύXKvƂ闝RFƖĝ߁AgύX'ldX l@Ɩĝ߁AgύX'lk  ݕύXKvƂ闝R3 n%!!xe l<ύXKvƂ闝RFƖĝ߁Aړ͈́EgύX'ld l(@Ɩĝ߁Aړ͈́EgύX'lk@k8  ݕύXKvƂ闝Rt[ n%! lύXKvƂ闝RF  ݕύXKvƂ闝Rt[ n%!'ld l@  ݕύXKvƂ闝Rt[ n%!'lk8k0 lj ݒlj n%! l lj ݒlj n%!'ld l@ljF ݒlj n%!'lk@k8 l l p!(xk pB@N pB@|  .!0 .!0 * .!2A@&ko ].n]0'. . n!4%d .A@&|8k0]H n!%'f fTf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&|k]` n!%j'h hTf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&|k]x h n!%' |k R B@  !(x h !(x !!x  r n%! !(x !!xe !!x   n%! !(x !!xe  t n%! !(xkk f !(x   n%! !(x ݐiDBo^ n%! ݐiDBo^ n%! !(xk$gggeNmmdd$ !(x: If cp.getvalue(pkagami,"ݔl").Result <> "" ThenM iǗo^.txtMemo.Value = cp.getvalue(pkagami,"ݔl").Result End If B@N B@|  .!0 .!0 * .!2A@&ko ].n]'. . n!4%d .A@&|@k8]   n%!'  w肳Ă܂BA@&|k]  n!%'f fTf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&|0k(]8 n!%j'h hTf[^̃`FbNsȂĂȂ悤łBɃf[^̃`FbNsȂĂBA@&| k  XMLt@Cw肵܂B]P $$$$00$$$00$.xml' !"  n!%' !XMLt@Cw肳Ă܂BA@&| k  n!%  n!%e A@d8 t@Cgp̂悤łBA@&| k XMLt@COutput n!4B@ $| k $| k I܂BA@&|x p .!0 .!0 * .!2A@&k8 o0 h   eLXgt@Cw肵܂B].n]$$$$00$$$00$.txt' !"  n!%' &eLXgt@Cw肳Ă܂BA@&| k  n!%  n!%e A@d t@Cgp̂悤łBA@&| k !$!x].] %'.  . %| k !!xe $|kkI܂BA@&|  .!0 .!0 * .!2A@&kxop ` !$!x]X. !|k]x.nsystemׂď n!!|k Me._Click  "eLXgt@Cǂݍ݂܂B *LȂ炸f[^`FbNsȂŁA㖳exɂMB *L\Ăꍇ́AۑĂIAxJĂBA@& !!xe (eLXgǂݍ݂ŃG[܂BA@&|@k8k0|(   .!0 .!0 * .!2A@&ko Wordt@Cی삵܂B *s܂H pmF$& r|hk`].n n!!|(k tH[ی삵܂BA@&|  .!0 .!0 * .!2A@&ko  $Wordt@C̕ی܂B *6Wordt@Cׂ͂ďC邱Ƃł܂A *LtB[h폜肷ƃvOɋ@\ȂȂꍇ܂B *8܂Af[^`FbNŏsȂ΂Ȃ܂Bs܂H pmF$& r|Hk@]8 .n n!!|k n!!|ktH[̕ی܂BA@&|  .!0 .!0 * .!2A@&kho`X P>Wordt@Cɂ邷ׂẴtB[h̃bN܂B *2f[^`FbNŏsȂ΂Ȃ܂Bs܂H pmF$& r|k] .n n!!|Hk@ n!!| kbN܂BA@&|  .!0 .!0 * .!2A@&ko  Ǘ҃j[.Hide j[.Show vbModeless B@o@ B@N R B@o8 A@r‚܂o?x A@r‚܂o? A@r‚܂o? A@r‚܂op?8 A@r‚܂oH?x A@r‚܂o ? A@r‚܂o> >]8 .n]X ]p ] ] ] CΏۂ̃t@Cw肷u (6vƂ̃NCWordf[^w肵ĂB păN$& r|>k>tB^[̐ݒWordt@C(*.doc)$*.doc$ׂẴt@C(*.*)$*.*$' !"  n!%' $ $ % ' |=k= * $|<k<  n!%'MY_FILENAMEw肷u (vw肵ĂB păN$& r|H<k@<tB^[̐ݒWordt@C(*.dot)$*.dot$ׂẴt@C(*.*)$*.*$' !"  n!%' $ $$ ' |H;k@; * $|;k;  n!%'  (u (vł͂܂BA@&|:k:CΏۃt@CJ '    z B@ $!8 (łɁu (vƃNĂ悤łBA@& B@N : $B@B|9k9 CΏۃt@C̕ی $!   $B@k09MY_FILENAMEJ '    z B@ #MY_FILENAMEt@C̕ی $!   $B@kH8MY_FILENAMEYt  $(8MY_FILENAMEی삷 $! " & l $B@$k7MY_FILENAMEۑȂŕ‚ : $B@BCΏۃt@Cی삷 $! " & l $B@$k7 CΏۃt@Cۑĕ‚ (: $B@BI܂BA@&|6 6 .!0 .!0 * .!2A@&k`6oX6P6 n!B@ IAttribute VB_Name = "Ǘ҃j@[" Bas0{E007693B-7113-4262-84BD-EA84AF6A8DCB}{45255E1A-7E9B-4E40-9D51-D421436F396A} 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()  @@rror GoTo E`rrMesAWord.ActGDocument.CommandBars(cAdminMenus).Visilc!Left@s10F0C) Top2'Ӂ(@hUŽ@Me.oW .CaT= cVERSIONF XMLǍ8.EnF̂㗝lĈ.ValuGƋlNZ)J  N& Dim cP As clsPFa _#Set= NewLcP.INI.SearchTextBox$ReadRIfGet)("ݐ", "C%")?"" Then Z&4&&4)d1D6 7gE?+l#+e +_}+D/:'+.w+nd If#P`aPag@աC}s1@f ^)ya炷(fttop:@MethodI AMulti 1T[Exitg; 3e:8<.Number <> 09M:sg0@hE& vbCrLf &RDescriBZ}EJo{pCrύXo^\_Changps@0P d _aOr#͏o ^Hw8!粒u ?_ f 00}W10ѡҎ5Qjs@jW*i1snSnzgSshgj9\jԘ'q"mUB4nq bQ("W@VBA.ReЮc0e(s,4s")rBl8aM8ۑł܂B05?8:1 avPk a\ " D02txtH~.a0pHHmH KHH_*ub*h_Ck?*ݷ'^-3"' !D݂P<ۂo璲5s5 /Ai5Integer6 ipdoᡒACount - 1a_6Q3!'p;!(i& *}s@ii*Np iqP!==~==")) = False Th en MsgBox "y[W\ۑ܂$B"hExit Sub"End IfcP.INI.Save Me.txtPage.ThextsxɏI8p jf ErrMes:;If .Number <> 0$& vbC rLf &Descriptioe7jpPrivatew ݒ_Click() D _CAO{bNX.Show,'s1 &OnKor GoToy2wOVύXo^\.Value_JAb ͏o ӄuƀh@vuÎꂩ`FB @ (#)e"ɑ㗝lAHꍇ@ɂ́ABKvp胪 FDim myShinsei As String ZTr[ M= "MDA<e] CAk(fz+?ppupCpԉL`$EBS_ChangesC-Ya.gƋl.EnabledlCEA9 rE  I#Ac3$("A@^`wNdwAoAxf[^{@tȂ5rr,}|sܠ}H", vbYes No, ":̎pw"VBMe.::599&!cP!clsPaper8Set `= New DReadg'2$Delete("`%D$#B#? >!K } p)z z_o|BzA?0z#*g0/v   Getx(pKAGAMI0,DBQZ").DropDhownF1sCH id+ j0[1Mod` sē33__\!sRAh͊mF___74_YAreaC@.Check3mO 3OOb Fq`Hg @He`e|e.l<_R  tr'e.< /!p4 s* ߷e6c%TpdQ&&& &pʳs ,7!s T \rrM?4?4/F ?63R So]sFFP5]]]ԍ]Resurl""V ̏A$_xPSXɣQ邱ԪPо_Lzg.qss =B@ "" If cP.Page.CheckThe8Result(s) = False dnMsgBox s"Exit Sub"End If Dim myClientID As Lo,ng=INI.ReadCID()" %0"f[^̃`FbNsȂĂ 悤łBɎ ೂBypAgp oAoo@;p>@GetValue(pKAGAMI, "DBo^").DropDown. 1KStri S`[ ct CaVBA.Left(%x, 4ġ!a"kK蔃$Combofl_H.ListIndex#ue 2e Y 3 M 4 e 5 C 6Y 7 "&\&8 "l ++9 "/y10 "q#S1WB< {Dv@Z@]"VFMidF5," ALenF) (- 401xHmyD3Q!lhpeNo2X . Countv`Sani.ЊFxrom3\f ,"i'ʕE`'ZK1a܂Fb'ݔ̏uꏊs撬RbhʤYK@ind0猎np߃}CiX#'ǂ#@ecwѐ= 2|h bd]*ʡo3#j'J݂̖8ړIT͈ MoveArea?4x?7g=c1n=>1 D 'Ȃ2@}C@ 7hER3k.T 4֓/z 5M|zy6kx7Cw8ߋEv9𒆍u)10@&l_o^.ComboMoveArea.ListIndex = 9 Case 11 '㏆BX:Ƌ10 2 '/I1 I3 'S/J22End Sele,ct xcP.GetValue(pKAGAMI, "ݖ̐ݒuꏊ2").DropDown>.(Uw@Ȃ 2 kC 3%k$4L4@%֓*o5L5@MTzo6L6@ko7L7@PCo8L8a@ߋEo9)@20 x'lqnl~2Dl`~4 m\1~2\~'đC8If iF1n1 _'BA  }t[Result <> ""` Then'? 2{(IfC'̓Dim myDate xAs \+NNmyString"9+U 3!T& "0/" &?I ϧ_ I F $'= VBA.jC(())Is)!Truel: :txtIssuej@QFormat`nggge/mm/dd"(IC 'JE 'ύX^pJnL Ԕgy󒆐d|ͣOyOyAy~ͯ93!cymFrequencyYf"".@Power@rPq'2:351.@2MHz`38125@6.25KHzԊu30g@5W_U? "pg 5W Else? ? r%d%s _ _ _ s$ϙ  Xo27"pD;"y; #Q1687$193$5g C ;.C oj  - $@9Mq1<[tU9 ,15?Q5Їzq"%/I_/*_/Di=j$i 4??nu`3ua s޿? ___Q+ ?“c?c-36?txtFrequency.Value = "" Then Ƌo^.351.16875MHz`!3812@6.25KHzԀu35g" 0Else-n& "@8nd I"f HIf 8Power 1W. G~.iCase OY 4I .E+Sel ect b'ύXKvƂRmyStpring®kc P.Get(pKAGAMI, "1").DropDownFv2‰Fړ͈̀*,3E&?& B_/{ЏZOE FbOwhP` 9 "o&RF" & ]]yb 3bpy.?e.iA0=DS '# *~_OT F !O?B,Y|: ).'x..* Mem~of cfH idT&Show4xit Sub ErrMes:Վ .NuPmber40HM@sgBox H& vbCrLfQDescripxtioW P@rivateq iǗf[^_Click$()1 Onor GoTo Dim@9 As clsPape"rSetq= XNew!sS ›s>Page.Check@r3(s)Fa^s'3myentID1 Longx= .INIP&adCIDAb$Y= "̃`FbNsȂĂ悤łB ೂB)_@yAgOe A G  3I P:3N2o}%myDB˒5(DID /v}^kEofE5R?0:Mods)pFz3M IDP*Me.(ȉ0㜵lƂĈ.Value = False Then iǗo^.txtAge@ntNamejc P.Get(pKAGAMI, cݑԖO).@ResultEhIf Me.ȉ̂-Tr =Ƌl';Ð\a,c^E2Fnd IfCliqID*my f}ULlM"ADB"E <> ""ReceiptNo3l_LDatǽFormat(Now(), "gggeNmmdd") 'AB:ẁ:PopMethodF 'T#P Q)'T acT!ah?qA0 0WrHitemyU, s_!3E1)`Old } Then Exit SubEnd If< ,MsgBox "IB"P ErrMes: 4If ".Number <> 0 X$& vbCrLf &:DescriptiokPrivate eLXgǍ_Click()On'or Go|ToSQ{ Me.opNewMethod.Value = TrDim cT As cls0Text"Sert = $cT.InputFil0Fals.e.Ї9GPGPaperGPc#'systemׂďA,P.INI.ClearAll /,'ŝYfEot@C@ݍF _ AH"Ȃ炸f[^`FbNsŁAexɂM`\Ă鏀ꍇ́AAۑ@ $CxJ@ 3E@[BOld_ eW*ŃG[K{6?r%㕕tH@ی}[_A1a1("WordR !EHS`& "N H",@YesNo, "mF")@ivbNoL-AU}Ž|cP.Form.Protect?؎s"IK+ €de̢6Aes@A =XB7b %I͠ACMƂ`A^"+LRB \4h`@ ƃvOɋ@\@IȠG$K܂o,10`,PA.UŏMDB.ȂP`VA000/)Fc0s0Fq0Unp18H8qoqA 4$`o# NorFSo /5ooob p'U0&vO5 OO5Vsɀ),p1h. 61}O+O+@?\?\?\oO+ңO+O+m.UnLock/\2++˭ A (V+$MO*O *OO0RUjj© ǗE.H`ide 6Show0|Modelesa.1Ǐub J7Ap:b ‚1Unload0'2pY dC2OOOJ3OOO{ޓ4OOOK5OOOK6OOO=K7OOOENYWhrMes  Dim cP As clsPaperSet\= New hmyFilterpStringA6eName:u ll=!MLDOT<{'CΏۂ̃t@Cw肷"If MsgBox("u" & MY_FI@LENAME"vƀN'Word f[^(ĂB", vbYesNo, "ă") = No Then?Exit SubEnd If']B^[̐݌ = "Fp(*.doc)eChr(0)cw ׀Y *]N * F k=.n.OpenDlg(ThisDocument.Path, E*)VBA.Repl0ace( , G0@QT1, UTextCompa f0&ilCKExtractżL=D5CK'0?SSdotStSS7?S5SKRQBQE Qf~Q$K?Q mycPcvP)k^i kc vł͂܂I f'Js2 i:=n@6onfirmConversions:=False, ReadOnly0:= _GAddToRec Passw࿥:="Tem@tek !RetWrites J orma) wdFAut`Visibl@True K%-.AttachedT&@ dłs& pscorĂ邀悤łǗ҃j[.Hh1lt ll0ClWll 1dr>d#htx @ t tkr2hdt+'''$:TNDD 6D$rtx @ t t3"ll 1lllt 8t ht$ tt ltl'''$ tt l#h*#d  ,ld*FD 2hd)t6D$,xl0 hdtD$pK xrtx X t D t0phtx X t $ lhtcd ll0%`kptx X t ( >`1lt7ll*#\`kptx X t ( l`*1l2\`t pdd[rtx @ t |tWll 1\r>\#`tx @ t tkr2`\tu+''':LN<< 6<rtx @ t tllt 8t ht+''':L!N<< 6<$h tt lhtkl'''h tt lh#`*#\  ,l\*F< 2`\)t6<p,xl0 `\t<H"$#t$ K]hx x  hfX]/H4D D  4f$]/')xD6h44''4'H$*#%*Fh /6hH4*hx x  hcX]3x5h&C*hx x  hcX]3x5h'Cl ($ xx lxl''4'H xx l#*# DD ,l*Fh 2)xD6hH4 (4 xDhH4*hx x  hcX]3x5hcx x P xx x P xx x P xx x P x4$ xhH(K8E''(:X)NHH**#x+*Fh^/x6hH(3  P   P   P   @  |* @  xk+''('H:X,Nhh 6hH( @  $  ll''('H  l#x*#  ,l*Fh 2x)6hH()(0 xhH(`Kr x9lp+v-x p |.l 8/)pl \%0$1$H pp lHpl'' 'H pp lH#D*#<@ ll ,l@*F, 2D<@)pl6, (x0 D@<pl, K+ xtx t 2t$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$ xhHK3$4$t xx ltxl'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4 $ 0 phdxlT4K5$6$t xx ltxl'''4t xx lt#p*#dh ll ,lh*FT 2pdh)xl6T4$ 0 phdxlT4NK$ x6lp+v7x p l.ll0/lpt+'' ',:\8NLL 6L, C'vpx X p ` kvp&' ','LM\@ 6L, !px @ p lqpl-+'' ',:\9NLL 6L, !px @ p lqpl+'' ',:\9NLL 6L, 9p+v-x p |. 8/)p\%:$;+Lp p  Lf\]3p5LYKlp+v<x p l.>lFL:$; = )p5Lr*Lp p  Lc\]3p5Lr*Lp p  Lc\]3p5LKlp+v>x p l.>lFL:$; = )p5Lp*Lp p  Lc\]3p5LpKlp+v?x p l.>lFL:$; = )p5LKlp+v>x p l.>lFL:$; = )p5LC.lp+v7x p l.>l1p l=M\@L @ L:\A]3V#(Lp:$; |=p Bp5L:\C]3#(Lp:$; |=p Bp5L:\D]3#(Lp:$; |=p Bp5L:\E]3#(Lp:$; |=p Bp5L:\F]3.#(Lp:$; |=p Bp5L:\G]3d#(Lp:$; |=p Bp5L:\H]3#(Lp:$; |=p Bp5L:\I]3#(Lp:$; |=p Bp5L:\J]3#(L p:$; |=p Bp5L:\K]3<#(L p:$; |=p Bp5L:\L]3r#(L p:$; |=p Bp5L#(Lp:$; |=p Bp5LhM\@L ML(<,( M@ Np:$; =p p6Ll+vlx >l1*lF\NLLp:$; =p p5LDvOlpx L p 4PkvDL:$; = )p5LCp+vQx p |. 4/l)p#(Lp:$; X=p Bp5L[Cp+vQx p |. 4/l)p[#(Lp:$; X=p Bp5L#(Lp:$; H=p Bp5Lp+vRx p |. 4/lq)pl; l #(Lp:$; H=p Bp5L; l6 #(Lp:$; H=p Bp5L; lj #(Lp:$; H=p Bp5L; l #(Lp:$; H=p Bp5L; l #(Lp:$; H=p Bp5L; l #(Lp:$; H=p Bp5L; l: #(Lp:$; H=p Bp5L; l n #(Lp:$; H=p Bp5L; l  #(L p:$; H=p Bp5L; l  #(L p:$; H=p Bp5L; l  #(L p:$; H=p Bp5L; l ; #(L p:$; H=p Bp5Lp+vSx p |. 4/lq)pl  l #(L p:$; H=p Bp5L l #(Lp:$; H=p Bp5L l' #(Lp:$; H=p Bp5L l[ #(Lp:$; H=p Bp5L l #(Lp:$; H=p Bp5L l #(Lp:$; H=p Bp5L l #(Lp:$; H=p Bp5L l + #(Lp:$; H=p Bp5L l _ #(Lp:$; H=p Bp5L l  #(Lp:$; H=p Bp5L l  #(Lp:$; H=p Bp5L l  #(Lp:$; H=p Bp5Lp+vRx p |. 4/l+Sx  |. 4/ll+Tx  l.ll=/l) p#(Lp:$; H=p Bp5L6lp+vUx p l.ll=/lplp+vUx p l.llV*#+Wx  l.l*#|V*#tx+Xx  l.lx*12 l|tx)pM\@ YtM\@ ZJ:<[NLLM\@, \,p:$; P=p p6L,p+v]x p |. 4/lqp)plp):\NLLp:$; ,=p p5L):\NLLp:$; 4=p p5Lslp):\^NLLp:$; ,=p p5L):\_NLLp:$; 4=p p5Ls):\NLLp:$; ,=p p5L):\NLLp:$; 4=p p5Lp+v`x p |. 4/lql)pllYKLp:$; ,=p L:\,:$; ,= )p6L,KLp:$; 4=p L:\,:$; 4= )p6L,Vll/Lp:$; ,=p L:\]3p5L):\aNLLp:$; ,=p p5LKLp:$; ,=p L:\b,:$; ,= )p6L,/Lp:$; 4=p L:\]3p5Ll):\cNLLp:$; 4=p p5LKLp:$; 4=p L:\d,:$; 4= )p6L,VKLp:$; ,=p L:\,:$; ,= )p6L,KLp:$; 4=p L:\,:$; 4= )p6L,p+vex p |. 4/lqh)plh<KLp:$; ,=p L:\,:$; ,= )p6L,KLp:$; 4=p L:\,:$; 4= )p6L,9lh/Lp:$; ,=p L:\]3p5L):\fNLLp:$; ,=p p5LKLp:$; ,=p L:\g,:$; ,= )p6L,/Lp:$; 4=p L:\]3p5LO):\cNLLp:$; 4=p p5LKLp:$; 4=p L:\d,:$; 4= )p6L,9KLp:$; ,=p L:\,:$; ,= )p6L,KLp:$; 4=p L:\,:$; 4= )p6L,CCp+vhx p |. 4/l)piCCp+vhx p |. 4/l)p l0jC lk*1Cp+vlx p |. 4/l)pk l0XmCf ln*1DCp+vlx p |. 4/l)p l0oC lp*1DCp+vlx p |. 4/l)pD l04qCB lr*16lp+vsx p l.ll=/lp l05tlp+vsx p l.ll*1/lp@lu*#lp+vsx p l.ll*12lp6lp+vvx p l.ll=/lp l05wlp+vvx p l.ll*1/lp@lx*#lp+vvx p l.ll*12lp l=*lF\NLLp:$; <=p p5L:$;:$;$ pp lpl'' ', pp l#l*#  ,l*FL 2l)p6L, 8 xLl|xtpL, WTK xCt'ntpx X p ` knph&'''<tM\@ 6<!px @ p lqpl+''':\9N<< 6<!px @ p lqpl&+''':\9N<< 6<$lpx p p dy>1p l0\\%z${*lF\N<<pz${ |p p5<%li<pz${ |p p5<+<p p  F<z${ | )p5<X*<p p  x p l.>F<z${ | )p5<V*<p p  F<z${ | )p5<%li<pz${ |p p5<Kp+n>x p l.>F<z${ | )p5<6p+n}x p l.l=/pKKp+n}x p l.>F<z${ | )p5<O< ~:\N< \pz${ |p p6<z${z${$ pp lpOl''' pp l#*#  ,l*F< 2)p6<T0xt0 p<lK xCt'ntpx X p ` knph&'''<tM\@ 6<.p+n>x p l.>1p l0*'''*F< 6<!px @ p lqpl1+''':\9N<< 6<!px @ p lqpl+''':\9N<< 6< ~  ~t lF\< ~< :LN \:,NddtT \TD: 4`16<tdTD48$ 40llpx p >01/p l0+''':\N<< 6<*lpx p (lpb*lpx p (lp2M\@ b+''':\N<< 6<npx X p T pl l +''':\N<< 6<$ pp lpgl''' pp l#*#(0 ,, ,l0*F< 2(0)p,6<Tl4xtX0(p,<tdTD4DK xD ~D4  ~ d ~dT T:$N4 \:N \:t`1t6dD4Tt8p$ 4hltlplx l $>h1t/pl lt09+'4'D'T:$Ndd 6dTD4*Tltlx l (lTlh*Tltlx l (lTltM$@ +'4'D'T:$Ndd 6dTD4*dl Hl  dc$]3l5d@ PpP P>p1LJlLltP XkJ;*dl Ll  dc$]3l5dlt }+'4'D'T:$Ndd 6dTD4$T ll lTl?l'4'D'TT ll lT#p*#@h DD ,lh*Fd 2p@h)lD6dTD4<D4xPtLTph@lDdTD4t0K>*hx Hx  hcX]3x5h DBD TkBS <$Bx< @ x kBxH'''H*#8*#4*#0*Fh 28406hH9*hx Lx  hcX]3x5h9 7+'''H:XNhh 6hH$ xx lxl'''H xx l#8*#04  ,l4*Fh 2804)x6hH,<D0 840xhHLKE''(:XNHH*#x+*Fh^/x6hH(O )+ d  k+''('H:XNhh 6hH($  lFl''('H  l#x*#  ,l*Fh 2x)6hH(L(0 xhH(K t'':DN44*#x*#t*#p*#l*#h*#d+*FT^2 xtplhd6T4~ $ d  k$ @  k+'''4:DNTT 6T4$  ll'''4  l#x*#pt  ,lt*FT 2xpt)6T4(< xtplhdT4|KP''$:TNDD*#x*#t+*Fd^2xt6dD$Z $ d  $k$ @  k+''$'D:TNdd 6dD$$  lul''$'D  l#x*#t  ,lt*Fd 2xt)6dD$|(0 xtdD$H$$ `0$l%$ 0$ Plx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ xPlx$ x$ x K xE'':@N00*#`*FP^/`6P0X:@P P0:  : : p`1t6P0p8`$ 4hltl`lx l >h1l/`l9P P`ll 1l/`5P ll0jll$`lllx l ,>`1plE'':@N00*#`*FP^/`6P0:@P P0:  : : p`1t6P0p8`$ 4hltl`lx l >h1d/`l9P P`ld 1d/`5P ld0 ld.$`ldlx l ,>`1hl lh=4'''0*#`*FP /`6P0d'h'''c'p:N:(Nf:HN:XNff0fPpM@@l$ ,l X)ld6P0phFPdlM@@l$ ,l 0d XP: ]3)ld5P4'''0*#`*FP /`6P0$I''0PdlM@@l$ ,l 0d )ld6P0A`dlM@@l$ ,l 0d <l`)ld@: NPPdlM@@l$ ,l 0d )ld5Pd'h'''c'p:N:(Nf:HN:XNff0fPhM@@l$ ,l X)ld6P0phA`ddM@@l$ ,l 0d <l`)ld@: NPPddM@@l$ ,l 0d )ld5PAldF NPPdlM@@l$ ,l 0d \)ld5PA`ddM@@l$ ,l 0d <l`)ldV'': NPPc0ddM@@l$ ,l 0d H)ld6P0I''0PddM@@l$ ,l 0d )ld6P0A`dlM@@l$ ,l 0d <l`)ldtV'': NPPc0dlM@@l$ ,l 0d H)ld6P0I''0PdlM@@l$ ,l 0d )ld6P0+'''0:@NPP 6P0$` ll l`l} l'''0` ll l`#`*#\h dd ,lh*FP 2`\h)ld6P0  <$tdhpxl\`h\ldP0ph`dL<H x | @ D Ptp W__SRP_49'>clsWinVerE}__SRP_4 __SRP_5S8HH`\$H``$H`Q$AH`d$H`h$H`l$H`p$AH `t$H `x$H `|$ H `$IH `$H`$H`$ H`$IH`$H`$H`$ H`$IH`$H`$H`$ H`$IH`$H`$H`$ H`$IH`$H`$H`$ H `nrU @,Ap4,A$p4<BHpIy((Blp(yCp c\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&`L2 GetVersionExA\28GetVersionExA2\$GetProductInfo2HLoadLibraryA2dyl6FreeLibrary2GetProcAddress<KL@*=h8+3q̦CFν{x̦CFν{KL@RhRRRME, SS SH0HB>"L<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}hH!+,p@ ).`A %0 h4erdyh6h8.h: .h<(> +@p$pX$++ ).xXA%Bh4[h6h8Sth: h<(>0( hDH hF`hHxhJhL BR CBVBBXHCB\pBB`pB BbB Bf B BjBBlBBpBb8C%+tPHpH iv ixizi|0 i~+lpl i+p i+` pP 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` (.il  i `Hp, `k  ggAi `t`p`l`h`d P @ % 4 @%,`k , i 0 iP i  `t`p  %BN CBPCBTCBZ @CB^HBBdB Bh@B BnBBr8BbCbCbCb0CbCbC b C#b C%bpC(bC*bC-b C/xX8 ` p P` p8 H h p(Hp  PH0@ X p pXHx`h `0z pH0@,PR %@   %p@( @@ @ @ X@ "@ '@ @ I@( @@ @X @ @ pQTVnj^pt@( ^@ b@ @o@P h(@ P.*&@ @ @x @h @X  @(h`z.*&@Xt @p @pl @h @d @` @P @@ @0 @ @0 @ @ h8Ph`x(`lt`ltH`ltHhj.*& @l @h @d @` @ \ @X @hH @8 @( @ @ @ 0 @ 0 H x 0 `  H``0xh `xxP@t@0 @0, @* H %0@ H@ Hx).*& @ @| @x @xh @X @H @8 @( @ @ 0 p  (  h `z 0.*& @X l @h @@ d @` @p \ @X @ H @ 8 @ ( @! @(! @ @ ! 1h  8 @0^zP$*\Rffff*Cj50cc7a1c(*\Rffff*Cj50cc7a1c\0(*\Rffff*Cj50cc7a1hB(( 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֘A  ,h^$\̂̃oCg^$,W[o[Wԍ(Windows98/95Ƃ &H4)^$8}Ci[o[Wԍ(Windows95 = &H0 Windows98 = &HA)22^$ rhԍ^$vbgtH[ID萔^$OSɊւtp(  ^^D ^D` ^D^D^D^D0^DH^D`^Dx ^DpXvbgtH[ID萔]D / WINDOWS3.1]D ]D]D ]D]D]D@H ]D ]Dp]DH]Dp]D]D ]D@]D]D]D]D]DE---------------------------------------------------------------------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)]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)C]DH 1@' Web Server Edition (core installation)   ` ''http://www31.ocn.ne.jp/~heropa/vb25.htm]D C]D ]D@ ]X ]p  (4 $@' C, OSVERSIONINFOEX\̂GetVersionExBk x'k  (4 $,' " GetVersionExɎsȂ...B( Debug.Print "GetVersionExɎs"zHk@: Windows 95ȂAuAvuBvuCvԂB(肦)M Windows NTnȂAT[rXpbNKpς݂ȂuService Pack 6vƂԂB !> !>  $ ' !< PKT Windows 9xn@16rbgnWindows !6KTWindows NT 3.51'NT35' KT !8 KT Windows 958 !>ChWindows 95 OSR2' !< ReWindows NT 4.0' dh Windows 95 'kHWIN98' KT Windows 988 !>A  Windows 98 SE'd Windows 98'kWIN98'ZKT Windows Me" Windows Me' WINME'S` ɂ͂Ȃ...B!4Windows Me later''nS ɂ͂Ȃ...BWindows Me later''n  Build:  !:$' RKT Windows NTn@32rbgnWindows W[ԍɂď𕪊 !6NT8 GetVersionExCvgOSNT3.5ȍ~łB0 Visual Basic 6T|[gOSNT4ȍ~łB; OSVERSIONINFOEX̂́AWindows NT4 SP6ȍ~łBK AWindows XP̌݊[hWindows NT4 SP5Ƃ[hł...BWindows NT Version !6.00 !8$'  !J TKT  Workstation' VKT  Server'nP dH S WXǵuHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptionsv B ́uProductTypevɐݒ肳Ă镶񂪁uServerNTvȂServerA0 uWinNTvȂWorkstationŔʂł炵...Bk` 'KT !8KT Windows 2000 Windows 2000' !J TKT  Professional' VKT  Server' n WIN2000'KT Windows XP Windows XP' !H n  Home Edition'd( !J TKT  Professional' VKT( Serverʖ̂炵BWindows 2002 .NET Server'n k WINXP'KTWindows Server 2003' !H j"  Datacenter Edition' !H ^e  Enterprise Edition' !H pe  Web Edition'd  Standard Edition'kx WIN2003SERVER'SX Windows Server 2003 later' 'n KT !80  Windows Vista & 7KT Windows Vista'WINVISTA'KT Windows 7'WIN7' SWindows 7 later''n`] '  !6 !8 !D !F $t  KT  Enterprise Edition'0 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:  !:'n8'z(   .!0 .!0 * .!2A@&ki   &H8000& = &H00008000 'd 'kpzh ` .!0 .!0 * .!2A@&k(i  *񒆂 NullChar yёŐ󔒂揜] l 'H H  l H $ $ j'd l$ j'kzx p .!0 .!0 * .!2A@&k8i0  ] ]D0 ]H ]D` ]x ]D  ]D kernel32GetProductInfo$8'zk  (4 $@'0ȊOԂƐB *'z k'  !6 !8 !D !F $t' 0ȊOԂƐB 'zk MsgBox oviex.dwMajorVersion MsgBox oviex.dwMinorVersion" MsgBox oviex.wServicePackMajor" MsgBox oviex.wServicePackMinor MsgBox lngProductType  K KT Business Edition' KTCluster Server Edition' KT-Server Datacenter Edition (full installation)' KT-Server Datacenter Edition (core installation)' K KTEnterprise Edition' KT-Server Enterprise Edition (full installation)' KT-Server Enterprise Edition (core installation)' KT3Server Enterprise Edition for Itanium-based Systems' K KTHome Basic Edition' K KTHome Premium Edition' KTHome Server Edition' KT!Server for Small Business Edition' KTSmall Business Server' KT%Small Business Server Premium Edition' KT+Server Standard Edition (full installation)' KT+Server Standard Edition (core installation)' KTStarter Edition' KT!Storage Server Enterprise Edition' KTStorage Server Express Edition' KTStorage Server Standard Edition' KT Storage Server Workgroup Edition' KTAn unknown product' K KTUltimate Edition' KT&Web Server Edition (full installation)' KT&Web Server Edition (core installation)'n 'z  .!0 .!0 * .!2A@&kPiH   (+ DLLAPĨGg[邩ǂԂBWindows Vistaȍ~ŃT|[g]p ] $'   $' ' $'dX'kHz@ 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 Xlhqt/llt)l4lllt^XqhsuP~rU ` Z @AQ? {!EqEEE9FyFYFF)GiGG7)? H %Y}iHHH)IqIII)JJJ)KK/ LaLL!MiMMMNBQNNOiO PaP%$a A%PYQ!QQRqR9S TiT1UUV9WW XX YYqZ1[ \\1]]Y^^_ `B DyC?()?(@49)a) W: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( @Q? @8K& l4ll^Wqh -B_1HhQ`Ocri[$boVXeP  [OCO}@INIn?Coq&ooa oooIfq/1‚0b Unload tMe0'r+ǗW@ow*ModPYsp]Q8*\RfrU QQE~a !EA% )1\%$P Hyy z1zy 4 0I1`P86 !7` P < 0Iz`IP @ 0I {`P`PWPPP8$  8KE''(:XNHH*#x*Fh^/x6hH(O  d (+''('H:XNhh 6hH($   l tb dH`VG,`gp t$[yM*TszCoMd7終Bq;zx7終Bq;z`VG,`gp MEL@SPSSS"p6"" "L"@` |+++ `k1 nerdy% `kG nx% `XkWph@%p %@Fals%%x8P`*p&r.@) @x @h @X @H -@8 @ ( @h P@@ t @ (@  @ '@ @ NP@ +@ p@X@t P@r P@.*&`,NPP @l ,@h  @d '@(` @\ NP@pL @6@< P@, +>@ |%@ @@ @ rR86P@@@x @@h p @X P@@pLzP$*\Rffff*Ck50cc7a1c$*\Rffff*Cy50cc7a1c$*\Rffff*Ci50cc7a1c*\R0*#23*\R0*#1d*\R0*#1e$*\Rffff*D150cc7a1c*\R0*#19*\R0*#13$*\Rffff*D350cc7a1c*\R0*#2*\R0*#14*\R0*#1*\R0*#e48<@]  8 "X "  8 F P X *p " 0    8 @  $X @ . (  0  8P F   \  P@   8 : B( Bp (     "   E(   &+  $ l0P X"` h p x  $l "  ( ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX Dim myShape As Shape2 For Each myShape In Word.ActiveDocument.Shapes@ If myShape.OLEFormat.ClassType = "Forms.CheckBox.1" Then End If#' With myCB.OLEFormat.Object4' .Value = False3l''('H   l#x*#  , l*Fh 2x)6hH(8(0 xhH(K. xrtx @t t$l tt  lltl'' ',l tt  ll#h*#\` dd , l`*FL 2h\`)td6L, (x0 h`\tdL, l8lx $ xh%$$8$ x8<@4@rU PL$P`$AP`$P`$P`nrU @<)c   ( " 08H8"h H@& HD& H @ X `:( H\2 $HHp    *0*`$$46  P `( (  .HL*  P<h,6 * 2@8x  2 * 86X4 0 \&X B,            !"#$%&'()*+,-./01234567h:;<=>G@ABCDEF9IJKMNOPQRS^UVWXYZ[\]L_`abcdeguklmnopqrstfxyz{|}~&@ AA|RegOpenKeyExA\8RegQueryValueExA`$RegSetValueExALRegDeleteKeyApjpRegCreateKeyExARegCloseKeyh cFormatMessageA<G$XvE9"<,<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}<+p@ Y`YYo.jpY@Yew c+ $p $ Y@BY `7OYB2Y?YGYK++Lp L i@ Wi `Windi'iiWindi`+pp p Y@YEdit x h"itioh$h&'+((p i i@i`i*i,i).A %ii0+28ph YB8HCB<CB>pCBBBBFPB BHB BLB BP BBRBBV8B%hx+X px iZi\ i^i`ibid8ifBnBBrBBt Bx,x8 `k@ 088Qiz ` i| i~ i `l`h`d` ``\, `kx 4 i  i , `!k 8 //iz  i8 i|"X i~x i  `h`"d```\, `$k8 < i| X i~x i `p  d @ %` ``\`X, `h'kX @ i| x i~ i  `p`l,p` )$k( D CCi Hi hi i i  `t`|p`~l`h`hd```\,p`@+pk H @i| i~i  `*x `v `t `r , `,dk ]iz i `|p`~l,`(.fk`  iiz ii  `|l`~.h, `/k0 LXXui| Pi~piiX0ii i@0$i  `zp`l`h`d````\`Hx, `(3nk $i 8iXXixii4i  `|8t`~p, `@6kH PIIi| hi~iiXii i$(i  `z6\`X`T`(5P`L`H`H6,  ``9Zk0 ($i PiXpiiii  `|`:``~\, `0;`k` ,2i  `|t`~p`.h%B4 CB6CB:CB@CBD(BBJxB BNB BTBBj`BBlXBBpBBvB(  x(8 H  p  `P8pp8 X`  ` @Xp`x x `ztp@ `~p`zt`~p`zt`~pXF\rX&@X @T @D @4 @X$ @( @@ @ @  2@@ Hh`x`tHH`t@8 d @h T  `t `H@P D 8 @ 4 @ $ @  @ @ #`zt`zt@!"`~ p`ph!p"`zt!"`p ""(`~l 8 "" X#(##p#"#!`~lh `p"z `zt`p`~l"lH\r@@#L @@#< @ $, @8$( @$ "X&D2@@# @$ (&`~t`~t`@ H@ 0@ h`~t % 8 X%%&%% %%8%`P$x H% %&p%P$`~t(X%RJ(2@TV@%T @P @L &%\rX& @`&< @H&, '`~t@& @x& @& @ @ h `&z  '&H'`~t(&`~t +`t X &0'0(x(`(H(&(&0'@&\rX@h @d @(T @(D @(4 @($ @( @) )@ @ )(X(H@(*p*X*@*)*)h `)z *))6FlH<@X @T @D @*4 *@$ *21zh *`*z (*** <6,`zt@X(+*+*@p h,`ztP,`+x@X,0,,+ `zt(/`zth,`p0,h,.-0,h-H,x @j -.-`zt-. `pH/.`~t@d /.p/.X/-h /`.z `zt`p1`~t/\rX&@f pH0x001001@01X0h(  `(0z h0@00(0`~t1x0(F\rX&@2X @T @01D @14 @x1$ @H1 @`1 @ @ @1 11@2 0210 2@5`~t@22`ph23;`XHl1P`h24`d3`1`@3 @ @ xxX4442h `~t`p845`XHl`44`h(4(5`dp5@5`3``3z &@6@n h( x`4z (`~t`p`XHl5X5`t56`Xp56`l67`h78`d@57xX5`H@77p7X785094`h8`d`5`H\rX&@H9D @@ @70 7@7 @8 @8 89`t(89`Xp9A`lx8:`h80::8`d@8 (@ @ @9 @9 @ (7lD@2@ :H::::;:;P8h 9`:z x:H:5`t`XpI:`:@K`l8M::`h::I`d :`L @Z K;P<8<h<; <<h `;z <; <;xLx @@n @d L@` Mh< 7` `@TGzP$*\Rffff*Cl50cc7a1c(*\Rffff*Cl50cc7a1c\0*\R0*#4*\R0*#f*\R0*#14*\R0*#f*\R0*#e4L  8 "X & 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(Win)WXg̃L[J(nh̊mہj  [WXg̒l擾$  WXg̒lݒ肷 "&WXg̃L[폜  `^Dx$\̂̃oCg^D$*ZLeBfXNv^(Win95,98ł͖)x^D$1̂ƂAppWXg̃L[쐬( "'+/2WXg̃nh (tProdu]D]D ]D]DH]D]DԂ]Dp]D]DsamDesired̒萔]D(9WXg̒l擾]DP9WXg̒lݒ肷8]D9TuL[쐬 ]Dx9TuL[񋓂]D9"WXg̓eύXʒmv$]D 9$L[IuWFNgƂ̃N쐬]D]D8L[VK쐬]D8L[I[v"----------------------------------ȉAG[bZ[W֘A(bZ[W̕w̏Ŏ擾 "'*8 dwFlags̒萔]D8@)nSizefw肵TCỸobt@mۂ]D`@obt@Ɉ}ȂD]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  0] ] ] ] ]  L[I[vănh𓾂 | ~ F $'  $\' r   AX A@&'xzkxobt@mۂ$$\'  %')8.myRegistryRegOpenKeyExŊJL[̃nh  z  $ '   L[‚Ȃꍇ A2(B'xzhk` A2X $\'p r   AX A@& ('xzknh‚ A2H G[̊mFp  @ $' 'xdx&G[R[hG[bZ[W擾H $\' r   AX A@& 'xki8 'zk    % % 'ix  '] ] ] ] 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   %l %' nhm  | ~ H $' &G[R[hG[bZ[W擾 $\'  r   AX A@& zk lݒ肷  z D  $'X; &G[R[hG[bZ[W擾 $\' r   AX A@&<z knh‚ A2 G[̊mF  @'d&G[R[hG[bZ[W擾 $\' r   AX A@&'k(i     ,WXg̃L[쐬܂͊̃L[J] ] ] ] ]   | ~ R J   $( ' L[‚ A28 G[̊mF  @ @'  T ,L[݂ĂȂ߁AV쐬  Ve *L[݂ĂAPɂ̃L[Jk dx &G[R[hG[bZ[W擾 $\' r   AX A@&'k i    '] ] L[폜 | ~$' G[̊mF  @'z@ e폜錠܂BA@&'z d &G[R[hG[bZ[W擾 $\' r   AX A@&'z` kX iP   ']]]]](]@]X 6'| HyperDyne'~database' L[I[vănh𓾂 | ~ F $' 'dX ''k@ 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   %l %' nhm | ~ H $' 'dx 'kh k` <'|SOFTWARE\HyperDyne'~ L[I[vănh𓾂 | ~ F $' 'd''k 7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   %l %' nhm | ~ H $' 'd'kknh‚ A2'i   p']](]@]X    $z8k0'|'~  <'|SOFTWARE\HyperDyne'~k  6'| HyperDyne'~k |'d'kxipp]] | ~$'z k z | ~$x'i    ]] | ~$'zk z  | ~$'ix  "&'"WXgڑׂĎ擾]0]H]`]x]] L[I[vănh𓾂 | ~ F $'  $\' r   AX A@&z8k0] Hobt@mۂ$$\'  %'- HKTserver'zKTdatabase'zKTusername'zKTpassword'zKTatis'zS8n0.myRegistryRegOpenKeyExŊJL[̃nh  z  $ '  L[‚Ȃꍇ A2'zpkh A2 $\' r   AX A@&'zk G[̊mF  @ $' HKT 'KT 'XKT 'KT 'KT 'SXnPdH &G[R[hG[bZ[W擾 $\' r   AX A@&'zk Hnh‚ A2'zhi` ']] | ~$zk | ~  X   $zk'i  "&"ׂĂ̐ڑWXgɊi[']H]`]x]]] nhm | ~ H $' &G[R[hG[bZ[W擾 $\' r   AX A@&zPkH] H HKTserver'z 'KTdatabase'z X'KTusername'z 'KTpassword'z 'KTatis'z 'Sxnp7VBA.LenƔ̒ɂȂ̂ŒӁBVBA.LenBg   %l %' lݒ肷  z D  $'  &G[R[hG[bZ[W擾 $\' r   AX A@&z8k0 G[̊mF  @'d &G[R[hG[bZ[W擾 $\' r   AX A@&'kh Hnh‚ A2'z i ']] | ~$zk | ~  X   $zkx'ih ']] | ~$z k]WordVBA | ~$x'. .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ߌ Delete>(K$Booleaw+@ PoE 5mvn?C#6폜g P(|@66om9 mB'oxt0SJ55|"u `XB" 8e#v=O0eY-4R!  "J,&oxjx Check1yRef bOLD).bBPU ПWrit"-?6#"j '6qvmue:S<>S|dq.uG u = H2yURRENT_US ER = "HyperDyne2data8basCI10veDZOpenD_b+ QUERY_VALUD+ p?b!= g* k,>Q = ^ `\G'VBA.fƔ̒uȂ̂ŒӁBDBPgNƣ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  __SRP_6?R__SRP_7xb000000000S,T3__SRP_54-jpzpz/ $ X l Ct-jlpH kj3Cx/dlllplt0 >d1x/ X0xtld`l CtlCpfhlH kf9 Wpz/flhlllplt8 kfpz/`0pth PlCtpz6dltX4lXl ^qTX1l}kp k" ll1 k9 ll1 kP ll1 kg ll1  k~ ll1$(:DN44$  $`1\64$;YTl\Jl\X4lXl` X1lllCx.(:DN44$  $`1\64$;YTl\Jl\X4lXl` d1hRlhC` l`0e/  l`0}/  l`0/ pz/ 0`hpd     opY q    (@ d$pY   1 I a (@dLpY    I  ,eppY q Tafp$Y q       A 4(((gpY D9hpi      ! (8`0A Y q 0,A`4 0<`8A yY q #0` <Y q (0` @Y q #<A`D    #####0` HY q (0#,`A 00` !A y#LA ` LY q A!Yy00000#@ `%A!Yy00000#L ` PY q A!Yy#@  `)A!Yy#(I `-#bnrU T`$T`$AT`$T`$T`n{IrU P(h((Ah!FhX `,h .Hh -Hh`-hJh , . Hh(  p -x Hh  - Jh H  P &X  . Hh   -  - Jh p  x      $ l   "    !   ;@ ` 2  ; ( :  ;@ (` :  ; $ 6 ;H h 2 ;" 2 ;@,` : ;, :  ;`& 6 ;    $(l8X `"h  p   ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX !(z !(z !(z o@ ].n------ !!nd\lZDBƂ̐KT  !! n$l ݐ\ҏZ n%(\lDBƂ̐KT  !! n$l ݐ\ҖO n%(ݶ \l\ҁijDBƂ̐KT  !! n$l ݐ\ґ\Ґ n%( \l\ҁijDBƂ̐KT  !! n$l ݐ\ґ\Җ n%(㗝lX֔ԍDBƂ̐KT !!x  !!$  ݑ㗝lX֔ԍO3 n%(  !!$  ݑ㗝lX֔ԍ4 n%(dH !!xk( !!x  !!$  ݕ㗝lX֔ԍO3 n%(  !!$  ݕ㗝lX֔ԍ4 n%(khk`㗝lZDBƂ̐KT !!x  !! n$l ݑ㗝lZ n%(d !!x  !! n$l ݐ\ҏZ n%(kp !!x6  !! n$l ݕ㗝lZ n%(kk㗝l̖ODBƂ̐KTL !!xL  !! n$l ݑ㗝lO n%(Ldp !!x  !! n$l ݐ\ҖO n%(k !!xT  !! n$l ݕ㗝lO n%(kk$㗝l̑\ҖijDBƂ̐KT !!x  !! n$l ݑ㗝l\Ґ n%(d !!x  !! n$l ݐ\ґ\Ґ n%(k !!xL  !! n$l ݕ㗝l\Ґ n%(k(k $㗝l̑\ҖijDBƂ̐KT !!x  !! n$l ݑ㗝l\Җ n%(d !!x  !! n$l ݐ\ґ\Җ n%(k  !!x  !! n$l ݕ㗝l\Җ n%(kk㗝l̓dbԍDBƂ̐KT !!x  !! v$l ݑ㗝ldbԍ n%(d !!xzk !!x  !! v$l @ tK*\L>H,WK_!fmK{){V* (L8ky(DL߆!xy(DL߆!L>H,WK_!fmME`@SPSSS"p6""L LL"L"LLL@` xk >`k\\ nx% `8k00j nx% `hxkph@%p %@ n%%@x Ix0nl\@Ht @`p ]@l ]@\ @L @J @D @@ @0 vr.*&`*2@, @( @ @  @ @ @`x 8r.*&@@Ht @p @l X @h @f X@` @\ @X @H @8 @ ( @8 @P @ @ ) ro@@x (@p`zP$*\Rffff*Cm50cc7a1c$*\Rffff*Cy50cc7a1c$*\Rffff*D450cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\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*#47$*\Rffff*Ci50cc7a1c*\R1*#10b$*\Rffff*Cp50cc7a1c*\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*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26 48<@DHLPT  8 "X "  "   !  Dh@ Dh( Hh(` Hh$ .NVNV` --PVPV@   .Dh  -(Dh@-Fh " .(Dh@ -Dh-ݕ㗝ldbԍ n%(x kknx A@r|` X .!0 .!0 * .!2A@&k o ].n !!\lZDBƂ̐KT !! n!B@\lDBƂ̐KT +SQLŃf[^x[X̖Ƌl̖OύX !! n!B@ \l\ҁijDBƂ̐KT 3SQLŃf[^x[X̖Ƌl̑\ҁijύX !! n!B@ \l\ҁijDBƂ̐KT 3SQLŃf[^x[X̖Ƌl̑\ҁijύX !! n!B@㗝lX֔ԍDBƂ̐KT /SQLŃf[^x[X̖Ƌl̗X֔ԍύX !! n!B@㗝lZDBƂ̐KT +SQLŃf[^x[X̑㗝l̏ZύX !! n!B@㗝l̖ODBƂ̐KT +SQLŃf[^x[X̑㗝l̖OύX !! n!B@$㗝l̑\ҖijDBƂ̐KT 3SQLŃf[^x[X̑㗝l̑\ҁijύX !! n!B@$㗝l̑\ҖijDBƂ̐KT 3SQLŃf[^x[X̑㗝l̑\ҁijύX !! n!B@㗝l̓dbԍDBƂ̐KT /SQLŃf[^x[X̑㗝l̓dbԍύX !! n!B@n A@r|  .!0 .!0 * .!2A@&ko A@roxp״Attribute VB_Name = "I_CAO{b@NX" Bas0{BE18D2C0-BC03-4BD8-8AABC57B298ABA}{2A56997B-0CA1-4C2J638-9194DD6B10F0} 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 Me.Label1.Visi [23 E nd #s1_C)k!O-rror GoTo ErrMes CDim cP As clsPa@RSetA= Newl`ect C7^gg.CaIAB"\lZDBƂ̐஍@ cP.GetValue(pKAGAMI, "݁ҁ").Result _= StrConv(]%, vbWidNefE I'&xOi\ҁi8j:(C ??8?|=#??*lX֔ԍ)If Ǘ҃j[.@̂` YĈ.BWB Then/T\+O3 = Left$]3H]$ zcwl4R롰4E"%o,Ƌl)gΔ)If,o  4e %$ }IGQύ/ = o[, m1 =Kc^^55 5 -cW 5/d1um/d-a-e-Ap / / O4? u(5_1 ?-~^ o - -}b/-/-/-(#-_//+/-/-/-U: / / __C /-:6 /-  /-+-%---/- Ϫ .A_..سn cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result _= StrConv(Me.Label1.Caption, vbWide)=End IfIf Ǘ҃j[.㗝l. = True The0%tp zCase "oJijDBƂ̐ "ȉP̂(ĈFNFalNY7'^oE%႖̋ ??? „6?y  ]db_\ _\_\C\%_\Narr|ow̞\\, ,weK%|K&-ImS electUnload MeExit Sub ErrMxes:A$ .Number <> 0MsgB(ox &CrLf &Descri"ݤ ` Privatea s2_@Click(`C  Onor G8oToADim cP As clsPaperc Set= NewH!! ʠ^CgxCg~lxZ8Q4aDB.DBExecvu ~2.x'SQLŃf[ xP`X/pOύX  5 "3liؐv j? ? ? Y_\? ? Ą? ?  RX/\ & ?,  Q̿? ? ? ? ם,?bB0w @99el00e&&1= E+5 111 _1u b  __W5qOC& __Rqq߯q1qqqbqA[/r"rLZyr1 } 0/p)th ll0>;fpt t Dlphx ph 40/p)th ll 0;fpt t Dlphx ph 40/p)th ll#0;fpt t Dlphx ph 40/p)th ll&0;fpt t Dlphx ph 40/p)thlt)$* +t$` ,tt -l`tl'''(` ,tt -l`#p.*#X\ ,hh ,-l\*FH /2pX\)th6H(p ,\lx0 p\XthH( Plx)$* +x$ x@D8<@LA/)#PA/) 8TA/)1beTWTTT__SRP_55clsLicencew9B__SRP_88__SRP_9`c7a1c*\R0*#19*\R0*#10*\R0*#4*\R0*#e*\R0*#13*\R0*#14*\R0*#f*\R0*#9$*\Rffff*D<50cc7a1cD  8 "X   &  *$@  hB  rU U1`! !b9~ ) ,bQ !ci yc [ Hy.{I!_! d9YdYd)ei%$a A%. ` a1aYa`4A/)a 8 0Ia`T < 0I9a`T@6 !7` T D 0I11`ITHA/)7LA/)#PA/) 8TA/)1beTWTTTTx x xx x xx x xT$  x K xpt t D>p1lt ll0hpt t D>pF\L L@D+Jx D p/@)tD6\L ll 0!hpt t D>pF\L L@D+J x D p/@)tD6\L ll 0hpt t D>pF\L L@D+J x D p/@)tD6\L ll 0hpt t D>pF\L L@D+Jx D p/@)tD6\L ll0 .\t$ t \f0]3t5\Vpt t Dlp #@D+Jx D p2p@)tDVpt t Dlp #@D+Jx D p2p@)tD-\t$ t \c0]3t5\*-\t$ t \c0]3t5\Vpt t Dlp #@D+Jx D p2p@)tDVpt t Dlp #@D+Jx D p2p@)tD ll0.\t$ t \f0]3t5\hpt t D>pF\L L@D+Jx D p/@)tD6\L-\t$ t \c0]3t5\Ihpt t D>pF\L L@D+Jx D p/@)tD6\L-\t$ t \c0]3t5\hpt t D>pF\L L@D+Jx D p/@)tD6\L ll0.\t$ t \f0]3t5\hpt t D>pF\L L@D+Jx D p/@)tD6\L-\t$ t \c0]3t5\$hpt t D>pF\L L@D+J x D p/@)tD6\L-\t$ t \c0]3t5\hpt t D>pF\L L@D+Jx D p/@)tD6\L ll 0 .\t$ t \f0]3t5\hhpt t D>pF\L L@D+J!x D p/@)tD6\L -\t$ t \c0]3t5\hpt t D>pF\L L@D+J x D p/@)tD6\L-\t$ t \c0]3t5\ hpt t D>pF\L L@D+J"x D p/@)tD6\L ll#0x .\t$ t \f0]3t5\C hpt t D>pF\L L@D+J$x D p/@)tD6\Ls -\t$ t \c0]3t5\ hpt t D>pF\L L@D+Jx D p/@)tD6\L-\t$ t \c0]3t5\q hpt t D>pF\L L@D+J%x D p/@)tD6\L ll&0 .\t$ t \f0]3t5\ hpt t D>pF\L L@D+J'x D p/@)tD6\L -\t$ t \c0]3t5\M -\t$ t \c0]3t5\ hpt t D>pF\L L@D+J(x D p/@)tD6\Llt)$* +t$, ,tt -l,t l'''L, ,tt -l,#p.*#(@ ,DD ,-l@*F\ /2p(@)tD6\Lt6 ,\lx0 p@(tD\L 0K8 xpt t D>p1lt ll0|;fpt t Dlphx ph 40/p)th ll 0;fpt t Dlphx ph 40/p)th ll 0;fpt t Dlphx ph 40/p)th ll 0];fpt t Dlphx ph 40/p)th ll0;fpt t Dlphx ph 40/p)th ll0;fpt t Dlphx ph 4 B   B "  (B 0 8X p B    B   $(P hx B  iH( 8 Li|1JcmM7*=h8+3q{J% x{J% i|1JcmM7MEL @SS S""(">" L H*Jp,+:R (0@ H P ` p x             ( 8 @ P ` h x           2 nc@   2nch p  x >e 84        ( *H@  VMp    "3  P9  P X  ` ""p $"     3  2S X x      $ l   B   0  8  H P  8X x   B  B   8 @$HlXx   ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@z Dim cLicence As New clsLicence]@Dh ,ݓo^̔ԍ]@D ,ݓo^̔ԍ\[gςB]@D ,ݓo^̔ԍ̐]@D -o^̔ԍZbg݂̓o^̔ԍ̐ 'm@݂̓o^̔ԍ 'mH݂̓o^̔ԍ\[gς 'm݂̓o^̔ԍׂ  G{j   $!'k`mX(݂̓o^̔ԍ擪  G{j   $!'km݂̓o^̔ԍ擪2  G{j   $!'khm`(݂̓o^̔ԍ  G{j   $!'zkm݂̓o^̔ԍ  G{j   $!'kmx(݂̓o^̔ԍ']. B@6 !' !' !']   $$+.]] ]8$., $$+$ $ %"o^ԍɁuv‚܂BA@&d($$ $ % % 'k]p] $  KTCR'K'  KTML''  KTFB''  KTFX''  KTFP''  KTMP''  KTMO''  KTRP''  KTLO'\'  KTEX''  KT'K' Sn K  %  ǎ킪 ̂Ƃɂ́Ao^ԍ́u vu vKvłBA@&zHk@d8   %  ǎ킪 ̂Ƃɂ́Ao^ԍ́u vu vKvłBA@&|zkd  %   % o^ԍ́u vmFĂBA@&zkkkk] H . H$.  % % 'o^ԍ̐擪 ɂȂĂȂ̂܂B * H$.A@&z0k( H$. % 4o^ԍ̖uvɂȂĂȂ̂܂B * H$.A@&zk H$.'   " % 'I[  " % ' F H@ H$. H$(  % H$(KAX  % n %l H$(  % H$( H$(' H H$(- HH'z8 0 .!0 .!0 * .!2A@&zkio^̔ԍ̐]` ..my'Nd ., " %+  'N khi` @;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[gh].&  l &%$'$rz  .!0 .!0 * .!2A@&kixpAttribute VB_Name = "clsLicence"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All Areser;.http://www.hd.co.jp/webmaster@ O@ption vlicitComp Binary' y@@z+Dim c As` New }A PkFH S ng'ݓo^̔ԍ BySort\@Ugς9CnHLo B! !̐ 3DdFC`X Hc7?B?i7h?=IA-`&h(ByVal No6Integer)a!HׂC"If!<@ 0 TheAhit/ 3 >a!+dKNo).Noc;Q .aoertyaFuncx'(yJmyKyokusyuQJeBuuKBooleanAt @ qQ|INIa{א  a=e}.RDsu/@v[[!3=Q.dCoun1 QwrZpe= Split(, Sep, , vbTextu)xs1imyRI r2k1(0), ","_S$VBA.In@(1, s2 k SeMsgBox "ɁuvГ܂B Eb'1 = !Left$(? P ? )e,A)` /4m +2Not IsNull ()\6Select CWpCR[ CR$5WY"K,MLMLZ `e pFBF B XXqWlPP pMuM O MO <#nR  R L L Y\E# lmyKyokusyuStr = "EX" %2 Case pHOUK0ATSU~ʕҊK!jElseeEnd Select1If J T8hen$VBA.Mid(myHead, 2p) <> MsgBox "ǎ킪" &u& "̂Ƃɂ́Ao^ԍ́u8"v" _M0"2KvłBExit Functio{If7TAPC""P Q1QARoRASTUJA7OLA@V"UdTڝmFĂRI = n!NiDim i As I@ntegerSFor= 0 To UBound(s)Vd(Left(s(i), !%Lendy)Ol/x#擪xEs@wȂ#z0ܢn@NvbCrLfaX&IRigh%1#A"y.H&Pt6QDescripm*GoPrivatep CDt(By sQ!!ing)LoPng s 'S2C{C&ss(ss@ 0";{0cvc#Spli?P.,222B15Qs) + 1eX| `Sort(myc  On pZGoYfʕȂǁu,Iŋ؂ꂽ\[gS !1cSan!cl.s&< = New tr . /)))F))) 0(h%0,h )a0,h -a0,Ah 1a0,h 5a0,h 9a0,`=q#,A `@(, `D 0nWMQ1Nxb hJ<__SRP_e3"__SRP_f&00000000000VGct 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*#1bd*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi|]53?PXI=8.L/D6[N/r!oBN21MMkJg{x1MMkJg{XI=8ME@SPSSS"p(F1>" LLL*L*P "LL"LLP0{1DB34C2E-A52F-44BC-B136-5B98C5CA4E2F}{720FD2FD-6F21-4E42-A5BC-DD32B81FCAEF}%%% >0`hkyy npp%`lster`jX d@% X%`H%`L`.! N`Px+p)U % R0`8 k)U .%`t%`Hr. V` k`z `HxύX`t's ` xk( %P( %b*4@0X0Xxp@rU 7 P1zyuuzuA%{{v!v9vYvqvvvvvw!wAwawywwwwwo |g xQx'qxxxy||yIya Y}yy}K9~~%$ VL(L(@D9)a)  WWWH <qx/ p$ L- 4Cx/ ((x L- 8Cx/ (x xD- k /<k :k @ACx/ D(x xD- k /<k :k @ACx/ D(x xD- k /<k :k @ACx/ D(x |H- k /<k <k @A 1x/ H(x xD- k /<k :k @ACx/ D(x ppz t rt |lt Dll4/llt Hll8/lht Llh<;:TNDD44 46 Yhd6D4>:TNDDld4 46 Yh(6D4J:N44l(.@M@(D -(]36D4Z+'''4:TNDD 6D4R:N44l(.@M@(D -"l( 1,6D4l MT@ C ql C C8l  CC8l.CC8lOCC8lpCC8lCC8lCC8lCC8l CC8l CC8ld6CC8 l02(D,MT@4 4lF]@6D4c'''4l*#l *#l,*#!*#"*#l*##*FD 2 l6D4/A l=2(D,MT@4 4lF]@6D4c'''4l*#l *#l,*#!*#"*#l*##*FD 2 l6D4/?e(D,MT@4 4lF]<(,M@ :]h1x/$` 3dd 4l`dl'''$` 3dd 4l`#h**#TX 3\\ ,4lX*FD 2hTX)d\6D$/8 0xtp0 hXTd\D$  Hh`,<*.26@x @t @n @` C@\ %%%TX`\%`@@D @4 @$ @ @ @ @ @0 @ @p H5@ p5`\%70@ `@%X8@@( @@ @p po(.*&@l % Ux(8%0 Ux%@h ( Ux0 Ux Ux(*  Ux % Ux8  H ` 0 Uxe @p @l . T@x h @ X @@ T @X D @ B p @@ p  @ 0 @( @ @ @ p` 8 P .<r\@h p @ ` @ \ @ L @ J @H x  @0 8 @4 @$ @H  X@ @  @ H0XhP ȑ@x XX(T zP*\R7*#53$*\Rffff*Cq50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#1c*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Obje\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*D<50cc7a1c$*\Rffff*D450cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*Cg50cc7a1c*\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[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX]@X @VOœo^Ă邱Ƃ킩̂́AƋǗDBMSŐč폜ĂB !,( <!! |k <!! '*]X.n n!% n!%'㗝dP|Hk@]x  n!%']].K  *  n!%.] . 290$'\ 694$ 'x̕ҏW98$'I̎9:$'񕝂̕ύX9<$ 'sŜI9>$ 'Obh9@9B9D9F_nameOd5HB@b _nameKana OtKiP5HB@b_addressZP5HB@b _addressKana ZtKiP5HB@b _areaCodes撬R[h25HB@b _president \Ҏ<5HB@b_presidentNameKana\ҎtKiP5HB@b_personSҬ<5HB@b_telNoTEL<5HB@b_IDID5HB@bq8]]] H  H %T. .5J!bname %T9dnameKana %T$nameKana %T;Ldx;Lk`address %T$address %T;Ld;Lk addressKana %T$ addressKana %T;Ld;LkareaCode %T$areaCode %T;LdH;Lk0 president %T$ president %T'.d'.k president2 %T$ .@ president2 %T;Ldp .;LkXpresidentNameKana %T$presidentNameKana %T'.d'.kpresidentNameKana2 %T$ .@presidentNameKana2 %T;Ldx .;Lk`person %T$person %T;Ld;LktelNo %T$telNo %T;Ld;LkID %T ;Lqxqp H|X P .!0 .!0 * .!2A@&ko0G MsgBox Item & vbCrLf & Item.SubItems(1) & vbCrLf & Item.SubItems(2)o]] T!T T%L' H !.!J!N H !.!J%T%L  H !.!J%T(Tk Hko0]p']] H !.!J!N H !.!J%T!T H !.!J%T%L''y@k8 H |k  <!v(x  <B@ A@ro A@roζAttribute VB_Name = "ƋlI"D Bas0{1DB34C2E-A52F-44BC-B136-5B98C5CA4E2F}{720FD2FD-6F21-4E42^TDD32B81FCAEF} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc@. All rPeser;.http://ww(w.hd.c o.jp/webmaster@ Option vlic`it Pgk @Target}AHs SngGSub U Form_Initialize()rror GoTo ErrMes Me.LabelNotic0e.CaOo^Ă邱Ƃ킩́AAǗDBMSŐč폜1@BIf í.cmdSelect.Tag" Then Exit 8CEnd IvfE= CD@im cP Pc0lsPasSet= New ,cP.DB.GetDB(A@) <> " +myDߎ E7AC -myBIDAIntegevr#=(@@Count.cYCol0!P$ A$my;%?n:g!#FromClient ` ,(\, my"lWith ListVielw1c!.lvwReportd''\haEdM= @Manual''x ̕ҏWhHideW'= e̎(ow'umnReord er`J '' ύX@FullRowF ''sŜhGridlinesObh(CheckboxFiontrolTipTe4xt@ "z .FSclBaA!Multi#"Hea!s.Add , "_:n`"100l`(QKanatKiE8add@sZgeraCodes撬Rjh 5p0 (nt-Ҏ6 1f5 G  .`UsonaS/?"_tcqhATEL"_IDRa@"SMi_O`j_uPsQS$va`u i.1 tI7sQS=KjR.Item(iL1JQ3.La!e.7uQc"2%l`~ IsN DPW )) x%q.x (1)0s oemssIEe ,< h 2 ~"f  l    qJOuG3 #   pQ5p 4 v |  Z Ep{6"  _ _ _ _ sg2"o Up5s & "@"` @ uM6sqep_?R(VW? sŲ = "" End IfIf Not IsNull(myCollection.Item("presidentNameKana2")) Then.SuBb9s(6)s & "@"$\VElse#l;A{ersonu7up"L j*telNo%585/449#ID ") #AWithGKNext iACExit ErrMe 0 MsgBox  & vbCrLfADescripԃ"@Private! List@View1_Click(ByVal  As MSComctlpLib.A D@ 'p)1) Fk2  Che ADim myIDaLongc"iAIntegerO/ edTrue 0 =#iE#!For i`1 To MeB&,'s.Coun>tGa(i~) !C3 FaEaaWěT5cmdExecuXte_H0b-Booleab$(2B Q8,,,>a!=:4K<!J"I0/ F&RNJC Ƌlo^.txtIDD6.{Z=cnGetDataFromDBHUnlot x$nv xp p x ( knplx d5\Y`j4klxp p 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(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~:?"X H1QiMij^^RBv~* av5LH|@pG ];x|@pG ]; H1QiMij^^MEt@SPSSS"p(F>"L"P""  L"LLL@`k h`k nerdy% V`kRR4 n% r@` Tk  t` Rk f` k 77i  nh.% dFb%`.` yTP% {8Pp %`Hp`| j`k 33i  nh  p% d@ %`.(` yTx!% {`Ph%`H!0`| %( %@@%P%x XZ\^`bd@Pl @h\ @X `f.*&@T @ P @L @8H @D @4 @$ @ @ @ @Xph*p&rf.@x @h @X @H @8 @(( #@ 2]@ @ @ @ @ @ @ (*8  XZ\&jpHl@ x pM@ h ]t5@ X @ H @` D @0 4 @ $ @H  @x  (*@ @ @ @ @ @  @ p np.**#`@@ @P  @h  @ 8 h P ZrRd@x P @v @ d @T h P 8 XZ\ +@l p@h @d @T @R 8xX 0HHf @fhl x`h@\ @Z +j@@ (@0 @@8 X@ p@p Hm@ ldp @P XZ\.*&p-@ @ @  @ @h @ @ H8p8hPHj @j l tk`8   @\ n@Z @P@ @0 \k@ @ @( @@ (H(-@ ( XZ\.*&('@ @ eKan@ @ @  po@ @  `\ 0zP$*\Rffff*Cr50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#1c*\R0*#1b$*\Rffff*D250cc7a1c*\R0*#1b$*\R"    (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[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H ( %݂`FbN܂B !X(B&Ƌlf[^x[XƂ‚킹܂B !Z(B&㗝lf[^x[XƂ‚킹܂B !\(B,f[^`FbNŎWf[^j܂B !^(B$ׂĂ̍ڂ`FbNE܂B !`(Bf[^`FbNI܂B !b(Bf[^`FbNJn܂B !d(BA@f|  .!0 .!0 * .!2A@&kxop@ `*f[^`FbNŎWj܂B *:f[^`FbNɃf[^CꍇɎsĂB pW̃NA$& r|k].n n!!|pkhA@f|X P .!0 .!0 * .!2A@&ko  !X!x !Z!x !\!x!ŝ1‘IłBA@&|kx].n.`FbNĂ鍀ڂf[^`FbNɂ n!!6|k !X!xf[^`FbNݶ n!%*|kk !Z!z !Z!xf[^`FbNƋl̂‚킹 n!%*|kkk !\!z !\!xf[^`FbN㗝l̂‚킹 n!%*|kxkpkh n!!,|Hk@A@jf[^`FbNJn !X!xݕ`FbN܂B p݂̃`FbN$& H l|k ݂̃`FbNI܂BA@& !X(xA@jkPkH !Z!z !Z!x&Ƌlf[^x[XƂ‚킹܂B pƋl̂‚킹$& H n|k"Ƌl̂‚킹I܂BA@& !Z(xA@jkPkHk@ !\!z !\!x&㗝lf[^x[XƂ‚킹܂B p㗝l̂‚킹$& H p|k"㗝l̂‚킹I܂BA@& !\(xA@jkHk@k8|0 ( .!0 .!0 * .!2A@&koSuf[^x[XƂ‚킹vvisiblêƂ́AuǗ҃j[vĂяoꂽ !Z!z A@r‚܂ R B@d8 A@r‚܂ R B@ko@ !  !X(x !Z!z !Z(xk !\!z !\(xkx ( d` !X(x !Z!z !Z(xk  !\!z !\(xk ( ko ].n].] '.  . n!4%vkX]8]X$.x$.z]x] | z!N | z%T !X( !X(x | x%Tς !X( !X(xkhk` | z%TƋl̂‚킹 !Z( !Z(x | x%Tς !Z( !Z(xkk | z%T㗝l̂‚킹 !\( !\(x | x%Tς !\( !\(xkk |z  .!0 .!0 * .!2A@&ki ].n](.]H'.  . n!4%vk8]`]$.x$.z]] | z!N | z%T !X( | x%Tς !X(khk` | z%TƋl̂‚킹 !Z( | x%Tς !Z(kk | z%T㗝l̂‚킹 !\( | x%Tς !\(kXkP |z8 0 .!0 .!0 * .!2A@&k i Attribute VB_Name = "f[^`FbNj@[" Bas0{529FFDB1-9402-42B3-9076-7E2AEE0BBFB4}{ACA87661-CC8C-4C35-A1B7-9C48B19BD3CF} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD' Ѓn(Cp_ ' Copyright (c) HyperDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit P35 Sub UForm_Initialize() @@rror GoTo ErrMes Me.TagX1CC@݂.ControlTipText@ "܂BƋXlCxRXƂ‚킹 㗝. cmdClear+߂ŎWBjFheckׂĂ`Eh l`a?IExec_JncLCFSetQExitaT cO&:AZ!CIfQ.Number <> 0 ThenABGsgBox& vbCrLf &DescricEnd If !cke7_Ci^kdc Mb(C;; _ALBeCC)ꍇɎsĂP@i,YesNo, "K" A") qvbNo,(+0#Dim cP As clsPa@8= NewL!cP.INI.b` _2ACsC a2C!#`Q ECd`?D !De.ValuAA?.]KMU+55"&̂1‘IŸ'1$6o$s$&'Ee@.1NN4ɰPG(Rea?(G! @"@9s 81Q @|9Q1 "oisiS P &x/S q?o~̷}/*^%V2!&S1g_യ(k p*-A \#%$# av'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 \.{fFunc `ForBm Onor GoToADim cP As clsPape= NewL!myAlSs :msStrings@="""cP.Page..C@0r(, ~sAwX` IHtemO Key ! P=ol(1`wT23 i1Integ%Q&k^` k1 .Coun>tA"@ (k"8"\q4%:Pe0"= &HFF&/?U. ςS/ or( 8012 L??= "]i_`_PZTdϮCyC1ϸ.k _Y kruO˽ (o o 20268iNext k)i#`orrooooa#]"OOrOrOr^sOrd6bq]cb7OrQqaOrOrOrPaOr297*N Dim myCKey As Collect ion SettItem =$|(1) ] B2BNiI@nteger*kAFor kp1 Tou\.Count4If(k)."" The*Me.`FbhN.eex5= &HFF&.˃0..10#2$80124Enpd If uƋl̂‚{f[^xXBA?[ Femā㗝F FhFN ext kÔEx@it Fun ErrMes: c`L .Number <> 0hMsgBox & vbCrLf &DescripX` \A__SRP_10 __SRP_11:O0000000a__SRP_4a9)%($)($ xal/`#h3/h5lcld d d5l$Rd d kRdcld d d5l$Rd d kRdcld d d5lFl%,/5lfld d d5l$Rd d kRdCfld d d5l$Rd d kRdfld d d5lFl%,/5l,$ hdl .K h *d+C`*Z`d\h X\ \,kZ\M# (0d - -T60 # (0d - -P60 P $-lc&0M@@P -0:]350v\ \ \c0\ \ \50&0M@@T -0:.]350t\ \ \f0\ \ \50&0M@@P -0:]350=\ \ \c0\ \ \50&0M@@T -0:.]350;\ \ \f0\ \ \50&0M@@P -0:]350\ \ \c0\ \ \50&0M@@T -0:.]350\ \ \f0\ \ \50 d/ $ \\  l\l'''  \\  l# *#  , l*F0 2)\60 / <$lhPT`d0 \0 h.Ka h *d+C`*Z`d\h X\ \,kZ\M# (0d - -T60 # (0d - -P60 P $-lcY&0M@@P -0:]3509\ \ \&0M@@T -0:.]3507\ \ \&0M@@P -0:]350\ \ \&0M@@T -0:.]350\ \ \&0M@@P -0:]350M\ \ \&0M@@T -0:.]350K\ \ \ d/ $ \\  l\l'''  \\  l# *#  , l*F0 2)\60 / <$lhPT`d0 \0 P@LHD(x @x tkx$x x kxT*hx x hcX]3x5hR-x @x tkxP$x @x kx} h 5h*hx x hcX]3x5h]<''4:$NHH:XNhh^rU P/-Q#!-A../q/ 0%$a A%I1Y00 )P1 !Y121R!3Ry3!R 4 H( JBZy###Q#4I0i8I0i<I0i @ 0I`I D 0I`  H 0I $` L 0I)$`P6!7` dWWKFl%,/5lX X ,XX X ,XX X ,XX X ,XX X ,XX X ,XX X ,X l 5l$T XX  lTXyl'''4T XX  lT#P *#DH LL , lH*Fl 2PDH)XL6l4$  0 PHDXLl4(KE''(:XNHH *#x*Fh^ /x6hH(O $ @ k h 5h$   l#l''('H   l#x *#  , l*Fh 2x)6hH(((0 xhH(XKThx x hfX]/H4D D 4f$]/'  f]/')xD6h4+''4'H:XNhh 6hH4 $x @x |kx*hx x hcX]3x5hL-x @x tkxJ$x x kx*hx x hcX]3x5h-x @x tkx$x x kxT*hx x hcX]3x5hR-x @x tkxP$x @x kx} h 5h*hx x hcX]3x5h]<''4:$NHH:XNhh^ 6hH4[ +''4'H:XNhh 6hH4fhx x x5h h 5h$x x kxV*hx x hcX]3x5hT<''4:$NHH:XNhh^ 6hH4R +''4'H:X Nhh 6hH4fhx x x5h h 5h$x x kxO*hx x hcX]3x5hM<''4:$NHH:XNhh^ 6hH4K !+''4'H:X"Nhh 6hH4fhx x x5h h 5h$ xx  lxl''4'H xx  l# *# DD , l*Fh 2)xD6hH4#(DxDhH4$vx x kvxYlx#$$ %xd%&$'lx#$$ %xdI      !"#$%&'()*+,-./01245678A:;<=>?@3BCDEFGKZMNOPQRSTUVWXYJ[\]^_`abcdefghijklmnopqrsuvwxy|}~$`(A`/(`/nrU J$J`$AJ`$J`$J`$J`$AJ`$J`$Jff*D350cc7a1c*\R0*#2*\R0*#1$*\Rffff*D950cc7a1c$*\Rffff*D=50cc7a1c*\R0*#11$*\Rffff*D550cc7a1c$*\Rffff*Cf50cc7a1c*\R0*#f*\R0*#12*\R0*#1d*\R0*#1e$*\Rffff*Ci50cc7a1c*\R0*#23$*\Rffff*Cr50cc7a1c$*\Rffff*Cv50cc7a1c$*\Rffff*D250cc7a1c*\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*D150cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41x%./]SZswѶ1?M#=yn2CP+Qb1 fTBiuu!m$HeQR xu!m$HeQR swѶ1?M#=MESPSSS "p">"" "" "L" "LLLLLL"LLLLLL <<<<<<<<<<<<<<<<0{CA136E79-32D7-438A-8B50-B391A32B5162}{66F50B31-54A1-420E-8869-1D759FE0EE19}8 >@`k &`(k % ,` k . 8`H k7 nx %`.lǗ 2`h k&&T nx!%`HpP`.l > `kz`@ L``k `Pk   `(Pk    `XPk  ` `Pk   `@k .. nx%`t P%`.L<  `k  ""  Dh% n<%  `k$ - n% %H  %`  `@8%% h8P ~ "@x @t @d @`  $.*&@L X @H @D @@ @< @, @ @ @ #@ 2] (*aO*@@ x @( h @p X f@X H >d1@D +j@ 4 >d1@$ @  pM@ ]t5p X (* l @ x +@ h @ X g@ H l#@D @ 4 Q*@$ *#`@0  d@   x ` 0 @8 t >d@r +@H h >d*&0.jh@P d 6d@ T @ D l@ 4 @ $ *FP@  P@@  d@ @ +@ lp@ +@ px 8Ph@t *F@r 6P@h 6@xf P ld@d akx al@` *&0.P@ @\ +jxt @(L d@@< lp@X, l@p l @ m@ ld@ a@ d @ 2@ (*&B.*@x @h @0X @H @D @H4 @x$ @` @ @ @ @ @ @ @ 8 NPR.*&@Px @h @X @H @D @h@ @< @8 @4 @$ @ @ @ ~r@l @h @d @T @P (~r@l @h @@d @T @P (X~r@l @@h @pd @T @P X@(~r@l @ph @d @T @P pPh&@d @T @D @4 @`$ @ @ @0 @H @x @ @ @ @ @8 @t @ p @l @h @X @T X$.*@J @D @@ pPh$*&.@x @h @@X @XH @B @8 @(4 @0 @p @ @ @ @ @ @ x*p&r.@x @t @d @T @0D @H4 @`$ @ @ @ @ @ @ @ @  n\( % (PzP$*\Rffff*Cs50cc7a1c$*\Rffff*Cy50cc7a1c$*\Rffff*DD50cc7a1c$*\Rff*\R3*#4e*\R3*#4d*\R3*#8c*\R1*#c6*\R1*#c1*\R1*#17b$*\Rffff*D<50cc7a1ci48<`@_DHaLbPTdX\`dhglptxf|chI  8 "X "  ?BB? "(P   ` hx  $l " ,[0@HX `"h ,[p "   .* HXHWh ,+ "(0@ H $Pl` "  <  < *8h p 0  % "7  0HW@,++  $l(H P"X ` ,]hb+ *0H*Ph  $l "     "( 8 "H X h p $x l   "  ? ?    ? ?0 H ` h "p x ? ?    ? ?    "( 0 ?@ ?X  p  ? ?    "  ? ?  ( 8 ?@ ?X p   "   &    N 8@  ` 0+p   * -   &+08*@X `px - +  $l(H P"X ` *h     $  H8-  8 2+H   $l "  P  $$ (  +0P X $`lp   ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H ~ !6%(zd ~ !6%(d ~ !6%(   !6%(zӁ@Ǘ҃j[ɂ  ! (A@ !(~ !"(z !$(x !(x|P H .!0 .!0 * .!2A@&ko@ !(!x !*!x !(~d !(~ko !(!x !*!x !(~dH !(~k0o( ].n n!B@6]  y[W\ y[W\ n!%'. .'. y[W\ y[W\ . * %  n!%*"y[W\ۑł܂łBA@&|k n!B@,d . * % '.k . !0(d|  .!0 .!0 * .!2A@&kxop8 `5-----------------------------------------------------y[W̌5-----------------------------------------------------$݂̎ۂ̃y[Wo璲ׂ]x.n n!4B@6]] H n!4!6 . H n!4%8'.d . * H n!4%8'.k H n!B@6 y[W\ y[W\ . * %  n!%*"y[W\ۑł܂łBA@&|@k8 n!B@, . !0(dɏI܂BA@&|  .!0 .!0 * .!2A@&ko  !(!x !*!xXuύXo^\ƂĐݒvuo^ύX͏oƂĐݒv̂ꂩ`FbNĂBA@&|k] !(!x1 CύXo^\'@ Ik !*!x h o^ύX͏o'@co.jkx @$B|`kX|P H .!0 .!0 * .!2A@&ko   B@N‚ P!Z(z! P!Z(x P!\(zX P!\(x R PB@|  .!0 .!0 * .!2A@&kPoH` !zB ~ !6%(z  !6%(z A@rBd  !6%(z ~ !6%(z A@r‚܂ko !z ~ !6%(z  !6%(z A@rŎWd0 ~ !6%(z  !6%(z A@r‚܂ko !zA ~ !6%(z  !6%(z A@rn!dx ~ !6%(z  !6%(z A@r‚܂k(o   !z ~ !6%(z  !6%(z A@r d ~ !6%(z  !6%(z A@r‚܂kpoh` X eLXgt@Cw肵܂BF].nn!]$$$$00$$$00$.txt' !"  n!%' &eLXgt@Cw肳Ă܂BA@&|XkP  n!%  n!%e A@dt@Cgp̂悤łBA@&|k !$!xl̂].!%] %'.  . %|XkP !!xe@ $| kkI܂BA@&|  .!0 .!0 * .!2A@&ko  !$!xNI]P. !|PkH]p.nzsystemׂď n!!|k Me._Click  "eLXgt@Cǂݍ݂܂B *LȂ炸f[^`FbNsȂŁA㖳exɂMB *L\Ăꍇ́AۑĂIAxJĂBA@& !!xe (eLXgǂݍ݂ŃG[܂BA@&|xkpkh|` X .!0 .!0 * .!2A@&k o >Wordt@Cɂ邷ׂẴtB[h̃bN܂B *2f[^`FbNŏsȂ΂Ȃ܂Bs܂H pmF$& r|@ k8 ].n n!!| k n!!| k bN܂BA@&|  .!0 .!0 * .!2A@&kh o` X ] .nxs:com n!B@ xsxAttribute VB_Name = "[Uj@[" Bas0{CA136E79-32D7-438A-8B50-B391A32B5162}{66F50B31-54A1-420E-8869-1D759FE0EE19} 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= cVERSIONC CDim cP As clsPa#Set= NewcP.INI.SearchTextBox PagL@$s1.E^n_ayt 7opMethod.Valuq< Multi 17ExitOJCK:eKIfM.Number <> 0 Thefn"sg& vbCrLf &Descri"-End Ifb ^K`cύXo^\_Chan~gDa Qj _Or F! " ͏o e.3G*Ea` 9`?#?l ?Q?QW<hAQ*7C_qUqReadgsySngsvGetf(""n\",a`O"",a@!Ƃ> , VBA.Rence( s,4`")) 2?aMc8 ۑ܂B ??9 avK/a\ " DG A2txt.ARP lHHmH KJHH}H ub@yx4_Ck?* x'-/#('&!D@݂Ho)璲ׂ5s/no 5i5Integer6 i50do0t.ACount - 1_6bB!'p;a|(i& *s_ii*NP| ipP~P 40CC=rr=vxH==[= <88%EЏI$0GD;;8σO;)σI A ΃"xo;A OrVXAFo-Z u"u{Đݒ0vu@;`FbNq>:]3N>myShinse";p՗2 f'9mI` O (s 0it [&-riiiʹ End If Sub Private ` f[^`FbN_Click()On Error GoToQMes. Me.Hide  j[.Ƌ(lxgXƂ‚킹.Visible = Fals?Nalu#L㗝M!'MShow vbModelesExit:If.Number <> 0 Theń@MsgBox &CrLf &BDescript ioD ܌‚81 "0҆wTr@f%Word.ActiveDocument.CommandBars(cUserMenuName)ӊAdmin%IUnload ME;H/"U=+'c܂2"o27777@7* 7k.MMl@7#o377!77?o` 77M7?oB7477!7WzHoSP!/3?^?^7bb 7oSreLXg_'QX't@Cw肵BcDim cP As clsPapersSetq= New!myTextFi0String= Year(Now()) Format(MonthT@, "00"Day".txtV" .!.Save(Thisv}Path, 7 'p """ĂB WSS cP srLo)(2Q _e_^KilloK"" gp̂ł )O  op@#Method.Vq5'T'!Q'T 'sq y'ascT.GetData&q"1QT.W0rite7, sarW KOlde,p ( aVI⹒? @rPsϽmϽ20ϽϽJǏN1"p?'=?' ?'?'xt)P%InputE%&WWBP@40Y'systemׂď P.INI.Cl`XAP@- -ռ'@@3hg& 0 TRADescriptioDAE#(PrivateAA+ tH̃Á_Cl ick()&On or GoT>o-C,-C&("WordA@CT@@BQh 73&@eMŏR@SKB ܀"H",YesNo, "mF")@vbNoL\uGS|Dim cP As cl@sPaperCSet= New@xcP.Form.UnLockXCINI.Clear ZI"*?1UUUcfU T( \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 8x#x$ (xDhH4DKS xrtx @ t | t*htx @ t p >h1lt ll0ClWll 1dr>d#htx @ t t kr2hdt+'''$:TNDD 6D$rtx @ t t3"ll 1lllt  t ht$ tt ltl'''$ tt l#h*#d  ,ld*FD 2hd)t6D$,xl0 hdtD$pK xrtx X t Dt0phtx X t $lhtcd ll0%`kptx X t (>`1lt7ll*#\`kptx X t (l`*1l2\`t pdd[rtx @ t | tWll 1\r>\#`tx @ t t kr2`\tu+''':LN<< 6<rtx @ t tllt  t ht+''':LN<< 6<$h tt lhtkl'''h tt lh#`*#\  ,l\*F< 2`\)t6<p,xl0 `\t<K]hx  x hfX]/H4D  D 4f$]/')xD6h4+''4'H:X Nhh 6hH4*hx  x hcX]3x5h!C*hx  x hcX]3x5h"Cl #$ xx lxl''4'H xx l#*# DD ,l*Fh 2)xD6hH46(4 xDhH4DK x$$% &x x"fXx$$% &x x5Xx$$% &x x"fXx$$% &x x5Xh%$$%$D xx lDx>l'''$D xx lD#@*#48 << ,l8*FX 2@48)x<6X$D$ 0 @84x<X$P'$(al.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +hK?P:T%dh$ 4h 0d HP rU KH (q&I&a ).Q. QA! )PA!!!%$a A%a}!"BI""qFF` Q# H HYIIyH%H18 Fj%(I& @&4 (Q)*0)+QE ,,!E1\-yAAAAQA40y2iii802`IJ<0I2`J @ 0I6```DA/)a6___ H 0II6 `IJ L 0I6aaa` JP22bbbT1B X 0I6ddd`J\!8 I8`6)!7` J d 0I)3`J h 0I3` J l 0I3ggg `JpA/)i/tA/)7xA/)# | 0I4fff `QJ 0I11`IJ 0I5 `J 0Iq1ccc 0I5 `J01hhh11uJJWJJJWJJJJWJJJJ_JTK?`:d%tx$ 4x 0t H` )xt`Bd`:d%tx$ 4x 0t H` )xt`Bd`:d%tx$ 4x 0t H` )xt`?`:d%tx$ 4x 0t H` )xt`x  x @ x \x\ @ x xx  x 8xx  x xcLx  x x5Lx  x x$H xx lHxNl'' ',H xx lH#D*#<@ tt ,l@*FL 2D<@)xt6L, )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +h,P$ hdPlP'$(al.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +hK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +h,P$ hdPlP'$(al.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +hK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +h,P$ hdPlP'$(al.V5l?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +hK?P:T%dh$ 4h 0d HP )hdP?P:T%dh$ 4h 0d HP )hdPlh)$* +h,P$ hdPlDK xD ,D4 - , .d ,dT /T:$0N4 1:0N 1:2t`1t6dD4Tt8p3$4 4hltlplx l $5>h1t/pl lt09+'4'D'T:$6Ndd 6dTD4*Tltlx l (5lTlh*Tltlx l (5lTltM$@ 7+'4'D'T:$8Ndd 6dTD4*dl  l dc$]3l5d@ 9PpP P:>p1LJlLltP X:kJ;*dl  l dc$]3l5dlt ;}+'4'D'T:$<Ndd 6dTD4$T ll lTl?l'4'D'TT ll lT#p*#@h DD ,lh*Fd 2p@h)lD6dTD4<D4xPtLTph@lDdTD4t0K>*hx  x hcX]3x5h 9DBD T:kBS <$Bx< @ x kBxH'''H=*#8>*#4*#0?*Fh 28406hH9*hx  x hcX]3x5h9 @7+'''H:XANhh 6hH$ xx lxl'''H xx l#8*#04  ,l4*Fh 2804)x6hH,<D0 840xhH|KP''$:TBNDDC*#xD*#tE*Fd^2xt6dD$Z $ d  $Fk$ @  k+''$'D:TGNdd 6dD$$  lul''$'D  l#x*#t  ,lt*Fd 2xt)6dD$ |(0 xtdD$`8<LdXh H l   |o__SRP_4b HMQ1{v2 LR__SRP_12{6__SRP_13*0&` $J`$AJ `$J `$J `$ J ` $IJ `$nrU D$`$A`$`$`1c*\R0*#f*\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*#1bA8<2@DHLPT.X\`dhtcq"DD@E۷F ^eXVOy]NȞw8ܳ9vFٽ~zoҚtTC t@xҚtTC t@E۷F ^eXVMEp@SPSSS8F"B"p>" LL"""LLLLL*LP`Tkhh @xx% Eterdy%`Hr!`Ljz \] `8L L D  @ h   ` kAAo nx8%`\ `H`L` `hxk  `8xk,`k` JJi iiii  X0M8 0ǓʐMp ,̗MNJǓ `H̗ \`PkC̗y8X % %"4@  p` 8Px h@ l `@d \@xb +`P H$\@ ` Hx ` @P @@ Pvx@0 !$@@ x `~k(@| @ @ @ @ X @ @0 @H P @` @x @ t @ d @ T @ D @ 4 @ $ @  \k@8  @P @h @ @ @ @ @ @   <`@X  0  <p  ?x @ @ ~  X E @ | E H@ z Nx@@ x  N`0 Q@@ v ffX  Wn@t %h @ W@ ZX.*&`@ p @l @ h @d @T Xp @8 (hP*&@t `@ d @ T @PD @4 P@0 @h @ @ @ @@ @ @ @  8 @  H vx` h%@h "@ @ H@ @ @ @ 4. r@x r@x Xx H8h `l `h8H`d````x`\`h`d```\`h`d```\`h`d```\$&.* @H @08 @4 @H @h @ @ @ @ #@ %h/@ /(=@P *#h@h @ @ @   X0D zP*\R0*#1c$*\Rffff*Ct50cc7a1c$*\Rffff*DA50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#9*\R0*#1d*\R0*#1e*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c$*\Rffff*D450cc7a1c$*\Rffff*D150cc7al(p*t,x-|03     !"#$%&1/ ') $+(,048  8 "X "    80 P!`p   (8HXh x ( 8HXhx hl % @Xp 5 g%0 H5X p(g%  5 8 H %   8  P 5` x    $ l   "    ; 4    4     @  H  X  F`  F  $B  B  1  B  B  B@  B`  B  B  B  B  B G  G@ "G` B B B B*c @ 2Ph p x 2  *9+  $ l0P X"` h "  B4  1 @HXh px1 108HX `p 8+    8+  @ HPX `h%p    $08 H` h $    $l   ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX]@ @]`.@].D] H @%J.D] L D!N L D%T !PB@R L H !P(V !P(X !P(Z% !(z !(X !(X !v(X  !x(X !(X !(X !(X !(X  !~(X !(X !(Xz !(X  !(Xz !(X% !(Xr !(X !(X% !(X  !(Xz !(X !(X !(X !(X !(X% !(X !|(zz !(zW !(z !(zz !(z%]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'\ . \``P H \ H H+`  H$\ H+` HA@& ` !,.!0 !(d•ʶD'\ \`!$ H \ H H+` H$\ H+` H ` !, !(d ȈՂȋƖp̑D'\ \` H \ H H+` H$\ H+` H ` !,  !v(dkKK֊KMKKCKߊKKlK㊇KKD '\ \` H \ H H+`P H$\ H+` H ` !v, \r `r|p h .!0 .!0 * .!2A@&k0o( ] .n !!x %  7f[^x[X̔lɂ͍ő250o^ł܂B *>\CĂxf[^`FbNsȂĂBA@&|@k8]@ !!x !!x !!x,$'\ ]X]p] L \ \..  n!%jaIDC@b n!%cIDC@b !v!xlicenceNo_HeadC@b !x!x licenceNoC@bpIDC@b" !!xaddressC@b !!xareaCodeC@b !!xMoveAreaC@b !!xkindC@b !!xpurposeC@b !!x issueDateC@b !!x estabDateC@b !!x beginDateC@b !!xtermDateC@b L$\callsignC@b L$\gitekiC@b L$\ productNoC@b !!xsyoninC@b !!x frequencyC@b !!xpowerC@b !!xmemoC@bq !v!x !x!x n!%'   n!%|k  e  n!%|XkPkH@  DBo^ n%!(xo^܂BA@&A@|  .!0 .!0 * .!2A@&ko Ǘ҃j[.Show A@r‚܂oX A@r‚܂o0   ]   $   $$+dP +k]X   $   $$+d@ +k]   $   $$+d  +k   .ʕ̐ƋZKԍ̐vĂ܂BA@&'z0 k( k   .ʕ̐Ɛԍ̐vĂ܂BA@&'z k k ]]  \x H  H$ H+\  H$ H+\d $ H+\ myArray(i, 1) = ""k  H$ H+\d $ H+\ myArray(i, 2) = ""kP H \'z8 0 .!0 .!0 * .!2A@&k i Attribute VB_Name = "Ƌo^"  Bas|0{A3FD794F-FBF7-4E5D-AF88-1A01EF1BC2C8}{DC38779E-39B3-4676-A6D9-BD7EAA7A6FD5} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All Areser;.http://www.hd.co.jp/webmaster@ O@ption vlicit Pgk myCollecAs&E Sub U"Form_Initialize()B@rror GoTo ErrMe s Dim cBranch cls ASetF= New ')G/iIn`tegerO D&.Get(i3%Mj> j@1 @9.Coun'@R Me@mboBoxC9.AddItemX.(jNext j$ListIPndexi ockB Back7g= &HE0AEgtxt)@s.Visi i fgentr.L2@Cli{Co$LicenceNo_Head allSign7GitekiNo7Syonin9ProductSI$&BCWCe= Code9MoveAyKinUUBd(a$>), 1i= ?0\xhenqM sgBox & vbCrLf & DescriptioEnd If7=PrivateC o^_Click( On#|GoQ>cP As cls PaperLSet = New4VBA.Len(@UtxtMemo.Value) > 25t8"f[^x@X̔lɂ͍ő@ /ł܂pB" _K,G"\CĂx`FbNsĂGqEXHAKVarpiantGetFromS tringHCallSign2J, NGitek iNOEProd uctNoF ","!iA Int,egkAjRmyIDLongC+uAj*LAmyCollecPNothc $qGGWithkQ! .AddO@.INI.RtAID(@"aID"1C$c3.bW`@fQ 69"&"p6C hress a dd7AreaCode'TMoveKindk@PurpospTIssue6DF i%Eshtabe%Beginb%TermjtQjAՠIc@~s@~|1![g<2!peSSyondin"sFPrequ _y0f OdKPowerp'b~mbVA=2K=@DB.InsertOrUpdp"By7U<*:j?G`ltjEcPr.DB JFalse Tn1dVd{UoQVDBX Es qYnp`m2R(pKAGAMI@vDBz").DropDown!a+đč"B} }vwLZ P 0D19b m S'Ǘ҃j@[.ShowC U0nloa0P'h‚8I܂ ubph Fun3zψ(Byxwd,-%/ U?6DelimPNr7)Ɣᴹ@/$ r' !In(1, , vbTCpar@Ou= Splitq@LmE@>ߓA0 RGDDmyu xNwOr, qQ%t s) #o0d ?#)K# XmyV wz) <> 0 Th en If UBound(myCallSignArray)hGitekiNo4 MsgBox "ʕ̐ƋZKvĂ܂B"DGet`FromString = " $Exit FunctioEnd IfO  Productc$%xGDim i As Integ$erGmy_()AC`Re  o,o 5)CFor@=ԛC i)@L(i w PwL1C JElse%a0&' 3ɩ 쪁 2C33"NextC'r{# { ErrMxes: $.Number& vbCrLf & Descrip0 @ A/)^ 0I^`A/) _!!!D)!_"""A/)I_###2a_$$$A/)_%%%D)_&&& 0I_`I2_1112S2 `A/)72)`D)Q`///2`2` 2`2 a  0I9a`2Ya'''2a))) A/)a$A/)a(2a+++,2a0A/)!b429b82abW L K trU ] :ZYic!!" a   9Y YAa! i1QqAcccc d1dYddddd%$a A% y|)yuyZ)PiI YIɹ1!I)9aa.q- ,F1z yAZ)ZQZyZY8A/)Z<A/)Z@D)!E222DA/)ZH6!7` LA/)i[PA/)[TA/)[XD)[...\A/)[`A/)[dA/)Wh2 \l29\pA/)a\(((tA/)y\***xA/)\,,,|A/)\---A/)\000A/)\3332\2]2A]A/)i]   2]   A/)]   2]   A/)16A/)]   2^A/))^2A^A/)a^2y^A/)^2^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 dT 6T(D]tt6dT4''4'T73*#08*Fd 4/06dT4dt t T  4  94Td0:20)t6dT4 5IL5Icc=[t4t[t4t 4Ftx @;t <''4: =NTTlid t6dT4Ftx @;t <''4: >NTTlid t6dT4Bdt |t ''4:D?NTTd t6dT4Bdt t ''4:D@NTTd t6dT41''4: ANTT:DNdd 6dT4Bdt t ''4:DBNTTd t6dT4Bdt $t ''4:DCNTTd t6dT4Bdt Ht ''4:DDNTTd t6dT4Bdt Xt ''4:DENTTd t6dT4Bdt xt ''4:DFNTTd t6dT4Bdt Pt ''4:DGNTTd t6dT4Bdt \t ''4:DHNTTd t6dT4Bdt dt ''4:DINTTd t6dT4Bdt lt ''4:DJNTTd t6dT4G@(D%dq''4:KNTTl -6dT4G@(D%dq''4:LNTTl -6dT4G@(D%dq''4:MNTTl -6dT4Bdt t ''4:DNNTTd t6dT4Bdt ,t ''4:DONTTd t6dT4Bdt 4t ''4:DPNTTd t6dT4Bdt <t ''4:DQNTTd t6dT4ccdt |t T  T"dUx p; LRlq)t6dTl24tx p;t PRk)t{l24tx p;t XRk)t d*9t+Sx ;t |T 8U)t+''4'T:DVNdd 46dT4:$ 1tt 2ltl''4'T 1tt 2l#03*# 1 ,2l*Fd 420)t6dT40x8 0tdT4PlxW$X Yx$ xPlxW$X Yx$ x l ChlCdlC`lC\.Klhl\r1\MH@lh8 Z86 Y4X58XlhlX;ldl\1\MH@ld8 Z86 Y40580ldl0;l`l\j1\MH@l`8 Z86 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 /x `H l, 0` d\hX0 8 H8<`Y/nrU R$R`$R`$R`$R`$!R`n%rU~| >(q&I&a ),1-modCheckDataP x__SRP_52.__SRP_53modInitialize-1CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*Ci50cc7a1c$*\Rffff*DB50cc7a1c$*\Rffff*D850cc7a1c$*\Rffff*Cg50cc7a1c$*\Rffff*D650cc7a1c*\R0*#f*\R0*#2*\R0*#1*\R1*#10e*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R1*#10b$*\Rffff*Cp50cc7a1c$*\Rffff*DE50cc7a1c$*\Rffff*D150cc7a1c  8 "X B   6- ( F0 2x   `exME`@ "p> LLL"""""LLL" "--------------------------------------------------------------\̊{Iȏ`FbN2\̃^CgƐ\̕ʂ̃`FbN@K{ ݎw肵Ă n%!!x6uݎw肵Ăvuw肵Ăv̂܂ 2\̃^Cguw肵Ăv̂܂܂łB *&CĂxsĂB ݃^Cg$& zk ݎw肵Ă n%!!xe4uݎw肵ĂvuύXo^\v̂Ƃ;uݎw肵Ă2v 1=A2=2730A3=27304 ݎw肵Ă2 n%!!x,\̕ʂu2730vɂȂĂ܂B *C܂H p\̕ʂ̏C$& rz@d8 ݎw肵Ă2 n%!(xkk ݎw肵Ă n%!!xe2uݎw肵Ăvuo^ύX͏ov̂Ƃ;uݎw肵Ă2v 1=A2=2730A3=27304 ݎw肵Ă2 n%!!x1\̕ʂu27304vɂȂĂ܂B *C܂H p\̕ʂ̏C$& rzpdh ݎw肵Ă2 n%!(xk(k k ݋LNN n%! L͂Ă܂B *s܂H pL$& rzkxdpLN@N ݋LNN n%!'l l  n%'l l/01/01ggge %'l l ݋LNN n%(k ݋LN n%!LN@ ݋LN n%!'l l  n%'l l ݋LN n%(k ݋LN n%!LN@ ݋LN n%!'l l  n%'l l ݋LN n%(k̃`FbNw肵Ă  ݈ n%!!x "݂̈悪w肳Ă܂B *&CĂxsĂB  ݈$& z kk'z  .!0 .!0 * .!2A@&ki.Public Function CheckCommunicator() As BooleanOn Error GoTo ErrMes CheckCommunicator = False Dim cP As clsPaper Set cP = New clsPaper' If cP.Config.ReadConfig = True Then myLocation = True Else myLocation = False End If Dim myString As StringC '--------------------------------------------------------------+ '݃y[WAӔC҂̏mF 'ݔl> If cP.GetValue(pKAGAMI, "ݔl").Result = "" Then| If MsgBox("l͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "l") = vbNo Then Exit Function End If Else@ myString = cP.GetValue(pKAGAMI, "ݔl").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)@ cP.GetValue(pKAGAMI, "ݔl").Result = myString& If VBA.Len(myString) > 20 Then If MsgBox("l͑Sp20܂ł͂ł܂B"' & vbCrLf & "CĂxsĂB", vbOKOnly, "l") = vbOK Then Exit Function End If End If End If 'ݔlSҖD If cP.GetValue(pKAGAMI, "ݔlSҖ").Result = "" Then If MsgBox("lSҖij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "lSҖij") = vbNo Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݔlSҖ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)F cP.GetValue(pKAGAMI, "ݔlSҖ").Result = myString End If 'ݔlSҖD If cP.GetValue(pKAGAMI, "ݔlSҖ").Result = "" Then If MsgBox("lSҖij͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "lSҖij") = vbNo Then Exit Function End If ElseF myString = cP.GetValue(pKAGAMI, "ݔlSҖ").ResultE myString = cP.SanitizeText(myString, pWide, True, True, True)F cP.GetValue(pKAGAMI, "ݔlSҖ").Result = myString End If If VBA.Len(cP.GetValue(pKAGAMI, "ݔlSҖ").Result' & "@" & cP.GetValue(pKAGAMI, "ݔlSҖ").Result) > 50 Then If MsgBox("lS҂̐50ȓœ͂ĂB"' & vbCrLf & "CĂxsĂB", vbOKOnly, "lSҖ") = vbOK Then Exit Function End If End If 'ݔldbԍB If cP.GetValue(pKAGAMI, "ݔldbԍ").Result = "" Then If MsgBox("l̓dbԍ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "ldbԍ") = vbNo Then Exit Function End If ElseD myString = cP.GetValue(pKAGAMI, "ݔldbԍ").ResultG myString = cP.SanitizeText(myString, pNarrow, True, True, True)D cP.GetValue(pKAGAMI, "ݔldbԍ").Result = myStringD myString = VBA.Replace(myString, "-", "", , , vbTextCompare)' If Not IsNumeric(myString) Then If MsgBox("l̓dbԍœ͂Ă܂B"' & vbCrLf & "s܂H", vbYesNo, "l̓dbԍ") = vbNo Then Exit Function End If End If End If CheckCommunicator = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Function '].n n!B@6]8ݓo^ԍ ݓo^ԍ n%! 0o^ԍ͂Ă܂BmFĂB *s܂H po^ԍ$& rzkd ݓo^ԍ n%!'l l  n%'l l % l ݓo^ԍ n%(d@  1o^ԍ̕256𒴂Ă܂Ă܂B *4̂ߓo^ԍmFEC邱Ƃł܂B *s܂H *Jsꍇ́AuSpEpvuӖȃXy[XvȂǂɒӂĂB po^ԍ$& rz kk]P l n%z'n nzdݶ o^̔ԍ n n!%*zk n!B@,kxkpݓo^̔NN ݓo^̔NN n%! (o^̔NiNj͂Ă܂B *&CĂxsĂB po^̔NiNj$& rzkxdp ݓo^̔NN n%!'l l  n%'l l/01/01ggge %'l l ݓo^̔NN n%(]h l'  % ' H % '  %x8o^̔NNiNjɐȊO͂Ă悤łB *&CĂxsĂB o^̔NiNj$& zkkkݓo^̔N ݓo^̔N n%! (o^̔Nij͂Ă܂B *&CĂxsĂB po^̔Nij$& rzkd ݓo^̔N n%!'l l  n%'l l ݓo^̔N n%( l %x8o^̔NNijɐȊO͂Ă悤łB *&CĂxsĂB o^̔Nij$& z`kXkPkHݓo^̔N ݓo^̔N n%! (o^̔Nij͂Ă܂B *&CĂxsĂB po^̔Nij$& rzXkPdH ݓo^̔N n%!'l l  n%'l l ݓo^̔N n%( l %x8o^̔NNijɐȊO͂Ă悤łB *&CĂxsĂB o^̔Nij$& zkkk & ݓo^̔NN n%!N ݓo^̔N n%! ݓo^̔N n%!'l l n!% *݂̓o^̔NɌ肪悤łB *&CĂxsĂB ݓo^̔N$& zkdݶ o^̔N l n!%*z@k8 n!B@,k ݕύXKvƂ闝R1ݕύXKvƂ闝R2ݕύXKvƂ闝R3 ݕύXKvƂ闝Rt[ݒljݖݔ̐ݒuꏊ1ݖݔ̐ݒuꏊ2 ݖݔ̐ݒuꏊ1 n%!!x ݖݔ̐ݒuꏊ2 n%!!x @ݔ̐ݒuꏊ̃v_E𓯎ɑI邱Ƃ͂ł܂B *&CĂxsĂB ݔ̐ݒuꏊ͈ړ͈$& zkkݖݔ̐ݒuꏊt[ݎgyы󒆐d1ݎgyы󒆐d2ݎgyы󒆐d3ݎgyы󒆐d4'z  .!0 .!0 * .!2A@&ki 'n].n n!B@6f[^`FbNƋl̂‚킹 n!%*z(k  n!B@, <B@ n!!zk n!%zk n!B@6f[^`FbNƋl̂‚킹ς n!%*zPkH n!B@,'nz(   .!0 .!0 * .!2A@&ki 'p] .n n!B@6f[^`FbN㗝l̂‚킹 n!%*zPkH n!B@, `B@ n!!zk n!%jz k n!B@6 !!xݶ㗝l㗝l n!%*zp kh d` !!xݶ㗝lƋl n!%*z k k !!xݶ㗝l㗝l n!%*z k k k f[^`FbN㗝l̂‚킹ς n!%*z8 k0 n!B@, !(~ !(~ !(~ !(~'pz  .!0 .!0 * .!2A@&k i ϵAttribute VB_Name = "modCheckData" ' ЃnCp[_dCopyright (c) HyperDyne Inc. All 8res@erved.fhttp://ww(w.h`d0.c o.jp/webmaster@  Option Explicit Pub FuncKagami() As Boo0lean@ "" _C\>Orw\Ґw4Ag3P[ _8|  S=_ȁ9B).Result myString = cP.SanitizeText(h, pNarrow, True )VBA.Forma & "/01", "`ggge";yGetValue(pKAGAMI%݋LNxN"E`nd If I&f V+<> "" Then "'@@ @4"8#I;L= ?Qf(Q8QH?QònI;Q''`FbNw肵Ă\AYDropDown.1̫MsgBoHx("CЂ!BB" _ātvbCrLfvCxsI@, vbOKOnlyvc!! Exit FunctioHmxiCheckKagxami`  ErrMes:!.Numbher @{0,$ &@Descrip 'PublicF "Communicator() As Boolea ' 'OnAor GoToA@@A$.A FalseGD im` clsPaperdSet= New h#ConfirgadCD+$'ÁamyLo@5Ece&AF`"τ '-8_y[W`AӔC҂̏mFl$}Ǟ=Gf'eqઓ͠~p#$HQ"n܂ H vbYesNom3vbNo7a dvBE$?VWid:6Yvm` QLenf) > 2%A^͑Sp20S PrłT?yUU UOKa OsQ7'3SҖ71O1ieijo2j*o2o2 ")3 Q0d"P3[a+ кo3$4y3!RY !埼96 ÿ!b(i!!!$T'!4!!XTT!/U?1!׻!ng !@EV'''& "@"@ߏ]5]%%̐5]ȓb]ȹYA%__O]l']$˲ 'I8\dbԍ If cP.GetValue(pKAGAMI, "ݔldbԍ").Result = "" Then8 'Ms@gBox("hlĂ܂B" _x@& vbCrLf & "s+H",YesNo 0vbNo OExit Functio End IBf|ElseCmyString+#SanitizeText(0, pNarrow, True)$1HVBAAplaceF"-Y", [*CompareI#xNot IsN@umeric)`X")XYIʐCheck@Kmunicat|ort_͡ErrMes:I.Tber <> 0MS H ADescripHF(2Pub(licF ETC() As B ooleae On!GoToA` !@FabhDim clsPapDerSet=` New K@\INI`RadgeX! Crc'o^(eAa`ӗmFĂ@`)hI LHEe<%'=.g/!#)+ULicen|ce*Len< 256]8+GK!a :̕ 𒴂֦@Dշ: i;̂߅) CEC邈ƀł? iF ́AuSpEvuȃXy[Xvǂɒl,v!))9*ACmyv$>!,%tj!1@6q ?$)JLÒ4sR, h!hR.sK2DaavPt 0xR NN 4 $?Sb9SiNjSƟq/R38xV}*{/j"mEP??`6{?Uoơ-UForma1/01 )ggge" $   ? ;Year?; 0={Ss ReAཕa ) myp?")Quq5+T/,BȊO,适悤ł?b?-?-WbOKOxnly)8D-OKD"-P-A.?Cϐ# ?C?Ck?C 5bu?Cj?CY8!>?C?Cr @I*, "ݓo^̔N").Result = myStr@ing If Not VBA.IsNumeric(L) T8henXf`Ms@gBox(" ΔNijɐȊO͂Ă悤łB" _ SW& vbCrLf & "C6xDsTF,2OKOnlNy E")xvbOKb8Exit Functio rEnd If/R' cP.GetValue(pK AGAMIғ""Xi܂XWYesNoWsWNoWVQlseIbE@lLSanitizeText, pNarrow, TrueI)sn1nB{kk@kk Cdoc(CNNi _;OF{ DChkDate.Chec"= Fa f㐂頂Ɍ@ گ_[gOY Ej#INI.Se" Ea1&P 2yavc6$ύXKvƂPR1>2>3>t[C ljr0/23ݔݒuꏊ{ T mT19DropDown.p <> 1}iAP?OO 2?OB+  v_E𓯎@ɑIqʱ/u @/0//" ͈ړ͈?4SQ?4,!_$T-gyы󒆐d![-[-4 SPETC`zC ErrMxes:S`P.ber&0SC! HXPQDescripk*w@Public SelectCIDFromDB() As BooleaP OnQor GoTo c `2LDim cPclsPaperEtq= New $LReadp4Tf[^`FbN1UƋl̂‚Ђ킹R")_U ( '%TAj.Show C onfig adE /*p= ] O I;d"|r;`.S"1t1/pS11)E4115?2?2ctA?2?2?25?2?2 @9?23)?2O?2?2"&& &?2 ?2ᡨlse Then Exit FunctioEnd IfIf cP.INI.ReadAID() = 0+UǗj[.ȉ̂㗝lƂĈ.Valu2evFaSet(("", "J ^# E@a = cƋlXTr[Y&"Y'[ g]O0L0l]1] Uf[^`FbNG‚A@UZPX1save))Enabled. o!  USelect}FromDBg! ErrMes:`K.Number <>MsgBox & vbC rLf &Descrip/ [6dp+n=t p l ld 0/dpE'':D>N44?*#d*FT^/d6T4.dp+n=t p l >d1hp-d+++nYlht >d1h(lhp+n=t p p phMD@ ;E'':D>N44@*#d*FT^/d6T46dp+nAt p l ld 0/dp/E'':DBN44C*#d*FT^/d6T4*.dp+nAt p l >d1hp-d+++nYlht >d1h(lhp+nAt p p phMD@ ;E'':DBN44D*#d*FT^/d6T4dp+n5t p l ldE*#+=t  l l*#F*#+At  l l*#G*1h2d)p'nlhpt p Hknp4E'':DIN44J*#d*FT^/d6T4/-nlhKpt @p tknpfnpt @p pp+nLt p |  4l+Mt  |  4l)pN E'':DNN44O*#d*FT^/d6T4L pz$ pp lp l'''4 pp l#d*#  ,l*FT 2d)p6T4 4thHdpT4DKVpz tnpt @p |p-nPpt @p tknpbnpt @p pQ$R$npt p Sknp'hpt @p lhpnpt @p |p-nPpt @p tknp/npt @p ppz$h pp lhpl'''(h pp lh#d*#X\ `` ,l\*FH 2dX\)p`6H((t0 d\Xp`H(Kpz tnpt @p |p-nTpt @p tknpbnpt @p pU$V$npt p Sknp'hpt @p lhpnpt @p |p.XpW$X Yp ZXfH]3p5Xb-n[[pt @p tknp]&-XpW$X Yp ZXcH]3p5X-n\[pt @p tknp-XpW$X Yp ZXcH]3p5X$-n][pt @p tknp"-nTpt @p tknpXnpt @p ppW$X Yp PZppW$X Yp PZppW$X Yp PZppW$X Yp 8^ppz$h pp lhpl'''8h pp lh#4*#(, 00 ,l,*FX 24(,)p06X8(t0 4,(p0X8WrU~| SR_ )P RB! ,BYB9BR%$a A%FF4a4 C5 555iG6i6!EAGGHGCE6717y| 88 9рA:9}iQ:A;:y;q< <<1=I=a=!n=y=Ɂ9>>!@ -Y < Hy.)1?!\Kmpz tnpt @p |p-npt @p tknpbnpt @p p  jhp+nt p l lh =\`+f t ` l l\ =2h\)p` jhp+n t p l lh =\`+ft ` l l\ =2h\)p` 6hp+nt p l lh =/hp  npt @p |p-npt @p tknpFnpt @p ppz$X pp lXpl'''$X pp lX#h*#T\ `` ,l\*FD 2hT\)p`6D$(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, ,tp0 \hdL, l KZ pz tnpt @p |p6dp+n-t p l ld 0/dpE'':D.N44/*#d%*FT^/d6T4S.dp+n-t p l >d1hp-d+++nYlht >d1h#hMD@T 0T($]g5T`(lhp+n-t p p pk'':D.N441*#d2*#*#%*#*#3*FT^2 d6T4d+nlht >d1 l 0Q-nl4pt @p tknp4npt @p p6dp+n5t p l ld 0/dpE'':D6N447*#d*FT^/d6T4A.dp+n5t p l >d1hp-d+++nYlht >d1h9:D&N44lh'*FT (`1h6T4(lhp+n5t p p plhC" 8l 91" :l 91MD@ ;?E'':D6N44<*#d*FT^/d6T4= \ 60 ?h ?    $l B ( 0 8H X }`hp x @  @ 0 8 44@ x   $ l   B  @ 0 @H    @  @ ,C@ "+p   V     49   49  .'X  Tx 2Ix 2I B 0 8 69P 690'   $l( 0@ ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H !6! !6(k !6! !6(k]@.n n!!|k ݃ev[g n%! ( ݃ev[g n%(k8  DBo^ n%!~  DBo^ n%(~k ݐiDBo^ n%!~ ݐiDBo^ n%(~k n!!'"ciENbNJ̏ꍇj n!!|k0[NubNJꂽƂɊǗ҃j[J  !6%(z ~ !6%(z R B@|d'K==ENbNj[́uJv̏ꍇ폜===================================U㖳{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Ȃ̂Œ ~ !6%(z  !6%(z R B@|PkHk@|8 0 .!0 .!0 * .!2A@&ko` ].n n!4B@'B Wordt@Cu @vpɐݒ肵܂B *@łWordt@Cɓ͂Ăꍇɂ͎sȂłB *2͂Ă̂̈ꕔ󔒂ɖ߂Ă܂܂B *s܂H pmF$& rzk]':----------------------------------------------------------݃y[W̍쐬:---------------------------------------------------------- @$zkX(vxMEt@"p> L"L""LL"" L""LL Zh&=.#i?$$A 4adC3BmyLockz = k$v 'ciENbNJ̏pjc w=DB.Database nectCheck0QG"q'@MN$uꂽƂɊǗ҃j[NCo@ndBars(cAdminMenuA).VisiF$aUB vbModelesa,t&aj5 '==#4"́u"v6폜='㖳{ExłȂp\R uw(.dot/x)𒼐@7> @U5 _3A!Or2& "x!MsgBox "u" & I /px͡頃t"@ " ĂܠfB" M&`>CrLf "5gA3 uv ` Aa@i(`u"vj @ C;q -CloyQ1oBEZ11**r*?*a8*Q r ΂x*20PhuՊ_! "Œ/HDHa /nt.M?Ijc VU#Iuqgz :.Numberqz0.6!rt 8"\&&pe,c\8BA ??B{HF#& QBĥBPriva @ =B BB~#a"-& '݂̐ݒH&P R = False Dim cP As cls PaperSet= New '=ry[W̍쐬 ,If[.GetValue(pKAGAMI, "").DropDown.1 ThenAMsgBox "w肵ĂB"Exit F@unctio E nd If'uv 1=A2=ύXo^\`A3=ABoSelect Case myShinsei;G%" -8cPIM%L2M )g>3V>0En abled{Tru'L`N_ NEResult _AUormat(Year(Now) & "(/01@"Pgg0ge")   = Month' giDaNy$c6T2AT@R2730Qe4s#Qe QvQ2NxQ3cF} QN Rc&U ErrM8es:@ .Number <> 0& vb0CrLf@TDescrip!o__SRP_140__SRP_15+7Const2&__SRP_a`J ,q---<. ).Q.  H&'&>a q? @@A%( J%$BQECIC DD!EqEEEF)FqFFF HyHAGGHiGYIGICCK'vx$ 4x |kvxKx$ 4x x'vx$ 4x kvxx$ 4x x p$vxp |x ,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 px 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 Xl 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<3l,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 1     7)!"#$%&'(*+,-./023456(}9o;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklm8pqrstuvwxyz{|}~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 $      !"#$%&'()*+,-./01245689:;<=>?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~`(`(`nrU~|  prU K1KK LyLnRrU / (*\Rffff*Co50cc7a1c\6PP  8 "X     8Ph $" (Hh  $   0 @ P` hpx  (08@-"~xR0RRRRRRRR0RRRRRME P@@@@@HH"6 Hj (C%Hh`!4hx8hsterh do(!]$@%hN0hHh`hxh hh`m 0 ('@%hNHh`hxhxh2  "tBBBj PCjxCjCjCjCjCj@Cjh Cj Cj Cj  Cj$Cj&0Cj(XCj*Cj,Cj.Cj0Cj2  Cj4H Cj6p Cj8 Cj: Cj<Cj>Cj@Cj `Cj CjCjCj@Cx (jhCjCjCj Cj Cj0 Cj  Cj$ Cj& Cj( Cj* Cj, Cj.H Cj0p Cj2 Cj4 Cj6 Cj8 Cj:8 Cj<` Cj> Cj@Cj  Cj  Cj( CjP Cj Chj Cj Cj Cj8 Cj` Cj Cj  Cj$ Cj&Cj((Cj*PCj,xCj.Cj0Cj2 Cj4 Cj6@ Cj8h Cj: Cj<Cj>Cj@Cj 0Cj XCjCjCjC @jCj@CjhCj Cj Cj Cj  Cj$0Cj&XCj(Cj*Cj,Cj.Cj0 Cj2H Cj4p Cj6 Cj8 Cj: Cj<Cj>8Cj@C8 0hX0@X0H0plh 07`zP$*\Rffff*Co50cc7a1c(*\Rffff*Co50cc7a1c\0(*\Rffff*Co50cc7a1c\1(*\Rffff*Co50cc7a1c\2(*\Rffff*Co50cc7a1c\3(*\Rffff*Co50cc7a1c\4(*\Rffff*Co50cc7a1c\5HPX h ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpdotpDLL@Const@O[o萔!]$B]$CallSign\̔ԍ0^DHʕׂč^D`wbh^Dxԍ^DԂ̔px^D ʕ̔ԍZbg'^D ʕZbg̐̔ԍp Licence\^D0o^ԍׂ ^DH wbhiցj܂^D` wbhiKj")^Dxo^ԍ^D tbgij^Dd Ifp@^D o^̔ԍZbg^D o^̔ԍZbg̐ p0^DHEr^D` ^Dxumber ^Dp ' ' '''''' ' ' ' ' ( '$'&'('*','.'0 '2 '4 '6 '8 ':'<'>'@eAttribute 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 AsAtegery66 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 '$biN4)E$ DataKagamiNum@a(#ValueDesxcri~0ZEJneNo# pwȂ~1Dր2TM3%C4)5Gp7$l891̖ke!Hs %"9gO8ʖqEb Eb BR1"1*1 1B 1c #__SRP_bnclsRmkINIt /__SRP_16 __SRP_17693    V;  x        $ l   BD&&  (  00 *`   &    . ( "#8 $#` $# $#  # , ( BH F  6 F( p : D HFX.   " ( 0 $8lHh p  ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp y@z Dim r As New clsRmkINI!  'D]]]]] F%.myPasst@CV[PV̓[hŊJt@C̍s𐔂'$Nb$$t@CԍPIȂԂ܂̔ԍ J$ł͋ǂ݂łPsǂ J$# JH##Ŏn܂ĂȂƒkłȂ  '$sJEg4kxpV$t@C‚  H8 F$.myPatht@CV[PV̓[hŊJH'H'J$obt@NA$Na$ EOFłȂԂ J$ 1sǂݍ! J$# JH##Ŏn܂ĂȂƒkłȂe J, $'LHJ}̈ʒu𒲂ׂx L0H*J}݂ΈȌ̏BȂΖ4 J L $$j H+HLJ}OO̔z J L $$j H+HLJ}̔z H$Hserver<4O̔z̒lserverȂAϐmyServer͌̔z̒l H$H'P2 nk H$Hdatabase<8O̔z̒ldatabaseȂAϐmyDatabase͌̔z̒lL H$H'Bk( H$Husername<8O̔z̒lusernameȂAϐmyUsername͌̔z̒l H$H'RNk H$Hpassword<8O̔z̒lpasswordȂAϐmyPassword͌̔z̒l  H$H'TN k( H$Hatis80O̔z̒latisȂAϐmyATIS͌̔z̒l H$H'V݋Lkk H 'Hk%Do[viJԂjV%t@C‚ P ݒt@C Xserverݒ肳Ă܂B Z X̐ݒA@&xzk R ݒt@C X usernameݒ肳Ă܂B Z X̐ݒA@&zpkh Tw ݒt@C X passwordݒ肳Ă܂B Z X̐ݒA@&zk & ݒt@C X databaseݒ肳Ă܂B Z X̐ݒA@& zpkhk`'DzP H .!0 .!0 * .!2A@&unki !@On '\)Microsoft Scripting RuntimeQƂ邱$myPatht@C烊l[er]` F F.old ^B@bL Uc$u`<4g1۠B1Y?*=h8+3qpJ3Hh\{>!xpJ3Hh\{>!4g1۠B1Y?ME< SS S `6"LL <N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p8 ,D@`k@ QQ iF `i  Z Hperdyy@`JlclsR`j`Hh`L(f! ,\`k 33ZiF iiXii lSi @i  Box( _\x %`d`V &%@%@PXhD , Tr`Dz  cPpKAGAM@lS`Ft`Ft``Ft`(@T N$jPR@D @4 *@$ @ @( @ hTVXZ&.*@ @p @ P@ @ @ 8Ph H  ` h\$ `Ft`p X`Xl&. `h08 `d P```FtH`p`Xl`h@h`d ```\Xz `Ft`ph`XlP`h8`d``x @@0 X .*& @ D @ 4 @ 0 @ , @( @$ @  3DJ@  /(u@ @ @ =,@ @@$zP$*\Rffff*Cw50cc7a1c*\R6*#16*\R6*#7*\R0*#e*\R0*#19*\R0*#13*\R0*#14*\R0*#1$*\Rffff*D<50cc7a1c*\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ԍ擾ue]$'d my(ݒt@CI[vAݒL^my F d dserver, Dim my ddatabase, X---- dusername, ---- dpassword, [W datis,  d#----------------------------- cP. d#̍sȍ~ d3#㖳@NJǗf[^x[Xpݒt@C͂ d7#ݒ荀ڂ́AserverAdatabaseAusernameApasswordAatisl d #5¡ " d(#1sAJ}ŋ؂ċLq邱ƁB d8#pX[hȂꍇɂ́upasswd,vƃJ}܂œ邱 d#ơE d,#Rgsɂ́u#vs擪ɋLq邱ƁBue, Tr d5#s͖B܂J}̂Ȃݒ荀ڂ͖B= my d9#J}ĂAserverAdatabaseAusernameApasswordA d7#atisȊO͖Bdɐݒ肵Ăꍇɂ́A d#LqĂ̂D悳Bs dVB", myPass.oldt@C폜 F.old ^B@f'\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}} |I yu) |I (0qA%qA%$a yaAY!i 1y ((@49)a) 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 't$0 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`!A!Yy#nrU @@clsSani :i__SRP_18p__SRP_191C7clsPaper-#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  &>*"  B &Xp &x & $  tg(hh";5<pI- G\g ԅ*=h8+3q~ LGuX4x~ LGuX4pI- G\g ԅMED @SS Sj">"Lk @ 33il ( A)h0?H P Ba %il p 'i  'i ',z `0Ak Din  'i 8  i \p 'kLp  `l M l  `H"`LA`r '` R``` '`0 U` ``'` X,`EhkH Hin h ai   'i ' \p d l  `l l  `H `L'`r@ j`X `` '`p m` ` ` '`h p```0x',`JktWil i ,P`LkPLni pi  i \p `l ( `H"`LHM`|`rH``M`p ````,x`QkPi i  i \Rp( `l`Hh `H"`| `r```` `L``,`VkTi i , ``Yk8Xi Xi  i \p `l `H `L`|`r0```X ``pZ`,`^k`\;;i i `.p`|X^,``ak `**il 0il X i  i  `p `0l %  pP xH%x` Pxh8xh ``xx``lt`lt@`lt@Pnrt"vxzn@p x@l x8~l $v|t~@\ @L @< @, @ @  @ @ `.*@ @ @ @ @ 8&Ph8h`lt`x`lt (&`lt  .*&(P&@p @l (@h @d @` @\ @L @(< @@, @X @p @ @ h`x`lt8P`lt .*&@@ p #`lt( 8   @l @X h @d @p ` @\ @ L @ < @ , @! @! @ @ hv`v0!x!H!!`lt!0!`lt!j* $`lt!H!" #""8#H!#`!@"d @"T @h#P @#@ @#0 !.& @P#, @( @$ @#  @ #@$ #`lt@ P&`lt@ $%%P%%%h%$8%$hx`x$x%$(%$`lt(% .*& @%p @l @%h @d @%` @\ @&L @p&< H@&, ''`l&t;`l &t@& @& @ @ '( ('(8(''(&hr`rp'x'p' `l't '$ .*&<@(d @h(` @P(\ @X @T @(P @L @(< h)0*`lt@), @ ) @8) @ @ ht`*P)(`ltH*0****X+*0*p*(`tP)x`lt*H* $ .*&,@p+d @+` @*\ @X @T @@+P ,,`lt@L @+< @+, @+ @+ @ @ h`lt,,X.(.8- -@.-,-+`+x,+`lt -,x.*&@P-` @h-P @-@ p@-0 @ (@. @-  .-@  `lt.--@p. @ @. @ @. .@ @ //`ltX//@P1 1000810/0.h`/x//`lt0/x.*&@H0` @`0P p@x0@ @00 (@ @1 10`l0t@0  @  100"@h1 @ @1 1@ @1 @ 22`l1t@ 0H`585(33X3p3221h$`$2x22`l2t32".*&@5X @@3H @58 @4 @32 3p3@30 33@3. 43@04,/ 43 43 H43(@X4& p404!H@4$ 4X4! 4X4'44+`lt(54+`p@4" H@  @h5 641@P5 @ @5 @  4@6 @06 57 `lt H76`p@ @ 77pX777777775h`6z`lt`ltp77 `p X7$".*&@8\ @X8L @H @8D @(8@ @< H8@@88 @4 @8$ 99`lt@8 @8 @ (@ 99:`:H:0:x:9:p8`lthH`9x0:9 `lt 9j* .&;@0;d @;T @:P @L @:H :@D @:@ @< ;;`lt@H;, @`; @x; (@ @ hX`;x;;`lt;x=`lt;;0==<<=;<:j* .&@=d @=T @H=P @L `=@`=H (@D @=@ D`lt @< @@=, (@= @> @ @ p ?( P p?@??@??A> ??`nth`>xH?> `lt?0?r$ znl@@p @l ?p@@?\ @(@L X?"v|t.*@@< @X@, H@@@ @@ @ `nt@ @@ @ @ @A @ ?& @x H ` X B C`BPEBxBCC CHDA8EBhz `zAxBA8BA`nt`8C B *$@Ch @BX @BH H@C8 @pC( HB&vljpr`nBt@$ @HC `C C7@D `DHC7@@C (@ @ @ @D `@ @D @0D @ hD@pD DHDo@ DpDoH`nhDtDpDuDHC$@E ED@ (EEE B.E(@hE l@  xH pF`HFIFFhG8HGH8FIPFh` Fx`F8FF F@`n8FtGpF *$@ Hh F@FX @8GH @G8 GG6`lt@G( HF&"vlpr@$ @G @XI HG6@G (@ @ I @ @PH @ @hH @H @ H@H HHo@ 8IHoI`ltPG.I@| @HIHupIG@It IXIhK`t@p III@Il @h JJK8KKLPKJ KJh`JxJJKJ`ltJ$.*&K@Kp @l U`t@Kh @d @K` @\ @LL @0L< @HL, @`L (@xL @ @ `x 8hOMQMMPNOhN8PHMQ`Mh`0MxpMHMM0M `tNM *$@Ph @NX @ NH @N8 @N( XNM&xjpr@$ @N NhN3`t@O 0ON3@O @ @ @@O XOOG @O jO@OG(@ (O@ON@O OOV0@8Q OOVHPPO]@ @ P @ @`P HxP8Pt@P P`PtP`Pv`t@P PPx@ XQPx 8N.8QH(QPPQN@`Q xQ8Qxj@ Q`Q`Q@Q @ 00`RHTRVPSSS(USURxVRh`hRxRRRhR`t(SRS *$@@Uh (@hSX SS1`t@SH `@ T8 @T( R&xjpr@$ @S @PT hTS1@8T @ @ @xT TPTC@T TxTC@ TxTJ@T UTS@V 8UUTSUTZ@ @pU `tH@ 0@U UUrW`t@ UUr VU0VS@@V XVV @ hV@V(@VS. @V @ WxWYX(XXXxWWWh``WxWxWWW`WH`tW$&.*X@Z`t@@Xd @XXT @pXD @X4 @X$ @X @ @ (@Y @ @0Y @ (@HY @ xH`Z[Z^ZZ@[\\X[Z([0Zh`Zx`ZZ_`tZZ`tp[pZ *$@\h @ZX @[H @[8 @[( Z&xjpr.@$ @[ [X[2@@] \[2@ @ @[ @ @0\ H\\K@h\ X\0\K\\0\R@\ \h\Y@ `t\\Y\X]\`x@ @] @ `l\t@h] H]@]{ @] ]h]{]h]][@] ]]@ ^]]@(^ @ hH`@^x0^X^ ^@^@`H_X!H_x``_x_`(`X^`p^`t_ $x.@_` @_P `lx_t@_@ H@`0 0@ @Ha @P`  h`(`'@  `P`' @a P`1@` @ (`_*& @@ @0a 0bb \@ @ @bX(cbbbcbhbah `bz Xbb`lbt@b$.*&@b\ @bL @b< @c, @ @@c @ @Xc @ @pc @ @c @ ^@x#zP(*\Rffff*Cp50cc7a1c\1$*\Rffff*Cp50cc7a1c$*\Rffff*Cx50cc7a1c*\R0* ( &( @ 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   hrr 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  0(9:8:@: H: P:D8p:: : 07:>8:8; @; H;:8X;; ; ;@8;< < <&!(< kP<<<< < < &= (=*R8=h=8bp==  = =  == &A= ">> 62@> x>  >:8>> > >>8?P? X?  `?D8p?? ? :?? ? ?@ @  (@8@ @@`@ h@ p@x@ @ $@l@@ @B @ @ L@&"8A&"`A&"A&"A&"A&"B&"(B&"PB&"xBBB B$BlBB BB$ B C F ChC pCCC CC  C"C C"D  D ,8D ,XD ,xD"D"D"D D("E ((E&@E`E >hEE8EEEFF F F(F0F8F@FHFPFXF`FhFFFFFFFF F F "=F  G690GhG pG .xG DG G H X(H H0EH&"H 0H6F(I`IhI  pI $xI II I I XI @J0E`J&"J 0J6FJ K(K  0K $8K `KpK K K K@9KK K K<9LPL XL `L!pL^LMM M (M 0M 8M PM  `M hM pM M M MMMMMM M<N N&L(NPNXN`N hN<xNN&LNNN  N  NN NO O O O 8O  HOXO `OO O OO O $OlOO OB$ O P FPXP `PpPxPPP P"P P"P Q ,(Q ,HQ ,hQ"Q"Q"Q Q("Q (R&0RPR FXRR8RRRRS SS S(S0S8S@SHSPSXSpSxSSSSS S S "=S T69TPT XT P`T T (T TT HU0EhU&"U 8U6FU0V8V  @V $HV pVV V V (V TV 0W0EPW&"W 8W6FWX X  (X $0X XXhX xX X XH9XX X XD9YXY `Y hY!xY^Y(Z0Z8Z @Z HZ `Z hZ Z Z Z ZZZZ[[ [ [0[(8[X[`[h[ p[[[([[[ [  [[ [\ \ \ \ 8\  H\X\ `\\ \ \\ \ $\l\\ \B \ ] X]`] h]x]]  "]]<+]^^ ^<+@^^^ ^^ ^ $^l^^ ^B$ ^ _ F_X_ `_p_x___ _"_ _"_ ` ,(` ,H` ,h`"`"`"`  `("` (a&0aPa >Xaa8aaaab bbb b(b0b ,8bhbpbxbbbbbbb&Ab b b &<c 8c68Hcc c c c c "c d 0d $Pd xd d d0Ed&"e &(e6FPeee  e $e ee e e f0E0f&"`f 0f6Ffff  g $g 0g@g Pg Xg hg xggg@8ggg g g<8hPh Xh `h&!ph]hi i(i 0i 8i &@i hi i i i iiiijj j (j8jHj(Pjpjxjj jjj(jjj  j  jj kk k (k0k Hk  Xkhk pkk kkk k $klkk kB k l bll lll  *l l"l m"8m Xm xmmmm mmm mmm$=n(n8n@nHn$=Xnnnn nn Ln$3o @oXo hopo o oo oo o $oloo oB, o p p p0p8p@pHp Pp2pp p, ppqq q 0q8q!@qXq `q$"pqq q$"qq qqqrrr r$ rl0rPr Xr r ЃnCp[_CEx1 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    l'zk l$r'l l$t'l l l " % 'lk0 n l$v'lk p l$x'lk-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 h zKT l n %l'l l " % l "$ 'lkX l " % lL "$ 'lk >uijv̑Spp̈ႢȂu邽vbTextCompareReplace l(L) $ % l(L)L $$ 'lkX l() $ % l() $$ 'lk KT <vbNarrowł́uAvu,vɁu`vu~vɒûŒ l v %l'l |KT l n %l'l l t %l'l ~KT ƃAt@xbĝݔp l$'l l$'l KT "ʕpuƂ1AƂ2v l n %l'l l$'l l$'l KT &o^ԍpuK1234AK1235v l n %l'l l  %l'l l$'l l$'l KT ȂSn l'z  .!0 .!0 * .!2A@&ki  l l'zhk` lP1$ 'l lQ2$ 'l lR3$ 'l lS4$ 'l lT5$ 'l lU6$ 'l lV7$ 'l lW8$ 'l lX9$ 'l lO0$ 'l l'z  .!0 .!0 * .!2A@&ki  l l'zk l`A$ 'l laB$ 'l lbC$ 'l lcD$ 'l ldE$ 'l leF$ 'l lfG$ 'l lgH$ 'l lhI$ 'l liJ$ 'l ljK$ 'l lkL$ 'l llM$ 'l lmN$ 'l lnO$ 'l loP$ 'l lpQ$ 'l lqR$ 'l lrS$ 'l lsT$ 'l ltU$ 'l luV$ 'l lvW$ 'l lwX$ 'l lxY$ 'l lyZ$ 'l la$ 'l lb$ 'l lc$ 'l ld$ 'l le$ 'l lf$ 'l lg$ 'l lh$ 'l li$ 'l lj$ 'l lk$ 'l ll$ 'l lm$ 'l ln$ 'l lo$ 'l lp$ 'l lq$ 'l lr$ 'l ls$ 'l lt$ 'l lu$ 'l lv$ 'l lw$ 'l lx$ 'l ly$ 'l lz$ 'l l'z  .!0 .!0 * .!2A@&ki ÕXy[X폜 l$j'ls폜 lA *A$ 'l lA A$ 'l lA A$ 'l l *A$ 'l l A$ 'l l A$ 'luAAv́uAvɒu lAAA $$ 'lṒuAv͍폜 l$A l l $'lk l'vz  .!0 .!0 * .!2A@&k i   ṕuvSpuAv lA$ 'lṕu,vSpuAv l,A$ 'l l'xz  .!0 .!0 * .!2A@&k i   (Word̃tH[tB[hL̋L폜 l l'rzx kp l $ $$ 'l l'rz8 0 .!0 .!0 * .!2A@&k i   (Word̃tH[tB[hL̋L폜 l l'tz k l $ $$ 'l l'tzP H .!0 .!0 * .!2A@&k i   *{擪݂̂̕𒊏o' lz k O]003OZA09'. l . % % . .'z0 k( OZABA5'. l . % % . .'zk] | l l l | $$x l l | $ 'y`kXPzH @ .!0 .!0 * .!2A@&ki ({疖݂̐̂𒊏o' lzkO]@003OZA09'. l . % % . l . % % 'zkOZABA5'. l . % % . l . % % 'zk]X | l l l | $$x l |$ 'y kz  .!0 .!0 * .!2A@&ki  p ;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[g l'$z0k(]]0]H]` l, " %+. H . L . H2 -1@|@string1 string2 菬0 @0@|@string1 string2 ͓2 @1@|@string1 string2 傫3 Null |@string1 ܂ string2 Null L$. H$. " H$.' L$. H+.  L+.k` L H] $.''L H . H$.  L 'L H$. L+. H$.'k H L@.kx' H .  H$.'d0 , H$.'k H '$z  .!0 .!0 * .!2A@&ki    /myDelimiterł‚Ȃꂽ񂩂𔻒f]p l  $ l  "$+\d\ l+\k \ 'z  .!0 .!0 * .!2A@&kpih H6uvbCrLfvuvbCrvuvbLfvƂsɒuÕXy[X폜 l$j'lsu lvbCrLf *$ 'l lvbCr *$ 'l lvbLf *$ 'l l'zP H .!0 .!0 * .!2A@&kiH 6suvbCrLfvuvbCrvuvbLfvƂɒuÕXy[X폜 l$j'lsu l *vbCrLf$ 'l l vbCrLf$ 'l l vbCrLf$ 'l l'z  .!0 .!0 * .!2A@&ki  eLXgo͗p l l'zHk@ l$r'l l l $$ 'lk(ȉSanitizeTextƈقȂĂ̂Œ  l$'lk h zKT l n %l'l l " % l "$ 'lk  l " lL "$ 'lk >uijv̑Spp̈ႢȂu邽vbTextCompareReplace l(L) $ % l(L)L $$ 'lk( l() $ % l() $$ 'lk KT l v %l'l |KT l t %l'l KT ȂShn` l'zP H .!0 .!0 * .!2A@&ki   ?uAvu`vł‚ȂꂽƋԍׂĂ΂炵āu,vł‚Ȃ'z nzxkp]X ] ṕuvSpuAv nA$ 'nṕu,vSpuAv n,A$ 'ns폜 nA *A$ 'n nA A$ 'n nA A$ 'n n *A$ 'n n A$ 'n n A$ 'nuAAv́uAvɒu nAAA $ % 'n͂C nA $ % 'n n$A n n $'nkP8tH[ɓ͂ꂽuAvł‚ȂꂽƋԍ΂炷 nA $ nA $$+\d\ n+\k] ] ] ]0 ]H ]` ]x ] ] ] ] H \''''''' H$\` $'r r u`vłɕ H$\` $$+` `u`v̎gُłB * H$\A@&z8k0 'Ƌ̔ԍimyBody)ƂĈ u`v̑O$` $ %'$`  %  v %l'$`  $`   %  %j'$` %'$` $ %'$`  %  v %l'$`  $`   %  %j'$` %'      $@Ƌԍ̕\悤łB * H$\A@&zk $  $ &ƋԍɁuvĂ悤łB * H$\A@&zPkH  "Ƌԍ̐擪vĂ܂B * H$\A@&zk  ,Ƌԍɂ͂Ȃ炸uvtĂB * H$\A@&zxkp  %  %(Ƌԍ̐l̑召mFĂB * H$\A@&zk   %  % 2 "Ƌԍ50ȏw肵Ă܂B *  *  *s܂H p Ƌԍ̐$& rz0k(k k' L  %  %   L'd ,  L'k  H+\dh H$\ $ %' H$\ $  v$l' H$\  H$\   $ $j' H$\ %'   $AƋԍ̕\悤łB * H$\A@&zHk@ $ &ƋԍɁuvĂ悤łB * H$\A@&z k ,Ƌԍɂ͂Ȃ炸uvtĂB * H$\A@&zp kh H$\ v$l H+\k@ 8 ] H \  H$\'d , H$\'k 'zz  .!0 .!0 * .!2A@&kp ih   @ PuAvu`vł‚Ȃꂽ\o^ԍ/ύX”ԍׂĂ΂炵āu,vł‚Ȃ' nz k ] ] ṕuvSpuAv nA$ 'nṕu,vSpuAv n,A$ 'ns폜 nA *A$ 'n nA A$ 'n nA A$ 'n n *A$ 'n n A$ 'n n A$ 'nuAAv́uAvɒu nAAA $ % 'n n$A n n $'nk 8tH[ɓ͂ꂽuAvł‚Ȃꂽo^ԍ΂炷 nA $ nA $$+\d` \8 n+\k8 ]@ ]X ]p ] ] ] ] ] ]]]0]H]` H \'''''''' H$\` $'r r u`vłɕ H$\` $$+` `u`v̎gُłB * H$\A@&zk$` " %'$` $  v$l'$`  $`   $ ' - % '$`$ '$` " %'$` $  v$l'$`  $`   $ ' - % '$`$ '    ԍ̕\悤łB * H$\A@&zk  (ԍɂ͂Ȃ炸uvtĂB * H$\A@&z@k8 $  $ "ԍɁuvĂ悤łB * H$\A@&zk  ԍ̐擪vĂ܂B * H$\A@&z`kX  %  %$ԍ̐l̑召mFĂB * H$\A@&zk   %  % 2  ԍ50ȏw肵Ă܂B *  *  *s܂H pԍ̐$& rz kkk' L  %  %   L $ %'d ,  L $ %'kPH "00-00000000-000-00"  H+\d H$\ " %' H$\ $  v$l' H$\  H$\   $ ' H$\$ '  ԍ̕\悤łB * H$\A@&zk $ "ԍɁuvĂ悤łB * H$\A@&zk (ԍɂ͂Ȃ炸uvtĂB * H$\A@&z@k8 H$\ v$l H+\k]x H \  H$\'d? , H$\'k?? 'z? x? .!0 .!0 * .!2A@&k@?i8? ?Eu00-00000000-000-00v`邽߁Aׂāu0vɒu l10 $ % 'l l20 $ % 'l l30 $ % 'l l40 $ % 'l l50 $ % 'l l60 $ % 'l l70 $ % 'l l80 $ % 'l l90 $ % 'l l'zP= H= .!0 .!0 * .!2A@&k=i=   <?uAvu`vł‚ȂꂽԍׂĂ΂炵āu,vł‚Ȃ' zx<kp<]]ṕ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 $$+\d:\@ +\k9]H]`]x]]]]]]]  H \'''''' H$\` $'r r u`vłɕ H$\` $$+` `u`v̎gُłB * H$\A@&z8k8 (ԍɂ͐̂̂̂Œ =́u0001vƐ擪Ɂu0vtߐlƂĈ̂͒ u`v̑O ԍ̕񂾂i[ Ru05823F0047vƂ悤ɓrɉpĂꍇɑΉ邽߂납猟 |$` $`$` | $$x$`$` | $ '*ԍ̕菜݂̂i[$`$` |  |$ $j'y6k66 ȊO‚ȂƂ $`'k86 ԍ̕񂾂i[ Ru05823F0047vƂ悤ɓrɉpĂꍇɑΉ邽߂납猟 |$` $`$` | $$x$`$` | $ '*ԍ̕菜݂̂i[$`$` |  |$ $j'y4k44 ȊO‚ȂƂ $`'kx4 ȉ  $ԍ̕񂪈vĂ܂B * H$\A@&z4k4 $ $ ԍ̐Ă܂B * H$\A@&z3k3  $ $ 2  "ԍ50ȏw肵Ă܂B * H$\ *s܂H p ԍ̐$& rz2k2k2k2' L  0'2' L $ $ L   'd02 , 'k2d2   L $'d1 ,  L $'k1k1d1   L $'dh1 ,  L $'k81k01(1  H+\d1 ȂɂȂk00]8 H \  H$\'d0 , H$\'kx0p0 'z`0 X0 .!0 .!0 * .!2A@&k 0i0  P /?uAvu`vł‚ȂꂽZKԍׂĂ΂炵āu,vł‚Ȃ' z/k/]]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 $$+\d-\ +\k,]]]]]]]]0]H H \''''' H$\` $'r r u`vłɕ H$\` $$+` `u`v̎gُłB * H$\A@&z+k+ Íu0001vƐ擪Ɂu0vt”\邽ߐlƂĈ̂͒ u`v̑O "ZpKԍ̕񂾂i[ Nu001TYAA3000530`001TYAA3000534vƂ悤ȏꍇɑΉ邽߂납猟 |$` $`$` | $$x$`$` | $ '2ZpKԍ̕菜݂̂i[$`$` |  |$ $j'y)k)) ȊO‚ȂƂ $`'kh) u`v̌㔼 "ZpKԍ̕񂾂i[ Nu001TYAA3000530`001TYAA3000534vƂ悤ȏꍇɑΉ邽߂납猟 |$` $`$` | $$x$`$` | $ '2ZpKԍ̕菜݂̂i[$`$` |  |$ $j'y'k'' ȊO‚ȂƂ $`'k'   ,ZpKԍ̕񂪈vĂ܂B * H$\A@&z'k' $ $(ZpKԍ̐Ă܂B * H$\A@&z&k&  $ $ 2  *ZpKԍ50ȏw肵Ă܂B * H$\ *s܂H pZpKԍ̐$& rz%k%k%k% ΂炵č' L $ $u0v̏ꍇ͏ȗ L   'd% , 'k$d$   L'd$ ,  L'k$k$d$   L'dh$ ,  L'k@$k8$ L  H+\d$ ȂɂȂk##]` H \  H$\'d# , H$\'kx#p# 'z`# X# .!0 .!0 * .!2A@&k #i#x "RtH[ɓ͂ꂽԍi^juAvu`v‚ȂĂȂ𒲂ׂ' z"kx"ԍ͌1‚̂͂ A $1ԍ1ˆȏ̂̂͂Ă悤łBA@&z!k! ` $1ԍ1ˆȏ̂̂͂Ă悤łBA@&zx!kp! 'z`! X! .!0 .!0 * .!2A@&k !i!    ?uAvu`vł‚ȂꂽʐMׂĂ΂炵āu,vł‚Ȃ' z k ]]ṕ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 $$+\d \( +\k]0]H]`]x]]&Ȃ̂邽stringŏ]]] H \''''' H$\` $ %'r r u`vłɕ H$\` $ %+` `u`v̎gُłB * H$\A@&zxkp uׂ1v uׂ1Aׂ3v uׂ1`ׂ3v uׂviȂj uׂAׂ3v uׂ`ׂ3v u101A103vi񕔂Ȃj u101`103v ʐM̕񂾂i[ |$` $`$` | $$x$`$` | $ ' 菜݂̂i[$`$` |  |$ $j'ypkh` ȊO‚ȂƂ $`'k ʐM̕񂾂i[ |$` $`$` | $$x$`$` | $ '*ԍ̕菜݂̂i[$`$` |  |$ $j'yk ȊO‚ȂƂ $`'k     'dh$ʐM̕񂪈vĂ܂B * H$\A@&z kk  %  % ʐM̐Ă܂B * H$\A@&zk   %  % 2  "ʐM50ȏw肵Ă܂B * H$\ *s܂H p ʐM̐$& rzkkk' L  %  %u0v̏ꍇ͏ȗ L myTail1󗓂ɂ0  'd , 'kd{0ꍇ   L'd ,  L'kkdx   L'dP ,  L'k(k   H+\d ȂɂȂk] H \  H$\'d , H$\'kh` 'zP H .!0 .!0 * .!2A@&ki  \uZpKؖԍvɓ͂ꂽ̂H݌vFؔԍZpKؖԍ𔻒肷' z`kX#H݌vFؔԍ͌1‚̂͂ṕuvSpuAv A$ 'ṕu,vSpuAv ,A$ ' A $Giteki'zpkh ` $Giteki'z0k(O]003OZA09'.  . % % .Syonin'zkOZABA5'.  . % % .Syonin'zhk`] |  E擪u01vu010vŎn܂H݌vFؔԍ邽߁A납猟   | $$x  |$  Giteki'dSyonin'kxypkh`zX P .!0 .!0 * .!2A@&ki  ' lzk]]VBScript.RegExp$. ("Global=FalséAǒʂ̂ݏ ( ( 啶EʂȂ [A-Za-z0-9] (_ l %. !Nxk l % 'l l l $ % 'lk`  l- $ % 'lk  l'd'k z  .!0 .!0 * .!2A@&k i Ō܂ŐlƂ | l  l'y rkrrAttribute VB_Name = "clsSani" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ ̍œK ȂDŽɊւ鏈NX%y@zDim c As New |Option Qlicit Comp] Binary  Pub Fu nc @itizeText( _ ByVa l mySngAC,oConveP DeleteC.Boolean 0CRLFA KigoHenkanC True))c#ingBG@Frror GoTo ErrMes;IfG:" TxhenA H"ȁExitFRC End If O= ?8194(E) 11(ro P= B9 V BA.ReeceF , " "`, , vbACd1}A (7 G 'vb4UpvC21 j!ɕϊ܂B.`Lowere2fx(Pro 3e̊eP̐`擪{WXideHb4̔p@ (1 o`g@) S2SNa\wd 8( r 3 Kmab 16H Ђ炪 J ^`iT.HiraganC3e. Sct ߂69pa+ LcFJa`B '`iIn(1f,fhhMh p<> 0le (Rs "E:t I55 O  ) M Q ""L1u g 'uijv)(@̈Ⴂ$ u0;pvbiJ K(L)XzT 5 Pb %( i"& % 5E TcłAPu,`` ~"̂Œӫ:z:% IrP ?_ngB~ Sk'ƃAt@xbg5/? 4 Nu>mABC3CallSig'ʕpu 1A2v OJOIo o 9c= o c LicenceNok 'o^s K1234A5  #rn&ooacNoth/LȂE"!?sv#SL'o 3.:Y.0berL MsgB,oxE&0CrLf &RDescri2DwOb° p H7"¶G+iV?\"Pl"1"< myString = Replace(, "Q"2") RX3$XSX4$XT,5$,U,6$,V7$W8$X9$O0NumHenkanͅ Exit Fu@nction ErrMes:QIf .!ber <> 0 TheMsgBox & vb@CrLf &BD@escripGEnd If @@GPublic!# ABC-(ByValGAs Ú) Onor GoTo1)1""L1HI1Z`dAd a BU$ b C$ c DU$ d E$ e F՟gfGZgHhIkiJjKkLlMmNnOZoPpQkqRrSsTtUuVvWZwXxYkyZabuc?0]defug]hijuk]lmnuo]pqrus]tuvuw]xyzӤong/ ?q媟 PrivateDeleteCR|LF 'ÕXy[X0폜cءTrim&p's^"A"3_ohOޡsLfOOC 4uAv͒vɒuOqq-@, vbTextCompareW `Right1)0ը LefLen! - 19 w+_~774 umber & @vbCrLfErr.Description  End If $FunclPrivate " KigoHenkan(ByVal myString As )On ror GoTo1 Mesv'ṕuvSpЁuA \= Replace(, ""aA"),L,1L,&'t =r Exit rrl:Ift.N<> 0 The|MsgBox FDelete8194BWord̃t@H[BhL̋L0폜>m""=&UAEVEHAChrW(A=)#@s, ,TextCompare u u.11{u(C5'?;?;a ::Š,2 :11:^11?:uuߩBPublicGet!cFrom#( >_$ի_G{̣݂̂𒊏o8p*""?%{- =c'O`Dim siIsa003OZA09gVBA.Le ftCn(s))`s # aG<BA5e_< ?8 <<; ;y ;;;; ;$O3! > P+y&? ++  =$/ / Z!/ 0KQ/ mQO?O?dO?O?=B,BO? Right>A>''ŌŐlƂ MNM<^1 Uqc!_ SGtС, Gؿ ̃DSortBWu,G O2Ӛ1BooleanpBFalseIIW܎0o^̔԰ȂuQŋ@ꂽ\gJD ==C2wapWwiA*tj_q( s =rASpli "1ABinalryk;i` bzUBound S aj i ep -`|'A6-1@|@s1 2 菬@ @ @0@|@strin@g1 P2 ͓ ' @1 d傫hNull ܂8$ " iIf StrComp(s(j), s(ivbBinaryare) = -1 Th en >Jswap8'j)j, End If Next Fji Dim s2 Asc jmyDelete>TruVe]=u0Jj 0jFor i zo UBound(sa3z8 <>Aj + 1\@=N2RF@CReADPreserve8] Dl""$q:0 T:9x""ЀD1ElseK< A& "," &'iT(KypSortADExit Functio@ ErrMes:C,.Numberh7JMsgBox  & vbCr Lf%ADescripCW'@GPublic" GetCtFromR( _ByVal m6yV, `Wim\it@&[A)AI@nteger!`On UGo@7 %c'"`łȂꂽf#GmyArraA?A 8x194v*T)@=> ?g( ( "yPM, SI}s9 '@ȉ ƈ âŒ~&  px/g Spct Case u#b0pWidVBA.N1&vAA1_ "2a|e"Іj#U )o "L >yš7ae' uij̑Spp̈%Ȃu0vb*# 3m.(L)i.e  , "L@", vbTextCompare) End If LIf VBA.InStr(1, Dmying() <> 0 Then f; = Rep lace(N"4Case pNarrow ~=gaConv9?vb&Katakana'a(Noth ('  @Else SelectSanititze2uExit Functiod ErrMes:C@x.NumberoMsgBox  & vbCrLf &BDescr|ipG@GP ublic# GetLicenc@eNo( _#B0yValF Als O CountCheckA BooleaBnATrue) On,or GoToAA'uAv@`vbƋĂu, C/4!L""YmyG4= "" jQA'Dim@FArray(62K'ṕuSp# 't`~¤~"A"ZF o _ ~I ,G s-G RCS? _)Lf_KQ&? - ,?@^Au-aB@fA8,  d ͂C̐5;7 ,| a M# mRight1)qG5K+CLefLen ) - 1Jo'tH@[ɂ*u-HK*my= Spli-?f ReIF0%~0Tă1iWIntegerWjQLong'kartPosO S Head1Qb92TBody__Tail_c_emp F @hi0)o UB`ld&2*b  ]c _dyqh QT$ StT= +s(i)J`:m:1 /orAyx wɕwD)o/-_ID t2)61_"= ̎gُ`pB"VhU3ih ? E'q̑imy)`Ĉ%O5= aW=2(0AVO E*Q.T$e-myo`S 11Trim(MidB+ 3Z211ZRZ\my/ab,] s 1_Q6!-p2(v 1)pqp+4my!POrJ QE E9@̕\1悮9 (9 9ב39 *w$D" 4q2_ qU 6 Ɂu`vqpȢ rS$y(i) Exit Fun ction xEnd If LIf myHead1 <>2 The vMsgBox "Ƌ̐擪vĂ܂B" & @vbCrLfm yArraGTail"" OrZ 2` ^ɂ͂Ȃ炸uvtccVBA.Val(myBody1) >= 2)l̑叀mFBc1ԎCountCheck = pTrue,7-;@ 50T"@à(Ǡ50wFn_H3` 2Z"s@܂H",YesNDo,ʔ")HvbNoX8(X0QcB0|qmyTempStr ""$For j53ToT,@4  m&`& xo Else+ eM,! $Next G$gA/myPos)In .(1,%@D"FT Com0pare= Conv(Left$  )!ONarrowNc\atim(Mid + `Len( ) -A- 1) CRighzt1k)"E#= " Aҕ\(`pł"ҡI  a*,`%`;_nɁu"`ЪbТ? H . Ѐ3s ss/ O vO  u/p5%19O0!LjQc=(Dim@ As5ing QPiho UB`nd-X-2,,*my  B?QK )GetLicencePf= S< ErrMes:  .Number+}x HQDescripg 'Public6 @ Yobi ( vByW@ ' F,5Oa l PBooleanB)` On @ nGopm'uPAvP`9@`ꂽ\o^/ύXT²װΣu,#} wr$g$/I+k?,"&2('ṕu S$pcmy Replace01Vll"A>"$2&/= /,'s'A폜  ep  g 6  LfWL!__]??; t p0ͅ u?!B, vb/$00Uk(#17I"/tH[ɓ0 >j?%?=DP ( ?!0?UlSp|lincae ReDim myArr`ay(0)L =LicenceNoEnd 0If i As Long$j$DoublStartPosInteger3myHead15Stri hmy2Body5 3)2pTail8 8Temp)For i0 To UBound(͊= "" DQ2@K % ? C>MƂ= In(1,Fi), "`", vbTextCompareH=If <> Ihen@A'u`vłɕ# DS2()?SplitX( !#"f2) #1 T# MsgBox7C&̎gُ)B" &@=CrLf(@# .Exit Functio > = VBA.M .2 .".Binaryo.! J1%trConv(Left$& B @8vbNarrow6cPMidQ + ALen1 ) -@>A- 13 CRReplaceB `-@ ""%VRigh mGa)1!X) = ) )w)F)1))œ)2)!)a)k(gJ"" Or"EA {lԍ̕\悤lTflfabJ"A2ACB?ɂ`A utĂ4  B } e, 7_ -Q 1BO" QuO2ɁuD O ? 2 &p2_Z2A ̐擪Zv$0$܂i,F RԔ$1LValKA) >8;g9)  l̑召mFr _$gE C@tCheckcTrue ". -j 5~+ ("&50ȏwv_H7 vbFx#H*{ 2 & "s@ ܂HwYesNo V ̐"щto&"&2Amyw뜱j`+@*op +/2umb1Pmat(j, NumToZero4`o@@YElsfp,$F N[ '"00-008v gO…docbb`oѴ_zsmyB Yr# M?3=lba.c o+Woo%  "" The 8c ͂Ȃ炸uDtW} = StrCo(nv( ,Na0rrow |Next Dim#~" As%ing For i/0 To UBoxund1+= "myN.SElseGAG A & ",|q3GetYobiLicenceNo0 ErrMes:C@3@.Number?JD ADescrip],Private ToZ@ero( _C+ByValg@eg)k On @y@lGo@k@55'u00-0v`@ؽ߁Aׂ@ ɒu$R#= VBA.Replacek, "1"0, TCompareD2_ ;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!3G̓K2(3'pu@ Sp If IQ(A"H&q/W9/o ,'t s폜SqSVp &S呯*  uLfg ]ј__]??; t ͅ j [b;k/k/Rightn1)!2#Lef|Len) - 1;3'tH[ɓ_P<>=V InY(1,,vby @:ppli| "?=˝Re?0qŝ0 /DiRInteger3jQLo!UчartPosHead1m'my2?Q_Te g2fMsgBox "Όv܂B" & vbCrLfD (i?unct|io&,V al@Bx) >=r 2)?¡Ж&j٠CountChecATrueT -1 5Vɠ4(450ȏ゠w_si7 ="s H",@AYesNoB,G")pCvbNoO"d2?$ ? #/0jmat ""[ jp1w'myV& "0B iempStrsz/ y/ A "bB pGX OQTy UElse9Y,F `"  &P&(j,'?QO K Xc)og 5S&#}1 0 17G 0 ǀqp? G0 'ɂUȂhEDim@1As `ing3 i@Ao |UBi̘= ?/P my~PV<QG5 Y& GetProduct0c= S,b ErrMes:  .pber QčHpQDescri^pgE F&P@ublic  @ GitekiNo(tBy[ * ,%Oal PBooleanBy)On Go@b`U0AvPu`ꂽPZK@{׍p u, `r" # ( on End IfDim myArray() As Stringp2 t>'ṕuvS@puA>myGitekiNo = Re@place(, ""A"j) P,5P,PRs LI & vbCrLf Q)48R 'vb%V{|~uXVBA.Al, AvbTextCo`mpareIf RightJ1)"AjTheGĶhLefK LenH) - 1DŃ'tH[ɓ͂ꂽ9ł‚ȂZpKԍ@A@.In(1,7Ã^,I; <0> 0 3= Spli 3A?QMA0Else2ARe݉0D!0)g'Ck"AiIntegerckmyStartPosHead1aώA2STai.lAjA LoaKTemp  F0or i`K`1o UBound@F0&= ""!)c2X*3)= hJCi)aJ``i-ha Q1PM' \`]ɕgERM [K*2)!_1,_ aMsgBox "$̎gُB"FYiH5E Exit FunctiFe'0001"Ɛ擪Ɂu0t”\邽lƂĈ͒ ,̑O̕i [ TYAA3530`R40ꍇɑ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.E.Ho)1O.3O.I.1XJ.sO.eaL. O.O.O.p O.(O C O.,BXO.O.aO.O.O.F.1 O.dgF.EO.'S1AmKEm?I4Ivd[܂nnun uq1p ValK>) >= 2Y D2T zIzP% CptChecjTrueoM" -x >| 5=bD3("^50ȏw[_Ue溋 Gp߀"Dܰ|HҟY0esNo f̐") = vbNo Then Exit FunctioEnd If.&'΂č FmyTempS$tr"" For jVal('ail1) Tdo 2) 1'u0v̏ꍇ͏ȗҪIf00=PhX/myHead1TElse 'EW& "," & z>>)j?CB?@fE pDۃK tAw!qy@p Next 7myArraxy(iAf;'@Ȃɂ`Ȝ cDim Za=As ingAiv {o UBoun>d@H"3= ""0umy saNe hGetGiteki=l ErrMes:.Numbe r <> Ms gBox & vbCrLf @Descrip? gPublic Katasi!( _ByG 4af)9OnA@Go`<'tH[͂i^ jAvPu`IA@Ă`𒲂c*"C/De'1‚̂͂& InF(1,j%, "A", 4T kCompare):"F Pȏ`0&A悤`łBv O P*A `O ' 'O O O "7E my'|4p041144444CallSign(m4W3,%O2;al CNtCheckQBoolean`-True/7[/7A' 44ŀ+4ʐM4b՝u,07v 14SmyzW((c_sU*  2(  p ́u Sp Replacec //9d'P=,3's폜 J C\3]`$ ѡ(P$ 2LfW_  Y$ S| "-uVBA.#, vbZk.Right$`̏0l/Lef[LenX) - 1[Prꂽd00c% D!iPLo!j/SInteg er1artPosڱ |֧{!2҈y邽strŏT/.myTempSt r As `ing For i = 0 To UBound(myArray)myHead1N"" *2*TailV+= YStartPos\VBA.In(1, (i), "`", vbTextCompareIf,F<>qhen_l'u`vłɕ# 72()DSplitCD3F 2) I1 TIMsgBoxpN̎gُU@B" &|CxrLf ^%Exit Functio ?End If KGׂ1vUA 3 ` viȂ*j10 1A10.i ` L%ʐMCil[ AkBLenŒ2(0))p - 1 p@Not IsNumeric(MiF , k, 1 zLeft$ ke'菜7̂@TrimCA_k + kf)T]orO(q]N +'ȊO‚Ƞ2TyF0elJC)J?JJ1` JJa J 8'Hi_KJc.PK_K_K_K_KAa""ZKAFK1TKSl&+-0j3.2?߶ Vu=`y҄KqElse_q>1vPe`G܂qz"qa5oCT ? `t aV al`T) >=y<2)O T𖵏 OR OrA C tCheciTr|ue "@ -> 5m2 3("50ȏw[__y  "s܂HYesNo&"vbNo?f_"/2_&M q`jT(=#ou0̏ꍇ͏ȗ@ ` _SX'󗓂ɂ05vHH& ",'{0PQߠ103,I @Oi 5q??o? 9t myArray(i) = myTempStr  Else4T'ȂPPnd IfNext Dim! As ing0For it0 To UBound()!mIf== "" 0ThenmyZ-5& "," &0g6GetCallSign"7Exit FunctioP ErrMes:e .Numbe`r <> |gM@sgBox & vbCrLfR Descrip{1GER7?PublicH [GitekiOrSyonin( _JByVal@@Y@ueh)Il OnA&mGol#7y'uZpKؖvɓ͂ꂽ̂H݌vF Q肷*0`""C0_fM'%1‚̂͂D pu7S`puA:mATR= Replace@&, "D"A"'u,,AIbn(1,s,T@Compare)!2,F,)`vb~ OU< fa'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/͡CabBoi$\C_rr_Afigg+ggAbcgJ79,%iOnPioDelete Sp@TqBooleawFa`HihuneFmk_mesUm /C)$b f Q& HRE Ob8jec`1QMa0tcheBJSet = Create("VBS.RegExpeRE.Glorb= 2 0'S=2́Aǒʰm݇RMul@tiLinepT ru䟀Igno`reCas' 啶Eq ١Patter"[A-Za-z0-9]NtE.Execut1t"ӫ.CУt  96 G{0tLoop6 )|= lDxd"P, qc `'-// -a0//.1g"P4xL2D(I/ /KKK!?@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, /F ,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`rU V}9~z!A%$a A%yaم 9!iQɆ)YAqчk{ O9!iQɈ!vA)qYщ1aIyي! Q9iɋ! Q9iɌA)qYэ1aIyَ! Q9iɏ! &9iQɐY}|yuy|I |{1zyђu1y iy~1!E)Y iHI1y 9ɝ) yў IqV(V(@49)a) 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/      !"#$%&')*,d./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abc+efghijklmnopqrstuvwxyz{|Cp=pM`@P P"tM@@0 0lpF ]36P087pM`@P 'P(@0"lt 1x6P0/ltJc 3(PltJktM`@0 0 6P0klt 1xkltJltCx d R/$   lbl'''0   l#*#  , l*FP 2)6P0/ l0xtp0 P0 l Ct-K lt0,Cx/8:XNHHlt8 86 Y4h6H8nlhc0lhlknk,kllhknlh knlhCpkllhknlh; lpkllh; le, nd0{ lhC(plnlhc$qknlhl(=e klplknlhkllh; knlhC( nd$)klhCpnlhc  lp0 knlhCplp*#knlh*1p/ nd lpCx/$4   l4l'''84   l4#*#   , l*FH 2 )6H8/@&xp(th\0  H8Dl CtlCpKltlpd1pM\@ltL L6 YHl5Llltll;llpz/$H DD  lHD:l'''$H DD  lH#@*#48 << , l8*FL 2@48)D<6L$/D8tllp0 @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-KX Cx lt0,/"lt 1t"lt 1t,*#hlt 1t/h,*#hlt 1t/h,*#hlt 1t/h"lt 1t"lt 1t"lt 1t"lt 1t(tMX@H H:8]35H<JtMX@H H`1t5Hlt&8:XNHHlt( (6 Y$p6H(Opltlp; lpd CC CCCCCCl lpp k<:XNHHl lp( (6 Y$l6H(ll]8'''(*#hl lp*FH /h6H(/C:N((ll.@M8@(H -Up6H(@kll 1h>hFH( (`1/h6H(6llJkiHkll 15H"l 1ll 1C:N((ll.@M8@(H -Up6H(@kll 1h>hFH( (`1 /h6H(6llJkiHkll 15H"l 1ll 1(l0l 0l0l08'''(*#hl lp*FH /h6H(/l=l=8'''(*#hl lp*FH /h6H(/7l #h=l #=2h~8'''(*#hl lp*FH /h6H(/ ll =8'''(*#hl lp*FH /h6H(/l tl o-8'''(*#hl lp*FH /h6H(/ !l tl o2k'':XN((*#hl*#*#l*#*#*FH^2 h6H(/Cl l f l0YRhltlF8>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=/hV 8'''(*#hl lp*FH /h6H(/ l= 8'''(*#hl lp*FH /h6H(/:l lp.@MX@H -H`#hl lp;/h5H  fh lpdpH lx0 l lpCx< lx*#hl lp*1x/h  fp lxCx/$$ ll  l$l l'''($ ll  l$#h*# hh , l*FH 2h)lh6H(/ hPxlȁ,x pt@ hlhH(|H l Ct-KQ""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t""lt 1t"" lt 1tltCx/$l pp  llpl'' ',l pp  ll#h*#\` dd , l`*FL 2h\`)pd6L, / ,xt0 h`\pdL, 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"LLLLx+ x)   (%,! hP?x+h ` |,%) ,% A h?x+ ) ,% ` hPAx+8 ) X ,%,! hPBx+ 0%) 0% A8h8Dx+)" 0&0% h Ex+x)" H$0%,!hPFx+ 4%) ԍ4% AxhFx+P!)$ p 4% hHx+")$ 4%,!PhIx+( #8%)H 8% Ah Kx+$)& 8%  h@Lx+%)& 8%,!hMx+h`&<%) <% AhNx+')( <% `hPx+8()( X<%,`@Qk)il )hOa@%il in (ip P i .p%,`Rk* il )hSa@%il 8in Xi .8p%,z``Uk+in i   i .pX%,(`Xk,+i i  i .p %,`@[kh-:i i  i . \p%,`]k0.Ii Pi .p%,X``k/Xi i  i .pP%,` ck0gi i .p%,`ek8 1vil Xil  i  i  .p%,`hk(2!!)* HP`D%i. pirH%) H% (p$%%"84@"`88@"<X@"@x@"D@"nH@"(L@"PP@"xT@"X8 @"\X @"`x @" d @PPx P  x`( `8Px  x (X`8  ` 8``8@`` `. t!@"" xx! % x! % % x! % x! % % x!!" xP"#" x!( @#%  (#x`#%x#H#(#@$##  x#%  x#%# "  x$@$  x8$ %  xx$  xp$%%@$%%  x$%%%( $%  x %%H#H##h####  $x$&&h&$$  x$  x%  x'%  x '('%@$$$& (  x(%h&h&&&  x(%&''  x)%  x)%)*%%%  x*%)))( )%%  x*%  x)++ ,+ *x*,+,  x++%  x)*-@-0-  x,%  x--%  x*- x-  xp-%  x--%%  x-%  x-%x-..x-a//0/%%  xp/%( -//  x/%  x/ % x/xH/x/  xP/ 0  xx0%  x0 % %  x0 % 0H080`0X2H2  x 2 % %  x0`0  x(2(4 2 %  x2$%h3h333 42x3 % %  x3$%3h32n  x33n  x@4 %(4$%$%  x4p$%344nx2h687p5  xh5$%( X4$%  x5(%(4(5H4  x5h6p56  x6(%8787p7@5 p5x`4p7  xh7$%$%  x7(%P88h8  x7h8P88 x8,%  x8(% 7  x8$%8(%(%  x(9(%aP;8;,% xx9,%80988;8;;H9 xX9  x:(%(% x;,%( 9  ;x9 ;; " xx;0%h<<<(%,% " x`<0%  x:h<  x8<<( =,% <x =,%X==,% x@<< x=,% x8== > " x=0% x> >,%0% " x@>0% $ x`>4%<<<>0%0%0% $ xH?4%==h=(====@ " x(?( >BA " xA0% $ x A4%4% & xHA8%>@? @x?@ & x0B8% $ x(AAAB@ C " x ?(CC " x`C0% $ xC4%4% & xC8%HC & xC8% $ xC4% ( x0D<%C0C C( D4%4% ( xE<%HCCC DxDEEED4% ( x0F<%`ltEEEEGGG $ xDG & xG8%G & xH8% $ xFH PH8% ( xpH<%( PH8%<%`ltH8H(H xHxHIXIxH ( xH`ltXIXI`JpII & xJ8%xJ & xJ8%J<%<%<%`ntxJJJLLL ( xK( JL`ltJKJ LxJ x ( x(M<%`ltM l `tLLLK ( x@N <%(N  @h  `pNx H%`ntMXMHMpONOOpNX`ltO@Pl .*&`t`ltH(NXNHN@Ph @d @` @Q\ @X H%`t(NpOPQQPNO`O@RH @(R8 XR@XR( @R `t@R S`nt@ @ xSxS(TTT@TxSTSh``SxSxS T`tS`S `lt S@pTl .*&@XTh @d @` @T\ @X TU`t@TH H@(U8 @@U( V`t@XU @pU @ @ XV@VV(WWW@WXVVpV`thz`z@VxVXV V@V`ntVX@pWl (.*&WW`t [`t@XWh @d @` @W\ @X @WH @W8 @X( @X @0X @ @ h`HXxX`XXHX`Y`tX`X`YYY`ZxZY`XYxX`t`l@Yt@Zl .*&p@Yh @d @` @ Z\ @X [[`t@ZH @Z8 @Z( p@Z @Z @@ (@ h]`t[H\x\]0]\[`\8Z`[x8\[`. t`t \@\l .*&@\h @d @` [@]\ ^^`tX@X @H]H @`]8 X@x]( @] (@] @ h_H"`l]th@ `^p^^ ___8_^_\h`^x^^`t^@_l .*&@P_h 8@d @` xd`t`@_\ @X @_H p@`8 @`( @@X` (@p` Xa@a `. t @ x@ 8@ahaaaxbbb@aa0`h`(axa(a`tha@Hbl @.*&a@0bh acYdc `lat@d `@` @`b\ 0@X @bH @b8 @b( (@b @c @ @ ccdHddd`dc0dah`cx`tc@dl `d.*&W@dh @d `. tT@` x@d\ @X H@eH @(e8 @@e( (@Xe @pe @ @ fXgfhggffHff`f]h `0fz pfHff0f`lHftf@n .*&@ gh @d @8g` @\ @PgX @T @gD @g4 @g$ @g @g @ @ pihiXiii(iih@ih(N hx Qhhih`. ti@n .*&@pih @id @HjT @0jD @@ @< @j8 @j4 @0 @`j @xj @j @ @ a33   8 "X   " $  (08@HPX`hpx"            ( 8 H X"` hpx B   "     "     0B8  @ P"  X  ` p"  x   B   "     "     B   "     0"  8  @ PBX  ` p"  x   "     B   "     "     B   0"  8  @ P"  X  ` pBx   "     "     B   "     "     0B8  @ P"  X  ` p"  x   B   "     "     B   "     0"  8  @ PBX  ` p"  x   "     B<&    ""( 0$8lHh pB4 x    $l  B$ ( H P  X h   $ l   B$     ( 0 $8 lH h p B$ x       $ l   B 8 @  H X p x $ l   B$       $( l8 X ` B h       $ l   B,  ( 0  8 H h p $x l   B,    *P  (0 8$@lPp x(   ( H P p b   0 8 "H :p     ЃnCp[_CEx1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@z鏈 Dim cPaper As New clsPapereNX𓝍邽߂̃NX]@]@8]@`]@]@]@]@]@(]@P]@x]@]@]@ .....l .n$.(.,.0. 4. 08.H<. o......n....... o(  . m . m .m` . m  .m8  .mh . mH  .lm(x  .nm .mP  .L$.m  ..m  . Hm  .mh  . HmH` n.4 m(  .nH$.m8  .n'm . L@m  . Hmx  .m .mhP  .mH  .m( ..!0m .m .m` .ł‚Ȃm " .m8 " .mh .+\mH $ .m(x $ .\m . mP & .* m & .hm   . Hm ( . vbLfvmh ( . mH ` ]p..l l h l n p .%' %z  .!0 .!0 * .!2A@&ki  `]x.. l h l n .%'z   .!0 .!0 * .!2A@&ki  0% ]@..4% n  .%z'zrzx p .!0 .!0 * .!2A@&k8i0  `  ]..   .%'z  .!0 .!0 * .!2A@&ki  ( % `]..   .%'z(   .!0 .!0 * .!2A@&ki ]p..  .%' z  .!0 .!0 * .!2A@&kHi@   8 ]8..   .%'z  .!0 .!0 * .!2A@&kiX x]..  .%'z@ 8 .!0 .!0 * .!2A@&ki  ].. l l  .%'pz  .!0 .!0 * .!2A@&kPiH   ]$. * . r %4  !6%2 ..z  .!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 Then44 MsgBox Err.Number & vbCrLf & Err.Description % End If End Function48 UAttribute VB_Name = "clsPaper"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright ( c) HyDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit!Comp B inary' y@z+Dim c As New |@eNX𓝍邽߂CPMO cKKagami LLicencxFCDCallSign INI@Sanitiz.eHPPa gFFormIH DBDBHRARegExFiFil DVD@A AAC$odI fgConfig Sub Class_IIA9al:()AY SetAY=hZL@oZC[F[".F&..P' .&F'C/&@/ /RG0F0fc0FD0&A''1 1F 1 End @1!2Term ite2othin9 b.4$0/B/.C..c-,b,c+ *ub` Proaty GZ()$ce[ )C9|cK!b4E 5l Lh ByVal mvarKkb q " er!w!y!d"L"D(C;*a C PBj6/j"KLEC 5i=/Q /rC//@DT3ic99k=5"t p_?DR6IQqQ !t  [  OIz{g4P _t X Akq3o3`3sge0U"㉷Ft ; y1 afDBїwBc3#=B`ϧdP 0 Th enAMsgBox& vbC rLf &DepscriB8If"!eC’E2EEonvEEE?)??2?2(@>oA@>>!> >>!=?PSLicenceNo.36CountCheckQ:W::,9 s. my , G Oo58@E8"TaO888OCp pnductOyO [OYO_2OOOOC = B3O Q OOQQQeQ2t@Giteki?y//2?m ////#  jK@jjjQ)jPjKatasiq my7c ____SHtOHOHrF߀߀߀?߀߀TOHCallSigna.....O|??0M> H my...ߙߙߙߙ;3F`# GGGOr`Syoni_ue] As String _ ) On Error GoTo(Mes\ Dim sclsSani *Set*= New 0GetGitekiOrSyonin = s.*(myValue)NExit Function :If.Number <> 0 The+MsgBox $& vb@CrLf &D@escrip0End Ifs>@PublicG Is:Abc(5B] my ,O2al oDeleteSpaceBooleaFalseHihun0$^HE:l=:,3F*qpp ›ppNamfePaperc=CxfEzOkAFartPoIntegerhWord.FormFieldjcF|A ýڀFK5lBA@;veDocuments(c.Fp(", mB,bY)$9otht;ttqt't<'t1<.H<Fxv<'q<' '3r! ="'.c#=F_=_=G=,e==Fva? __SRP_1a __SRP_1b<XN[ modInputTextFile"Ma__SRP_30%L l x lx\(x L l x lx\(x L- `x/ (x L l x lx`(x L l x lx`(x L- dx/ (x L l x lxd(x L l x lxd(x < l Ct-KB p"lllllltp >l1x/ $d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/ 0xtp0 l\Xh`H(< l Ct-K?~3a6 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\rU 3#     " $ &  ( * , .aJNLPVB1\.,j!nn-%$a A%(q&I&a p(()(@h9)a) I 3WW_____ _    _    _    _    _  W0[x4x[x8x[x<x[x@x[xDx[xHx[xLx[xPx[xTx [xXx [x\x [x`x [xdx$  x@ c= [x4xc=[x<xc=[x8xc=[x@xc=[xDxc=[xHxc=[xLxc=[xPxc=[xTxc=[xXxc=[x\xc=[x`xc=[xdx\ $ 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 *FH 2lX\)h`6H(/ 0xpt0 l\Xh`H(0l CtK: pnllltp `knpz/$d hh ldhl'''$d hh ld#`*#TX \\ ,lX*FD 2`TX)h\6D$/,tp0 `XTh\D$x lCt-Kz pPnlltl p ,@knDDdh$ 4 h !d 8"Q@x)hd5D c=p/$< hh l<h l''' < hh l<#8*#04 dd ,l4*FD 2804)hd6D /0xtp4 840hd@D hh      !"#$%&'()*+,-./012G h3 , h! , h% ,A h)3 , h- , h1 , h53 ,A h9 , h= , hA3 ,  hE  ,I hI  ,hM3 ,hQ! , hU! ,IhY3 ",h]I ",haI ", he3 $,Ihia $,hma $,hq3 &, huy &,Ihyy &,h}3 ,h , h ,Ih3 (,h (,h (, h3 *,I h *, h *, h3 ,, h ,,I h ,, h3 ., h ., h .@I ` )Iq 0< ` )Iq00 `  00 `  00I `  0, `100 ` Y 0, `y08I ` I #< `=  nrU 0 $0`,0` 00`n<0P( c$*\Rffff*Cx50cc7a1c*\R0*#f*\R0*#9*\R0*#11$*\Rffff*DE50cc7a1c*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c*\R0*#1*\R0*#19*\R0*#13*\R0*#e$*\Rffff*Ci50cc7a1c$*\Rffff*Cs50cc7a1c$*\Rffff*D150cc7a1c$*\Rffff*Co50cc7a1c*\R0*#1b*\R0*#1b$*\Rffff*D550cc7a1c*\R1*#c6$*\Rffff*Cf50cc7a1c*\R0*#f*\R0*#14$*\Rffff*D250cc7a1c X  8 "X  B    'T+hp xtwMxMEx@ 8F"p> "" LL"L""" *LP"L""<|<  % p%`z %+`0Tk II  nt%``+> X`xk R); 0% npP͎%+< ` kFFi % np%  l% i h%`Jd`Lb`z\`j X`|hV9 @; 8@@X6  X@  @0p @n @h h&8 < : t> @pX e@H 5@8 f@( 5X@ p@ 0/@ *FX@ h@ @0 `*F@H X7@` *#@x @ @p @l #@h (*.@ p @Hd %h@` @7@\ *F@`X 5X@T 8pX@0 H  0`> z FX%@ ; th % ; tx% ; tx% ; tx%` (@` @P @@ @> @8 @p 4 (@ $ @  @ p(B D F H J rL N P R T V X Z \ t ^ ` b d f .*@  @ H @  @  @  @ ( @ & @ @ = x0 %H  p `t X ~N$j`tv*@ D  `t @P @ X%`t X  P8 8  8 @ 0 @ @  @h @ @ @  @ @ @  @  *&t.@  `8 $@  @P   =@h  @  =e @ @  ` @ @ @ @X zP*\R0*#1c$*\Rffff*D950cc7a1c$*\Rffff*Cy50cc7a1c$*\Rffff*D350cc7a1 8( HX` &h    . :+PX <`  < $8PX 2`   H     Bt B     <  ` <xTL  V <h 4,-\V p .'x .- `V 8 0'@ PLp PL PL `  -p DV  "' 8 @ 8X  - 0V    ,L P ,Lp   ,L   ,L (,L@ p,L ,L ,L H,Lh ,L ,L (,L@ 8p  8 ,L @,LX ,L ,L ,L( X,Lh ,L  ,L  0,LP  ,L  ,L  ,L( 8X  8,L,L,L8,Lh,L,L,L,L(,LX,L,L,L  8 P 8hHLTLTL@TL 2-hV(2-hV82-@hVxlLPLX0-dV@0-HdVxhL2-PhV2-hV02-hV@2-HhV  8 ( 8@ HLx TL TL!PLp!!! !  !!! !" Bt"" "B " " " "### # (#0# 8#@# 6"H#H #"# # $ $  0$ N@P$.$:$&2%4Y8%$>p%1%.4% % %&& &'&(&0&8& @& P& X& x&&  &{& @' H'h'p' ?x' ' '' '  ''' Bt'8( @( H( h(x( ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/& webmaster@hyperdyne.co.jpX]@]@@ 8'].n n!4B@ n!4!6JeLXgǂݍ݂̓y[Włɑ₳ꂽf[^ɑ΂Ă͎sł܂BA@&zk]]tB^[̐ݒeLXgt@C(*.txt)$*.txt$ׂẴt@C(*.*)$*.*$' !"  n!%' zk 'eLXgt@Cǂݍ.8 $< .8 8 z8k0.:  8 %T.: : !N t0݂̃f[^݂̂̃tB[hُ̐łBA@&zk5-----------------------------------------------------݃y[W̍쐬5----------------------------------------------------- : $> zksystemׂď n!!zk+[Uj[visibleǂmF !z B@2 !ze B@2k "eLXgt@Cǂݍ݂܂B *LȂ炸f[^`FbNsȂŁA㖳exɂMB *L\Ăꍇ́AۑĂIAxJĂBA@&'z(   .!0KTKT  .!0 * .!2 *6ۂ̃v_E͈̔͂𒴂l͂Ă܂B @ eLXgt@CǍA@&Sp .!0 * .!2 @ eLXgt@CǍA@&n i ]8.n5-----------------------------------------------------݃y[W̍쐬5----------------------------------------------------- ݃ev[g : %T ݃ev[g n%(Ouݎw肵Ăv 1=w肵ĂA2=Jݓ͏oA3=J݋ǕύX͏o6uݎw肵Ă2v 1=A2=2731A3=2732.uݎw肵Ă3v 1=A2=J݁A3=ύXݎw肵Ă : %T ݎw肵Ă : %T ݎw肵Ă n%!(xk ݎw肵Ă n%(~ݎw肵Ă2 : %T ݎw肵Ă2 : %T ݎw肵Ă2 n%!(xk ݎw肵Ă2 n%(~ ݋LNN : %T ݋LNN n%( ݋LN : %T ݋LN n%( ݋LN : %T ݋LN n%( ݈ ݈ : %T ݈ : %T  ݈ n%!(xk   ݈ n%(~1-------------------------------------------------\ҁiƋlj1-------------------------------------------------\Җ@lčl̕  : %T  : %T   n%!(xk\җX֔ԍO3   : %T   n%(\җX֔ԍ4   : %T   n%(\ҏZtKi   : %T   n%( \ҏZ   : %T   n%(\ҖOtKi   : %T   n%( \ҖO   : %T   n%(\ґ\ҖE  B : %T  B n%(\ґ\ҐtKi   : %T   n%(\ґ\ҖtKi   : %T   n%(\ґ\Ґ   : %T   n%(\ґ\Җ   : %T   n%(\ғdbԍ   : %T   n%(1-------------------------------------------------㗝l1-------------------------------------------------㗝lX֔ԍO3  D : %T  D n%(㗝lX֔ԍ4  F : %T  F n%(㗝lZtKi  H : %T  H n%( 㗝lZ   : %T   n%(㗝lOtKi  J : %T  J n%( 㗝lO  r : %T  r n%(㗝l\ҖE  L : %T  L n%(㗝l\ҐtKi  N : %T  N n%(㗝l\ҖtKi  P : %T  P n%(㗝l\Ґ   : %T   n%(㗝l\Җ  R : %T  R n%(㗝ldbԍ  T : %T  T n%(1-------------------------------------------------㗝l1-------------------------------------------------  V : %T  V n%(  X : %T  X n%(  Z : %T  Z n%(   : %T   n%(  \ : %T  \ n%(  t : %T  t n%(  ^ : %T  ^ n%(  ` : %T  ` n%(  b : %T  b n%(   : %T   n%(  d : %T  d n%(  f : %T  f n%(1------------------------------------------------- ݂̑1------------------------------------------------- ݓo^ԍ : %T ݓo^ԍ n%( ݓo^̔NN : %T ݓo^̔NN n%( ݓo^̔N : %T ݓo^̔N n%( ݓo^̔N : %T ݓo^̔N n%(ݕύXKvƂ闝R1 : %T ݕύXKvƂ闝R1 : %T ݕύXKvƂ闝R1 n%!(xkhݕύXKvƂ闝R2 : %T ݕύXKvƂ闝R2 : %T ݕύXKvƂ闝R2 n%!(xkݕύXKvƂ闝R3 : %T ݕύXKvƂ闝R3 : %T ݕύXKvƂ闝R3 n%!(xk  ݕύXKvƂ闝Rt[ : %T  ݕύXKvƂ闝Rt[ n%( ݒlj : %T ݒlj n%(ݖݔ̐ݒuꏊ1 : %T ݖݔ̐ݒuꏊ1 : %T ݖݔ̐ݒuꏊ1 n%!(xkݖݔ̐ݒuꏊ2 : %T ݖݔ̐ݒuꏊ2 : %T ݖݔ̐ݒuꏊ2 n%!(xk ݖݔ̐ݒuꏊt[ : %T ݖݔ̐ݒuꏊt[ n%(ݎgyы󒆐d1 : %T ݎgyы󒆐d1 : %T ݎgyы󒆐d1 n%!(xkݎgyы󒆐d2 : %T ݎgyы󒆐d2 : %T ݎgyы󒆐d2 n%!(xk`ݎgyы󒆐d3 : %T ݎgyы󒆐d3 : %T ݎgyы󒆐d3 n%!(xkݎgyы󒆐d4 : %T ݎgyы󒆐d4 : %T ݎgyы󒆐d4 n%!(xk1-------------------------------------------------ݔl1------------------------------------------------- ݔl : %T ݔl n%( ݔlSҖ : %T ݔlSҖ n%( ݔlSҖ : %T ݔlSҖ n%( ݔldbԍ : %T ݔldbԍ n%('> z0 ( .!0KTKT  .!0 * .!2 *6ۂ̃v_E͈̔͂𒴂l͂Ă܂B @ eLXgt@CǍA@&Sx .!0 * .!2 @ eLXgt@CǍA@&n(i X ].n]]] ]8]P]h]'| $~,myFileNamet@ĈȂ ,2myFileNamet@CV[PV̓[hŊJ'J,obt@NA..h $Na( EOFłȂԂ J( 1sǂݍ J$# JL##Ŏn܂ĂȂƒkłȂ J: $'LL:̈ʒu𒲂ׂ L0L%:݂ΈȌ̏BȂΖ J L % %j'z J L % %j n!%'j  z %  z n!%4 ږ܂B * zA@&V.< zk h j zC@bqkk | '|k)Do[viJԂjV)t@C‚k` | t G[ :ڂ̐Ă܂B * ݂̍: t *ۂ݂̂̍: h !NA@&.< V)t@C‚zk h  B@b .< V%t@C‚z8 0 .!0KTS .!0 * .!2 @ eLXgt@CǍA@&n.< V%t@C‚iAttribute VB_Name = "modInputTextFile" ' ЃnCpP[_dCopyright (c) HyperDyne Inc. All 8reserved.fhttp://www.h0d0.co.jp/webmaster@  Option ExplicitAPrivamvarColle"c"As   %Kagami !ub) Fun ()Boo0leanDBrror GoTo @ErrMes FalseDim cP& clsPa Set = New cP.Page.ReadBoxIf Count <> 1 TheGS+Msg "eLXgǂݍ ݂̓y@sWłɑ₳(f^@΂Ă͎s@܂BExitFM%End IrfIݐv`Qg")sultA}1=zsS'uw "" Then0wcP.GetValue(pKAGAMI, w6.DropDown.% @=iEnd If8Enabled = Truex--8'\ҁiƋ0lj ;'@lčl̕*c!M (eniC3mCRXԍO3Cu  #FV4o$ x$ACIZtKi$i$cH_a _R)3O?! Ji dv@ \ҖE'_N#_2K2Gt$_Q_%G&77_"/=$/{:4/ u Ҡ,db_//w//m(*&O{S 'l/JzlTP J'3phM.osd9h  9"ooe]g:k?/;2\ooe__\!]H/o Ǫ2//,S)oo?еes} [jo Wo.x re` 4i3 ?O=OUolc/poooRoli?5ldbԍ).Result _  = mvarKagami.Item(c ݑ f'--7Q;FcP.GetValue(pKAGAMI, aXO3<* X<4< "" The~ny.DropDown. X End Ifm (/&2 a p .R 73 Śp ڪ i[0$u _Wlj~?4[S_Uݔ̐ݒu7")4_Ps ?7-D` oP? ? / / " ? )!(""gyы󒆐d̀r #` ?#g}  d3") <> "" Then  cP.GetValue(pKAGAMI, "ݎgy.Drop Down.l _= mvarKagami.I0tem(N=End If If)B~4Dـ#l'l'--˔lp;&~E").ResultxwG C&]SҖskwcdbԍGCInputCӀ = TrueExit Functio ErrMes: Select Case @.Numberct04608GMsgBox(IAa& vbCrLf &Des0crip"ۂ̃v_E͈̔͂l͂Ă܂B",@iticaleLXgt@CǍ"LEls$'_ Wea136Private&9 ReadTextFile(By@ myName As String)qACol<@  On!0or G8oToA@B%BDim cPclsPapASet= New KA|my c#T?myBuffA C5E mmaPosInteg ë )Data k* %ki_C@Dir('-d''M 堂`̂Ȃ aOpen 7F`2By #1 V[PV& Y`_ h`ŊJ )= 'obq NA'?# GN%Do Until E OF(1) ' p0Ԃ͇Line q#1,P%#'1sǂݍ[ Lefft0, p1#" AA"4'#ŎnFFFPkr Ho$+=0 () I:J!=Compare': ̈ʒuNי$ `31a 0~ }0Έ̏ BP  qmyr6= VBA.Trim(ׁ-)9=0F.Sani placepLtoCRLFvMidYh+aaA In61 SS0쯒H@$` :maqFielvd)C $f"ږĂP&lssOYClo||#1_Y=yd Nothy<j? Withp+B.Add@"!?1tQ9`k %mLo opG 'DoZvaViJjw7'Z1‚EA*k3_COUNT)'GH[ "&":(̐bkN܂(ܸ$܂:?z38my!.CountO, N,. _G5*} F  `-=u | __YȰumber Case 0 x0ElseHMsgBox Errd.N _ @H& vbCrLf &PDescri@ption,2itical, "eLXgt@C Ǎ"OEnd SelectSet ReadTextFile = NothingClo,#1'd@‚ B 4FuncO `1\60Y'0kbdMD@ m l@p L 8n>1X/@60>:N\M @(0 o(]@60^1+l\p d ,pk$4'''q*#@l\*F0 /@60= c=x lh'''0\M @XMD@ 60c kVpVf= kVB{'''rs*#@*#t*#B#*#*#u*#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(__SRP_31%|clsPageډ__SRP_22( !__SRP_23=g3Tp+`zP*\R0*#1c$*\Rffff*D250cc7a1c(*\Rffff*D250cc7a1c\0(*\Rffff*D250cc7a1c\1$*\Rffff*D350cc7a1c*\R1*#d4$*\Rffff*D150cc7a1c*\R0*#1b*\R0*#1b*\R0*#9*\R0*#f$*\Rffff*Co50cc7a1c*\R0*#10*\R1*#b5*\R1*#d6*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#14*\R0*#e*\R0*#19*\R0*#13H+  8 "X    6 8 "X    , ,   *8 hT@<8|e>s>uPYe5LOv%*=h8+3qqmI>q>>>DKpz tnpt Xp Tp'hpt Xp $lhp+'''(:XNHH 6H(:XH H(:8 : :  p`16H(p8l $ 4 hlllpt p  >h1/lp l0` l c .(:XNHH_ (6H(h_ $lhB+'''(:XNHH 6H(p p2$npt @p 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<$ l tK{ 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@L@:`RNPPt @48+>Rp 8 p%/486P@L@:`SNPPt @48+>Sp 8 p%/486P@L@:`TNPPt @48+>Tp 8 p%/486P@L@:`UNPPt @48+>Up 8 p%/486P@-@:`VNPPt @:$]@6P@3V@:`VNPPt @"8+>Vp 8 |% 8')86P@-@:`WNPPt @:$]@6P@V@:`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@-@:`[NPPt @:$]@6P@ZV@:`[NPPt @"8+>[p 8 |% 8')86P@-@:`\NPPt @:$]@6P@V@:`\NPPt @"8+>\p 8 |% 8')86P@L@:`]NPPt @48+>]p 8 p%/486P@-@:`^NPPt @:$]@6P@V@:`^NPPt @"8+>^p 8 |% 8')86P@-@:`_NPPt @:$]@6P@5V@:`_NPPt @"8+>_p 8 |% 8')86P@-@:``NPPt @:$]@6P@V@:``NPPt @"8+>`p 8 |% 8')86P@-@:`aNPPt @:$]@6P@?V@:`aNPPt @"8+>ap 8 |% 8')86P@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@pz 88 !l q8llA 88 !  ,!'':`"N@@l #4*#l*#*##*FP 2 4)86P@t 88 !  ,!'':`"N@@l #4*#l*FP 24)86P@,dpt8 48P@<$l CtKh ppV"tMD@ f#@=/@z lt]Cd l h  gt d@dMD@0 h 0: i]<ld='60mldjpbkbk3`2kbdMD@0 h 0 lHl Hr "(L " 8F>"LP *LLLLi  `.t : `,p`Hn : 8 % ,v `/k \PPZ)   %i.  i  ---- yt --- % { p@ 1-- % h` ----%`Hf`|/d ,dh `1k `<<i.  ̔Ni   t0 %`Hr̔N`|p, `5k d00i  i  %T p  %`. lR1 yd8 % { `X %`. X`H,%T%"x 4@bz 8@b| <@b D@((8x(` h  Ph0 (p00Xh ` x| @hX` x` x` x@| 88pPh6 `6 x`8  h(h@@xXh8`8(xh@( ~ HH`h ` 0zpH0 ~ hhPPhh ` 8zxP8 ~ XXph`@zX@ ~ ``xh ` Hz`Hz hhh ` PxhPz x Hph ` XxpXz x x(xh6 `6`z xx`@r  ~ .*&@X` @^ @@X @T @P @pL @H @8 @( @ @ @ @ @ `" ""@h  D%` t` z 5` t Px~ .*` t ` ~ .*&@h @d ``  @( P @@ @ @X 0 @p @  @ @ @ @ @! @! @0! @H! @`! @x!p @!` @!P @!@ @!0 @! @" @ " @8" @P" @h" @" @" @" @ @ @@~ @x @#t @(#p @l %%%&$%H$#0$$h ` #z  $#`$# ~ .*&h@p$j $H$ @$h $p$ /@$f $$ @d/ x%$ @0%T (@H%P @`%L @X&< @8 @4 %$p$@%0 (@%, @( @%$ @  @(& @@& @p& @ @ h @'H((((0(''@'x'X'h ` ('z h'@''('t ~ .*&@'t ''@r ''@l (''@`(h @d (@x(` @\ @(X @T @(D @(4 @)$ @ ) @8) @  @ P  p*+**X*`+x+*+ *h `)z 0** +) *&"~ @r @*h @ ,d @*T @*D @+4 @+$ @0+ @H+ @ @ @ @+ @+x+@ ++ +@*. X5@, @  @  --X.p.--@-,(--h ` ,z -,X-,z ~ x .*&@h-l -@- @j -h- @d -- h-@.` @\ (@(.X @T @@.P @L @.< @., @. @. @. @ ( @ h H ( 010001p0 0///hv `v/z // 80/ ~ *.&(0@n @H0b `0 0@` 0H0@\ p1p0@1X @0H @08 @1( @(1 @@1 @X1 @ @ H0'@@1 (@ @ @1 @ 8 P 2 3304H433h33222hd `d2z 22 032 ~ *.& 3@x @@3n X33@l 3@3@h 3h3 @4d @3@3` (@\ @X @4T @P @`4@ @x40 @4 @4 @4 @ @@ h  ` 4z 54@54` t5P5(5 66` tv.*& @j p7` t x@`4(57076h6566H74x55@7P @6@ @70 @( @6& @$ 76@8 `76@7 @  H7(@7 @ @7 ł@ `7@8 @ @ 7h x8      !#$%&'0)*+,-./"1245:X89;<=Y?@ABCDEFG7IJKLMWOPQRSTUVHbZ[\]^_`cx |efghrjklmnopq{tuvwxyzd}~ >   "@h p ."   0"8  @ HBP X p x"     B   B     0H PB X ` x  B     0H PB X ` x  B   B   ( @Ph pB x $   B 8@ HXhp x         ( 0 8 @ $H lX x     B      $       (   0  [8 @ !H  X  h  x  )        $ l   B 0 8 @ H P X ` x  4N     @ X  p  x     $ l   B      (  @  P  h               ( 0$8lHh pBx   (    * (8DIH ,+  "88@Xh    $l @ HBP ` hpx   "" ( 0@H P$Xlh B$  ,     08@ H X hp x   2$))0)8)H ` p >$) )0P)X )h    &>$)@ )Xx) )    &  (48p7x7  $l B  ,8 @PX` h x    2$  ( 8HPpx >$    & HPX>$`    & 40hp x $l B  > ( 0@HP hpx## ' &  ( 0 @ 4P       l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX P y@zݕ Dim cPage As New clsPage yvpeBz/ Name / ^[QbgAtiveXRg[ PageCount y[W̎擾 GetPage y[W GetPos pos擾 y\bhz%% Read Wordt@C̓ǂݍ% FindWord Wordt@C̓ǂݍ Sort \[g$ ReadTextBox INIt@C̓ǂݍPageSection\^D y[W^D0 l^DH  myStartPos^D`  y[Wԍp PageSet\x^D ݂pos^D݂̃y[Wԍp]@D( y[WZbg]@D(y[WZbg]@D(^[QbgActiveXRg[]@D(ZNV]@D8(y[Wdumy'| o'| o AName̎擾 | ' mh AName̐ݒ '| mPPage '6m((NoԖڂPage01Ԗ p G{j p p $~ !'8kmNoԖڂPage01Ԗ p G{j p p $~ !n ' k0m((NoԖڂ̃y[Wԍ01Ԗ p G{j p p $~ !p ' km NoԖڂValue01Ԗ p G{j p p $~ !x'k0m(( z ' mSetNoԖڂ݂̂Pos01Ԗ G{j z $x !t ' kmSetNoԖڂ݂̂̃y[Wԍ01Ԗ G{j z $x !v ' km݂̃y[W𒲂ׂ'6].------ !--zk' ]@~ @ݬ$~ ($~ (x------' zk emzk !zk'6z  .!0 .!0 * .!2A@&zk !zhk`iXP 8' ]]' !6! . f[ bs ! C@ 9 9dC@q ! ! ' A @~   $~ (Ă ! $~ (x  ' k@8' z(   .!0 .!0 * .!2A@&ki0 ' ]]]] H  L  Hg H$~ !x %@ L$~ !x %@  H$~ !x' 8 H$~ !' 5-- L$~ !x H$~ (x---- L$~ ! H$~ ( L$~ (x5-- L$~ (------k L------ H ' zX P .!0 .!0 * .!2A@&ki ' ]P t'r]h H  Hݎw$~ (n 1=A2=$~ (p 32dx r H$~ (n 3 H H$~ (p k@ H$~ !KT ǎKT r  'rn H' z  .!0 .!0 * .!2A@&ki p'"݂̃y[WTextBox1擾' ] .T B@6ݎw] y[W\ y[W\ %'. .'.~ y[W\ y[W\ . * %  %*n%"y[W\ۑł܂łBA@&Tz8k0 B@, n%d . * % '.k] . * " %+]P H  @~  H$ H$~ ( H H$~ (x  ' H z0k( zk'z  .!0 .!0 * .!2A@&ki ' ] ] 'z ] H  H$~ !KT z @x P H$~ !n z $x (t H$~ !p z $x (v '.'n H' z  .!0 .!0 * .!2A@&kp ih   ` H &f[^`FbNςł邩ǂ'v] .x]( .z z k ]H . B@6]h ] '. H  H '| H$~ !KTf[^`FbN %ςς xB@b zB@bd  xB@b zB@b .'.dx . *'.kP 'vk@ n8 Hf[^`FbNƋl̂‚킹 %ςς xB@bƋl̂‚킹 zB@bd  xB@bƋl̂‚킹 zB@b .Ƌl̂‚킹'.d@ . *Ƌl̂‚킹'.k 'vk f[^`FbN㗝l̂‚킹 %ςς xB@b㗝l̂‚킹 zB@bd  xB@b㗝l̂‚킹 zB@b .㗝l̂‚킹'.d . *㗝l̂‚킹'.k'vk . ȉ̃`FbNςł܂B * .'.k x B@b z B@bz` X .!0 .!0 * .!2A@&k i &f[^`FbNςł邩ǂ'd zk] . B@6]8 ]P '. H  H '| H$~ !KTf[^`FbN %ςd .'.d . *'.k'dkxnp Hf[^`FbNƋl̂‚킹 %ςd .Ƌl̂‚킹'.d . *Ƌl̂‚킹'.k'dkf[^`FbN㗝l̂‚킹 %ςdX .㗝l̂‚킹'.d  . *㗝l̂‚킹'.k'dk . ȉ̃`FbNςł܂B * .'.kz  .!0 .!0 * .!2A@&kHi@h  8y[W̖OƂɃf[^`FbNςł邩ǂ' ] .]'.  .$vk] ]@$.x$.z]`']x H z!N H z%T  H x%Tς' 'ykk H . MsgBox myPageName & "݂͑܂B"kp.x.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 <> 0p TheM sgBox & vbCrLf & Descrip.A (If@+GPublic# Check( _C ByRef myCol9W-AlG, sAS`tringwB oolea;On)GoC?A*'f[^`FbNςłǂ੔% +XA+ItemK*d= New 2CKeyAorTl= Fals l"INIA!cls@A0I@.AET/k I[ k`.i +߅߅e'AGetValue("+C", E)r"D"Le =.Add O:VE8N !d c28A!Ws׸ `%irb^%cc_A"Ƌl̂‚킹"BYA?p ck) J> 'xo3bQo \6oo`R "P" ȉu܂B"Y@TIFOyC3 4JResult s r  ߓ n@e4 yut aPt,_Q_r't-__ OOQ 0OȄc __̌=@3%rB_{8? _{4iE&'{r{=i{qO BoUSU Y 7 OKaO OѰ_ò s = "㗝l̂‚킹"Elses & vb0CrLfnd IfCheckTheResHultFagE0If s <> "" 2nEȉ̃`FbNςł܂B" s< ]Exit Functio- ErrMxes:@ .@NumberE0DMsgBox  Descrip1A7u?@PublicH ByPageN@ame( _MB@yVal m As Strin g)Bool$eamOnQor` GoTo@:  C'y[W̖OƂɃf@^V邩ǂ#*uDim*Coxlle['GSet= New sC;BGm$(my, s)&rCD,0Item+Ke.yQ2= 5(1)L2D ]bFsAbWi IntegerF{i 1 |A.Count`%a(ia#hJn.'"`oݍtaCTru߬A3#voaa6Next i@&$?'ax(& "͑ඍ݂ h1l ll0ClI ll 1dr>d#ht tkr2hd+'''$:TNDD 6D$/  rt " ll 1l8:T NDDll$ $6 Y6D$lcD@ klk@Ak#hk@A/hDD dcrPkr/ rXkr / pz/ $  ll'''$  l#h *#d  ,ld*FD 2hd)6D$/ 8t+nl0 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 plX0/X)''':HN88t 68)''':HN88p 68)''':HN88t 68)''':HN88p 68 0 1 *#X*'/Xpz fd`v$Xh plX0/X0)''':HN88t 68)''':HN88p 68)''':HN88t 68)''':HN88p 68 0 1 *#X*'/Xpz$X h plX0/X:)''':HN88t 68)''':H N88p 68)''':HN88t 68)''':H N88p 68 0  1 *#X *'/Xpz =! *#X*'/X7'''8ltMH @H l=t687'''8lpMH @H l=p68/$  ll'''  l#X *#  ,l*F8 2X)68/4d\hpt0 X8*KpzxTkx)/ t xt | 1 rDcl krppkr@ACh lh0$dt pld0/d 0 1   *#d*' /dpz rdlrU #" $1\9YB%$a A%(q&I&a yɠ Pa}1zZ !YY(B(@H9)a) "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/h 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^/ / GH0di `P@)x`6dt 0 `LHXP89Y4l CtKpzpr$dh $ 4 h Qdlh krhl 4Qh` ` `  lt` [~'''''' '@'`'''''' '@` 6@ `@ c`!~hl 4h 8k~prh krD@ ltD@A)xl 4lx#tD@A/tDD?pz/$x hh lxh(l''' x hh lx#t *#lp dd ,lp*F@ 2tlp)hd6@ / 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(KpzBpxvDcr kvc@A@A kxkv@Akvkv@A ;kv@ACl ll0 ll0 kxpx vdr/pz/ $d hh ldhvl'''$d hh ld#` *#TX \\ ,lX*FD 2d$dt pld0/d(e 0C 1 \  *#d*' /dpz$d t pld0/d 0  1   *#d *' /dpz =! *#d *' /d/$\ `` l\`l''' \ `` l\#d *#PT XX ,lT*F@ 2dPT)`X6@ /u ,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/l 8 `dlpt0 @0HH     7rU "T$" `h $A" `l("h0("h!("h%(,A"h )90,"h -9&,"h 19&,"h 59&(A"h9&,"h =Q(,"h AQ(( " `E#,I" `Ii#(" `M#("`Q#( "`U#(I"`Y#8"` ]=0#,"`a0#, "`e#9YiYnrU~| WV )-<. (q&I&a ).Q.  H( J%$a A%e@K x$rtx t krtz$rtx pt krtb?X:\%lt$ 4t 0 l H X )tlX?X:\ %lt$ 4t 0modMenu>__SRP_56\__SRP_57tX-[000000000/>N] ~ !6%(z  !6%(z|` X .!0 .!0 * .!2A@&0k o ].n n!! ' n!!|k0[NubNJꂽƂɊǗ҃j[J~   !6%(z ~ !6%(z R B@'|(d '4Ǘ҃j[𗘗pɂ́AǗҌKvłBA@& ~ !6%(z  !6%(z R 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ƂɊǗ҃j[Word.ActiveDoc ument:mmandBars(cAdminWA).Visibl 7UB=#K+.Show vbModeles@qDEE@N`O);M#@nUOEg; ú:BC@@.Number <> 0LMsgBoxd& .CrLf &DescrioC O```pq=ra9 6K6^6 q--A2-}3-f]--7_____ab____me_V__HQ_ ~" ṕAKvłB0e4cc=hhsT[TctLTTrTQT=T|=P 6\@L  @H @D 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(>p@(x4 @<8tlX(8Kl%$?P:l %TX$ 4X 0 T H P )XTP?P:l%TX$ 4X 0 T H P )XTP$L XX lLX1l''' L XX lL#H*#@D TT ,lD*F0 2H@D)XT60 \8$ 4 HD@XTP0 lK x$rtx t krtz$rtx pt krtb?X:\%lt$ 4t 0 l H X )tlX?X:\ %lt$ 4t 0 l H X )tlX\% $z+'''(:\N88 68(?X:\ %lt$ 4t 0 l H X )tlX?X:\%lt$ 4t 0 l H X )tlX\%$$ tt ltdl'''( tt l#*# ll ,l*F8 2)tl68(l(x4 tlX8(a  6rU V$V`$V`$V`nrU Mh (9qqqArrsQss tatt 4 # k҇xMEP@"p6 L""LLLL" "pF@ +J@ p@ -\ zP$*\Rffff*D:50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*Cs50cc7a1c$*\Rffff*Ci50cc7a1c*\R0*#23*\R3*#4e*\R3*#4d*\R3*#8c*\R1*#c6*\R1*#c1*\R1*#17b$*\Rffff*D450cc7a1c$*\Rffff*D<50cc7a1c$*\Rffff*D850cc7a1cY  8 "X "   $$  6?P?h??  $l8 @"H P X?h?  $l "   $($0 HP 6X??>+?(?@Xhpx  $l   ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H]@.n n!!' n!!z |k0[NubNJꂽƂɊǗ҃j[J  !6%(z ~ !6%(z R B@|hd`' ~ !6%(z  !6%(z R B@ݍ|k|  .!0 .!0 * .!2A@&ko`  R B@V[W rmkstationHokkaidoKT ! (xrmkstationTohokuKT ! (x[rmkstationKantoKT ! (x rmkstationShinetsuKT ! (xrmkstationHokurikuKT(z ! (x%rmkstationTokaiKT ! (xrmkstationKinkiKT ! (xrmkstationTyugokuKT ! (xrmkstationShikokuKT ! (xrmkstationKyushuKT ! (xrmkstationOkinawaKT ! (xS no@<ݒ{^NbNƂɎsCxgvV[W].n]] ! !xrmkstationHokkaido' kC' kH ! !xrmkstationTohoku' k' k ! !xrmkstationKanto' ֓' k ! !xrmkstationShinetsu' Mz' kh ! !xrmkstationHokuriku' k' k ! !xrmkstationTokai' C' k ! !xrmkstationKinki' ߋE' k ! !xrmkstationTyugoku' ' k8 ! !xrmkstationShikoku' l' k ! !xrmkstationKyushu' B' k ! !xrmkstationOkinawa' ' kP  P R T n!%  'ݒۑ܂BA@&A@dݒۑł܂łBA@&kd$f[^x[Xւ̐ڑ񂪈ُłBA@&|`kXoP A@r Me.HideoAAttribute VB_Name = "‹ݒ_CAO{bNX"D Basb0{F669C063-0614-4A04-A373-3D6D81FE5D01}{2A20BA60-197J0C8-9442-64D7B36C6D36} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD' Ѓ"np[ ' Copyright (c) HyperDyne Inc. All reser;.http://www. hd.co.jp/webm@aster@ Option vlicit P35 Sub UForm_Initialize()A 'tH.ǂݍݎɎs 6xgvV W Se@lect CAm|yDi"@rmksta'Hokkaido@Me./hu.ValuA|Cs To@ uUCKant%$ShinetsV%LurikTo0& B9Kinki   Tyugo +k  Kyush/yU_Okinawa%E"CkpEnd Co!xub}_Ck|b{^aƂ~pDim cP As c0lsPa@#Set= NewLAmyBranchStringc`E If Then |my `ޚ`kC$4a*If iPh@khb֓} y3BM*e>wMz oN`~g]T S'abpC*0PCTbߋE[Yn]Ip#\n4l0Y//^ecB?a?N7k<T<> "" AgmySqr )anIPassword; cP.Config.Save(j)t#(FJ7!qMsg Box "1oPۑnna1‚~rGw5q/ŀs܂8  itQGTUD!)\*ciJs=m]` *t@Bd׳lm6k2szN5.uPxk2szN5.uPׂQGTUD!)\*ME4SPSSS"p>" "LL <8<<<0{F669C063-0614-4A04-A373-3D6D81FE5D01}{2A20BA60-1974-40C8-9442-64D7B36C6D36} >@`Tk  `(kBB% nxerdy%` t2t` ps `xkg@8%h@ %@suK%<% l @x e@t pt @d @T 8qt  pt eX f @l @(\ @pL h@< N PRT&@: @( @ @ @ X@ TV@*@r@@x h(@xpzP$*\Rffff*D;50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#1d*\R0*#1e*\R0*#14$*\Rffff*D850cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*D<50cc7a1c48<@DHLPTX\`dhlm  8 "X " 8    8H `p      @P p    " B@ HX`*h* * 0@*H` * * (*0H `p*x * *0 HX*`x  0('   +  ( &+0X`.+h "     ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX2tH[ǂݍݎɎsCxgvt9df^xPXւ̐ڑ񂪈ُ  xit3 | 0 I 'Unload0u0 1uHidX__SRP_4c$__SRP_4dH Const1q2i?__SRP_32J )Ii ()-A% ٻ  4 0I1`L80I<0q@0D0H0L0 P0)T0IX0q\0`0d6!7` Lh1i l 0I`ILkLWLLL 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$ xdl4HrU Lx$L`$AL`$L`nrU~| 32p$rU 2(      "#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijkmnopqrstuvwxyz{|}~__SRP_33KNlmodOutputTextFile$s__SRP_34__SRP_35LRpn@rU~| 54) Y- ;.3!/I 00A1 23 44Q556Q7 88Y991:(q&I&a ,)1\=a:F.%$a A%tl CtKpz pX  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!2 ݕ̃f[^擾 | t !l   | n!% : !  n% B@  !l e  | n!% : ! !x B@  !l  e  | n!% : !!x B@ khk` | '| Ot@C‚ B@B'z  .!0 .!0 * .!2A@&kiζAttribute VB_Name = "modOutputTextFile" ' ЃnCp[_2Copyright (c) HyperDyne Inc. All 8reserved.fhttp://www.h0d0.co.jp/webma ster@  Option Explici@t Pub FuncGetDataFor(ByVal my As Sng)Boolean.,rror GoTo ErrMes ,False  Dim cP(clsPa Set = NeLw fsObjecf$a "= Create("Scr"ing.Syem ")?'łɃeLXgt@Ώ㏑, Aa6fs.QGP, Tr ue@ a.Wr iteLi~"#dq\T|gVAe@8dl=iǕύXoĘ^/8́j>̕ R'h@(tgJISɂĂB'WordUBhiOC͕̓j́AォEɏ@(oRBߓê Ƃ͖֌W-Ȃ- z! ͍ږ`tju`݁vƕtCĂ C ƃf^Ƃ̊@@u:vip g̉pUׂ$R`gs,s4#WlȂʼn ꍇ" uvbpCrLf ?#GB?ʏcABqR1ȊOA`FbN{b2:@XAvDE9hT@vj{B !! Q"J :9~f)@@T͑Ahj`DȂ2 Ae Flas m$xME(6 << <@ HH P`H ppHtouroku-hk2011.dot Hjpfhrr9f B 8H @@R@V8@"  @Hrmkstation.ini(xHo[W@1.03@2012/02/03X(H H @~H P  @Th@  @ dbo.T_HokatuT_Agention.iniT_Clientkatuǎ@[Uj[ @X %  @ǎ@Ǘ҃j[@Ǘ҃j[(pH8P@hx(pH8xP@h( xzP$*\Rffff*D<50cc7a1c**  8 "X   (0Ph 6 6 6 x   ((  (08 @ $H @ ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp dot@ConstHO[o萔s]$touroku-hk2011.dot]$o[W@1.03@2012/02/03]$jpfhrr9f@]$rmkstation.iniH]$ dbo.T_Hokatu(]$T_AgentP]$T_Clientp]$$.]$ǎ@[Uj[]$ǎ@Ǘ҃j[O[oϐ] ] ] @] ] h] 8] ]$%Zbg؂蕶@] ] ] 0Public Const cTextBox1 As String = "Text Box 28"80Public Const cTextBox2 As String = "Text Box 29"'0Public Const cTextBox3 As String = "Text Box 30"8@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 Sngtouroku-hk2011.3{ cVERSI$ONo5W@1.03@2/03 PASSWORD !jpfhrr9f INIVrmksta{.ini1DATABASpdbo.T_HokatuAGENTDBET_Agen"t CLIV Cli kPTextBox14A  28' 2 9 3 30 ƅc$H/MAX"Integer4000O UMenuJǎ@Uj[3 AdminǗN5gϨgm4ySwrG*!myDatabase;n(Pa@ssword2ATISƋo^sBoolean*myLocd1Sep" 'Zbg؂! e F ͋08ɁBa'1A`eȀ~2ȡl : i`P ZKkMB < 1 bwi0̐W` s3 "{h͈͓̔l A`FȐ`A.e -|v1N @ "Ahgp"RBpHŒQo  "#QnmyFieldQmR.y.md!kIntegerSkPh1 EachP|In APveDocumentw`{ae1'3MOcJ擾If k <= KAGAMI_COUNT Th>e 5`d .Ts` wd ArInpmcPr 8.GeP(p, k) & ":"PSan itize2(Result, pNothinxg, fy% qE CheckBox b m p T04xME"p)L6 LLL"" LL0 +` k@ AAi  npx%` l ` h $%`|". %`@x`8`z X`t`t`t`t(@ t   @X @H ? @8 lL @( B @ @ @8 P'@O 8'@  @ @ @ @ @ @@ (@X 835h.*& @x = 8@ JXzP$*\Rffff*D=50cc7a1c$*\Rffff*Cy50cc7a1c*\R1*#10b*\R0*#e*\R0*#19*\R0*#13*\R1*#10e*\R1*#10d$*\Rffff*D350cc7a1c$*\Rffff*Cp50cc7a1c*\R1*#5c$*\Rffff*Co50cc7a1c*\R1*#c6*\R1*#c1*\R1*#17b*\R0*#14G  8 "X B    *  *!H >`6F0T@BT@8<x>PTHTTVPTTVXV(HPX/` x  Dw 6h H6iX        $ l 8 @ P  ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX H']`.nto]]Scripting.FileSystemObject$. $łɃeLXgt@CΏ㏑niH  % . ka/#dq\T|[gVXe@eLXgt@Cdl B@ Te(#iǕύXo^\/o^ύX́j B@  3# 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[^Ƃ̊Ԃɂ́u:vipjg܂.uR@  DropDown " Ǐ  ld. End If!q)k + )^Nu)CS'XO_‚a.Clo` %VExit# :.Numbe@r <> 0<MsgH& m`&QDesoT/E 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"B $ (l Fw$ lk"p d 0 l!*#++Y lp l*FX%h25X $ (l G*hk"p d 0 l!*FX$ x D"kH%h/)6XH $ (l Sik"p d 0 l!*# $ | 4#l #*FX%h2)5X k"p" $ h$pz$ % &l ml''' % &l #'*# % ,&l*FX (2)6Xt@($plht4 XkrU 4(4`nrU 6(6`(6`modOutputXML%C__SRP_36__SRP_37QZclsAreaCode# X p zP$*\Rffff*Cp50cc7a1c$*\Rffff*D>50cc7a1c$*\Rffff*Cy50cc7a1c(*\Rffff*Cp50cc7a1c\2*\R0*#11*\R0*#f$*\Rffff*Cn50cc7a1c$*\Rffff*D150cc7a1c*\R1*#10e*\R1*#10b$*\Rffff*DF50cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13  8 "X B       08  @`px    \6(8:xME<"p""LL "> L< 3+`` k@ 88i +` k ))>i + p`k CCgi $ np8%` l j` h + p`tk TTi $ np%` l ` h \`n & Pp`%`|H+ h`pk i 0 npp%` l ` h ` `|`lb^+ 0`xk i 8 np̏%` l ` h `l+ ` kp AA~i  np%` l ` h + `"k  ``i  npX%` l ` h + @``&k 33i  np%` l ` %h +  `(k >>Ri  np%` l ` h + @ `,k0 AAi @( +B@* B@, + B@. B@0 hB@2 B@4 B@6 Bx`8 Pp `: l +  `H.k 99i  p`n +H `01kP  zz iJ p@ph0@`   (%  h  P `z  ( `t`t``t``t`        8 .*& @ p @l @ h @d @ ` @\ @( L @@ < @X , @p  @ @ @ `z  `t     .*&@Xp `t@l h0`t @ph H`t  H @d @` @\ @L @< @, @ @0 @ @ `t` z `th.*&`t`t h @XX@h " .*&8@X @H @8 @( @($ @  @ @p @ `H`t@ @  `t@ @0 @ ` z `tp"  .*@pX `t8Xp 8 hHX@H @8 @( @ @ @ @ @P @ (@ @ @ @ @ b@ `b@0 @H @ i@ `t@ `t@ @ @( @@ @t &` z p`t " z.*&`t 8P8hPp@X (@H @8 @( p@  @ @ @ @ @ @ @  @ @8 @h @( @@ @X @p @ @8 "@ F @ F@` (TPs @ x8@@ ``@  @ `tX`t @ @P @ @ @ @ @ @ @p ` z  (H0`t0"`t00H" z.*&@hX @`H @x8 @( @ @ X@ @ @ @  @8 @h `t@ @ @P @ @ @  0`t@8 @ @ @ @ @ ` z   `t x!" " `t" .*& @P"X @!H `t@0!8 @H!( @`! @ @! @! @! @! `t@ @8" @ @ @h" @" @ 0` z #"#`t@`"x#$%#$0%"#"# `t$`t*F#" .*&@`%X @ $H @8$8 @P$( @h$ @ @$ H'`t@$ x@$ @% @ @H% @ @ @x% 0@% @ `t(` z p%%& `t %" .*&@((*`t2(%'''''((% &%@X(X @0'H @h'8 `,`t@'( `@' H@ @' @@( @ @( @ @ 0@ @( `t@( @@ (` z )2`t#()**)*+()8&`t)" *.&@@+X  ++`t@0*H @H*8 @`*( @x* @ @* @* @* @ @p+ (@ H+`t*+ `t @ @+ @+ @ ` z `t.*&@@.\ (@H,L @ -< -`t(h-8-,0,P-+,)@, @-( @$ @-  @ X,@- 5X@ `J tFX%`t@@. @0. @ .8//0/0/0.x//` z /.P/ `J t `t8/11~&F .*t@/\ @1X @/H 0@08 @ 0( @80 @P0 @ @ 0` `J tur@0 .@ +@ |@1 @ 11223P22h21 2`/`H x*#2 `J t 821x.*&*#h2P/@@3d , @` (2@2\ , @X e@2T @P @2L , @H e@(38 @X3( @p3 , @3 @ p_ @ 30    (8@  HXhp x  $l B       (8HP  Xp       $ l0P XB ` h p x    *  ! 4P$&#(,.P8C @78F H@7` X7..h.0b.(# ,#( H.X V. X. .#P .# 2. :. 4.( D7` :7 6. .. 4.P 0# &       ( $0 l@ ` h B p x      * '   T  x$# 8C 8. 8FX 8. &=( ..8&h ..& ..& ..@&p ..& ..&  ..H&x ..& ..&( ..P& ..  D :(,.h  8C B.8FH B.  B.  HL.`  R. ,.(  X$h** 6.:787P:7v76.@x '  0 6. vg rg vg v7 6. 0@  H "` ( > "8  .. 260 h !.7!@!26H!!",7"@"26H"nq"",7"(#260#nqh##,7#$0.$&#H$  Xp$ ,$ 6$ 0% 8% TP% B% ^% NP& D& L& 8' ( H ( h( X( B( ^ ) N) D) L* h* 8+ HP+ + X+ F, ^P, N, D- PH-06- . H. 0/ H/ 8X/ / / / / T/ F@0 T0 0 1 P1 02 XH2 F2 T2 @3 (4 P@4 4 X4 F5 LH5 5 85 5 6 ,6 <@6 6 "6 "6 &6 H7 JH7 @7 7 7 8 (8 88 @8 &`8 *8 28 "8 :9 PX9 9 X: P:H; T; ZP< < $< < *= 8=  > R8> > <> > :> P8? P? P? P(@ Fx@ N@ <A PA `A hA <A @A 8B @B HB 8hB $B TB F C RhC C D HD DE0.E F DF @G HXG XG FG R@H H pI HI II0.J K DK L H0L XxL .L DM @HM HM M 8M N 8N HN XPN N HN FO XO P D P hP LxP0P Q DQ 8R HHR DR >R TS TpS TS T T JxT RT @ U J`U U V HV V HV N8W JW 8W  X 0X@X HXPX XX $`XlpXX X HX X X Y 0Y 8Y XY xY >Y 6Y Y FZ RHZ 8Z Z FZ D@[ D[ .[ H\ H\ Lh\ &\ T\ 08] Hh] B] X] "P^ Xx^ ,^ X_ XX_ <_ N_ H@` V` D` (a HHa a La Bb HHb Jb Pb H0c Lxc Vc 8 d RXd Jd Fe :He e "e e e e f 0f @f THf f Tf 4g (Hg Rpg @g @h *Hh Nxh h Hh (i i Lj Pj "`j Pj j k Tk  l ,0l P`l(l m Hm n >(n Thn n "n "n &o H@o Jo @o p (p Hp hp xp "p p xq Xq q (q "r @r r Xr Ps T`s 8s 6s (t t Nu Pu D`u Pu Vu Pv `v v :v v w Vw x @(x hx Lx x y Hy z z N0z z P{ L`{ { >{ L|0P| p} H} } F} L ~ Dp~ H~ b 4h N F B8  T  P TH D@ . R  0 ( V x h X ؅ 2(( B@ X  N P8 D Ј " 0 $H &p ` \x ؊ . & H  \ x X > :( h @ RX  JȎ V \p Џ $  >( h X Zp Б D "0 X 0 P D@0` L P8 H LЖ f 8 R J Fh  6    8 X `     " :  0 8B P X ` h p  *' &#  06.D7>70<@pFIDRDR@FIFIНNI<@h>7>76=( ` hF@ ȟF@ (F@@ F@ F@ HF@` F@ F@  hF@ ȢF@ (F@@ 8@:@FI <@hR@>78.@x<Cȥ 6. D7 >7` <@ FI DR( DRp FI FI NIH <@ >7ب >7 X `F@xF@ة F@8F@F@@F@XF@F@`F@xF@ج F@8  8@ :@ FI <@H R@ >7 8.  Xhp x6.D70>7x<@FIDR@DRFIбFINI`<@>7>706=p  F@ȳ F@( pF@ дF@ 0F@H F@ F@ PF@h F@ȶ F@( pF@ з8@:@(FIh<@^@>7P8.ȹй<Cع 6.0 D7h >7 <@ FI0 DRx DR FI FIP NI <@ >7( >7h  F@ȽF@(pF@оF@0F@HF@F@PF@hF@F@(pF@  8@ :@ FIP <@ ^@ >78 8.x  6.67>7P<@FIDRDR`FIFINI8<@>7>7:@H8@:@FI<@H<@>78.@  H "h " " "6.>C27X>@DI@I@@X8@HI:I`RX`R<IDIXBIFIFI0@Ix:@F@6@@47x>C27>@8DIx@I@@8@@HIx:I`R`R`<IDI@IHFIFI@I:@XF@6@47PX>C`27>@DI@I`@@8@HI:I``R`R<I`DIBIFI0FIx@I:@F@@6@47 .78.H6.27>@DI8@I@@8@>I8:IxDRDR<IH:I:IFIFIP@I:@:@6@X47.78.0 &.827` >C>C H Xp  x>C  &  . (X` >6h{ 0 :.@ H@ 47( ^I067(.  *.>78>7x>7@747@7>7H67D74747@<7x,. ,.<7@7X6767>727H,7@@>I>I0@@p6@>@.7(27X67.767270:7h>74@4@ <@X8@2@FIDRPDRFI<I(DIh4@8@<@ B@`@7.. ,.07H@@x:I8I8I08IhB@<@:I(8Ih8I8I>@@@P:I8I8I8I@B@xF@:I8IH8I8IH@D@8:I8I8I8I0F@h8@FIFI0FIxFIFI:@PH@HIFI JRhHIH@27H      $l B     ( 0 @H *P' B7<@D@(BIpLRJ[J[XLRLRTRHBID@:@0@Ip>I@ILR0BIBI<@B7P 07<@<@>@H<@<@27 07@D@p@IBILR@ LR DI <I( JRh JR >I F@H 8@ 8@ :I >I@ @I >R H[ H[H D[ D[ @R >R`H[H[D[0D[x@RBI:@H27 87>@ 8@06Hl{x,.>C >F`  t ( l0  |R@F@H:7678@>@H6@67  67@@@D@D@:@:@P:@B@67..P(#     $l( 0B 8 @ H P X hp *x' $#6.,.@:7p87:7..(..X.7,7,7,70.H0.x.7,7,7,782.h,.0.>7:@@<@FIFI>@P6@DIDI 8@X @7 27 0.!&#8!  `! !!!! ! $!l!! !B ! ! " " "  "(" *0"'`"  "0#",.":7"878#:7p#..#4.#0.$2#H$$#$2.$F7$67(%>7`%27%,7%@@&>IH&>I&@@&6@'>@@'.7'27':7'4.((2.`(<7(27(@@)>@P)@@)47)47*4@@*2@x*2@*2@*67 +4.X+6.+67+>7,27@,,7x,@@,>I,>I(-@@h-6@->@-.7 .27P.:7.8..4./278/4@p/2@/2@/2@047P04706.0&#0   1 @1P1 X1`1 h1 $p1l11 1B 1 1 1 1 1 11 *1' 2  @2&#`24.2 8C2 2,.38F@3 x3,.33 2.3(#4$#(4,.P42.4*.4&#4 5  05 P5`5 h5p5 x5 $5l55 5B 5 5 5 5 5 55 *6'06  P6"`6*#6x.6l.076.7677~@8678l7887890.p9*#9.#9&#:..(:67X::@::@:87;..H;..x;<7;@@;B@(<<7p<<7<<7<..0=(#`=$="=  == > >>  > $(>l8>X> `>B h> p> x> .> :>> ? ?  ? 0? @?  P? `? p?x? ??? 8?@ 0@ @@ P@ `@@ 4@@ @ @ 6A8A HA hAxA (AA A AA AB B $Bl B@B HBB PB XB `B hBpB "xB"+BBB  BB (B"C,0C`ChCpC  xC C'CCC  $CD 0(D XD hD  xD  D D $DD DE E $El E@E HEB PE XE  `EpExEE EEEE E E E E E E E F F F (F 0F @F HF XF `F pF xF F F F F F F F F F F G G G  G 0G 8G HG PG `G hG xG G G G G G G G G G G G H H  H (H 8H @H PH XH hH pH H H H H H H H H H H H I I I (I 0I @I HI XI `I pI xI I I I I I I I I I I J J J J (J0J8J @J $HJlXJxJ J J ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX' 8' XMLwb_ $ zk\{$ $ zk\ҁiƋlj. ka $ zkAӔCҏ $ zPkH 㗝l $ z k \1 $ zk \2 $ zkp~ $ zk'zx p .!0 .!0 * .!2A@&k8i0` 'p $ zk \萔 $ zk XMLtb^ $ zxkpShiftJISUTF-8ɕϊ $ z8k0 BOM̏ $ zk'z  .!0 .!0 * .!2A@&ki ' ] .n wb_̏o]@]XScripting.FileSystemObject$.  Trueŏ㏑  % . & B@ <\f[^ xmlns="http://www.de      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~npa.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@  " "  "   B@  ݎw肵Ă n%!!xύXo^\ " "  "  " N059 B@  ݎw肵Ă n%!!xe o^ύX͏o " "  "  " N053 B@ kX " "  "  " 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. ' z  .!0 .!0 * .!2A@&kip ' ].n]]Scripting.FileSystemObject$.  %$ . " <\> B@ M----------------------------------------------------------------------------- ȉ\ " "  <\> B@  ǂ ݎw肵Ă n%!!xύXo^\ " "  " <•_>2 B@  ݎw肵Ă n%!!xe o^ύX͏o " "  " <•_>2 B@ k  ݈ n%!!xKTkCdgǗǓ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%!!xύXo^\ " "  " !<\_͏o敪>CA B@  ݎw肵Ă n%!!xe o^ύX͏o " "  " !<\_͏o敪>CA B@ k ݔ̋Ki " "  " "<ݔ̋Ki>8 B@ ǂ̎ʃR[h " "  " +<ǂ̎ʃR[h>CR B@ ǂ̎ʕ⑫R[h " "  " 2<ǂ̎ʕ⑫R[h>X B@  " "  "  <ԍ/> B@ o^ԍ n!!6zxkp] ݶ o^̔ԍ n!%'n n " "  "  B@  " "  "  "  B@  " "  "  "  B@  " "  "  "  B@  " "  "  " P B@  " "  "  B@ d]8 '& & n! %zPkH]X | n! ! " "  "  B@    " "  "  "  | n! % B@    " "  "  "  | n! % B@    " "  "  "  | n! %z B@  " "  "  " P B@  " "  "  B@  |k o^̔N Dim RegistDate As String" RegistDate = cP.INI.RegistDate8 a.WriteLine vbTab & vbTab & vbTab & "" If RegistDate <> "" Thenp a.WriteLine vbTab & vbTab & vbTab & vbTab & ""' & VBA.Left$(VBA.Format(VBA.Replace(RegistDate, ".", "/"), "gemmdd"), 1)' & "" a.WriteLine vbTab & vbTab & vbTab & vbTab & ""' & VBA.Format(VBA.Replace(RegistDate, ".", "/"), "e")' & ""q a.WriteLine vbTab & vbTab & vbTab & vbTab & "<>"' & VBA.Month(VBA.Format(VBA.Replace(RegistDate, ".", "/"), "yyyy/mm/dd"))' & ""s a.WriteLine vbTab & vbTab & vbTab & vbTab & "<>"' & VBA.Day(VBA.Format(VBA.Replace(RegistDate, ".", "/"), "yyyy/mm/dd"))' & "" Else " "  "  B@  ݓo^̔NN n%! # " "  "  "  ݓo^̔NN n%!N11gemmdd$$  B@ d " "  "  "  B@ k ݓo^̔NN n%!  " "  "  "  ݓo^̔NN n%!N11e$ B@ d " "  "  "  B@ k ݓo^̔N n%!  " "  "  " <> ݓo^̔N n%! B@ d " "  "  "  B@ k ݓo^̔N n%!  " "  "  " <> ݓo^̔N n%! B@ d  " "  "  "  B@ k " "  "  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 Then? 'l̏ꍇAl͖@lEc̑\ҖƋl̖OX a.WriteLine vbTab & vbTab & vbTab & "<@l_c_l̕>3"G a.WriteLine vbTab & vbTab & vbTab & ""= a.WriteLine vbTab & vbTab & vbTab & ""I If cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result <> "" ThenjS  a.WriteLine vbTab & vbTab & vbTab' & "<͖>"' & cP.GetValue(pKAGAMI, "ݐ\ґ\Ґ").Result' & "@"' & cP.GetValue(pKAGAMI, "ݐ\ґ\Җ").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̏ꍇA@l͒c̃tKiƋl̖OtKiE a.WriteLine vbTab & vbTab & vbTab & "<͖̃tKi/>" 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 & "" 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 & ""C If cP.GetValue(pKAGAMI, "ݔldbԍ").Result <> "" Then ^ a.WriteLine vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Replace(cP.GetValue(pKAGAMI, "ݔldbԍ").Result, "-", "")' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & vbTab & "" End IfA 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' ' .!0 .!0 * .!2A@&kh'i`'APrivate Function OutputXML3(ByVal myXMLFile As String) As Boolean Dim cP As clsPaper Set cP = New clsPaper Dim fs As Object Dim a As Object7 Set fs = CreateObject("Scripting.FileSystemObject")/ Set a = fs.OpenTextFile(myXMLFile, 8, True)@ If cP.GetValue(pKAGAMI, "ݑ㗝lO").Result = "" ThenK '㗝lO󗓂̏ꍇɂ́A㗝lA㗝lƂĂȂɂo͂Ȃ2 a.WriteLine vbTab & vbTab & "<㗝l>" 'dqϔC̗L? a.WriteLine vbTab & vbTab & vbTab & ""= '-----------㗝l֘A-------------------------------> a.WriteLine vbTab & vbTab & vbTab & "<㗝l񖾍>"' '㗝l C:㗝l D:㗝lA a.WriteLine vbTab & vbTab & vbTab & vbTab & "<㗝/>" '㗝l̖OE a.WriteLine vbTab & vbTab & vbTab & vbTab & "<͖/>" '㗝l̖Ôӂ肪M a.WriteLine vbTab & vbTab & vbTab & vbTab & "<͖̃tKi/>") '㗝l̗X֔ԍinCtȂjA a.WriteLine vbTab & vbTab & vbTab & vbTab & ""< a.WriteLine vbTab & vbTab & vbTab & vbTab & ""Q a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "" '㗝l̏ZԍQ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & ""% '㗝l̏Z̎s撬R[hQ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & ""R a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""5 '㗝l̏Zs撬R[h͂H a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_/>"A '㗝l̏Zs撬R[h͂́iӂ肪ȁjP a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>"= a.WriteLine vbTab & vbTab & vbTab & vbTab & "" '㗝l̓dbԍA a.WriteLine vbTab & vbTab & vbTab & vbTab & "" '㗝l̖EE a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\ҖE/>"< '㗝l̖Oiі Ɩ̊Ԃ͑SpXy[XjA a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\Җ/>"D '㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[XjI a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\ҖtKi/>"B a.WriteLine vbTab & vbTab & vbTab & vbTab & "<ϔC>"F 'ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCijO a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<ϔCo@/>"1 'ϔCԍiʏϔC̏ꍇA͕sjK a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<ϔCԍ/>"C a.WriteLine vbTab & vbTab & vbTab & vbTab & ""? a.WriteLine vbTab & vbTab & vbTab & ""3 a.WriteLine vbTab & vbTab & "" 'XMLt@C‚ a.Close Set fs = Nothing OutputXML3 = True Exit Function End IfM '------------------------------------------------------------------------ '㗝lM '------------------------------------------------------------------------. a.WriteLine vbTab & vbTab & "<㗝l>"" 'dqϔC̗L 2:gpȂL a.WriteLine vbTab & vbTab & vbTab & "2"9 '-----------㗝l֘A-------------------------------: a.WriteLine vbTab & vbTab & vbTab & "<㗝l񖾍>"# '㗝l C:㗝l D:㗝lH a.WriteLine vbTab & vbTab & vbTab & vbTab & "<㗝>C" '㗝l̖OA If cP.GetValue(pKAGAMI, "ݑ㗝lO").Result <> "" Then r a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<͖>"' & cP.GetValue(pKAGAMI, "ݑ㗝lO").Result' & "" ElseE a.WriteLine vbTab & vbTab & vbTab & vbTab & "<͖/>" End If '㗝l̖Ôӂ肪I If cP.GetValue(pKAGAMI, "ݑ㗝lOtKi").Result <> "" Then b a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<͖̃tKi>"' & cP.GetValue(pKAGAMI, "ݑ㗝lOtKi").Result' & "" ElseM a.WriteLine vbTab & vbTab & vbTab & vbTab & "<͖̃tKi/>" End If% '㗝l̗X֔ԍinCtȂjJ If cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍO3").Result <> "" Thenm& a.WriteLine vbTab & vbTab & vbTab & vbTab' & ""' & cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍO3").Result' & cP.GetValue(pKAGAMI, "ݑ㗝lX֔ԍ4").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & vbTab & "" End If8 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""M a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "" Dim myAddress As String Dim myAreaCode As String Dim myAddressKana As StringA If cP.GetValue(pKAGAMI, "ݑ㗝lZ").Result <> "" ThenC myAddress = cP.GetValue(pKAGAMI, "ݑ㗝lZ").Result: myAreaCode = cP.AreaCode.AreaCodeInsert(myAddress) Else myAddress = "" myAreaCode = "" End If '㗝l̏Zԍ If myAreaCode <> "" Then } a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Left$(myAreaCode, 2)' & "" ElseQ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "" End If! '㗝l̏Z̎s撬R[h If myAreaCode <> "" Then  a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & myAreaCode' & "" ElseQ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "" End IfN a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""1 '㗝l̏Zs撬R[h͂0 If myAddress <> "" And myAreaCode <> "" Then n a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & "<_>"' & cP.AreaCode.DeleteAddress(myAddress, myAreaCode)' & "" ElseH a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_/>" End If= '㗝l̏Zs撬R[h͂́iӂ肪ȁjI If cP.GetValue(pKAGAMI, "ݑ㗝lZtKi").Result <> "" ThenO myAddressKana = cP.GetValue(pKAGAMI, "ݑ㗝lZtKi").Result Else myAddressKana = "" End If4 If myAddressKana <> "" And myAreaCode <> "" Then ^ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & "<_ڃtKi>"' & cP.AreaCode.DeleteAddressKana(myAddressKana, myAreaCode)' & "" ElseP a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>" End If9 a.WriteLine vbTab & vbTab & vbTab & vbTab & "" '㗝l̓dbԍE If cP.GetValue(pKAGAMI, "ݑ㗝ldbԍ").Result <> "" Then \ a.WriteLine vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Replace(cP.GetValue(pKAGAMI, "ݑ㗝ldbԍ").Result, "-", "")' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & vbTab & "" End If '㗝l̖EG If cP.GetValue(pKAGAMI, "ݑ㗝l\ҖE").Result <> "" Then l a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<\ҖE>"' & cP.GetValue(pKAGAMI, "ݑ㗝l\ҖE").Result' & "" ElseE a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\ҖE/>" End If8 '㗝l̖Oiі Ɩ̊Ԃ͑SpXy[XjE If cP.GetValue(pKAGAMI, "ݑ㗝l\Ґ").Result <> "" Thenr_ a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<\Җ>"' & cP.GetValue(pKAGAMI, "ݑ㗝l\Ґ").Result' & "@"' & cP.GetValue(pKAGAMI, "ݑ㗝l\Җ").Result' & "" ElseA a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\Җ/>" End If@ '㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[XjE a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\ҖtKi/>"> a.WriteLine vbTab & vbTab & vbTab & vbTab & "<ϔC>"B 'ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij\ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<ϔCo@>1"- 'ϔCԍiʏϔC̏ꍇA͕sjG a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<ϔCԍ/>"? a.WriteLine vbTab & vbTab & vbTab & vbTab & ""; a.WriteLine vbTab & vbTab & vbTab & ""M '------------------------------------------------------------------------ '㗝lI '݂̏ꍇɂ́A@lEćEl킸A\Ґ͂͂M '------------------------------------------------------------------------ If cP.GetValue(pKAGAMI, "ݕ㗝l\Ґ").Result <> ""' And cP.GetValue(pKAGAMI, "ݕ㗝l\Җ").Result <> "" Then> a.WriteLine vbTab & vbTab & vbTab & "<㗝l񖾍>"' '㗝l C:㗝l D:㗝lL a.WriteLine vbTab & vbTab & vbTab & vbTab & "<㗝>D" '㗝l̖O p a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<͖>"' & cP.GetValue(pKAGAMI, "ݕ㗝lO").Result' & ""! '㗝l̖Ôӂ肪O If cP.GetValue(pKAGAMI, "ݕ㗝lOtKi").Result <> "" Then T a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<͖̃tKi>"' & cP.GetValue(pKAGAMI, "ݕ㗝lOtKi").Result' & "" ElseQ a.WriteLine vbTab & vbTab & vbTab & vbTab & "<͖̃tKi/>" End If+ '㗝l̗X֔ԍinCtȂjk" a.WriteLine vbTab & vbTab & vbTab & vbTab' & ""' & cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍO3").Result' & cP.GetValue(pKAGAMI, "ݕ㗝lX֔ԍ4").Result' & ""< a.WriteLine vbTab & vbTab & vbTab & vbTab & ""Q a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""G If cP.GetValue(pKAGAMI, "ݕ㗝lZ").Result <> "" ThenI myAddress = cP.GetValue(pKAGAMI, "ݕ㗝lZ").Result> myAreaCode = cP.AreaCode.AreaCodeInsert(myAddress) Else myAddress = "" myAreaCode = "" End If '㗝l̏Zԍ If myAreaCode <> "" Then q a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Left$(myAreaCode, 2)' & "" ElseU a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "" End If' '㗝l̏Z̎s撬R[h If myAreaCode <> "" Then  a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & myAreaCode' & "" ElseU a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "" End IfR a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""7 '㗝l̏Zs撬R[h͂4 If myAddress <> "" And myAreaCode <> "" Then b a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & "<_>"' & cP.AreaCode.DeleteAddress(myAddress, myAreaCode)' & "" ElseL a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_/>" End IfC '㗝l̏Zs撬R[h͂́iӂ肪ȁjO If cP.GetValue(pKAGAMI, "ݕ㗝lZtKi").Result <> "" ThenU myAddressKana = cP.GetValue(pKAGAMI, "ݕ㗝lZtKi").Result Else myAddressKana = "" End If8 If myAddressKana <> "" And myAreaCode <> "" Then R a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab' & "<_ڃtKi>"' & cP.AreaCode.DeleteAddressKana(myAddressKana, myAreaCode)' & "" ElseT a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<_ڃtKi/>" End If= a.WriteLine vbTab & vbTab & vbTab & vbTab & "" '㗝l̓dbԍ Z a.WriteLine vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Replace(cP.GetValue(pKAGAMI, "ݕ㗝ldbԍ").Result, "-", "")' & "" '㗝l̖E K a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<\ҖE>"' & VBA.Trim(VBA.StrConv(cP.GetValue(pKAGAMI, "ݕ㗝l\ҖE").Result, vbWide))' & ""> '㗝l̖Oiі Ɩ̊Ԃ͑SpXy[XjQ>A a.WriteLine vbTab & vbTab & vbTab & vbTab' & "<\Җ>"' & VBA.Trim(VBA.StrConv(cP.GetValue(pKAGAMI, "ݕ㗝l\Ґ").Result, vbWide))' & "@"' & VBA.Trim(VBA.StrConv(cP.GetValue(pKAGAMI, "ݕ㗝l\Җ").Result, vbWide))' & ""F '㗝l̖Oӂ肪ȁiі Ɩ̊Ԃ͑SpXy[XjI a.WriteLine vbTab & vbTab & vbTab & vbTab & "<\ҖtKi/>"B a.WriteLine vbTab & vbTab & vbTab & vbTab & "<ϔC>"F 'ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij` a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<ϔCo@>1"1 'ϔCԍiʏϔC̏ꍇA͕sjK a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & "<ϔCԍ/>"C a.WriteLine vbTab & vbTab & vbTab & vbTab & ""? a.WriteLine vbTab & vbTab & vbTab & "" End If/ a.WriteLine vbTab & vbTab & "" 'XMLt@C‚ a.Close Set fs = Nothing OutputXML3 = True Exit FunctionErrMes: If Err.Number <> 0 Then4 MsgBox Err.Number & vbCrLf & Err.Description End If End Functionp e' ].n]]Scripting.FileSystemObject$.  %$ . " "   B@ ] ']8 V݂̏ꍇ ݖݔ̐ݒuꏊ1 n%!!x ݖݔ̐ݒuꏊ1 n%!!x  " "  " <ݔ̐ݒuꏊ> B@  " "  "  " <ݔݒu敪>1 B@  " "  "  " <ݒuꏊ_uꏊ> B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  "   B@  " "  "  "  "  "  "   B@  " "  "  "  "  "  B@  " "  "  "  "  " <ݒuꏊ__/> B@  " "  "  "  "  " <ݒuꏊ__ڃtKi/> B@  " "  "  "  "  B@  " "  "  "  B@  " "  "  " <ݒu_ړ͈͏> B@  ݖݔ̐ݒuꏊ1 n%!!xKTKTkC " "  "  "  " <ʐ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@  KTSnX\ " "  "  "  "   B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " %<ړ͈_l>̗ B@  " "  "  "  B@  " "  "  B@ 'kxZ ݖݔ̐ݒuꏊ1 n%!!x  | " "  " <ݔ̐ݒ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@ nxR " "  "  "  "   B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " %<ړ͈_l>̗ B@  " "  "  "  B@  " "  "  B@  |'kP ݖݔ̐ݒuꏊ2 n%!!x ݖݔ̐ݒuꏊ2 n%!!x  " "  " <ݔ̐ݒuꏊ> B@  " "  "  " <ݔݒu敪>1 B@  " "  "  " <ݒuꏊ_uꏊ> B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  "   B@  " "  "  "  "  "  "   B@  " "  "  "  "  "  B@  " "  "  "  "  " <ݒuꏊ__/> B@  " "  "  "  "  " <ݒuꏊ__ڃtKi/> B@  " "  "  "  "  B@  " "  "  "  B@  " "  "  " <ݒu_ړ͈͏> B@  ݖݔ̐ݒuꏊ2 n%!!xKTKTkC " "  "  "  " <ʐ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@  KTSnH " "  "  "  "   B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " 1<ړ͈_l>̗yт̏ B@  " "  "  "  B@  " "  "  B@ 'k(F ݖݔ̐ݒuꏊ2 n%!!x  | " "  " <ݔ̐ݒ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@ n(> " "  "  "  "   B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " 1<ړ͈_l>̗yт̏ B@  " "  "  "  B@  " "  "  B@  |'k0<  " "  " <ݔ̐ݒ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@ k6gyы󒆐dݎgyы󒆐d1ݎgyы󒆐d2ݎgyы󒆐d3ݎgyы󒆐d4' ݎgyы󒆐d1 n%!!x ݎgyы󒆐d2 n%!!x ݎgyы󒆐d3 n%!!x " "  "  B@ k4 ݎgyы󒆐d1 n%!!x " "  "  "   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@ 'k@/ ݎgyы󒆐d2 n%!!x " "  "  "   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%!!x " "  "  "   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#  " "  "  "  B@  " "  "  B@ dx# " "  "  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@ k " "  "  B@  " "  "  "   B@ ]P'l ݕύXKvƂ闝R1 n%!!xړ͈͂ύX'lk ݕύXKvƂ闝R2 n%!!x l{ЏZ̕ύX'ld l@{ЏZ̕ύX'lk`kX ݕύXKvƂ闝R3 n%!!x lƖ̊ĝ߈ړ͈͂ύX'ld l @Ɩ̊ĝ߈ړ͈͂ύX'lkk  ݕύXKvƂ闝Rt[ n%!   ݕύXKvƂ闝Rt[ n%! z n%  ݕύXKvƂ闝Rt[ n%( l  ݕύXKvƂ闝Rt[ n%!'ldx l@  ݕύXKvƂ闝Rt[ n%!'lk(k  l " "  "  "  B@ d  " "  "  "   l B@ kh " "  "  " <]on/> B@  " "  "  B@ ύX " "  "  <ύX> B@  " "  "  "  B@  " "  "  "  B@  " "  "  "  B@  ݕύXKvƂ闝R1 n%!!x ݕύXKvƂ闝R3 n%!!x " "  "  " 1 B@ d8 " "  "  "   B@ k " "  "  "  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@  " "  "   B@  " "  "  "   B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " <^pJn̊> B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " <^pJn̗\> B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  " <]o^̗L> B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "  "   B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "  "  B@  " "  "  "  "   B@  " "  "  "  " <ǂ̖ړI_ʐM> B@  " "  "  "  "  " <ǂ̖ړIR[h/> B@  " "  "  "  "  " <ʐMR[h> B@  " "  "  "  "  "  " <ʐMR[h/> B@  " "  "  "  "  "  B@  " "  "  "  "  B@  " "  "  "   B@ XMLt@C‚ B@B. ' z8 0 .!0 .!0 * .!2A@&kih ' ].n]]Scripting.FileSystemObject$.  %$ . " "  "  " <ݔ̐ݒ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@  " "  "  "  <ʕ> B@  " "  "  "  " <ʕ_敪/> B@  " "  "  "  " <ʕ_/> B@  " "  "  "  " <ʕ_Aԕ/> B@  " "  "  "  " <ʕ_p/> B@  " "  "  "  " <ʕ_⑫/> B@  " "  "  "   B@  " "  "  "   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@  " "  "  " <\ʎ̔l> B@  " "  "  "  " <݊J݋ǐ/> B@ ]'l ݒlj n%!  ݒlj n%! z n% ݒlj n%( ݒlj n%!'lk ݎgyы󒆐d4 n%!!x ݎgyы󒆐d4 n%!!xe l lf@RTPDQlg`RTPDRWPQTlg܂ł̂UDQTjgԊûROg̎gp͑S̗ɌB'lddRTPDQlg`RTPDRWPQTlg܂ł̂UDQTjgԊûROg̎gp͑S̗ɌB'lkXkP l   " "  "  "  " <\ʎ̔l_͗> l B@ d " "  "  "  " <\ʎ̔l_͗/> B@ kh " "  "  "  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@&ki0 ' ].n]]Scripting.FileSystemObject$.  %$ . 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. ' zX P .!0 .!0 * .!2A@&ki ' ]@.n]`]xScripting.FileSystemObject$.  %$ . 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@&kXiP @' ].n]](Scripting.FileSystemObject$.  %$ . \萔@֌WȂ " "  <\萔> B@  " "  "  B@  ݎw肵Ă n%!!xύXo^\ " "  "  <萔z/> B@  ݎw肵Ă n%!!xe o^ύX͏o " "  "  <萔z/> B@ k8 " "  " <萔[t@/> B@  " "   B@  " "   B@  " "  "  <ގ/> B@  " "  "  B@  " "  "  <ʐM/> B@  " "   B@  "  B@ XMLt@C‚ B@B. ' z  .!0 .!0 * .!2A@&kHi@@ 0' ].n]]Scripting.FileSystemObject$.  %$ .  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' z  .!0 .!0 * .!2A@&ki ' 'ADO(2.5ȏ) StreamIuWFNg𗘗p3CharsetŕR[hLineSeparatorʼnsR[hw]P] h] ]]]]]]](StreamIuWFNg̍쐬 ADODB.Stream$.8 ADODB.Stream$.: 2͂t@C̕R[hƉsR[hw肷 Shift_JIS 8 (< ( 8 (> 8 B@ 0 8 (lt@Cǂݍ  8 B@@ .o̓t@C̕R[hƉsR[hw肷UTF-8 : (< , : (> : B@0ǂݍ񂾓̓Xg[o̓Xg[ɃRs[ : 8 B@B StreamIuWFNg̉ 8 B@B.8 "o̓Xg[t@Cɏo  6 : B@D StreamIuWFNg̉ : B@B.: ' z  .!0 .!0 * .!2A@&ki@ ' ]] $~t@C݂܂BA@&z@k8$'   $F  擪3oCgBOM $F    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  .!0 .!0 * .!2A@&ki  J 'H zkx J $x'H zXkP J 01KT J 'H 02KT J 'H 03KT J 'H 04KT J 'H 05KT J 'H 06KT J 'H 07KT J 'H 08KT J 'H 09KT J 'H 10KT J 'H 11KT J 'H 12KT J 'H 13KT J 'H 14KT J 'H 15KT J 'H 16KT J 'H 17KT J 'H 18KT J 'H 19KT J 'H 20KT J 'H 21KT J 'H 22KT J 'H 23KT J 'H 24KT J 'H 25KT J 'H 26KT J 'H 27KT J 'H 28KT J 'H 29KT J 'H 30KT J 'H 31KT J 'H 32KT J 'H 33KT J 'H 34KT J 'H 35KT J 'H 36KT J 'H 37KT J 'H 38KT J 'H 39KT J 'H 40KT J 'H 41KT J 'H 42KT J 'H 43KT J 'H 44KT J 'H 45KT J 'H 46KT J 'H 47KT J 'H Sص'H nȵz  .!0 .!0 * .!2A@&kixpAttribute VB_Name = "modOutputXML" ' ЃnCp[_dCopyright (c) HyperDyne Inc. All 8res@erved.fhttp://ww(w.h`d0.c o.jp/webmaster@  Option Explicit Pub FuncPHeader( _ ByVal myFile As Sng)Boolean20rror GoTo ErrMes $ 0Fal,se2'2w@b_ILf 1(B) The 0,lMsgBoxA{& vbCrLf &Descri#) peFooc$C p5755"萔N8 t^9 ShiftJISUTF-8ɕϊConvertTex 'BOM̏ Delete  Dio4m4  444l;pm4rivaYs||{ IQhf^ pnsXdenpa.soumu.grsinsei :d w3.org/2000/09/@dsig#mei/XkoubO e_Tab_"N059p Rу^/lkgaEB?3'(: Q VXeB dgpq Eq j  h03loPW>};1/&"!66qooa@ .101105ACd oh 2t@( CV.SGQt@C>"  a.WriteLine vb Tab &"</m:\#lm:Yt0)n~"<?/!t< .D_WFXg|B F#AS0Y*H(lkt96fXVlm:cT@VYB \ǗCmC'XML!‚ CloseSet fs = NothingCC@Output1Tru Exit Function ErrMes: If @.Number <> 0 TheD MsgBox CrLf@DescripEnd If@ Privat eF% .2(By@Val myFile As Str@)ABooHleaOnAor GoToAE @"Fal(cDim cP clsPaper,,ew K0@Objeczta C6Cre("SC&ng.ASystemc")a`fs.OpenT(extA(#, x8, =q"<e#'-?C%d ȉ xCeE'ǂ0 TcP.GetCue(pKAGAMI, "w肵").DropDown."`(2lZ'ύXo^ F •_>2J t0k悤BvmFp 'oMoMZ"?_ВSpfd m̋敪JC_itttءt?0t7s_m >COq /uooolue`/u /u 8\X <'o^KIf cP.INI.Read = False Then vExit F@unctioE nd If"Dim myLicenceNo As String =6GetValue("", "ĹM")N"" M,_\o!"&n9%敪?!{A$c.dg@{sK5110@52ɌfԓYp~D4"" 2œ+H@(k)S*> qle(C2 ?.`K/C{No_Ae !?2?1!aaNext ki#@N '!azRegistDate{Hgd _?<iK(<>~ &p U"|>3/ &!  o o h e" "#N 3 MoXnth"X y/mm/ !` Day q `] {6?++o1s|FpKAGAMI(Ӥ$q!4N")sult 3# OOe3q& 3D3Pp e N115=5(5k  VQ//̔/JE    *q& (_^[Yt@a@ai* 0+wIq 5&**P??75Rq 5?G00 & "" El seH4a.WriteLine vbTab & "1 ""Zc5_gA 䎁c>" )/ HÁf+@+ED \\3\O\\؝=0Z2\?\ 00\ԋ\AdUO\@\q\j\i|"<\IۡV4\ab ÁEa \Җ ] /~#?]>3.P?]߃Y"<.?]%a/Ft.]*t!/{/( ,"]4&?oh 3h@cQOIOS d @dK?'5adxB"ElseRMsgBox "EEʂُłB>Exit Fun ctionVnd( If 'ǗX֔ԍinCѓjg"aDim myAddress As StringreaCodeCKanaIf cP.GetValue(pKAGAMI, "ݐ\ҏZ").Result <> "" TheQ=-(2D2AD.Insert(F) {I#"It=FEtDu>vQs撬R[h_ȉc D i._c3\ "c N_!a& g >" VBA.L ef@8, 2)0"" 'E`nd If +tKiTElseIf cP.GetValue(pKAGAMI, "ݖ@lčl̕").DropDown.1 = 3 The n'1̏A9́$E n0Ƌl J\҄#EJResult <> ""7G_?& 3>" V/6&l)jB1(_^ٍ4OrڗFqԟUTp =@>߈!5D@_Di?iCG4c銂͂Ȃ($?f~+fi'HMsgBox "E ʂُ@łBxit FunctioŶfd '-?% ȉAӔCҤ?"!"ɊւG|l_MrA >~& ";'s{_s撬͟ }" 00 TheMsgBox H& vbCrLf &*DescripEnd If'Private  OutputXML3(ByVal my File As String) @Boolea' 'Dim cPclsPaperSet= New fsObjeczt a  '=0 Cre](""Sxng. VSystem ")a = fs.OpenText(q, 8, T8ruecP.Getue(pKAGAMI, "㗝lO").Result0""ق'̏ꍇ ɂ́AACƂĂ@ob@Ȃ$Aa.WriteLine vbTab~"<>" 'dqϔC̗L$5/K- <\*iW AЏA͕sX U7a / .__P;S"iH'XM L#@x ‚:CloseNot~hPExxittE'_DMoin 3gp@kG_W$>2CS-z//,P?wOO_ X1& @>" /ooi`>qij͖@>" ' ElsePpa.WriteLine vbTab &"</nd If'㗝l̖Ôӂ肪If cP.GetValue(pKAGAMI, h"%;9tKi").Result <> "" ThenK+_& g8>" Y:/ :OFυ,iX֔ԍinC@ Ȃj#"lO3lOEti*O|،4<-/ ?AETvkZ_"" ' E nd If0'㗝l̖Oiі Ɩ̊͑SpXy[XjtIf cP.GetValue(pKAGAMI, "X").Result <> "" ThenGa.Writ`eLine _59& >"N Q2@9..1</LE(ԍi'̏A͕sFֹ# ++NW!ע3d+'-?  C eC*ɂ́A@lEćEl킸A @/͂e ?! ܤ A ٙk iǧ\-&;aǎ C: D:? !Hṗ >DdiE  Ѱ͖ e!鼽 ' ̥hJ"}aVM%wC1@I Oo,  " "" AndLreaCodePThenlza.WriteLine vbTab &_ AE& "<_>" !cP.A.DePlete(,)F"".If'㗝l̏Zs撬@R[Ձiӂ肪8ȁj"ۀGetValue(pKAGAMI, b"'݅10tKi").ResulttSKana = H*W"L%SA/AGW X oQb`dbԍ 5q 04& VBA`place(9[l gl-""/pE_ЩQ \A ATrim(StrConv' (vbWide)4Oiі @Ɩ̊Ԃ͑S@pXyXʝAA$.$g) # "@ۣQ30e1_VE*!'XML %@C‚a.ClovSet fsNothing@tOutputEp3TruExit FunctioErrMes: q+0.Number A0 lMsgBox XQ CrLfPQDescripDAV@7PrivateV 4(Byp  File As M)Boolea`  On or GoTo` Qw0FaDimpaclsPapLer1cPNew @ @ObjectWa/IVCte("Sng.System ")fs.OpenText, 8, c?(9(Vݜ50 myg! z= HAkAInteg'??%ϊݔݒuꏊ1aDropDown.B)1ѱ 1OOOL3t.O%S"" Cs撬FZ"1@DZ,uC(A0_ړ͈͍Select Case cP.GetValue(pKAGAMI, "ݖ@ݔE(1").DropDown. GA12 'kpC  "<ʐM>J̗ए1Z_ړ͏>" Select Case k h\1 'kC@Ha.WriteLine vbTab &"<ʐMp>J̗ए 1 _~A00OO7 OB3 Then??"1DTEP>E>9>(P>F>10p 'l?Ä|G1 'B> H2 ' OO3 'S ^End Sele ct$3ޓs{/>Hڳs撬 ?#% _ړ͈?"̗yт x1Hv3's撬L("<,_ړ͈MX/, "̗yт@ 1 _ca Or __2___ W3_R;p`4?͕t)!//</#o o k : DD= Ndg^_ ^L1ѕ???Fh& OOOH@?EE/Cߘ/ٖ`͌`>235120</G ab & vbT!(p_ & "351381250FPԊu>6WF,>3F+R[hJn_/DžI˓̒>,"Eڍ}?"<󒆐d>5 1 Then A~w;>"<dǧ^p? /U" 2"KIO[g@̒>X"1?/???7= _ ! SanitizeText(, p`Wide,Y)'>    ggS0"`?"I?>r%@?U9UTab & vbp"" Else$4a.WriteLine~M _hp& >" @myString"1"  a.WriteLine vbq[AhX2" 0 TheMsgBoxIQCrLf\Descrip7End IfPrivat e f 5(ByVal myXMLFile As String)PBoole an On Error GoTo(Mes6BOutput5 = False :Dim cPclsPaper:Set= New  8fs8Objecta Q0= Create5("Scrip t.System")a]fs.OpenT(ext(, 8, Truea.WriteLine vbTab &"<ݔ̐ݒu_J>"/'7"<)(`敪/=%%_G)Z_=Y"_\@`ẅʒu?3qZb & vbTap"" a.WriteLine-ID/WH_xT]U,bJ," Then a= _SanitizeText( , pWide, Tru)  End Ifc\'g yѣYd4`(Drop Down.". = 1()Else e 2,4  188($F& "@RTPDQlg`&RWPT#܂ł̂UbTjԊu`ROg̎gp͑SɌB$)qqS1 " I V  ~ o_=B11<C_͗<>"3o/oΤ!c.ړ͈ 𕄍5Cᕃ+O&+**7/A/AVݓ?'XML<‚3Close@Set fszNothPSOutput51cExit FunctioԖ ErrMes: 3}.Number0Msg0Box HCr Lf5QDescrip7ZPrivate f 6(By0 Fileǧ)BoLolean On Erro@r GoToPMes OutputXML6 = FalsedDim cP As clsPaper bSet.= New48 hfshObjecta M0= Create5("Scripting.FileSystem")8afs.OpenText1*(my , 8, True'p~@֌WȂ a.WriteLine vbTab &Ɇ"<>""<̎ʃR [h/+ o^̔ԍ@n敪>A"" 00 TheMs0gBoxI Cr Lf.Des5End IfPriv f 7(ByVal Str)Bo# ᳳQw'ooAQ߯e 'p%53Čt\x?9?9Oii|@$V;Zbi柱@5 _M@@w̗R "<_L_L@OB.O G "~<&o"o"'Qᗎx҂PXn__P_͕ઊ__Z!76`/!\ KiسeLine vb Tab &p"<X֔ԍ@/>" a .Writ%Z 1r" 0 T he!MsgB oxICrLf`Descrip7End IfPrivate f 8(ByVal my0 File As (Str`)Boolea& Onor GoTo ! wFal%3Dim cPaclsPaperspew  ObjectWaI&Cre("Sng.SysHtem")a fs.OpenPText(,p 8, c'\萔@@PR a.WriteLine vb Tab &8"<\萔>" C~" 0SMsgBox CrLfDescrip=g EdP` Private& 9(Byx my`File AsP Str@)AB ooleaFOnor GoTo/A!!9!FacvDim` clsPaper +cP New K/@Objecta C15Cre(""S%ng.ASystemc")a fs.OpenTextA(#, 8, =1Hb^w"<ds:Signatureq& &edInfo_ Canonic alizaDMethod Algohm=""http://www.w3.org/TR/2001/REC-xml@-c14n-!0315""sI 0/09/@dsig#rsa-sha1? Referen@ce URI""_(G(@ Transforms_OS 1enveloped-pC$Og// 7 Digesto%1%z?,3/)x!߯c;8ib>o o #?Key>o pO O JRSA??Modulu>s__P Exponent 2" X509DxataIssuerSerial2 NameD9 S/" vbaSu經1a.԰q0|Co@tmIuWFNg̍쐬Set-= U0("ADODB.y ")8'͂t@CƍwA =.CCF"Shift_JIS" ÆM Ope~n A{Ez',ǂMLoa dFromBhmyXMLAom>X>UTF-8=H=LF( ='D2񂾁f@Xg@ހ +ɃRs[ copy8To ;NloseíP@ehing'Hf)ɏoajTo1,`pm? CK_' Hl``ztT ruD@t Fu nctioQ ErrMes:If .Number <> 0 ThEWAMsgBox& vb@CrLf &D@escripg End If !0Priv`& DeleteBOM(ByVal Z@<3)ABoolea  Onaor Go CcE $Fal?C6b(C yt#F IntegerC"Dir() ""#"E݂܂B$h?a(1$FrteeI(i"F7$@#ofLOF(F) > 3B '擪3og-3CaRe"d- 4DG #F, 4, b'4cڂE-ab"% ObZ #'e|(̊m 1@N".tmp")AUN2KilH& c 'ꎞIlaJcName)g*' l̎擾(ȍ~œqOg/  Put ,  S'1 CLOSE^ޔ+W폜Cr7= HHH?H4%HHHH Hp.PrefOH?AHHesE*my= )X2QA *0_ Is ericIt)\I?d?<SXct Ca>s.!r"01hMan2ooS"03ouom4ooo5wooo6ooo7ooo'.910oo{o_"too_"ouo_"oo1_"oo1_"oo1_"oo1_"oo1_"oo1_"oo2_"oo2_"oo2_"on"23" GetPrefNum = my,Case "24353l636736J83923031323s3s3s3s3s3s3s4s4s4D4DDDDDElse$ ʫ"qEnd @SelectExit FunctionC ErrMes: QIf .ber <> 0 The! MsgBox& vb@CrLf &Descripg If ! dd , l`*FL 2h\`)pd6L, \(t0 h`\pdL, tl CtKpzlt 'lt <lt Qlt flt {pz$l pp  llpl'' ',l pp  ll#h *#\` dd , l`*FL 2h\`)pd6L, (t0 h`\pdL, (l CtKpz pX  X4l5X!t@c8%lX4h5X:H%h:H%h*FX%h5X#*#$*FX%h/$5X.*#$*# *FX%h2$ 5XC+p  | 4l)e7*#$*# *#  *FX%h2$ 5XC+p  | 4l)7*#$*# *# !*FX%h2$ 5X7*#$*# *# "*FX%h2$ 5X.*#$*# #*FX%h2$ 5X.*#$*# $*FX%h2$ 5X.*#$*# %*FX%h2$ 5X#*#$&*FX%h/$5X#*#$'*FX%h/$5X.*#$*# (*FX%h2$ 5X.*#$*# )*FX%h2$ 5X.*#$*# **FX%h2$ 5X#*#$+*FX%h/$5X#*#$,*FX%h/$5X.*#$*# -*FX%h2$ 5X.*#$*# .*FX%h2$ 5X.*#$*# /*FX%h2$ 5X7*#$*# *# 0*FX%h2$ 5X7*#$*# *# 1*FX%h2$ 5X.*#$*# 2*FX%h2$ 5X.*#$*# 3*FX%h2$ 5X.*#$*# 4*FX%h2$ 5X#*#$5*FX%h/$5X6*FX%h5X h7clpz$   l#l'''   l#$ *#   , l *FX 2$ )6X(4plht0 $  XTl CtKpz pX  X4l5X't@(8%c%lX84h5X9*FX%h5X#*#:*FX%h/5XC+p  | 4l).*#*#;*FX%h25XC+p  | 4l).*#*#;*FX%h25X+<p  | 4lq)l.*#*#=*FX%h25Xtl@.*#*#>*FX%h25Xtl.*#*#?*FX%h25Xtl.*#*#@*FX%h25Xtl.*#*#A*FX%h25Xtl<.*#*#B*FX%h25Xtl{.rU~| 76 66DDD!6I6q6%$a A%666696 Y- ;3 yц F) ,FAQA qq yw a)q.-!QE)i Iɐ I!Pр IɔL!aٖYAH{{ 1Yyɘ9q9љy9i Q9ٝ19 ai!) Aiɤ9y!q I٨Iѩ 9ѫ QAyѭ )jY1ٮI 9ٰ)a9q 9Ѵ AQy Aq AٸAq1qI YѼa)yA 9QA!i Q I 9i!Q 9i1q q Y!Q9 Ay Ay)i!Yq II1aQ Y!i Y 1 aYI9 yQ Q!Y Iq aY(1Qq1QYq )Ii )Ii )Ii\l CtKpzlt 'lt <lt Qlt flt {lt lt lt pz$l pp  llpVl'' ',l pp  ll#h *#\`*#*#C*FX%h25Xtl .*#*#D*FX%h25Xtl .*#*#E*FX%h25Xtl 8.*#*#F*FX%h25Xtl t.*#*#G*FX%h25X.*#*#H*FX%h25XC+p  | 4l).*#*#I*FX%h25XC+p  | 4l).*#*#I*FX%h25X.*#*#J*FX%h25X.*#*#K*FX%h25X.*#*#L*FX%h25X.*#*#M*FX%h25X$p @ |Nkj*OPQp @ pN>1 lO0.*#*#R*FX%h25X7*#*#*#S*FX%h25X7*#*#*#T*FX%h25X7*#*#*#U*FX%h25X7*#*#*#V*FX%h25X.*#*#W*FX%h25X  dq'p ( <Xk0p ( Xlc .*#*#R*FX%h25Xg*#*#*#Y*#kp ( ,Xl*#Z*FX%h2 5Xg*#*#*#[*#kp ( 0Xl*#\*FX%h2 5Xg*#*#*#]*#kp ( 4Xl*#^*FX%h2 5X7*#*#*#V*FX%h25X.*#*#W*FX%h25X dF.*#*#_*FX%h25X6+`p  llO=/6 +`p  l:HaNlb*FX c*#*#*#d*# e#*#f*F%h26Xo 7*#*#*#g*FX%h25X6+`p  llO=/L +`p  l*#*#*#h*F:HiNlb*FX c:8jt%h26 Xt 7*#*#*#k*FX%h25X6+lp  llO=/1 q*#*#*#m*#+lp  ll*#n*FX%h2 5Xj 7*#*#*#o*FX%h25X6+pp  llO=/q*#*#*#q*#+pp  ll*#r*FX%h2 5XO7*#*#*#s*FX%h25X.*#*#t*FX%h25X#*#u*FX%h/5X h7clpz$   lOl'''   l# *#  , l*FX 2)6XT8 plhtLXtat`l CtK_pz pX  X4l5X't@(8%c%lX84h5X#*#v*FX%h/5Xp+wp  | 4l+wp  | 4l ) .*#*#x*FX%h25X7*#*#*#y*FX%h25X7*#*#*#z*FX%h25X@*#*#*#*#{*FX%h25XI*#*#*#*#*#|*FX%h2 5XR*#*#*#*#*#*#}*FX%h2 5XR*#*#*#*#*#*#~*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X+wp  | 4lq)l4l@*#*#*#*#*FX%h25X4lM@*#*#*#*#*FX%h25X4l@*#*#*#*#*FX%h25X4l@*#*#*#*#*FX%h25X4l@@*#*#*#*#*FX%h25X4l@*#*#*#*#*FX%h25X4l@*#*#*#*#*FX%h25X4l 3@*#*#*#*#*FX%h25X4l @*#*#*#*#*FX%h25X4l @*#*#*#*#*FX%h25X4l &@*#*#*#*#*FX%h25X4l 4@*#*#*#*#}*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25XpC+wp  | 4l ) c.*#*#x*FX%h25X7*#*#*#y*FX%h25X7*#*#*#z*FX%h25X@*#*#*#*#{*FX%h25XI*#*#*#*#*#|*FX%h2 5XR*#*#*#*#*#*#}*FX%h2 5XR*#*#*#*#*#*#~*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25Xkp k @*#*#*#*#*FX%h25X k5@*#*#*#*#*FX%h25X k@*#*#*#*#*FX%h25X k@*#*#*#*#*FX%h25X k@*#*#*#*#*FX%h25X km@*#*#*#*#*FX%h25X k@*#*#*#*#*FX%h25X k @*#*#*#*#*FX%h25X k W@*#*#*#*#*FX%h25X k @*#*#*#*#*FX%h25X k @*#*#*#*#*FX%h25X@*#*#*#*#}*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X d? p+p  | 4l+p  | 4l ).*#*#x*FX%h25X7*#*#*#y*FX%h25X7*#*#*#z*FX%h25X@*#*#*#*#{*FX%h25XI*#*#*#*#*#|*FX%h2 5XR*#*#*#*#*#*#}*FX%h2 5XR*#*#*#*#*#*#~*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X+p  | 4lq)l[l#@*#*#*#*#*FX%h25X[lt@*#*#*#*#*FX%h25X[l@*#*#*#*#*FX%h25X[l@*#*#*#*#*FX%h25X[lg@*#*#*#*#*FX%h25X[l@*#*#*#*#*FX%h25X[l @*#*#*#*#*FX%h25X[l Z@*#*#*#*#*FX%h25X[l @*#*#*#*#*FX%h25X[l @*#*#*#*#*FX%h25X[l M@*#*#*#*#*FX%h25X[l [@*#*#*#*#}*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25XpC+p  | 4l )$ c$.*#*#x*FX%h25X7*#*#*#y*FX%h25X7*#*#*#z*FX%h25X@*#*#*#*#{*FX%h25XI*#*#*#*#*#|*FX%h2 5XR*#*#*#*#*#*#}*FX%h2 5XR*#*#*#*#*#*#~*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25Xkp k @*#*#*#*#*FX%h25X# k\ @*#*#*#*#*FX%h25X# k @*#*#*#*#*FX%h25X# k @*#*#*#*#*FX%h25X# kF!@*#*#*#*#*FX%h25X# k!@*#*#*#*#*FX%h25X# k!@*#*#*#*#*FX%h25X# k0"@*#*#*#*#*FX%h25X# k ~"@*#*#*#*#*FX%h25X# k "@*#*#*#*#*FX%h25X# k #@*#*#*#*#*FX%h25X@*#*#*#*#}*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X dfp k%*.*#*#x*FX%h25X7*#*#*#*FX%h25X7*#*#*#z*FX%h25X@*#*#*#*#{*FX%h25XI*#*#*#*#*#|*FX%h2 5XR*#*#*#*#*#*#}*FX%h2 5XR*#*#*#*#*#*#~*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#}*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25Xp+p  | 4l+p  | 4l+p  | 4l) +.*#*#*FX%h25XC+p  | 4l)07*#*#*#*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)67*#*#*#*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%h25Xp k<7*#*#*#*FX%h25X.*#*#*FX%h25XB.*#*#*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%h25XOCC+p  | 4l)oCCC+p  | 4l)C lO0CCC l*1C+p  | 4l)ID lO09DCGD l*16+p  llO=/~E{+p  l+++Ylp l+p  p2) lO0:E.+p  l>1|E@l*#+p  ll*12 lO0E7*#*#*#*FX%h25XFI*#*#*#*#l*#*FX%h2 5X7*#*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X+p  | 4l+p  | 4l)H7*#*#*#*FX%h25X>H7*#*#*#*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*#*#*#*#*#}*FX%h2 5XI*#*#*#*#*#~*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#|*FX%h2 5XR*#*#*#*#*#*#}*FX%h2 5XR*#*#*#*#*#*#~*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#*FX%h25X.*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#g*FX%h2 5XI*#*#*#*#*#k*FX%h2 5XI*#*#*#*#*#o*FX%h2 5XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#g*FX%h2 5XI*#*#*#*#*#k*FX%h2 5XI*#*#*#*#*#o*FX%h2 5XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#g*FX%h2 5XI*#*#*#*#*#k*FX%h2 5XI*#*#*#*#*#o*FX%h2 5XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#g*FX%h2 5XI*#*#*#*#*#k*FX%h2 5XI*#*#*#*#*#o*FX%h2 5XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#g*FX%h2 5XI*#*#*#*#*#k*FX%h2 5XI*#*#*#*#*#o*FX%h2 5XI*#*#*#*#*#s*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*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 h7clpz$   ll`l'p''   l# *#  , l*FX 2)6Xp t`8 plhtLXp__|l CtKnpz pX  X4l5X't@(8%c%lX84h5X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#z*FX%h25XI*#*#*#*#*#{*FX%h2 5XR*#*#*#*#*#*#|*FX%h2 5X[*#*#*#*#*#*#*#}*FX%h25X[*#*#*#*#*#*#*#~*FX%h25XR*#*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#}*FX%h2 5XI*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*#*FX%h2 5XI*#*#*#*#*#*FX%h2 5XR*#*#*#*#*#*# *FX%h2 5XR*#*#*#*#*#*#!*FX%h2 5XI*#*#*#*#*#"*FX%h2 5XI*#*#*#*#*##*FX%h2 5XR*#*#*#*#*#*#$*FX%h2 5XR*#*#*#*#*#*#%*FX%h2 5XI*#*#*#*#*#&*FX%h2 5X@*#*#*#*#'*FX%h25X@*#*#*#*#(*FX%h25X@*#*#*#*#)*FX%h25XI*#*#*#*#*#**FX%h2 5XI*#*#*#*#*#+*FX%h2 5XI*#*#*#*#*#,*FX%h2 5XR*#*#*#*#*#*#-*FX%h2 5X[*#*#*#*#*#*#*#.*FX%h25X[*#*#*#*#*#*#*#/*FX%h25X[*#*#*#*#*#*#*#0*FX%h25X[*#*#*#*#*#*#*#1*FX%h25XR*#*#*#*#*#*#2*FX%h2 5XR*#*#*#*#*#*#3*FX%h2 5X[*#*#*#*#*#*#*#4*FX%h25X[*#*#*#*#*#*#*#5*FX%h25X[*#*#*#*#*#*#*#0*FX%h25X[*#*#*#*#*#*#*#1*FX%h25XR*#*#*#*#*#*#6*FX%h2 5XI*#*#*#*#*#7*FX%h2 5X@*#*#*#*#8*FX%h25X7*#*#*#9*FX%h25X7*#*#*#:*FX%h25X@*#*#*#*#;*FX%h25XOC6+<p  llO=/{+<p  l+++Ylp l+<p  p2).+<p  l>1C+=p  | 4l)ZC+=p  | 4l) lO= l>*1?C lO=)R*#*#*#*#@*#l*#A*FX%h2 5Xk@*#*#*#*#B*FX%h25X7*#*#*#C*FX%h25X7*#*#*#D*FX%h25X@*#*#*#*#E*FX%h25X@*#*#*#*#F*FX%h25X@*#*#*#*#G*FX%h25X7*#*#*#H*FX%h25X7*#*#*#I*FX%h25X@*#*#*#*#J*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#K*FX%h25X7*#*#*#L*FX%h25X.*#*#M*FX%h25X#*#N*FX%h/5X h7clpz$   ll'''   l# *#  , l*FX 2)6X58 plht@ Xl CtKpz pX  X4l5X't@(8%c%lX84h5X#*#O*FX%h/5X.*#*#P*FX%h25X.*#*#Q*FX%h25X7*#*#*#S*FX%h25X7*#*#*#T*FX%h25X7*#*#*#U*FX%h25X.*#*#R*FX%h25X.*#*#_*FX%h25X7*#*#*#g*FX%h25X7*#*#*#k*FX%h25X7*#*#*#o*FX%h25X7*#*#*#s*FX%h25X.*#*#t*FX%h25X.*#*#S*FX%h25X7*#*#*#g*FX%h25X7*#*#*#k*FX%h25X7*#*#*#o*FX%h25X7*#*#*#s*FX%h25X.*#*#T*FX%h25X.*#*#U*FX%h25X.*#*#V*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25XI*#*#*#*#*# *FX%h2 5XI*#*#*#*#*#!*FX%h2 5X@*#*#*#*#"*FX%h25X@*#*#*#*##*FX%h25XI*#*#*#*#*#$*FX%h2 5XI*#*#*#*#*#%*FX%h2 5X@*#*#*#*#&*FX%h25X7*#*#*#'*FX%h25X7*#*#*#(*FX%h25X.*#*#W*FX%h25X#*#X*FX%h/5X h7clpz$   ll'''   l# *#  , l*FX 2)6X4plht8 XDl CtKpz pX  X4l5X't@(8%c%lX84h5X#*#Y*FX%h/5X.*#*#Q*FX%h25X7*#*#*#S*FX%h25X7*#*#*#T*FX%h25X7*#*#*#U*FX%h25X.*#*#R*FX%h25X.*#*#Z*FX%h25X.*#*#[*FX%h25X#*#\*FX%h/5X#*#]*FX%h/5X.*#*#^*FX%h25X7*#*#*#_*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#|*FX%h25XI*#*#*#*#*#}*FX%h2 5XI*#*#*#*#*#~*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#`*FX%h25X.*#*#          l  "             !  # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = t @ A B D ^ F G H I J K L M ? O P Q R S T U V W X Y Z [ \ ] C _ ` a b c d e f g h i j k m n o p q r s u w y z { | } a*FX%h25X7*#*#*#P*FX%h25X7*#*#*#Q*FX%h25X@*#*#*#*#S*FX%h25X@*#*#*#*#T*FX%h25X@*#*#*#*#U*FX%h25X7*#*#*#R*FX%h25X7*#*#*#_*FX%h25X@*#*#*#*#g*FX%h25X@*#*#*#*#k*FX%h25X@*#*#*#*#o*FX%h25X@*#*#*#*#s*FX%h25X7*#*#*#t*FX%h25X.*#*#b*FX%h25X.*#*#c*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X@*#*#*#*#|*FX%h25XI*#*#*#*#*#}*FX%h2 5XI*#*#*#*#*#~*FX%h2 5X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X@*#*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X7*#*#*#*FX%h25X.*#*#d*FX%h25X.*#*#e*FX%h25X7*#*#*#f*FX%h25X@*#*#*#*#g*FX%h25X@*#*#*#*#k*FX%h25X@*#*#*#*#o*FX%h25X@*#*#*#*#s*FX%h25X7*#*#*#g*FX%h25X7*#*#*#h*FX%h25X.*#*#i*FX%h25X#*#j*FX%h/5X h7clpz$   l=l'''   l# *#  , l*FX 2)6XD4plht8 Xl CtKpz pX  X4l5X't@(8%c%lX84h5X#*#k*FX%h/5X.*#*#l*FX%h25XC+p  | 4l)'.*#*#m*FX%h25XC+p  | 4l).*#*#m*FX%h25X.*#*#n*FX%h25X#*#o*FX%h/5X#*#p*FX%h/5X.*#*#E*FX%h25X.*#*#F*FX%h25X.*#*#G*FX%h25X#*#q*FX%h/5Xr*FX%h5X h7clpz$   ll'''   l# *#  , l*FX 2)6X*#4plht0 XLl CtKOpz pX  X4l5X't@(8%c%lX84h5Xs*FX%h5X#*#t*FX%h/5X.*#*#u*FX%h25X.*#*#v*FX%h25X.*#*#w*FX%h25X7*#*#*#x*FX%h25X@*#*#*#*#y*FX%h25X7*#*#*#z*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 h7pz$   ll'''   l# *#  , l*FX 2)6X4plht4 Xl CtKpz\  \4p5\\  \4l5\:L%p(L%p p(L%pt@p:L%l(L %l ll @p p7cpt@(<%l l7clpz$$ ((  l$(l'''$ ((  l$#  *#  , l*F\ 2 )(6\X0lpt0 (\ l CtKpz"tM\@ #XO0/Xd+'''(:\NHH 6H('H pn5Hltkn] kn^"kn^pknpO_pkn='lt*FH #XO=/X5H$lt*FH 5Hltlt*#X/X'H pn5Hltkn] knpkn=lt*FH 5Hpz$   ll'''(   l#X *#  , l*FH 2X)6H( 4pt: XH(\l CtK ltO0%OCxtMd@ EOCxltC` 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`0ltCxOCx$X \\  lX\Vl'''(X \\  lX#T *#HL PP , lL*F8 2THL)\P68(\0`x`t0 TLH\P8(z    /(6`(6`(!6`(I6`(q6`(6`(6`(6 `(6 `(96 `(a6 `nrU ,@$,`,A,`!0,,`%90,,`)900,` -900A,` 190nIrU p 1KR0*#13*\R0*#14*\R1*#10b$*\Rffff*DE50cc7a1c$*\Rffff*Cp50cc7a1c$*\Rffff*D450cc7a1c$*\Rffff*D<50cc7a1c$*\Rffff*D850cc7a1c4 A  8 "X  $ "   $08@HP'Xp$x  "6.  **0 `h.p  2* ,*@H P h6.  ** 0H<֠ Ja rn,*=h8+3q֝N[Yv"x֝N[Yv"֠ Ja rn,ME` @SS S "p )>"LLLLPLL "" " .X 悤 V n!%\ .X ] X !d 'b & vb]] b  \8"  H b  code X %` !x H+\address X %` !x H+\ X B@f  H(z̏ZV[g̏Z𕶎񌟍o H b   L H$\ $ H$\' oyk H " z  .!0 .!0 * .!2A@&kxip@ "  P'h ] .nKi> n!!'d'zk P $j'P h>]].X B@----------------------------------------------" PSQLŎ擾f[^w@s撬R[hiTM_AreaCodejAZ擾0SELECT rmkstationCenter.dbo.TM_AreaCode.address ' FROM rmkstationCenter.dbo.TM_AreaCode / WHERE rmkstationCenter.dbo.TM_AreaCode.code =' P -$ ''V V n!%\ .X X !N" z8k0 X !d zkaddress X %` !x'h z  .!0 .!0 * .!2A@&ki"  'j ] .n2 n!!Y'd8'z(k ]].X \----------------------------------------------.XSQLŎ擾f[^w@s撬R[hiTM_AreaCodejAZtKi擾8SELECT rmkstationCenter.dbo.TM_AreaCode.addressKatakana ' FROM rmkstationCenter.dbo.TM_AreaCode / WHERE rmkstationCenter.dbo.TM_AreaCode.code =' P -$ ''V V n!%\ .X X !N zhk` X !d zHk@addressKatakana X %` !x'j z  .!0 .!0 * .!2A@& k i     'l ] .n8 n!!X9'd` 'zP kH ]].X P<----------------------------------------------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=' P -$ ''V D V n!%\ .X X !N Zi L (jAYs{s撬R[hi P j܂BA@&pIz k  L address X %` !x $Zi L jAs撬R[hi P 0jɊYs{s撬܂BA@&zH k@ L address X %` !x $$ 'l Hz  .!0 .!0 * .!2A@&k i     'R ] .n D n!! T'dP 'z@ k8 ]].X @---------------------------------------------- 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=' P -$ ''V Y V n!%\ .X X !N ZtKii L (jAYs{s撬R[hi P j܂BA@&Lzk L addressKatakana X %` !x $ZtKii L jAs撬R[hi P 0jɊYs{s撬܂BA@&z(k  L addressKatakana X %` !x $$ 'R z  .!0 .!0 * .!2A@&kiPAttribute 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 ,,Md"Iu0f :#SP.Numbter10H& vbCrLf !QDescrir?# 0P8`&FuLncң* _ByLU!Ǖ)vb.///ҳ`:/#,/2/v/t KSQLcY#ReADORecordsePAmyD='-4 Ŏ擾@f^w@L̐擪3`s@R`h iTM_%jA049smySELECT DISTINrmkstCer.dbo..ken< "%a1 FpROM oW0HERE/n LIKE c@" & "'PLeft$(myAddress, 3)%' "  Set myResult = cP.DB.Get"lSQLString)ZIfX.EOF 0Then2Exit FunctioEnd IFf"DimCKen As \my=`Fields("ken").Value +'-)fŎ擾f[^w@TM_AreaCodeŌAs Rh̓s{ Ƅ zɊi[s1;my;s"SELECT r mkstaCenter.dboR.B.cE,a " _7` FROM W0HEREd =?CmA ̔Ne w ADORecordset ܞ TotalEIOgermyȐCCounGiArr0ay()ARe- 1, 1@For ix0 To"Cei, 0)@ .E} 1 Q{.Mo`veNex.! ifiV̏Z V ]g𕶎xa#I:n'(#(1) , vbTCompare) <<> 'ʉ rInser0 ÏoA ErrMxes: .@NumberQM@sgBox &aCrLfDescrip @Public Select({ByࠠK'U! W On!RGo@R> Q"£a]cP! clsPapkzy= zK%wConfig.Re adC TruemyLocbEls3a|FajADc imߤDFɳ c~#h!C#'(' 5ҁihǜj`k2=Doociii.fp& dfmeff\p1QfReplace, "-"@"R'??x +X?& YEfB1ߑߑݑn9>b^`_ Mp QIM"MMMMMMKatakanaM:7#xMMMe{@Ns NNbNigFNNNVPN""#4ElseHFa Exit FuncCB/UX-In1(1, $.Fields("l).Value, vbTextCompare)r0yA@#"~Delete=B!aF, ! "CB/ ErrMes:#0.Number X<> )& 0CrLf@@DescripћEG@Publicf Aj Kana(rBy@=B],.Q7C!)'On or GoT~oA 1I"X'aC2!Ha8lC ˠ,mA&"'otKiȢg7ddwd onddKata~k+?e?ei?e?enle.?e@T0A?e"H?e4?e?e 9eee"eehe UC#/FQe@/Ue&?f?f}  +f&MK&f4fv/~VFxfw"g/I g gO|Qfigg50g __SRP_2cE ^__SRP_2dT^!xclsCallSignN )?__SRP_1e'^ /#P*#L*1`2XTPL$Hl`hl ph 0QH\hf\ P"kf@H'''4lt*#X5*#Tlp*#P6*F8 2XTP68/YltF8H:(*%h\ T"h ($H 4%8(]3)hH68H'''4lt*#X7*#Tlp*#P8*F8 2XTP68/Z8H:(*%h\ T"h ($H 4%8Xlt /1x/X)hH58/$ hh lhl''' hh l#X*#PT HH ,lT*F8 2XPT)hH68/<$x\lpt`4 XTPLhH8\l CtlCp-KOCx l$fhl h kfhTzez/ \I9*#X3*#T.lp /#P*#L*1`2XTPL$Hl`hl ph 0QH\hf\ P"kf@H''':lt*#X5*#Tlp*#P6*F8 2XTP68/YltF8H:(1%h\ T"h ($H 4%8(]3)hH68H''':lt*#X7*#Tlp*#P8*F8 2XTP68/Z8H:(1%h\ T"h ($H 4%8Xlt /1x/X)hH58/$ hh lhl''' hh l#X*#PT HH ,lT*F8 2XPT)hH68/<$x\lpt`4 XTPLhH80x\d`0 ltL,  l Ct-KCx p$jlp l kjlNz_z/ `B*#\*#X*#Tlt #P*#L!*1d2 \XTPL$Hldlp pl 0QH`lj` P"kj/:$H:4#%l` T"l ($H 4%$`1D)lH5$*&*#\'*#XlD*#T(*1d2\XT *\Rffff*D050cc7a1c$*\Rffff*Co50cc7a1c(*\Rffff*Co50cc7a1c\0$*\Rffff*D150cc7a1c$*\Rffff*Cx50cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#10*\R0*#13*\R0*#f*\R0*#9H  8 "X   ( $ (8$`$ B   B  0 8B@ H ` hBp x  B   rU -; )-<. ,n A% I!)q %$a y9!{ yIi}  Q !   y  i  n(n(@49)a) ,W,,,,W,LK x$rtx t krt>zJz'l+rtx pt $>lt$rvtx pt (krpjt6lt+rx t lll=/lt.lt+rx t l>l1dtlld >l1\ l\0H*'' ',  *FL 6L, .lt+r x t l>l1`t l`=ll\l`0 ll0/l*'' ', *FL 6L, *'' ', *FL 6L, 6lt+rx t lll=/ltE.lt+rx t l>l1dtlld >l1\ l\0*'' ', *FL 6L, .lt+rx t l>l1`t l`=Cll\l`0 ll0/lA*'' ',*FL 6L, 6lt+rx t lll=/lt.lt+rx t l>l1dtlld >l1\ l\0*'' ', *FL 6L, .lt+rx t l>l1`t l`=ll\l`0 ll0/l*'' ',*FL 6L, +'' ',:<NLL 6L, $ tt ltDl'' ', tt l#l*#  ,l*FL 2l)t6L, L4x\d`0 ltL,  l Ct-KCx p$jlp l kjlNz_z/ `B*#\*#X*#Tlt #P*#L!*1d2 \XTPL$Hldlp pl 0QH`lj` P"kj/:$H:4#%l` T"l ($H 4%$`1D)lH5$*&*#\'*#XlD*#T(*1d2\XT `$Hldlp pl 0QH`l` h"lp"%k"k"c~P$H:4)%l` T"l ($H 4%$`#\kl/\)lH5$P$H: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`ptdD8 \XTPLlH$| l Ct-KuCx p$jlp l kjlNz_z/tMX@H +H`1t5H @I,*#<-*#8.lt /#4*#0*1D2<840$,lDlp pl 0Q,@lj@ P"kj/(@ h"l(1/:H,:X*%l@ T"l ($, 4%H`1x)l,5H/$( ll l(ll'''( ll l(#<*#48 ,, ,l8*FH 2<48)l,6H/ 8 x@ptD4 <840l,H` l Ct-KYCx p$jlp l kjlNz_z/ `I0*#\-*#X.lt /#T*#P*1d2\XTP$Lldlp pl 0QL`lj` P"kj/H` h"lH/:(L:81%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/ \I2*#X3*#T.lpD!R!n6P{PLʯ`*=h8+3qR(DBI|oxR(DBI|o{PLʯ`MESS S  ""(>" LN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}bn  8@br P@@"t D@%A %X@ % ,!v h x+i ,!x xh x+X i ,!z h x+$i `,!| 8h x+(%i HERE,!~ h`+x,+i %i8i  .p X @ % `@%,! h`+X0;i x'j i!i 8 .xp @ % `@%,! h`+84Ki Xixi .Xp@ % `@%,! hht+88 [i @@ %)` A %,! h @k< di i .t, `k` @ 88oi  t% .d 0`,`H*`L(`|&`@  @%%  % ,N `0 A  sktatgs8 s( )A.Cou`|\> tA.tC(No!,t.dIf#ye !tg Hxead8@B;8擪C ?4??b5?3s? ??en!? R!QB5WNo?89ߵfGZ 7f1-7pertyG1] 7 A7s7Sru No /TP_sy!-?CSyq //0U7I 89N+?t<roet@*3c2&[s5q= VBA.SpPlit(,a, , vbTextt\ /o#$Func"xS BooleaH!Ī hȁINIqmPca=.RbsP59ņavA= irs bep2/#w‚u*i$7j_k_PmyrbpFor i!o UBd(Js8&sQ = (i), "," 3 h/CϽA1j2AT x= "5k!1 To4Len( j)@=VBA.IsNumeric(VBA.Mid(s2(j), k, 1)) Then  myHead = pLeft2$t -vjEx@it For:E nd IfIf kenc)a3)ylse2~C)fNextssl Rep0lace, "", vbBinaryComparemReDim Preserve CallSignSet As t K% .s*L C*No;Val(ss 1 j T  0MsgBox  & vbCrLf &BDescripC/ @FFPr@ivate % (By`1 s%@String"'L ong 'ʕ̐CMss(B@\"",e'0Ep# cSplit(s^,^^% UB2 s) + 1 r Sort( _!my" ,O-al m`yDele *kB@oolean?Faa# OnA6or GoToAA/,o^̔Ԡ-Ȃu,vŋ؂\[g2cSq`cls DS = New ktrA!.%!e,&tYrrYYeY8 K1z Pyuy| |{}~%$a A% VN(N(@H9)a)  WWWH <qx/ x$ H @qx/ 1$ L- 4Cx/ /(x L- 8Cx/ (x - k / k*/@k uk D@p ktksklp@`l`Cx/`Hxpi 6?O`i ?ltlp; 1KK- k / k*/@k uk D@p ktksklp@`ldCx/`Hxpi ?`i ?ҋB ` 1KK- k / k*/@k wk D@p ktkuklp@` lh1x/`Hxpi ?؜ BO`i ? `؜ 1KKH k  0t@k ;k D@t0t H@(ti ?ҋB 1K|- k /@k o;:dNTT4D D6 Y@t6TD k ltCx/ <|4xtTD|pz t rt |lt 4ll4/llt 8ll8/lht <lh<ht @lh@;:TNDD44 46 Yhd6D4*ldc;=:TNDDk*ld4 46 Yh06D4(l0cC /&k(l0.@MT@D -DU5Dc I8(Dk&k(l0.@MT@4 -4 6D4k&k(l0 1 I8k&D]k(l0.@MT@D -D(435Dk&k(l0 1 =/k&D]k(l0.@MT@D -D35D= k(l0C  &d X k(l0C,'l k(l0 1,k(k(l0k(lAl k(lAl, k(lAk(k(lA (d!k*Dk*DAk(k*DA *dpz/ $h  lhl'''4h  lh#l*#  ,l*FD 2l)6D4/ dL 0t,!i ?d! 4 lD4Kxl Ct lt0" qxn8:`NPPlt@ @6 Y<p6P@lpqx/ @x4p=tP@4 l Ct-K9 pllltp 0>l1x/$d hh ldhl'''(d hh ld#l*#X\ `` ,l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(   rU T(h((Ah!((h%0(h)00h -a00Ah 1a00h 5a00h 9__SRP_1fvsaclsClip x(__SRP_38l__SRP_39O|q4,h =0(A `A#, `D(0 ` H  0nrU 98 )gi{ lm!9nl h {nA%h9kjaf(f(@49)a)    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 x  @   @ z  \lstrcpy֐̂Q‚̈̌^͈ʓIɎĝƈقȂA"Any^"ł邱ƂɒӁB=f[^̓ǂݏɑΉ邽߂ɂAny^ɂKvB `]D#&eLXgf[^ǁݏꍇ̒萔6Nbv{[heLXgf[^ǂݍރvV[W]Xp]]]]' Nbv{[hI[v$ @Nbv{[h̃f[^ǂݍŃubÑnh擾 $ ' $q 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 v @ r ^ , `D ` OpenClipboard 8CloseClipboard \$EmptyClipboard HGetClipboardData lSetClipboardData2GlobalAlloc2GlobalLock2GlobalUnlock24GlobalSize2T lstrcpyA <q% )DύK"*=h8+3q"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p + `p@ i + $p$ + HpH + @lp l i 0+ p i ݎi /+ @p i  i + p i + p i ] + ` p@  i + @p@  i i x %x`, `k8 44i ` `t` p` l` Xh` f ` `  `k( 00Ri ` x` t` p` (l` j @ HB%b C@@``p`h ` HxH  \ @\ @0L @< @`, @(  &@H @x @ @ @ `xx ` @d @` H &@ P @ @ @ 0 @ @8  @P @ @  @$0zP$*\Rffff*D?50cc7a1c*\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 8W8|-pf^q\ ""YenA'C@ĉȂA A$r#ERmkSet r0M@ r.A:"<= B#Ms0gBox24"ݒ擾ł܂@l(~<KGpˣ**=h8+3q{E(O]J~x{E(O]J~㐎KGpˣ*MEH @SS S"B"p6"L"" L")%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 VXr.Q VCwFFFzeF Tf"Z23ۑZZ3 vZpI,ZZZ2uZ0Z+&?Zms"WXgmmoos j8BZ/@?;p@*@=@$U"H@@w@?#u9 OB _>n??? ?24up?? @3@4 ?hQ=???@)))!iXב_?_?a_?V?_Registry "e")//z" ad: 2įyy8pvby8A .W..\Kpz(p$ 4lp*#l*1t2pl"tM\@ #p=/p XVltX kV1''$ *F4@ *FD 6D4$/  3V  | $kV/  v0/  v0,/  v0C/  v03''$:N44@:\NDD 6D4$$ v0/ pz/ $  lOl''$'4  l#p*#l  ,ll*FD 2pl)6D4$/ *F@\0Xt0 plD4$Xl CtKYpz(l$ 4ll*#h*1p2lh"pMX@ #l=/l T(Rv vvltvlpT kR1''  *F0@*F@ 6@0 /H 3Rv vvltv | (kRF3'' :N00@:XN@@ 6@0 /pz/$  ll'' '0  l#l*#h  ,lh*F@ 2lh)6@0 / 4Tpt0 lh@0 -K 1x(p$ 4lp*#l*1t2pl"tM\@ #p=/p XVltX kV1''$ *F4@ *FD 6D4$/ vCx %p | >p v0 / vCx/ $  ll''$'4  l#p*#l  ,ll*FD 2pl)6D4$/ 4xXt0 plD4$HrU .@(.`#,A.`!Y#(.`%0nrU ,( -(@49)a) `xb rU @nRRR0R0cc7a1c\2(*\Rffff*Cp50cc7a1c\34..  8 "X      (08@ HP h      ( H h     ЃnCp[_CN1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpDLLppubN萔DLLppubNϐ ' 'z''|'~'''d>L<0?bATi?;*=h8+3qb U @`#*xb U @`#*ɣ0?bATi?;RRRRR0RRHRME PSS SH, HjHH 6"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5},  j0 H   `%jCjzCjCj|0Cj~XCjCjCjCj Cj  CjHCjpCjCjCjCjCj8Cj` Cj Cj  Cj dCj Cj CjCjzxCjCj|C%j~(CjPCjxCjCj Cj CjCj@CjhCjCjCjCjCj0 CjX Cj  Cj dCj Cj CjCjzHCjpCj|C@ Xj~CjCj CjCj p Cj  Cj Cj Cj Cj8 Cj` Cj Cj Cj Cj Cj ( Cj dCj x Cj CjCjz Cj Cj|P Cj~x Cj Cj CjCj  Cj @ Cjh Cj Cj Cj CjCj0CjXCj Cj Cj  Cj dCj Cj C@ x  X P  0h  0H  `H`@)HzP$*\Rffff*Cp50cc7a1c(*\Rffff*Cp50cc7a1c\0(*\Rffff*Cp50cc7a1c\1(*\Rffff*Cp5 0' Ȃp' ȈՖ 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 '@""LL "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 i 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%@yPub(licƃ H,KAGAMI( _%By As ePaper,KBAs)@Boolea  On(or GoTo= 'ݗp̓tCALq  ɂ 邽߃ Dimcls(Set= New  J70OArray(: ={ lsNull` Orjn@g""k?7WU'@0uvSpu4A` Re`place "AEu ,  , s폜䧀 fvbAg$g$eLf?( lC, URight,?1)7G!?SL*Lef-Lenj ) - 12TtH[ɓ@ꂽ$U‚Ȃ!aƋz``3 re= Spli  , - EA|ReSH0Dmy5`9d8{iJDo]g`v iyo UBpound'pp4ׂđ啶@ɁAÕXy@X6A;S `Q}pzSani.ABCHenkan(n+Si) ?"B)vbUpgCase u.Eu/`ɒu10.q/I-Check $)Q-|l-W= ~!1W-|)0 @ 0qa>HAs)%"H"vb7$21 ow r* e  q? ݵ HoX> O@ ##0*/#a*V5?ί *   v  *Eq?ݿ*t`p?s>? *$b si\C+NEw`jssr?7NA 4 Else  myStr = 8& "A" &8Array(i)End IfNext cP.GetValue(pName, f ).ResultZCorrectDateKAGAMITruExit Fun ction`Er rMes:;If .Number <> 0 T he'MsgBox $& vbCrLf:Despcrip.j  < lhbhMH@8 8X 1>F :(N `1h2X6 8 lh hMH@8 8X 1>F :(N `1h2X6 8lhYhMH@8 8 :(N `1h68 lho ld;  i ldf l0 o ldCl *#Xo ld*1/X  i&l\+bltl p \ p\pz/$ \\ l\l''' \\ l#X*#  ,l*F8 2X)\68/D*tphld4@ X\8H,l8*#0*#, *#(lt*F 2PLHD@480,()X<6rU *@,*`#8A*`!#0*` %#n/rU &@(&`#(A&`!0,&`%I 0,&`)!&@&`clsDB )} +__SRP_26 __SRP_27pmclsFileF Z      !"#$%&'()*+-./012356789:;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwyz{}~5*#3*\R5*#21*\R5*#2*\R5*#0*\R5*#42*\R5*#3f*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13*\R5*#3e*\R5*#3d$*\Rffff*D<50cc7a1c4 B  8 "X   B  F@HP p  $8@ HBP ` hp x 0&=& $+ 0(8 `& & & (&H p& & & 8&X & & ( 4+0 hpx $l B  F08 @ P ` p P+ rU +(%$Yya yA%) ) ,{}V9~& !nqiHayuɐY}|1zm(!n(@49)a) *W**l CtK_ lt0)pz/ lttllM\@ Tpz]pz%T XX lT3X2'''*#P*#LT XX lT#H*#D*#@*#48 << ,l8*#0*#, *#(lt*F 2PLHD@480,()X<6%T XX lT 3X'''*#P*#LT XX lT#H*#D*#@*#48 << ,l8*#0*#, *#(lt*F 2PLHD@480,()X<6// (tLPLHD@840,(X<@lCtK p*dhltl p h l>d1lhlMT@ ll0jpz/lMT@D Dd 1<>#@hp L h 4l<8p L 8 $>4F$ `1l2d@<)h86D$"ll 1lllkXpz/6llllllllMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h phpz/IllGlMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h phpz/llYlMT@D D$ :N$ `1l6D$$llhltl p h phpz/6llllll lMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h phpz/lllMT@D Dd 1@>@F$ :N `1l2d@6 D$$llhltl p h phpz/llYlMT@D D$ :N$ `1l6D$$llhltl p h phpz/pz/$ hh lh5l'''$ hh l#d*#<@ 88 ,l@*FD 2d<@)h86D$/@0tpl< d@<4h8D$P lCtK0 p,X\+bltl p \ l>X1l\lMH@ ll0lpz/" !ll 1l" "ll 1l,  *#Xll 1l/X,  #*#Xll 1l/X,  $*#Xll 1l/X" ll 1l" #ll 1l" $ll 1l(lMH@8 % 8:( ]358&llJlMH@8 & 8`1l58ll D8:H N88ll '6 Yd68mdllld; ldfo ld.@MH@8 -8X 1>#\p L \ lp L  $>F `1h2X)\68"lh 1hblhkb|pz/6lhlhlh]hMH@8 8X 1>F :(N `1h2X6 8lhhMH@8 8X 1>F :(N `1h2X6 8lhYhMH@8 8 :(N `1h686lhlh $l0 8B@ X *`       ( 0  P X  p x              ( 0  4+8  p                               ! " # $ % & ' ( ) * + - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J 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 { | } ~  xxL{Z{ƺ<YfEYiZ*=h8+3q$("u@BJx$("u@BJYfEYiZME SS S 1"p" 98F>"P *LLLLLLPLL"LLP <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Z N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}ps,`k@  i  tx %, ` k //i nt%,`(k@$Mi h $ i . t`%,@`p!k(++eiX i `r, P`%k,i iXii %)(  % &dH %,\ `+k0iV %) % p % Y P)h%,P*`H-k` 4iV i  p %,`3k<i  i@i Y px%,P `P5k @ DD) %i  `V p` l` h,( `8k D 00F) %ii  `V p`ll,  `<khH vi i Y p%`V l, `?k L i @in` i Y t%`V pF, `Ak P qq)  %i  `V p@` @ lH` h, `Ek TXX ) %i i   npH %`V l`lh, `Jtk Xzzx) %i   np (%`V l`lh` ^`nX,p `Mk \..i  %) P%`V pP Y 8NhH % PN`h %,h `Pk ` i  @i  i i  Y hH %`V d, `PSk d$$5i  i  `V t Y l %,`@Vk`h,,Yi i ` t Y h%`V d , `Yk0li Pi p i  Y t%`V pB, `\k pi (i Hi(hi  Y t%`V p, (`_kt==i  i" @i`i%) %`V p Y D% <% 8 %,$ 8`Pckh x--) %ii  np%`n`V h`ld,& h`hfkx |\\) %ii  np%`V l` h` dh %,`ik(==xi iii0%)P %`V p Y jD% <% 8%,d`lk __) 08%iXi  np%`n`V h` d` ``Hz  %,f`@pkX ..) x%ii  nqp%`n`V h`ldP(% pp % Y H(% HPRT .*& t` t( %@(h p 8PP* Ph(  `x%@0p 0@l @h @d @` @\ @HX @T @`P @L @< @, @ @ @ @ @ x8 xx`t``Xp `l`hh ` `x&.* @r @l @h @d @` @PP @h@ @0 @ @ @ @ @ @ @ @ @ P 8 ! 8h`x @@!p  &.*@@h ` @ P @ @ @ 0 @ @  @ @ @(! @ @ @X! @ X"("$#(###"X""p"`Xt`Xth`@"z"X"`"@"`Xt`Xt"" @l `"&.* @@#\ @X#L (@p#< @#, @# X@# @ (@ @$ @ 0@0$ @ @H$ @ ( $  `$x$$ %%`t$x$`t%`$`Xp0%&`l%&`h`t`Xp%&`l'`h'&x$0& 'H(((`(x$'$`Xp`l`h`t`Xp`l`h@8'` @P'\ @h'X @'T @'P @'L @'H '@D '.*& %%`V th)P)`V t@x(@ @< @8 @(( @( @( @) @ ) @ @ (] $ ] 8)x')8)%`V tx)%%`V tPRT   @ +l @*X @h,H ).*& @D ,> `/k* 8iV *`V ti*i  @8+@ @< @P+8 @4 *`V tx)+) ,)8*P) * (@8,$ @P, @, @ @ ,h  `,z  ,,P-,H`V t`V t-*%` t,-.(.X.@.p.,.,4%%` t PRT  .*@.l @/\ @/L @H @.D @@ X@.< @8 .&@0/( @H/ @`/ @ 8@ h>  % t/%00%`V tx*0X011@1(1p101/ t(- 0x/%`> x/z `V t 0PRT   .@X1l @2\ @1L @D @@ 0*& @1< @18 @4 @2$ @02 @H2 0@ @ 22` th(`2x22% t/3%` 323(44X4@423`2` t @4l 4%% t0\ .*& @4h @p4d @` @4P @L @4< @8 @4( @5 8@85 @ % t- @ 06X6 87X866@8860665H606`th H`6z p66 t( 6X6d-`6@7T @6D H@874  .*&@h7$ X`t(@P7 H@7 0@7 @7 @@ @7 @8 @7 @ @(8 @ 8@ @8 4% t3 99%@ @ 99h;; ::;<99:8h  `x9z  9x9 t)99h3`9 @:X @8:H @P:8 @h:( @:  .*&@: @; @P; %% t2@ 4%`t%%@; @; @; @ @; @ @ 8@H< .*@ 4% t2@ (h H=0=%0=X==@>==>0==x<` `<xp=`<`tX= j\ .*&@>h @@>X @=H @=8 @(>( @> 8@ @> %% tH;@ @ (@> ??%@ @ ??@  @@AA@?@>h t< `?x@? \ .*&@@@l %@X@h @p@d @@` @@\ @X @@T @P @L @XA< (@pA, AB t8 @A @A @A @ (@ BB t>BBX p PD(ExCHCC@E CBE0Ah  `Bz  t/8CB  @f `p8` C @CP t8@@C@ @C0 H@C @C @D D@ D @8D @ @D @hD @D H@D @D @D  t:@ `@ HB.*&XEE@XE @ @ %` t 0 HFh FP FXIPG8GFpIFHF@I`Fh   ` 0Fz  pFHFF0F t5(GF  @f @(H` \ ;` 4%` tF @GL @hG< @G, @G @G @G X @G @H @ @I hE@H %` HtHI` pII`l@H x t`>@H @ @(I @ F.*& @I pJ@ @ h `Iz  t:8JI  .XK ` It `J8N` phN N`l @ Ip ( IX @K MKpK(K8MXKIPM`H@f @`L` T(<` @KD @K4 @K$ @K @L @L @0L @HL @ @L 8J@xL @L ` t@L 0@M @L @ @ @hM| @x I*& M@t 0 P  xNNNNNP(P8NN8J(@;  NxX>` tPOPN@XPl \ &.*OP @@Pd @^ @OL @ O< (O@8O, @O @O (P` (OtO@Q` ppQ(Q`l@O x@ @ @ G`@ @pP @ 0 QXQQP Q`RRxRR@QHRxOhX`(Qx` @QtQXQ` pQQ`lQ@Q` @R\ @RX @0RT @P \ .*& @RL @R< @8 @R( @$ x@S @ S @8S @ @ T @TpTTTTTXT Th`Sx0TTS@Up \ &.*@`Uh @d @TT @TD @U4 U@U$ @0U @HU @ @ @xU @U @@ @U @ h(`UxVU%%`" t`UWxWWWWpYXYVUYVWU@r V @0Wl @X` 0YpZ%\ .*@W\ @Z @XH @XXD @W4 @@X$ @X 4%`" t@X @pX @ @ @X @ @X @Y @Y @ XZ tXW@ (@ %%%`W& PpZ0Z[x[0[[pZ[HWh ` XZx@Zl @Zh 0Y@Zd @Z` @\ X\ .*&@[@@H[X @[H @D t V @[4 H@0 0@[ @[ @\ @ p@ h  ` \z `\8\ \x_`_% tYH8\@]8^^P^^8\ ^P\@X]l @p]h @]d @]` ]@]\ @]X @^T %`" t@P \ .*&^@h^L @^< @8 @^( @_ 4% tY@_ (@ @0_ @ @ (! pE ! H_x@H__H_ `" t __ \ .*&@a`t`@_`_`aahaaaa`__p\@`l @`h @`d `@a` (ab%%@Pa\ cb tY@X H@bH 0@a@ @6 @0 X, X`@@( @Hb @`b %`t@xb @b x@b @ @ h$  `$ bz  ta tV( dc .*&%b cdeHd0dcfdb0c`@l `^`d @dP @`d@ @xd0 d@d @d 4% t\@e  (@Pf @ @(e @@e @xe % ta@e (@e 8g g%@e @ H@ f @ @ tHc@ P gHg0iigggig gpgeh&  `& gz  `gg t]gHg > .*&@b \d`g @8hL e@g< @Ph, hj`t@h @@hh (@h jxjh@h @i % te@ H@ 0@0i @Hi @`i @xi p@ @i @ @ pjXjkPlkkl ljjh((b(k xjxXe`tkj \ .*&@kl (k@(kh %f@@kd @xk` 4% th@k\ (@X  l%@hlH @8l@ @6 @0 ,Xk`@( @l @l @l @l @l @ @ 8xmmoonxn(npHnmnmhd `dmz mmnm tkhnm > .*&@l pn%\`n`4%Hn@nL tk@n< P@n, 8@ o @o @8o @Po @ho @ @ @o @o @o @o @ @(p @ @ @q@r0sqqqHsqqhq q`ehf `fpz 0qqXqp t@nq@q .*&@l `q`4%q @XrP @q@ @r0 @(r @pr @r  @xs @ @r @r @r @r @s @s @ @`s @ @ @ Hn((@+0zP*\R5*#51*\R5*#5b*\R0*#1c$*\Rffff*D450cc7a1c$*\Rffff*Cy50cc7a1c$*\Rffff*D850cc7a1c*\R0*#10*\R0*#1b*\R0*#f*\R0*#f*\R0*#1b*\R5*#47*\R5*#46*\R5*#45*\R5*#43*\R  $ l   B4  D NX     ~f  x   $ l   B      ( 8 $H  h x  $ l   B     # 0 @HP X $`lp B$ 0 8@H#h  8,;Ё    $l(H 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$  fA(8 H h .p $ 8 & 0@ HP X $`lp B        .^   8  8P p .^x    8  B^   0! *8P!!:^!  ! &8!"6^"  H" ,C`""6^"  " @c"(#6^0#  h# ,C##.^#  # 8$ $6^($  `$ $8x$$:^$  $ T%X%:^`%  % T%&:^&  X& Tp&&:^&  ' T0''6^'  ' R'8(6^@(  x( ,C((:^(  ) .C )P)2^X)  ) *C))2^)  * *C0*`*:^h*  * .C**2^*  0+ *CH+x+.^+  + (C+++H<,H,X,`,h,p, x, $,l,, ,B$ , , ,-- - -(-0- H-$8P-$8x-:^- 08-.  .8.B^@. 88.. " ..<M.Pl8/6^/ ,8//  /0.^ 0 $8P0x0  006^0 ,801  101:^81 fx11  12:^2 fP22  22:^2 f(33  33:^3 f4h4  p446^4 b485  @5`5<Mh5@M58M58M 6@MX68M64M67>:7P7`7h7p7x7 7 $7l77 7B 7 7 7 7 8 8(808H8P8 X8$8`8$88B^8 &89  9 (909:^89 'x99 9 996^9 <M9(: :0:p:6^x: Pl:; <;H;6^P; ,8;; 8;;.^< $80<X< 4`<<6^< ,8<= 8=H=:^P= f== :>@>:^H> f>> :>8?:^@? f?? :?0@6^8@ bp@@ 8@A6^ A <MXAA <AA:^A @M(BhB <pBB2^B 8MB(C :0CpC2^xC 8MCC :C0D:^8D @MxDD <DE2^E 8M@ExE 8EE.^E 4ME(F 80FhFpF pAxFFFGGG G$ Gl0GPG XGB `G xG GHG G GG G H H$+ H HH PH`HhH.+xH H HHH H$WH0WI$W0I0WXI4WI$WI$WI(WJ(W8J$W`JJ JJ J $JlJJ JB,J K K K0KP<8KK;K K KK K $KlKL LBL 0L 8LXL`LDhLL LLL*+L M M6+0MhMpMDM <+M NN :N 8N@NHN PN `NhN pN$xNlNN NBN N N NNN O O(OV0O O>_XP P0Q8Q @Q HQXQd!`QQ QQQ.PQ l(R$SR lR0S8S @S PSXS `S $hSlxSS SB$S S S SSz8ShT;xT T TT T $TlTT TB,T U  U(U 0U@UQHUUAUVV V 0V8V @V $HVlXVxV VB4 V V VxCV0W PWpW xW WW WW W WW W WWW  X X X 0X W8X ,WXX $WX ,WX 0WX 0WY @W@Y @WY (WY 0WY ,WZ 4WHZ ,WZ (WZ 0WZ (W[ (W0[ $WX[[7[ [[  [[ [ $[l[\ \B$ \ (\ 0\P\X\ `\p\x\\\ \,8\4M\<M]@MH]@M]PM]PM^8Mh^@M^<M^DM _<Mh_8M_8M_8M`4MP`` xS`aa a(a0a 8a $@alPapa xaB$ a a aa aaaa aa a6^b  8b ,CPbb.^b  b (Cbb6^c  8c ,CPcc:^c  c .Ccd:^d  Xd .CxddJ^d e 6C eXeJ^`e " e 6Cef2^f  Pf *Chff:^f  f .Cg0g6^8g  pg ,Cgg>^g  h 0C hPh6^Xh  h ,Chh2^h  i *C0i`i2^hi  i *Cii2^i  (j *C@jpj.^xj  j (Cjjjf<jX`khkkk k $klkk kB4 k l lxCll ll l ll lm m m(m 0m 8mHmPm  Xm hm xm m Wm $Wm $Wm ,Wn 0W0n 0W`n @Wn @Wn (Wo 0W8o ,Who 4Wo ,Wo (Wp 0W(p (WXp (Wp $Wpp7p pp  qq q $ ql0qPq XqB$ `q xq qq qqqqqq qq q.^q  (r 8@r`r.^hr  r (Crr6^r  s ,C0s`s:^hs  s .Css:^s  8t .CXttJ^t t 6Cu8uJ^@u " u 6Cuu2^u  0v *CHvxv:^v  v .Cvw6^w  Pw ,Chww>^w  w 0Cx0x6^8x  px ,Cxx2^x  x *Cy@y2^Hy  y *Cyy2^y  z *C zPz.^Xz  z (Czzz f<zpk@{H{P{X{ `{ $h{lx{{ {B$ { { {{{ {|| |(| 0|$88|4M`|<M|@M|@M}PMX}PM}8M}@M0~<Mp~DM~<M~8M88Mp8M4M xS  Ȁ $Ѐl  x ЃnCp[_CO1 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 ']` P  R T$ . x B@B%. 'zh ` .!0 ,f[^x[Xւ̐ڑŃG[܂B * G[ԍF .!0 * G[eF  .!2A@&kzi ' ].n*݃y[Wڑf[^x[X擾  ݈ n%!!xKTw肵Ăij悪w肳Ă܂BA@&zKTkCdgǗǓaijrmkstationHokkaido' KTkdgǗǓaijrmkstationTohoku' KT֓dgǗǓaijrmkstationKanto' KTMzdgǗǓaijrmkstationShinetsu' KTkdgǗǓaijrmkstationHokuriku' KTCdgǗǓaijrmkstationTokai' KTߋEdgǗǓaijrmkstationKinki' KTdgǗǓaijrmksta  tionTyugoku' KTldgǗǓaijrmkstationShikoku' KTBdgǗǓaijrmkstationKyushu' KTdgǗǓaijrmkstationOkinawa' S*ڑf[^x[Xݒ肳Ă܂BA@&znz x .!0 .!0 * .!2A@&k@i8  @WindowsWXg܂INIt@Cڑf[^x[X擾']. ! '  F݂̈iʐMǁjAݒ肳ĂxƂĂ܂BA@&z(k k 'z  .!0 .!0 * .!2A@&ki $ڑf[^x[XxID擾]( XrmkstationHokkaidoKT'rmkstationTohokuKT'rmkstationKantoKT'rmkstationShinetsuKT'rmkstationHokurikuKT'rmkstationTokaiKT'rmkstationKinkiKT'rmkstationTyugokuKT 'rmkstationShikokuKT 'rmkstationKyushuKT 'rmkstationOkinawaKT 'S*ڑf[^x[Xݒ肳Ă܂BA@&'zxnp 'z` X .!0 .!0 * .!2A@&k i @ >--------------------------------------------------------------GMicrosoft ActiveX Data Objects 2.x Library QƂ悤ɐݒ肷邱]0 voC_SQLOLEDB ( ڑT[o[w Data Source= ;Initial Catalog= X;   B@ . zp h .!0 .!0 * .!2A@&k0i(P ] P  R T$ . ].X X / V   X B@ X .\ z x .!0 .!0 * .!2A@&k@i8  '] P  R T$ . V  B@ B@B. 'z  .!0 .!0 * .!2A@&khi`    @]`.X w Set myResult = GetRes("SELECT ID FROM dbo.T_ProgressNet WHERE receiptNo ='" & myReceiptNo & "' AND type=" & myType)3SELECT ID FROM dbo.T_ProgressNet WHERE receiptNo ='  '$\ .X X !d ȂɂqbgȂ0' X !d e1ƒqbgIDԍID X %` !x'd1ˆȏqbg-1iG[j'k.X zx p .!0 .!0 * .!2A@&k8i0 ']] ]8 aID7T$aID7TaID' aID7T' kcID7T$cID7T ,cID' ,cID7T' kkind7T$kind7T ,kind' ,kind7T' k type7T$type7T ,type' ,type7T' k8 receiptNo7T$ receiptNo7T ,receiptNo' ,' receiptNo7T'' k receiptDate7T$ receiptDate7T ,receiptDate' ,' receiptDate7T./$  yyyy/mm/dd$'' k memo7T$memo7T ,memo' ,'memo7T'' kp area7T$area7T ,area' ,area7T' k counts7T$counts7T ,counts' ,counts7T' k charge7T$charge7T ,charge' ,charge7T' k frequency7T$ frequency7T ,frequency' , frequency7T' kx qp INSERT INTO dbo.T_ProgressNet (  ) VALUES (  )'V V $z k 'z  .!0 .!0 * .!2A@&ki   P UPDATEȂ̂Ńkf']]'l  laID=aID7T'l l,cID=cID7T'l l,type=type7T'l l,kind=kind7T'l l ,receiptNo= receiptNo7T'l receiptDate7T$ receiptDate7T l,receiptDate=' receiptDate7T./$  yyyy/mm/dd$''ld l,receiptDate=NULL'lk l,memo='memo7T''l l,area=area7T'lcounts7T$counts7T l,counts=counts7T'ld l ,counts=0'lkcharge7T$charge7T l,charge=charge7T'ldH l ,charge=0'lk( l ,frequency= frequency7T'lqUPDATE dbo.T_ProgressNet SET l WHERE ID= 'V V $zk'zx p .!0 .!0 * .!2A@&k8i0( ].X ]SELECT ID FROM  WHERE callSign ='  %j''V V $\ .X X !d ȂɂqbgȂ0' X !d e1ƒqbgIDԍID$X ' d1ˆȏqbg-1iG[j' k.X z  .!0 .!0 * .!2A@&kix   ].X ] SELECT ID FROM  WHERE licenceNo_Head =    AND licenceNo = n'V V $\ .X X !d ȂɂqbgȂ0'( ElseIf myResult.RecordCount = 1 Then '1ƒqbgIDԍ2 InsertOrUpdateByLicenceNo = myResult("ID")d1ˆȏqbg-1iG[j'k.X z  .!0 .!0 * .!2A@&khi` @']@ ]X ]p bID' $'  aID7T$aID7T ,aID' ,aID7T' kcID7T$cID7T ,cID' ,cID7T' klicenceNo_Head7T$licenceNo_Head7T ,licenceNo_Head' ,licenceNo_Head7T' kx licenceNo7T$ licenceNo7T ,licenceNo' , licenceNo7T' kaddress7T$address7T ,address' ,'address7T'' khareaCode7T$areaCode7T ,areaCode' ,'areaCode7T- % '' kMoveArea7T$MoveArea7T ,MoveArea' ,'MoveArea7T'' kHkind7T$kind7T ,kind' ,kind7T' kpurpose7T$purpose7T ,purpose' ,purpose7T' kX issueDate7T$ issueDate7T ,issueDate' ,' issueDate7T./$  yyyy/mm/dd$'' k estabDate7T$ estabDate7T ,estabDate' ,' estabDate7T./$  yyyy/mm/dd$'' k beginDate7T$ beginDate7T ,beginDate' ,' beginDate7T./$  yyyy/mm/dd$'' k0 changeDate7T$ changeDate7T ,changeDate' ,' changeDate7T./$  yyyy/mm/dd$'' kptermDate7T$termDate7T ,termDate' ,'termDate7T./$  yyyy/mm/dd$'' kcallsign7T$callsign7T ,callsign' ,'callsign7T'' k8 productNo7T$ productNo7T ,productNo' ,' productNo7T'' kgiteki7T$giteki7T ,giteki' ,'giteki7T'' k syonin7T$syonin7T ,syonin' ,'syonin7T'' k frequency7T$ frequency7T ,frequency' ,' frequency7T'' kpower7T$power7T ,power' ,'power7T'' kmemo7T$memo7T ,memo' ,'memo7T'' kq INSERT INTO  (  ) VALUES (  )'V V $zk'z  .!0 .!0 * .!2A@&kHi@     UPDATEȂ̂Ńkf' ]0 .n]P ]h bID= $'l  l,aID=aID7T'l l,cID=cID7T'l licenceNo7T$ licenceNo7T l ,licenceNo= licenceNo7T'ld l,licenceNo=NULL'lklicenceNo_Head7T$licenceNo_Head7T l,licenceNo_Head=licenceNo_Head7T'ld8 l,licenceNo_Head=NULL'lk l ,address='address7T''l l ,areaCode='areaCode7T- % ''lMoveArea7T$MoveArea7T l ,MoveArea=MoveArea7T'ld l,MoveArea=NULL'lkkind7T$kind7T l,kind=kind7T'ld l ,kind=NULL'lk`purpose7T$purpose7T l ,purpose=purpose7T'ld l ,purpose=NULL'lk issueDate7T$ issueDate7T l ,issueDate=' issueDate7T./$  yyyy/mm/dd$''ld l,issueDate=NULL'lk estabDate7T$ estabDate7T l ,estabDate=' estabDate7T./$  yyyy/mm/dd$''ld@ l,estabDate=NULL'lk beginDate7T$ beginDate7T l ,beginDate=' beginDate7T./$  yyyy/mm/dd$''ldh l,beginDate=NULL'lk@ changeDate7T$ changeDate7T l ,changeDate=' changeDate7T./$  yyyy/mm/dd$''ld l,changeDate=NULL'lkh termDate7T$termdate7T l ,termDate='termDate7T./$  yyyy/mm/dd$''ld l,termDate=NULL'lk l ,callsign='callsign7T''l l ,productNo=' productNo7T''l l,giteki='giteki7T''l l,syonin='syonin7T''l l ,frequency=' frequency7T''l l,power='power7T''l l,memo='memo7T''lqUPDATE  SET  l WHERE ID= 'V V $zk' z x .!0 .!0 * .!2A@&k@i8 ] .nUPDATEk͔fȂ]( ]@ bID= $'l]X ]p   l,aID=aID7T'l l,cID=cID7T'llicenceNo_Head7T$licenceNo_Head7TlicenceNo_Head7T' d'zk licenceNo7T$ licenceNo7T licenceNo7T'ndh'zXkPaddress7T$address7T l ,address='address7T''ld4 myString = myString & ",address=" & "''"kareaCode7T$areaCode7T l ,areaCode='areaCode7T- % ''ld5 myString = myString & ",areaCode=" & "''"kMoveArea7T$MoveArea7T l ,MoveArea=MoveArea7T'ld@2 myString = myString & ",MoveArea=NULL"kkind7T$kind7T l,kind=kind7T'ld. myString = myString & ",kind=NULL"k`purpose7T$purpose7T l ,purpose=purpose7T'ld1 myString = myString & ",purpose=NULL"k issueDate7T$ issueDate7T l ,issueDate=' issueDate7T./$  yyyy/mm/dd$''ld3 myString = myString & ",issueDate=NULL"k estabDate7T$ estabDate7T l ,estabDate=' estabDate7T./$  yyyy/mm/dd$''ld3 myString = myString & ",estabDate=NULL"k beginDate7T$ beginDate7T l ,beginDate=' beginDate7T./$  yyyy/mm/dd$''ld3 myString = myString & ",beginDate=NULL"k?termDate7T$termdate7T l ,termDate='termDate7T./$  yyyy/mm/dd$''ld ?2 myString = myString & ",termDate=NULL"k>callsign7T$callsign7T l ,callsign='callsign7T''ld`>5 myString = myString & ",callsign=" & "''"k> productNo7T$ productNo7T l ,productNo=' productNo7T''ld=6 myString = myString & ",productNo=" & "''"kH=giteki7T$giteki7T l,giteki='giteki7T''ld<3 myString = myString & ",giteki=" & "''"k<syonin7T$syonin7T l,syonin='syonin7T''ld<3 myString = myString & ",syonin=" & "''"k; frequency7T$ frequency7T l ,frequency=' frequency7T''ld@;6 myString = myString & ",frequency=" & "''"k:power7T$power7T l,power='power7T''ld:2 myString = myString & ",power=" & "''"k@:memo7T$memo7T l,memo='memo7T''ld91 myString = myString & ",memo=" & "''"k9q9 UPDATE dbo.T_Hokatu SET l WHERE licenceNo_Head=   AND licenceNo = n'V V $z9k8'z8 8 .!0 .!0 * .!2A@&k8i8 8] 2SELECT * FROM dbo.T_ProgressNet WHERE receiptNo ='  ''V ]0 .X V $\ .X ]P . X !Ntԍ‚܂BA@&. .z7 X !d  e#tԍ2ˆȏo^Ă܂BA@&. .z87k07 type X %` !xtypeC@b frequency X %` !x frequencyC@barea X %` !xareaC@b receiptNo X %` !x receiptNoC@b receiptDate X %` !x receiptDateC@baID X %` !xaIDC@bcID X %` !xcIDC@bcounts X %` !xcountsC@bcharge X %` !xchargeC@bmemo X %` !xmemoC@bqp5 .zX5 P5 .!0 .!0 * .!2A@&k5i5 p 4]0 .X ]P SELECT COUNT(*) FROM   WHERE   = ' ''V V $\ .X X %` !x' X B@B.X z04 (4 .!0 .!0 * .!2A@&k3i3h 3aIDԍ擾'] 6SELECT * FROM rmkstationCenter.dbo.T_Agent WHERE ID =  'V ].X V $\ .X X !d  Y㗝l܂BA@&z2 X !d  e,̑㗝lY܂BmFĂBA@&z2 X !d ememberNo X %` !xmemberNo X %` !x$2㗝lԍo^Ă܂BmFĂBA@&z1d1memberNo X %` !x'z1k1k1 X B@B.X z1 1 .!0 .!0 * .!2A@&kP1iH1  (1' z1k1typeƂɎtԍ擾] KKKKKKKKKKKK K)KT:(type = 1 OR type = 2 OR type = 3 OR type = 4 OR type = 5 NOR type = 21 OR type = 22 OR type = 23 OR type = 24 OR type = 25 OR type = 26 'OR type = 31 OR type = 32 OR type = 41)' KKK K K K KGKHKIKT;(type = 6 OR type = 7 OR type = 8 OR type = 9 OR type = 10 AOR type = 11 OR type = 12 OR type = 71 OR type = 72 OR type = 73)' S.n.].X ]$SELECT receiptNo FROM T_ProgressNet WHERE    ORDER BY receiptNo DESC'V V $\ .X X !N'd. receiptNo X %` !x % receiptNo X %` !x$  receiptNo X %` !x$ $ 0000$' X %` !x % e receiptNo X %` !x$  receiptNo X %` !x$ $ 0000$'k,k, X B@B.X z, , .!0 .!0 * .!2A@&k`,iX,    8,].X ]1SELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent WHERE [memberNo] =    AND [bID] = 'V V $\ .X X %` !x' X B@B.X zP+ H+ .!0 .!0 * .!2A@&k+i+  *' ].X ]1SELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent WHERE [memberNo] =    AND [bID] =  AND [ID] = 'V V $\ .X X %` !x' k) X B@B.X z) ) .!0 .!0 * .!2A@&k)ix)  P)]#SELECT * FROM rmkStationCenter.dbo.  WHERE [bID] =   AND [name] =' " ''V $  V AND [ID] = 'V k(].X V $\ .X ]]. X !N'. . z(k( X !d ' X !Na. ID X %` !xIDC@bmemberNo X %` !xmemberNoC@bname X %` !xnameC@bnameKana X %` !xnameKanaC@b president X %` !x presidentC@b president2 X %` !x president2C@bpresidentNameKana X %` !xpresidentNameKanaC@bpresidentNameKana2 X %` !xpresidentNameKana2C@bperson X %` !xpersonC@b postalCode X %` !x postalCodeC@baddress X %` !xaddressC@b addresskana X %` !x addresskanaC@bareaCode X %` !xareaCodeC@btelNo X %` !xtelNoC@b telNoPack X %` !x telNoPackC@bfaxNo X %` !xfaxNoC@bemail X %` !xemailC@bmemo X %` !xmemoC@bqx$  B@b X B@f P$ . z8$ 0$ .!0 .!0 * .!2A@&k#i#   ( #UPDATEȂ̂Ńkf'$ ].n] $']]   l memberNo=memberNo7T'l l,name='name7T''l l ,nameKana='nameKana7T''l l ,president=' president7T''l l ,president2=' president27T''l l,presidentNameKana='presidentNameKana7T''l l,presidentNameKana2='presidentNameKana27T''l l,person='person7T''l l ,postalCode=' postalCode7T''l l ,address='address7T''l l ,addressKana=' addressKana7T''l l ,areaCode='areaCode7T''l l,telNo='telNo7T''l l,faxNo='faxNo7T''l l,email='email7T''l l,memo='memo7T''lqp UPDATE rmkstationCenter.dbo.  SET  l WHERE [ID]=  AND [bID]= 'V V $zk'$ z  .!0 .!0 * .!2A@&ki   8 `'& ].n]]]0bID' $'  memberNo7T$memberNo7T ,memberNo' ,'memberNo7T'' kxname7T$name7T ,name' ,'name7T'' knameKana7T$nameKana7T ,nameKana' ,'nameKana7T'' kx president7T$ president7T ,president' ,' president7T'' k president27T$ president27T ,president2' ,' president27T'' kPpresidentNameKana7T$presidentNameKana7T ,presidentNameKana' ,'presidentNameKana7T'' kpresidentNameKana27T$presidentNameKana27T ,presidentNameKana2' ,'presidentNameKana27T'' kperson7T$person7T ,person' ,'person7T'' k` postalCode7T$ postalCode7T ,postalCode' ,' postalCode7T'' kaddress7T$address7T ,address' ,'address7T'' k@ addressKana7T$ addressKana7T ,addressKana' ,' addressKana7T'' kareaCode7T$areaCode7T ,areaCode' ,'areaCode7T'' k telNo7T$telNo7T ,telNo' ,'telNo7T'' kfaxNo7T$faxNo7T ,faxNo' ,'faxNo7T'' kemail7T$email7T ,email' ,'email7T'' kmemo7T$memo7T ,memo' ,'memo7T'' kq!INSERT INTO rmkstationCenter.dbo.  (  ) VALUES (  )'V zk V $> '& z  .!0 .!0 * .!2A@&kxip h H]X#SELECT * FROM rmkStationCenter.dbo.  WHERE [bID] =   AND [name] =' ''V $  V AND [ID] = 'V k]p.X V $\ .X ]]. X !N'. .zk X !d ' X !Na. ID X %` !xIDC@btype X %` !xtypeC@bname X %` !xnameC@bnameKana X %` !xnameKanaC@b president X %` !x presidentC@b president2 X %` !x president2C@bpresidentNameKana X %` !xpresidentNameKanaC@bpresidentNameKana2 X %` !xpresidentNameKana2C@bperson X %` !xpersonC@b postalCode X %` !x postalCodeC@baddress X %` !xaddressC@b addresskana X %` !x addresskanaC@bareaCode X %` !xareaCodeC@btelNo X %` !xtelNoC@b telNoPack X %` !x telNoPackC@bfaxNo X %` !xfaxNoC@bemail X %` !xemailC@bmemo X %` !xmemoC@bqx  B@b X B@f P .z8 0 .!0 .!0 * .!2A@&k i     'd]x.n] $']]]bID' $'  type7T$type7T ,type' ,type7T' k name7T$name7T ,name' ,'name7T'' kp nameKana7T$nameKana7T ,nameKana' ,'nameKana7T'' k president7T$ president7T ,president' ,' president7T'' kX president27T$ president27T ,president2' ,' president27T'' k presidentNameKana7T$presidentNameKana7T ,presidentNameKana' ,'presidentNameKana7T'' k presidentNameKana27T$presidentNameKana27T ,presidentNameKana2' ,'presidentNameKana27T'' kX person7T$person7T ,person' ,'person7T'' k postalCode7T$ postalCode7T ,postalCode' ,' postalCode7T'' k8address7T$address7T ,address' ,'address7T'' k addressKana7T$ addressKana7T ,addressKana' ,' addressKana7T'' kareaCode7T$areaCode7T ,areaCode' ,'areaCode7T'' ktelNo7T$telNo7T ,telNo' ,'telNo7T'' kfaxNo7T$faxNo7T ,faxNo' ,'faxNo7T'' kemail7T$email7T ,email' ,'email7T'' kmemo7T$memo7T ,memo' ,'memo7T'' kqx!INSERT INTO rmkstationCenter.dbo.  (  ) VALUES (  )'V zk'dz  .!0 .!0 * .!2A@&ki    UPDATEȂ̂Ńkf'f].n] $']]  ltype=type7T'l l,name='name7T''l l ,nameKana='nameKana7T''l l ,president=' president7T''l l ,president2=' president27T''l l,presidentNameKana='presidentNameKana7T''l l,presidentNameKana2='presidentNameKana27T''l l,person='person7T''l l ,postalCode=' postalCode7T''l l ,address='address7T''l l ,addressKana=' addressKana7T''l l ,areaCode='areaCode7T''l l,telNo='telNo7T''l l,faxNo='faxNo7T''l l,email='email7T''l l,memo='memo7T''lqH~ UPDATE rmkstationCenter.dbo.  SET  l WHERE [ID]=  AND [bID]= 'V V $z}k}'fz} } .!0 .!0 * .!2A@&k`}iX}P}   P* 0}'> ]X P  R T$ . V  B@]x.X SELECT @@IDENTITY AS [NEW_ID]  %.X NEW_ID$X ' B@B. '> zX| P| .!0 .!0 * .!2A@&k|i| V $> } * .!2A@&k`}iX}P}   P* 0}'> ]X P  R T$ . V  B@]x.X SELECT @@IDENTITY AS [NEW_ID]  %.X NEW_ID$X ' B@B. '> zX| P| .!0 .!0 * .!2A@&k|i| V $> {۶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 9t 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 }iiByLiceNok& _HeadacInteger,Mp&n*pCch c?m?m5mlul@!^=!d& AND  $FcBqqaq =s'?sBb?99@;o: o:o:  y; ;;s;fqcoƍo;o; & o;DBoollle q7CoB ooleaЀ /pes%pDB`ql0u<#w129eb10"b[k2#`jBIDjDatabaseR?q {! 3NoaaH@T/0 `>,q zwId1O ѵN cO 0qO 1O H O f S  ng1q,,_ _ M8 Cc")o o +e3 W ?   addɬ V o o a RE22'"areaCodg 5 V@Rep0laceW, "-"@`"u_mf_"MoveAP ,g__\_[Fng2 & ",'"`.Item("MoveArea")'"  End If "" ThenYmyString1 =  K,2,8"purpose]? 0_`;,bissueDat c 0dG2Format(Repla ce", "."/")@y`/mm/destab?0?G=??""@e (@productNo?. _/ 8 Y/.giteki E o!a QɍVsyoni&E  썤  ay V  } frequency,x  ? ? ? = power 4   } 5? ? = memm?#      y0With`:QL`G"INSERT INTO cDATABAS ENAMEC (a=) VALUES ("H)ǰDBExe`cute(5)A@FalseExit FunctioƙIns ertDBTr ue < ErrMes: 0.Numbe r10LMsgBox H& vb0CrLfQDescrip? ҁ Public  Upd@DB( _ByValA0ColleB (As ,IDaLongs Boolea OnQ or pGoTope'UP@EȂŃkf SDim cPAclsPapersSetq= New !%v= "bID=A&GetBID"abase)s+_c15h&a$D~"_ Qc[Y$PY~ex@10 g=7,R$ BceNo") ElsehmyString = (& ", licen=NULL"nd IfIf Not IsNull(.Item("z_Head")) A6 <> "" ThenV"]=" & ?ZO|.ad dressN"'Q ")Z P$reaCode%VBA.Repl(acea"), "-"0jMoveA ig,fdFkinM.6 514B13purpose kF4$? φ issueDat̘f"qForpmat( h g.!h/iy/mm/dHmvA_#O#estabP#_#L#f^# _#?a_#E#_#O#beginP#_#L#f^# _#_#_#O# chang5("d hg/,<5yO5#_]term#"adbH Q>FFFsf_Ztallsign{h t|cυproductNogitekisssyoni "ssfrequ}y/ powerb__Smem"Q;E Withs~QL"UPDA(TE cABASENAME!@p SET/ WHERE IDa myIDs@DBExecute(H)NFaȌExit Funpctio %Up9DBTru< ErrM`es: 6.@NumberA=0LMsgBox H& vbCrLfQDescr "" The\=m 8saddress m l@StringmBy& ",=" 'z) |' (=9 '"erareaCode ;o;;VBA.Replace , "-"")GsA AMoveAAAA{29NULL-zkindC?,N?0cB purposVl$ ?0 issueD5 fB"Format(,s r.As/")@y/mm/d?H_u'#o#estabp##l#f~# #C '#o#begin^"xT eg1,|#X#s#un term"ag# B444ptvoomcallsignFg#ShoH*zr2U,~ZproductNox//F!)?iOOO, __giteki,EP,oojsyoni,Eoojooooaoojfrequy xi//?/! __Zpower4r___QmemmI# yString = m& ",memo=" P'.Item("T")T Else 'O'"nPd IfE W8ith KQL"UPDATE dbo.T_Hokatu SET v_: WHERE licenceNo _HeadmyL AND 2If DBExecute(%V)Fa ThenHExit Functio yUpdat0eDBBM$Trug  Er`rMes:F.Number <> 0>MsgBox & vb0CrLfuADescrip'@f1.Pub@TF2 GetDataFromProgress(SByVal myReceNo As t\)Colle!E On(or` GoTo8 9DimSF`@N"SELECT * FROMč(NetrF&=B*& "A Result-ADODB.6@ordset SA = New P C=IMMCCC'.EOFD"tԍ‚܂Bw1othC C3myMqd i#.Coun t > 1>2ˆȏo^Ă__A]_}AY .Add@CM.Fields("type").iue, -Asfrequ`ygarea}ig„I=aIDI{=c*>aOs charg c&?chgrm$es7(ce eeeAoe{eCheckDBdTable!Psd,f3 h4rhLongfhesh9!]tO`blqllCOUNT(*)SmÏj4mSsQ=~ m E3\ =|h NuI0$I5 Clo <N9bOE'^ooo 3o RMemNo>(AID!##($38'Ju "v擾i"w""ArmkstaahCenter.3Ag# = ߓ#.tq`J&o~="Y㗝l(0 q&viO"UR@mFt ec0= "> ar*5i1 " Or IsNullpcƄ )l5#\"H/Qb&@/oporQ>5ֹJ3Jsr# Hrrr ?tNext+cOs+УA MMsgBox & vb0CrLf8Dexscr0zP ublic C@heckMeNdo(%ByBgBID!tInteg8er,aLongߊ@'*ߊ"e0ӊCOUNT(*) rmksta 1yCer.dbo.T_Ag=FR CF[m]0:")my&& HAND [bIDR<%;Od5'B55S) )))f (') )))))ByID))+)+j+Boolea0rxJ Fat-rn-#Gqȩ-"r---+"-Px-Ϗ-//IDc \(..P/.3^@1\c= Tru&s[111 [ ϟ1111 [DataFrom?I1-O[3]BNa&mø1ReCoLunMOpRalaS3CollBh/4)4o-6o-e-*ZS,UcAGENTDBNAMEj)[XԡmF+npZ'ZG'T@Not I sNullZIDh) A`mI_{ 0w;=V2 qQs +QmOP,D_84_8T87 Allo a kC 0@my)= 03 ; @ 0 TheM sgBox& vbCrLf &Descript Public& Update( _4By ʦAsEH, ID L(ong!)Boolea@ OnAor GoToA)'UPDATEȂ̂Ńkfc,False@Dim cPA clsPapers3= KAmyBInteg3= ;(my;base) mySQLStri#r gC$ & [bo=".Item"//pvg",qn"'o)'2?71cqdw4 ,f"ݟ y2i ukof% s_ "?r/ 0bu__RVsu__!,$p(a1u Vwrrb   Bs_tt_su__RuO#w?CgvI Q= "s] rmk0aiCprer.dbo.QIcAGENTDBNAMEdAM( SET 1AWHERE [ID] my`\juAND [b\ uDBExecute]v\)%e;v{ E;iTr~u$il~fo~o~ ?Ho~o~a o~k~Inserto~th~Refso~o~m~_|_| _|w~S|xgCu1 O2&1 "`$dre2`sO~'Not IsNull(|l") <> "" Then myStrin g1 = ,& ",member(No"2`2 `'" .Item("x)4'C@End IfSIf Not Is Null(>name")) A,? 0KaB_Kanaa ceDjcpresident 4p4G4425y52r5A5N|  8τq'+m ;aersonW::CpostalCodppadd s 4?.ew ?y=yE"? ԆQ, щφɆG rea'"af_ _ / / ?a*  tel 4 o o m 5? ? = fax> 4? ? < ? ? = 5? ? = email?4? ? < ? ? = 5? ? = o, #      q0WithFQL T"INSERT INTO rmkftionCer.dbo.cAGENTDBNAME _W 9@ (L ) VALUES (6 RW)DBExecuteGetID(x ,ID) FalseExit F8unc InsertAg 0True4k ErrMes:   .Num 0|MsgBox H& vb0CrLfQDescripo ځ' Public6  DataFromCli (E ByValBID As Integer,SQGQHRef0Count_ O" rcLong!ps Colle! Onor GoTo Dim`S% "SELECT * FRObM'Sta'C,LI'4&%WHERE [bIDf]!pmyApND [cmyhҴ If Not IsNull(myID) And H <> 0 Then mySQLString =& " AND [ID] =", &rEIfD Dim6Result As ADODB.Recordset$Set$= New"'GetX)OzCollection?AllP 'S (myw.EOFCount0?.oth xDataFromClie$ myKExit Fun~ fCmyE$-gDo UntilhA6/PSF Wxith@ M. AdAOFields("ID").Value, G typeH  nam  KanapresidtKj22"N f? ("E Aperspe?ﰶ ErrMes:͠.NumberMsgBox & vbCrLfzQDescriptq#a0|cPublicd Inser"th( _By] Z dv!,R$efIDyLo s Boolea On or GoTotFalLseC!cPqclsPaBspiSBIntegerCmyQ<= `wbaseTGЍÒ1! 2pT= "bo? 5 v֜#؟.Item c  126 122w   ߠ7~"Kx   / / - ? ? 4@Zo_ _ _ Þ2\_'ng_'   Ħ?¨___SV?? ,i)???<?___[2?G8oe 1>FG9q9))j And .Item("person") <> "" Then  myString1 = ,& ",t\2\2 \'" '"AEIfIf Not I@sNull(kaddress j h1g2Kana3?C456reaPaq54G3telNo4d?#eofaxndn#oeoemail0dn#oeomemMIC?.$With  QL"INSERT INT O rmktionCenter .dbo.AcCLIENTDBN`AME _ (!1) VALUES ( i)DDBExecuteGePtID(,ID)FalseLExit Func!cInsertCli` 0TrueD{ ErrMes: .Numbe rA0MsgBox H& vb0CrLfPQDescrip ~7 PublicF Update3 (ByVal Colle As ,ID0Longs @Booleap  On or G8oTo'UPDATEȂ̂Ńkf eDim cPclsPFasSetq=` New !myB I&gersCS= ! !Database)S,,B 10#I u,a,type=,Ę]"oC&nams"yQY,q{/~}pid0 g &2N`/ %e_ "V 22ş)!:p  s $#0 4 x2-|R  __#F1„_?_X}O~}gQ= "]/}/}a/} SET{ WHERE [IdD] my[AND [b0\SV~~/~ /~ )~h/~ dErrMes:  If .Number <> 0 Th enpMsgBox & vbC rLf &*DescriptiojEnd If!Func6 N ll0prN ll0prN ll0prN ll0 prN ll0 prN ll0 prN ll 0 prN+'' ',:\!NLL 6L, pr/krpz/$   ll'' ',   l# *#  , l*FL 2)6L, / ,\lt0 L, AHl CtlCplCllCh-K%d$ flh*#P*#Dll*#T*#H&lt*#`'*#\lp*#X(*#Ld$ P2`\XTPLHD dVx/$< @@  l<@;l'''< @@  l<#` *#X\ 88 , l\*F( 2`X\)@86(/ ltH<$xhtdplD`\XTPLHD@8( l Ct-Klvvvv,Qlp )hpVlh (*l$'H%ltFX%h * lhx/$D ll  lDll'''D ll  lD#@ *#48 << , l8*F$ 2@48)l<6$/ 4xhpt0 @84l<$pl CtKypzlvvvv,Qlp#l'Lltp$ @l5L p$ < c=ppz/$H ll  lHl l'''(H ll  lH#D *#8< @@ , l<*FL 2D8<)l@6L(/ ,pt0 D<8l@L(l CtKpzlvvvv,Qlp#l'Lltp$ @l5L )H,l'L+p$ @ll=,Hl5L;LD:\-%lH T*l (.D 4/L")lD5L p$ < c=ppz/$@ ll  l@lyl'''$@ ll  l@#< *#48 DD , l8*FL 2<48)lD6L$/0Hpt0 <84lDL$xl CtK )p(d0lt*#l1*#h0Qdp2lh`p h*l`d qx`p h*l`;<L:P2%dp T*d (.L 4/<"qx)dL5< qx c=,p/$` dd  l`dkl'''(` dd  l`#l *#8h LL , lh*F< 2l8h)dL6<(/x,pt0 lh8dL<( l tKpz ltd^4:T3NDDd 44 5:$3Nd 4:]<'6 D43Cl&4:T3NDDd 44`1h6D4^4:T6NDDd 44 5:$6Nd 4:]<'6 D4N ll7*1l8lh8*F4:T6NDDd 44`1h6D4^4:T9NDDd 44 5rU '0( .I^%$ a yA% E) ,Fp9qqqArrsQss tattu .-٨yayɪ^Q Z{i!yuIq!a& }!Haٯѫѧٓ 9qAIٲ1aɳ AyAѵ1!I A!Yɹ1i!Y I)aѽ1a!Iq aAI!a Y1qAy9 yYi y)) yyy|~{ IA q9q iAy1qY Q 9i9yQ i!Qq I](.(@49)a) &W&&&&W&&&&W&&&&_&&&&_&&&&_&&&&_&&&KPpzpvvvv,Qpt t$ < c=tpz/ $l pp  llp'''  *#h *#dl pp  ll#`*#\ *#X *#LP TT , lP*F< 2hd`\XLP)pT6</ / (t@ hd`\XPLpT<-KCx tdhl+rt l |h 4ldq`)lhl`+''' :PN@@ 6@ / l`Cxl`Cxl`Cxl`Cxl`Cxl`1Cxl`JCxl` cCxl` |Cxl` Cxl`  Cx+''' :P!N@@ 6@ / / $d ll  ldl}l''' d ll  ld# *# hh , l*F@ 2)lh6@ / ,\xt0 lh@ 4-KCx "tpt $#>p  p lpv=/p+'''0:`$NPP 6P0/vCx/$   l(l'''0   l#p *#  , l*FP 2p)6P0/ 4,xt0 pP0\l CtK`ltCl ll0,prN ll0CprN ll0ZprN ll0qpr:$9Nd 4:]<'6 D4 ll:*1l8lh8*F4:T9NDDd 44`1h6D4^4:T;NDDd 44 5:$;Nd 4:]<'6 D4 ll<*1l8lh8*F4:T;NDDd 44`1h6D4^4:T=NDDd 44 5:$=Nd 4:]<'6 D4E ll>*1lClh?*F4:T=NDDd 44:$1`1h6 D4^4:T@NDDd 44 5:$@Nd 4:]<'6 D4H llA*1l4:T@NDDd 4BC4 D1lh?*F:$EN>F F:1`1h26D4^4:TGNDDd 44 5:$GNd 4:]<'6 D4 llH*1lClh?*F4:TGNDDd 44:$1`1h6 D4^4:TINDDd 44 5:$INd 4:]<'6 D4 llJ*1l8lh8*F4:TINDDd 44`1h6D4^4:TKNDDd 44 5:$KNd 4:]<'6 D4? llL*1l8lh8*F4:TKNDDd 44`1h6D4^4:TMNDDd 44 5:$MNd 4:]<'6 D4 llN*1l8lh8*F4:TMNDDd 44`1h6D4^4:TONDDd 44 5:$ONd 4:]<'6 D4 llP*1l8lh8*F4:TONDDd 44`1h6D4cd*Qll*#R*#lh*#S*1p2lp4k/pz/$   lzl'''4   l# *#  , l*FD 2)6D4/ 8 dtlph@ D4P l tKpzCl lth8llT*F(8:X3NHHh 48`1l6H(88llU*F(8:X6NHHh 48`1l6H(88llV*F(8:X;NHHh 48`1l6H(88llW*F(8:X9NHHh 48`1l6H(88llX*F(8:X=NHHh 48`1l6H(8^8:X@NHHh 48 5:@N((h 4:]<'6 H8(68:X@NHHh 4BC8 D1llY*F:EN>F( F:1`1l26H8(D llZ*1lMll[*#1*F(8:XGNHHh 48:1`1l/6 H(88ll\*F(8:XINHHh 48`1l6H(8^8:XKNHHh 48 5:KN((h 4:]<'6 H8(d8ll]*F(8:XKNHHh 48`1l6H(8r ll^*1l^8:XMNHHh 48 5:MN((h 4:]<'6 H8( 8ll_*F(8:XMNHHh 48`1l6H(8 ll`*1l8lla*F(8:XONHHh 48`1l6H(8ch(bll*#c*#l#*1p2lp4k/pz/$   lDl''('8   l# *#  , l*FH 2)6H8(/P4hltp@ H8(l CtK  )pEde*#hf*F8tMX@H gH(:1`1l/h68H(ll0Qpp h*l qxp h*l;H:X2%p T* (. 4/H"qx)5H qx c=,p/$   ll''('8   l#h *#  , l*FH 2h)6H8(/ 0plt0 hH8(@ )tAde*#lh*#hk #d*#`i*#\l#X*1p2 lhd`\XTlp0QTtPt h*lP qx qx MS UI Gothic,H00000}$(00000}v}k0;bY0g "u MS UI Gothic , 0X0000g "u MS UI Gothic$(0000k0zzkk0g "u MS UI GothicS G H I J K L M N O P v}k0$DX0040H0000k0zzkk0kp l m n o p  Microsoft Forms 2.0 FormEmb c=,t/$P TT  lPT5l'''P TT  lP#l *#dh LL , lh*F< 2ldh)TL6</@,tp< lhd`\XTL<( l tKpzjClfv(kf1h lt`^0:P3N@@` 40 5: 3N` 4:]<'6 @0 llk*1l8lh8*F0:P3N@@` 40`1h6@0^0:P6N@@` 40 5: 6N` 4:]<'6 @0 ll7*1l8lh8*F0:P6N@@` 40`1h6@0^0:PlN@@` 40 5: lN` 4:]<'6 @0% llm*1l8lh8*F0:PlN@@` 40`1h6@0^0:PnN@@` 40 5: nN` 4:]<'6 @0 llo*1l8lh8*F0:PnN@@` 40`1h6@0^0:PpN@@` 40 5: pN` 4:]<'6 @0x llq*1lClh?*F0:PpN@@` 40: 1`1h6 @0^0:PrN@@` 40 5: rN` 4:]<'6 @0G lls*1lc0:PrN@@` 4lh?*#t0 D#*#1*1h26@0^0:PuN@@` 40 5: uN` 4:]<'6 @0 llv*1lClh?*F0:PuN@@` 40: 1`1h6 @0^0:P9N@@` 40 5: 9N` 4:]<'6 @0 ll:*1l8lh8*F0:P9N@@` 40`1h6@0^0:PwN@@` 40 5: wN` 4:]<'6 @0> llx*1l8lh8*F0:PwN@@` 40`1h6@0^0:PyN@@` 40 5: yN` 4:]<'6 @0A llz*1l0:PyN@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:P{N@@` 40 5: {N` 4:]<'6 @0D ll|*1l0:P{N@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:P}N@@` 40 5: }N` 4:]<'6 @0G ll~*1l0:P}N@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:PN@@` 40 5: N` 4:]<'6 @0J ll*1l0:PN@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:PN@@` 40 5: N` 4:]<'6 @0M ll*1l0:PN@@` 4BC0 D1lh?*F: EN>F F:1`1h26@0^0:PN@@` 40 5: N` 4:]<'6 @0 ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0 ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0Z ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0  ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PON@@` 40 5: ON` 4:]<'6 @0 llP*1lClh?*F0:PON@@` 40: 1`1h6 @0^0:PN@@` 40 5: N` 4:]<'6 @0g ll*1lClh?*F0:PN@@` 40: 1`1h6 @0^0:PGN@@` 40 5: GN` 4:]<'6 @0 llH*1lClh?*F0:PGN@@` 40: 1`1h6 @0c`<e*#*#ll*#R*#lh*#S*1p2 flp4kfz/pz/$   ll'''0   l# *#  , l*F@ 2)6@0/O' (8 `tlphH@0 8 l tK pz pfv(kf#`*1h/` lt\8lh*F,:L3N<<\ 4, `1h6<, 8lhU*F,:L6N<<\ 4, `1h6<, ^,:LnN<<\ 4, 5 :nN\ 4 :]<'6 <, O8lh*F,:LnN<<\ 4, `1h6<, ] lh*1h^,:LlN<<\ 4, 5 :lN\ 4 :]<'6 <, 8lh*F,:LlN<<\ 4, `1h6<,  lh*1hMlh*#`1*F,:LpN<<\ 4, :1`1h/`6 <, l,:LrN<<\ 4lh*#`1*#t, D#*#1*1h2 `6<,^,:LuN<<\ 4, 5 :uN\ 4 :]<'6 <, Z8lh*F,:LuN<<\ 4, `1h6<, h lh*1h^,:L9N<<\ 4, 5 :9N\ 4 :]<'6 <, 8lhW*F,:L9N<<\ 4, `1h6<,  lh*1h^,:LwN<<\ 4, 5 :wN\ 4 :]<'6 <, 8lh*F,:LwN<<\ 4, `1h6<,  lh*1h^,:LyN<<\ 4, 5 :yN\ 4 :]<'6 <, ,:LyN<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:L{N<<\ 4, 5 :{N\ 4 :]<'6 <, ,:L{N<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:L}N<<\ 4, 5 :}N\ 4 :]<'6 <, ,:L}N<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:LN<<\ 4, 5 :N\ 4 :]<'6 <, ,:LN<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,  lh*1h^,:LN<<\ 4, 5 :N\ 4 :]<'6 <,  ,:LN<<\ 4BC, D1lh*#`1*F:EN  >F F:1`1h2`6<,   lh*1hMlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlha*#`1*F,:LON<<\ 4, :1`1h/`6 <, Mlh*#`1*F,:LN<<\ 4, :1`1h/`6 <, Mlh[*#`1*F,:LGN<<\ 4, :1`1h/`6 <, c\:e*#`*#lh*#c*#l#*1l2 `fll4kf /pz/$   l- l' '',   l#` *#  , l*F< 2`)6<, /48 8 \phtlH`<, D l tK pfv(kf#`*1h/` ltT8lh*F$:D3N44T 4$`1h64$8lhU*F$:D6N44T 4$`1h64$^$:DlN44T 4$ 5:lNT 4:]<'6 4$6&$:DlN44T 4$Up^64$Gpz/^$:DnN44T 4$ 5:nNT 4:]<'6 4$'$:DnN44T 4$"qX64$pz/^$:DpN44T 4$ 5:pNT 4:]<'6 4$Mlh*#`1*F$:DpN44T 4$:1`1h/`6 4$^$:DrN44T 4$ 5:rNT 4:]<'6 4$cl$:DrN44T 4lh*#`1*#t$ D#*#1*1h2 `64$e^$:DuN44T 4$ 5:uNT 4:]<'6 4$8lh*F$:DuN44T 4$`1h64$^$:D9N44T 4$ 5:9NT 4:]<'6 4$8lhW*F$:D9N44T 4$`1h64$^$:DwN44T 4$ 5:wNT 4:]<'6 4$:8lh*F$:DwN44T 4$`1h64$<^$:DyN44T 4$ 5:yNT 4:]<'6 4$?$:DyN44T 4BC$ D1lh*#`1*F:EN>F F:1`1h2`64$A^$:D{N44T 4$ 5:{NT 4:]<'6 4$D$:D{N44T 4BC$ D1lh*#`1*F:EN>F F:1`1h2`64$F^$:D}N44T 4$ 5:}NT 4:]<'6 4$I$:D}N44T 4BC$ D1lh*#`1*F:EN>F F:1`1h2`64$K^$:DN44T 4$ 5:NT 4:]<'6 4$N $:DN44T 4BC$ D1lh*#`1*F:EN>F F:1`1h2`64$P ^$:DN44T 4$ 5:NT 4:]<'6 4$ Mlh*#`1*F$:DN44T 4$:1`1h/`6 4$ ^$:DN44T 4$ 5:NT 4:]<'6 4$ Mlh*#`1*F$:DN44T 4$:1`1h/`6 4$ ^$:DN44T 4$ 5:NT 4:]<'6 4$d Mlh*#`1*F$:DN44T 4$:1`1h/`6 4$f ^$:DN44T 4$ 5:NT 4:]<'6 4$ Mlh*#`1*F$:DN44T 4$:1`1h/`6 4$ ^$:DON44T 4$ 5:ONT 4:]<'6 4$ Mlha*#`1*F$:DON44T 4$:1`1h/`6 4$ ^$:DN44T 4$ 5:NT 4:]<'6 4$z Mlh*#`1*F$:DN44T 4$:1`1h/`6 4$| ^$:DGN44T 4$ 5:GNT 4:]<'6 4$,Mlh[*#`1*F$:DGN44T 4$:1`1h/`6 4$.cTAlh*#`*#k^#*#i*#lX#*1l2 `fll4kf/pz/$x ||  lx|8l'''$x ||  lx#` *# tt , l*F4 2`)|t64$/ D8 TphtlL`|t4$, l Ct-Klt*#l1*1p/l )hdlp0Qdh `^h P*k^+''':LN<< 6< c=4` l`x/h h*l+''':LN<< 6< c=4` l`x/ l`W<:L;%dh T*d (. 4/'':,;N< 4)d6<W<:LO%dh T*d (. 4/'':,ON< 4)d6<W<:LI%dh T*d (. 4/'':,IN< 4)d6<W<:L=%dh T*d (. 4/'':,=N< 4)d6<W<:L@%dh T*d (. 4/'':,@N< 4)d6<W<:L3%dh T*d (. 4/'':,3N< 4)d6<W<:L6%dh T*d (. 4/'':,6N< 4)d6<W<:LK%dh T*d (. 4/'':,KN< 4)d6<W<:LM%dh T*d (. 4/'':,MN< 4)d6<W<:LG%dh T*d (. 4/'':,GN< 4)d6<c l`x/$ dd  ldl''' dd  l#l *#  , l*F< 2l)d6</1h ,<$xh`tp0 ld<dl CtlCplClK )h<lt*#`*#\lp*#X*#Tll*#P1*1d2 `\XTPLld0QLh;(8(<%Lh T*L (.8 4/("qx)L85( h * c=,h/$$ LL  l$LXl'''$ LL  l$#` *#X\ 88 , l\*F( 2`X\)L86(/ d8 hptld8 `\XTPL8(-KCxl #p*1t/p )lhlt0Qhldl h*ld+'''$:TNDD 6D$/dl h*ld+'''$:TNDD 6D$/dl h*ldD:T%hl T*h (. 4/D:4]/$:%l T* (. 4/ 5)h6D+'''$:TNDD 6D$/:D:T%hl T*h (. 4/D`1x)h5D/ l * c=,l/$d hh  ldhl'''$d hh  ld#p *#  , l*FD 2p)h6D$/ 0xlt8 phD$-KCx k $/k prkrkrkrkrkrkrkrkrkrkrkrkrkr kr)*#l*1t/l4\kr#kr#kr#kr #kr #kr #kr #krG#krH#krI2 *1t4 )h!*#llt*#`*1d2l`\ld0Q\hZh P*kZCxP4D:H=%\h T*\ (.D 4/4$ $(]3)\D64$4D:H=%\h T*\ (.D 4/$:=%h T* (. 4/$` # t4l F:Nok F`1x2l`)\D64$P4D(H%\h T*\ (.D 4/4$ $( ]3)\D64$4D:H=%\h T*\ (.D 4/$:=%h T* (. 4/$` # t4l F:Nok F`1x2l`)\D64$ h * c=,h/$ \\  l\l'''$ \\  l#l *#` DD , l`*F4 2l`)\D64$/ 4xxhdtDl`\D4$LK )t8*#ll#h*#d*#`k #\*1p2 lhd`\Xlp0QXt;4D(H%Xt T*X (.D 4/4"qx)XD54 t * c=,t/$0 XX  l0XBl''' 0 XX  l0#l *#dh DD , lh*F4 2ldh)XD64 /L,tp8 lhd`\XD4 |Kpz )tQ*#ll#h*#d*#`k #\*#X*#Tl#P*1p2lhd`\XTPLlp0QLtA(8(<%Lt T*L (.8 4/((]3)L85(pz t * c=,t/$ LL  lLql''' LL  l#l *#dh 88 , lh*F( 2ldh)L86(/d|,tpDlhd`\XTPL8(@ lCt-KC*#l*#hk #d*#`*#\lt*#X1*1p2 lhd`\XlMH@ 5Àlp*#l#h*1p2lh )D@lp0Q@D 86D P*k6 c=48 l8x/0D h*l06D P*k6 < l<,W(:H2%@D T*@ (.( 4/'':2N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hp%@D T*@ (.( 4/'':pN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hr%@D T*@ (.( 4/'':rN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:HG%@D T*@ (.( 4/'':GN, 4)@(6c,7'''l<@@MH @8 4l@=4<@6 D * l8x/$0 @@  l0@3l'''0 @@  l0#l *#dh (( , lh*F 2ldh)@(6/@@(x,D8<tp< lhd`\X@( l tKpz plv(klpn lt`8ld*F 0:PN@@` 40`1d6@ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PpN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PrN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld[*# 1*F 0:PGN@@` 40:1`1d/ 6 @ 0c`S*# *#ld*#*#l#*#*#kn#*1h2 llh4kln/pz/$   ll'' '0   l#  *#  , l*F@ 2 )6@0 /8 `pdthH @0  D l tK pz pjChbv(kb1d lt\^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, O lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, \ lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,   lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, i lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LpN<<\ 4, 5:pN  \ 4:]<'6 <,  lhq*1hCld?*F ,:LpN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LrN<<\ 4, 5:rN  \ 4:]<'6 <, v lhs*1hCld?*F ,:LrN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, % lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  lh*1hCld?*F ,:LN<<\ 4,:1`1d6 < ,^,:LGN<<\ 4, 5:GN  \ 4:]<'6 <, 2 lhH*1hCld?*F ,:LGN<<\ 4,:1`1d6 < ,c\<*#*#lh*#R*#ld*#S*1l2 blll8kb /pz/$   l: l'' ',   l# *#  , l*F< 2)6<, /D <$\pthld@ <, @ lCt-KC*#l*#hk #d*#`*#\lt*#X1*1p2 lhd`\XlMH@ 5Àlp*#l#h*1p2lh )D@lp0Q@D 86D P*k6 c=48 l8x/0D h*l06D P*k6 < l<,W(:H2%@D T*@ (.( 4/'':2N, 4)@(6W(:H;%@D T*@ (.( 4/'':;N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hp%@D T*@ (.( 4/'':pN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:Hr%@D T*@ (.( 4/'':rN, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:H%@D T*@ (.( 4/'':N, 4)@(6W(:HG%@D T*@ (.( 4/'':GN, 4)@(6c,7'''l<@@MH @8 4l@=4<@6 D * l8x/$0 @@  l0@3l'''0 @@  l0#l *#dh (( , lh*F 2ldh)@(6/ @@(x,Dt8<p< lhd`\X@( L l tK pz plv(klpnjCdlv(kl1` lt\^,:L;N<<\ 4, 5:;N  \ 4:]<'6 <,  ld<*1d8l`8*F ,:L;N<<\ 4,`1`6< ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, W ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, d ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, q ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LpN<<\ 4, 5:pN  \ 4:]<'6 <,   ldq*1dCl`?*F ,:LpN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LrN<<\ 4, 5:rN  \ 4:]<'6 <, ~ lds*1dCl`?*F ,:LrN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <, - ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LN<<\ 4, 5:N  \ 4:]<'6 <,  ld*1dCl`?*F ,:LN<<\ 4,:1`1`6 < ,^,:LGN<<\ 4, 5:GN  \ 4:]<'6 <, : ldH*1dCl`?*F ,:LGN<<\ 4,:1`1`6 < ,c\<*#*#ld*#R*#l`*#S*1h2 lllh8kl /pz/$   lB l'' ',   l# *#  , l*F< 2)6<, /L <$\ptdh`@ <,  l tKpz plv(klpn lt`8ld*F 0:P;N@@` 40`1d6@ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PpN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PrN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld*# 1*F 0:PN@@` 40:1`1d/ 6 @ 0Mld[*# 1*F 0:PGN@@` 40:1`1d/ 6 @ 0c`S*# *#ld*#*#l#*#*#kn#*1h2 llh4kln/pz/$   ll'' '0   l#  *#  , l*F@ 2 )6@0 / 8 `pdthH @0      -A!Yy=0A&`1=,&`5#0&` 9(#0&` = 1 (4A& `A#8& ` E#,& `IY(0 & ` MI (4I& `Q#8&` U#4&`Y#0 &`] =8I&`ay  y(,&`e 0,&`i1 00 &` m  (8I&`q  #@&`u   &=8&` y#8 &` }(#@I&` 1  &=8&` (#8&` #nrU )`!!k l Aalz{A A% 1 a%$q ||j(j(@49)a) (W(@0zP$*\Rffff*D550cc7a1c(*\Rffff*D550cc7a1c\0*\R0*#19*\R0*#1a*\R0*#13*\R0*#11*\R0*#14*\R0*#9*\R0*#f*\R0*#e*\R0*#f41   8 "X  *&0(X"x*&$, $P,x",&8(&`"$$  .(JX082JH4@,:@$ 6 : 60 2h BHzf^bpEaPn GetOpenFileNameA n <GetSaveFileNameA<;.OT|R:t*=h8+3qo.Gf%xo.Gf%;.OT|R:tRRLLME(8 SS S H( >"L<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} (  h* 0h, Hh. `h0 x h2 sterh4 Xh6 h8 h: (h< $$h> ((̃nh@ 8,,( hB P00XhD h44( hF 88xhH ::^hJ <<(hL @@TChN DD(hP HHXBV PBBZ HBB\ xBB` BBd B Bf B %+j pX )l xA %+p (p( )l A %,`p k(%%7ir Hih1i t $\@ %` ݂,`( 4k FF\ir  1i@si ݍ x $x@ %` ` ,p`4k$EEir wii x $P1@ %` 8 NX,`Do(iz ----i --`| pv,`X(kH,i~ h--i ame:`Hr` l{^`hZ%BR (BBT  BBX BB^ pBBb BBh C H pPp(x (  `  ( H @ h` xP ( x  `r t `p`r t `p`r t `p8  0 `A %  b V X \j v @x @ @   %  @ h` x0  X `r t @ `p`r t h `p `A % %`r t b V X `ph @  p   \b V X ` p @  @ @( @@  @X @ @(  .@ $& @ @ @Xt @@d @T @D A %`r t`p`r t`p@4 xXpxH0`h`x`r t `pHp`80\b V X ` p @ @ @ @  %@ @ !@ 0  %.@ X$& @ @ H@t @d @ T `z t@D @4 h`8xxP`8`z t`z tP @Pph~.`~ t#H`~ t@` H@\ 0@L @H @D 0pXh*#h`x`~ t0j @X '@H @8 @(  X  6 .8 6hH$B   Z  @@ H ` Z(    * >  PP , <   $ 0 0 X 85 0 85 * (  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[_CO1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpX$ݒ肷OPENFILENAME\^D(\̂̃TCY^D0(eEChẼnh^DH( W[̃CX^Xnh^D`( tB^[^Dx(JX^tB^[`^D(JX^tB^[̃TCY^D(tB^̃CfbNX^D(t@C̃obt@^D(t@C̃obt@̃TCY^D(tpXp̃obt@^D(tpXp̃obt@̃TCY^D (fBNgw^D8(_CO{bNX̃^Cg^DP(萔iOFNQ~~QƁj^Dh((tpX̒̃t@C܂ł̃ItZbg^D(gq܂ł̃ItZbg^D(ftHg̊gq^D(lpfnHookœnf[^^D(tbN֐̃|C^^D(ev[gp]D1t@CI”\ɂ]D (18w̃t@C݂ȂɃbZ[W{bNX\]D1݂Ȃt@C͓͕s]DP1&ǂݎp̃`FbN{bNX\]D 1 ̃TufBNgIs]DH18ǂݍݐpt@CƏ݋֎~fBNg̑Is]Dx1"t@C̗L`FbNȂ]Dp1.̃t@Cw肵ɃbZ[Wo]D1LȃpX‚]D1(ǂݎp̃`FbN{bNX`FbN]D1wv{^\]D0------------------------------------------------3ut@CJvR_CO\API֐0------------------------------------------------,<>@@@pOpenfilename:OPENFILENAME\<<߂l>@@OK{^1ALZ{^0  0------------------------------------------------(t@Cۑ_CAO{bNX\0------------------------------------------------   S----------------------------------------------------------------------------------- "֐ OpenDlg :pr ut@CJvR_CO\A nHandleFEChẼnhAnFilterFtB^[Y߂l t@CIꍇ̃t@C̃pXALZꍇ""߂S-----------------------------------------------------------------------------------]0OPENFILENAME\]0߂l t - \̂̐ݒ b V  X 9D MOr OFN_SHOWHELPh9. 0.AvP[ṼCX^X̃nhwJ .hInstance = App.hInstance 'CX^Xnhݒ9, 0eEBhẼnhwht@CJ9B 0 R_CAÕ^Cgݒ 90 0tB^[ݒ t 9* 0\̂̃TCYݒB9: 0"t@C̃obt@̃TCYݒ$$\9< 0tpXp̃obt@m۬9> 0"tpXp̃obt@̃TCYݒ$$\98 0t@C̃obt@m r 9@ 0ftHg̃tH_̐ݒq t $j ' ,LZ̏ v 'd,OK̏ t !8 'k(i    BOtĕۑ_CAO{bNXJA擾t@CԂXMLt@Cp]`]D x \̂̃TCYݒ x 9* eEBhẼnhw`9, .AvP[ṼCX^X̃nhw9. 6t@Cp^[ݒiw肷ꍇ͑ċLjXMLt@C(*.xml) *.xml ׂẴt@C(*.*) *.*90 (DIɕ\tB^̃CfbNX96 t@C̓e $ $ \98  oCg9: 3t@Cobt@̐ݒ(NullŖ߂Ăj INTO $ $ \9<  oCg9> ftHg̃tH_̐ݒ r 9@ _CAÕLvVOtĕۑ9B flags̓̐ݒ b V  X  ` 9D UPq x $p ' 0 2LZ{^ꍇiN[YEG[j'zd*ۑ{^ꍇit@C擾j x !8 x !8  % $ 'eNk  .xml $ % .xml''lkX ꉞgqƍĂSAVE $ .xml %Zo_He 'd "t@Cw肵ĉBA@&eNo_'k i   d=BOtĕۑ_CAO{bNXJA擾t@CԂeLXgt@CpreaCod]8]DXeaCode x \̂̃TCYݒ'l x 9* ea7TeEBhẼnhw9, oveAre.AvP[ṼCX^X̃nhweAre9. l6t@Cp^[ݒiw肷ꍇ͑ċLjeLXgt@C(*.txt) *.txt ׂẴt@C(*.*) *.*90 e7(DIɕ\tB^̃CfbNXe96 t@C̓ese $ $ \98 su oCg9: 3t@Cobt@̐ݒ(NullŖ߂Ăj'$ $ \9<  oCg9> ftHg̃tH_̐ݒl r 9@ _CAÕLvVOtĕۑ9B flags̓̐ݒ b V  X  ` 9D 'q x $p ' .  2LZ{^ꍇiN[YEG[j'zd*ۑ{^ꍇit@C擾j x !8 x !8  $ 'k  .txt $ .txt''kꉞgqƍĂSAVE'l $ .txt 'd"t@Cw肵ĉBA@&'k@i8pyy/mm/*t@CbNĂ邩ǂ𒲂ׂ]#t@C݂Ȃꍇɂ2Ԃte z $ ~'zk$'| rmDatep z |  5G[ȂibNĂȂjƂ0ԂmDat . | Vallsig'd1G[ibNĂjƂ1Ԃ'kiiteki=<************************************************************sy, pXt@C(gq܂)o'<************************************************************r7T]]]'H' ~ \ '_h H 'HDA ~ ~  H $'  $\ ~ ~    $'' 'd'k $j' imAttribute 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_28 __SRP_29lf,clsFormkA} O__SRP_24 (((Pl CtlCp-$q 4   T0 lpT L  5    `#T$/6 (5    `#T/6 ltT, q,$^q<$ lq l 9 CxCl@Cx/lPpXxi0 l Hlp t $i X ll kkDl CtlCp-$q L  C*#*#*#*# *# *#T 2   2lp F #*#T25  ' F #T$/5 ( ltT,  T0 4 q,$^ q<$ lq l sCx/G'd:N@M@T T(D4"l@ 1p6dT>:tNddpM@(T T(D]36dT lp*1pJlp 1:Ndd>FT T(]3/6dT_lpCx+'4'T'd:N 6dT4Cx/:HpXxi0 l@ "p Zt Yd$i 5@ l4  dT4kk8l 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/H8pXxi07 /h)pL5P kp t $i $pLPp4  tT4kkl 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 (@, lp)4,l(p)40(` Qy00A(` !Q00(` %Q0,(`)(,(`-0 knrU $@($`#,A$`! #($`%#($`)#8$`-@< zP(*\Rffff*Cp50cc7a1c\0$*\Rffff*Cp50cc7a1c$*\Rffff*D350cc7a1c*\R1*#10b$*\Rffff*D150cc7a1c*\R1*#129*\R1*#1e$*\Rffff*D<50cc7a1c*\R1*#91*\R1*#c6*\R1*#c1*\R1*#17b4 t  8 "X  B *)08 @BH `*h " "0&B- (  8 "@ "h 0 &B B /( 8edded Object9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} J҃j[ Caption = "J҃j[" ClientHeight = 3795 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'I[i[ tH[̒ TypeInfoVer = 26 End $  }3(R KQ_ MS UI Gothic ( #9MultiPage1i,'B9<(d}VIt*=h8+3q:B3L*}x:B3L*}(d}VItME< SS S)L", ">"L LL<0 N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} ,``Pk@  i  ,`pk i (  cFormi  ,h`bk( $ 'i  t` %,`0 pk (3i  p! %,4 `h nk(, B)* HP^C`%i. p~~irpXi bg, 0` p+4Li. (i , `pkp0 )* t`%i 1i , `v+8i 8ighti t reX%0h`%X@(h 삷`z t=Tr `. t l0@t @p @` @P h(x@h `z h(`. tP "  @t X@p @` @P @ @ @P0 @8 X@ @ @ H8  8 p P h ` z ` 8 @ p @l @ h @dO  @b  8 h ` z  @P x @v p ( 8 h4 `4  zH  `. t`. t`. t (@p (  n @n 8 ` h  `. t` zp`. t( P `. tx8@p `@px@Xh ` (xh@(@t x @p h ` x@@v pXXH P` hBp    B,   (8 @H PBX p x     8@ X` x  " "   ( HP h p   $ $ 8@ `h  " " $ @$H p x "       8 "@  h p             $  0 $8  ` &h   &           8 @  ` h                (  H P  p $x   $   $   (  0 8  X "`   "   &   $  $  H$P x$      @H PX `B$h     B    0 8X `     0 "8` "h      (H $Px $        "(P "X $ $  "8 @X `  "    (H P  p $x $ & & 0 8X `      (H Ph p   $ $@ $Hp (x  " "( &0X $` $ $ $  8 @` h    Ѓ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!   !6B@k'i `' !6! "x擪ɈړĂAی삷NoReset=Trueœ͕یN ! B@   & l !6B@$ !6! e  A@ 擪ɈړĂAی삷 NoReset=Trueœ͕ی$ ! B@   & l !6B@$k(k 'i']H !6!2  !~ (~k P 'ih'$z`kX]. !z(k .'i ------ * KT . $ '4 --S'4 ni . ݃ev[gKT ' ݎw肵ĂKT' ݋LNNKTleFE' ݋LNKT^[' ݋LNKT' DBo^KT' ݐiDBo^KT' ݈KT------' ݖ@lčl̕KT-- ' ݐ\җX֔ԍO3KT\̬ ' ݐ\җX֔ԍ4KT̂̐ݬ ' ݐ\ҏZtKiKT ' ݐ\ҏZKT ' ݐ\ҖOtKiKT' ݐ\ҖOKT' ݐ\ґ\ҖEKT' ݐ\ґ\ҐtKiKT̃n' ݐ\ґ\ҖtKiKTR' ݐ\ґ\ҐKT90 ' ݐ\ґ\ҖKT0' ݐ\ғdbԍKT"t' ݑ㗝lX֔ԍO3KT$' ݑ㗝lX֔ԍ4KT' ݕ㗝lX֔ԍO3KTrmks' ݕ㗝lX֔ԍ4KTai' ݑ㗝lZtKiKT' ݕ㗝lZtKiKTtionSh' ݑ㗝lZKT' ݕ㗝lZKTtionHo' ݑ㗝lOtKiKT' ݕ㗝lOtKiKTKT' ݑ㗝lOKT ' ݕ㗝lOKT!' ݑ㗝l\ҖEKTTy"' ݕ㗝l\ҖEKT#' ݑ㗝l\ҐtKiKT$' ݑ㗝l\ҖtKiKTrmks%' ݕ㗝l\ҐtKiKTi&' ݕ㗝l\ҖtKiKT'' ݑ㗝l\ҐKTܬ(' ݑ㗝l\ҖKT)' ݕ㗝l\ҐKT *' ݕ㗝l\ҖKT+' ݑ㗝ldbԍKTs,' ݕ㗝ldbԍKT[-' ݎw肵Ă2KT.' ݓo^ԍKT/' ݓo^̔NNKT0' ݓo^̔NKTƂ1' ݓo^̔NKT 2' ݕύXKvƂ闝R1KT3' ݕύXKvƂ闝R2KT4' ݕύXKvƂ闝R3KTf5' ݕύXKvƂ闝Rt[KT6' ݒljKT'7' ݖݔ̐ݒuꏊ1KTtionKa8' ݖݔ̐ݒuꏊ2KT9' ݖݔ̐ݒuꏊt[KT:' ݎgyы󒆐d1KTonKi;' ݎgyы󒆐d2KT<' ݎgyы󒆐d3KT'=' ݎgyы󒆐d4KTonOk>' ݔlKT?' ݔlSҖKTܬ@' ݔlSҖKTxA' ݔldbԍKT.!0B' S' ni   0 * KT $ ' SX' nHi@------ KT݃ev[g' KTݎw肵Ă' KT݋LNN' SQLOKT݋LN' [wKT݋LN' e= KT DBo^' XKTݐiDBo^' KT ݈'  KTݖ@lčl̕' 0 KTݐ\җX֔ԍO3' 0 KTݐ\җX֔ԍ4'  KTݐ\ҏZtKi' KTݐ\ҏZ' KTݐ\ҖOtKi' KTݐ\ҖO' KTݐ\ґ\ҖE' KTݐ\ґ\ҐtKi' KTݐ\ґ\ҖtKi' KTݐ\ґ\Ґ' KTݐ\ґ\Җ' !0KTݐ\ғdbԍ' KTݑ㗝lX֔ԍO3' @KTݑ㗝lX֔ԍ4' sult =KTݕ㗝lX֔ԍO3' ERE KTݕ㗝lX֔ԍ4' & myKTݑ㗝lZtKi' KTݕ㗝lZtKi' \ .KTݑ㗝lZ' KTݕ㗝lZ' X !d KTݑ㗝lOtKi' KTݕ㗝lOtKi' ȏq KTݑ㗝lO' !KTݕ㗝lO' p"KTݑ㗝l\ҖE' #KTݕ㗝l\ҖE' $KTݑ㗝l\ҐtKi' 8%KTݑ㗝l\ҖtKi' &KTݕ㗝l\ҐtKi' 'KTݕ㗝l\ҖtKi' (KTݑ㗝l\Ґ' )KTݑ㗝l\Җ' kind*KTݕ㗝l\Ґ' +KTݕ㗝l\Җ' ,KTݑ㗝ldbԍ' $-KTݕ㗝ldbԍ' .KTݎw肵Ă2' /KTݓo^ԍ' 70KTݓo^̔NN' 1KTݓo^̔N' 2KTݓo^̔N' 3KTݕύXKvƂ闝R1' ceip4KTݕύXKvƂ闝R2' '5KTݕύXKvƂ闝R3' .6KT ݕύXKvƂ闝Rt[' 7KTݒlj' memo78KTݖݔ̐ݒuꏊ1' 9KTݖݔ̐ݒuꏊ2' area:KTݖݔ̐ݒuꏊt[' ;KTݎgyы󒆐d1' ' <KTݎgyы󒆐d2' T=KTݎgyы󒆐d3' >KTݎgyы󒆐d4' char?KTݔl' @KTݔlSҖ' AKTݔlSҖ' BKTݔldbԍ'  SH' n8i0(Attribute VB_Name = "clsForm" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz E' ЃnC@p[_ ' Copyright (c) HyperDyne Inc. All re(ser;.http://www.hd.co.jp/webmaster@ y @zDim c As 0New Op tion li cit CompR Binary Pub Func UnprotectFile( _ )ABooleaznA J dIf Word.AveDocum`ent.PC$T= wd@HowOnly0Fields The Passw:=cPASSWORD End IfM*Tru =OAD+@APal myR@ttE3?UKH@ įJNou I'擪ɈړĂAی삷A'No-=!œ͕pAB.S el @@ .HomeKey Unit:=wdSto?F a43, Ʉ:=(, A! AE@%Je` %8= 1NF#A-b.F../rdHc/*qgii0__ O~/?X 2>3O/_< _D s&3_0 _^6 0Җ_^5 0U,S_ V 1??r r42; $42_2]22r,42\ 1 2./1̀#%O0?8̏ؤ /خ5o.5o.ύXKvƂ闝R1-5.>5//  KvƂ闝R3"  Case 54\GetFieldNameKagami = "݀ύX @t[5'ljG6'Gݔ̐ݒuꨏ1N79'2'89'9)gyы󒆐d2͎y60;N=61S;62;4e63'lSҖNsINhAdbԍElse?$ "End Sele$ct !Function Cx kv)2Cx kv*3Cx kv+4Cx kv,5Cx kv-6Cx kv.7Cx kv/8Cx kv0,9Cx kv1B:Cx kv2X;Cx kv3n<Cx kv4=Cx kv5>Cx kv6?Cx kv7@Cx kv8ACx kv9BCx kv:CCx kv;DCx kv<4ECx kv=JFCx kv>`GCx kv?vHCx kv@ICx kvAJCx kvBKCxLCx/ (4x   tPlpz*pt$ 4t <lpt0p'0Pt$ <t t6P0B''0:`NPPl M@ @t$ 4t Ht6P0[*pt$ 4t <lpt[  Y 0p'0Pt$__SRP_25oi4clsINI *__SRP_20; J@__SRP_21rB< &,A$`4&0$` 1 0,$`8 0npz lp 0UpzrU , `#,A `#, `0, `0*#17b$*\Rffff*D<50cc7a1c*\R0*#10*\R0*#14*\R0*#e*\R0*#9*\R0*#19*\R0*#13*\R0*#f|A4 6@ ,x > < ( @ ` h 6 & &  &( P p    & & "  2H 6 $$&"0 :X **0 .8&h   (0"X$ & " 8Xx *&yRzz_rd"!@q*=h8+3q!M^bFƫZ`2x!M^bFƫZ`2d"!@qRxR MEL @SS S H "(>"LrU %M(q&I&a q1\ , P1-FiGGCq--E A Q  i I!q!Y9 qI )YiCA Y9ɥi 9i \(1\(@49)a) $W$$$$$W$$ppz*pt$ 4t <lpt\):`NPPt$ 4t t5Ppz/ ,p$ tPlpz*pt$ 4t <lpt0p'0Pt$ <t t6P0B''0:`NPPl M@ @t$ 4t Ht6P0[*pt$ 4t <lpt[  Y 0p'0Pt$ <t t6P0B''0:`NPPl M@ @t$ 4t Ht6P0pz/ l$ tP0xpz/lp$ 4p Ql[htpdibt dkbZ t h td8pz/ x0hdtplppzv+x kv)/  pxp kxR/  c= ppz/  p(p |HlCt5l qplp4nlt4knpz=pz/H(t Pl CtltCp lp 0'pz lp 0>pz lp 0Upz lp 0lpz lp0pz lp0pz lp0pz lp0pz lp0 pz lp0 pz lp0  pz lp0$ pz lp0; pz lp0Rpz lp0ipz lp0pz lp0pz lp0pz lp0pz lp0pz lp0pz lp0 pz lp 0!pz lp!08pz lp"0Opz lp#0fpz lp$0}pz lp%0pz lp&0pz lp'0pz lp(0pz lp)0 pz lp*0!pz lp+0"pz lp,05#pz lp-0L$pz lp.0c%pz lp/0z&pz lp00'pz lp10(pz lp20)pz lp30*pz lp40+pz lp50,pz lp60-pz lp702.pz lp80I/pz lp90`0pz lp:0w1pz lp;02pz lp<03pz lp=04pz lp>05pz lp?06pz lp@07pz lpA08pz lpB0/9pz lpC0F:pz lpD0];pz lpE0tpz lpH0?pz lpI0@pz lpJ0Apz lpK0Bpzpz/ ,8pt H-7l qtlt0pk8>p1x; 1x/ H(xp-k pv kv" Cx kv8 Cx kvN Cx kvd Cx kvzCx kvCx kvCx kvCx kv Cx kv Cx kv Cx kv Cx kv *Cx kv@Cx kvVCx kvlCx kvCx kvCx kvCx kvCx kvCx kvCx kv Cx kv!Cx kv2"Cx kvH#Cx kv^$Cx kvt%Cx kv&Cx kv'Cx kv(Cx kv )Cx kv!*Cx kv"+Cx kv#,Cx kv$$-Cx kv%:.Cx kv&P/Cx kv'f0Cx kv(|1LLL Lx+P Li stat,! hH?x+ Pi =,! 0h@x+Ti ,! h0Bx+pXi ,! hCx+\i ,! Ph8Dx+0` i ,! hD\kd&i .i 'i (`HFp,! hHtkPh Ai pi ,! HhI\klLi i i `H Jp,!@hPKHkp`i i i i `HLh` d,*`xN2k t::zi i ixi  h0`HOd` `` 0O\` X % ,J`Q>k@ x99i `i i  l @ % Rh`Hd` `` \` %  % ,6@`xTk0 | 88i  ` t`Hp` Pl` h`d`L``|^ %  ,,`HWk !&&%i  `Ht`p,` `Zk "Ki  ` t` p,!`X\k #ji   %  ("`^|+$~  h#`_|+%, $`p`k &UUi  `.t ap,$%`bkX'il xi  i &p%,X&`Hek (i `ft,j'`gk)i `hht,H(`(jk*33i `Hz, )`lk +Ji. i  `p, @*`ok  ,ii   +`qk---`|x%b HHb PHb (Hb 8 @" @p@b H @b L @b T @b 0` @b Xh @b t@ @ ` `Z B ,`tt+ .)D @ iNP `H@ z`Lx`F th  ` z  h! ` t @0`.jt"`p x" `" x#`#` t` t@  #@"p (@l `##$P$ $`## "h  0` H#z #H#A %` t` tA %` t# n@@p @8$` @h$P (@$@ @0 @$ @ %%(&&%%%h ` t` P%x%%%P% ` t ` t%d @@&d @X&T '@D &@p&4 @$ h ` &x&&&&` t&()X'` tn@X'` @H(P A %` t &&0(@'&('&@`(@ @0 @x( (@ A %` th ` t)(` t))p*@*))'` (x` t*) n@+*` t` t@X*` @*P @*@ @0 @* @ h ` *x(+*` t(+ 2x@p ` th (` +x+++++` t(,+`xp$"` t+`xp@+*P+*8+*` t`xpnp-2@l [Dummy] ./+ +++8-+ -+ X. @d @T @P @L ` t./+` p//` l8h(.X.@./p./.`-@J @/D @@ h  0` /x0// 2` x//(00` x01` x1` t1101 (2`222 33h ` 2z 03@` t322  3 p6p666h ` th@@XH((  XXp   00@`hP@p0 Hp PP  P xp0 ` 4x6p64 x7x777h ` `7x7x7`7 8888hz `z h8x88h8 9999h| `| p9x99p9 ::::h ` x:x::x: ;;;;h ` ;x;;`<; <<<<h `<x<<< h `<x0==< ===h ` t=?` pX=`xl==@= =??0?=`X=x @@8@@h ` ?x(@@? X@h ` P@x@h@P@E` th@h@`A@ xh AA` xAt` xAxxABC` tB`xpAABA h ` Bx h ` 0CxpCHCB0C` AtCCCAHCHCD`C F@FE(FEF` th ` ExEEFE` EtXFF @hFl F@F @Fh EFhF @d FhFG` t@G` (GF@\ (GGGh ` 8GxxGPG8G(I` tGH`.t` p80IH ` lPPGHPGHhG HI@t (h ` HxL` tXI J` phJJ` l0H(KJKJH8JG` t J` tJJ` pKJ `xl@Jl (@h @d `#`@KK @\ JPL(LxLMMM MxLM(LhP^` tPLxL` pLK`xl`Kx(` tLL` pLL` l(8ML @HM` `M M @N\ pMHM MM ` t NM ` p@X (T#`@P @0NL HNN@0@H XN0NhN0NHM8OOPhxPQPQ(P0OQHOh*  `*Oz XO0OOO` tOO` p` t(` pPO `xl@PO @PPT hP(P @PP PPP @L @PH PP@D PPQP@PQ@ 0QP xQ h0UUVUU`VUU0UHVHUh6 `6Uz XU0UVU  $X @VX @VH @U8 @W( @$ @ V  8VU@ xV V(hU  .*&@  V, @V @ `W@V  @ @W @0W @ @ xWXXPXXYpYXhXXX8XXh, `,Wz (XXHXW .X  *&@Yl @h @Xd XX@` XX@(Y\ X @Z @T @@YP @L @Y< @Y, @Y Y@Y @Y @ @ *&Z0H [8[[[[P[ZZZh `Zz ZZZ 6*,.*&@x @[l @h[h @d @` @[\ @X @[H @[8 @\( @(\ @@\ @ @ ]]x]^ ^`]]]H](]h `\z 8]]\ .*&@x @]t @p @]l @h p@]d @` @@8^P (@p^@ @^0 `l ^t@^ H@^ @ @ p_ (` mxh `l0`t``a baaxaaab(a` @`z 8aa @` $" @Pbl @j @bX @aH @b8 @4 Ha a .*&@8b0 @, @hb( b@$ @b @b @ `@ Hxcc(ddd@dcdch$`$cxcc cc`lctc@pdl .*& @Xdh @d @` @d\ @X @dH @d8 @e( @e @0e 8e@ @ @fhffgfPfff8ffh  `ex (ffe6x.*&@r @fl @@g\ @fX @T @P @fL @H @(g8 @Xg( @pg @g g@ @ hj hh`.thiihh ihhg`jgx g6x.*&@r @Pil @i\ @8iX @T @P @hiL @H @i8 i@i( @i @j `.t@ @ xh!P!k0kk`k8ljPljh @`jx(kj j  .@Hkl X@xkh @@kX @T @hlP @k@ @k0 @l @ l @ @ Xl@ k*&mz@l l@ PmmonmmnPmnhmh  (` 8mz xmPmm8mp`.tm  &  @n` @nP @0n@ @Hn0 @`n @xn @ @ @n o@n n@ amm.*p p@ @ o nt@8o @ h  ` Poz  ohoPorr stahkhoppp0qpphoXpo  .*&@pt @pp @`q` @\ @qX @T @qP @L @Hq< @xq, @q @q @ @ 00sxr`ss@trrXto& B @rT @sP @L @rJ @sH tr @Hs8 @4 @pt0 @s @xs @s @s @s @(t @ @ ts r@ @ `r.*@t @ ` x  (j//xx(!Pk4zP$*\Rffff*D150cc7a1c(*\Rffff*D150cc7a1c\0$*\Rffff*Cx50cc7a1c*\R1*#155*\R1*#152*\R1*#c6*\R1*#c1*\R1VBFrame:{t00003J+_+foL B  47 B    (86X px B   *< B    6  ( 8 X ` B  h p  6   &0   B    ( B 0 8 X p "x *            ( 0 H  `  p          ") "0 X  x    $          "#0 X h x        0    0@HX  ` x   B   "     B   "   ( 8 @BH P ` hBp x  B   B   B  8 @BH P p xB   B "  B    B( 0 P XB` h  B   B   B    B$( H` h      % @X ` hp *x   B    ( @Ph pB  x     0@X` h p x B,  $      @ Ph!     B, 08@HP X  p  % "$# ")H *p"' 40 &@ Pp     " (@P ` p !     B$  ,@ HX`h  p    %  0 8 @  P h  p x  %"#")0Xh   '  ( 08@ HBP X `x    $  4P(,X;      0 8 H X  p  $  "( ! !! !(! 8!@!H! P!$X!lh!! !B! !!!! ! !! !""" 8" H"P" X" h"x" "" " " 4""### # (#$0#l@#`# h#Bp# x# # ###&## # #,$ 0$8$@$ H$$X$ $$$ $$$ $$$l$$ $B$ % %% % 2(% `%p%x%%% %$%l%% %"%  % %"%  & &B& &  &(&0&  8& X&"h& & & & && && 8&&' '   ' 0' P' `' h'p'x' '' 8''' '  '.#' (( 8(@(H(`(  h( x( ( (( ((  ( ( ( )) ) )  () 8) 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- 2 22P2H20A2 ((3 B@3`3(Ah3 (3 B3333P3H40A 4 (P4 Bh44(A4 (4 B44 45P5H050AP5 (5 B55(A5 (5 B6 6 (686@6H6 P6$X6lh66 p.B x. . ..#.*+...#.(*/B@/`/#h/(*/B//#/(*/B 0@0H0P0 X0$`0lp00 0B0 0 0 P0B00P1B 1@1PH1Bh1111 1$1l11 1"8- B@-------<-F- (. 0. Q8.X. Q1`. Q2h.(2 02  82H2 <P2 6 60+62 6 6 6 06 .(7X7h7x777 7$7l77 7" 7 778 8 &888 P8 `8 "p8 88 8 8  88 89 9 9x +r[hiRɕςĂ(^^;)jne I0------------------------------------------------.j& INIt@C𑀍삷NXW[7 Modewɂ胁ł̑ŝŁA”\6 Wordt@CActiveXRg[pɉ y@z Dim INI As New clsINI yvpeBz0 AName / ^[QbgAtiveXRg[ Mode / [h̐ݒ  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̏X0------------------------------------------------]D[$Section`]D]$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]@Dh$ZNV ]@D $INIt@Ce]@(ݖǂ̐]@(ݓo^̔ԍ ]@(ݓo^̔ԍ\[gς]@(ݓo^̔ԍ̐(]@(ݓo^̔ԍ̌]@(ݎʕ]@(ݎʕ\[gς]@0(ݎʕ̐]@0(ݎʕ̌]@X(ݔFؔԍ]@(݋ZKԍ]@X(ݐԍ]@)ݓo^̔N Section  %    %  ' kipKey  %  $ n %' kkxipZNV  % % ' ip L[ = myS] n %'H H 7T H % ' ki l] n %'H H 5 % H % ' sik i[Section]`ɂ  ' i Key=Value`ɂproduc n x' 'li#FilezSection\̂蓖Ăo=" & ]]8]P]h]] Dummy  'X|kANZXĂ݂ $Xing & .!0 & "''X +X Err.ClearkHk@蓖'_( DoEventsl . Gxj $X$  X  & "'' ZNVƃL[$ Err.Clear H@ .  H $ Ps󂯂 H+yS H 'Hue H@(kk .$ ! H+ .$ !  ower= H 'Hpo H@H .$ %  H+ ` . '.& H 'H'" $X$ e$) RgƂs, L[̓VJg H@h $X H+ H 'H k  ' yS H X 'X .B@oh AName̎擾HERE ' m8 AName̐ݒ ' mP  Mode̎擾 ' m  Mode̐ݒ ' m  Section ' mp ݂̖ǂ̐̑LE ' mX ݂̎ʕ 'z m(0 ݂̎ʕ\[gς '| m ݂̎ʕ̑7T ' m ݂̎ʕ̌ar ' mP ݂̓o^̔ԍ 'mP ݂̓o^̔ԍ\[gςtelN 'm ݂̓o^̔ԍ̐ 'mp ݂̓o^̔ԍ̌' ' m ݂̔FؔԍxN ' mp0݂̋ZKԍ ' m@݂̐ԍ ' m݂̓o^̔N ' m PSectionKey'] G{jT$  G{j  NoŎw $ ! '  e NameŎw H  bo. H$ !$  ES ( H$ ! ' 'V y k d $ SẴL[(Section֌WȂ) FROM H  'V H$ ! '  k m NoԖڂSection01Ԗ G{j !0 $ !$ ' k m SectionNameNoԖڂKey01Ԗ]0  G{j * FRO G{j.dbo. H    H$ me5$  'V 5  7 $ ' k y k q mx  HSectionNameKeyNameɑ΂l]]( 'ȂDefaultl  { k H  ID  H$ 5$  X %` 5  name 7 $   7 $ ':v!{8 k0 ( k q  m  @ent2  ValuẽZbgiden]]8]P]h] GzjameKan pres ZNV H  pers H$ !$  b H$ !  L[s X H$ !  addr H$ % $  anaC@$ ValueXVCodeC@ x$  H$ , telNy0k(  H$ !  H$ !   !x VKL[x H$ If .KeysCnt > 0 Then t = 0 @  x$  ; 5  9 qPkH'*y8k0k( k  H    VKZNV  G'Hj H@  H$   $ 9D x$ ; 9 qX  ' '*k8 ,'*k i  T ݒ̍폜%KeyȗꍇAZNVƍ폜]]D ]]0]H ' zxkp  ZNV  $ !$   @ x $  + t7  ' k   ' ' 'Jkxdp L[̂es H  H$ !$   H$ ! 'yk H$ !  ' H$ % $  $ @  H$ %  +   ' dek`X   H$   H$ ( pres H$ ( $'Jkkk ,'Jki ݒ̓ǂݍiden]P]h]] pers'6zHk@ActiveXRg[̓ǂݍson]]]'|TextBox1'. myStr = Word.ActiveDocument.TextBox1.ValuealCo '   $ % '  $$+XstalCoZNV ' addr X Xess7 $X  $X$ ZNV擾'  ' @  $X $ ( $X$ eL[擾 $ @ 8 $X $ ,  $ !  $ (  ' kk  ' A@ '6z  .!0 .!0 * .!2A@&kpih@ ݒ̕ۑ]]' 0zɍ\̂ZbgA .!0zk H X X .!0yk  H$X'd   H$X'kXPTextBox1. Word.ActiveDocument.TextBox1.Value = myStr $ zk',z  .!0 .!0 * .!2A@&ki 'A@6]0]H y[W\ y[W\$' ݶ㗝l$' A@   y[W\ y[W\  $*zkk ݶ㗝l $*zxkpkhA@,'zP H .!0 .!0 * .!2A@&ki` ' ' + Word.ActiveDocument.TextBox1.Value = "" zk'zp h .!0 .!0 * .!2A@&k0i(dumy' o(' oh ' ]]݂擾 o^̔ԍݶ o^̔ԍ$'. .' ' ' d@ .' .$$' ., " %+  ' k' ʕݶʕ$'. .' ' ' d .' .$$' ., " %+  ' k('  Jǂ̗\萔ݶ Jǂ̗\萔$ %'. .' d . %@' kFؔԍݶFؔԍ$'. .' dH .' k8ZKԍݶZKԍ$'. .' d .' kԍݶԍ$'. .' d .' kx^pJn̗\ݶ o^̔N$'. .' d .' k' z  .!0 .!0 * .!2A@&ki   ;ʕo^̔ԍȂǁu,vŋ؂ꂽ\[g].& l  &%$'$z  .!0 .!0 * .!2A@&ki !TextBox1ɖߍ܂ꂽcID𒊏o]@A@6ݶcID$'f f$x'z8k0 f %@'z  .!0 .!0 * .!2A@&kiX !TextBox1ɖߍ܂ꂽaID𒊏o]A@6ݶaID$'h h$x'jz@k8 h %@'jz  .!0 .!0 * .!2A@&ki@<eLXg{bNX̔ԍƖO͍쐬ɕtAύXłȂ'.]0]'|]]' H !6! !N H !6% !Text Box % %Text Box |KT H !6% !+@ KTKT'iH x' ] . %  ĕۑł܂BA@&zk . %  .  %'  !6% ( k . %  .  %'  !6% ( k( . %  .  %'  !6% ( k' z  .!0 .!0 * .!2A@&khi` P' !6% !  !6% ( k !6% !  !6% ( k !6% !  !6% ( kp' z` X .!0 .!0 * .!2A@&k i H !6% !+@  H !6% !+@ Shn` | '|kH6 Debug.Print Word.ActiveDocument.Shapes(i).Namek` 2]P!]h! !6% !  !6% ! ' : % %:   %'  !6% ( k1  % %   %'  !6% ( kp1 '.k`1 !6% !  !6% ! ' : % %:   %'  !6% ( k0  % %   %'  !6% ( kH0 . '.k00 !6% !  !6% ! ' : % %:   %'  !6% ( k/  % %   %'  !6% ( k/ . '.k/ .'z. . .!0 .!0 * .!2A@&k. H &eLXg{bNXُɂȂĂ܂BA@&' ' ' *擾eLXg{bNX̖O\[g(Ȃ炸ԍ̎ႢŎ擾Ȃ @ A@B $@ ' $@ ' $@ ' |- - .!0 .!0 * .!2A@&k`-oX-]` ]x ] 'Lvf0珇ɒړIɃ\[g L N b L 'H H N b L$D  H$D  L$D 'F H$D  L+D  F H+D kh, H 'HP, L 'L8,o0,(,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؟Giteki1ZKPropductkRegistDb** NFunAChecki9By J )?A1H !; TIfA.Left$(, 1)ijKVBA.0Righ@iTh l{ Inp)(cP)~ ;  ) AV4k,2fWl>c MiRd2,n) - 2)F  6)b$ ݑi1 J i i > 0 )0, i 1  % {  'lϯ    5 LenQ)qi8040ange%?&ing '`ή@`Ch @&E& EP$?$@ ., 3>Bg >s a= Q& & " Sub StrectToAry() 'FilezStion\̂蓖ĄDim X () AsinJg2i(Lo $t$ws Const Dumye = sP & "my" EPOn Error Resume Next׀If INI_Cnt <= 0` ThenX|RehFILE(0kExitEnd If1'ANZX݅<*p= ""<[.Number L ^= ' 2ClearzE0L3{ DoDoEventsÇ@0s >=XAW. KC K CPheckb(+w)) Or w > UBound-)C1 XNVƃL[ 9.L9wPreserveCixA 4Έi - 1)8 <>u * Ps󂯅)""UI ii + 1+7 ? qG56s).Name+ZFntjo@(@Keys!n%o?_S(t#)s`s,!ElseCNo>t#Y YÊ VRgƂs, V̀XJkbwlQ% wwLoopu^ e KSub Public Property GeJ ɃE'A!̎擾cB@ b/ E o Lf ByVal nv% ݒc ` nv ModeBoo@ !A a!(I ` F>CXt |y nwStat̖̐̑$!CallSignc#a1'ʕ%.PCByS= 0 Then 'p NoŎw(KeyCount = INIJ_z(). "" d fFor ico (iY - 1)bGetNI,(i).)F>k gR EEnd Ibf NexSẴL[֌WȂn`+2H'- A0GPublic YS(ByValAs Long) StringE'No Ԗڂ̄aCH'01A!jD$No%EqdC[ CFA, CJ ـUI#@̅L@ K7xDimDC E< 1ºO,# O,WithIMc beF/r!% > #;F <@C=a(((o)̆A%=ai{AiFt!@gue( _CKi;gh,kOp r Default" tJOd ɑ΂l0NAB AZ_x0'A tVb,.Ta ThT #U%@#Ua-s(t)/4+E, 'vG(u-7^1Sc ?1Q^eFun[t0e0c.%P?3g2(4/Booleac'ryZbpk-`File( 3i_5c/%0%w_z'$0AAC:!NS[%r{oP' ZNV_2!?*r%n" YDpqP\ 5{ 6tth#j ?8xz"#XVWooUpPCha8ngepi., ?j:i-6;4(1a!!Or t`#JVKaOY '{ FV>%X/ Re=Preserve 2A= Q=+ 1oTUSeU&"$]qM%$S h$ #i#qql#b"K7gAV-P_'q30_R<3tQ<$e?!=Y"[!% SetValue = 1  End IfXIf INI_Mode ThenTSav&e0t Fu nctiohPu blic  Delete( _96By- As String,OpFal (Key$#)BoolealS'ݒ̍폜6ȗꍇAZNVƇDim iniSect(.f~)F4 Long t w 5Cnt <= 0ጻExitOM!K""' vForl t o{-A Get`Name((t).) <>'qEReAGPr@eserveYwRY c@ =)1E w2w +.EI Next@6xw Descri#e ́cn`q^ۑNO] CJ| C= "2" eezɍ\̂:b0Call1ToAry{_jIAIo I1Ci$G?dX1iZ5s_a_5,'di/i-i`/#Tc) ry qc2 If Err.Number <> 0 ThenMsgBox & vb@CrLf &*DescriptiojEnd If Func6Public  Clear() As Boo ? OnUor GoTo 8MesK1 =@ FalseRead Dim mLStringn mBGetValue("y[W\P", )!n݁㗝l"MAllm,"" S<, 0JHrivateF3BreCs[ s,hsfN@7Word.AveDocum@v.Sha pes(c).Alternat(ive B""LBssf-k$jLeft(ss, n(": "))  Mid=4;= ~s -+ JA N2_?3#YA4@?#x2A& AA! 5 !A^AWAIAt A_ǣ##E@͟A3A \Ax AANm.,AA n s Q  URA bA}t`!#C\w?s??s?sϏϏϏ 2P=sSaj(By Ho"Booleap_tqђqpFalse9tmyx-vf`n( s) > sMA`X * 3T"ۑłB"sA ߎ \\#Lem2c =Rvs,M + 1, ߠ Xj(((=S . 1 Q & b- U b t30 x #  }e10 /Tru.>5pFΏq8!ν>Cp 01& vbCrLf & Despcripe1 b !Subj, (ByRef data(, ao$קjHgtxemp@.#j?ĉ'vf0`9!ړ(Iɍ=Dhi@le j <-di j+gFiEc%a/ComDp(b j),!i!b=~j#e @"iUiA 8I iLoop!* hA pCx/ (x L- tCx/ (x L- xCx/ <(x PlCt<l /<8/l [l @Aqx  lt =p<dh%dlp@Aldlt0/dlp@Aqx pfh p<d\ lxlp@Aqx pf\/d (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/48 xXtplP@l CtlCplCl4 0,/<d<dP%Lld@AlLlt0/Lld@A#`ld@AdD)Ll`ld@AlLlp0/L'LlllplLl`ld@A;/L `fD0ld@Al`ld@Ald@.@@q<l`<LlllplLl`<;/L<< q<-@pz dfPY"<ld<< qdld@ ld@.8@q44LltlLT4/L!LlllplL4;/L 4 q4-8<<pz 82k2pz/+eLD*@8tplhLl CtlCp<'/ lp 0`<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  . p L  $PP K)4 0&pz/ p^X>X1d,rU !/8{1aIzy| %$1PPy}1za A%a)рyu!~QyɁ Vi(q&I&a Ai| | AyP(P(@|9)a) Q / W    _    _    _    _    _    _  _ _  W    W    _  Pl Ct7lt #p0lt #l02plFpz/ P(tplpl Ctlt #p=/pd6' :PN@@tM`@ 6@ bpz/ lp(tp@ P l Ct-<tMd@T T(D4$$lt  1x6T$/ XP,xtT4$p l Ct-6' :PN@@tM`@ "qp6@ lpdlplt 1x/ lp,xt@  l Ct-6' :PN@@tM`@ "qp6@ lp~0tM`@@ @lpiP "lt 1x5@/ l,xt@ d( l Ct-lt*#p*1x/p/ (,xtpp0l CtlCp-lt*#llp*1x/l/00xptlK<7DD 0 L PP  lLRPD D;lh<Y)JllDkJllDltxlhNltlx =L  ltlx;ltqtltxlh@Altlx;#plh@Ad@ltqtltxlplh@Altlx; pf@lhqhltqtDJllDkJDltxllDltlx;ltqtllql ltD xD PPHP<0xdPTL- 4Cx/ (x Ll Cx lx4(x H 8pz/ $ @ k 8$ H <qx/ $ H Hqx/ $ L- \Cx/ (x L- `Cx/ h(x H dPqx/ 2$ H hqx/  l$ L- LCx/ D(x L- PCx/ (x H Tqx/ $ H Xqx/ F$ L- lCx/ (x L- *#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(/ X,dt0 X 8( CpK h ll  lhRl>/ DLtDd` h ll  lhRl lp 0ltDCplp*#\ltD*1p/\ tf`^ZlpkZ/ pz/ $h ll  lhll'''h ll  lh#\*#LP TT , lP*F< 2\LP)lT6</ (p0 \PLlT<tKpz x|l p>l1tl p>l1p x lt =xlttkx/  lp =xlptkx/  xpz/ $d hh  ldhgl'''(d hh  ld#l*#X\ `` , l\*FH 2lX\)h`6H(/ ht,tp0 l\Xh`H(TKcpz@ <xkxR/ pz/ $p tt  lptl'''0p tt  lp#l*#`d hh , ld*FP 2l`d)th6P0/ $ 0 ld`thP0D 41$  D  4$ HKGpzl p>l1t lt 0\  L  P T ltLl+jltllP/l8:XNHHlt8 86 Y4p6H8lpT Xl p>l1t lt 09  \  `#ld/l lt\l+jltll`/l8:XNHHlt8 86 Y4p6H8lp#ld/l h#l pll 1t/l lt 0  H"tMX@^Hl p>l1t lt 0Y  lg ltll  p>l1t lt 0  p ltpl !p>l1t lt 0  t lttl "p>l1t lt 0(  x6 ltxpz/ $4 00  l40l'''84 00  l4#l*#$( ,, , l(*FH 2l$()0,6H8/ 4pҋt0 l($0,H84 l Ct-K9 #pllltp 0$>l1x/$d hh  ldhl'''(d hh  ld#l*#X\ `` , l\*FH 2lX\)h`6H(/0xtp0 l\Xh`H(`Kk r|l %p>l1ttM\@ &O qx/ tM\@^qx/ $T XX  lTXl'''(T XX  lT#l*#HL PP , lL*F8 2lHL)XP68(/  (t0 lLHXP8(`Kk r|l 'p>l1ttM\@ &O qx/ tM\@^qx/ $T XX  lTXl'''(T XX  lT#l*#HL PP , lL*F8 2lHL)XP68(/ (t0 lLHXP8(-KPPT(MX@hl)$* 4+l D,h 0-T 0.lP =/P)lhTHPT(MX@hl)$* 4+l D,h 0-T 0.>P1p)lhTA:X/N@@0 0"pM @ 0 :/]36@0L('@pMX@0 10`1p6@0BlpT(MX@hl)$* 4+l D,h 0-T 4.)lhTA:X2N@@0 0"pM @ 0 :2]36@0('@pMX@0 10`1p6@0BlpT(MX@hl)$* 4+l D,h 0-T 4.)lhTlpCtPPT3MX@hl)$* 4+l D,h 0-T 0.lP =/P)lhTHPT3MX@hl)$* 4+l D,h 0-T 0.>P1p)lhTA:X/N@@0 0"pM @ 0 :/]36@0H('@pMX@0 10`1p6@0BlpT3MX@hl)$* 4+l D,h 0-T 4.)lhTA:X2N@@0 0"pM @ 0 :2]36@0('@pMX@0 10`1p6@0BlpT3MX@hl)$* 4+l D,h 0-T 4.)lhT ltlp*1tPPT4MX@hl)$* 4+l D,h 0-T 0.lP =/P)lhTHPT4MX@hl)$* 4+l D,h 0-T 0.>P1p)lhTA:X/N@@0 0"pM @ 0 :/]36@0H('@pMX@0 10`1p6@0BlpT4MX@hl)$* 4+l D,h 0-T 4.)lhTA:X2N@@0 0"pM @ 0 :2]36@0('@pMX@0 10`1p6@0BlpT4MX@hl)$* 4+l D,h 0-T 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:`5NPP 6P0/#tM`@P P(@@]t5P*(PAtM`@0 10`1p6P0Blp4M`@)$* 4+ D, 0- 4.)#tM`@P P(@]t5P*(PtM`@0 10`1p6P0Blp3M`@)$* 4+ D, 0- 4.)#tM`@P P(@]t5P*(PtM`@0 10`1p6P0Blp(M`@)$* 4+ D, 0- 4.)pz/$   ll'''0   l#*#  , l*FP 2)6P0/ ,pt4 P0tKpzPX\(M`@pt)$* 4+t D,p 0-\ 0.lX =/X)tp\B \(M`@pt)$* 4+t D,p 0-\ 4.)tp\PX\3M`@pt)$* 4+t D,p 0-\ 0.lX =/X)tp\4B \3M`@pt)$* 4+t D,p 0-\ 4.)tp\PX\4M`@pt)$* 4+t D,p 0-\ 0.lX =/X)tp\B \4M`@pt)$* 4+t D,p 0-\ 4.)tp\pz/ $T tt  lTtil'' ',T tt  lT#X*#LP pp , lP*F< 2XLP)tp6<, / Wt$ 4 XPLtp\<, @pxpZ<zLPT)$* 4+T D,P (-lL)TPcH04zM8@PT)$* 4+T D,P 0-4 l.: 6N ">0F 0 :6]3)TP46kxp k4Q04zM8@PT)$* 4+T D,P 0-4 l.l0`;/0)TP4 kQ04zM8@PT)$* 4+T D,P 0-4 l.l0`;/0)TP4 kQ04zM8@PT)$* 4+T D,P 0-4 l.l0`;/0)TP4pZ kxpx zdHL kZJ+''':87N 6  (  3  4+`YL`(`3`4$L TT  lLT9l'''L TT  lL#0*# PP , l*F 20)TP6#@P8` 0;*8 0TP4.pxkx kxpz kzkx kz z kx Ctkz kx ; ltkz ; kzpz# kxpx  (t       !"#$|%|&'()*+,-.g, `0,A `00 ` 0$ `( h0(A h!( h%#( h)(  h-((I h1(( h50( h90(  h=((I hA(( hE0( hI0(  hM((I hQ(( hU0( hY0(  h]0(I ha00 h e!A(, h i!00  h mAa08I hqAy08 `uAy#0 ` y#( `}#(I `#( `#( !`#$ "` $I #`( $`#0 %`   0( &`((I '`(( (`0, )`#( *`#$I +`0 ,`p&PnrU @ E) ,FpA%9qqqArrsQss tattu%$a 9J(aJ(@<9)a) WL- 4Cx/ (x clsKagamic O__SRP_1ca__SRP_1duWxclsBranchv 悪w肳Ă܂BA@&zKTkCʐMǓaijrmkstationHokkaido''KTkʐMǓaijrmkstationTohoku''KT֓ʐMǓaijrmkstationKanto''KTMzʐMǓaijrmkstationShinetsu''KTkʐMǓaijrmkstationHokuriku''KTCʐMǓaijrmkstationTokai''KTߋEʐMǓaijrmkstationKinki'' KTʐMǓaijrmkstationTyugoku' ' KTlʐMǓaijrmkstationShikoku' ' KTBʐMǓaijrmkstationKyushu' ' KTꑍʐMǓaijrmkstationOkinawa' 'S0*ڑf[^x[Xݒ肳Ă܂BA@&zn ' ' ' z  .!0 .!0 * .!2A@&kixAttribute 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\Rffff*Cp50cc7a1c< X  8 "X H 8pz/ $ XK`pz tdhl+pt l |h 4ldq`)lhl`+''' :PN@@ 6@ /8l` pr8l`  pr8l`  pr8l`  pr8l`=  pr8l`^  pr8l` pr8l`   pr8 3 A 5j De vZeGt c-*=h8+3qj?9)FVxj?9)FVe vZeGt c-ME4 SS S"p>"L LL"<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(0%,! hXx+p i ster,!h`z+ i , `hk0 $??i X ' i   nt' %`0r'%b 4@b 8@ H(h L` x8 )l P0h `z@0%h ;+x p X8h  x` z H &  .*@p @l @h @d @` % h@(P @@@ @X0 H@p %@ @ @ @ @ @ @ 00H(zP$*\Rffff*Cz50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#e*\R0*#19*\R0*#13$*\Rffff*D<50cc7a1c*\R0*#14*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c< 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 ݂̈  ' m ݂̈  'm h' ]x .n]2݃y[Wڑf[^x[XExID擾  ݈ n%!!xKTݎw肵Ăijml`   pr8l`   pr8l`   pr8+''' :PN@@ 6@ / v4 kr8pz/$d ll ldll''' d ll ld#*# hh ,l*F@ 2)lh6@ / (Xt0 lh@ !HrU H(h0(Ah!&,`%I #nrU ;hZ )Ii9qqqArrsQss tatt__SRP_3a|__SRP_3bx{}NtN{v2  5F__SRP_3c( %$a A%((@49)a) :-K t)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:dNTTt 6T4)'''4:d NTTt 6T4)'''4:d NTTt 6T4)'''4:d NTTt 6T4)'''4:d NTTt 6T4v C l0  l0   l0"  l09  l0P  l0g  l0~  l0  l0  l0  l0 d  ltx/$  ll'''4  l#*#  ,l*FT 2)6T4/ 0`xt0 T4X4 rU :@0:`&=nrU <$<`$A<`$<`$<`10*\R0*#4*\R0*#f$*\Rffff*D<50cc7a1c$*\Rffff*D450cc7a1c*\R0*#1d*\R0*#1e$*\Rffff*D750cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*D150cc7a1c*\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*DE50cc7a1c$*\Rffff*Cp50cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*Ci50cc7a1c*\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*Co50cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\s:<'IeH6Ƭ!*=h8+3q/8g~Cw^a]x/8g~Cw^a]'IeH6Ƭ!ME0 SS S8F6"L LP<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5},J`k@`77 iH h" %) x % Et %%%@H00(K % Kx %)x`@Hd @`T @xD @4 x@$ x@ x @ ` @ P.*&  @ x@` x@ x@x x @ x@ P`@ @)P@ zP*\R0*#1c$*\Rffff*DA50cc7a1c*\R0*#14*\R0*#e*\R0*#19*\R0*#13$*\Rffff*D<50cc7a1c*\R0*#1b*\R0*#1b4 A  8 "X  $ B    ))0)H)`)x))))))   ( HP hp       @H hp      $l  ( 8 ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jp y@z Dim cBranch As New clsBranch  ] .D!kC DB@bk DB@b' ֓ DB@b Mz DB@b'k DB@bC DB@bxߋE DB@b DB@bڶl DB@bxB DB@b DB@b rmkstationHokkaidoKTent2 'HrmkstationTohokuKT'HrmkstationKantoKT'HrmkstationShinetsuKTpres'HrmkstationHokurikuKT H'HrmkstationTokaiKT'HrmkstationKinkiKT'HrmkstationTyugokuKT 'HrmkstationShikokuKT !'HrmkstationKyushuKT 'HrmkstationOkinawaKT 'HS@d'Hn0 D.J  z  .!0 .!0 * .!2A@&kiQAttribute VB_Name = "clsBranch" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://wPww.hd.@co.jp/webmaster@ y@z Dim c As New Option licit CompS Binary Pub Func GetCol(B@yRef iInteger)9le rror GoTo @ErrMes s'my Set =B..Add ("kC") Mk֓MBzkCߋE!l!B LC=SeA] CmyD̀AE"rmkstaAqHokkai\doi h0TohokupB1wKant 2WShinets 3@uri4To 05WKinkiP6 hyug3'7 k8Kyush%1'9wOk@}wa5P1AE"MF10End CQ xKbvExit7&C:If.Number <> 0 Th en!MsgBox& vbC rLf &DepscriœIf % r U^wbGyèH N_4ߨN|Ea@JD,uVVK\8u"" " "L"LLLL "LL"LL LL*LP<<<<<<<<<<<<<<<<<<<<<<0{FEFB345F-DFFE-4EA8-AC12-E1037CDF4598}{8D4A4061-1CDD-4410-BEB2-2CB1FA755656}0-O >`(kqq @xX% Etx%`Hr`Lj n%`r ``Pkw nx@ Hyp%` ted. `@k nx%` ts Ne `0xk X`k,h`k jji i  DB@ nt!%`f`d~ `@Ƃ% D`!% .`kaa3 `pk## (`!k-- h `#k II  `%k !!-  `(k ..N \( `@*k | ^ `0,k ]] nt%`j`d `%,``/k i  nP%``"  z`1kQQ`z |8`3kPP`z x`5tk I `6tk R `h7tk  [ 8`P8tk$ d x`89tk( m ` :tk, v `;tk0  8 `;tk4  x `<tk8   `=tk<   `>tk@ 8 `?tkD  x `x@tkH   ``AtkL   `HBtkP  8 `0CtkT  x !`DtkX!   "`Etk\"   #`Etk`#  8 $`Ftkd$  x %`Gtkh%   &`Htkl&   '`Itkp'  8 (`pJtkt( ( x )`XKtkx) 1  *`@Ltk|* : +`(M8k+zzC nx%% ,`O|k,X% %  8(8 xx (h8 x8  Xh x 8 x x 8 8x `%` %`@`H@l @d @ b 8 @`   @P @@ Ptv |@ 0 @  xrJ jR @ @ @ N P D F 0H T H`t\ d ` xb V X Z f .*&@  @ @8 @ @ H(P 8&.*@p @h` @P @L @< @, @ @ @ @ @ @( @ @(&.*@p @X` @pP @L @< @, @ @ @ @ @ @ @ r@x `x.*&@z @t @p @0l @h @Hd @` @P @@ @0 @ @ @ @ (H(Xxh `z @pp @n @h *v@P @L @H @4 @$ @ @ @ @ @ 0"H$&(`.&@ @ @  024@x @v @d @` @P @X@ x68: <>8@BDFPHJLN@< @8 @4 @0 h.*&@, @( @@ @ @ ( !p X 048<@DHL@ x  26:>BFJN@ TVXZ.*&@t @ p @l @ h @d @!T @0!D @H!4 @`!$ @x! @ @ "H" #8#"" | @"x 0" `" x""&(.*&@t @"p @l @#h @d @P#T @h#D @#4 @#$ @# @ @ $$@%X%$$$ |@$x @v h$.*&@p %@%l @h @(%d @` @p%P %@%@ @%0 @% @% @ @ 0'&&&'' @H'x @'h @'X &"$&&(.*&Pc@T @`'P @L @x'H c@D @'4 @'$ @' @ @ @dh)()((P)8)048<@)x @v @)d %@)T (@DHL ).*&!@P @)L @H @)D @@ f@)0 %@* @(* @ @ (+*+++*..*&0g@@+x @t @X+p @l @p+h @d g@+T %@+D @+4 @,$ @, @ %@ h--h--,.8-.X-`v  @z @(.p @.l \P-`%8-@-L @-< @-, @- %@- @ @@. ,"@. @X. @ .$&(.@ %@ p.*&k@. @ /8Xp00 0800(1/1/h` ``/z //|%/ &vljv@0t @P0d @h0T %@0D @04 l@0$ @@1 @ @ @ @X1 Hm/n *prt@ @ @1 1xp1 .|@ p22230 4@2t @2d o@03T @`3D @@ X28<2@D3HL&@H30 %@x3 @3 @ @ `4x4452 6@4t @4d %@ 5T @P5D q@@ H4:>4BF4JN&@850 @h5 q@5 %@ @ h6P6860%@x @t rP787 74%l!@x @t 88 884$@x @t 9988@x u@t :998(v@x @t :::@ @x @t ;;;D%l!2@x @t <<<L6@x @t ==x=<@x z@t >x>`><@x @t zx?`?H?H@x @t `@H@0@ 2@x @t HA0AA6@x @t 0BBB6@x @t CCB:@x @t DCC:@x @t DDDB@x @t EEEF@x @t FFF@x @t GGpG>@x @t HpHXH>@x @t pIXI@IJ@x @t XJ@J(J"@x @t @K(KK&@x @t (LLK$@x @t MLL(@x @t pNMMN@NO0nlJ @XNt @(Nd @T @D @B @< @8 M\ 4R Nd 8N P N` b <D F NV X @NDH Z HNvT f LO$ (0--XDzP$*\Rffff*DB50cc7a1c$*\Rffff*DA50cc7a1c*\R0*#1c$*\Rffff*Cy50cc7a1c$*\Rffff*DC50cc7a1c*\R0*#2*\R0*#1*\R0*#ystem32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#1b*\R0*#1bRO4X8H<W@ZD[H\L]P^T_X`\a`bdchdl}ptx|NURSPQLTVgrhsitjukvlwmxnyK Y>M ?$C(D,0A4B8F<G@@D=HELIPJTX\`od{hplzp|tx  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]`.D] H @%J.D] L D!ND L D%T !PB@R' L DB@ H !P(V !P(X !P(Z].nx] t'rID͕sŽDB@ !v(x !v(zWord̉ԍ͖gp ! (~OWordADBƂύXs· !|(~ !|(X !(~ !(X !!x  r n%! !|(x  J n%! !(x   n%!$j !(x  R n%!$j !(x  N n%!$j !(x  P n%!$j !(x  D n%! !(x  F n%! !(x   n%! !(x  H n%!                           ! # $ % & ' 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 { | } ~  !(x  T n%! !(x !(~ !(~d !!x   n%! !|(x   n%! !(x   n%!$j !(x   n%!$j !(x   n%!$j !(x   n%!$j !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x   n%! !(x !(~ !(~k !!x  t n%! !|(x  \ n%! !(x   n%!$j !(x  d n%!$j !(x  ` n%!$j !(x  b n%!$j !(x  V n%! !(x  X n%! !(x   n%! !(x  Z n%! !(x  f n%! !(x !(~ !(~kk !|!x !( f[^܂͂Ă܂B !( !(~d !|!x !(x n!%j !( !!x2f[^x[Xɓo^Ă邩mFĂB !(dx !( !!x6f[^x[Xɓo^Ă邱Ƃ͊mFĂ܂B !(kkA@A@ !(~ !(~ !(~ !(~ !(~ !(~ !(zA@|h ` .!0 .!0 * .!2A@&k(o  ](.n]H !!x' 㗝l̏Z̊mF    $  n!% ̏ZmFĂBA@&|PkHd@ ̏Z͂Ă܂BA@&|k  n!% !(x|  .!0 .!0 * .!2A@&ko` ].n] !!x' 㗝l̏Z̊mF    $  n!% ̏ZmFĂBA@&|kd ̏Z͂Ă܂BA@&|xkp  n!% !(x|H @ .!0 .!0 * .!2A@&ko A@ro F |k|  .!0 .!0 * .!2A@&kho`X F'].n n!% n!%'dzk]  n!%']](.  !!x   n!% .]H "DBɌ‚ȂƂ@VKo^ !( !!x͂܂o^Ă܂B !(A@A@z  eDBɕ‚Ƃ@I !( !!xo^Ă܂B *&uIv{^NbNĂB !( !!x !(  !(zA@z e. %T.ID %T !v(xmemberNo %T ! (xname %T !(xnameKana %T ! (x postalCode %T % !(x postalCode %T % !(x president %T !(x president2 %T !(xpresidentNameKana %T !(xpresidentNameKana2 %T !(xaddress %T !(x addresskana %T !(xtelNo %T !(xareaCode %T !(xperson %T !"(xfaxNo %T !$(xemail %T !&(xmemo %T !((x !( !!x"̓o^mF邱Ƃł܂B !(TextBox1㏑ n!B@6 !!xݶ㗝l㗝l n!%*z k d !!xݶ㗝lƋl n!%*z k k !!xݶ㗝l㗝l n!%*z0 k( k k ݶaID !v!x n!%*z k n!B@, !(~ !(~ !(~ !(~kx !!x !(~kH A@ !(~ !(~A@'z  .!0 .!0 * .!2A@&kih FA@ !!~ ! !x !!x ! (Z !(Z !0(z !2(zkk !!~ !!x !!x !(Z !(Z !4(z !6(zk !!x !!x !(Z !(Z !4(z !6(zkk !!~ !!x !!x !(Z !(Z !8(z !:(zkp !!x !!x !(Z !(Z !8(z !:(zkk !!~ !!x !!x !(Z !(Z !<(z !>(zk` !!x !!x !(Z !(Z !<(z !>(zkk !!~ !!x !!x !(Z !(Z !@(z !B(zkPkH !!~ !!x !!x !(Z !(Z !D(z !F(zkk !!~ !!x- %  !!x- %  !(Z !(Z !H(z !J(zkk !!~ !!x !!x !(Z !(Z !L(z !N(zk`kX|P H .!0 .!0 * .!2A@&ko F !0(z !4(z !8(z !<(z !@(z !D(z !H(z !L(z !2(z !6(z !:(z !>(z !B(z !F(z !J(z !N(z !T(z !V(z !X(z !Z(z|  .!0 .!0 * .!2A@&kpoh F ! (  !|(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !(  ! (  !(  !(  ! (  !(  !(  !(  !(  !(  !(  !(  !(  !(  !(  !"(  !&(  !(( |p h .!0 .!0 * .!2A@&k0o(( F !(Z ! !~ ! (Zd ! (Zk !|!~ !|(Zdp* Me.txtNameW.BackColor = &H80000005 !|(Zk  !!~ !(Zd !(Zk !!~ !(Zd !(Zkp !!~ !(Zd8 !(Zk !!~ !(Zd !(Zk !!~ !(Zd !(Zkh !!~ !(Zd0 !(Zk !!~ !(Zd !(Zk !!~ !(Zd !(Zk` !!~ !(Z !(~d !(Z !(~k|  .!0 .!0 * .!2A@&koh FDB^u𔒎 ! (x͋󗓂ɂȂ Me.txtNameD.Value = "" ! (x !(x !(x !(x !(x !(x !(x !(x !(x !(x !(x !(~ !"(x !$(x !&(x !((x|  .!0 .!0 * .!2A@&ko F !!~ !0(z !0(xk !!~ !4(z !4(xk@ !!~ !8(z !8(xk !!~ !<(z !<(xk !!~ !@(z !@(xk !!~ !D(z !D(xk@ !!~ !H(z !H(xk !!~ !L(z !L(xk !(~|  .!0 .!0 * .!2A@&kho` FA@. !(~ !(~|   .!0 .!0 * .!2A@&ko( F$`|k]h.n n!% n!%'dX|PkH]  n!%']].  !v!xIDC@b ! !xmemberNoC@b !!xnameC@b ! !xnameKanaC@b !!x presidentC@b !!x president2C@b !!xpresidentNameKanaC@b !!xpresidentNameKana2C@b !"!xpersonC@b !!x !!x postalCodeC@b !!xaddressC@b !!x addresskanaC@b !!xareaCodeC@b !!xtelNoC@b !$!xfaxNoC@b !&!xemailC@b !(!xmemoC@bq !v!x   n!%& |xkp  !v(x !!xo^܂B !(d(  !v!x n!%$ |k !!xXV܂B !(k !(~ !(TextBox1㏑ n!B@6 !!xݶ㗝l㗝l n!%*|kd !!xݶ㗝lƋl n!%*|kk !!xݶ㗝l㗝l n!%*|@k8k0k(ݶaID !v!x n!%*|k n!B@, !(~ !(~ !(~ !(~|  .!0 .!0 * .!2A@&kHo@ 0'`ԍ@K{ ! !x "̉ԍ͂ĂĂBA@& ! B@hz d ! !x v$l$j ! (xkp ]8.n n!% n!%'d z k ]X  n!%']p !v!x'" " łɓo^Ăꍇ  ! !x " %@ n!%   ! !x n!% "ԍłɓo^Ă܂BA@&z k k " e o^̏ꍇ  ! !x n!% "ԍłɓo^Ă܂BA@&zx kp kh 㗝l̎@K{ !!x ̎͂ĂĂBA@& !B@hz d !!x n$l$j !(xk "㗝l̎tKi@K{ł͂Ȃ ! !x &̎tKi͂ĂĂB *s܂H p ̎tKi$& r ! B@hz k d ! !x t$l$j ! (xk 㗝l̑\Ж@K{ł͂Ȃ !!x &̑\Ҏ͂ĂĂB *s܂H p ̑\Ҏ$& r !B@hzkd !!x n$l$j !(x !!x &̑\Ҏ͂ĂĂB *s܂H p ̑\Ҏ$& r !B@hzkd !!x n$l$j !(xkk㗝l̑\ҎtKi !!x .̑\ҎtKi͂ĂĂB *s܂H p ̑\ҎtKi$& r !B@hzkd !!x t$l$j !(x !!x .̑\ҎtKi͂ĂĂB *s܂H p ̑\ҎtKi$& r !B@hzkd !!x t$l$j !(xkkx !!x "̗X֔ԍ͂ĂĂB *s܂H p  ̗X֔ԍ$& r !B@hzkd !!x v$l$j !(x !!x$x (̗X֔ԍ͐œ͂ĂĂBA@& !B@hz0k( !!x /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@hzk !!x "̗X֔ԍ͂ĂĂBA@& !B@hzHd@ !!x v$l$j !(x !!x$x (̗X֔ԍ͐œ͂ĂĂBA@& !B@hzk !!x /̗X֔ԍ́u3-4vœ͂ĂĂBA@& !B@hz8k0k(k 㗝l̏Z@K{ !!x ̏Z͂ĂĂBA@& !B@hzd !!x n$l$j !(xkp㗝l̏ZtKi !!x &̏ZtKi͂ĂĂB *s܂H p ̏ZtKi$& r !B@hzkd !!x t$l$j !(xk`㗝l̓dbԍ !!x "̓dbԍ͂ĂĂB *s܂H p  ̓dbԍ$& r !B@hz?k?d? !!x v$l$j !(x !!x-$ $x 2̓dbԍ͐ƃnCtœ͂ĂĂBA@& !B@hz>k>k>㗝l̎s撬R[h !!x (̎s撬R[h͂ĂĂBA@& !B@hzH>d@> !!x v$l$j !(x !!x$x .̎s撬R[h͐œ͂ĂĂBA@& !B@hz=k=k='`z= = .!0 .!0 * .!2A@&kH=i@=]'memberNonamenameKana !0!x !!x ! (x ! (Z !(Z'k< presidentName !4!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k;presidentNameKana !8!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k: postalCode !<!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k :address !@!x !!x !(x !(Z !(Z !(~'k9 addressKana !D!x !!x !(x !(Z !(Z'k9telNo !H!x !!x !(x !(Z !(Z'k8areaCode !L!x !!x !(x !(Z !(Z'k8personfaxNoemailmemo Bf[^x[X֔f̂`FbNĂsĂBA@&k`7oX7] 'memberNonamenameKana !2!x ! !x !(x ! (Z !(Z'k6 presidentName !6!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k5presidentNameKana !:!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k5 postalCode !>!x !!x !(x !!x !(x !(Z !(Z !(Z !(Z'k84address !B!x !!x !(x !(Z !(Z'k3 addressKana !F!x !!x !(x !(Z !(Z'k03telNo !J!x !!x !(x !(Z !(Z'k2areaCode !N!x !!x !(x !(Z !(Z'k02personfaxNoemailmemo :Word֔f̂`FbNĂsĂBA@&k1o18 !!  !(  !(~ !0(zk01o(1x !!  !(  !(~ !4(zk0o0 !!  !(  !(~ !4(zkp0oh0 !!  !(  !(~ !8(zk0o08 !!  !(  !(~ !8(zk/o/x !!  !(  !(~ !@(zkP/oH/ !!  !(  !(~ !D(zk.o. !!  !(  !(~ !L(zk.o.8 !!  !(  !(~ !<(zk0.o(.x !!  !(  !(~ !<(zk-o- !!  !(  !(~ !H(zkp-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 ! !  ! (  !(~ !2(zkX+oP+8 !!  !(  !(~ !6(zk*o*x !!  !(  !(~ !6(zk*o* !!  !(  !(~ !:(zk8*o0* !!  !(  !(~ !:(zk)o)8 !!  !(  !(~ !B(zkx)op)x !!  !(  !(~ !F(zk)o) !!  !(  !(~( Me.CheckAreaCodeD.Visible = Truek(o( !!  !(  !(~ !>(zk8(o0(8 !!  !(  !(~ !>(zk'o'x !!  !(  !(~ !J(zkx'op' !"!  !"(  !(~% Me.CheckPerson.Visible = Truek&o& !&!  !&(  !(~$ Me.CheckEmail.Visible = Truekx&op&8 !$!  !$(  !(~$ Me.CheckFaxNo.Visible = Truek%o%x !(!  !((  !(~# Me.CheckMemo.Visible = Truekx%op% ] .n㗝l̖O̐㗝l̖O͏ƍȂ㗝l̖OtKi̐ !0!x !!x  !!x n$l  J n%(dx$ !!x  !!x n$l   n%(k $ !!x  !!x n$l  \ n%(k#k#k#㗝l̑\Җ̐ !4!x !!x  !!x n$l   n%(  !!x n$l  R n%(d" !!x  !!x n$l   n%(  !!x n$l   n%(kX" !!x  !!x n$l   n%(  !!x n$l  d n%(k!k!k!$㗝l̑\ҖtKi̐ !8!x !!x  !!x n$l  N n%(  !!x n$l  P n%(d !!x  !!x n$l   n%(  !!x n$l   n%(kP !!x  !!x n$l  ` n%(  !!x n$l  b n%(kkk㗝lX֔ԍ̐ !<!x !!x  !!x  D n%(  !!x  F n%(d !!x  !!x   n%(  !!x   n%(kx !!x  !!x  V n%(  !!x  X n%(kkk㗝lZ̐ !@!x !!x  !!x n$l   n%(d` !!x  !!x n$l   n%(k !!x  !!x n$l   n%(kkk㗝lZtKi̐ !D!x !!x  !!x n$l  H n%(d !!x  !!x n$l   n%(k !!x  !!x n$l  Z n%(k`kXkP㗝l̓dbԍ̐ !H!x !!x  !!x v$l  T n%(d !!x  !!x v$l   n%(kh !!x  !!x v$l  f n%(kkk㗝l̎s撬R[h̐ !L!x !!x "݂ɂ͑㗝ls撬R[hȂdx !!x"݂ɂ͖Ƌls撬R[hȂk0 !!x$݂ɂ͕㗝ls撬R[hȂkkko $ B@oAttribute VB_Name = "lo^"D Bas0{FEFB345F-DFFE-4EA8-AC12-E1037CDF4598}{8D4A4061-1CDD-4410-BEB2-2CB1FA755656} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD' ЃnCp[_ ' Copyright (c) HyperDyne Inc. All reser;.http://www.hd.co.jp/webmaster@ Option vlicit Pgk Sub UForm_Initialize()B @ rror GoTo ErrMes Dim cBranch As c$ls ASetF= New myCollecA(GiInteg erO D&.Get(i3%j> j@1 @9.Coun@I Me@mboBoxC9.AddItem (jNext j$ListIndexi ockB Back7g= &HE0AJgPA:fPaePda#myStartPos$H= KAGAMI_COUNT 'IDsŽ` txtIDD.ValuAu"}cd%isix'Wordԍ͖gp MemberNoW.Eno(yb@O! ADBƂύX!).`L2D D.cIf Ǘ҃j[.@̂`# Ĉ( Then--cP` (pC7, c`݃ $).Resul^dKanaW tKi `sident1 Trim(_ \Ґީ og 2 L"y $Ir M%{a s  ostalpCode X1:O3E})E 4 3/Addrs}Z /?`L4!-]Te6lJ9eOSdb `?Px41cmdSearchobE1?IƋlV@1NGq 11ooݐ\HetOMAM7uHp rHScHF?N;YY9H03z IAUmI!e ?QIO>G>IJn O IHtAJJ.666OJiJ/7'7^J4c#AJ gRKP9E`nd IfoK~3KԎ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 ' O&H[ W  A/? k6  { o   e= w*?!Ez6! e/ / =/ / / r/ / p<so o j t A _C%ICxt 4h?8?8xtwoT87,   _ _ ^  t$++ O)X A 4 cmdSearch9e0/r " xTru![߉rbMҟ߉ClDataBase?_ 'DB^u`cmberNoD.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   cmidToDoc_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 | YOX֔ԍߗPostalCodeƁ MM MS?7S O3ߏcQ=ӀƇ L+"//4/ ''_J/_J_Js SJ6 ??.1FF cP.GetValue(pKAGAMI, cݕ㗝lX֔ԍO3).Result _ = Me.txtPostalCode1W.^Q)|41|2|End IfH'Z@IfsCheckA@ddress3 = True Then/Ǘ҃j[.ȉP̂2ƂĈ$Fals %X= StrConv(Ck 1, vbWidez)G0E@"G!4ƋlF/A 0\\,1w2=33d.3HtKi=ZKanaZZZ Z([[?\`?\/}C'\ uAI@C ]e]_c _?_" Ii$_̓db^TelNo?^?^?^c?^e]]a'Narrowz \hO .O ds o\ ;.;_// / -/ / - -s撬R[h-e.rea/.['0ɂ͓ Ȃ~O)) CK#R[.$$(eOOO3 Sub Private cmdSelect_Click( ?sI.Show  )`Q <2C(` <2C*` <A/) LI0iCgggI0i?rrrI0i3hhhI0i/sssI0i/iiiI0i+tttI0i+jjjI0i'uuuI0i'kkkI0i DvvvI0i1DlllI0iaDwwwI0iDmmmI0iDxxxI0iDnnnI0iIEyyyD)!EI0iEI0iEI0iEI0iE 2yWKKK2WYYY2G2GrU =- :ZVic !"! Hy.) ,Y)II!i!Q i  A 9Y !q! !PaQW%$a A%{n)I.Yy9|Y}q iyaI1?}9~i Y!EIyy )i q  9!!!i""A# $ >RVW)WQWV42iLOOO!`Q <82LXXX#` <<A/)1IHHH@A/)IWWW D 0I;ZZZ` <HA/)L[[[LA/)L\\\PA/)I]]]TA/)J^^^XA/)1J___\A/)iJ````A/)KaaadA/)JbbbhA/)Jccc l 0IJddd`<pA/)J}}}tA/)KxA/)9K|A/)K2ANNN`<2AUUU$` <21BRRR`Q<2aBSSS`<2BPPP`<2BQQQ ` <2CLLL"` <2)CTTT&` <2 BVVV%`Q <2IC'` <2iC>>>29GMMM A/)W$2YG???`Q<(2GCCC`<,2GDDD`<06i!7` <42 HAAA`<82AHBBB`Q<<2yHFFF`Q<@2HGGG`<D2H@@@`<H2H===`<L2IEEE`<P2aIIII`< T 0IIJJJ`I<XA/)L\!8 I8 ` 0IG+` < d 0I/ooo`< h 0IK{{{`< l 0IILppp`< p 0IYKzzz `Q< t 0IyK||| `< x 0IM,` <-W<<W<<<<<<<W<<<<_<<<<_<<<<_<<<<_<<<<_<<< <_ < < < <_ < < < <_ < < < <dKm x tlrx Qltjdt $ldc`8' @jMP@t @l l l6@ jd`K!krD@l l l5@l l ll l 0l Bp&: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 @l 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@ 0 tx0  l@ K! x%`p p ``1tp5`lt=tMP@ >,Lltpx p ?lL0/Lp*'''<@A*F` =6`<*'''<@B*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*'''<@A*F` =6`<*'''<@B*F` =6`<>Lltpx p ?>LF`  )p5`$ :pp ;lpl'''< :pp ;l#L<*# : ,;l*F` =2L)p6`<0,tx0 Lp`<PlxC$D Ex$ xK'z9kz"$p :tt ;lptl'''0p :tt ;lp#l<*#`d :hh ,;ld*FP =2l`d)th6P0$ 0 ld`thP0 K pz t.h+npt pp $Flh=/hpo'h+npt pp $F>hGpy/$nvGpt pp (Fknpfp `QPp p H dPhkfLt pL tFQH`/h)pL5P kdp p 3pLPp p P:4H$hL L @3/h)pL6P$99/l kd{p p 3pbPp p P:4I$:<:JhL L @3/h)pL6P$?Pp p PhL L /h)pL5Pp p p9/l kdl D#$(P` $D6P$8$:4KNPPD $p p p6P$8$:4LNPPD $p p p6P$8$:4MNPPD $p p p6P$8$:4NNPPD $p p p6P$J$:4ONPPD $ P p p p6P$J$:4ONPPD $ Q p p p6P$8$:4RNPPD $p p p6P$8$:4SNPPD $p p p6P$8$:4TNPPD $p p p6P$8$:4UNPPD $p p p6P$8$:4VNPPD $p p p6P$8$:4WNPPD $p p p6P$8$:4XNPPD $p p p6P$8$:4YNPPD $p p p6P$8$:4ZNPPD $p p p6P$8$:4[NPPD $p p p6P$8$:4\NPPD $p p p6P$8$:4]NPPD $p p p6P$p p 3pLPp p P:4^$hL L @3/h)pL6P$npt @p |6p.Pp $  p  Pf4]3p5P-n@@_pt @p t6knp/-Pp $  p  Pc4]3p5P-n`@_pt @p t6knp/-Pp $  p  Pc4]3p5P~-na@_pt @p t6knp|/QPp p nPhb_Lt @L t6kn/h)pL5P/npt @p 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)xl6T4$ 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)xL6X4$ 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 pp $Fll=/lp'l+zpt pp $F>lGp$zvGpt pp (Fkzpjp ` l`\BLp p '' :GtT/ $vGt pt (Fkpt%dt t d`1t5d l=\dt t MT@^iqld"k p pFk)t5dLdt t d"k p lFl)t5d+''$'D:TjNdd =6dD$/  l0Ldt t d"k p lFl)t5d+''$'D:TjNdd =6dD$/ ,dt t d:T]3t5d*''$'D@k*Fd =6dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$@l*FD@m*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$@o*FD@p*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$@q*FD@r*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$@s*FD@t*#<*#n*Fd^=26dD$t t  t/  ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dO''$@u*FD@v*#<*#n*Fd^=26dD$t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5d O''$@w*FD@x*#<*#n*Fd^=26dD$ t t  t/  ^dt t dD hD$ $  )t6dD$*dt t d yt5dw *''$'D@z*Fd =6dD$t t  t/ 0dt t dD(T]@t5d *''$'D@{*Fd =6dD$t t  t/ ,dt t d:T]3t5dn *''$'D@x*Fd =6dD$t t  t/  ^dt t dD hD$ $  )t6dD$*dt t d yt5dB *''$'D@z*Fd =6dD$t t  t/ 0dt t dD(T]@t5d *''$'D@{*Fd =6dD$t t  t/ ,dt t d:T]3t5d= *''$'D@|*Fd =6dD$t t  t/  ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5d?O''$@}*FD@~*#<*#n*Fd^=26dD$:t t  t/ ^dt t dD hD$ $  )t6dD$,dt t d:T]3t5dAO''$@*FD@*#<*#n*Fd^=26dD$<t t  t/ ?^dt t dD hD$ $  )t6dD$Rdt t cd dFD y/t6dD=*''$'D@*Fd =6dD$t t  t/ ,dt t d:T]3t5d*''$'D@*Fd =6dD$t t  t/ ^dt t dD hD$ $  )t6dD$*dt t d yt5d*''$'D@*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 x$ 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 @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 xx$ 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 xx$ tx)tx x lt0/tx"#tx x /txx x 8xx Dx x$ tx)tx x lt0/tx"#tx x /txx x 8xx Px x$ tx)tx x lt0/tx"#tx x /txx x 8xx `x xt$ 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 xc$ tx)tx x lt0/tx"#tx x /txx x 8xx hx x0$ tx)tx x lt0/tx"#tx x /txx x 8xx px x$ tx)tx 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 xt$ tx)tx x lt0/tx"#tx x /txx x 8xx xx xl$ 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=DH(x 8t<dDH$ 8$ 0ThlD    t pdl$(,48DHP<@L !4"#8$%&'()*+`,xwcO(2Label13{, +2000000ic & (S0n00000o00Wordn0000_jL0 gRk0j0c0f0D00h0M0k00efL0K000h0h:yU00~0Y00 \Omin0Tk0j00h0M0o00000g00000W0f0;ubk0yRU0[00K00D0c0_00X0f00ef0Ock0OX[W0f0K00B00_00f0D0f0O0`0U0D00!/5 MS UI Gothic 5 MS UI Gothic __SRP_3dyNtNxb z >__SRP_3e d__SRP_3f~$<`,A<`#$<`$<`$<`$A< `$< `$< `$ < `$I< `(<` #$<`$ <`$I<`$<`$<` $ <`$$I<`($<`,$<`0$ <`4$I<`8$<`<$<`@$ <`D$I<`H$<`L$<`P$ < `T$I <!`X$ <"`\$ <#``$ <$`d$I <%`h$ <&`l$ <'`p$ <(`t$I <)`x$ <*`|$ <+`$ <,`nrU >T$>`,A>`i,>` i$>`$>`ny'''#rU @T,@`\#,A@``ct 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*#1bd*\G{8ED8EAC6-D5F4-4319-8F70-3BC496675B49}#2.0#0#C:\Documents and Settings\oohashi|]%4iPr6KI}o ڣ坍! LE̻/KIub84Nxxb84Nxr6KI}o ME@SPSSS"p(F1>" LLL*L*P "LL"LLP0{9DE57FA3-218D-4C09-8317-CF45831CACA1}{2FBBCCD8-FE4B-49B3-B6E6-92FC07F70575}%%% >0`hk npp%`lster`jX d@% X.%`H`L`.! N`Px+p)U % R0`8 k)U .%`t`Hr V` k`z `Hx`t  ` xk( %P( %b*4@0X0$ Xxp@Hh`,`*.26@x @t L) @n @` @\ L) %%%TX`\%`@@D @4 @$ @ @ @ @ @0 @ @p H6@ p6`\%80@ `@%X9@@( @@ @p pu(.*&@l % Ux(8%0 Ux%@h ( Ux0 Ux Ux  Ux % Ux8  H ` 0 Ux @p @l . T@x h @ X @@ T @X D @ B p @@ p  @ 0 @( @ @ @ p` 8 P .`r\@h p @ ` @ \ @ L @ J @H x  @0 8 @4 @$ @H  X@ @  @ XhP r08@x XX(T zP*\R7*#53$*\Rffff*DC50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#1c*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Obje\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*D<50cc7a1c$*\Rffff*D450cc7a1c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*DB50cc7a1c*\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 !,(D `!! PB@|k `!! '*]X.n(X n!% n!%'xdP|Hk@]x  n!%'x]].  *  n!% .] . 290$'\h 694$ 'x̕ҏW098$'I̎9:$'񕝂̕ύX9<$ 'sŜI 9>$ 'Obh9@9B9D9F_nameOd5HB@b _memberNoԍ25HB@b _nameKana OtKiP5HB@b_addressZP5HB@b _addressKana ZtKiP5HB@b _areaCodes撬R[h25HB@b _president \Ҏ<5HB@b _presidentNameKana\ҎtKiP5HB@b _personSҬ<5HB@b_telNoTEL<5HB@b_IDID5HB@bq]]] H  H %T. .5J!b name %T9d memberNo %T$memberNo %T;LdH;Lk0nameKana %T$nameKana %T;Ld;Lkaddress %T$address %T;Ld;Lkp addressKana %T$ addressKana %T;Ld;LkareaCode %T$areaCode %T;Ld;Lk president %T$p president %T'.dP'.k@ president2 %T$ .@ president2 %T;Ld .;LkpresidentNameKana %T$presidentNameKana %T'.@dh'.kXpresidentNameKana2 %T$ .@presidentNameKana2 %T;Ld .;Lkperson %T$person %T;Ld;LkptelNo %T$telNo %T ;Ld( ;LkID %T ;Lqq H |  .!0 .!0 * .!2A@&ko0G MsgBox Item & vbCrLf & Item.SubItems(1) & vbCrLf & Item.SubItems(2)o ]] T!T T%L'  H !.!J!N H !.!J%T%L  H !.!J%T(Tkp HkXoP0]p']] H !.!J!N H !.!J%T!T H !.!J%T%L''yk H |kx  `!v(x  `B@ A@r o@ A@ro Attribute VB_Name = "lI"D Bas0{9DE57FA3-218D-4C09-8317 -CF45CACA1}{2FBBCCD8-FE4B-49B3-B6E6-92FC07F70575} 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@|TT(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;$< =p%:$ (p\4`L$Plx;$< =x$ x@HH8<8 x lt0/txQ+tx$ x lt4/tx p.t+nxp p x $ lt=/tx't+nxp p xclsText __SRP_40'*__SRP_41tmodCheckKagami1 <D50cc7a1c*\R0*#e(*\Rffff*DD50cc7a1c\0$*\Rffff*Cy50cc7a1c*\R1*#10b*\R1*#10f*\R0*#10$*\Rffff*D550cc7a1c$*\Rffff*Cf50cc7a1c*\R0*#f$*\Rffff*D250cc7a1c$*\Rffff*D350cc7a1c$*\Rffff*Co50cc7a1c*\R1*#10e*\R1*#10d$*\Rffff*Cp50cc7a1c*\R1*#5c*\R1*#c6rU ?> ($! <V! ).(()A)y))) *A*a***+A+++y'''#Z&y{9q i%$a A%!"QW$$%9%$ 8 0I)$`> < 0IJ` >@6)!7` >DA/)%H&I)&``I>>a>W>>>> K x x @x,tx$ x lt0/txQ+tx$ x lt4/tx p.t+nxp p x $ lt=/tx't+nxp p x $ >t x$nv xp p x ( knplx d5\Y`j4klxp p x t 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%TT*\R1*#c1*\R1*#17b*\R0*#9*\R0*#14*\R0*#19*\R0*#13*\R0*#fH04 6@ 2x > < 0 H h p 6 & &  &0 X x    & & "(*QZTTrP9X`A"*=h8+3q *BTx *BT9X`A"RxR MEp @SS S H "p)L>":L"""" LL"LLLk( DCCUi Hi h%i   l ݶ@ %l :hk`Hd` `l` \H % p % ,6`P<k HJJi  ` t`Hp` 8l ` hX`dh` ` p` \ `L`| %  8X % ,,0` ?k L''i  8`Ht`p  p`A|+|   `B|+,`HCkPOOi nt(%`.p h`%`|f`D`,`F8k Tbi  nt%`h`d`* j`, d`. b`0 \`rZ,``Kk Xi  i.@i  ` l ` h %b HHb PHb (Hb 8 @" @p@8 `xxX 08(px 0 h P8( 8%h  ` z  ` t ` t@` t@` t@  @8p @l H(HA %` th  A %` t` z A %` tHn` t n@@p @` @@P (@X@ @0 @p @ h ` t` x` t` t` t  @D@0d @HT @D @`4 @$ ` t` th ` t h` x` t n0` t@P` A %` t@P @@ @0 @ @ h ` x 8 ` t n"!` t(@ ` @@ P (@!@ @0  ` t8"` tP  p 0 @! @ h ` !x X"!` t#` t "`xp` t #@p h ` "x#"P#""+` t`xp0$$#` t "!"!"H ` t$#`xp$$"(%"%"`xpn@l ( X. [Dummy] &%+ @d x@T @P @L &@J @&D ` xH`0x%%%%%%@%h%@@ '&&+&/'` x ''('h ` 'x'''(` x -(((` x`( z ))*)h ` )z )))` )t * xh  /` *t++++` *x,++* ,h ` +t x -p-,X-,` ,x-,-,-@-` t` ,t @-l .-p- @-h -- @d .-@.` 0.(.-@\ 8...` th (` `.x.x.`. x@t @/00` th G` th//` px0H0` l8 x..x...` /x` t  01` t01` p11 ` l 00 X21@2100`0.@1l @h @d 0` t2@2 ` p1`xl``(@\ ` t` p333` lP 4 @43P54443h42h` t3h3` p0443`xl`h3x(` t` pX44` l4@4 @4` P 44 @h5\ 44 @X (54 h5T(`` t54 ` p@P (@5L ` t5h5` p(65`xl@H (65 4 h h77 8 P 898877x96h* ` t077` p`*6z (X76` t7@77` p7h7 `xl77 @7T 87 @88P P87 0@L @`8H x888@D 8`888`8 @(9@ 88P9<``` t98` p@97%H9@8 h9(9,40`P9,7,9 @2 :`:0P;8<;`::x:hJ `JH:z :`: :H:` t::h` p;: ,@(;X @;;H;@x;T h;(;@P ;(;@;L $;x;%@;H ;;%@;D <;* @@ <;*(<;0;<@> Ph=x>`>X=p=8>==== =h6 `6<z 0==>< * $X @=L @>< @=, @? @ @= .&@>  0>(>=1 @ P>>1@ >? @> @> @ @> @ @> @ @ ?@(@0AHA@@@X@?@?h, `,?z @?p@? .X *&@@l @h @@d @X@@` @@@A\ @@Z @T @AP @L @`A< @xA, @A @A @A @ @ xB   t0C ChH0PDhDEEEDDDEDh `Cx(DD@DC *   t@0El @D\ @X 0@DT `DD&@PO xED&@L @EJ @H @HED @`E@ @< DD 8D.&@n@E, &t@E @PF @hF (FPG`EtG8G`.p@F H@ 0@ HPG0`xhIGHHGIIJPGJFh  `8Gz `0GtIIF `.p IH8@Jp @Jn  6&t @0HT @HHD @`H4 @H$ @xH @H @H (@I @H @H @ I @ @8I @PI @t @Ip @HKl @T XJE@IR @JP 0JIFG    x@@JN xJJI@L xI`xItJ@JI`.p@J H@D 0(KJL@K@ J.* @< 8K@J[ Is@8 `xXLLPM MLL8M LL8LxGh `Lz HL LpLL` LtLXL`.pL.*&@MX @LH @M8 @( @hM$ @  @M @ @M @ @M @M @ J xx hT8zP$*\Rffff*D 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!<!!L"X"Zp"H"<#FX#B#D#V0$Z$Z$ZH%\%Z&Zh&\&"('\P' ' ' ' '( 6 (X( $x((/(( 6(( #)) # )0) 8) H) h)x) ) 4M) *) ** 8* <X* * T*+ &+ 8+ P+ (h+ + + + + + ,, , (, $0,l@,`, h,Bp, x, , , ,$,,, (, b, X- x- -- --88. X.h.p. x. .  .<+...  </ @/ <X/ 0/ / / / 0 80 X0 x0 0 @0 .0 *(1 :X1 &1 B12 2 2 2 (2 . 3 P3 p3  <3 3 <344 4(40484@4X4 h4 "&4414.44$<5(56?05 (Mh555$5 :i5$(L5  6(60686 @6P6 <X6 <6 46 X7 Vh7 87 p7 6h8 t8 |9 (9 69 N9 H: : ,h; (; $; ; < :(< h< < << < $<l<< <B < < <==*=  *@=!p== ===== = $=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[pi19pFz?a3J+3J+f|oTxl]@DP$^[QbgINIt@C]@D8$SetValuȅ[h]@$ ZNV]@D`$ZNV]@D $INIt@Ce Section  %    %  ' kix8Key  %   n %' kkiZNV  % % ' i8 L[] n %'H H H % ' k8i0 l]P n %'H H ( % H % ' kih[Section]`ɂ!(  ' !ihKey=Value`ɂ&uI n x' i #FilezSection\̂蓖Ă(z]]]]0]H] Dummy ` !vX|pkhANZXĂ݂me$X(x .!0na X +Xst Err.Clear kk蓖 _ DoEvents( . Gxjent $X$  X ent2  ZNVƃL[entNam Err.Clearx H@ . T H $ Ps󂯂addr H+T H 'H H@kk .$ ! H+ .$ !   H 'HxN H@ .$ %  H+ . '.T H 'H $X$ e) RgƂs, L[̓VJg H@0 $X H+ H 'HkP  ' 8 H XP 'X .B@oX AName̎擾 ' m AName̐ݒ% ' m Mode̎擾 ' mxx Mode̐ݒ ' mP Section ' m( 8 aISectionKey%] G{j  G{j ! ! NoŎw $ ! ' x e NameŎw H  (~ H$ !$   H$ ! ' .!0ykd$ SẴL[(Section֌WȂ) H  !  H$ ! ' hk`mX NoԖڂSection01Ԗ! G{j  $ !$ ' kmx SectionNameNoԖڂKey01Ԗ]  G{jH G{jx H   H$ 5$  5  7 $ ' kykqm 0 SectionNameKeyNameɑ΂l ] ] 'ȂDefaultl  {8k0 H    H$ 5$   5   7 $   7 $ ':v{ k x kp qh ` mX  (  ValuẽZbg] ] ]8 ]P ]h Gzj  ZNV8 H   H$ !$   H$ !  L[ H$ !   H$ % $  $ ValueXV  x$  H$ , y kx p H$ !  H$ !    VKL[ H$ If .KeysCnt > 0 Then t = 0 @  x$  ; 5  9 q k '*y k kx p kh  H    VKZNV  G'Hj H@   H$   $ 9 x$ ; 9 q  ' '*k ,'*kp ih    ݒ̍폜%KeyȗꍇAZNVƍ폜 ]]D]]]0ZNVȂɂȂƂ "'Jzk  ZNV#  $ !$   @ ` $  + #  ' k #   ' ' 'Jk'L[݂Ȃiw=tj̏ꍇTrue $'JkHd@ L[̂ H  H$ !$   H$ ! yk H$ !   H$ % $   @  H$ %  +   ' k0(   H$   H$ ( " H$ ( 'Jk'L[݂Ȃiw=tj̏ꍇTrue &'Jkhk`XkP ,'Jk8i0  '6ݒ̓ǂݍ݀']8]P]h] 'zk]eLXgt@C̓ǂݍ]]Scripting.FileSystemObject$. (($łɃeLXgt@CΏ㏑ %$ . X((t@C̓eSǂݏI܂Ń[v !& a t@C̓e1s“ǂݍ ( !( 'd  * !( 'k`X B@B]]'|  $$+X-AĎsꍇKeysCnt邽ߏ)@ ($ @ P8*$ , $ ( X*ZNV`*'  X X* $X$  ZNV擾'  ' @ p $X $ ( $X$ e* L[擾 $ @  $X $ ,  $ !  $ (   ' k  ' '6z  .!0 .!0 * .!2A@&ki ݒ̕ۑ',]]' Pzɍ\̂ZbgA .!0zk H X X .!0yk  H$X'd   H$X'kxp $zPkH',z8 0 .!0 .!0 * .!2A@&ki0dumy' op' o ].n]0/#dq\T|[gVXe@eLXgt@Cdl'. . *(#iǕύXo^\/o^ύX́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!2 !l  !  n%' !l e ! !x' !l  e !!x'k | t ݕ̃f[^擾 | . *[]'.k` . *  | 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 '].n n!4!z@k8" If cP.Page.PageCount <> 2 Then[ MsgBox "eLXgǂݍ݂̓y[Włɑ₳ꂽf[^ɑ΂Ă͎sł܂B" Exit Function End If]]0tB^[̐ݒeLXgt@C(*.txt)$*.txt$ׂẴt@C(*.*)$*.*$' !"  n!%' zkeLXgt@Cǂݍ ' $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]] t'r *  * $ ', ,  . * , $  , . $ '0  0 n!%4   0 n%!l KT , 0 $  0 n%( KT , 0 $True , 0 $False , 0 $  0 n%! (xkh  KT , 0 $$x , 0 $ %  0 n%!!2 !N , 0 $  0 n%!(xk 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 * 'z` X .!0 .!0 * .!2A@&k i ']`]xScripting.FileSystemObject$. $łɃeLXgt@CΏ㏑  % . . B@  B@B. . 'z8 0 .!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"#iύXo^q/c"́jc"#KDR h tgJIS,B \ WoPrdBhiOC͕j́AォEɏDPo͐u`B̲̂Ƃ͖֌W0 ȂĂ ̐擪[ ]0tږƃf^Ƃ̊0  u=vipgM̉pׂ_$#RPg"sA u#PlȂǂʼnӲ #+1g 7J/ #w! `ɓp!׫ h*#ȊOɁA`Făb{b u Xv_E'hpvj9)%[@T͑5jG FȂFlase F` ͋ɁBfj[!C.1A3ȍ~2W7Ci* ױ'(p B 'u1v/w肵ĂB܂Av_E̐͂ꂼ قȂ" s = s & vbCr$Lf"#B ͈͓AlAُȐ╶nc_ ڂۑȂ@Agpe%)]̂ŒӁrDim myField As Word.Form 'iIntegeZr j ki1'1X^[g@̒ʎZy WLk Jg=j1p my ValueA"St8rin6 EHach=In=ActiveDocument@sC# IfE .Typ2e wdILTextInput pThen "= cP.Sanitize 2(^.Result,@ pNoth@+, False, True)E!CheckBonx!E .JhDropDownb Nnd IfG5k <= KAGAMI_COUNT'@̃f`F^擾d5H1O[ ]gaEla:A@.GetAName(p, k)A="AX 9xk >oa'deg(cjס0 _iAa   JIKOSYO, j a BA2Aj!0)5!JJ Ai + 1 aaLkljcANcTDData@FaFilAExit Funo ErrMes:#.Number <> 0dMsg!ݡDescriptia 0 @(Public "()@BooleabOn or GoToA  aO›!cP c`lsPapaS et@New K@`7PageSad1=sS \b Coun:t2t""eL@lgǂݍ݂kzłɑĂⰉꂽJ|͎sP{BFl rQ [ltzmeG'tB cw`ݒc= f @C(*.txt)AChr(0"<2+Px*}^*7 q0.OpenDlg(ThisxPath,B4p@ ""_4Y'eu A>=rsSRe|ad`0_'"Vf#ŃG[@"ܽ0B!1+ %!'-e@RpqUnprotecpqRNR?M5o/ 620-q91I-ߚ -m1u6E"Eo4 !? 0Z q`Vo Sp A4VBA.L0eft(p]!(iH), Cn())w1GF1 'dFŌɈ>SRSel ^."Key Unit:=wdStory( '}wInsertBreak  pAttиe[mplate.Auto \EnPes("@\g"). WHERE &_2 :=Rang Rich!:=5F |i$'擪C `;ڕیP40P0m00! 98G"3/7a s-ji(kkmyStartPos Integer myStartPos = KAGAMI_ COUNTxFor iSectt 0 To ,Count - 1FEsFGet(Ef)>If D"" pThen!EmKeyl kN,B.) y7s,Na\me; (p,< i /HcP2.8m.Field(p6() <> }V$SelCas e )&Value$.Type yg" wdCHTextInput9ResulLFELGM$CheckBox$Vg"Tru@e" Or Z Fals O'@}-.BfiBE`nd IfW?KDropDow .KIsNumeric(D)M1DVBAA:<=}Ue.ListEntries.C22f 2 }3ayaCy;Ns' ;a10Leftőn(Page))@QD; @"  `5̡JIKOSYO, gjn  $R mHvQ\ `ʡ*'0_E"J/ ?.TetT`x@e42TTT7oT; T@0T%93.UUo l ,_:) "O&eyŽ/-. OHVV )@ + 4ŬVsS S\DFil6Exit Functio| ErrMHes:f .`|ber/ M sgI& vb@CrLf &RDescrip  pPublic Write (By& As S{ng,R s &)B oolea OnaGo SfFcDim bfbObjWa#ISet= @Create(D"Scng.A System"3'łeLXgt@CĠΏ㰏ap f (myL, a. L ine s3a.0ClosNo`thingW= Zy##F#? ###Ѫ#<d\lh@.X@qTPTdlPlt0/PdTdH!PldThlPlp0/PPldTl>P1x/ dfH qT-X hf\U/ 548 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\4L8l 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>h1tpl!i T! :LrN<<\ 4P&Kpz4 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 AK{1I Izy| %$1&&Y- -.Y.a .1zA% .!/ 00A11)223 44Q556Q7 88Y991:(q&I&a ,)a:F:1\B A8 Fj:);Q;y;~;3&(&(@H9)a)Q@@ @W@@@@_@@@@_@@@@@@_@@W@@@@W@@@_@@Pl Ct7lt #p0lt #l02plFpz/ P(tplpl Ctlt #p=/pd6' :PN@@tM`@ 6@ bpz/p lp(tp@ P l Ct-<tMd@T T(D4$$lt  1x6T$/8 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`\ kfBh kflp*#l7*1p/lMlp*#Dlkf\t d4\ 08ll*#@*# ;t`1h6T4t8p?$@ 42llhlppt 4p A>l1d/pp ld 0!/  ld nHkns+'''4:DBNTT 6T4/ BpZjT,lTcPIpkj4>p1d ldC0=&bTldkj0lTcL=pkbld8>p1\1J+nl\pt d4p ,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/l04lhtp0 $X     HH#,@ `d0,@ `h0,@ `l0,A@ `p00@ ` t0$@`x(@h0(A@h!(@h%#(@h)( @h-(0I@h 1!A(,@h 5!00@h 9Aa08 @h=Ay08I@`AAy#0@` E#(@`I#( @`M#$I@`| $@`(@`Q0( @`U#0I@` Y# &nrU B$B`$B`$B`$B`-8 J zP$*\Rffff*DE50cc7a1c$*\Rffff*Cy50cc7a1c*\R0*#19$*\Rffff*D750cc7a1c*\R0*#f*\R0*#13*\R0*#2*\R0*#14*\R0*#1*\R0*#e*\R1*#10e*\R1*#10b$*\Rffff*Cp50cc7a1c$*\Rffff*D<50cc7a1c$*\Rffff*D850cc7a1c;:  8 "X ( "&&8$`$"((@ h   &&$0X$x"(( 8 X x (d(xME<"p> L"LL" "<ꐤh HꐰP Hꐬ Hꐊ HꐜH H ꐠh H ꐘ H @(HD 0 HH X HJ H Hrh HN  H0 HR  HT  HX P HZ p H\ H H ^  H"` pH#@H%f pH'6 0H(8 H*< H,\ҁiƋlj< 㗝lA+`k ; ntBloc%`lpctio+(`k  ntV%`lp+`Pk  nt$%`lp+`k || ntV%`lpt@@Hꐆh Hꐨ( Hꐐx HB 0 Hꐔ H ꐴ H F h H0 HL  HP  HT X HV 0 H Ht H!b H H$d pXH&H): H+ H(X Xhp0H(0h8@@Pxp4 ` %ݖ@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 *&@d @` @H\ @PX @xH @8 @( @ @ @ prx@  @ |zB B @ 8..@ 8p8 P`z  `8@l @j D *p&rp@d @` @P @0@ @H0 @` @8 @ F H |H @ @ @ xzJ rL N P R P @ @ T .@ hp(@H`z  @l @`j V T *p&rp@d @` @P @@ @0 @ @ @ XX Z |Z @ @x @ 0z\ t^ ` b d b @ @ f .@ (Xx`z  @Hl @j 6 *p&rp@@d @`` @pP @@ @0 @ @ @ z8 : < : @ @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`O` @aHaPa.Xa-xa(a a6a Oab bb .b -b (bbPc OPcc ccc d6drO8d ddd.d-d(e&.(e OPee eee $f T(ff 8g Xg pg Vg Ng V(h @hh $i i i @ij $j k (k @kPkXk `k $hklxkk 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̕@eXR]$ݐ\җX֔ԍO3]$ݐ\җX֔ԍ4h]$ݐ\ҏZtKi(]$ݐ\ҏZP]$ݐ\ҖOtKi]$ݐ\ҖOx]$ݐ\ґ\ҖE]$ݐ\ґ\ҐtKi]$ݐ\ґ\ҖtKi]$ݐ\ґ\Ґ]$ݐ\ґ\Җ]$ݐ\ғdbԍ]$㗝l]$ݑ㗝lX֔ԍO3@]$ݑ㗝lX֔ԍ40]$ݑ㗝lZtKih]$ݑ㗝lZX]$ݑ㗝lOtKi]$ݑ㗝lO]$ݑ㗝l\ҖE]$ݑ㗝l\ҐtKi]$ݑ㗝l\ҖtKi]$ݑ㗝l\Ґ]$ݑ㗝l\Җ0]$ݑ㗝ldbԍ]$㗝lX]$ݕ㗝lX֔ԍO3]$ݕ㗝lX֔ԍ4$H },<T$#Rg-[50!00000000eQR5 !DB 5 !XML 5$!]0n0N[5$I!00005$X!2Wc{t5 1X< ,Rg-[ 00000000eQR2Wc{tXMLcDBLc0000]$ݕ㗝lZtKi]$ݕ㗝lZ ]$ݕ㗝lOtKi]$ݕ㗝lOH]$ݕ㗝l\ҖE]$ݕ㗝l\ҐtKi ]$ݕ㗝l\ҖtKip]$ݕ㗝l\ҐH]$ݕ㗝l\Җ]$ݕ㗝ldbԍpto ]$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!!x 'd'k>--------------------------------------------------------------x"݃y[W\҂̏mF,@lčl̕ʁ@dq\ł͎ŕK{ 7   n%!!x ,̖@lEćEl̕ʂw肳Ă܂B *&CĂxsĂB  ̖@lEćEl̕$& 8z8k0k(1\җX֔ԍO3@K{ł͂Ȃ͂Ȃ   n%! %̗X֔ԍO3͂Ă܂B *s܂H p  ̗X֔ԍ$& rzPkHd@   n%!'l l  n%'lh l   n%( l$x  -̗X֔ԍO3ɐȊO͂Ă܂B *s܂H p  ̗X֔ԍ$& rzHk@k8 l %! +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H p  ̗X֔ԍ$& r$zkk1\җX֔ԍ4@K{ł͂Ȃ͂Ȃ   n%!  %̗X֔ԍ4͂Ă܂B *s܂H p  ̗X֔ԍ$& rzkd   n%!'lx l  n%'lH l   n%( V l %x  -̗X֔ԍ4ɐȊO͂Ă܂B *s܂H p  ̗X֔ԍ$& rzkk   n%! +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H p  ̗X֔ԍ$& rzkkkk:\ҏZtKi@K{iȃ\tgł͎ŕK{j   n%! $̏ZtKi͂Ă܂B *&CĂxsĂB  ̏ZtKi$&  zkd   n%!'l'L l | n%'lꍇ l   n%('JkP\ҏZ@K{L   n%! ̏Z͂Ă܂B *&CĂxsĂB  ̏Z$& $ zkdx   n%!'l l z n%'l0 l   n%(   l 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{B1 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%!'l $X l | n%'l l   n%($  l %2 X .̖OtKi50ȓœ͂ĂB *&CĂxsĂB  ̖OtKi$& !0zkkk\ҖO@K{   n%! "̐\ҖO͂Ă܂B *&CĂxsĂB  ̖O$& zkd   n%!'lXy[X͍폜Ȃ l z n%'lH. l   n%( l %2  &̖O50ȓœ͂ĂB *&CĂxsĂB  ̖O$& zkkk\ґ\ҖE@K{ł͂Ȃ2  B n%!  B n%!'l0 l z n%'l l  B n%(k\ґ\ҐtKi@K{   n%! *̑\҂̐tKi͂Ă܂B *&CĂxsĂB  ̑\҂̐tKi$& zkd   n%!'l2 l | n%'l l   n%( L\ґ\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ   n%! *̑\҂̖tKi͂Ă܂B *s܂H p ̑\҂̖tKi$& rzhk`dX   n%!'l l | n%'l l   n%(.   n%!@   n%! %2  4̑\ҐtKi50ȓœ͂ĂB *&CĂxsĂB  ̑\ҐtKi$& zkkkk\ґ\Ґ@K{   n%! "̑\҂̐͂Ă܂B *&CĂxsĂB   ̑\҂̐$& zkd   n%!'l l z n%'l l   n%(:D\ґ\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ   n%!  "̑\҂̖͂Ă܂B *s܂H p  ̑\҂̖$& rzkd   n%!'l l z n%'l l   n%(   n%!@   n%! %2  ,̑\Ґ50ȓœ͂ĂB *&CĂxsĂB   ̑\Ґ$& z@k8k0k(k ,\ғdbԍ@K{ł͂Ȃ͂Ȃ   n%!  ̓dbԍ͂Ă܂B *s܂H p dbԍ$& rzPkHd@   n%!'l l  n%'l l   n%( l- %  %x &̓dbԍœ͂Ă܂B *s܂H p  ̓dbԍ$& rz8k0k(k 'z  .!0 .!0 * .!2A@&ki '].n] n!!'dh'kX>--------------------------------------------------------------"݃y[W㗝l̏mF1㗝lX֔ԍO3@K{ł͂Ȃ͂Ȃ  D n%! %̗X֔ԍO3͂Ă܂B *s܂H p  ̗X֔ԍ$& rzkd  D n%!'l l  n%'l l  D n%( l %x (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ   ̗X֔ԍ$& zkk l % +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H p  ̗X֔ԍ$& rz@k8k03㗝lX֔ԍ4@@K{ł͂Ȃ͂Ȃ  F n%! %̗X֔ԍ4͂Ă܂B *s܂H p  ̗X֔ԍ$& rzPkHd@  F n%!'l l  n%'l l  F n%( l %x (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ   ̗X֔ԍ$& z0k(k  l % +̗X֔ԍ3-4̌`ɂȂĂ܂B *s܂H p  ̗X֔ԍ$& rzkxkpkhk`F㗝lZtKi@K{iȃ\tgł͕K{ł͂ȂƋlƓj  H n%! $̏ZtKi͂Ă܂B *$CĂxsĂ  ̏ZtKi$& zXkPdH  H n%!'l l | n%'l l  H n%(k㗝lZ@K{   n%! ̏Z͂Ă܂B *$CĂxsĂ  ̏Z$& z kd   n%!'l l z n%'l l   n%(㗝ls撬R[h  l n!% X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B *&CĂxsĂB  ̎s撬R[h$& zkkkxkp㗝lOtKi@K{  J n%! $̖OtKi͂Ă܂B *&CĂxsĂB  ̖OtKi$& zkd  J n%!'lXy[X͍폜Ȃ l | n%'l l  J n%( l %2  .̖OtKi50ȓœ͂ĂB *&CĂxsĂB  ̖OtKi$& z@k8k0k(㗝lO@K{  r n%! ̖O͂Ă܂B *&CĂxsĂB  ̖O$& z`kXdP  r n%!'lXy[X͍폜Ȃ l z n%'l l  r n%( l %2  &̖O50ȓœ͂ĂB *&CĂxsĂB  ̖O$& z k k k 㗝l\ҖE@K{ł͂Ȃ  L n%!  L n%!'l l z n%'l l  L n%( l %  ,̑\ҖE15ȓœ͂ĂB *&CĂxsĂB   ̑\ҖE$& z k k k 㗝l\҃tKi@K{  N n%! ,\҂̎tKi͂Ă܂B *&CĂxsĂB  \҂̎tKi$& z k d  N n%!'l l | n%'l l  N n%(L㗝l\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  P n%! ,\҂̎tKi͂Ă܂B *s܂H p \҂̎tKi$& rz k d  P n%!'l l | n%'l l  P n%(  N n%!@  P n%! %2  4̑\ҐtKi50ȓœ͂ĂB *&CĂxsĂB  ̑\ҐtKi$& zkkkk㗝l\ҁ@K{   n%! $\҂̎͂Ă܂B *&CĂxsĂB  \҂̎$& zkd   n%!'l l z n%'lD㗝l\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ l   n%(  R n%! $\҂̎͂Ă܂B *s܂H p \҂̎$& rzPkHd@  R n%!'l l z n%'l l  R n%(   n%!@  R n%! %2  ,̑\Ґ50ȓœ͂ĂB *&CĂxsĂB   ̑\Ґ$& zkkkk,㗝ldbԍ@K{ł͂Ȃ͂Ȃ  T n%!  ̓dbԍ͂Ă܂B *s܂H p  ̓dbԍ$& rzkd  T n%!'l l  n%'l l  T n%( l- %  %x &̓dbԍœ͂Ă܂B *s܂H p  ̓dbԍ$& rzkkk'z  .!0 .!0 * .!2A@&kxip( `']h.n] n!!'d'k>--------------------------------------------------------------$݃y[W畜㗝l̏mF1lX֔ԍO3@K{ł͂Ȃ͂Ȃ  V n%! T %̗X֔ԍO3͂Ă܂B *s܂H p T ̗X֔ԍ$& rz?k?d?  V n%!'l l  n%'l l  V n%( l %x T (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ  T ̗X֔ԍ$& z>k>k> l % T +̗X֔ԍ3-4̌`ɂȂĂ܂B *$CĂxsĂ  T ̗X֔ԍ$& z=k=k=㗝lX֔ԍ4  X n%! T %̗X֔ԍ4͂Ă܂B *s܂H p T ̗X֔ԍ$& rz<k<d<  X n%!'l l  n%'l l  X n%( l %x T (̗X֔ԍɐȊO͂Ă܂B *$CĂxsĂ  T ̗X֔ԍ$& z;k;k; l % T +̗X֔ԍ3-4̌`ɂȂĂ܂B *$CĂxsĂ  T ̗X֔ԍ$& z;k;k;k:k:H㗝lZtKi@K{iȃ\tgł͕K{ł͂ȂƋlƓj  Z n%! T $̏ZtKi͂Ă܂B *$CĂxsĂ  T ̏ZtKi$& z9k9d9  Z n%!'l l | n%'l l  Z n%(kp9㗝lZ@K{   n%! T ̏Z͂Ă܂B *&CĂxsĂB  T ̏Z$& z8k8d8   n%!'l l z n%'l l   n%(㗝ls撬R[h  l n!% T X̏ZAs{Ŏn܂ĂȂAs撬R[hɓo^Ă̂ł͂܂B *&CĂxsĂB  T ̎s撬R[h$& z7k7k7k7k6㗝lOtKi@K{  \ n%! T $̖OtKi͂Ă܂B *&CĂxsĂB  T ̖OtKi$& z6k6d6  \ n%!'lXy[X͍폜Ȃ l | n%'l l  \ n%( l %2  T .̖OtKi50ȓœ͂ĂB *&CĂxsĂB  T ̖OtKi$& z4k4k4k4㗝lO@K{  t n%! T ̖O͂Ă܂B *&CĂxsĂB  T ̖O$& z3k3d3  t n%!'lXy[X͍폜Ȃ l z n%'l l  t n%( l %2  T &̖O50ȓœ͂ĂB *&CĂxsĂB  T ̖O$& z2k2k2k2 㗝l\ҖE@K{ł͂Ȃ  ^ n%!  ^ n%!'l l z n%'l l  ^ n%( l %  T ,̑\ҖE15ȓœ͂ĂB *&CĂxsĂB  T ̑\ҖE$& z01k(1k 1k1㗝l\҃tKi@K{  ` n%! T ,\҂̎tKi͂Ă܂B *&CĂxsĂB  T \҂̎tKi$& z 0k0d0  ` n%!'l l | n%'l l  ` n%(N㗝l\ҖtKi@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  b n%! T ,\҂̎tKi͂Ă܂B *s܂H p T \҂̎tKi$& rz.k.d.  b n%!'l l | n%'l l  b n%(  ` n%!@  b n%! %2  T 4̑\ҐtKi50ȓœ͂ĂB *&CĂxsĂB  T ̑\ҐtKi$& z0-k(-k -k-k-㗝l\Ґ@K{   n%! T ̑\Ґ͂Ă܂B *&CĂxsĂB  T ̑\Ґ$& z8,k0,d(,   n%!'l l z n%'l l   n%(F㗝l\Җ@K{Ȃꍇ肻Ȃ̂ŕK{ɂ͂Ȃ  d n%! T ̑\Җ͂Ă܂B *s܂H p T ̑\Җ$& rz*k*d*  d n%!'l l z n%'l l  d n%(   n%!@  d n%! %2  T ,̑\Ґ50ȓœ͂ĂB *&CĂxsĂB  T ̑\Ґ$& zx)kp)kh)k`)kX).㗝ldbԍ@K{ł͂Ȃ͂Ȃ  f n%! T ̓dbԍ͂Ă܂B *s܂H p T ̓dbԍ$& rz(kx(dp(  f n%!'l l  n%'l l  f n%( l- %  %x T &̓dbԍœ͂Ă܂B *s܂H p T ̓dbԍ$& rzh'k`'kX'kP''z@' 8' .!0 .!0 * .!2A@&k'i& &'].n] n!!'d&'k&>--------------------------------------------------------------&݃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%! 6 ̏͂Ă܂B *s܂H p 6 ̏$& rz k d   n%!'l l z n%'l l   n%( l %  6 *̏͑Sp20܂ł͂ł܂B *&CĂxsĂB  6 ̏$& zkkkAӔCҖO@K{  8 n%! 6 ̖O͂Ă܂B *&CĂxsĂB  6 ̖O$& zkd  8 n%!'l l z n%'l l  8 n%(AӔCҖO@K{  : n%! 6 ̖O͂Ă܂B *&CĂxsĂB  6 ̖O$& zxkpdh  : n%!'l l z n%'l l  : n%(k  8 n%!@  : n%! %2  6 &̐50ȓœ͂ĂB *&CĂxsĂB  6 ̖O$& zkkkAӔCғdbԍ  < n%! 6 ̓dbԍ͂Ă܂B *s܂H p 6 ̓dbԍ$& rzHk@d8  < n%!'l l  n%'l l  < n%( l- %  %x 6 &̓dbԍœ͂Ă܂B *&CĂxsĂB  6 ̓dbԍ$& zkkk '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@&k`iXP"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 ϓaSPodWMc"G/'_ї Ah>X_S]Option Exp AitVFuncClient()BooleanOrror GoTo ErrMesqx False Dim cP`clsPa`sS eXPNew s!mycI f.fig.0ReadpTrue 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%%%+/&/%/&&& due(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!DSO~va_4G 8= Q!dOC3_4_4JCĂxsB", vbOKOnly, cAӔC & "̖O") =F Then Exit Fu nctio4End IfTElse4myStringRcP.GetValue(pKAGAMI).@ResultDSanitizeText(_, pWide, Tru)#-@Y/"'U@K{If #4̖t4""%MsgBox(܂dx _#o&tCrLfy^THJA^GSK? v$0vE$ @yVBA.Len( z`x@"@< a~'P) > 50_PiP50ȓQ!_Q,?_Q朊T7hdbԍ@8?.!.9 ~~a@vbe~"܂HYesNo NoB)j'/E%#-zgNarrow> Cz6Not yIsNumeric(Replace"-/""))mm䎚m?_???5B'F/"d5/7 '87[AhX781084[8w 1)8b8X8{4c/s=1v9??? :@In(1, , "@PCompareѯ?pA_!f\!@9!?Z?Z!8!_*"anV".=  B=Ɂu.visIhj(_6_6_6_6^1?3NRCheck'municator@+Sn< ErrMes:QQ.pfber <>V;1K H(HQDescripg 0 ' __SRP_42G__SRP_430modOutputXML2U__SRP_440H@ #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~| CB| )-< ,F ) a A% 9!Ey|1A   y In) )Q 9  q Yi  y!y  })%$I)!Yy )Iy )i)Yi!q9q Ya 9 iy  !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)ld6H80U0,tp0 \XldH8Kpz t$jlt l kjlEzNz6dl+jEt l lld0/dlO'' F*F@F*#d *#`*FP^ 2d`6P@ :.dl+jEt l l>d1pl-d+++jYlpt >d1p(lpl+jEt l plpM0@ O'' F*F@FG*#d *#`H*FP^ 2d`6P' F'*F@F)*#d *#` *FP^ 2d`6P@  6dl+jPt l lld=/dl? .dl+jPt l l>d1pl-d+++jYlpt >d1p(lpl+jPt l pl#pM0@P P(]t5P= O'' FQ*F@FR*#d *#` *FP^ 2d`6P@ ; 6dl+jSt l lld0/dl O'' FT*F@FU*#d *#` *FP^ 2d`6P@  C.dl+jSt l l>d1pl-d+++jYlpt >d1p(lpl+jSt l pl6dl+jVt l lld0/dl O'' FW*F@FX*#d *#`*FP^ 2d`6P@  A.dl+jVt l l>d1pl-d+++jYlpt >d1p(lpl+jVt l pldl+jSt l lld1*#`+Vt  ll`*FP@ @(02]t2d`)l6P@?O'' F2*F@F3*#d *#` *FP^ 2d`6P@ =6dl+jYt l lld0/dlO'' FZ*F@F[*#d *#` *FP^ 2d`6P@ G.dl+jYt l l>d1pl-d+++jYlpt >d1p(lpl+jYt l pl6dl+j\t l lld0/dlO'' F]*F@F^*#d *#`*FP^ 2d`6P@ E.dl+j\t l l>d1pl-d+++jYlpt >d1p(lpl+j\t l pldl+jYt l lld1*#`+\t  ll`*FP@ @(02]t2d`)l6P@CO'' F:*F@F;*#d *#` *FP^ 2d`6P@ A6dl+j_t l lld0/dlO'' FA*F@F>*#d *#`*FP^ 2d`6P@ .dl+j_t l l>d1pl-d+++jYlpt >d1p(lpl+j_t l pl.?lp @FP 5PO'' FA*F@FB*#d *#`*FP^ 2d`6P@ pz$ Cll Dll{l'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ Kpz t$jlt l kjlEzNz6dl+j`t l lld0/dlO'' a*F@a*#d *#`*FP^ 2d`6P@ :.dl+j`t l l>d1pl-d+++jYlpt >d1p(lpl+j`t l plpM0@ O'' a*F@aG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5PBO'' a*F@a*#d *#`H*FP^ 2d`6P@ @6dl+jbt l lld0/dlO'' a*F@a*#d *#`*FP^ 2d`6P@ 8.dl+jbt l l>d1pl-d+++jYlpt >d1p(lpl+jbt l plpM0@ O'' a*F@aG*#d *#`H*FP^ 2d`6P@ #pM0@P P(]@5P6O'' a*F@a*#d *#`H*FP^ 2d`6P@ 46dl+jct l lld0/dlO'' a*F@a*#d *#`H*FP^ 2d`6P@ N.dl+jct l l>d1pl-d+++jYlpt >d1p(lpl+jct l pl6dl+jdt l lld0/dlO'' a*F@a*#d *#` *FP^ 2d`6P@ .dl+jdt l l>d1pl-d+++jYlpt >d1p(lpl+jdt l pl u,dlplt l ld0/dlO'' a *F@a!*#d *#` *FP^ 2d`6P@ 6dl+jet l lld0/dlO'' a#*F@aM*#d *#` *FP^ 2d`6P@ {~.dl+jet l l>d1pl-d+++jYlpt >d1p(lpl+jet l pl#pM0@P P(2]t5P|O'' a#*F@a%*#d *#` *FP^ 2d`6P@ z6dl+jft l lld0/dl O'' a'*F@aO*#d *#` *FP^ 2d`6P@   .dl+jft l l>d1pl-d+++jYlpt >d1p(lpl+jft l pl#pM0@P P(2]t5P O'' a'*F@a)*#d *#` *FP^ 2d`6P@  6dl+jgt l lld=/dl? .dl+jgt l l>d1pl-d+++jYlpt >d1p(lpl+jgt l pl#pM0@P P(]t5P= O'' aQ*F@aR*#d *#` *FP^ 2d`6P@ ; 6dl+jht l lld0/dl O'' aT*F@aU*#d *#` *FP^ 2d`6P@  C.dl+jht l l>d1pl-d+++jYlpt >d1p(lpl+jht l pl6dl+jit l lld0/dl O'' aW*F@aX*#d *#`*FP^ 2d`6P@  A.dl+jit l l>d1pl-d+++jYlpt >d1p(lpl+jit l pldl+jht l lld1*#`+it  ll`*FP@ @(02]t2d`)l6P@?O'' a2*F@a3*#d *#` *FP^ 2d`6P@ =6dl+jjt l lld0/dlO'' ak*F@al*#d *#` *FP^ 2d`6P@ G.dl+jjt l l>d1pl-d+++jYlpt >d1p(lpl+jjt l pl6dl+jmt l lld0/dlO'' an*F@ao*#d *#`*FP^ 2d`6P@ E.dl+jmt l l>d1pl-d+++jYlpt >d1p(lpl+jmt l pldl+jjt l lld1*#`+mt  ll`*FP@ @(02]t2d`)l6P@CO'' a:*F@a;*#d *#` *FP^ 2d`6P@ A6dl+jpt l lld0/dlO'' aA*F@a>*#d *#`*FP^ 2d`6P@ .dl+jpt l l>d1pl-d+++jYlpt >d1p(lpl+jpt l pl.?lp @FP 5PO'' aA*F@aB*#d *#`*FP^ 2d`6P@ pz$ Cll Dll{l'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ tKpz t$jlt l kjlEzNz6dl+jqt l lld0/dlO'' rs*F@rt*#d *#`*FP^ 2d`6P@ .dl+jqt l l>d1pl-d+++jYlpt >d1p(lpl+jqt l pl#pM0@P P(]t5PO'' rs*F@ru*#d *#` *FP^ 2d`6P@ 6dl+jvt l lld0/dljO'' r'*F@rw*#d *#` *FP^ 2d`6P@ e.dl+jvt l l>d1pl-d+++jYlpt >d1p(lpl+jvt l pl6dl+jxt l lld0/dl|O'' r'*F@ry*#d *#` *FP^ 2d`6P@ w.dl+jxt l l>d1pl-d+++jYlpt >d1p(lpl+jxt l pldl+jvt l lld1*#`+xt  ll`*FP@ @(02]t2d`)l6P@O'' r'*F@rz*#d *#` *FP^ 2d`6P@ 6dl+j{t l lld0/dlnO'' rA*F@r>*#d *#`*FP^ 2d`6P@ iw.dl+j{t l l>d1pl-d+++jYlpt >d1p(lpl+j{t l pl.?lp @FP 5PuO'' rA*F@rB*#d *#` *FP^ 2d`6P@ spz$ Cll Dlll'' '@ Cll Dl#d *#` C ,Dl`*FP 2d`)l6P@ ,tp0 d`lP@ \nrU D(D`(D`(D`n  QAǷ0* pHddq\T|[gL@  Z= ~ zP %J< 9st dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system3*\R1*#10e*\R1*#10b$*\Rffff*DE50cc7a1c$*\Rffff*Cp50cc7a1c*\R0*#e*\R0*#14M  8 "X B     *'( TH & T(#   ZH  "C 8J.8:.0.6 lh 0. <6 |h( 8."F 8J.P:.0.6 lh0 0. <6  |h@ 8. "F <0 J.p :. 0. 60,(E#xME8"p6 L"LL "<<<Hx+ `k@ i  npx%` l erdy` h A`L bN`P j`N + `k8 ddi ---- npp----%` l ----` h + ` tk ##*i  np %` l  ` h -hk`L ʁv`P XNv`N K̖> %`H`8p` z F $0.,.84.h*+     ( 0 $8lHh pBx   J    *'H Th  T8.06h bq.7(Dj00x .7 @ 67H 27  " " J! LX! @! ! ! " 8" H" >P" T" "" # # p$ X$ X$ 0% T@% 6% % & N& & R' @`' ,7'@@'>I(>IP(@@(6@(>@).7H) 6x) ~)*27 *X*67`* T* * + R+ 8,<7H, :.,*#, , -(- 0-8- @- $H-lX-x- -B- - - - - -- *-'.  N(. x. N.6.&#/ 0/2.H/ :/0./ $/270 P067h0 0>70 &127(1,7`1@@1 1>I1 "(2>IP2@@2 226@3 >@3>@3.73 3274 @467X4 :4274 B5:7P5275 D5>@6 .P6:@64762.6(#07  X7 x77777  N7 7 N8&#X8 $8B.8 :80.09 $`9<79 969 rq:x:67:: :6: q;;>7;; &;Dj<(H<<27<=,7=@@H= ==6=.=$===>> > "(> P> rj`> d[>@?>IH?>I?? @@? 2@H@ ns`@@6@@A >AXA6`A.AAAAA ~sAPB>@XBB .7B B6B zCC27CC C6C rqDD67DD @DDjE0PEE27E(F H0FDjxF0FhG:7pGG 27G DGN@8H .H:@H47H2.0I  NhI I NI6 J(#@J hJ JJJJJ 0.J $J<7K PK6hK rqKL67L@L HL6hL qLM>7MXM (`MDjM(MXN27`NN,7N@@N 6O.0O$POhOpOxOO O $O O rjO d[XPP>IP>IQHQ@@PQ 4QQ nsQPR6@XRR @R6R.RS S(S0S ~sHSS>@ST .7T HT6`T zTU27U@U HU6`U UV67VHV BPVDjV0VxW27WW JWDjX0XXY:7YHY 27PY DYN@Y . Z:@PZ47Z2.Z(#[  ([ H[X[`[h[ p[ $x[l[[ [[ ЃnCp[_C1 Copyright (c) HyperDyne Inc. All right reserved. http://www.hyperdyne.co.jp/ webmaster@hyperdyne.co.jpXp 8' ]`.nH]]Scripting.FileSystemObject$.   %$ . HM----------------------------------------------------------------------------- ȉ\ҁiƋljɊւM----------------------------------------------------------------------------- " " <\ғ> B@ Stourou-hkł́u@lčl̕ʁvuo^lR[h`FbNvuo^lR[hv^OKv  Ƌl̖OƋl̃tKi   n%!!xPU2@l̏ꍇAƋl̖O@l͒ĉƋl̖O " "  " *<@l_c_l̕>1 B@  " "  "  B@  " "  "  B@    n%!   " "  " <͖>   n%! B@ dp " "  " <͖/> B@ k86@l̏ꍇA@l͒c̃tKiƋl̖OtKi   n%!   " "  " <͖̃tKi>   n%!]0n0N0Tab3Tab4Tab10Tab6Tab5Tab8Tab75 MS UI Gothic6789:;<=,?@ XI\]^_`$H A}<,R ,#Rg-[0000,]#00 B@ dP " "  " <͖̃tKi/> B@ k   n%!!xe2ĉ̏ꍇAƋl̖O@l͒ĉƋl̖O " "  " *<@l_c_l̕>2 B@  " "  "  B@  " "  "  B@    n%!   " "  " <͖>   n%! B@ dX " "  " <͖/> B@ k 6ĉ̏ꍇA@l͒c̃tKiƋl̖OtKi   n%!   " "  " <͖̃tKi>   n%! B@ d8 " "  " <͖̃tKi/> B@ k   n%!!xe6l̏ꍇAl͖@lEc̑\ҖƋl̖O " "  " *<@l_c_l̕>3 B@  " "  "  B@  " "  "  B@    n%! " " "  " <͖>   n%!@   n%! B@ d " "  " <͖/> B@ k6l̏ꍇA@l͒c̃tKiƋl̖OtKi   n%! " " "  " <͖̃tKi>   n%!@   n%! B@ d " "  " <͖̃tKi/> B@ kd @lEćEl̕ʂُłBA@&zHk@ Ƌl̗X֔ԍinCtȂj    n%!   n%!  " "  "     n%!   n%!  B@ dH " "  "   B@ k]]   n%!   n%!'L L n!%'P d'L 'P k " "  "  B@  " "  "  "  B@ Ƌl̏ZԍƋl̏Zs撬R[hƋl̏Zs撬R[hȉ P    " "  "  "  "   P  %  B@    " "  "  "  "   P   B@ &d " "  "  "  "   B@  " "  "  "  "   B@ k` " "  "  "  B@ ! P  L   " "  "  "  <_> L P n!%l   B@ d " "  "  "  <_/> B@ k`&Ƌl̏Zs撬R[hȉtKi ]   n%!   n%!'N "d 'N k N  P   " "  "  " <_ڃtKi> N P n!%R  B@ d8 " "  "  " <_ڃtKi/> B@ k " "  "  B@ Ƌl̓dbԍv   n%!{   " "  "     n%!-$   B@ td " "  "   B@ k 5-----------------------------------------------------(!kaisetuł́udbԍ⑫vKv " "  "  B@ 5-----------------------------------------------------Ď " "  "  B@ Ƌl̑\ҖE,Ƌl̑\ҖiƖ̊Ԃ͑SpXy[Xj!Ƌl̑\ҖtKi   n%!!x *6@l̏ꍇAl͖@lEc̑\ҖƋl\ҖO  B n%!   " "  " <\ҖE>  B n%! B@  dp " "  " <\ҖE/> B@ k8    n%!   n%!B " " "  "  <\Җ>   n%!@   n%!  B@  dX " "  "  <\Җ/> B@ &Ck  " "  " <\ҖtKi/> B@ &   n%!!xe 6ĉ̏ꍇAl͖@lEc̑\ҖƋl\ z  B n%!   " "  " <\ҖE>  B n%! B@ d " "  " <\ҖE/> B@ k   n%!   n%!E@ " " "  "  <\Җ>   n%!@   n%!  B@ d " "  "  <\Җ/> B@  k " "  " <\ҖtKi/> B@  ݐ\Җ@lčl̕ n%!!xel̏ꍇAƋl\҂͂Ȃi " "  " <\ҖE/> B@  " "  "  <\Җ/> B@  " "  " <\ҖtKi/> B@ \dX @lEćEl̕ʂُłBA@&ŕK{z kXMLt@C‚ B@B*. ' z  .!0 .!0 * .!2A@&ki hDtouroku-hkɂWordɘAӔCҏZE[AhXȂ̂Œl' ]X.n.]x]Scripting.FileSystemObject$.   %$ . 4M-----------------------------------------------------------------------------sȉAӔC M-----------------------------------------------------------------------------\ " "  " <\ɊւAӔC> B@    n%!  " "  "  " <>   n%! B@ & d " "  "  "  B@ 'k   8 n%!  : n%!D\   $ " "  "  " <>  8 n%!@  : n%! B@ d " "  "  "  B@ \k " "  "  "  B@  " "  "  "   B@ l  Dim myAddress As String  Dim myAreaCode As String%D If cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result <> "" ThenF myAddress = cP.GetValue(pKAGAMI, cݘAӔCҏZ).Result: myAreaCode = cP.AreaCode.AreaCodeInsert(myAddress) ElseK myAddress = "" myAreaCode = "" End If8 a.WriteLine vbTab & vbTab & vbTab & vbTab & ""M a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & ""  If myAreaCode <> "" Then n ~ a.WriteLine vbTab & vbTab & vbTab & vbTab & vbTab & vbTab' & ""' & VBA.Left(myAreaCode, 2)' & ""8  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@ 0 " "  "  "  "  B@  " "  "  "  "  "   B@  " "  "  "  "  "   B@  " "  "  "  "  B@  " "  "  "  "  <_/> B@  " "  "  "  " <_ڃtKi/> B@ ( " "  "  "  B@   < n%!Ħ " "  "  "    < n%!- %   B@ -d " "  "  "   B@ p 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' & ""' Else|K a.WriteLine vbTab & vbTab & vbTab & vbTab & ""K{ End If " "  "  "  B@  " "  "  B@ ̏Z " "  B@  XMLt@C‚l z B@B%. ' z  .!0 .!0 * .!2A@&kix X' ].nŎn](]@Scripting.FileSystemObject$. B  %$ . xH------------------------------------------------------------------------㗝l݂ȂꍇH------------------------------------------------------------------------t  r n%! " "  <㗝l> B@ dqϔC̗L " "  "  B@ 4-----------㗝l֘A------------------------------- " "  " <㗝l񖾍> B@ 㗝l C:㗝l D:㗝l " "  "  "  <㗝/> B@ Ă 㗝l̖OC " "  "  " <͖/> B@ 㗝l̖Ôӂ肪@ " "  "  " <͖̃tKi/> B@  㗝l̗X֔ԍinCtȂj " "  "  "   B@ xs " "  "  "  B@  " "  "  "  "  B@ 㗝l̏Zԍ " "  "  "  "  "   B@ (㗝l̏Z̎s撬R[h " "  "  "  "  "   B@  " "  "  "  "  B@ ,㗝l̏Zs撬R[h͂̐l\ " "  "  "  "  <_/> B@ 8㗝l̏Zs撬R[h͂́iӂ肪ȁj " "  "  "  " <_ڃtKi/> B@  " "  "  "  B@ 㗝l̓dbԍ " "  "  "   B@ ҖE 㗝l̖E " "  "  " <\ҖE/> B@ {3㗝l̖Oiі Ɩ̊Ԃ͑SpXy[Xjt " "  "  "  <\Җ/> 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@ tK " "  "  "   B@  P " "  "  B@ l " "   B@ XMLt@C‚@ B@B%. ' z`kXH------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------ " "  <㗝l> B@ \dqϔC̗L 2:gpȂ " "  " "2 B@ 4-----------㗝l֘A-------------------------------$& " "  " <㗝l񖾍> B@ 㗝l C:㗝l D:㗝l " "  "  " <㗝>C B@  㗝l̖O͂  r n%!(  " "  "  " <͖>  r n%! B@ Hd " "  "  " <͖/> B@ k@㗝l̖Ôӂ肪  J n%!  " "  "  " <͖̃tKi>  J n%! B@ \dp " "  "  " <͖̃tKi/> B@ sk( 㗝l̗X֔ԍinCtȂj   D n%!  F n%!@K  " " "  "  "    D n%!  F n%!  B@ d( " "  "  "   B@ k " "  "  "  B@  " "  "  "  "  B@ ]X]p   n%!   n%!'L B L n!%'P Hd'L 'P k㗝l̏Zԍ㗝l̏Z̎s撬R[h  P     " "  "  "  "  "   P  %   B@     " "  "  "  "  "   P   B@ ----d " "  "  "  "  "   B@  " "  "  "  "  "   B@ k0 " "  "  "  "  B@ ,㗝l̏Zs撬R[h͂ L  P    " "  "  "  "  <_> L P n!%l   B@ d(? " "  "  "  "  <_/> B@ k>8㗝l̏Zs撬R[h͂́iӂ肪ȁj]  H n%!  H n%!'N dX>'N kH> N  P    " "  "  "  " <_ڃtKi> N P n!%R  B@ d= " "  "  "  " <_ڃtKi/> B@ k`= " "  "  "  B@ 㗝l̓dbԍ  T n%!  " "  "  "    T n%!-$   B@ dp< " "  "  "   B@ k0< 㗝l̖E  L n%!  " "  "  " <\ҖE>  L n%! B@ dx; " "  "  " <\ҖE/> B@ k8;9㗝l̑\ҖOiі Ɩ̊Ԃ͑SpXy[Xj    n%!  R n%!   $ " "  "  "  <\Җ>   n%!@  R n%!  B@ d: " "  "  "  <\Җ/> B@ k9A㗝l̑\ҖOӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj   N n%!  P n%!   $ " "  "  " <\ҖtKi>  N n%!@  P n%! B@ d8 " "  "  " <\ҖtKi/> B@ kH8 " "  "  "  <ϔC> B@ =ϔCo@ 1:ʏϔCij/ʓrQ 2:ϔCij " "  "  "  " "<ϔCo@>1 B@ (ϔCԍiʏϔC̏ꍇA͕sj " "  "  "  "  <ϔCԍ/> B@  " "  "  "   B@  " "  "  B@ H------------------------------------------------------------------------ 㗝lH------------------------------------------------------------------------  t n%! " "   B@ XMLt@C‚ B@B. ' zP5kH5 " "  " <㗝l񖾍> B@ 㗝l C:㗝l D:㗝l " "  "  " <㗝>D B@ 㗝l̖O  t n%!  " "  "  " <͖>  t n%! B@ d3 " "  "  " <͖/> B@ k3㗝l̖Ôӂ肪  \ n%!  " "  "  " <͖̃tKi>  \ n%! B@ d2 " "  "  " <͖̃tKi/> B@ k2"㗝l̗X֔ԍinCtȂj   V n%!  X n%!  " " "  "  "    V n%!  X n%!  B@ d1 " "  "  "   B@ k`1 " "  "  "  B@  " "  "  "  "  B@    n%!   n%!'L L n!%'P d0'L 'P kx0㗝l̏Zԍ㗝l̏Z̎s撬R[h P     " "  "  "  "  "   P  %   B@     " "  "  "  "  "   P   B@ d8/ " "  "  "  "  "   B@  " "  "  "  "  "   B@ k. " "  "  "  "  B@ .㗝l̏Zs撬R[h͂ L  P    " "  "  "  "  <_> L P n!%l   B@ d- " "  "  "  "  <_/> B@ kh-:㗝l̏Zs撬R[h͂́iӂ肪ȁj  Z n%!  Z n%!'N d,'N k, N  P    " "  "  "  " <_ڃtKi> N P n!%R  B@ d0, " "  "  "  " <_ڃtKi/> B@ k+ " "  "  "  B@ 㗝l̓dbԍ  f n%!  " "  "  "    f n%!-$   B@ d* " "  "  "   B@ k*㗝l̖E  ^ n%!  " "  "  " <\ҖE>  ^ n%! n$l$j B@ d) " "  "  " <\ҖE/> B@ k);㗝l̑\ҖOiі Ɩ̊Ԃ͑SpXy[Xj    n%!  d n%!   $ " "  "  "  <\Җ>   n%!@  d n%!  B@ d( " "  "  "  <\Җ/> B@ k@(C㗝l̑\ҖOӂ肪ȁiі Ɩ̊Ԃ͑SpXy[Xj   ` n%!  b n%!   $ " "  "  " <\ҖtKi>  ` n%!@  b 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@&kP$iH$@$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"tourou-hkł́u@lčl̕ʁvuo^lRh` FbNv^OK vD@̖OtHKiIf.Getue(pKAGAMI, c/ &).DropD0own. @2 The@^a'ȁꍇAC*+! __&>1 "",䖁e& "<1>")a&_Cvj4 /K O E?a??M*End If Pk%O`+PKc44E5c[5̥ 6Vzn7H8/QQy!"J@aAUAJ 3JJO5#"?+_)J_J2JOF_[JAbz/ / " #_{uJ翕GJ 4JD'JJE$\`!"<3K}Ki,KKor TGUK 000?{((?_K﷎ @_ 55%#Q3Q=Q15@ a.WriteLine vbTab &"<͖/>"End If'lꍇA@ljc̃tKi Ƌ# O@If cP.GetValue(pKAGAMI, cݐ\ґ\Ґ>).Result <> "" ThenQf_ & |6>" [>@4̖4Du[O\﫯lt GiW l#$d%_-66%%%% 7&& %"Mt&2̗3&%'77?hs *dbh@_%O'H' O<& Replace( # , "-"@"BBG///5?0-kaisetúuvKvsO Pi$ 'cf}" "" FHa.WriteLine vbTab &_>!& "<1x>" T7/ 8JElse(4 0/>"nd If\ \ 3Or:nSenm;Sm@}GAS~ "" T@hen a.WriteLine vbTab4 &_hv& "<>" 2cP.GetValue(pKdAG[@6Wx+"$nd If/#tK i'+!Xԍ 'hDim myAddress As StringKreaCodeIf qZފ ! =+W+BAD.I@nsert()y$"@p FEw'DkgG" _4~ ǃd Yd"%$#g/J"l#"<NN+*ogRz6 5a]%___X$PC$dbOC 51C1lRepl0ace(A , "-"@"rET cEe3'2-_%02d ⑫DOOBhX $$_ q?`@ o ϯa2d}_ʿ]e}P\ւWJ2C!'XMLE@C5 Clo%Set fs = NothrCOutputCommunicatDor0TruExit FunctioC ErrMes: #`-.Numbe rq0lMsgBox H3CrLf%QDescr|ip7 Public Agent(Q"BypFil )Boolea On `GoTo  OutputAgent = False  Dim cP As cls Paper\Set\= New 4 pfspObject*a (Q0= Create5("Scripting.FileSystem")8afs.OpenText*(myXML , 8, Trufe06'-D'㗝l݂Ȃ ꍇ5If.GetValue(pKAGAMI, c݃DO).Resul"" ThenGa.WriteLine vbTab &"<@>" 'dqϔC̗L"<A/ÈcC֘Aha5׊@ C: D:+W'#@@w9Clo3q Not>h!Exit FunctiodEnd I~f#SO-'_?ye2gpj?#}>2C0 ??l:<> oOO# _3 2 G@>" cP??6 "" Thena.WriteLine vbTab &_48& "<͖qm>" )4q/9MElseRle/>",nd If'̗X֔ԍ inCȂj!`O3 ~AǀP4||"<yEK<zu;"DeleteL>,M,,/"i/P+ "% /" ́iu5[KanaYTIO?C?Z_ltݟ ggU l'i''/('e(((Q W((C4ᥕ( ?6))p?;./5-dbwpC%߂o7 <o& Replace(  u , "-"@"EEGgTpEOl\A "-7B4_ oo\\?z"~<_ Viі Ɩ̊Ԃ͑S@pXyПX3t (.Or? cP.GetValue(pKAGAMI, cݑl\Җ).Result <> "" Then  a.WriteLine vbTab &_h!v& "<a>"f %a@8Y|,"&nd If%'ǂ̅8Oӂȁi Ɩ̊Ԃ͑SpXy[HXj#If&tKi BOr萔PE+O`ǘ e rN#FX}"<ϔC@'Co@ 1:ʏij/ʓrQ 2:ie>1D5A?_%Z 7 [<͖̟b&mؑ ?ϚEO3APD4b""pa.WriteLine vbTab &$Žs撬>":ElseA|{/C|)W)End IfX_'l̏Z@R[h͂!If \ddress <> "" A(ÄThenC ._"QcP..DeleteA(C,-(ӱ-"<s_iӂ肪ȁj(b=GetValue(pKAGAMI, c@rEwvtKi).R`esultiuK@ana = l 'm "d[IKBKDKKE%LLGMMdC &?NE O `=Wdbԍc R?zR0:% Q9Re@place(\l-, "-">"!%5"1" P'XMLt@C‚a.Close0Set fs = Nothing*Outpu@tAgent4TruZExit FunctionT ErrMes:  If .Number <> 0 The-MsgBox $& vbCrLf &DescripcEnd8 If` .*#*#N*FX%h25X6+Op  l l=/:q*#*#*#P*#+Op  l l*#Q*FX%h2 5Xs7*#*#*#R*FX%h25Xj+Sp  l l=+Tp  l l=2)*#*#*#U*#+Sp  l l*#*#+Tp  l l*#V*FX%h2)5X7*#*#*#W*FX%h25X7*#*#*#X*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+Yp  l l=/+Yp  l *#*#*#:*#;l <#*#=*FX%h25X97*#*#*#>*FX%h25X7*#*#*#?*FX%h25X7*#*#*#Z*FX%h25X.*#*#[*FX%h25X#*#\*FX%h/5X hJclpz$ K Lll''' K Ll#M*# K ,Ll*FX 2)6X4plhtHX$\$l CtK#pz pX  XrU~| ED Y- -y3 ) ,FѴQ   QAi   A% A ! nQ|9iA qQ }9y i  Aq9.%$a 9i A)a 9i A!YI!{i )Iq9Y!qq9~Y  l CtKpz pX  X4l5X't@(8%c%lX4h5X#*#*FX%h/5XC+p  |  4 l).*#*# *FX%h25X.*#*# *FX%h25X.*#*# *FX%h25X6+p  l l=/h*#*#*#+p  l l*#*FX%h2 5X#.*#*#*FX%h25X6+p  l l=/h*#*#*#+p  l l*#*FX%h2 5X.*#*#*FX%h25XC+p  |  4 l)q.*#*#*FX%h25X.*#*# *FX%h25X.*#*# *FX%h25X6+p  l l=/ih*#*#*#+p  l l*#*FX%h2 5X.*#*#*FX%h25X6+p  l l=/<h*#*#*#+p  l l*#*FX%h2 5Xl.*#*#*FX%h25XC+p  |  4 l)].*#*#*FX%h25X.*#*# *FX%h25X.*#*# *FX%h25X6+p  l l=/*#*#*#+p  l l*#*#+p  l l*#*FX%h2)5XJ.*#*#*FX%h25X6+p  l l=/(*#*#*#+p  l l*#*#+p  l l*#*FX%h2)5XX.*#*#*FX%h25X+''':HNXX 6Xj+ p  l l=+!p  l l=2) *#*#"*#+ p  l l*#+!p  l l*##*FX%h2)5X .*#*#$*FX%h25X6+%p  l l=/S .+%p  l >1$lp  &>1e CC.*#*#'*FX%h25X7*#*#*#(*FX%h25X l= m*#*#*#*#)*FMH@X * X:8+%h26XR*#*#*#*#,*#l*#-*FX%h2 5X @*#*#*#*#.*FX%h25X@*#*#*#*#/*FX%h25X7*#*#*#0*FX%h25Xl=l= j*#*#*#1*#llp  ,&l*#2*FX%h2 5X 7*#*#*#3*FX%h25X6+4p  l l=/{ .+4p  l >1 Cl=l= j*#*#*#5*#llp  0&l*#6*FX%h2 5XC7*#*#*#7*FX%h25X.*#*#8*FX%h25X6+9p  l l=/3+9p  l *#*#:*#;l <#*#=*FX%h2 5Xc.*#*#>*FX%h25X.*#*#?*FX%h25X.*#*#@*FX%h25XC+p  |  4 l)J6+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%h25X.*#*#H*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)p*#*#E*#+p  l l*#*#+p  l l*#F*FX%h2)5X.*#*#G*FX%h25X.*#*#H*FX%h25XC+Ip  |  4 l).*#*#D*FX%h25X.*#*#G*FX%h25X.*#*#H*FX%h25X+''':HNXX 6X hJclpz$ K Lll''' K Ll#M*# K ,Ll*FX 2)6X@(plhtDX(l CtKpz pX  X4l5X't@(8%c%lX4h5X4l5X't@(8%c%lX4h5X6+]p  l l0/+#*#^*FX%h/5X.*#*#_*FX%h25X.*#*#`*FX%h25X7*#*#*#a*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*#*#*#H*FX%h25X7*#*#*#b*FX%h25X@*#*#*#*#c*FX%h25X@*#*#*#*#d*FX%h25X7*#*#*#e*FX%h25X.*#*#f*FX%h25X#*#g*FX%h/5X hJclpz#*#^*FX%h/5X.*#*#h*FX%h25X.*#*#`*FX%h25X7*#*#*#i*FX%h25X6+]p  l l=/q*#*#*#*#+]p  l l*#*FX%h2 5X7*#*#*#*FX%h25X6+jp  l l=/rq*#*#*#*#+jp  l l*#*FX%h2 5X7*#*#*#*FX%h25Xj+kp  l l=+lp  l l=2) *#*#*#"*#+kp  l l*#+lp  l l*##*FX%h2)5X 7*#*#*#$*FX%h25X7*#*#*#'*FX%h25X@*#*#*#*#(*FX%h25X6+mp  l l=/ .+mp  l >1$lp  &>1 CC l= j*#*#*#*#*#)*#l n#*#+*FX%h25X[*#*#*#*#*#,*#l*#-*FX%h25Xw I*#*#*#*#*#.*FX%h2 5XI*#*#*#*#*#/*FX%h2 5X@*#*#*#*#0*FX%h25Xl=l=E s*#*#*#*#1*#llp  ,&l*#2*FX%h25X @*#*#*#*#3*FX%h25X6+op  l l=/ .+op  l >1 Cl=l=s*#*#*#*#5*#llp  0&l*#6*FX%h25X@*#*#*#*#7*FX%h25X7*#*#*#8*FX%h25X6+pp  l l=/+pp  l *#*#*#:*#;l <#*#=*FX%h25X7*#*#*#>*FX%h25X6+qp  l l=/q*#*#*#B*#+qp  l l*#C*FX%h2 5X7*#*#*#D*FX%h25Xj+rp  l l=+sp  l l=2)*#*#*#E*#+rp  l l*#*#+sp  l l*#F*FX%h2)5X>7*#*#*#G*FX%h25Xj+tp  l l=+up  l l=2)Y*#*#*#v*#+tp  l l*#*#+up  l l*#w*FX%h2)5X7*#*#*#H*FX%h25X7*#*#*#b*FX%h25X@*#*#*#*#x*FX%h25X@*#*#*#*#d*FX%h25X7*#*#*#e*FX%h25X.*#*#f*FX%h25X6+yp  l l0/&#*#g*FX%h/5X hJclpz.*#*#`*FX%h25X7*#*#*#z*FX%h25X6+yp  l l=/7q*#*#*#*#+yp  l l*#*FX%h2 5Xp7*#*#*#*FX%h25X6+{p  l l=/q*#*#*#*#+{p  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 n#*#+*FX%h25X[*#*#*#*#*#,*#l*#-*FX%h25X!I*#*#*#*#*#.*FX%h2 5XI*#*#*#*#*#/*FX%h2 5X@*#*#*#*#0*FX%h25Xl=l=s*#*#*#*#1*#llp  ,&l*#2*FX%h25X1@*#*#*#*#3*FX%h25X6+p  l l=/.+p  l >1Cl=l=2s*#*#*#*#5*#llp  0&l*#6*FX%h25Xt@*#*#*#*#7*FX%h25X7*#*#*#8*FX%h25X6+p  l l=/v+p  l *#*#*#:*#;l <#*#=*FX%h25X7*#*#*#>*FX%h25X6+p  l l=/+p  l *#*#*#B*F>FX  :HCx%h26 Xx7*#*#*#D*FX%h25Xj+p  l l=+p  l l=2) *#*#*#E*#+p  l l*#*#+p  l l*#F*FX%h2)5X!7*#*#*#G*FX%h25Xj+p  l l=+p  l l=2)."*#*#*#v*#+p  l l*#*#+p  l l*#w*FX%h2)5Xg"7*#*#*#H*FX%h25X7*#*#*#b*FX%h25X@*#*#*#*#x*FX%h25X@*#*#*#*#d*FX%h25X7*#*#*#e*FX%h25X.*#*#f*FX%h25X#*#g*FX%h/5X hJclpz$t K LltU$l'''t K Llt#M*# K ,Ll*FX 2)6X\$@(plhtPXxa__SRP_45_VBA_PROJECTYtdir __SRP_0J>ceCn50cc7a1cclsLicence hH(@8 MQ1NxbCq50cc7a1c MQ1Nxb?(;300000000000Cr50cc7a1cQ00000000000?"H8H:0000000Cs50cc7a1c0000000Z (H`H0cSMQ1{v2Ct50cc7a1cqMQ1{v2DH DmodCheckDataCu50cc7a1cmodCheckDatae HxH8`modInitializeCv50cc7a1cmodInitializev (H` ( Const2Co50cc7a1c Const2~h"clsRmkINICw50cc7a1cCclsRmkINIu`($clsSaniCx50cc7a1c)clsSani;5"clsPaperCy50cc7a1cqclsPaperqP@H0xpٖ modInputTextFileD950cc7a1c6 modInputTextFile 0hHH}MclsPageD250cc7a1cclsPagehHu modMenuD:50cc7a1c modMenu҇(HqtX-[000000000D;50cc7a1c=tX-[000000000i( Const1D<50cc7a1i21i*WJO3J+3J+foi31 n``3J+3J+c Const1m( "modOutputTextFileD=50cc7a1c "modOutputTextFile4h%modOutputXMLD>50cc7a1c modOutputXML:H@X"clsAreaCodeD750cc7a1c clsAreaCode(pHclsCallSignD050cc7a1cclsCallSignhHt6clsClipD?50cc7a1c clsClipclsConfigD850cc7a1c clsConfig(clsConst1Cp50cc7a1c clsConst1clsConst2D@50cc7a1c clsConst2clsDateD650cc7a1ca *\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,  zP!" $#)*+&'(,ThisDocumentCf50cc7a1cThisDocumentU(`/ MQ1N{v2Cg50cc7a1c= MQ1N{v2_i hHp( 2Wc{t{v2Ch50cc7a1c 2Wc{t{v2o.x0ia{t0000Ci50cc7a1c{t00004(H`p 00XxHclsWinVerCj50cc7a1c+clsWinVerL``zv0000Ck50cc7a1czv0000HHxjclsRegExCl50cc7a1cclsRegExxb000000000Cm50cc7a1cxb000000000HQ*clsLicenclsDatemx}/ clsDBD450cc7a1c clsDB(̺ clsFileD550cc7a1cclsFilea0E clsFormD350cc7a1cclsForm9(H-B clsINID150cc7a1c clsINIr(HeclsKagamiCz50cc7a1cclsKagamij (P;clsBranchDA50cc7a1cCclsBranch(@ NtN{v2DB50cc7a1ca NtN{v2 hHHp(M NtNxbDC50cc7a1c% NtNxbi(+4clsTextDD50cc7a1cclsTextrh0modCheckKagami1DE50cc7a1c4 modCheckKagami1(pmodOutputXML2DF50cc7a1c> modOutputXML2#pK(HxXHp@``0Px0H!-VNu?+eZA/cB2bUGN1d-$BY:1_@t@ m|ݰB%!ЪG>Z@Æ٘E \dǨVfʋC<oV݋<K0<<AV v*ܨEt1@NJgE({ANDǛn1LedQoO50lha50z3@2pSJ_J7_ m6 A1V.k'cBy߷Ux6EO2+%'";F' 8^qA;jMT{_&DIsYJ2~oc#P B,wB:V+D]؈Ks0GJ {QD/L2ksGEz tiCE+>KNf H)ܕ_[Zzm6SHQ j,GbQ@G`WHzk*Q0N]fOY(P) _hJ$-^2WfM> Gyg /]kFoD ʎk3%A&7 PC*xjFwjei3ҎD Ǽ]>P۵t@09̜ S9?nAlh!2K^H ُoFDlXM9suge1\A!AB:!׺ b+DatabaseQFNameRead 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@ Ƌlo^@UserForm_Initialize5c@cBranch&@ clsBranchT<@myColEk@ CollectionW@i`@GetCol@ja@Count0v@ComboBoxBranch@AddItem @Itemz@ ListIndexQ@Locked @ BackColorރ@myArray@myArray1,@myArray2,@ ComboBoxTypeW0@ ColumnCount$@ BoundColumn?@ ColumnWidthsi@Columni@ ComboBoxTypeD0@cP\@ clsPaper @ myStartPos @ (KAGAMI_COUNT@txtIDD@ValueK@Visible@txtNameW^@Enabled۪@txtNameD}^@GetValue]@ pKAGAMI@(*cݐ\Җ@lčl̕.@DropDown@(*cݐ\ҖOm@Resultur@ 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?@INI6@ReadCID_@ RefreshBox r@ResetTagUa@cmdToDocm@cmdToDBh@ cmdSearchD\@ cmdToWordX@ cmdUpdate11@ cmdCompare@ cmdSelect[@DeleteCheckBox+U@cmdSearchW_Click@myClientAddressH%@IsNull@AreaCode@AreaCodeInsert#@(*c\`@cmdSearchD_Click/@ txtAddressD@ txtAreaCodeDs@ cmdExit_Click@cmdFromDB_Click@ GetDataFromDB{M@myIDr@DB\@GetDB_@ (myDatabase!@myBIDe@GetBID@myCount7@myAllCollectionO@GetDataFromClientXY@ myCollectiong@ClearDataBaseBox@CheckBoxForRegist@Tag&@ txtNameKanaD]@txtPostalCode1Dx@txtPostalCode2D@Right @txtPresidentName1D@txtPresidentName2D @txtPresidentNameKana1DF@txtPresidentNameKana2DF@txtAddressKanaDc@ txtTelNoD$@Replacef@ txtPersonDXs@ txtFaxNoDވ@ txtEmailDrk@txtMemoD@SetValueE@Save@ 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!@Addr@ InsertClient]@ UpdateClient>@SetFocus@Trim@@StrConvx'@vbWide'@vbYesNo@vbNo%@ vbKatakana?@vbNarrowO@ IsNumeric$*@ 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}@Show@ iǗo^N@ comboTypeA@ txtReceiptNo@txtReceiptDate,M@txtAgentMemberNow@ txtAgentName@ txtClientIDC@ txtClientNameO@txtMemo?a@ comboArea@ ComboKind@comboFrequency@cmdReceiptNo_Click @myType@myNextReceiptNo[@GetNextReceiptNo@cmdGetProgressDB_Click<@ myCollcetion]@GetDataFromProgress@ txtCountsh@ txtCharge@ cmdCal_Click&@Val@ o^_Click+@myKind_@CheckDB @ChkDate@ CheckDatei@ txtAgentID@(*c㗝lL@ myFrequencye@InsertOrUpdateForProgress @InsertDBForProgress)@UpdateDBForProgress[@ ‚_Click@ Ǘ҃j[$A@ CommandBars @(cAdminMenuNameB @Top5@ o[WA@(cVERSIONp@XMLǍ^@ȉ̂̂㗝lƂĈM@Ƌl@㗝lg@@SetPage@s1n@Ƌf[^2@y[W炷 |@y[Wt[z@ opNewMethod\x@OptionύXo^\_Changec1@OptionύXo^\Դ@Optiono^ύX͏o)@Optiono^ύX͏o_Change@sj@txtPage @ _Click@PageN}@ PageCountTI@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:@ 㗝lo^@Ƌf[^_Clickb@CheckTheCheckResult(@ myClientIDU@ myAgentID@ReadAIDIU@myString@ myLicenceNod@ Ƌo^@(*cݑ㗝lO.@(*cݕ㗝lOD@ComboLicenceNo_Head@ txtLicenceNoC@ GetLicenceNo@ txtLicenceNo2"@txtLicenceNoCountz<@Sanin@GetCountFromString@ ComboMoveArea}@myDate @IsDate2@ txtIssueDateS@ txtFrequency5S@txtPower@iǗf[^_Click~@myAgentMemberNo@ ReadMemberNoS@Now%@ XML쐬_Click@ myClientName@ myXMLFile`@Year6n@Month@Day@File%@FileSave @ TestFileLock@Kill@ ReadTextBoxz@(OutPutXMLHeader@(OutPutXMLFooter"c@eLXg_ClickE@ myTextFile@ TextFileSave@cT\@ clsText@(GetDataForTextFile @ WriteFile&@ opOldMethodK@eLXgǍ_ClickJ@ (InputTextFile@ClearAll @tH[ی삷_Click)@Form@ ProtectFilej@tH[̕ی_Clickvt@ UnprotectFilet@Clear@ tH[̃bN_Click`@ UnLockFileID@[Uj[J_Click@ [Uj[B@J҃j[J_Click~@ J҃j[K@@ ‚1_Click "@ ‚2_Clicki@ ‚3_Click@ ‚4_Click@ ‚5_Click !@ ‚6_ClickY@ ‚7_Click@ăN_Click5@myFilter>@ myFileNameC@myFullFileName@myMLDOT@ myFullMLDOTaQ@ChrK~@OpenDlgG@ExtractFileName@ Documents@FileNamej@ConfirmConversions@ReadOnly4<@AddToRecentFilesV@PasswordDocument8@PasswordTemplate@Revertn@WritePasswordDocument@WritePasswordTemplateu@wdOpenFormatAutoh@wdDoNotSaveChangesԇ@ProtectionType@wdAllowOnlyFormFields!@ Unprotect?@Password@ (cPASSWORD%@wdNoProtection@Protectf@NoResetg@ wdSaveChanges~@ 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@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\@DeleteNullChar #@strBuff@ SetRegistryW@nHandles@nLeng@ vbFromUnicode0@ SetCreateKey@SA_@ Disposition@DeleteRegistryi@ CheckRegistryBn@bOLD@bNEW9@ bOLDWrite*@ bNEWWrite @SelectRegistry#b@ GetRegistryEx3@ SetRegistryEx@ GetConfig8@Server@UserName\@ATISN@ GetConfigEx$@ SetConfigs@ SetConfigExm@GetConfigExStart,@ I_CAO{bNX@Label1,@Label2,@Label3,@^CgJ@ s2_Click'@ DBExecute1@LZ_Clickq@ clsLicenceƜ@(!sLicencelM@sLicenceBySort6@ sLicenceCntw@ LicenceSetsU@(!tLicenceN@ LicenceCntmK@Licenceo@ LicenceBySortt@ GetLicenceAll0@Noj^@ sLicenceNo*@GetLicenceHead@Headed@GetLicenceHead2j@Head2*@ LicenceNor@GetLicenceFootQ@Footz@ GetLicencel@ myKyokusyuP@(eBureau5@ clsINI@ LicenceCount@Split)@(Sepj@ss'F_@myHeadJ@s2_@ myKyokusyuStr@ myKyokusyu2ӗ@ pCR@ pML@ pFBv@ pFX@ pFP@ pMP@ pMO@ pRP@@ pLOa@ pEXg@ pHOUKATSU>S@vbBinaryCompare̝@StrSort@cSan@ clsSani;'@ 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@݂`FbN@"Ƌlf[^x[XƂ‚킹r@"㗝lf[^x[XƂ‚킹:@cmdClearco@cmdCheckX@cmdClosej@ cmdExecuten@SetFormH@cmdClear_Click@SetColorK@@( CheckDataKagamif@( SelectCIDFromDB@( SelectAIDFromDB@cmdClose_Click!P@cmdCheck_ClickFG@ CheckTheCheck@myCItem@myCKeyg@kb@ (cUserMenuNamez@ txtAddress@ txtCallSign@ txtGitekiNo[u@ txtSyoninNo@ txtProductNo@txtCallSignCountI@txtGitekiNoCount@txtSyoninNoCount@txtProductNoCount@ txtAreaCode@ ComboPurpose@ txtEstabDate@ txtBeginDateq@ txtTermDate?@ txtCallSign2@ txtGitekiNo2 1@ txtSyoninNo2@ txtProductNo2em@List*@GetArrayFromString@InsertOrUpdateByLicenceNo@InsertDBr@UpdateDBByLicenceNo}P@ I_Click @ myCallSignm@ myGitekiNo:@ myProductNo@ myDelimiter`@myCallSignArrayO@myGitekiNoArrayEW@myProductNoArray@@ modCheckData@ ( CheckKagami@ (*CheckClientb@(*cݑ㗝lZ ^@(*cݑ㗝l\Ґ(@ (*CheckAgentCj@(*cݕ㗝lZs@(*cݕ㗝l\Ґa@ (*CheckSubAgent@(*cݘAӔCҏU@(*CheckCommunicatorD7@( CheckETC@vbOKOnly@vbOK%@ SanitizeTextd@ pNarrow@ pLicenceNo?=@myYearS@ConfigI@ ReadConfigR@ modInitializerZ@ShowGrammaticalErrorsD@ShowSpellingErrorsC@Reg@ (myLocation@DatabaseConnectCheck@ myBooleans@ ݂̐ݒ@ Const2P@ (JIKOSYO_COUNTl@ (!tCallSign@ (!sCallSign@ CallSignNoL@tC<_@tLE_@(!LicenceDataKagamiP@Num@ (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ʎ@ clsRmkINIvm@ ReadRmkINIB@myPathd@ myConfigArray|@ myStrBuff\@ myCommaPos@EOF@(myServer@ (myUsername5@ (myPasswordɊ@(myATIS3@(INI_FILEw@ vbInformationn@ SaveRmkINI@fso@FileSystemObjectNU@MoveFilew@ myFileNum @ DeleteFileO@oStrConv@(eStrConv@ oDeleteSpace (@ oDeleteCRLF@ oKigoHenkanÊ@ Delete8194J@Delete11Nv@ DeleteCRLFX|@ KigoHenkan!z@ pWide@ pKatakanap@ pNarrowS@ NumHenkan\@ ABCHenkan@ pCallSigna@ vbUpperCasek.@ pNothingv;@vbCr$@vbLfT%@ChrW@GetStringFromStringy@GetNoFromString@myDelete{@swap=@ReplaceStringtoCRLF@ReplaceCRLFtoString@ SanitizeText2c@ oReplaceCRLFP@ CountCheck@myPosѰ@myHead1K@myHead2K@myBody1`@myBody2a@myTail17@myTail27@ myTempStr-@myStr@GetYobiLicenceNok@ myBody1Str`@ myBody2Str&@ NumToZero!7@ GetProductNon@myFormat&@ GetGitekiNoW6@ GetKatasikiNo|@ myKatasikiNo @ GetCallSign @GetGitekiOrSyonin7@IsNumAbc@ oDeleteHihuny@RE^@Matchesm@ CreateObject@ MultiLine@ IgnoreCase0@Patterni@ExecuteY@cK\@ clsKagami4@cL\@cC\@ clsCallSign@cINIZ@ cSanitizeWX@ clsPageZ@cF\@ clsFormh@cDB}@ clsDB@cR\@cFi}@ clsFileG@cD\@ clsDate@cA\@ clsAreaCode5@cfg}@ clsConfig9}@Class_Initializen@Class_TerminateP@cKagami@mvarK&@cLicencea@mvarCL@ cCallSignA@mvarCC @mvarINI@ mvarSanitize{@mvarP&@mvarF&@mvarDB0@mvarR&@mvarFi@mvarD&@mvarA&@mvarCFGy@pNameZ@(ePaper@fNameR@ FormField@ FormFields-|@ GetFormField@ modInputTextFile@mvarCollectionI@ mvarKagami\@ ReadTextFile@ (InputKagami@ vbCritical+}@(*cݐ\ґ\ҖEw@(*cݑ㗝lX֔ԍO3p9@(*cݑ㗝lX֔ԍ4@(*cݑ㗝lZtKi@(*cݑ㗝lOtKi5@(*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ݕ㗝l\ҖEY@(*cݕ㗝l\ҐtKi@(*cݕ㗝l\ҖtKia@(*cݕ㗝l\Җ@(*cݕ㗝ldbԍs@@myKagamiCollection@myData @ PageSectionG9@Pos@PageNo"d@PageSet>@KagamiD@ KagamiPage:@Sets@SetCnt@ Page_AName&@ Page_Sect@Page_CntEv@AName!@nvq^@GetPos1$@ GetPageNo@ GetSetCnt@ GetKagamiPos@SetNo@ GetKagamiPage@cZ@Sort@SetPosz4@FindWord@ targetWord@blnFound,h@ rngContent@Range @Contentl@Findn@ClearFormatting)@WrapWy@ wdFindStop'f@Found+@ swapValue@swapNameL-@ReadSet@CheckTheCheckByPageName{@ myPageName?@ modMenu5@(MenuOpen@ (UserMenuOpenU@ (AdminMenuOpen;-@Optionhokkaidouc)@ OptionTohokuʡ@ OptionKanto @OptionShinetsu@OptionHokuriku@ OptionTokai@ OptionKinki@ OptionTyugoku$@ OptionShikoku@ OptionKyusyuq@ OptionOkinawaxR@ ݒ_Click'@myBranch0f@ myNewDatabase@ SaveConfig @ Const1O@ (cDATABASENAMET@ (cAGENTDBNAMEG@ (cCLIENTDBNAMEE%@ (cTextBox1@ (cTextBox2@ (cTextBox3@ (cTextBoxMAX@(myƋo^ss@ modOutputTextFile\@fsF]@aX@CreateTextFile@ WriteLinee@myFieldU@wdFieldFormTextInputk\@ GetFieldNameB@wdFieldFormCheckBox@CheckBoxi{@wdFieldFormDropDownt@ modOutputXMLg@ OutputXML1d@ OutputXML2d@ (+OutputClient @(+OutputCommunicatorz@ (+OutputAgent)s@ OutputXML4d@ OutputXML5d@ OutputXML6d@ OutputXML7d@ OutputXML8d@ OutputXML9d@ ConvertTexta@ DeleteBOMU@vbTabc9@ OpenTextFile@eB]@adCRLF@adCR@adLF@ adTypeBinary@ adTypeText@ adReadLinee;@adSaveCreateNotExist@adSaveCreateOverWrite@ InputFile9@ OutputFile9i@CharsetQ#@ LineSeparator4@ LoadFromFileY@CopyTo[@ SaveToFile_@LOFc@ GetPrefNum#@ myPrefNum@ myAddress@ myAddressKana@ myAreaCode@DeleteAddressKanaeM@ (*c㗝lN@ mySQLString@myResultAu@ Recordset@GetResq-@myKen@Fields7@myTotal\@@ RecordCount{@MoveNextL!@AreaCodeSelect @AreaCodeSelectKatakana@ DeleteAddressF@sCallSignBySort@ sCallSignCnt}@sCallSignSetCntMg@ CallSignSets?@ CallSignCntu@CallSignSetCnt@CallSign@CallSignBySortg@GetCallSignAllr@sNo@tk@GetCallSignHead"@ GetCallSignNo@GetCallSignSetzR@GetCallSignSetStr@ CallSignCount#@CallSignCountSet%@ CallSignSet@ 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@ri@ ReadDatabaseU@ clsConst1?@ pNon@ pAT@(eRadior@ sCR"@ sSRr@ clsConst2@@ myDateData4@ CorrectDatef@ myDateString@CorrectDateKAGAMIv@ myConnection{@ Connection@GetCon@ GetFromKagamiM-@myCheckv@cConn@myConGk@Provider@ConnectionString@UserIDj@ActiveConnection@ adOpenKeyset@adLockOptimistic<@ adCmdText#@adExecuteNoRecords܄@ myReceiptNo@ myString1@ myString2@InsertOrUpdateHP@myLicenceNo_Head@UpdateDB@myTableI@myAID_@myWhereݮ@ CheckMemberNo@ myMemberNoM@CheckMemberNoByIDO@GetDataFromAgent@ myAgentName @ UpdateAgent@ InsertAgentf@ 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@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_RegistDate@ CheckSect@SectF@CheckKey@Key@ GetSectNameJp@ GetKeyNamem@ GetValueNamed@ ChangeSectL@ ChangeKey@ StrectToAryq@wm@Dumy @Modev@ SectCount(0@ StationCount@LicenceCountSet8@NinsyoNo@GitekiNoC@ ProductNo:@ RegistDate@KeyCount@@ SectionNoEv@ SectionName+@GetSect)-@GetKey@KeyNoL@KeyName@Default@zq@SectionG@iniSect3@iniKeyb@rl^@GetCnt@ SaveTextBox@md@ne@ ClearTextBox@Shapes<@AlternativeTextb@ SearchTextBox@KSendTo@KbID@ GetSendTo@GetInfo @ txtMemberNoW@myAgentAddress@ txtMemberNoDy@myIDStrkz@ 㗝lIs@ AtEndOfStream@ReadLine@iSectQ@sSectYT@iKeyJ@sKeyName0@ ListEntries-@ modCheckKagami1+@ (*cAӔCҧW@(*cݘAӔCҐIS@(*cݘAӔCҖV@(*cݘAӔCғdbԍ}H@ modOutputXML2Ap@Documentj@Class@ InitializeN@ TerminateyL@UserFormN@[Uj[Ji@XML쐬@f[^`FbNP@sR[h͊mF@J҃j[Ja@‚2j@‚5m@‚4l@‚7o@ݒt[@ Ƌlͣ@ 㗝lͮ?@㗝l̈t[G@tH[̃bN)+@tH[ی삷^^@tH[̕ی@ăNκ@ eLXg*@ eLXgǍހ@‚6n@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@ _B_var_Midp@LabelPostalHihunWi@LabelPostalHihunDh@ cmdFromDB@ LabelAreaCode{@ LabelName$@ LabelNameKana @LabelPresidentName"@LabelPresidentNameKanaI@LabelPostalCode@ LabelAddressu@LabelAddressKana<@ LabelTelNo@cmdExit\@ LabelPersonV@LabelFaxt@ LabelEmailO@ LabelMemo@ LabelBranchDD@ LabelTypez@o^@LabelAgentNameD@LabelClientName@ LabelCaptionn@LabelReceiptNo`@LabelReceiptDateV@ LabelAgentNot@ LabelClientIDr@ cmdReceiptNo]@ LabelKindc@LabelFrequency]@ LabelArea@ LabelCounts%@ LabelCharge@cmdGetProgressDB@cmdCal@tH[𔒎ə@VXe󗓂u@x@s2o@ LZs@ ItemClick@ ItemCheck@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@Label44@ LabelMemberNo@ _B_var_Format@ _B_var_LeftQ@ _B_var_Right9@ _B_var_TrimmT@ _B_var_ChrW@ _B_str_Chrm#@ _B_str_String@ _B_str_Trim@DBExecuteGetID6@bTextBoxC@upBubbleSortStr@data;@tempR@|    =g7  Q + a' ;q $% & 9:.M)A% (U=<)D%KC&J5 *Z[ O X]#d? +_!S"F QL N P \R ^qdCaTjP A @`JA Q@ x&# $ BFG LZ 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`TiDnV0|r;!j2ob`LJzvz{j"RegXExG"R0gEx92?0WI_CAO{bNXGxb00000000"wa[q2v Qr* 3<LnceG#bnce1{=2G8 EQEEE;3L?f^p`Fv=Q<00=@qA 2: ?" s6 UG 0 Q{s6{cSZs6_X5_wW292DDSpmodCheckASpmodCpe*k0aPa0+1`/Sp Oe!02Up 0Initial\iz@4JxoI@1i"a@5iz H*2 r /e q9rv !st,2GonЂtq ~$fRmkINIhRkIN0kchiI$_"u`_"JSaniCy_(SaclsSan i2lsSaniH1"$P,H;5"( +1 PaperGPper F2#ٖqsmodInputTextFileG modIputTUGxFylE2X}MXH!CgQgHO:u::MenuVGGMnG q҇K<@<‹ݒ_CAO{bNXG@tX-[000000000&2,,iK@.Const1G @n@t1@G2NO OmKJqgOut &bOg2/r/4+"&XMLGan`XML`&2o"ݯ:k  lAreaCLodl`TcBAՀeCel2m-l Cal@lSignG CUlS@giot66q}$Clipc$C`ip`#)oo4q c4kfi0gGs!3nfb!&2|s@A}0^2! 22Ip!`0!DatiD0*>ti9!?}/ɿm@ ! DBG D6B(2̺BÂx/Eaorm7FpIrm7Fo Lm?-Bɿ9qk0INISmc?IN=pSme)_r_Q'i8&!'$MIa @ ( Q)QIQiQQQQQRR)R)RARK*`      %%$$##!!""  &&''(())**++    rUN~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Q ce?MZ ,,a F!I!q!a V/i89MiMMMMN9NaNNNNO1OYOOO PAPqPPP9QQQQRQRRRR!SaSS TQTTTT!UYUUUUVAViVa NQsi8rr)syba H>!i888919Q9y999 :A::::;1;i;;; <9<y<<=Q==== >1>Y>>>)a ! @AAqB1C?yDDDDDQa P{i89{q{qa !bcydAe ffghhhi9iaiiiij!jAjajja Tqbi8y9Qbba QN M!M9MaMMM'MN!N9Na Q'i8&!'$Ma %i8$$!%I%q%%1a JBi888919y9 :=== >; <<ia ci8ybbbba R$i22222a $Pi$$$a $a !a !+ W)WIWiWWWW X9N1XaXX+'XX'+#9a 1,3*I*q*q*q**************SSS T)TATYT*I*)'Y''ia B$ 1Qya D$P)Q   ThisDocument Ƌlo^ iǗo^Ǘ҃j[ clsWinVerJ҃j[clsRegExI_CAO{bNX clsLicence ƋlIf[^`FbNj[[Uj[Ƌo^ modCheckData modInitializeConst2 clsRmkINIclsSaniclsPapermodInputTextFileclsPagemodMenuGetValue‚7‹ݒ_CAO{bNXConst1modOutputTextFile modOutputXML clsAreaCode clsCallSignclsClip clsConfig clsConst1 clsConst2clsDateclsDBclsFileclsFormclsINI clsKagami clsBranch 㗝lo^ 㗝lIclsTextmodCheckKagami1 modOutputXML2dq\T|[g  [ ] = ; | $touroku-hk2011.dot *0000001.0302012/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 TMRGetGitekiOrSyonin K0L00NtNNhy_w K0L00NtNNhY0000 K0L00NtNNh T0000 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 T K0L00_NtNqjuS #a}HQ K0L00P@b^\ K0L00PbS_ TY K0L00PbS_ T T K0L00PqjuSF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA ! IX F5C:\Program Files\Microsoft Office\Office12\MSWORD.OLBWordINI Aih0FC:\WINDOWS\system32\STDOLE2.TLBstdole axL-[DR?C:\Program Files\Common Files\Microsoft Shared\office12\mso.dllOffice Ai.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aaDQI5C:\DOCUME~1\oohashi\LOCALS~1\Temp\Word8.0\MSForms.exdIsNumAbc Aaim.4C:\Program Files\Common Files\system\ado\msado25.tlbADODB a0( B=B(C:\WINDOWS\system32\scrrun.dll Scripting q\ uM  C:\WINDOWS\system32\MSCOMCTL.OCX MSComctlLib YY!'k+FX}85C:\DOCUME~1\oohashi\LOCALS~1\Temp\VBE\MSComctlLib.exd GetCallSign IYqk FrYIC$Ϳ= F]r7`ݢOm FDocument Document_Open Document_New @ http:// 00000000 Nn0000000000 k0B00 0 ,,(  , 000000]0n0~0~0S0F0h0W0f0D0~0[00K0 ,K0j00Z0D0c0_00OX[W0f0K00D0f0O0`0U0D00 ]0n0U0D0 0 GetKatasikiNoLabel2 & 0n00000 T0 YfW0j0D0g0O0`0U0D00 DocumentOpen y[Wݒ ݂̐ݒ fĤIx8<VBE6.DLL !%S h !%  F F!&I& x Word0000n0 TMR0 0 / x 0K00 0  0 k0 YfW0f0D0~0[00K0  0 GetLicenceNo GetProductNo 0x 00000n0 TMR0 YH0j0D00F0k0W0f0O0`0U0D00!&+=h8+3q)|zEDgIR*=h8+3qr\bH[2O!=h8+3qClassPgv3+3o VBInternal y) )Class_InitializeClass_TerminatecKagamicLicence cCallSignSaniPageFormDBRegFileChkDateAreaCodeConfig SanitizeText SanitizeText2 GetGitekiNo( F @@t 48<@DHLPTX\`d6ɥMt00?bATi?;b U @`#* K0L00000000 T K0L00DB{v2 K0L002WcDB{v2{E(O]J~$("u@BJ F Fc笯@NO/>kWD[M֗^D;iqbBꄯj^%E~@NQ!Co9jtfAQc"-?@ o[W!-6S` /{lFWJOXMLǍBҋB `ȉ̂̂㗝lƂĈRҋB `Ƌl㗝ls1Ƌf[^y[W炷?F`y[Wt[ opNewMethodOptionύXo^\Optiono^ύX͏o opOldMethodҋB `txtPage[Uj[JXML쐬f[^`FbNsR[h͊mFJ҃j[J‚2‚5‚4ݒt[ Ƌl 㗝l㗝l̈t[tH[̃bNtH[ی삷tH[̕یăN eLXg eLXgǍ‚6Label4iǗf[^Label5‚3 LabelPagey[W𑝂₷‚1‹ݒȏ[qJ eUserFormY6YIΰz? F3Dynamic A7i7Label1Label3{lFWJO MultiPage1UserForm_InitializeOptionύXo^\_ChangeOptiono^ύX͏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_000GetCallSignSetStr DWordn0 00000 00000n0 0O0 00Oc0f0K0j0D0g0O0`0U0D00 H000000000B00D0o00000000 W0f0]0n0~0~0D0f0O0`0U0D00 t HU# wswѶ1?M#=yn2CP+Qb1 fTBiuu!m$HeQR ݒLkBw[; 9Bi7H qm\L0 0S 0k0j0c0f0D0j0D00n0L0B00~0Y00 !% ( !%y H !%h h !%0  % !%x !% !%i !%k  !% ( !% H !%E h !%j !%w  Dummy [Dummy] 000ib K0L00 dumy {v2n0juS X%R&{S @\n0N[pe y 22  gPO>y ( g) (*h)  1  2  3  4  5  6  7  8  9  0 ! A " B # C $ D F ' G ( H ) I * J + , 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 !%   d !% (  003OZA09 OZABA5 vbCrLf vbCr vbLf ,{0 ^  0^ 0n0OD0eL0pu8^g0Y00 $`$MQ1juSn0hsL0J0K0W0D00F0g0Y00 charge &MQ1juSk0 0,{ 0L0bQ0f0D000F0g0Y00 "MQ1juSn0HQ-L0NW0f0D0~0[000 ,MQ1juSk0o0K0j00Z0 0S 00NQ0f0O0`0U0D00 (MQ1juSn0pe$Pn0'Y\0xW0f0O0`0U0D00 $MQ1juSg050N N0c[W0f0D0~0Y00 MQ1juSn0pe $a$MQ1juSn0hsL0J0K0W0D00F0g0Y00 - juSn0hsL0J0K0W0D00F0g0Y00 (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[000 (bSWniTjuSn0peW[L0wvW0f0D0~0Y00 ,bSWniTjuSg050N N0c[W0f0D0~0Y00 bSWniTjuSn0pe K0L00 Yf0_h0Y00t1u1 2i[juSk01d0N Nn00n0L0eQRU00f0D000F0g0Y00 $X%ROSn0eW[RL0NW0f0D0~0[000 X%ROSn0peW[L0wvW0f0D0~0Y00 $X%ROSg050N N0c[W0f0D0~0Y00 X%ROSn0pe Giteki Syonin VBScript.RegExp GlobalMultiLineIgnoreCase [A-Za-z0-9]PatternExecute CountReplace` *t@Bd׳lm6 !% H ^ F F !q}@\Nf  "000ib0OX[g0M0~0[00g0W0_00gĤIx8<iZ 0000000 n0 *g MQ1Nn0d0M0B00[0 NtNn0d0M0B00[0 N Nn00000L0n0g0D0~0[000u F K0L00{v2juS K0L00{v2n0t^get^ K0L00{v2n0t^geg K0L00{v2n0t^gee K0L00 Yf0_h0Y00t1u2 K0L00 Yf0_h0Y00t1u3 K0L00 Yf0_h0Y00t1u000 K0L00RW0_0N K0L00!q}-Pn0-n4X@b1 K0L00!q}-Pn0-n4X@b2 K0L00!q}-Pn0-n4X@b000 K0L00hTlpeSs0zz-N}R1 K0L00hTlpeSs0zz-N}R2 K0L00hTlpeSs0zz-N}R3 K0L00hTlpeSs0zz-N}R4m.YI^m. ,counts ,000000x0n0c}g0000L0zvuW0~0W0_00 000juS 000Q[  FK0L00n0[HQO@\ L00-[U00f0D00/e`1Xh0O0D0a0L0c0f0D0~0Y00 SQLOLEDB Data Source= ";Initial Catalog=5m.Q^m. :SELECT @@IDENTITY AS [NEW_ID] NEW_IDm.Lm. counts fSELECT ID FROM dbo.T_ProgressNet WHERE receiptNo =' ' ID ,cID kind ,kind type ,type receiptNo ,receiptNo ,' receiptDate ,receiptDate . yyyy/mm/dd memo ,memo area ,area ,charge frequency ,frequency >INSERT INTO dbo.T_ProgressNet ( ) VALUES (  ) aID= ,cID= ,type= ,kind= ,receiptNo= ,receiptDate=' ",receiptDate=NULL ,memo= ,area= ,counts= ,counts=0 ,charge= ,charge=0 ,frequency= :UPDATE dbo.T_ProgressNet SET   WHERE ID= SELECT ID FROM $ WHERE callSign =' 0 WHERE licenceNo_Head = AND licenceNo = bID ,aID licenceNo_Head ,licenceNo_Head яu licenceNo ,licenceNo address ,address areaCode ,areaCode MoveArea ,MoveArea purpose ,purpose issueDate ,issueDate estabDate ,estabDate beginDate ,beginDate changeDateciJs=m] ,changeDate termDate ,termDate callsign ,callsign productNo ,productNo giteki ,giteki syonin ,syonin power ,power INSERT INTO   ( bID= ,aID= ,licenceNo= ,licenceNo=NULL ,licenceNo_Head= (,licenceNo_Head=NULL ,address= ,areaCode= ,MoveArea= ,MoveArea=NULL ,kind=NULL ,purpose= ,purpose=NULL ,issueDate= ,issueDate=NULL ,estabDate= ,estabDate=NULL ,beginDate= ,beginDate=NULL ,changeDate= ,changeDate=NULL termdate ,termDate= ,termDate=NULL ,callsign= ,productNo= ,giteki= ,syonin= ,power= UPDATE  SET  0UPDATE dbo.T_Hokatu SET "presidentNameKana , WHERE licenceNo_Head= 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  0 ORDER BY receiptNo DESC 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  0000QGTUD!)\* bSELECT COUNT(*) FROM rmkstationCenter.dbo.T_Agent ( WHERE [memberNo] =   AND [bID] =  AND [ID] = FSELECT * FROM rmkStationCenter.dbo.  WHERE [bID] =  AND [name] =' name nameKana president president2 qgwm $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= \4g1۠B1Y?pJ3Hh\{>! ReadRmkINI SaveRmkINI K00-[0S_g0M0~0[00g0W0_00 n0-[ 000000n0-[k$XIX"2O6lNk2szN5.uP‚Optionhokkaidou OptionTohoku OptionKantoOptionShinetsuOptionHokuriku OptionTokai OptionKinki OptionTyugoku OptionShikoku OptionKyusyu OptionOkinawar0=N4E=BW i7 x̐ݒݒ ݒ_Click ‚_Click x !% k0-[0OX[g0M0~0[00g0W0_00 O Sx (00000k0-[0OX[g0M0~0[00g0W0_00 00000n0-[ Database server database username password atis -[0000 $g0serverL0-[U00f0D0~0[000 (g0usernameL0-[U00f0D0~0[000 (g0passwordL0-[U00f0D0~0[000 (g0databaseL0-[U00f0D0~0[000 SwmS qgS qg !%;  .oldC @B( *KzK6\У   <#----------------------------- #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!qY000 X#000L0B0c0f000server0database0username0password0 <#atisNYo0!qY000N͑k0-[W0f0B004XTk0o00_0k0 #W0f0B000n0L0*QHQU0000 !% CҋB ` -NV VV ]N] l~ -[0OX[W0~0W0_00 -[0OX[g0M0~0[00g0W0_00 $000000x0n0c}`1XL0pu8^g0Y00#=h8+3qG?,2qLyy   !%_  !%` ( !% H  JRdY00)jPL0B00~0[000 HyperDyne $SOFTWARE\HyperDyne WordVBA 00000O0 XML0000(*.xml) *.xml Y0y0f0n00000(*.*) *.*  TMR0NQ0f0OX[ .xml "ckW0D00000 T0c[W0f0 NU0D00 !% h !%^ !% 00000000(*.txt) *.txt .txt 13 (eQRU00_0eN000L0ckW0O0B00~0[000 eN: !%-  s^ s^b ge.m.d -f -fT CheckClient CheckAgent CheckSubAgentCheckCommunicator n0OO@b0xW0f0O0`0U0D00 "n0OO@b00000xW0f0O0`0U0D00 n0OO@bL0eQRU00f0D0~0[000 OO@b00000xW0f0O0`0U0D00 B}NW0~0W0_00 jSELECT DISTINCT rmkstationCenter.dbo.TM_AreaCode.ken  N FROM rmkstationCenter.dbo.TM_AreaCode  b WHERE rmkstationCenter.dbo.TM_AreaCode.ken LIKE  %'  ken ^ WHERE rmkstationCenter.dbo.TM_AreaCode.code =' "㗝lf[^x[XƂ‚킹- SELECT rmkstationCenter.dbo.TM_AreaCode.code, rmkstationCenter.dbo.TM_AreaCode.address  \ WHERE rmkstationCenter.dbo.TM_AreaCode.ken =' '  code `SELECT rmkstationCenter.dbo.TM_AreaCode.address  0 k0rS_Y00S^ w^:S:uQg TL0S__00~0[000cmdCheck pSELECT rmkstationCenter.dbo.TM_AreaCode.addressKatakana addressKatakana ^SELECT rmkstationCenter.dbo.TM_AreaCode.address \ WHERE rmkstationCenter.dbo.TM_AreaCode.code=' OO@b ( K000rS_Y00S^ w^:S:uQg000  L0S__00~0[000  K000^:S:uQg000 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 "Ƌlf[^x[XƂ‚킹 (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[000 n0Nhn0 T݂`FbNcmdClear .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_w|@pG ]; ,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`0U0D00Yl|ďYl|ƏYl|ɏYl|ҋB ` ck8^k0B}NW0~0W0_00 X 0 Yf{v23uˊfh0W0f0-[ 0 0{v2 YfJ\Qh0W0f0-[ 0n0D0Z00K000000W0f0O0`0U0D00j:{HOd H1QiMij^^RBv~* av5LHcmdClose cmdExecuteVe'LbL^ I$i7 cmdClear_ClickcmdExecute_ClickcmdClose_ClickcmdCheck_ClickSetFormSetColor \ 00 &00000000L0c[U00f0D0~0[000 0000L0O(u-Nn00F0g0Y009X`A" *BT   ,GetDataForTextFile InputTextFile WriteFileCheckPostalCodeD CheckAddressW ::T4@!i T!  @? D!? & !% ( "00000000000~0W0_00 LK0j00Z000000000Lj0c0_0F0H0g00x N!q}TSOT/ek0T0OO0`0U0D00 Lh:yL0qN0f0D004XTo00D0c0_00OX[W0f0K00B}NW000F0N^D0f0O0`0U0D00 InputKagami ReadTextFile   (000000g0000L0zvuW0~0W0_00CheckPresidentNameKanaDCheckPostalCodeW BS0n0Word0000k0B00Y0y0f0n000000n00000dW0~0Y00 200000000gRK00[LW0j0Q00p0j00~0[000 0000dW0~0W0_00 4Scripting.FileSystemObjectOpenTextFileAtEndOfStreamReadLine Close 0#P[3uˊ00000000000000000Ni *#!q}@\Sb Yf{v23uˊf/{v2 YfJ\ CheckPresidentNameDCheckPresidentNameKanaWcmdToDB <#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~0Y00WriteLineCheckPresidentNameW H#Pkj0i0g09eLY004XTk0o0 0vbCrLf 0Y0y0f0JS҉ 0OD0~0Y00 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$ FCreateTextFile cmdFromDB J000000o0000L0Y0g0k0X0U00_0000k0[W0f0o0[Lg0M0~0[000 0s(Wn0000n0K0L00n000000n0peL0pu8^g0Y00 6[n000000n0{V0H0_0pe$PL0eQRU00f0D0~0Y00 00000000 : v TL0S__00~0[000 000 :vn0peL0B0c0f0D0~0[000 K0L00n0v: [n0K0L00n0v: MQ1N >Y0g0k0NtNL0[LW0f0D004XTk0o00[LY00_o0B00~0[000CheckNameKanaD Pd00000000W0_04XT00F0N^000000000W0j0J0Y0_L0B00~0Y00 NtNn0c[\ZEқPfB~Ywo[pMՍ9.k.K