ࡱ> scimwh_`abd^CompObjepi57 n``33fxow<CompObj|pi70 n```43`43fo< \pbowang Ba= ThisWorkbook=Z}(j<X@"1Arial1Arial1Arial1Arial1Arial1Calibri1 Calibri1Calibri14Calibri1 Calibri1Calibri1Calibri1,8Calibri18Calibri18Calibri1>Calibri14Calibri1<Calibri1?Calibri1h8Cambria1Calibri1 Calibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)3" "#,##0_);\(" "#,##0\)=" "#,##0_);[Red]\(" "#,##0\)?" "#,##0.00_);\(" "#,##0.00\)I"" "#,##0.00_);[Red]\(" "#,##0.00\)i2_(" "* #,##0_);_(" "* \(#,##0\);_(" "* "-"_);_(@_)y:_(" "* #,##0.00_);_(" "* \(#,##0.00\);_(" "* "-"??_);_(@_)3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_->_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-\$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)""SFr."\ #,##0;"SFr."\ \-#,##0'""SFr."\ #,##0;[Red]"SFr."\ \-#,##0(#"SFr."\ #,##0.00;"SFr."\ \-#,##0.00-("SFr."\ #,##0.00;[Red]"SFr."\ \-#,##0.00FA_ "SFr."\ * #,##0_ ;_ "SFr."\ * \-#,##0_ ;_ "SFr."\ * "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ NI_ "SFr."\ * #,##0.00_ ;_ "SFr."\ * \-#,##0.00_ ;_ "SFr."\ * "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ +""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ y:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_                                                                       ff         P  P        `            a>  ||>#}A} 0_ ;ef-#,#}A} 0_ ;ef-#,#}A} 0_ ;ef-#,#}A} 0_ ;ef-#,#}A} 0_ ;ef-#,#}A} 0_ ;ef -#,#}A} 0_ ;L-#,#}A} 0_ ;L-#,#}A} 0_ ;L-#,#}A} 0_ ;L-#,#}A} 0_ ;L-#,#}A} 0_ ;L -#,#}A} 0_ ;23-#,#}A} 0_ ;23-#,#}A} 0_ ;23-#,#}A} 0_ ;23-#,#}A}  0_ ;23-#,#}A}! 0_ ;23 -#,#}A}" 0_ ;-#,#}A}# 0_ ;-#,#}A}$ 0_ ;-#,#}A}% 0_ ;-#,#}A}& 0_ ;-#,#}A}' 0_ ; -#,#}A}( 0_ ;-#,#}}) }0_ ;-#,# ;_ -"?? _ -@ }}* 0_ ;-#,#??? ;_ ???-"?? ???_ -@ ???}-}/ 0_ ;}A}0 a0_ ;-#,#}A}1 0_ ;-#,#}A}2 0_ ;?-#,#}A}3 0_ ;23-#,#}-}4 0_ ;}}5 ??v0_ ;̙-#,# ;_ -"?? _ -@ }A}6 }0_ ;-#,#}A}7 e0_ ;-#,#}x}80_ ;-# ; -" _ }}9 ???0_ ;-#??? ; ???-"  ???_ -@ ???}-}; 0_ ;}U}< 0_ ;-# ; }-}= 0_ ; 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L湸 % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  Lմ % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23ٗ % 60% - Accent3M( 60% - Accent3 23֚ % 60% - Accent4M, 60% - Accent4 23 % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text % 0Good;Good  a%1 Heading 1G Heading 1 I}%O2 Heading 2G Heading 2 I}%?3 Heading 3G Heading 3 I}%234 Heading 49 Heading 4 I}% 5InputuInput ̙ ??v% 6 Linked CellK Linked Cell }% 7NeutralANeutral  e%"Normal 8Noteb Note   9OutputwOutput  ???%????????? ???:$Percent ;Title1Title I}% <TotalMTotal %OO= Warning Text? Warning Text %XTableStyleMedium9PivotStyleLight16`)3Sheet1ccB4c =_MA  ;4  dMbP?_*+%&?'?(?)?"4c??t&U>@7 Sheet1ggD ThisWorkbook.U&%__SRP_37; __SRP_36+Sheet17.  !"#$%&'()*,-/0123456789:;<=>?@BCDFHIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxz{|}~is will be set to the Tools menu.]@+ This will be set to the Project menu item.]`]]]]]] ]@]`]] Dim sep As CommandBarButton]]]] @# This generates a run-time error if the menu item is absent.$ Create an object variable referringP to the Tools menu.SNPWorksheet Menu Bar B%D%F.% Add a command in the fourth position on the Tools menu." If a run-time error is generated, add the menu item. H!J NlWorksheet Menu Bar B%D!F%L. &SNP9Pq` Rl !F%L." Rl !F%L.& Rl !F%L.( Rl !F%L.* Rl !F%L.0Term Rl !F%L.@ Rl !F%L.2 Rl !F%L., Rl !F%L.. Rl !F%L.4 Rl !F%L.6 Rl !F%L.8A Set sep = objCmdBrPp.Controls.Add(Type:=msoControlButton) Rl !F%L.< Rl !F%L.: :(T Rl !F%L.>A@Vk Disables the error handler.& Set properties for the new menu item.About SNP tools "(PFind &LOH stretch &(P Find &Hotspot ((PCommon &Stretch *(PConvert to H&aploview and Plink 0(PConvert HapMap to Haploview 2(P&Convert to S&NPHAP ,(P&Transpose S&NPHAP .(P&Convert to &PedPhase 4(P&Convert to Phase 6(PCo&mpare Haplotypes 8(POR (Mantel Haenszel) <(P sep.Caption = "-"Sharing N of STR allele :(PTranspose external text file >(PConvert Hapmart0.7 to Haploview @(P showAbout "(X LOHstretch &(X FindHotspot ((X CommonStretch *(XConv2HAPLOVIEW 0(XConvHapMap2HAPLOVIEW 2(XConvHapMap072HAPLOVIEW @(X Conv2SNPHAP ,(XTransposeSNPHAPoutput .(X Conv2PedPhase 4(X Conv2Phase 6(X CompareHAP 8(X sep.OnAction = "" CompareSTR :(XOR_MH <(X transposeText >(XremoveOldButtono@, This procedure deletes an item on the Tools menu on the worksheet menu bar.* If the Project command exists, delete it.SNPWorksheet Menu Bar B%D%FB@\oڵAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit` P"& Sub _AddinInstall() '  procedure adds an item to the ToolsmeXnu 3 ws heet bar.Aug 24, 2007% frmTrans{TextFile, Bowang Chen, DKFZX Gwill be| s ! Dim objCmdBrPp As CommandBarPopup WProjec/;AboutButtonLOHst retch Hot@?sh@Sconvert2@SNPHAPtE^! @LOVI EW HapMap2+ 2PedPhJmMX%_A?.p ('%FseLEH! STROR_MantelHaensze>lF1`+mart07, CSOrror ResuNn#$a`gener| @run-tieyBif%!|ziA`bsent$d'6 BnAphvaDri"ref ingF wS`{w= Appab.Gys("CM{") ntr("["@} a c# infourth }`i %$›)' If#s E'd,Ed ( k6#<z(V6,MsuD hFā< jwD>1/XM&xā< jwD>1/XM&z(V6,MsuD hMED@[LSS(L   $6" PLLLLLLh * 2 (08@HPX`h &p  *  * @4Y` ,  ( $0@l@  AAAAA A@A`AAAAA H AhA A  "  , H h  , (   @" `    $ ( 0, X        " 0  X " p          8 X p "x 2 & 0  4\ P ` x) This procedure adds an item to the Tools menu on the worksheet menu bar.8Aug 24, 2007 add frmTransposeTextFile, Bowang Chen, DKFZ$ Th" f%$$Err.Number <> 0e!.8( _ aType:=msoCob$$$Wi!cG/.Cac &A+End a'C=hf3n? u  %Vo" $o` YuLGR AAP4[\]ooomEkmm FinhmboQ#o??Oo ?vW.BeginGroup"@1oxooo2showOQRItDisqsbvh`le&{GoTo 0[3S'>p0i0es f}yne~w"kDg[ @\P PVFi]& TTdRmpv~&Q+H&aplovi PlinQ 7Pt 3| 6&sqQ|S&4GJ O;%Frt& OC0a Co&mAltots=IOR (3C)pBED-<S N of >ele4>9.Claption = "Transpose exte@rnal tH file" convertHapmart072HAPLOVIEW.CCJ L.7 toloviewAbout.OnAcshow'LOHstre8tch &'Hot KFind%shareSOCommon wr Ts }Map  = É!2SNP Y tP jput PedPhaseE oT  bp@i/m# 'sep  STR& OR_MantelHaenszel AHD JzT@FJ JD 'removeOldButton End Sub Private Workbook_AddinUnins@tall()8This procedure deletes an@ item the Tools menuw@sheet Bbar.M' If ProjePct c`aexists, ` @On Error Resume N dxpplhicax.hB`ars("M") ntr`("JDJ#arU 6,a 1YY%!3I9 yAa !!Y!!!!"q""I## $I$$$$ 1Y$4a`` 7I77W7KY: % :$%48! 8 d4 H  ,l=x) 84 $ 88  l8l'%'%'%'% % :$%48! 8 d4 H  $l=x) 84  lx   cA4'%'%'%' %$%8x P8 $l4= t)84A4'%'%'%' %$%8x P8 $l4= p)84A4'%'%'%' %$%8x P8 $l4= l)84A4'%'%'%' %$%8x P8 $l4= h)84A4'%'%'%' %$%8x P8 $l4= \)84A4'%'%'%' %$%8x P8 $l4= <)84A4'%'%'%' %$%8x P8 $l4= X)84A4'%'%'%' %$%8x P8 $l4= d)84A4'%'%'%' %$%8x P8 $l4= `)84A4'%'%'%' %$%8x P8 $l4= T)84A4'%'%'%' %$%8x P8 $l4= P)84A4'%'%'%' %$%8x P8 $l4= L)84A4'%'%'%' %$%8x P8 $l4= D)84A4'%'%'%' %$%8x P8 $l4= H)84 H | A4'%'%'%' %$%8x P8 $l4= @)84 K t p l h \ X d ` T P L D H @ < t p l  h !\ "X #< $d %` &T 'P (L )H *D +@ h5PHh\@dxl<TLP`XpDt 84 hK\'8%H:L%\`:d%tx! x dt H` \ ,H ) xt`\HDh$5 xt`\H44PrU 7@$7`$A7` n<jxk.W#<ȫAC_O FT_'FxT_'FȫAC_O ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` %^ %`h8@\\0 N'R$*\Rffff*DM52274e184 xpAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit rU E( ٲA;4) Q`rU D@nrU A`$A__SRP_44A__SRP_45#EBfrmLOHstretch>m6__SRP_41 0^3b*\R1*#222*\R1*#109*\R0*#14*\R0*#15*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\`t-kWa\BDINdBb)ҦJ0 F}t<_:@pf+{O/\ tx{O/\ tBDINME\@SPSSS"">"LLLLL*L<`   F ` $p ^ , ( $@ " hp  "\&\$\ $\Hp x '( ( (   &   @ HZNP B29( `    29   ! F  !h x  "   &o &o &m 0| @ &oP &ox &m 0|    ( xh Me.Caption = "SNP tools: "A@h j n!l9l n!9x n!p9p Bow99fqPoH@! CommandButton2.Enabled = True v9t |z ~A@xem 9tA@hC@qo"Private Sub CommandButton2_Click()! CommandButton1.Enabled = True" CommandButton2.Enabled = FalseEnd Sub T] clear and init (fem n9f9q j$@9 t n!p9pmenu999fqd setStatusBar (0) A n(fnd in  (f posit j  n!9s menu d$%9P9fqkA@o?This macro finds the stretch with LOH>=2 on the same chromosomeDusage:.1. run the macro LOHstretch()RX2. select the data area includeing 5 columns: SNP_ID, Ch, Loction, call(genotype)and LOH&3. tell the macro where to put result.L 4. click RUN !Bowang Chen, DKFZ, 16.03.2005L]x!]R]  z B@ ~ B@ SNP ID55 5, R Chromosome55 5,SeLocation55 5,:=msDistance55 5,Lqx''  !  ! A@h! read a SNP into SNP(3) temporary &6F5  5 5%5  5 5%5  5 5%5  5 5%5  5 5%$B@Pq0$!Pl new LOH>=2 SNP foundHa$$B@rt to $$B@pose S'd$$%$$%Lsame LOH and same chromosometypes$$B@nszel)  'd9different LOH or chromosome, then output previous stretch2 in t  G$$  A@jKFZ$$B@!%$$B@ De'k@k8k0  B  G$$  A@j7ber 5B@HusBar.555%5   5 5%5%B@H B@A@qpoh@  !5  5 5,at !5  5 5, !5  5 5, c ! ! 5  5 5,  ' !5  5 5,~ !5  5 5, !5  5 5,ta ! ! 5  5 5,  'aqo Attribute VB_Name = "frmLOHstret ch" Bas0{6242641C-D229-4AA6-9E1A-300B46C8C17D}{05B48474-5F3C-403A-AE70-7FC466C22B8F} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDOption 0licit  P$( Sub UserForm_Initialize()  Orro@r ResuNex!' Me. Ca.SNP tools:  setStatusBar 0 With Peprcen&.TopGprogxres AC L8eft HHe8ighH Wid=E#Visi pAEnd *< A@JN NCommandBut@ton1_C@XkANG 2.Enew$BM@.MousePointer@;fm HourGlasBs3FindG S@ce:=RefEdit1, @TargetF2Defaulhr,HidD0PL'L2L1&*f.'&5)(Oage As Single]Dim 'ngc%IfUG Then` 'cleZ@ ig*PDX.JA&?>(]g*BorderStydj!/a .m!.BackCol@{= RGB(0, @255d!jD.k"{E⮂@Q(0 g c!a04 'H* ,:'RoundP* 10/) & "%HH # IfcDoEv@a'This macro fs the3!^ w@>=2 B!chr@omosom|'us``: '1. run B2. seleTctBd aA@ecluden 5 column`_ID, C@h, Loc!k, call(genotype)q603. tellwhereg` put cpK.!4. c1Y RUNBowang0en, DKFZ, 16.0@3.2005 yCU(UAUGd(qD (3)Nxew qiLong, jkHrcScJCInfo, t]ctCs.P`Sheetb#i[cSS1 cp ..Cs(.rowrt, .pA + 0)Pm" ID.1C)t2&a!& Distanlce8k 4YjM1 i To ' No - T!Mi /T (1N'.ad a!&5to't@oraryŒwqP.D:Pi, _5%tl2)e 3 ? ? 4 4X?;#@$p:B >= 2p"&4nE1[ feӿ1)F\T"23 q?+aSzu EqualCH(SQk3). B 's1hp ` i/ a k' 'diffent a0Xoutgprevious%u> 0t1@'S K^b?1=O0A,U@= i L[utputLOHstretch SNP(1),828targetSelect, j With d,4.srcSheet.f2Range(RCells(.rowSTf.col & + j - 2, .3))yion .CopyEn$d  Sub PrivaHte  o(Snp1 As, snp2 sInfo, ByRefVLong)@" yw0) = N.NPid.K#1CH2Loc23W_3@xE7j=jC1rBMEyMyM8ZMC]M&2CM !d|x , liT%x 4 li4%pH $lplH $lli%dhx D h d)hdopx , lpiT%lx 4 lli4%tH >tF%dhx D h d)hd5opx , lpiT%lx 4 lli4%tH >tF%dhx D h d)hd5mlx , lliT%x 4 li4%pH $lpi%dhx D h d)hd|x , liT%x 4 li4%pH $lplH $lli%dhx D h d)hdcx(5xthdTH8)9P99TQ7yy7` A__SRP_40GRSNP_functionj__SRP_33TZD__SRP_32M `$AA`(A`*,A`)00LA` 13 !3 !3 (n l 8 l clrU 3$3`(3`0(3`o<33e\0*\R6*#6*\R6*#5*\R6*#5*\R1*#109*\R0*#10*\R0*#3*\R0*#11$*\Rffff*El5227500c$*\Rffff*Ec52274f40$*\Rffff*DX52274e18$*\Rffff*Ei52274f40$*\Rffff*Ee52274f40*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SrU @@iI vzza{zam A;aQ !1Yp pg٦ Bi4A6Q78A6Q7<A6Q9@A6Q17DA6Qi6 H :1:`IAL9)9P99TQ7yy7` AeAWAAAAKxt! Qtp$xt! t lxp t$xt! t llxp ht$xt! t Hlxp Dt7p  p cp ( 5pt lx x Qt! ta`p! paL`H``\2\H)tp6`Lx D xcx8(5x$\Htp`L t! t tt! Qtp p p 8cpt! Qtl^ l $ht! t Hlhl Dt7l l 8 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4  4:$d @/6D4 d cd l45pldx tD4<l D$ P l@$ P @V <\8< , l8i%4< 4 l4i%: %,0< D 0 ,)0,\8< , l8i%4< 4 l4i%: %,0< D 0 ,)0,\8< , l8i%4< 4 l4i%:%,0< D 0 ,)0,\8< , l8i%4< 4 l4i%:%,0< D 0 ,)0,c< qH qL'P8D$  l8d(8D$  lPl84 DV 8 , l8lPi%4 4 l4i%,0 D 0 , , llPi% 4 li% D  | , llPip% 4 liP% D  h< , ltF%dhx D h d)hd5opx , lpiT%lx 4 lli4%tH >tF%dhx D h d)hd5mlx , lliT%x 4 li4%pH $lpi%dhx D h d)hysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*E_52274f40$*\Rffff*Eb52274f40$*\Rffff*Eh52274f40$*\Rffff*Ef52274f40$*\Rffff*E]52274f40$*\Rffff*E`52274f40*\R0*#f*\R0*#14*\R0*#1*\R0*#e0  " @8 4x B  *0 8@HPX "` bh B      B 08$P h  \&{2kfxR R ME "@8 ""(> PLL"""""LLLL""""""<<<<<<<<<<<<<<<<<<<XBhv%h$P$%8hPhh h` V`!k+ `#t+ i st 2+`$k`&& ?)   `t alse`p`l`h`f ownW+@`&kXFi xLayoii'Mousii`t`pActi`lestD+ `((k b?) ^ NInit  `t `p`l`hcro +`*k`vi s Stiingi8+ap2 i Coi  Ex`t + `,kXi x i ii+`.ki. 8AAKiXBBAAixiBBK+X`/ki AAKi!'i808iAAK+8 `1$k ?) "NoBA'  `t `p`l `h+ `(3kx i + H `5,k ?)    `t  `p%+ `7k i +"X `8,k ?)9 \D  `t `p+$ `;zk i; +&h `;,k  ?) 0 @jp  `t `p ( `>|k . `>|k 2( `x?|k 6h `0@|k & `@|k : `Atk B( `B|k Dh ``CTk V `D|k Z `HE|k 8(`F|k  :h`F|+  ``XG|k d`H|k+hH`Hzk( ij +r`IXoij it+v( `J k .i +z!`Lt+h!Di~ j+"`Mk"Ti z(+H#`O k(# pi ick(+$`Qt+$ yi~ +%`RHk% i hen +h&`SHkH& i it2,+'`0UHk' i Defa+((`xV8k(i s(in+)`W4kh)i  = TiRead+(*`@Yk*i iear ++`Z|kh +)!p%)P %`htusB`d``j`\+p,`x]kX,i  t@ %`p`l`h`X TH0P +(-`_Tk-i  t@ %`p+.`akh.#i  % t@ %`p`l`h`X Th +/`cLk/((2i  t8@  %`Hdp`l``h+0`ex+0Zi  1`fk01BBni Pi x%`t`p`l T 8@( x`+x2`i+2) %ii(i`t`p 3`@ndk3^^i iii8i xp% 8t%`p l%`h`d```\ D`H (  +4`spk4i 8iXixi+5`ul+5"i~ i us St`v@(  H  p(h  h H 8(Hhh (0 X ( Xx(h(  @"# #x"C"@"x @"t @"p @"l @h @8#X @P#H X@h#8 @#( @# @ @ P$x$P$`x$ @t Asx$`@%%%&x%@%&X%`x`%h%@%X%|@%` %x%@\ (&%@&L @%< @&, @8&( XP&&@$? `&8&p&8&%@& @ @ xX(''('''`x''(@(\ @(L @H(< @0(, @`( @ @x( @ @ (X)))(*)X)p)`z )X))@)d ))@` @*)@P *@*@ @0 @P*, h*(*@(? x*P***P*)`++H,8+p+P+`x`+8+`,? +@+d (@+T @,D @+4 @,$ @ @0, @ @p, ,H,@ p, x8-X--8-p-P-` x$`-8- -@-h @-X Fun@-H @8 @.( @ X8x8//...`x..@ /h @P/X es(i@h/H @8 @/( @ 80080p0P0`x `080`@0h @0X @0H @8 0@1( @ 1 2X2@221121`z  11 2@2d 021 @` 22@P @p2@ @0 @2, 22@(? 322(3@$ 322x3044343`z X33@H4h @`4X @4H @x48 @4( @4 @4 @ @4 8@ 0 5 6H606x65565` z 555@6l 65 @h 66@X @`6H @8 @64 6x6@0? 66 @, 766 7 88777`z  77XP@88h @P8X @8H @h88 @8( @8 (@8 @ @8 8@ @ ( :8: :h:99:9`"z 999_a@9l A2:I:9 @h :9(@X @P:H @8 @:4 :h:@0? :: 0 @, ::9 ;;;`$z  ;;X<XXP <8 =8= =h=<<=<`&z <<<<H@<l =<@h =<@X @P=H @8 p=@=4 =h=@0? ===$XGh@, ==<G>*@ `?0x?@4@4@8A`XGB`B@BB<pChBXGxxB`x%`B@t HC0? HD`DDD8Dx0D`%D@t @xDd @T 0EXE\F^GbHf(hIhIII`hz IhInpXJJJXJJpJ`rxJXJ@h @X xK LKKKxKKK`vxKxKLxz|@PLh @hLX @T K@8LP @LL @< @, @L( @L$ @  hMhMhMM`zzMhMM@t MhNNNONhNNN`xNhNOx|@Oh @(OX @T h ON@@OD @XO4 @$ @pO @ @ 51MO(PPPPPPPPPhP`xxPPPP @t P35|al ln@(Qd @@QT @QP @XQL @< @, MIO@pQ( @Q$ @  @RxR@RXR`zhR@RLeRker@t xR@SSSS@SxSXS`zhS@SS@h @X @H Su'THTTUTTT`zTT Ulg@h @X er@H UU8V VPVUVU`z mUUhV@h @X @H PVWWhWWWPW0W`x@WWW51Mlg@Wh @X le@H W@8 xXh(YXXxXXX`xXxX@Xh @YX @H m!m@8 @4 YHZ0ZYZY`x-EZY|ubjec @`Zh @xZX @ZH @Z8 @( @ h`[[[(\@\`[\x[`l [`[X\@[L k_N@[H @[8 io@\( @$ @\ @\ @h\ \@\@ th]h\@\ @\ ec@8] |@] @ ] @P] @ @| ABh\X^x0_H__^h^^^^P^0^`x@^^p^@D nu@^4 @$ @  @^ _^ @ _^ tm8L@ @ @`_  me@x_ @ ^@`Ha```@`x`X``xh`@``l` ` %a`@h @ ad 8a`@` a a@`a\ @xaX @T ah P8@bchcbbcc@bbb xXbhb %b@b WW0c@D da@b4 @$ @  @@c Xcc@ c@cBH@ @ Pr@c deHxededHdd`d`xpdHdddinmedd d %0ed@` @he\ aG@@eX Xee@T ioe@el s@eP @L @eHfHf`f`xpfHfPHp0 gHiPgg0ig@8g @ @hg @g @g @g :P@g @ @h hg/@@h 0hh/Xhh1@hh h@h4@h hhh4@h hh5@h mahh5@i ih8@ `ii8@ pii;Lu*ih<hh=H`(0jkkHkjhjj0jHj`xXj0jjlj`it%jhj@kh @jd jj@` 0nj@k\ @0kX @ lT @`kD w@xk4 @k$ @k @Pl @k @l @l @m @8l in@@m @hl @l @l @l @pm @lt O@ld @mT od@(mP @L @XmH @D @m4 @m$ @m @m @ Pr@n io@n @ j 0xhXsxopoHson(oson`%@on6@ @Po ho(o9@q OqPo9m@o @p ce@o @o @o @8p @ p @p @Pp 9:@hp @px ar@qh @pX @pH @pq8 @p4 @0 @(q >N@@q @Xq Su@ @q @`s qPo=@q qqB@r rqBOh(rqD@8r PrrGill@`r atxr8rG@r r`rH@r rrH@r rrLR}@ srLCompe@0s @ @ @xs @s @st @d ||srTsrU8rVaskt8xXtttt`xttTofile sz@tt @p  Hvuuu`xuuv@vt (vu@r 8vvvS} @l 66 0  0 !UX N'R$*\Rffff*E^52274f40*\R1*#222$*\Rffff*DU52274e18$*\Rffff*DV52274e18$*\Rffff*EX52274f3e(*\Rffff*EX52274f         8(HP HX *      @ ` p   B >c   s   >< ( 8><H   P  ` p  x     2  B      $(  @  X  h x            B   >c  8 H bZP         >9  &0 X  ` h p x B  *G  B  *G  B  *G 8 B @ H X h p $             (8@ B H$JPxB $ #    B  (J(P B X`px$ #    B ((08@HB PXhp$ #    " " ("0 8H"P Xh"p x"   " "       0 @ P ` p   " " " "  @"H P` "h p B  > 68B @HPp"4x  R ( 0 P X B x 8  5 >o X ,p  0 ( 0 H 0h   B  8 ( @f1H     B    D@        2N X ` p !     B  @ HP >oX B  B 08 PX `hp B x     B      ( 08@B HP ` p x   B  $ !  @!P p   B  F(4 X&`  L , 0 H P p  $ $ ! 0! 8H! ! ! ! B ! B! $! $ " $H" $p"  "":Q":Q"8#@# VH#B # # # 4# R$h$ &p$$$ $ $ $R$ %0%78% <X% <p% %&  & (&;8&X&`& B h& Zp& N& '('H' 8P' h'x',''' ' .C'((Zf0( ( ( ( !((( ((B ) Z) Nh))))) ) .C*0*Zf8* * * * !*** *+ B +++8+ 8@+ X+h+,x+++ + ++ B +,,  , ,0, `,%h,, , .C,,Zf, @- H-`-h- p---- @- (- 4. H. "P. ,x. . ,. $./ / ./ / 0 *0 H0 X0 B p0 x0 000 00 0 0 11 101 81@1H1P1 " X1 :`111111 12 282P2h22222223(3@3X3p3333334404H4`4x4444 ,4&505 &GH5&Gp55&L5 5  56 :\6 4YX6 66X}6 7 7 (7  87 B @7H7X7 `7h7T7 (i8 88@8 H8X8`8h8 " p8 (x8 J8 8 t9 2x9 l9 | : ::::::; ;(;@;X;p;;;;;;<<0<H<`<x<<<<<<= =8=P=h====== ,=&(>P> h>  p>$> B> P> P? (?  8?<H?<h?? "I? ?  ? ?6Y@0V@@ Pp@@@ '@ XA<sXAA8\AA A A BB B B (B B 0B ")8B`B BB BBB:(BB B C C(C $0CXC`ChC xCxsome SNP functions, such asP tool:to infer haplotype of offspring by the genotypes of trios,.to compare genotypes or haplotypes of smaples,<to compare homozygosity, heterozygosity or NoCall in samples9t#Bowang Chen, July-August 2004, DKFZ]0 ^8^P^hp   *SNP Tools 1.80 is successffully installed. <http://www.dkfz.de/de/molgen_epidemiology/tools/SNPtool.html 7http://www.bioinformatics.org/snp-tools-excel/index.htm ,Bowang Chen, DKFZ, Sep.21,2004 - Oct.18,2012  SNP ToolsA@op 1KTA'V2KTB'S 'ni ]]' $  $! !d? !d'  'dP   'k0d('k k macro  TRUEFALSE$'iAPublic Function CompHAP(Hap1 As String, Hap2 As String) As String$ If Hap1 = "?" Or Hap2 = "?" Then~  CompHAP = ""55 Exit FunctionChro End If If Hap1 = Hap2 Then CompHAP = "TRUE"st Else CompHAP = "FALSE" End If End Function](  %  %  % ' AABBAAKAABBBBKBBAAAAKBBAABBKAAAABBKAAAAABKBBBBAAKBBBBABKAAABBBKBBABAAKABAABBKABBBAAKNoBBAAKAANoBBKBBNoAAKNoAABBKNoBBAAKTnew LO!'oundHa!'$AAAAAAKNoAAAAKNoNoAAKAANoAAKAAABAAKNoABAAKABABAAKABNoAAKABAAAAKABNoAAKT, "BBBBAA", "NoBBAA", "AABBAA"A'B@A'AAABABKAANoABKAABBABKABBBABKNoBBABKTA'B'BBAAABKBBABABKBBNoABKABAAABKNoAAABKTB'A'BBBBBBKNoBBBBKNoNoBBKBBNoBBKBBABBBKNoABBBKABABBBKABNoBBKABBBBBKABNoBBKAAAABBKAABBBBKNoAABBKTB' B'X S?'%?' n` G'j   $'i @]]' $  $! !d? !d'  'dx   'kXkP Gyj8  i ]  %  %  % '  NoAABBKAABBBBKAABBAAKNoBBAAKBBBBABKAAAAABKAAAABBKBBBBAAKT1'S0'n d BBBBABKAAAAABKAAAABBKAABBBBKBBBBAAKT G1'cG'jS'nki    1$' i@    1$'i    1$'iX]] ' $  $! !d$ !d'  'd   'kk Gyj i8  %AB$'i] 0 '  $  $!  !d$'  Gj iH  %NOCALL$'i ]( @ '" $  $! " !d$'" "Gj( iX AA BB $'$d'$ki ]8 P ac'& $  $! & !d$$'& &Gj0 L!#ih *B@,= UBo 0B@,!1 o 4B@, 1o( 8B@,oh `B@,3"op  <5>(@0\ngC@,q@o8 B@,;' o( .."> 5F(f  5H(f,5J(f@5L(f 5|(f5N(@$5P(f5R(f5T(f@xC@,qP oH h XB@,"o(  \B@,Po  ^B@, o ( frmSTRshared.Showxo h bB@,@o  fB@,ox lh 8 get the attributes and ensure that it isn't a directoryP j$n p'hl 0 if an error occurs, this function returns Falsei H tG.'tjQ'$ j'r j j t %'r*\GiX KThe following 2 function convert SNP A, C, G, T into 1, 2,3,4 respectively..\."for the input format of HAPLOVIEW.missing value will be 0.LBowang Chen, DKFZ, 200422this returns code for nucleotide style: A, T, G, C  %x'4FD KT $z 0'v}KKKKT..\  %$z   %|$z'vo Case 3lg& Select Case VBA.UCase(SNP)Di Case "HET") SNP_ACGT_Code = "3 0"! Case "HOM", "DEL") SNP_ACGT_Code = "0 0" Case Else) SNP_ACGT_Code = "0 0" End Select0 S@0 0'vran(i (2this returns code for nucleotide style: A, T, G, C ~AKaKT0#0'zCKcKBKbKT > B and b are set for those data like in SAS haplotype example1t'zGKgKTjec'zTKtKT*'zS'znithis is for SNPHAP,FA}>this returns insert blank between nucleotide style: A, T, G, Cysmissing data become "0 0"  %x't F KTACGT  r  0'd0 0'*\kKT  %   %|'0dKT  %HETKTG 0'fHOMKDELKT0 0'S@0 0'n(S 0 0'Pni:this returns code for genotype style: AA, AB, BB or NoCall KT  %$   %|$'S`0 0'nHi@H<this returns code for nucleotide style: AA, AB, BB or NoCall ~AKaKT'BKbKT'S'ni  %GGKT'TTKT 'S8'n(i   %GGKT'AAKT'S'nih  %AAKT$'CCKT*'Sh'nXiP  % 0==AA, 1==AB, 2==BB, -1==NCK0KTAA'1 1'K1KT"AB"@1 2'K2KT #"BB"2 2'S"NC"0 0'nXiP(?Bowang June 27, 2007, for BC 900 case-control copy number study  %KpK '* Kora samples are all controldC '* others are casekpih Sub test1()`E Dim nSample As Long, i As Long, n1 As Long, n2 As Long, k As Long& Dim str1 As String, str2 As String nSample = 12 For i = 1 To nSample str1 = str1 & "0" str2 = str2 & "1" Next i n1 = BinaryToDecimal(str1) n2 = BinaryToDecimal(str2) For i = n1 To n2 k = i1 Debug.Print DecimalToBinary(k, Len(str1)) Next iEnd Sub<return the number of a SNP genotype of specific neucleotide,SNP_N_of_neucleo("TT", "C")=2SNP_N_of_neucleo("TC", "T")=1SNP_N_of_neucleo("CC", "T")=0SNP_N_of_neucleo("CC", "C")=2' Gj   % G  'j   %| G  'jiPPublic Function GenoConcordRate(Sample1 As String, Sample2 As String) As Variant( Bowang /DKFZ Dec 07,2007.to compare genotypes in 2 lines, many columns.Kgenotype in every cell, format like "A G", "C T" or "0 0" (nocall, missing)] Dim S1 As Range, S2 As Range]] S1 = Range(Sample1) S2 = Range(Sample2)' !! !! Diff. Long'd  !!  %'  %' 0 0 0 0    %  %|  %  %|  'k   !!d'kiS this function will return all genes with distanc < 10K, including CDS, UTR, etc...G Dim myAnno As New Affy_annotaion 'why this does not class now work?]x]] ///$' ' h  UBound(geneStrings) 2 $ $B@  $!  $!Gjk  $!$' $!--- $!   ///'k@  $!'k  ipS this function will return all genes with distanc < 10K, including CDS, UTR, etc...G Dim myAnno As New Affy_annotaion 'why this does not class now work?]] $'    $!  $!Gjk  $!$' $!--- $!   ///'k8  $!'k i(]] 8]P ///$' '   UBound(geneStrings) 2 $ $B@  'i]]H`x $'& If UBound(Genes) = 0 Then GoTo out'$!$'    $!  $!Gjk   $!$  $!--- $!  ' $!'k  $!'`iX9Public Function closestAffyGene(Anno As String) As String! Dim Genes() As Affy_anno_gene. Dim i As Long, j As Long, distance As Long Genes = AffyGenes(Anno)& If UBound(Genes) = 0 Then GoTo out j = 0% distance = Val(Genes(0).distance) For i = 1 To UBound(Genes) If Val(Genes(i).distance) <= distance' And Genes(i).gene_name <> "---"' And Len(Genes(i).gene_name) > 0 Then j = i( distance = Genes(i).distance End If Next i$ closestAffyGene = Genes(j).briefout: End Function CDS CDS'dX UTR UTR'd( exon exon'd intron intron'kkkki4 Usage: arrange_MALDI_TOF "","" in immediate window]p]]]]H2456+891037+N3579+N46812+ rs10454452+ rs11236365+ rs11581382+ rs11641748+ rs11897813+ rs10817960+ rs12296076+ rs13069836+ rs13095210 + rs1469808 +rs160236 + rs16823149 + rs2885984 + rs2936190+ rs3903983+rs396577+rs4560+ rs4743193+rs533233+rs646900+ rs6495026+ rs6505339+ rs6561324+ rs7115764+ rs7178409+ rs7868550+ rs9582219+ GCo_Ca_all!A2:I32904'j G out!A1:I32904'j   B@Plate  !,Smaple  !,   $  !,     $      !,       !,  A@  $  $$      !,   o]H`'  5 ) 5   5 5% 5   5 5% 5   5 5% 5   5 5%'k qix" Bowang Chem / DKFZ / Jan 22, 2009D to re-arrange a long table (all SNP) into a wide tanle of plate*SNP Usage:n create your target sheet by hand to store the result, such as AB and ABC, and then run the following command:, manage_MALDI_TOF "","" in immediate windowf manage_MALDI_TOF "ca_co_all_without_red_samp!A2:I32904", "AB!A2:I32904","A.Conservative","B.Moderate"v manage_MALDI_TOF "ca_co_all_without_red_samp!A2:I32904", "ABC!A2:I32904","A.Conservative","B.Moderate","C.Aggressive"]X]x]]]0]h]2456+891037+N3579+N46812+ rs10454452+ rs11236365+ rs11581382+ rs11641748+ rs11897813+ rs10817960+ rs12296076+ rs13069836+ rs13095210 + rs1469808 +rs160236 + rs16823149 + rs2885984 + rs2936190+ rs3903983+rs396577+rs4560+ rs4743193+rs533233+rs646900+ rs6495026+ rs6505339+ rs6561324+ rs7115764+ rs7178409+ rs7868550+ rs9582219+ GCo_Ca_all!A2:I32904'j Gout2!A1:I32904'j   B@ create dictionary 5  !% 5% 5%'  5% B@L  5% B@L  head linePlate5,Smaple5,   $  5,    yA? $     5,Re      5,I myDescription = .srcSheet.Cells((j - 1) * 384 + k + 1, 5)  mFA@ $  $'   % $  $  $  $      5,aced`>..      5,k > ommon te@@YA ockmq=..o=  $  $'c_crt G--'jm _iix=] ' ~X ~x ~0 nfo_dt  th  XZ  ~'nf ternald< ~ '+expected dosageCxxFk<k<i<<Attribute VB_Name = "SNP_functio@n" Op Explicit 'so Ps, such as:to infer haplotype offspring by the gensos, "?" T#{B=D 0"5 d1oK;D!* (!=If S `>GoTo , No@a`H' 2`iN0C#! i 2:CIIf(, "TRUE~"FALSE"!!]'}d A)*Q@+2'S]',<1A&@EOrAY2GAD xExit@Ae*G  B%‚ hg# # 0l(ChInteg`er, m7oSABm, far, child |ORD4Cu@_MF Fam^G' e= A@.Left(0, 2) +'- Asy\4YA`ABBAA!&BB33AAt2byxDdBPNoD"AANoqto !&c@!dEF*E%@ "_3 AEB_ B '@<t 0t "s u `uMOx"up BQ qp " 'q 3 +%2` P%q2Q  JgF(?O(w#IC9QH= 23e!W_DJp1a6GH= 0R_McFa-OOO Concordoos KgL gG@ ϏϏ +1Ϗng ϏϏs50 !oPϏ)4`Ϗ Tt  ы1wpizor߉%Aberrtsrutal Sex!$/us a(qzesaA.Left(mor, 2) +H VBfachild If Ch <> 23 Then*2Select Case FamGeno8*"NoAABB", " AAPNoBB BA}'A*13 A"\}Aberr` = "1uElse+End `mJY]Gw^Sex_0 f Dn@;If A=Functio@rPublic  fi@tBoth(|As Intege String, ‹)V:IIf(C =%¦r "))twoF)%((m(M(\CQ@(ML(x^o>P(!1`" Or `*$1)U6KTFaOBYH ####{# !@i_#_# n(nrBmh)qUB ?B""BSub Common0 etch(frmz.Showe0&nv2HAPLOVIEWHaplovireturnsEAEF[IParse 'n@HJ, OpTal DELIMITER RT'QResu\Nr CIf= "" Then." %BEpSVBA .LeftF/, In%.) - 1 E '@$ followD 2G*cuert  A, C, G, T into 1, 2,3,4 resp>ivel4y. fI!FinHput rm`Dof oLOVIEBWmiss value will be 0A@Bowang C %, DKFZ` x004Ĉ9@_ACGT_Code(]4'thEeDcA nucleotide style:TC.A = -0Trim! Sel C` Len(!1Ca@ g;All`) & " 0$B" 2, 3, 4, 5_ leH ۦD,`@ " ARightAb@1!3I ~Ua!⥁e"xHET`#"3  OM", ^"@\ =`o0 E6"k!3 e  Aa\_7Integ__h.#"AqaP! 5(p0 CcABAb" ' Beb v sgDq data likeG SAS haplotype exampLle6/ 2 Gg z9 / Tt@K }o @pA S~ n!Z7jV;"P!s7Z6Y,UQins_blankYxtwejOR`FR'õ\becop42Q ATTbwt#n"!_) > 0BuaBQU! 1qIf$%1z0aU^X? W,H'"%ctgV9C*V "GbQ]YV-Lo%)0ua /U %34BѦgenHuT02AB, BB 6NoCallYs $_A ,C %~}@?20oI _j_js HA \5jXG"4jo0?D _^R**G&_EbpަQ9'C޶ Case "`GG" Geno_GT_Code = 0t)TT1 `El\se$ 2End Select  Function Pu blic  GA( type As String) IntegerZV `VBA.U )?L8AA%3ACVS8DCCD D Dωbrlmm2AB(cˇ '0== AA, 1B, 2==B-NC̎0, "0" 'AA'GA"J"1 1Gœ1 1 "ABMU 2 22 #"B2 s0 '"N-5)0 0$s/CopyNumberT s(SampleIDGt, cFu"w)3'Bowang June 27 `/00for BC 900 c-control n studyc0If ~Leftf9)a1K" The4akD&' K ora ss are alGCo C" l other a`If'Sub @test1(T Dim n, ]Long, iGTn1h2gkE ]str1z, )r" =\ 1 s]F3i`&1 Toa+u" = 1ek2; @2a!dB Ne0xt i= BinaryToDecimal(ۡ na2% Aa!ak Debug.PI@t d Toc (k, LenCE &eub cSNP_N_of_neucleo0, Nc3.Bc: return F]of a 9 g@ sp $f tidej,!'N"@}DC")=TC"T["^-M/:}q:0R: Gro@ou~> 0 A 3>%>?U?z. + tj 02Rightfn=/; :>noConcordRateTMZ;@;$Varian RWe, Sb[Y/DKFZp `2 Z2PZdto`SmpRu)s in 2 lines, many lumns.+@ever ell, ^matPkA G(C T" F"!j` (noc@X iss13&aQVPb=RS W#B7,BgqT= 2eBI 6@'S1.CoCount <>< l !`-"Diff. C|:Z[ 1c+p s(i 5aXS2.C?O Or=k@ 1 2_j>1BA9P>Ac=b# P*6eA%1_z`a / ~* 1n0PuqFFяebriefAffyanno(A@c,a0this f wiDe@4AdesPth distanc <Knclud5 CDS, UTR, etc..';q7myNew  _ ta` 'whykdo@not class now work?3es(GV_0B!(j8ssVO% A(@Split2`n///"4/NdUB9d(R:eW N46mo 8N 'SetQ1@i-i).setValu (9:7i > 0 Then If Genes(i).g _name =P - 1 ` GoTo skip_repeatEnd IfVal(distance@) < 10 6_,A@<>@ "---".Llen`)briefAffyannoH & "///"a !#y/'%:Next i FunctioPublic  W2(A@; As String) ' this f will return aAVbs@th DqpK, includ CDS, UTR, etc. ..A@?Dim myNew A^_^ta- 'whydoes not clasAw work?<GB.F_'i5Long_B n C")F0or io UBoundCo@iտϗϨοAfAe@ f2fl2,+Q ?gD=LZ c:B:gkg g+FeO6(E_T AFT, jU, NGsAVarian\cws(cH.Split~,CN`]lRea *NddN '!/Set>) *~huA7set@use A2@ 9closestyG =A9$e9B@",'mD+'SouAj 0 = 0).,81 {:c;N `}&(ien9G < <=feN NuLu q `)e z ,(&j).$L``~F}'I-no'3AA%-y2x96q/-ng,Gu'}@ --t--/-UI?-%A%%%t%%:%< &5%WO%r(G%'S%'9k% RpPexon(Assoc?%/SIn'' g"_6 #"QCElse/ p/0hQ4;G1Qintron8+DK! = qFvF!Sub arrange_MALDI_TOF(sourceArea7!, t`arget[BmU sage: " ","" immediateandow Jmy%h`GpInfoWKKk gPl@(B4 R!SNP 27`Sample#383' D{"2456c@= "891(0373N38579z0N4p6812B rs1045445#1236365S SNP(3) = "rs11581382"  4h641(748h5h897n464081P79604742R20768306983 99521 P10J450 116$02 O1282P3149C12885984 293619 Cp3903^3`96577 4 5 14743193 533T23 260M2649502 2B650@A2A65613*2A2A776A717840 A786855J(B958221A àCIf sourceArea" Then Co_Ca_all!A2:I32 90&targ et out!A1KmyStretches.BsInfo, - rstSheet.Cells(1, i + fPlatex ClSmapl For= 1 To UBound(@)#A~iNext ic j0 " ake384#C(j -"* $k$,$ (j (kK=i+(a aDoEvents!x,A@lookfor(H, , k,i)lI4!$bjEnd Sub PrivN Function P As range]a@bing, IDLoa%G)GCDimT j/AD/"`Wi8th !4.rpowNoa`|.XsrclAS@st 0HiK, .colf", A@#_ ! y" ^B*%?,3 HGoCpO!"|If"$@qQ : #$ ublic% manage_MALDI_TOF(?[ #YXOp(al DESCRIPTION1$, ON2 3' Bowp- Chem @/ DKFZ`Jan 22, 2009 ' to re-ar"0$ a2ng^ble (Pf!9) in`a widenof p]f*aUs' ckte ylh s1a by ha@#storhesult, such @as AB 1A(BC,tprun followP9 comd "","" @ immedi@Pdow Aca_co!u_w9_red_samp8v, "AB"A.ConserFive0B.Moder>'" ":"C,"C.Aggres~sQQ*s-HE!N ewNWdctGenotypeUDDiRarypYeya-Descri2,#iR, RUK(x@4P(M20 Sle#0w[SD=22TZcJ"8p9103N8357UsãN48681ƳP04p5445#1`365 E(sQˢ ˥{E1˿&130 8BٻE611o#ˠˁ|rs1˿dˆ˧u˿WP2!p˿˿D.rpKY2ːPea, targetArea  With myStretchesTd$'cte dicti onary6For i = 2 To .rowN`o + 1@k eyD.srcSheet.Cells(i, 1P) & 23) cdctGenotype.AdTd s,O4Descripm5Next iA'head line .rs tw1w= "Plate"`Smapl1UBound(SNPnsye&k"..} E4Ifo abYjcSet \Nothing  Sub !Publi c Fun Fawkes(Allele1 As ` , Dos agDle, 2CUe #  22ć@e ""J$--3ce jo"1SDim@Q`&IntegerI 7`6 dX"ajx000 h()o6zMSC 'q&[2+t6 <&% 'expected d&A+4q xH(LG:8N((:XNHH0=h `1x6hH(dL(5xH(LG:8N((:XNHH0=h `1x6hH(dL(5xH( pzp d`$lp PA0 4,t50t(tW@ `$ @/$5@tW@ `1h5@ ll0lhClkzlllh0Qpz kz( tu(D pf` 0X85 ,(tlh$@0PJl Mh@X AfcX:HB]/8(( Vpz6 X(P$5 $X8(pzp dh$lp XA8 44t58t0#kztWH `, CQpz/,5H kzu tu0D pfh P0540t,H8PJl Mh@X AfcX:HD]/8(( Vpz6 X( P$5 $X8(pzp dh$lp XA8 44t58t0#kztWH `, @Qpz/,5H kzu tu0D pfh P0540t,H8l< E0 F0l @+pz4pzt5<$5 pzp dh$lp XA8 44t58t0#kztWH `, GQpz/,5H kzu tu0D pfh P0540t,H8HH$I$5 HJ$K$5 HL$M$5 HN$O$5 HP$Q$5 x@ RVSxtx Tt 8Ut xcx@(5xtHV$Wx$5 d, c=X W xtx Yt Zttx Yt Zttx Yt Zttx Yt Ztfd%tx Yt,ttx Yt 8Uttx Yt Zttx Yt Zttx Yt Zt xcx0(,(5xtH[$\$5 H]$^$5 H_$`$5 8_$$5 Ha$b$5rU~| 236)%&& (()i****** +!+a+9++ 4' ,9,i,,,,)-Y----.I.y....!/Q/// 090i0000)1Y11112I2y222 393i333a34y43 595Y53`  5  P A ?QE qI  =  + Y\\9]3\]]]^1^I^a^y^^^^^_!_A_a_93____ `)`I`i``` c` ycb3c d)dQdddde1eqeee1fqfff1gqgg hIhhhh)iYiiij9jqjjjkQkk l yl mA;1mam3mqnInn3nnnhb'':HN88@*#x*#t*#p*#l*#h*FX 2 xtplh6X8h$5 0 xtplhX8LB Ct lt0"CxD lt 0: CxD CxL,5xt dpfp d\$lp LA, 4(t5,t$tW< :L ]@5<tW< `1h5< ll0lhClkflllh0QpfCx  kf tu$D pf\ 8:N,,:N<<fML @ `1x6<,<5$x($lht<,XclM\@L  LlM<@,  ,lM @  `1l6 L,llCl0*l0*l0*l0*l0*l0*l0*l0*l0*l0*l0*l0*l0*l 0*l!0*l"0*l0=#Ct#Cppl$0l%0l&0l'0l(0l)0l*0l+0l,0l+0CtCp9l-0l.0l/0l00l10 Ct Cp9l20El30El40El50El60X CtCpl70l80l90l:0l;0l<0l=0l>0l?0l>0l0l0l"0 Ct Cp Ct Cp  #Cp2pM @tM<@\L L`1x6\LX8X5 xtpl L,pzp d`$lp PA0 4,t50t(tW@ :P ]@5@tW@ `1h5@ ll0lhClkzlllh0Qpz kz( tu(D pf` lT85 ,(lht@0dclMd@T  TlMD@4  4$lM@  `1t6 T4$  wltCZl"0l0l0l0l0l0l0l0CxCx\lltC9l0/l0/l0/l0/l0P ECxMCxZCxd45xt T4$LG:8N((:XNHH00h `1x6hH(dL(5     W@ !"#h%:'()*+,-./0123456789$;<=>?@ABCDEFGHIJKLMNOPQRSTUVYZ[\]f_`abcdeXgjklopqrstuvwxyz{|}~ Hc$d$5 T$K  ^epz$$5 \K 0 f1 Cx4 l Mh@X  X`1x5X $\(5xXXl Mh@X gX`' 5X JqTlTRl h#Pi*1x/P2lTlTlTlTol Mh@X  X`P h#Lj*#$l M<@, k ,`( h# *1x2 PL($ 6X,lCxY\(5x(PL($ X, Ctlt0"ltm0,pz.ltn0Zlto0Zlt 0Zltp0dpzltq0|ltr0pzlts0ltt0pzpz(5t \l Mh@X gX`' 5X JqTlTqu b i*1xllCxTlTNl Mh@X  X:Dj4l M$@ k `1x6X4TlTJgl Mh@X AX:hv]3wCxE:hx]30:Dy]3;lCxElCxTlCx\,H5xX45 Jqtltol Md@T  T`P z#Lj*#$l M<@, k ,`( z# *1x2 PL($ 6T,lCxD\(5x(PL($ T,\U Ctlt0"ltm0,pzWlt 0Dltp0NpzWpz\(5t `Vl Mh@X AXHH:h{]35pzXH:h|]3OpzXpz: e4`(5HX`Vl Mh@X AXHH:h{]35pzXH:hE]3OpzXpz: e4`(5HX`Vl Mh@X AXHH:hE]35pzXH:h}]3OpzXpz: e4`(5HXl Mh@X AXHH(h]39H:8~]3DCxH(h]3bH:8]3mCxH(h]3H:8 ]3CxlCx(D,5xHX\(l Mh@X  X:H]35XA#4*1x/4Wn#4*1x/4 H\(5x4X8 qx J C J(l Mh@X  XFH]/8'6X(qlxqxC J(l Mh@X k XFH]/8'6X(lxqx d$5 X8 q\RHaLHHa8v"Ha($$av")H$6L8(l :l7hHaLHHa8v"H6L8d<(%lhi%HaLHH8`1dH6L8<(%lhi%HaLHH8`1`H6L8ldl0l`l0ldl`0dM@L  L`M@8 k 8/(`M@  dM@ k /'|6 L8l\q\ hf;l\HaLHHa8v"dklH6L805l`d4 H$L8(|8:DN44 $ $6 Y T64$ lTqhlht@plhd[lpltlplT.@lpltAX d-lp> lpltAX <l lpltAX <l02 f lpltAX ,l 'lpltAX <l=lpltAX <lJ2 lxJv lx*1x!lx lpltAX \l *1x/  pfpx@5(xTfXtaL( 4$4l ^Yhtpltd`.lp|>\lpltAX <l\XlpltAX <lX02\X|$f\lpltAX ,l\ 'XlpltAX <lX=TlpltAX <lTJ2\XT"lxJ lx*1x!lx\lpltAX \l\*1x/\ pf`+(4<5$xlJt lx\XT 8:DN44 $ $6 Y T64$ lTqhlht@plhd[lpltlplT.@lpltAX d- pfp tx=lH5.xlxTXt1x!l4$dl ^Y`t ql%\ltAX ,l\ qh/\pltdTElp>\lpltAX <l\PlpltAX <lP02\P;f\lpltAX ,l\ lhPlpltAX <lP=LlpltAX <lLJ2\PL9lpql\lpltAX ,l\Pqh/\ pfTZ\llltAX \>\1x0d<5$xd *1t \PL *Cx TCx ~Cx Cx(5x PT;T;T;T;8;8;8;8;8;8;8;8; 8; 8; 8; 8; 8;8;8;8;8;8;8;8;8;8;8;8;8;8;8; 0 1 0 1ll x$ tG(%lti%:%x$ ( )G(%lti%:%x$ ( )t8dL(%lti%lt8F%x$ ( ) tfpTdld~\lplli%(%lpTF%x$ ( )Ylplli%(%lli%x$ ( )t8dt }lplli%lti%lt8@llpT@x F%x$ ( )5 tf lf pf 5T%' %$4@)4 8  l x Cx lthl 4lhd`hl DlhltiD%\l Ll\i$%TXl X TF]/l Dllti%l Lli%l  ti]/d'TPl DlPlti4%Ll LlLi%DHl H DF]/') XTHD6tihl DlhltiD%\l Ll\i$%TXl X T`1x)XT5 tf`1cl ,p5xlDXTHDtdTT\LD;D;D;D;(;(;(;(;(;(;(;(; (; (; (; (; (;(;(;(;(;(;(;(;(;(;(;(;(;(;(; 0 1 0 1ll x$ t xV$d 4ldldi%(%x$  Xldi%(x%  H8ldi %(%04 4 0`1p) 406 XH8Pldi%(%  XpM@t$ ()5XPldi%(%  XpM@l$ ()5X df#<(%(%:% ( )<(%(%:% ( )d(doI(%ldi%ld(F% ( ) df`Dd*\d Yl`l\i%(%l`DF% ( )Vl`l\i%(%l\i% ( )d(d 'l`Dl\#*#ld(*1p2pM@t$ 0khXpM@l$ $XF]/H8pM@l$ $8F]/pM@l$ $Fx]/t'd6X8hsl`l\i%ldi%XpM@t$ $X ( )5X \l`l\i%ldi%:% ( ) dfa \f `fc c=x c=tL5 DLt R(pxhlP40XH8tdD)ll #tll #p*1x2tp lx0@Cx D(5xtpCx( 0 0ŀ ~0łkvcrh lx *1x vdrR #l*1x/l (5xl      !"#$%&'()*+,-./012345\`&000&(!3`o<I3`!&0008q3`&00083`000083`0000(3 `o(3 `10(93 `o(a3 `10(3 `o(3`I0(3`o$3`$)3`$Q3`$y3`$3`$3`$ 3`$13`$Y3`$3`$3`$3`$3`$!3`(I3`a0,q3`a0(3 `0(3!`0(3"`0(3#`0(93$`0(a3%`0(3&`0(3'`0(3(`0,3)`!0&,)3*`A008Q3+`y=Y=Y(y3,`0(3-`003.`S 0( 3/`0(130`0,Y31`00<32`1I3 0(0<33`Y00834` !0*0*,35`90*In < kPYIG8!b*=h8+3q/|JE'G;x/|JE'G;YIG8!bME(SS S>"ABCany __SRP_10__SRP_11&frmCompHap%"&dN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}@b<@bD@,!h\+ i  Ah8h+ i `8%b4@b8@b(@ @(xh.a % h Mous`l veCoWWActionXW@\   `l `l (`l 0`l Ƈ4`l K`l `l `l `l `l `l xh o@h ogxh8(8PT$  N'R$*\Rffff*DW52274e18H  ( *0 `  B " x]@h]@]@]@]@($Property Set SNP(newSNPid As String)ing by SNPid = newSNPid End Propertyx 'mP 'm80Attribute VB_Name = "ABC" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz EOp tion 0licit P#' SNPID As Sng   Ch Loc Lo omp Boolean!0Geno - 'Propert y Set>(newAid)f  =  E8nd 1ub5 GID()Varian<9=;  P LByVa@l vNewue)(rU PqYa a@Ha a WP.4F\l/  (5l X  ll#h4/he (5lhPrU T(h/(Ah!)nrU p$`$A`$`$` $`,A`)00(`4\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#10*\R0*#1*\R0*#14*\R0*#15*\R0*#13*\R1*#109*\R1*#222*\R1*#109*\R1*#101*\R1*#10d*\R1*#33b*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\S&t.4/Tk>lJx*_H AsFI!K("a&Wg@UQj2jCL8Uxj2jCL8UJx*_H AsME|@SPSSS ( 6" >"L*LPLLL*LLL<0{490E46AE-211B-4B14-9F1A-D3D7C528EF22}{26D3611B-6757-40CC-ADA9-55519B7F017F}" @`P Lk  ` |+ `h xk b`8 Po" r@`Dk 0  `Po33:iz %i~%`x`t`p` l@`h`"d```\`$X`&T P% L%`*H`,D h`k`!!mi ?`x,`k66iz @%)  cro A% 8h@%`d`(``\`:Z`<`Tap2 `>xP`@L`BH DD8 @% F@x `  R`tk)8 (%)THPA%iFx`x`tX Wp%`Xl`h`Z(d L `HkH 66iF h)8 %)TA% dlA'@%`fhj `d`` `h^`@X`BT `:P`jPL`lJ ,l `X k  ip  i   `t%x p H % x  % @@  %^H  %p @ X (  @%x ` % vt|h@t @d @` P  . @L  @x 8 X xPhjnn 8@l @\ @X @T A%Pp`\%Xp(XHx@` %(vt|h@t @p @` @\ 0@L @H @D 8hP`.h@04 @H$ @ @ @ @ x`<%`@ @ @ @ @( @@ @X @p @ @| @x @t @(p @@Pl h(@xh P!@d x!@T x&(()@P `x0nj@@t p`\% Hl`\%h@h d``\%H@T @D @4 @$ @ @ HH(h0(P l@%H@@< @8 @X4 p0@0 XXHhJLP@, @( X@$ @  @ @ %@ @ @ @ @ @ @ pP00``%H@@\ @L @H @XD p0@@ Xb@0 @ @ @  @ @( @X @ @p @ @ @ @ X @ @H `@ @p H@ p@ @t p8H hhR@D @@ <`%0 @h8 @@4 X @0 @ @, @( @ @ @ @ @@ @( @X @ @p @ @x @h @X @P @ L ( eri@H " 8  ng=H  (5r@),5r0 !!!H!!!(!hl t `l z "b8!!" l`! ="b@p!p t(!H!lem@l om"p!ouponSpacr@!\ os@"L UI@!< d=@@", pL@(" la@ li@X" rt@p" na@ .Ip!lde` H x p N'R(*\Rffff*DY52274e18\0$*\Rffff*DV52274e18$*\Rffff*DY52274e18$*\Rffff*DX52274e18*\R1*#33a*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW6ysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2*\R4*#28*\R4*#14 48<@DHLPTX\`d   `h  ( b ` h " +   "  " "(   HX $` $p $  " Q   "  4Pp $4$422( *I8,7h 0 0 0 0  6 PX :ip :i    0 HP(Hh@u .G (  8 H  P 4`   "                $8  H  P   X ` h p       )  >       B  0 P ` h      &    8 P h           0 8 (P p    2.   <:  0 8 X p r 0 8  <P  & > : X p"    ! 8Z 8@ -x   4 &L >\ X<x  8 - (0 " 8X h *    ,o L8    @ Z` p       (8PX ` px        (0B 8@HP:Rh xPrivate Declare Function FindWindow Lib "user32" Alias' "FindWindowA" (ByVal lpClassName As String, ByVal' lpWindowName As String) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias' "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias' "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SendMessage Lib "user32" Alias' "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long,' ByVal wParam As Integer, ByVal lParam As Long) As Longn1#0TPrivate Declare Function DrawMenuBar Lib "user32" (ByVal' hWnd As Long) As Long180725Private wHandle As Long0  v9t |zA@ 9tA@h5W~C@qo@o !(PoSNP tools: compare haplotype (PA@h̢ j n!l9lҰ! n!9Vbm n!p9p99fqo v9t |z ~A@ 9tA@hC@q(o @- Dim hapID() As String, hapData() As String]] 8]Ph]]]h z z! %'* ~ ~! %', *$.. ,$.. z$!0!'%ѡм z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0 ~$!2'$"ʼ1 ~$!4'&%ʼ10 ReDim hapID(0 To colNo), hapData(0 To colNo)   "      7 $ &  ,      7 $  & ,   "  "A@h  " '        7Gyj      7     7  ' kH   $   &   , 0Z8 Z0W1 0q B@H Ver $ &$ $ " & " $$B@Hs Si Selection.Copyo ] clear and init (f3k n9f9qX j$@9 n!p9p㿖999fqd setStatusBar (0)y n(fS@, (f9j j  n!9+ d$%9P9fqpkhA@oX*Public Sub commonlength() ' As stretchInfo 28.09.2004](]H`xU]H]N]H Dim Source As StringE Dim myRange As New rangeInfo" z 8B@tz# On Error Resume Nextϊ myRangeË" 8!"':4.I@ nSample = 5v  :*{ @0'@ B1'B << B$H'< <D <F'>  <U M  <A@hon1!0 '  :$J +F $F 8 $DA@LZ0 $D!N > (c $D!N'>orp.1The longest common stretch: > !(P Root k H The longest common stretch is: > PInfoA@Bdyi8 set back color =yellow With myRangeB .srcSheet.Select+l range(Cells(.rowStart0, .colStart0), Cells(.rowStart0 + .rowNo - 1, .colStart0 + .colNo - 1)).Select* Selection.Interior.ColorIndex = 36 End With1997 M6mark the longest stretch of each comparison with colorroso For i = 1 To nComp>c setStatusBar i / (nComp)\8 If stretch(i).Length >= Val(Me.MinLen.Text) ThenC4 markStretch myRange, stretch(i), haps(i) 1  End IfeIR Next i]p5]T?F 85B@Hk?5 T!\  'X  F U "C5  F   %$ ' X $ X T!N  $$B@H% !^(`  U-test the other whether the hap is also commomMi  F  "Co5 F %$ 'ZU5  F   %$$b '  T!N x X  Z5% X  5%Gj  X $ X T!N  $$B@H% !^(` qoaAs stretchInfo]] 8P]h F': !h!d$'h'f 8 d(N 55   55%Gyj5   5 F %$ 5%!^!`%n`kXA@'l5   5 F %$ 5%'@  : @5   5   F  %$ 5%'l lGyj  l d!N d(N d!N  d(\k(d  d!N T!N d!\ T(\ d!N T(N  T(k d!N h 8 d FA@R'fk d(Nkxnp  f d!N T!N d!\ T(\ d!N T(N  T(k d!N h 8 d FA@Rk k q o ]0 'l  p p  % p   %'l lGyj i  hAttribute VB_Name = "frmCompHap"D Bas0{490E46AE-211B-4B14-9F1A-D3D7C528EF22}{26D36@6757-40CC-ADA9-55519B7F017F} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0lici@t 'P$( DL FuncFindWow Lib "user32" Alias _ "A" (ByVal l@pClassAs Sng, 3lp0) LongV(Get ) )0hWndE'nIpndexH8D#%S% %-dwNewBB+ndMessageQSeF *wMsgU{@wParamI@nteger0l-UDrawMenuBardQ= wHanNdxd(d %PS(ub m@Button2_Ci k() aaWipth M@zc.DMofPoir ~fm HourGdcomm@onLeng Sce:=Ref`Edit1 Defaul |! asetStatusA$0HidE` !!lqest6UForm_A3v`#Me.HAP.Caf Initialize O`rror ResuNexD SNP tool(s: +p haplotype!1$9Percenh).Top 9progrf *!h*Left A(HeighmHWid`@= 5Visiˡ;A'Z7JV&1_V_VssSh@*Max V, Target}X2hco,o, .o,); ( HS$j ='`Dimq#ID(C{$D0I iaL, jkl7rowNoqcolZ=rt0+1&srcSheetWorks`, rsto[tr1S;;P= VBA.34, In"!") - 1Whel%w = s(3!"&$3 = Ranget ).Rows.Count 'ѡмS]/ 3 'ʼC@MB) lumn;1pL ).ϨhCokOB;CRe50 ToZ`/),75HcY#pg iP 1F.Cells(,"1 + i) `9\0W0Q(UG8?P p iUWp i / (No.@jsl1 k?M <If6 @k<"" ThenitN taS+ =?  yj)?lϐ 1|If~k&&QX&j!1lj7$ SelecCB?5ol<p% ")).Selec`t ' ion.Copy End Sub PrivateP setStatusBar(Percentage As Single) Dim str.tr2,If h= 0 Then 'clear ayiniBProgress.Visible = FalseM!With ~p&7BorderSty,0,3] "ackColorNRGB(0, 255HeightW. )Widk 5X/ gEP~ t (0-)Tru_Ph NkE9*r.@CaptZounBd * 10_) & "%" U0 GIfDoE:vsFunc$commonLength(Sou@)etchInfo@PublicEl) ' 28.09.2004'@myRanCNew r viLongh, jkEG n0Samp`yInteger, nPComplesto1S"},2g (M!, hapscc)H .Xget$ , " D On Err@yResume Nex$ 'E!,&= colNo / 2 U'5 F i@X1 To d n1 Y0(Y`25C2\1D i#6= BinaryToDeci0mal(A{Rea*Q(*1# @Es( i@" !kdi)$ToC(k@QS fpareHapCFcHi),e1Pi i).Ln > Eg  Me.dHAP.ǔ"` |!d!:O&e !e);MsgBoDx  isj , vbOKOnly@]_E %KS*`4 b@l +)=yellow,[/Vc.srcSheet˄bH(C@@s(.rowrztpY.@ + 3- 1, aKriorxIndex$36  'mar`k the of eachm&ison w10 or= &V`;`%MiAe.TH)d1 @0%/15h!&"5&8(!]&fa6$Upc]7`8QGciimys$Work1RqSlc0SU!*Q1R "gW*&trq .+ 0)jPROD();c`"3/j * 2paVBA.Midy+Q/1)J }4R, c3R` L3cx2a5227WB!jY'tQ2o@r wher@AX0H 0o3momwuBo c0? Bb 0ue(j 1zb:Z! <&SNi0) <>2 + = Go ouHБ%:Uq!s(!!!!p :)"US Ez/Fi = 1 .rowNox@If .rstSheet.C ells(&Start0 + i - 1, .col)M"" Thexit blj2lnSampl !( u$(jAw) * 2'ja`'A@Not !؃Ac j  Ҷ+ 1@ A5 @ai Elsi!>?InfoAP|my%f =N o.A=c"E >=p Min@y!mXarkE,), alastMex iD:]FAeh=FFFH'cCa"F.a+ F FF1Aia !Sub Private Function(myV AsB ing)AB@oolean&D imhLongC@|]Gg`|`})3z6t, i\ueC}ugw@Fa M9 Ej~- __SRP_12^L__SRP_13!bfrmHaploview(nGl__SRP_35(#t! t tt! Qtp p p 8cpt! Qtl^ l $ht! t Hlhl Dt7l l 8 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4  4:$d @/6D4 d cd l45pldx tD4<C<%ByL5wSKƕ]Gw ] -IHjx ] -IHjfCKXwuMESPSSS (>"<LL*LPLLL*L LLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{253E2317-F2E5-42DE-8679-DB4C35187753}{E38AC09E-188B-4BFE-85C6-955DC54777A8}hH! @`(k x`k ~`H |+ ` `o"`x X` `k3 `xk7 `Tk; b`PoC X`HDoT  `8|k ei ii X `k8 ;;iiz X!i`x`t`*p`xl`"h`d``cro \8@%`X  `lk ==iz i`x`t`p`"l`*h`d`` \% h `0k i `x(H@%pH %XX@X%0 %pBtPn@x @h @(X @@H @X8 `@( @ @ @ 0 p X B|P @ x @ h @ X @ H @ 8 @( @ @ @  h |tP@ h @x X @ H @ D @ @ @0 0 @H @`  @ @ @ @ @ @ @ @ @8 @P @x @p @` hP8tr|@x @t @p @l @h @d @` P@x px`%pPL@!@t @d @T 8Phjn@l @\ @X @T P0`T%HH0x x`%vtth||@t @`p @l @\ @X @T @P @L @H h@D (@X 8XPp.|J@H @ 8 @4 @P0 @ @8 @ h` 0%P @ @ hP @ @ 8@0 @H @` @x @ @ |@p @` @P @ @ @80 @h @ @ @ @ @ @ @ @  $h@0 H)@ p0)@ 018 hP`hP8H.Jh@L @< @8 @4 @x$ @ ` 0% @   8@@ X @ @ @ @ @ P@ @ @  @8 @P J@hp @` @P @@ @0 @ @ @ @( @` @ @h @@ h vP @ p@ @ h(  @8 P$@ 8$@x @ @ @t @p +@l + .80 ! `  nj@ @t 0 p `T%P x lH `T% 0 @h d ` T%x  @ T @ D @!4 @$ @ @ 8! H x N'R$*\Rffff*E]52274f40*\R1*#33a*\R0*#15*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#10*icrosoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b48<@DHLPTX\`dhlptx|   X`   b X ` "ba8 "`a ( "  " t(<*6<-6Xv< X Xh "p"Zx " "     " ,(   Xh $p $ $  $ * *" 2(  0  8  $R@  $Rh  &o      T        " (  0  @ P " X  `      $4  " 2 *I ,7P  0  0 *7 (3   8 * @ : p   $ 8 < D@    H ~  $Hh  , 6 62P   h( Z ( r   (R"  (8P`$4h "2*I,7 0  0@  `  p $x 8 <n p $ h  " Z@2e*L     0H ,P 6t 0 $H p h ~` "2e T@      (R08 " @H P p     $       (8 )@ >X  x xPrivate Declare Function FindWindow Lib "user32" Alias' "FindWindowA" (ByVal lpClassName As String, ByVal' lpWindowName As String) As Long APrivate Declare Function GetWindowLong Lib "user32" Alias' "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long) As LongAs LPrivate Declare Function SetWindowLong Lib "user32" Alias' "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long, ByVal dwNewLong As Long) As Long As Private Declare Function SendMessage Lib "user32" Alias' "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long,' ByVal wParam As Integer, ByVal lParam As Long) As Long As TPrivate Declare Function DrawMenuBar Lib "user32" (ByVal' hWnd As Long) As Long As LoPrivate wHandle As LongAsF Image1.Visible = False !P(@o@F TextBox1_Change(PoP]8 -assocCC -check -pedfile "$ |!d"$ -info "$ t!d"$'z#C:\Progra~1\Haploview\Haploview.exe %~ #C:\Progra~1\Haploview\Haploview.exe A@tr#C:\Progra~2\Haploview\Haploview.exe %~ eP#C:\Progra~2\Haploview\Haploview.exe A@dh+Haploview is not found in default folders,  Please run Haploview by yourself PInfoA@k If Shell("java -jar c:\Progra~1\Haploview\Haploview.jar") = 0 Or Shell("java -jar d:\Progra~1\Haploview\Haploview.jar") = 0 Then!2'R MsgBox "Haploview not found, please contact Bowang.", vbOKOnly, "Info"R If Shell("c:\Progra~1" & CmdStr) = 0 Or Shell("c:\Progra~2" & CmdStr) = 0 Theno t!d$r.ped |(d 7oXX !P(@o8 5P(@ 5(@A@h5L( qoSNP tools: convert to Haploview (PA@h   j n!l9l  n!9 n!p9p 99fq8 OptionButton1.Value = True o( , If CheckValidName(Me.RefEdit1.Text) Then$ v9t t!d$hG t!dA@j |!d$hG |!dA@j( | t!d |!dA@ 9tA@h$@ t!d$h |!d$h5(@9fkq End IfoX  A@  A@jo z Gj]xf]]] ]@ z z! %'*Infol *'$'* *$.. z$!0!'%ѡм z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0  %| %.INFOË"   %.map'd .map'*{k info: SNPID,PositionB$H #map: SNPID,Chr,distance(0),position <  J!A@h1the original SNP from Affymetrix chip, all genome6selection includes SNPID,chromosome, location and SNPsp.1   %SNP listed in row 'row 0 is head line   A@h   7     7      7    7      7ls   7Gyj + . snpd`& the original data like Kerstin's one, / fewer high density SNPs around 1 or two genes. c/ selection should include a colomn of sample IDc  " snp listed in colomn If  " A@hx Print #1, .Cells(rowStart0 + 0, colStart0 + i) & vbTab & .Cells(rowStart0 + 1, colStart0 + i) aOct 4, 2007 add a column for affect status before Smaple ID, thus Smaple ID becomes 2nd column     7      7 ! May 11 ,2010, map file for plink      7       7 "Co snp%k`qXV V 0l( !H!J % PinfoA@xopX]] 8]Ph] z z! %'*l *'$'* *$.. z$!0!'%ѡм z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0   J!1the original SNP from Affymetrix chip, all genome6selection includes SNPID,chromosome, location and SNPs  " Osample 'SNP starting from the 3rd col (the 3st cols are SNPID, ch and Location)  " A@h ped id far mor sex disease      7       #SNPT Print #1, vbTab & SNP_AB_Code(.Cells(rowStart0 + i, colStart0 + j));      7$v     7Gyj snp sampled@& the original data like Kerstin's one,/ fewer high density SNPs around 1 or two genes.   Usample 'SNP starting from the 3rd row (the 1st row is SNPID, the 2nd one is Location)   A@h ped id far mor sex disease{ Print #1, j - 1 & vbTab & .Cells(rowStart0 + j, colStart0 + 0) & vbTab & 0 & vbTab & 0 & vbTab & 0 & vbTab & 0; aOct 4, 2007 add a column for affect status before Smaple ID, thus Smaple ID becomes 2nd column      7        7  " #SNP      7$vN If Len(.Cells(rowStart0 + j, colStart0 + i)) = 0 Then Exit For snp samplek q V l !H!J % PinfoA@X oP ] clear and init (f n9f9q  j$@9 n!p9p999fq d  setStatusBar (0) n(f (f j  n!9 d$%9P9fq k A@o$ CommonDialog1.CancelError = True$ CommonDialog2.CancelError = TrueP !P(@oSNP.infoInfo Files (*.info),*.infoSave info file B%~ t(dBoSNP.pedPed Files (*.ped),*.ped Save ped file B%~ |(dAttribute VB_Name = "frmHaploview" Bas0{253E2317-F2E5-42DE-8679-DB4C35187753}{E38AC09E-188B-4BFJ5C6-955DC54777A8} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDO@ption 0licit L'P#' DJ FuncFindWow Lib "user32" AliasT _ "A" (ByVal lpClass!As Sng, lp0) LongV(Get ) )hWndE'nIndexH8D#=%S% %-dwNewBB+ndM@essageQSeF *wMsgU{wParamInteger=0l-UDrawMenuBa>rdQ= wH8andwd(Ad %PSub Comm@Button2_C ik() aaO`krror GoTo out:TextB0ox1.~Ap*pal.SSaveAsFilen(Initi alb:="SNP.info", `terI`"s (*"<),#bY:=1, TitleK f "DMe.Convert.En{Ee"!37!$!2!!ped!P#!a!W!@?!?! RefEdit1_ChangeaB' ()KKHAP@LOVIEW(Dim CmdStvrAfi!A MResuNL#N -ocCC -check -!? " & Chr(34) 2)" -EdZIf Len(VBA.Dir("C:\Progra~1\'.exe")) > 0 ThenCShell b  b$-Ey2| a 1Q @ "v is not fou06in defaullders,vbCrLfQi& "Plerun by yourself 2vbOKOnl>yPBP1(Ifu@ ("java -jTcLew0")L0 OrI d23Q 1, pconta@ct Bowp7./ Bg B-S# $ G@-H <S b4@ Let [6= oseAK_Q) + ".: W(GRY\= L  UForm_A uvmWith Mq1_b FcfLd=Dt.u3 q Rs rizW_QxwAna3QPu tools: 0$/ow4f#m1.`VisibiCJsetStatus ч03BPerc en.Top &prpPЖLeft !Heigh=CXWid@= ? QG19alG8onDog1.CancelE%n2o$`'⇷o@;Cak "id(@vt28 1# -A.MoPoJir fm H}TG7A ;Exists(;! Kik?@;s)p;;s &7 S ce1:z=5,zS2|:=T_YDCj02&os(TextBox2.) Th en .HAPLOVIEW.Enabled = True End If&With '<Sub Private  saveg(Source1 As String, fil2!)y Ginfo KA%ph 2 RQ-S SJIfB"" Orf Go@To outNDim i"Lo|jsrcArowNoc olStar`1.e0_ (#P`Mj=*Au0"P Exit @ ,N`@7'snpq' JUdata@ke Kerstin's one, ' fe wer hB den7y( ar`Pd 1/ twbo-es.-s hould. a%!oJof}mple ID-U- <0 st- W%,`$(,ow0,i$b_,1i\, 'Oct 4, 2007 addC\fPhaff@B K9 be0M,Pus1S%0cCs 2PV?À=04 ??!U\ May 11 ,201P `Aplink_ t #?7 PUZM 7meClose@ .1):Ms>g𸂓r|.Number),OKOnlysypub[p?TgSD,s C cc3',vtrgz+ OOO6b2O OO¥yO OOoO֩O-OtO@4S 0# yq j3C-sa2lk" Zrtg#v3$rdn (stss\r aL4b:mj @ '@<id  fm,sex: `ePS 5_jP2TrowStart0 + 0, colpj) & vbTab0!,0;  For i = 1 To No -'SNP ' 7 Print #1,'_AB_Code(.Cells( i F) UCGT+I`f Len#K0 Then Exit Next'snp  "" j 's ample Elsz' the original data like Kerstin's one,' fewer high density _s around@mrtwo g`enes.Gxj-82x' z sing fro"m&3rd ()1stishID,2@) @Location)A9set@tusBar j8 / AØL 'ped if m3sex diseaN G]j«j 0Ё6'Oct 4, 2007 add aumn f0affeWA bee Sma@ QusAcomes + K*_L1_& )0-zM!M*&EYLi).wO} eIf9E!`WithClose@Goout ErrorHandler:MsgBo@x VBA.($.Number)OKOnly, "info` ASub #%.vat Qub it(Percentage A`} le$uDimrtg -=G¨'clexa iniG>ogress.Vi sible/FaJ# pr !.BorderSty" 0g.a dl BackColx= RGB(@255Ѭ.Het`L WidthHOa0 esV0jW(0H i TruiP D .U(!*CapcRlaI(* 10K"~%X6 t7DoEv-s6P41XT! QTP$XT! T lXP T$XT! T llXP hT$XT! T HlXP DT7P  P cP,( 5PT$K lx x +pt! t l>pl /ltq'pt! t l>pF\ !t5\+pt! t l>pl /lt'pt! t l>pF\ !t5\ot! ta\pX! X llT! T l>lH>pL\`P2PLH)XTt5\x DTpt! t l>pl PX! X l>PL 2lL)tXtx t 8 tcx8(5x0 plPLHtXT\P  ll  ll  $5  "0"0{4 #l MH@8 $ 8`1p58K)""%lp &1p20lpFH%4$ 4 d'l0=(\)40I4' % FH%$ 4a8)00av"ql)406874' % FH%$ 4a8v"llqh45804' % FH%$ 4a8"qd45804' % FH%$ 4a8"q`4587lMH@8 * 8 +: ,]3683JlMH@8 $ 8: -`1X68 -*1X ] lX] l\$84! 4 8458ZxlldWlxllldlxiH%l`i%4 (48ldlxi%l`i%0 (08:.p/ )4068pldlxiH%l`i%4 (48ldlxi%l`i%0 (0ldlxi%l`i%  ( 8:.p:`.P(@0: ./ )40 68pP0CldlxiH%l`i%4 (48(]3458MW xfgxlhdlxlhldiH%l`lxi%4 (48ldi%l`lxi%0 (08:.p/ )4068pldiH%l`lxi%4 (4ldi%l`lxi`%0 (0#.*F8:.p(P:.0/ /)4068pP0 xfuc=={R 044 1li8 2'P'p: 3N 46 8pPl 45Xp\@ 40 8pP0H4 #l ML@< $ <`1h5<Km""%lh &1h24lhFL%8$ 8 d'l4=(\)84I8'$% FL%$ 8a<)44av"qp)846<78'$% FL%$ 8a@F0 " :" !  l>F" x`1x)D6hH0 x*:XNhh #@J/@5hlx*Fh tp5h*:XNhh #@J/@5h]lx*Fh tp5h<' '0:XNHH*#@*Fh /@6hH0 (5xP@DhH0 x`ZClltx! x l>tp #h*#`d! d h2plh`)xd`$5 (tplh`xdT x x 8 xl $5 xh lxtx t 8 ttx t 8 tcTtx t t5Tcx(h(5xtTK:l%,8 <85<tlldltllldiL%l`lti%8 (8lt#.*F<:.(:.p(`P:@.0( :.(4 /86<pP0xlpdqeldlxiL%l`lti%8 (8<` 51.>#*#6 285<GldlxiL%l`lti%8 (8<(]385<gq xf "7 tfXtlpdXltlpldltiL%l`i%8 (8ldlti%l`i%4 (4lt#.*F<:.(:.p(`P:@.0( :.t4 /)846<pP0txlldlAeldltiL%l`lxi%8 (8<` 51.>#*#6 285< xfl "7 tfc=R 088 1li< 2'':$3N 86 < 05h\T84<pP0t t! t tt! Qtp p p 88cpt! Qtl^9 l 8$ht! t Hlhl Dt7l l 88 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4 : 4:$;d @8/6D4 d cd <5l45pldx tD4@L|4px88h    w__SRP_34kfrmSNPHAPY__SRP_19), 0__SRP_18$5`$A5`$5`$5` $5`0A5 ` 1Ia000,5 `y00,5 `y00( 5 `*nrU $\  N'R(*\Rffff*EX52274f3e\0$*\Rffff*EX52274f3e$*\Rffff*E^52274f40*\R1*#33a*\R0*#15*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#e*\R0*#10*\R0*#19*\R0*#13*\R1*#109*\R1*#222*\R1*#109*\R1*#101*\R0*#f*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\R0*#11*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51$*\Rffff*DY52274e18*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5:DuEykxaSoGH\ɿ+E^[MD :++Y ~k@g~X2-JRmxX2-JRmxaSoGH\ɿ+MESPSSS (  >"LL*LPLLLL* LLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<0{5B8F5E45-4DC0-4488-B60C-3A832BA72B59}{E87E0DB3-CEB2-406B-AAD3-677EAAF7ECEC}34%% %BtPhP@x x `hk x(`k `Xk$$`t`p `0xk; `tk ? `kK`t`p `tk ] ``k j bH` @os  `@o   `@k ++iz i`xR(`t`*p .O`l Tru`"h`dp``ick \%  `8 |k ;;iz 0xe.i`x$`t!`*p `Pl`"hB@`d``A@ \$% 8 `P$dkX i x.tiA@i`zA@`t`p l0rd  ``%kx  22 ) .o i.oi`xs: c`tP`p) `>l.Ver h9 FindWindp@%Fram`d  `@*k**<) ( 0   Then Ex  iP tureie, &`x+ `te, &` pj`>lindo p h frm And  @%# ,@ `.kP 00fij p ji  9 @%H)  @%`t+`put1 /lH SNPH0 `\h` dame(`` `p \inNa  X eckV 2)) Then @%` Th`Pj ,H `h1j+ ==) h i & i d = ` 2t`p`n h`2k i !`x!d   %  %"H80@"pTh@"p@H@ (H 8  pHp8@ h @8X @PH @h8 @( @ @ @ @hBtP @(x @h @X @H @8 @( @ @ 0@ h(@hPN@l @X\ @pL @< @, @ @ @ @ @ @ (@ P2@x x`%PRTN2@t pXPhN@l @h @X @0H @H8 @`( @x @ @ @ @ @2x@x @t x`tr|@x @t @p @l @h @d @` x h8XPhjnL@l @\ @X @T PP`d%8@@ h( @x8`% vth|t@h @X @T @P @L @H @D P|hRT@@ PP 8h(.JhH@XL @p< @@8 @4 @ $ @h ` 8% @  @ @ @8 @P @@ (@ @ 0@ "P@ @ ph0" !! "!!h"!.Jh@P!L H@.@h!< .Y4@8!8 @4 @"$ @(# !`8%!!w> @!  !!ud@" ,00"! @ @@" X""@`# @#@",0 HPt@" le@# @" @" 0,@" ta@ @ @ $ P#@"x#! @# al#`#% @# ##%@# ##)@ $#)$#,#.@8$ @| hxXH%%$8%h %@d 8X(@xP(')'&&)&0&)p&H)@b p\H& X&@%xp &0& @&X && @X'T H'& @&D @'4 un@0'$ 0,@* en@) plp'& ><U@' er'X'gro@( 0,'')" @' gn@' />@ ('gr@(( @((@h( (((@ @( nd(h(b(0@( on((lig((((( @) ro)(# @8) ())#P))%"o@`) IIx)8)( @ )`)(`)*" @ @ &P@) @(* @ @  0 P -,0.++*H.`++.P+a@f p`(+ 8+@%nt x++ @+\ +`+ @8,X (,+ @+H @+8 n=@,( ><@. @`. P,+ @`, x,8,(@, ,`,en@h- ,`,kg@, (,,0)@- li0-,opl@ @@- X--@- -@-@- le@ -@--,ct@- ou-- @ .--!op*HP @ @ @x. @. @ @  h  P P 0100`0x00/0/(x/0 /@%is `/x/10/@% //P0`/xL00 8000 @H @0D 0x0@@ X10@(10 @, @@1 @ @ @ x10,0  X2 282h `2xH2 2p22@2l 2X2 @j 22 2h 4p3X4@433X33nj@d@t 3p3`="d%33104l3`(ed%043me@h /id(4`He d%4 + @4T . @p4D ! @44 j% @$ @ * @ ' x3  H p @ 3*\R0*#8*\R0*#14*\R0*#1*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b  (H "X``a)hx "`a* "    (@`6;h 0<   23@ fH H  " 0 H` hp "x "     * " (0 823P  23$(  "(PX `p "x $+2626@ x  ""Z++8;(=8(=` "&  $ $ $   (8Xx"0  8  @  (5H  (5p  P  P      $(     ,(  X ` h x "        $4  " 20 *I@ ,7p  0  0    $ 8 <@  "  A $H     ,( 6X 6  \ (G@   ,R PX" ` h$4 "2*I ,7P 0 0     $ 8 <  $` 8B * "P2hx*O      ,( 6X 6 t@8GX "2e T H `  p  ,R "  68@PX h "     04EH      )   0 8EH * 4 HM P `  p  "    0 H h x $R"    ( 8@4EX         8E0 hNi      "@ X x  $R B  " 08X` p      8P$p,=6L,D &70 &7X &7 *7 *7 *7! ,78!,7h!,7!!! ! !! B """  " 0"@"X"p"x""" "PL" # # (# H0# .x# # # # $ $$ (8$ `$ ,x$ $ $ $ $ % 0% BH% % % 0% % & &  & 28& p& & <& & ' ' $0' X' $p' ' ' B' (  ( " 8(@( H( h(x(  ( ((( ( $( ( (  ((( ( )  )0) )8) >P)  p)x)))) x*x]  *.nam, *.dat]H*.outx]pF !P(@j@o8F !P(@o(]h] SNPHAP.EXE '$$h -nf $ 'kx$$h  $ 'd8$ was not created. PErrorA@Fk  $  $ '  $' Failure running SNPHAP.exe. PInfoA@dX` MsgBox "SNPHAP.exe was run. Check for the outputs when the task ends.", vbOKOnly, "Info"A If FileExists(outName(1)) And FileExists(outName(2)) Then !N(@ ReadResult_Click End If Endk80o( !P(@o 5P(@tivate5R(@jDeac5T(@9N# .OptionButton2.Value = Trueqo]X]p Convert_Click WinSNPHAP $ $'  $' Failure running SNPHAP.exe. PInfoA@d$$h$$h !N(@ ReadResult_ClickkHk@ B@o($$A@$$A@$$A@$$$A@$.trans$_transA@$.trans$_transA@ B@ Endo t!d$r.dat |(d t!d+ |!d+$\$rsnphap_warnings +$$r.out1 +$$r.out2 +oSNP tools: convert SNPHAP (PA@h j n!l9l' n!9  n!p9p99fqH L(8 SNPHAP_Info+% SNPHAP_out1+ SNPHAP_out2+oHv If CheckValidName(Me.RefEdit1.Text) And CheckValidName(inName(1)) And CheckValidName(inName(2)) Then v9t$$hG$A@j$$hG$A@j |!d t!dA@ |!d |!dA@ 9tA@h $$h$$h5R(@5T(@  & .ReadResult.Enabled = Truekq End Ifo z Gj] 8]Ph]] z z! %'*!dl8 *'$'* *$.. z$!0!'%ѡмyj z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0   J!1the original SNP from Affymetrix chip, all genome6selection includes SNPID,chromosome, location and SNPs    #SNP   A@h   7   7Gyj$ snpjd(& the original data like Kerstin's one,/ fewer high density SNPs around 1 or two genes./ selection should include a colomn of sample ID  " #=snp listed in colomn, string from 1st col, the 0 col is blank  " A@h    7?b& vbTab & .Cells(rowStart0 + 1, colStart0 + i) 'SNPHAP doesn't require location snpkXqPV8l0 H!J % P saveSNPNameA@ o  z Gj]Ph]]] z z! %'* lX *'$'* *$.. z$!0!'%ѡм z$! '"(ѡмШ z$!2'"ʼ0 z$!4'%ʼ0   J! 1the original SNP from Affymetrix chip, all genome 6selection includes SNPID,chromosome, location and SNPs  " #sample  " A@h2 Print #1, Cells(rowStart0, colStart0 + j);  !%to start numbering with 1 for samplestusB# For i = 1 To rowNo - 1 'SNPj   'SNP      $$     $Gyj snp sampled( & the original data like Kerstin's one, / fewer high density SNPs around 1 or two genes. / selection should include a colomn of sample ID   #Usample 'SNP starting from the 3rd row (the 1st row is SNPID, the 2nd one is Location)   A@h    7@ sample ID;  " 'SNP      7$N If Len(.Cells(rowStart0 + j, colStart0 + i)) = 0 Then Exit For snp samplekqVl H!J % P saveSNPDataA@`oX0 Dim fileName1 As String, fileName2 As String]]] $' .trans' .trans'   A@   A@o8](@]X] $' '   $! > $! >$'>  Debug.Print longestl    HAP     > $ $ % $ str = SNPName(i) & vbTab- Print #1, i&; SNPName(i) & vbTab;  A@ $! G $!  %j  (  Probability    $!  ^ Cumulative    $!  Vl H!J % PinfoA@xop]p    ] $' 'l   $! > $! >$'>`      $!    > $ $ %   8A@ $! G $!  %$j    Probability    $!  Vl H!J % PinfoA@ho`  Dim outIndex As Integer]  ] ]DP h   ] ]   outIndex = 1  'd)'k ' j$'  $'\  \  ' 8 '  \  $ '  $ '  GFj $  % $( $    % $( $  % $( $! %x $( $! %x $( $! %x $( $! $ $( $! $ $( $! $ $( $! $ $( $! $ $( $! $ $(  'p  'iP@ ]  ]0 '  Probability' Cumulative'dSubject' Probability'k   $  $ G  'j i(BPrivate Function ReadFileToStrings(fileName As String) As String()' Dim n As Long, i As Long, k As Long Dim arrBytes() As Byte Dim nLine As Long Dim myStr() As String On Error GoTo ErrorHandler" Open fileName For Binary As #1 n = LOF(1)& ReDim arrBytes(1 To n) As Byte Get #1, , arrBytes Close #1 nLine = 0 For i = 1 To n)' Debug.Print VBA.Chr(arrBytes(i));< If arrBytes(i) = VBA.ASC(vbLf) Then nLine = nLine + 1 Next i' Debug.Print*' Debug.Print "Number of Line=" & nLine ReDim myStr(nLine) k = 1 For i = 1 To n+ If arrBytes(i) = VBA.ASC(vbLf) Then k = k + 1 Else6 myStr(k) = myStr(k) + VBA.Chr(arrBytes(i)) End If Next i' For i = 1 To nLine' Debug.Print myStr(i) ' Next i ReadFileToStrings = myStr GoTo out ErrorHandler:; MsgBox Error(Err.Number), vbOKOnly, "ReadFileToStrings"out: End FunctionH ] clear and init (f n9f9q j$@9 n!p9p999fqhd` setStatusBar (0) n(f (f j  n!9 d$%9P9fqkA@o,HSNP.namInfo Files (*.nam),*.namSave name file B%~ t(dSNP.datdat Files (*.dat),*.dat Save dat file B%~ t(d8*Attribute VB_Name = "frmSNPHAP" " Bas0{5B8F5E45-4DC0-4488-B60C-3A832BA72B59}{E87E0DB3-CEB2-406B-AAD3-677EAAF7ECEC} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0li cit Dim ink(2) As Sng '*.nam,` *.daoLut shee3PW[ Sub CommandButt on2_CGk(P) OPrror GoTo :Text`Box1.@NApp aA4.GetSaveAsFile@-e(In`itial,:="4", terInf"oBs (B<), Index:=1, Tit,leA A f"-Me.Convert.En]w1End?ACB3BB@uBB?BBvB B@JRetValSDouk#B!cmdgV`Ha .EXE K`z IfE@xists(D`1)) ThenC+ "-nf " +f1d?A;Ifc 2 =) 2% BaMsg@`u@ was@ not cAed.5vbOKOnly, "EaiAj)j@XB1)"JECD5= Shell( , vbNormoFocusD%F0L/"Failure runni@q$:exeydE''aaE G& . Check "f@the!puPts w@ task ends F K>& DMEA"e.ReadResulO ACf : .)> `a@hangeexH ){UserF@_ActivE With M`atpDgV Win?zFd.rj.G>u}z!a ]fM4/vMM" eU#:"& 9&gI &"P}69lN9 9s99?H9Q13(XA33aP)GNxw?9\Hidp*A2 .-@Y&dQ4?To`etC!FT0), '0tQ1g22Wrotc2rFs#,6 K '.transh c@)_A}2\9yM1_C-ML`2ParseqRpfD(y = $'0)`<`}\""snphap_wtarqsu`=r meS 1qb+7.>212_izc&AnN CaSʓ tools: c * s`tatus`Bar 0dPercenP=1.Toppro>g.Left !Heigh=CXWid l=Visi@dfQQdffYBpp_U6V_'5]2?zgM6Z"Pqid!`RefEdit) _71\2VaolidName(in`2)) T@hen On Error Resume NexttWith Me j.MousePointer = fm HourGlass hIf FileExists1 Kill  ; ; ;saveSNPxfEdit1.Ty, BoxData2"DefaulsetStatusBar 0 'And o@HAP.En abledpTrFux Win '.ReadAltE*If$s Sub APrivate  o(Sce As String, f)MD = "" Or  GoTo oubDim i)Lojsr>c rowNo colJ wrt0J G !Aheet Wo8rks"= VBA.LeftaB, In&F"!") - 1!}BHand8lerF Re@place(,P "'""D SG!= SsdDc#= RangeD).Rows.Count 'ѡӀмgC(/ c @$*  'ʼ$k t@ColumnC#Open#HFAOutpub4#~1"e"CdPOptionButton1.Valuel'the original `o from @Affyme`\x chip, aAgenomv' selec! i@ncludebN@PID,chos, loca_b@> Ai0 @b&XG '@Ge~i / (?&d?%x=#1, .Cells/+ i, 1Cp'Len()# t Caۀ{'snpETls( j0dAlike Kerstin's one,' fewhigh de nsity"+ a"r[d 1 : two 6es.)G6should%7 a!o Pof@mple ID'{)E51A5'E5` &l`in, FsR$1stq,0 is blank+aO OowF0H 0) '& _/avbTab &"+ $ #`)m doesn't require.+O gQrt0 + j,0); 'z;=i1k_HvbTab &_ACGDT(Pi))J'%If Len!W0 Then Exit aU@Next i@unfp1""K jEvIf0WithCCCloseiCGoo    !;$5&'()*+,-./01234#6789:<=>?ABDbFGHIJKLMNOPQRSTUVWXYZ[\]^_`aCcdefghijklmnopqrstuvwxyz{|}~ut ErrorHandler:MsgBo@x VBA.B(@.Number), vbOKOnly, "saveaData@)Sub C2vate t@ HAPre@sults(@filename A@tg, N12@BiDim C8A iIntegerG1H 0 ()%@ReadF9ToS8 $j=(& ".transD@2[a2Rot1^!), CD2O2F2 D K7| i9 a8 An!@0L4on>jACnli@Ble myHapc/hah str 7B1r1Afipn, 10c= UBound( *%=` IIf((i).ID) > d,‰,$ \ebu|g.0#O{y {"wzp fA1!Output$#1 (aⰬ+" |"Rj` jaLeftFRiA0et)*E F=a@6/g$i&;&A'1DoEvents_Q1Tgc"jW$=OcfMi+(, i.L ]i "Probability!OW;@i1 hTQXCumulve {☟/a   %za[zzrrzzinfo?z y`\Y`RT\~\s \^t%DH LocA=AMiRB'*,!-@1ProbD2 =/Trim/A6TH. D5 +  *Replac eL*,#g, ""dA" "/!ukAI `Next ir`)Q\ EFunctio Private eo#!IntegerIDstrʲ"ʲ!aiH A-@$= ")abilxityd! CumulativeEJ Subject +!%1 @(o) <> 0 A`6_c B.2^)ãa *iF2 FB' '.C!8DbAC( ?bwAn!kUQ arrBytesc'nAp?O@d0*0dOnp ErrlcH@andlerp(en w ABinarya#'2 n(LOF(a_FtF nR Get #1, cCloseS= 0 $P;'DebuDg.nt kChr(i));ti) ASC(vbLf4#us`jU"sHy"Numb@er of =" & ra"2NA1 P~ Rqs!my1 k+pe? p9i{a n7T-pMsgBojx30(.vbOKOnlypm>@O'se'A1ZASub set0tusBar(PercentagҽSlŬ=Paa5p#HH@/K'0clea OinitWgress.Visib$leFa\With prob@ Q5.BorderSty8ar <BackColPG= RGB(0, 255 q.Height0 D,Wid` BA  0)8 (0H i TrvuH U .;U(!*Ca6pPR10)PH"%| 0(}DoEv-s/0 3'':8N((:XNHH 6H((T@ T@   8 (5p(lhH(@p@T@ p@T@ p@T@ +T@T@8@6p*tT*x 2xt6p*tT*x 2xt $5 xtlZClltx! x l>tp #h*#`d! d h2plh`)xd+tx! x llt8;/tx+tx! x llt8;/tx;Ctt8@ #p*#lT;2tpl=Ctt8@ #p*#lT;2tpl=Ctt8@ #p*#lT;2tpll$5 (tplh`xdTK:l %,XT! QTP$XT! T !lXP !T$XT! T l!lXP h!T$XT! T H!lXP D!T7P ! P !cPc@T! T "T5@#p;$p;%p;<( 5PT@K lx x &8@ T8FhNXX '5X8@ 8FhNXX '5XPT! TaXLP! P l>LDX`H2HD)TP5XPT! TaXLP! P l>LDX`H2HD)TP5Xx &@(8@ 8@ Tx T 8TTx T 8Tcx<(5x$LHDTPX (0(0z4 )l ML@< * <`1p5<K("(+lp ,1p24lpFL%8$ 8 d-l4=.\)84I8'$% FL%$ 8a</44av"ql)846<78'$% FL%$ 8a#*#8 285<JldlxiL%l`lti%8$ X8<(]385< xf# (9 tftlldltllGldltiL%l`i%8 .8<<: 85<xlhdeldltiL%l`lxi%8 .8<` ;17>#*#8 285< xf (9 tfc=R 188 2li< 3'|':$<N 86 <| 05p\8 84<|Pl ^=Ydl *1t *1ptll pll<P@5(h24tpl$   \+bl\h> lhqpxlpdTElM@lxlhAJi$lxlhAJllD ?"ql6D$ xfT=K ] 78 tlpd)@lt#*#7*#8 2 tf (9 xlldElx Jlx .@MD@$ * -$:47: 6$tlpd AltlhAJlx9($lxltlh.AMD@ B-: 6$ 78 tfi (9 xfC7*#8 /tlpd=ltlhA7*#8 / tf (9 D7*#8 /tlpdltlhA7*#8 / tft (9 =R 1 2li$ 3'':4EN 6 $ll l5T\!Gli f(%l`i%h! i 8f(<d 84 $IIT`+fl`h> lhqpKfxlpdXElM@lxlhAJi(lxlhAJllH ?"ql6H( xfXB ] 78 tlpdltlhA7*#8 / tf (9 xlldElx Jlx .@MH@( * -(:87: 6(tlpd AltlhAJlxU((lxltlh.AMH@ B-` F1>#8 26( 78 tf^ (9 xfC7*#8 /tlpdNltlhA7*#8 / tf& (9 =R 1 2li( 3'':8EN 6 (d5L`!i f( 6 $h!i llf( l54 (II 7CT"GCT7CPl ^=YHlHlllHqhlllhqdldX> qplhtlld@ltlllTq`l`ltlllPq\l`l\=l`ltll.,@M0@ * -,`#lplXA/5Ll\l`il`ltll.,@M0@ B-,`#lplXA/6D'l\ltll.,@M0@ B-,`#lplXA/67lplX.,AM0@ H-,`#lplXA/57lplX.,AM0@ H-,`#lplXA/57lplX.,AM0@ H-,`#lplXA/57(7lplXA ,#lplXA/7(7lplXA ,#lplXA/7(7lplXA ,#lplXA/7(lplXA ,#lplXA/7(lplXA ,#lplXA/7(lplXA ,#lplXA/lpqp tf@ Xx>/5px!i f(fcL!= X! i 8f( 2li< l!'| T NP ,II qx *CCtDCp<ICtCCpn cj@kn ltkn lp knqx ndjS/,5tp  t! t !tt! Qtp p !p 8Jcpt! Qtl^K l J$ht! t H!lhl D!t7l !l 8J l !clt! t !tt! t !tt! Qtd)ht! t ! nh7d !t> djD4 L 4:$Md @J/6D4 d !cd Al45pldx tD4     O`$A`$`$`$`$A`$`$`$` $A `, `y00, `y000  ` 0004I `  p004`  p008` a!0&t4 ` A!p&((I`*nrU  Qx3a33YaSNPData2%/__SRP_1b-J __SRP_1aBase :Ek  ( B0 8@BH PXB` hpBx B       ( @ X x      , 0 P *h   ,   .( X p "  "  "  "  "   "      (0" 8 @ P ` p B@xD8*kYPBYgI2Llwȯ1*=h8+3q8 C$nQRx8 C$nQRBYgI2Llwȯ1ME PSS S8"6" <<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}b<@bD@ ,` x+i F,8` x+  i ,` x+x$i ,` z+ (i  ,X` x+8,i `|+03i  `x|+46i  x`0|+X89i  `|+<<i  8 `|+@ ?i    `X|+xD Ci piixi i   `rkXH J)  x %, `(+L Qi   `PxkP U,` tk` TY)   %i  ,0`@xk X\)   %i  ,$``zkp \_i  ,`hzk `bi  ,`pzk0 dei  xP%b4@b8@b(@ @Xx8 0x(8%P P h h `8 xx P 8 X X p h `@ x X @ ` ` x h `H x `  H  h h h `P z  h P  pph `XxpXi`@pX @N@ X@x @t @r 0h `xPR@@Ht @`p @xl X@h @@d @T @D @4 @ $ @8 @ @  @x `(h `z @t H0h `z  Hd @x P0h$ `$z @  @  X8h  `z H ((`@h 8`z PP(|hTxP(PPTh% N'R$*\Rffff*Ea52274f40$*\Rffff*Ea52274f40$*\Rffff*EX52274f3eH "  B (B 08PBX`xBB x]@]@]@]@]@(x 'i8 'i 8 'i 'ip 'iXProperty Get getSNPid() getSNPid = SNPidz!j End PropertyProperty Get getCH() getCH = CH End PropertyProperty Get getLoc() getLoc = Loc End PropertyProperty Get getComp()  getComp = Comp End Property&Property Set SNPid(newSNPid As String)  SNPid = newSNPid' End Property#Property Set letCH(newCH As String)foA@ CH = newCH` End PropertyAP.exe%Property Set letLoc(newLoc As String)k en Loc = newLoc End PropertyileExi'Property Set letComp(newComp As String)n Comp = newComp End Propertylt_CliX 'o` 'oH 'o0x 'o 'o8 ' ' ' ' 'o !' !' !' !' !'oh , , , , 'i[ o   %'i  %'i0  %$'$i  %'iX  %'i0(Attribute VB_Name = "SNPData" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCrezblPre declaIdCExposeTemplat@eDeriv%Customiza EOption 0licit X P"& I@D As Sng Ch Loc Lo omp Boolean!0Geno - FuncEget=id()   N End&  !CHCHChY227= @;?@BCDEFGHIJKLMNOPQRTUVWXY[\]^_`abcdefghijklmnopqrstuvwxyz{|}~0(A`1A0(`5a0(`9y((`=#(A `A90< `EAay900(#, `I3 (  `M0$I `Q4`U3 #4`Y3 #( `]#(I`a#(`e#nrU ,`   //,`   //,`) Q (&(`y \Rffff*DZ52274e18*\R1*#222$*\Rffff*DY52274e18(*\Rffff*DY52274e18\0*\R1*#33a*\R1*#21d*\R1*#29c*\R0*#17*\R1*#9f*\R1*#9e*\R1*#6f*\R1*#109*\R1*#109*\R1*#101*\R1*#fc*\R1*#10d*\R1*#33b*\R0*#19*\R0*#13*\R0*#11*\R0*#1*\R0*#e*\R0*#10*\R0*#f*\R0*#14   (08 B @5HhB p5x B  . ,   ( @  "Px  9#<okexRRMEh @@6 (""8> LPLLLLHP@PL h(@H xPP@D @@@ @ @0 @x @ @ @ @  @ @ @ @ @ !P"#!"(#P#x#@#BHFJ^ns@!h Vi@!d a@h"T 0)@ "P us@L tr@8"H up@"D @"4 @"$ @" @ @ @" @" @# @ @ h#(#H@`HP#!rP# # $h$$`x$h$$@$l $$@h $$$%&&`''&8&h&%'% x%% %%%PX&&@p &@&` 8&X5\P&`%&8&@&X &h&@T x'&p@P p@&L p@H p@'8 p@0'( p@H' p@ p@' p&HP @' @' @' @ p (((`z (((@)p )(@l ()))h ( H ) @*(*p*)*)`z *)p` @` @X*P @@ @< @  (+X `++x+(+@+`z P+(+(+@+` @+\ +x+(@XO (++@H @8 + `  ,@ ,-,-@--X-,/,`z ,,H0-@0` @\ X(-`%p--@-T @-P -X-@L `0-/i@P.H /i@-D /i@.@ wS@.0 de@ . UI@8. r @. ="@h. dt@/ w:@. 6@@/ hl@. eg@. e@. e@p/ t@(/  @/ l@X/ >@ @/ @/ @/p @` \ @0\ @00L @H0H @8 @4 - 1 X  1(1`z 811 20222H21`2h @2h @X @2T @p2P 2H2@@LO @2p2@< @8 @4 p2 x3333`x3344444`x44@@4h @d @T `x 055 @06h 0645`6@55 54@d @T 5x " N'R$*\Rffff*DQ52274e18$* $  3  ( 0 B 8 :@   ).%    ( B 08@HPh x B 0B    D%Xx 8 } 8@HPXB `h8Vp3 B    (8 P `  px ..&   0H  X`x  *9   " @  P X ` 2Rh   "      ? $ &  0 @ H  P 7`  x & >i       ( 0 8 @  H  P X ` &h         ` 2 "  H P X 4R`   B            ( B 0 8  @ X *p 2 $ <@  (H :p > 0 4  "X p$x *2v2v2v02vh2v2v2v HX `hp,Rx B    (B 088H`x B  !   B "  $(n=@    B  0$ 08 @HP X` h" p x X 0 FP,XJp &'  B  6 "8P HX    b VH   B F \X  & " (  $H p   & &  * H ` x . ( " $ 4( 2`      " f8  2  > 48 :p 6 p $ " ( " 6( ` p "   B  ,  B !,!! (!x^^0^H^`p@x    $'i    $'i`x' Returns a string containing the binary & representation of a positive integer.]]! Make sure value is not negative. '$ Construct the binary value.$_  X '  '    Add leading zeros if needed.ot c   '" "  "0$\ ' k 'Ji(3 Returns the decimal equivalent of a binary number.]]]] $'* & * $ & %'( (1G  * &  ' j 'Hi]H'0_ . 0'0 .'. . 0',ih` 2$'bi8] 8 p!'  = sheetName = VBA.Mid(myStr, at1 + 1, Len(myStr) - at1) p  %'k $-6 p  p- p+ p* p/ p# p$    " p"* is not a valid (path) name for SNP tools. 1Please don't use sheet name starting with number, <and don't use space, '#', '+' and '-' in sheet or file name. Please change and try again. PErrorA@'4d'4kiP '6  %'  %|'   $'6k0i(]0H`]x]]l j $:' 8 8V'  ( Debug.Print VBA.Chr(arrBytes(i)); $8 > %<G  'j  Debug.Print ) Debug.Print "Number of Line=" & nLine p8'   $8 > %< ,  '%dP $p $8 % +p!%k  For i = 1 To nLine% Debug.Print myStr(i) , Next i p'l H!J % PReadFileToStringsA@XiP@]]]  @ B%..B H!J F!$FD B!.%L.B @ B(kl BB@H$B@H B@H G:\Chen\Data\SNP\SNPHAP\snp.out1 TEXT; jNA1$P J!L%L .Name = "snp_1"9R9T9V9X9Z ^9\9`9b9d9f9h .TextFilePlatform = 9369j n9l r9p9t9v9x9z9|D9~, .TextFileTrailingMinusNumbers = TrueC@BackgroundQuery:=Falseql H!J % PreadTextFileToSheetA@`oX(]'     B'   'ki] !*Gj]$ Dim rowNo As Long, colNo As Long, Dim rowStart0 As Long, colStart0 As Long Dim srcSheet As Worksheet5 srcStr = VBA.Left(Source, InStr(Source, "!") - 1)l! Set srcSheet = Sheets(srcStr)4 rowNo = Range(Source).Rows.Count 'ѡм7 colNo = Range(Source).Count / rowNo 'ѡм* rowStart0 = Range(Source).row 'ʼ0- colStart0 = Range(Source).Column 'ʼ0 !(   5 $Dim myPed(i + 1) As New PedigreeItem5  5 5%  $(5  5 5%  $(und 1 5  5 5%  $(colomn5  5 5%  $(listed5  5 5%  $(k5  5 5%  $(  5  5 5%  $(lls(ro 1, colq 'Fl H!J % P readPedigreeA@XPiH0 ] '   p $'y k  i  ]h   ,$' p $'i  ]@ ]X '  8!$ p !'y( k  i x ]@ `  8! B@  5   5  5 5%5  5 5%5  5 5%$ f'y@ k8  6seq i x  ocat        'd 'k d 'k i x Q to mark the id in a range with red backcolor if it is missing in the other range* usage format_missing "b2:b101", "g2:g101"? the id in "b2:b101" will red if it does not exist in "g2:g101"$]  $ ! $$ !^(`)red=3, yellow=27k@ mpleo( / to replace a substring in myStr with torepligBowang/DKFZ, Dec 06,2007 g p  $'oni APublic Sub transposeTextFile(inFile As String, outFile As String)'August 16, 2007d 'Bowang Chens SNPI'DKFZne i['to transpose a very big text matrix for Stefan. The maxtrix is too big to fit in MS-Excel. P'we read a externel text file, transpose it and save also to rxternal text file.'usage: 'transposeTextFile< Dim i As Long, j As Long, nline As Long, ncolumn As Longp? Dim myline As String, lines() As String, splits() As StringV' Debug.Print "We assume the separator is ',' otherwise please modify accordingly."0 nline = 0trin Open inFile For Input As #1 Do While Not EOF(1)! Line Input #1, myline nline = nline + 1A@ Loop8 Close #1@ ReDim lines(nline) As String Open inFile For Input As #1 For i = 1 To nline# Line Input #1, lines(i)  Next it Close #1( ncolumn = UBound(Split(myline, ","))P! Open outFile For Output As #2 For j = 0 To ncolumn For i = 1 To nline - splits = Split(lines(i), ","), Print #2, splits(j) & vbTab;; Next i Print #2, "" Next j! Close #2jEnd SubPrivate Sub Command1_Click() ` Create_ShortCut "C:\WINDOWS\NOTEPAD.EXE", "Desktop", "Notepad", "test arg", , WshNormalFocusEnd SubAPrivate Sub Create_ShortCut(ByVal sTargetPath As String, ByVal sShortCutPath As String, ByVal sShortCutName As String,'Optional ByVal sArguments As String, Optional ByVal sWorkPath As String,'Optional ByVal eWinStyle As WshWindowStyle = vbNormalFocus, Optional ByVal iIconNum As Integer)l8' Requires reference to Windows Script Host Object Model- Dim oShell As IWshRuntimeLibrary.WshShell3 Dim oShortCut As IWshRuntimeLibrary.WshShortcut 0 Set oShell = New IWshRuntimeLibrary.WshShellv Set oShortCut = oShell.CreateShortcut(oShell.SpecialFolders(sShortCutPath) &' "\" & sShortCutName & ".lnk") With oShortCut .TargetPath = sTargetPath .Arguments = sArguments Prob! .WorkingDirectory = sWorkPath .WindowStyle = eWinStyle0 .IconLocation = sTargetPath & "," & iIconNum .Save End With Set oShortCut = Nothing Set oShell = NothingEnd Sub !!`'i  !^!`'i Attribute VB_Name = "Base" Option Explicit ' Type stretchInfo Ch A@s LongLengt &Start LEnd  ] Pubv FuncMax(v1/Variant, v2) Do5e0IIf6>,014) lY 5ini%54in5<56DecimalToB@inary(V0aluei, MinimumD igits IntegerzS{' Retu rns aing conta the b4represe@ Yof posi@tive i.C CDim @ ulsAExtra)NeedexD+I' MakAure v;is not negaC= A 0C' Add leadizeros if_@M+C U=- (C4DIf c Then JA#9(n , "0"m!!hIf$Ybekn|n#`To$ (&a"^/C# ]A>di equiJZ "Zc^ numberj+qVidxj tmp#!{CbdsC=5H5For = To 1 Step -1# !=A.Mid)$,, 1 a@"1">v=+ 2 ^ ($-ANex cf3;  f.N.(By8 s'A A. . /@y xxf(%=fwUntilf=v M[ [o SrX(vJ B0; Check idD.myJ)B.8BooD1atu,, sheetp Q= I:n0(0 A!" #'QGF'Q1W++ L2) - P(A.Left(}-/1I@ N EM_ Or -/+/-*/-v//-#.p) /]MsgBox| "/bp" vaqid (path) naПfPHSNP t "s."PvbC0rLf & "P0$se don't u"csAmwithDWn,apace, '#'@+' '-') ` fuA o uAd changetry ag ."bOKOnly,ErrorE48Fal:sĥETrup (;icǭjP;umS7(2V8R^v-/VB2D"'" A RightG˂/d2,n<2<9n0adFTo#Hs(kI(LN!VLikbOrrByptes(nling4s #SOn 2$ Go{H+lerpen f 3d #8~NLOF(|Re 1 N| (Get #1T, a Clo :VCCm"0DebuPg.Pr "Chr((i))~;&Asc(vbLf)?3Es_ igD "dLP=EnB!k "_ 4[ 1k> a B k)+2  vi ERFileToStrings = DmyX GoTo out ErrorHa@ndler:pMsgBox VBA.:( .Number), vbOKOnly,@ "Read " End Function Public@ Sub r2Text6heet(fName As , s )Dim OutputS0Work,!roBw9Long$t6r#s  On y ResuHFNU Set ==P Appjaq.Gs(DUIf% <> 0 TmmaleSp@R t<@'AWArray|} 5TrailMinusGc, >'Backgrd{:=5ӿ "P\ ! `itrIndex(sǂ2, iuL`)aiaE, at= DX i!Z b CA[In(at"( x> 1l͑+yaCo.|6Pedigree(sr+a!sb0InfoEItem( my("New i v.src"" '" j,|No8kG0+ 34 Left(Souprce,'"!") -@v zeQ= R<3= q )ms 'ѡФm / C 'Рc `n) hReC%/o # No'7xo .a'i P3O+-C.FamilyIqB,A!.a0i, .u0 PIividpkID0/ow/trt 1/R ther  lf2Mo 3Ge Vuo`4AffcP tuAn__T5_SLiabbpptyC0Os6(of6D!W i3$WpV s%POOrrO@ 7q^/rnJOf(BAQKmyR2CBoo5q In$P9UB0bǃQ(i)?pw @{6Exit  p5q3, 7vr# 5 St#, ",") InStringOf = InArrayOf(myX, my@End Function Public$AtRanget As 4$)BooleaJDim i0LongmyCell7 InFalseFor Each:In ).s%rIf Pz3.Value TheJ15Tru4Ex8it ;,IfNext sSegCorss(Chr1,art%ymymsNew selectInfo,\ .getSh4ee @.Address6With C ^iS0 To .rowNo - 1Rf I:: 8, 6, .s,rcBl(St!A + icoRl0) 1 2l)) 0s@;q iE@< QMNNt2 `ϦGdQ= cÀB11 >=U <=A:2 Oy@rndW1 En,E~p KhA er ySub format_miss`(bt ,e-#h' ' to mark the id in a r wkred back^ if qis o ra usageL "b2:b101", "g2:gA&@Adoes not exist(+ac/b@"# AaHN F(ñ'c3rInterior.Colo@rIndex@3 '=3, yow=27);  Csubsg+B?toa BowB/DKFZ, Dec 06,200 R@@ CA@.'hS0,tp'@sposeT@kFile(inay out+0''Augu!16, 9C '' PCt''; ` 'Pfpvery big t7 00x+Defan.X`xrp/tooo f0n MS-Ex.we readernelf @ A4asavlsoQ8rx$na"4: @+/i1Xjnlinec@r_Op@LArg@nt¿SPTng, MWork eWiylMdowtSt=>iIconNumB1zger ' `RequiŠ[ferenqPb0cript HoObj Model">oSI` RuntimeLibrary.T /3#cuۢ;Set T= 1_$=.s("(C.Specia$lders(~s%Qq41"\"5&R & ".lnk! W.H'$= sTargetPath ' .Arguments 0tWorkingDirectoryH& Windo@wStyle & ",""i#Num2Save End WiSet oShortCutMpNoth,e ll CSub Publi@c FuncGTheColorOfCFont(addr As @Range)Long 4..%Indpex :3 __SRP_14b__SRP_15 h frmHotspotsC=K__SRP_3f` >qxPlxqp tfh`$5 (pH <Flp0/p"#K"`H Fl`tG@ \$l`\ Fl`dTv`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H G)LH5v`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H (G)LH5v`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H 0G)LH5v`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H 8G)LH5v`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H @G)LH5v`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H HG)LH5v`\ ,Fl`lli8%P\ 4FlPi%HL\ DFL 'H"lllt@$H PG)LH5 lfTvc\ tx#R` LL l`i '':(IN L6 (@5(x!'|\tPd,pLH|LpztdlI lt0=pzI tfl  L$5 P8:`JNPP@ K@6 Y<p6P@pl Lpz: e @P05p ,P@hpz!Ha`M[\p5`XMc FH]pa`35`TpzXc pXM* Dh05\Xp`8"Ha``\t$N PF/\5` tVNX$pTX FlTdLTX ,FlTlpi0%HX 4FlHi%@DX DFD '@`X ,Fllpi%X 4Fli%X DF 'LX ,Fllpi%X 4Flip%X DF '8"Y4L"YH`"Y\lll O) D@6`L8pz pfLTcXH,`5Xt4 \D@`L8=X J$ Ā <pzEpzSpzX$5 ,T'X% Fh%"$# $QT[PxLMJxa<T'X%Fh%"$# $QT44<`8 P/845<'(h%xa<QTT,aT5< xLM. , H05PLx8T4<\(" R1x((5x p4,H ahSddaTa"qxd6hT((4$5 dhTp4,H ahQddaTa"qxd6hT((4$5 dhTrU~| T+_ |yi*!+y. 4]y|||||ycq| }&}~ )v]Aр!Y% xYp pgvA;9qw a1aYY iIA9 B Q ca 9wx<5ll  dTpD44$ $Btt64$ X<$5 D4$x<5ll  dTcD44$ $Btt64$ X<$5 D4$  #llt*1t/l    ltJpr kr3:\NLLkr<  fT%lC?fT%lC@ cT%lCA`(TlR($lR(lR4 BZ4lCC54 lD qRL hh lLi4 '':$EN h6 4 45plxB hdPHD4i ` qptdh\lp      0(!` (I` &(q` (` 0,`aP0, `a000 `  ! 00(49 `9 S B3 0a ` Y 0p, ` q 000`  0=Y<`    (((=Y@`     ) ((((((,)`A Y 000Q` q  000,y` =Y,` =Y1Un*\R0*#f*\R0*#14*\R0*#15*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windotk>kԽ\XsENnZP+ֆLG u1JcˋNG(BM Cr!YJxBM Cr!YJXsENnZP+MEh@SPSSS" (>"*LPLLLLL*L@  `hpx V  $ \ ,x  0 "  0@P` p$4x$422 *I,7  0H  0h  0  0  7 7  7 0 8 (P    < LP    (- <O     >S  (S0  (QX    <S  (S  (Q    082 @ x >   B  .h * 2 2 T8 : 0   8( 8` ( (  : >0 0p 4 0 4 @ H :` 6 <  60 6h 6 8  ( 0 >P N   6 P :X : : < X L`  R >( @h  P > @X    4 ( H "h  "  \ H h x     xPrivate Declare Function FindWindow Lib "user32" Alias' "FindWindowA" (ByVal lpClassName As String, ByVal' lpWindowName As String) As Long APrivate Declare Function GetWindowLong Lib "user32" Alias' "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long) As LongAs LPrivate Declare Function SetWindowLong Lib "user32" Alias' "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long, ByVal dwNewLong As Long) As Long As Private Declare Function SendMessage Lib "user32" Alias' "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long,' ByVal wParam As Integer, ByVal lParam As Long) As Long As TPrivate Declare Function DrawMenuBar Lib "user32" (ByVal' hWnd As Long) As Long As LoPrivate wHandle As LongAsSNP tools: hotspot (P⫬A@h j n!l9l(j n!9B@v n!p9p!j99fqox@! CommandButton2.Enabled = True v9t |z ~A@! 9tA@hn!pC@qo"Private Sub CommandButton2_Click()! CommandButton1.Enabled = True" CommandButton2.Enabled = FalseEnd Subie] clear and init (fHaplov n9f9q j$@9ov n!p9p999fqXdP setStatusBar (0)  n(fPlease (fview b j  n!9 d$%9P9fqkA@oPThis macro finds the break point from one region to other on the same chromosomeheusage:R 1. run the macro FindHotspot()d, pU2. select the data area includeing 4 columns: SNP_ID, Ch, Loction and comparisonValueell(&3. tell the macro where to put result. 4. click RUN.ped)Bowang Chen, DKFZ, 29.07.2004, 09.08.2004]x](](]0H]`x]P ] t z z! %'*A@h ~ ~! %',! *$.. ,$.. z$!0!'%ѡмlue = z$! '"(ѡм( z$!2'"ʼ0 z$!4'%ʼ0 ~$!2'$"ʼ1 ~$!4'&%ʼ1 SNP ID $ & ;(Ch $ & ;dLocation $ & ;q8 With srcSheet'   %   %   %   %$B@ End With'   6 If Not frmHotspots.CommandButton2.Enabled ThenInfoF MsgBox "User stoped.", vbInformation + vbOKOnly, "Hotspot"ѡ Exit For!  End If   A@h  -    %    %    %    %$B@'$$%$$%$H new point foundma $! $  & ;Ethe start pointth$! $  & ;$! $  & ;  'at$! $  & ;E the end pointrow $! $  & ;$! $  & ;  ' q8k0$$B@#store rurrent SNP 7    G  'j B@H  $ &$ $   & $ %B@H Selection.CopyoX;Public Sub FindHotspot1(Source As String, Target As String)und 1 ' Dim i As Long, j As Long, k As Longe $ Dim rowNo As Long, colNo As Long , Dim rowStart0 As Long, colStart0 As LongA@h, Dim rowStart1 As Long, colStart1 As Longt0 + 0N Dim SNP(2) As String, CH(2) As String, Loc(2) As String, Comp(2) As StringaOc4 Dim srcSheet As Worksheet, rstSheet As Worksheet thus * Dim srcStr As String, rstStr As String On Error Resume Next 1 srcStr = Left(Source, InStr(Source, "!") - 1)1 rstStr = Left(Target, InStr(Target, "!") - 1)! Set srcSheet = Sheets(srcStr)! Set rstSheet = Sheets(rstStr)4 rowNo = Range(Source).Rows.Count 'ѡмV7 colNo = Range(Source).Count / rowNo 'ѡм* rowStart0 = Range(Source).row 'ʼ0- colStart0 = Range(Source).Column 'ʼ0* rowStart1 = Range(Target).row 'ʼ1- colStart1 = Range(Target).Column 'ʼ1 With rstSheet3 .Cells(rowStart1, colStart1 + 0) = "SNP ID"/ .Cells(rowStart1, colStart1 + 1) = "Ch"5 .Cells(rowStart1, colStart1 + 2) = "Location" End With0 SNP(1) = Cells(rowStart0, colStart0 + 0)/ CH(1) = Cells(rowStart0, colStart0 + 1)0 Loc(1) = Cells(rowStart0, colStart0 + 2)1 Comp(1) = Cells(rowStart0, colStart0 + 3) k = 1 For i = 1 To rowNo - 17' If Not frmHotspots.CommandButton2.Enabled ThenG' MsgBox "User stoped.", vbInformation + vbOKOnly, "Hotspot"' Exit For' End If0 frmHotspots.setStatusBar i / (rowNo - 1)4 SNP(2) = Cells(rowStart0 + i, colStart0 + 0)3 CH(2) = Cells(rowStart0 + i, colStart0 + 1)4 Loc(2) = Cells(rowStart0 + i, colStart0 + 2)5 Comp(2) = Cells(rowStart0 + i, colStart0 + 3)E If Comp(1) <> Comp(2) And CH(1) = CH(2) Then 'new point found With rstSheetK .Cells(rowStart1 + k, colStart1 + 0) = SNP(1) 'the start point8 .Cells(rowStart1 + k, colStart1 + 1) = CH(1)9 .Cells(rowStart1 + k, colStart1 + 2) = Loc(1) k = k + 1I .Cells(rowStart1 + k, colStart1 + 0) = SNP(2) 'the end point8 .Cells(rowStart1 + k, colStart1 + 1) = CH(2)9 .Cells(rowStart1 + k, colStart1 + 2) = Loc(2) k = k + 2 End With End If- SNP(1) = SNP(2) 'store rurrent SNP CH(1) = CH(2) Loc(1) = Loc(2) Comp(1) = Comp(2) Next i If k > 1 Then k = k - 1 rstSheet.SelectV Range(Cells(rowStart1, colStart1), Cells(rowStart1 + k - 1, colStart1 + 2)).Select' Selection.CopyEnd SubH  Attribute VB_Name = "frm Hotsp" " Bas0{86D6A818-929C-474C-98CB-FC09D175D131}{1986154A-CB63-4E8B-AE1F-8D1E824728E8} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit '&P#' DJ FuncFindWow Lib "user32" Alias *_ "A" (ByVal lpClassAs Sng,f lp0) LongV(Get ) a)hWndE'nIndexH8D#%S% %-dwN ewBB+ndMe ssageQSeF *wMsgU{wParamInteger0l-UDrawMenuBardQ= wHaMsgBox "User stoped.", vbInfor@mationvbOKOnly, "2" $Exit U 8If3@|otusBa4/ Av3DE$ 2@+i'''E@{({ADEqual{p(CK)) AJH'ne@w poino8undG_ABrstL1]k]0)Vget id 'the_ My+ 1 CH2 Loc+pk(q V e2,  02+yD;From& A ' re rurre K Next icAYk > 1R .-eN.Sel ecdžRange(1&Sk+2)) © C@ py ASPub #'P@ublic  Find1(Source As String,p Tar@'DLimLoj!CkE!# IK1EF:@ CH(=J,RIIUPWorkrs!, jlt~ruO n ErrsResume '@= Left0, In@"!")#U45=SetPAs(u171$ c = /&@).Rows*u06'ѡмd"mC^t /Ԅ# 'ʼ.0g0) lumn1 #).WB9)Co|kb?\t9CBk".x ID=iKDZ" ?V*Rda '=Q3?= /H@7ۼ+?tq~=ѵȦ  ϥ * oo+ ' k = k@ + 2 End WithX HIf SNP( 1)2) 'store rurrent * ^LCH\2) Loc Comp9 Next$ iHIf> 1 Then - 1rstSheet.Select Range(Cells(rowStart@1, col), k +9)),3ion.Copy7Sub  __SRP_3e rangeInfolL__SRP_e*O$~__SRP_fd:rU ?`$?`$A?`(?`*,?`)00nrU   y. 4Yp pgvA;Y%QlYayl a@\a a /MYw 'a7qPK> l Ml@\  \`#XT/X5\>lMl@\  \`#XX/X5\>PTFl%T$ T dlP=[L4)TPL$H TT lHT4PT$ T @ lP=[L4)TPL>PXFl%T$ T dlP=[L8)TPL$H TT lHT4PT$ T @ lP=[L8)TPLLT'8% Fl%$ Ta\ PPa(v"<)TP6\(=T'8% Fl%$ Ta\v"<@T5\3T'8% Fl%$ Ta\"DT5\3T'8% Fl%$ Ta\"HT5\3T'8%Fl%$ Ta\"LT5\3T'8%Fl%$ Ta\"PT5\ T$5 $XTPL\(4 8 < @ D H L P T XarU h,`u)00 @A4 a@(A8@4<@<@@DD@LH9@TLY@\Py@dT @lXnrU 9 c9]`|!+Y1aYa` a@Xa a  / i     7 q    ! ? y   7 w (8:hNXX H H6 YDx6XHlxrU >p I vzza{zamy. 4Yp pgvA;1Q  YD 4A6Q78A6Q7<A6Q9@A6Q17DA6Qi6 H :1:`I?L9)9P99TQ7y7` ?e?W???K:l%,XT! QTP$XT! T lXP T$XT! T llXP hT$XT! T HlXP DT7P  P cP,( 5PT lx x Qt! ta`p! paL`H``\2\H)tp6`Lx D xcx8(5x$\Htp`L t! t tt! Qtp p p 8cpt! Qtl^ l $ht! t Hlhl Dt7l l 8 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4  4:$d @/6D4 d cd l45pldx tD4Z K4  l M@ `1$54 lM@ `1 52l$F% $  dl=,)2l F% $  dl=()I'% F% $ aav"qD)67'% F% $ av"lDq@50'% F% $ a"q<50'% F% $ a"q850'%F% $ a"q450'%F% $ a"q05 l(7l4i%l0i%:% 7l4i%l0i%:% 7l4i%l0i%:% clF% 5Sl4lHi%l0i%d@$ >F% 5Ql4lHi%l0i%d@$ $li% lHqHSl4lHi%l0i%d@$ >F% 5Sl4lHi%l0i%d@$ >F% 5Ql4lHi%l0i%d@$ $li% lHqHc d@d@$ H Pf lHlHqH '%( l4i%l0i% $ Xl4lHi%l0i% $ Xp( p)p6 h5P$ (,d IV RB8 p,-TH@Affy_anno_gene4__SRP_cAt__SRP_dSfrmTransposeTextFile*.False dCre atablPr@edeclaIdCExposeTemplateDerivCustomiz EOption 0licit 'Bowang ChenJune 18, 2008to de$fi a Zss foe the mex ta,of Values s a list  s whichA"SNP issociid 8 (separby ///). 'for ea2Transcript access7// e- reKsHhip d"ano(v( 0 if within$ ) Uni"G@ ClRer IDAna"symbolNCBI pBank@O' ? TM_ DGDD_cwDDOAG_BGH_H_HDL_deEFL O tagPb0riefub setGse#>CC") Dim Bs() cvSplit , "//"H If UBounds)6!@l Me.r7=A@im(0) D91f<2>=$3/'@o 4p BO5P1E/6-D= .&6" &n)h&GE0Q`a>Eb¥Nu mb fielpds =aDG E nd If !Sub @<  !8@H, P !8@3lx.@@Mh@X -@X< /<5X3lx.@@Mh@X -@X< (/<5X3lx.@@Mh@X -@X< 0/<5Xlx 83lx.@@Mh@X -@X< @/<5X3lx.@@Mh@X -@X< H/<5X3lx.@@Mh@X -@X< P/<5XZ< <l<*#48 $l8*#0*#(, ,l,*#$T2<480(,$  X!$lx#<*#8 X2<8X(05  k@Sd8Z@ʅe*=h8+3qeTШNz axeTШNz a8Z@ʅeME8 SS S0(>"LLPLL<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}%   % %jPDD@j$LT@j&xP\@j,Xl @  `(o@t iz `i~%*4@*8(8@j(<4@j"@@<@jhHL@j*Td@@h(PxveCo@(pX@4p  !8@Dp  !8@PLx B@X@ ( @`0*,.HB@Hl @`\ @X @T @P @L @H p"$&@8 @( x hx0 N'R*\R1*#33a$*\Rffff*DV52274e18*\R1*#222*\R1*#fc*\R0*#19*\R0*#13*\R1*#109*\R1*#101*\R1*#10d*\R1*#33b*\R0*#f\ ! (08@HP " X &x$>$>>"X>0"X@ *Lh,= 3 3 3 3(  "Hp x] ] ] ] (] @] P] h] ] x] >As stretchInfo Dim myRange As New rangeInfoX z z! %'* ~ ~! %', *$.. H!JG B!J.j ,$.. H!JG B!J.j  z$!0!'%ѡм z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0 ~$!2'$"ʼ1 ~$!4'&%ʼ1 getstretchInfo = myRange$oAttribute VB_Name = "rangeInfo" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz EOption 0lici@t Pub srcSheet As WorkFsrstowNoLongcol rowStart0 1O3tr >S@%2 F,Sub getstretch(Sour@zE, Tar) '@ ' Dim myR! New F AObrror ResuNex@dA/= VBA .LeftD", In@"F"!") - 1)7 + E S}Ad= zs( DIf Err.Number <> 0 Then (App@a.ActC' A(?,D!R= /%).Rows.Count 'ѡмУVs/ Q@Z ;eT0 zK  'ʼ0 C$] lumnE 1F 8).H 1K oCoI $U^ V End SubaZx` ,4 @<840,($XH 4 8 < @ D H L P Tl A8rU d(a `e0 9 @4q @$8 @,< @4@ @<D @DH1@LLa@TPq@\Tn0 X@$rU x!Yp pgi1pQEQa v]xَ c1i|x!+x  Zi4Q7Yy7009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b 48<@DHLPTX\t " 8 k`^[Owr}T*=h8+3qۡa|AmކE-=xۡa|AmކE-=^[Owr}TMEPSS S>"<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}j<,@jPD<@jHD@j@PT@ % `$kdi ,$ xhj Pp%j4@j8$@j(@4@jxLL@jT\@Px@(@<  !8@H, P !8@\ h8XPx@h x@X @H @D @@ pX@8 x@(< Ph@(xX@0P A8@p8xX@@0  A8@0Hh @P0 x0 X@$0  @@8 @X4 @p0 @, @( @$ @ p@pdh,h N'R$*\Rffff*DU52274e18*\R0*#fX!   >8 lx ( " 088@X 3h 3 3  3 3 3  0Z@ p ($ x Bowang Chen % June 18, 20087to define a class foe the Affymetrix annotation of genefValues are a list of genes which the SNP is associated to (separated by ///). Values for each gene are Transcript accession // SNP-gene relationship // distance (value 0 if within the gene) // UniGene Cluster ID // gene name or symbol // NCBI Gene ID // GenBank description? The SNP could be within the gene region or be upstream or downstream of the genes.nt] ] ] ] ] (] P] ] x] @]8 //$' $ %x (sp.v$ %x (0$ %x (.ver$ (mestam$ %x (0$ %x (01$ %x (  !/ !/ !' ("bdXNumber of fields =  (k(o Attribute VB_Name = "Affy_anno_g@ene" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBlSpac0t'kd襦zDh/Cm <8E1vd.<$+tJz? x;W(nӿ"%I=\xnӿ"%I=\襦zDh/CME@SPSSS>"` kp//Ei r(iiB@i`x,5`tB@`p5`l `h pd! ! ` t!d0(%X0 %0@@%f%p@Bt@Xx @h @X @H @(8 @( @ @ @ @X(Bt` @x @ph @X @H @8 @( @ @ (@ P @x  x `% P P @t ` P@ l @\ X `% @T @8 D @4 8  vtPt|@h p @` @P \ @ X @T >@ P @L   h`h x h @t x 8hP`(B (,@\ @8X @H @8 @84 P@x0 8@, @( x@$ 8@  ("@ P"@h $@ foA@@ P@  0@ As @ h@ $*aOc'sr)*00h ` N'R$*\Rffff*El5227500c*\R0*#f*\R0*#11*\R0*#e*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006`a $h "(0da  $8` "@HX "` h p "2  --- -0-@-X p"77  ,Q ( 8 HXB `h p    "     `0 V  0 \H  "$8    ( 0/@ X x  1      (8 BoP ,     "0 @P xF0o(@F !P(@o( 5P(@,qo%SNP tools: transpose an external file (P ,5B@TAB5B@ne 1{space}5B@5(,5B@TAB5B@{space}5B@5( qo@] !!$' !!$' v (t P(@ t!d |!d  A@>?",", "," P(@p  (t B@o ,KT,'{space}KT 'TABKT 'S` 'nPiH0August 16-24, 2007 Bowang ChenDKFZZto transpose a very big text matrix for Stefan. The maxtrix is too big to fit in MS-Excel.Owe read a externel text file, transpose it and save also to rxternal text file.usage:transposeTextFile] 8]PhU Debug.Print "We assume the separator is ',' otherwise please modify accordingly."1' B(Reading ... B(  $ b 2  'V%  $'        $'   $  +  V   ) Writing :   /   B(    $8  $   G j8vbTab; !%  B(1 To nV oo Me.Convert.Enabled = True Me.Convert.Enabled = True SNP.txttext Files (*.txt),*.txt Save txt file B%~ t(d SNP_trans.txttext Files (*.txt),*. Save txt file B%~ t(d@նAttribute VB_Name = "frmTransposeTextFile" Bas0{CA93206D-FE3C-4538-9031-76A564C5D12E}{EAF824@2BE1-4A74-B67A-3F0B783B5728} dGlobalSpacAoFalse CreatablPredeclaIdTru BExu0TemplateDeriveCustomizDOption 0licit P"& Sub CommandBut@ton2_Ck() Orror GoTo out: `Box1.gAppa3.GetSaveAsn(Initi al:="SNP.txt",F  tertC@zBs (*), Index:=1, TiXtleA  fA-'-Me.Convert.*.(in*f-Delimi$-Ux-lAug| 16-24, 2007@ 'Bow@X ChenDKFRZ`to)J poy big tma3x fP|St@ n. The mdaxrisQNo0Mt in MS-Excel.we Ѝd aO,elsw,xitqQd sy o rxRusage'nKca?ia&Lo?jAnlinec`olumnmyeCs(+ btPseparatAp',' oPrDwiple.modify accordingly.t+ = Y9DisyStatusBar1ӊ"Rea0 " &@&& "..Openpw Input#1o Wh Not EpOF(1R1L!#pI! s+ LoopCl n= UBound(St(0P2f)CRe!1 0", 03HC ipW 1op+t%0 S?!j i, jf)3(jA ji3"JqOutE2# m`G5)+"Wr@ng)e):j @"P+"/+ #?Csc:#2, ;' If i _> hdFyag !    # "M$G%&'()*+,-H/@123456789:;<=>?.ABCDEFsIJKLNOtQ^STUVWXYZ[\]P_`abcdefghijklmnopruvyz{|}~__SRP_1d6Z__SRP_1cPedigreeItemX %__SRP_420`` 8A6Qy: < :<` @[a [D9Y: H :<`IL[a [P9Q=`TA6Q<XA6Q!= \ :9=`IgWWlKha '(%:8%(H%:X%:h%x$ x |!  h/)x5ll$5 xlKha '(%:8%(H%:X%:h%x$ x |!  h/)x5ll$5 xT x x 8 x $5 xh0 lxtx t 8 tcx0(5xt|K:l %, lX-'4:l NDDTX T  T6D4-'4:l NDDTX T  T6D4-'4:lNDDTX T  T6D4 (DTX T  T5D-'4:l NDDTX T  T6D4-'4:l NDDTX T  T6D4-'4:lNDDTX T  T6D4 (DTX T  T5DcX6H|( 5XTD4t 7X`p p  ``\>X1x/\p5`7X`p p  ``\>X1t/\p5`  p! p 8 pQ\p! p lXT! T ltx>XL>\P2PL)pTp! p 8 p  40 ,5xt(\XPLpT`h-Z Ct lt 0$ Cx^ lt0<Cx^ lt 0TCx^ Cx/ h,5xt  qp" \$ \ \8 *#X*FH% \$ \ /X\5H ]   hlpqps=/lM8@lhH H5Iql5Hlplld ]xlpd0 h1lM8@lhH H6 Y,`5Htlld$ltl`lxltld tf$] xf0= ]tlldo*#X*#lt#*#*# ll#*FH% \$ \ 2 X \5Hxlpdnlxltld lxlpd  xf2  tf" \$ \ \=|<5$`7dh,X \H<HP44\ rU h$`$A`$`$`$` $A`,` 008`    0000nrU C9xaYa9 a@Pa a B/BiBBBBB7BqBBBB!B?BBx-t lt#p*#hl $ll#d*#`*#X\ ,l\#T*#P*#HL 4lL#D*#@*#8< <l<#4*#0*#(, Dl,#$*# *# Ll#*1x2$phd`XTPHD@840($ / h(5xTphd`XTPHD@840($  4 8 < @ D H L rU B\(iB`U0@4@$8 @,<)__SRP_43/EselectInfo__SRP_6JW__SRP_72@4@I@<Da@DH@LLn0H kzdTѣ;_A-NWx*=h8+3qN;>kLO,l|xN;>kLO,l|ѣ;_A-NWxME8 SS S0(>"LLPLL<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}jx<,@j*PD<@*HD@%X % `(oP iz  %jP4@j"8$@j(@4@PPx((x@88 @,  !8@4x X@XD  !"8@$  h*.HB@8l @P\ @X @T @P @L @H @8 @( x"x(PXT  N'R*\R1*#33a$*\Rffff*DQ52274e18*\R1*#222*\R1*#fc*\R0*#19*\R0*#| 8 kKVXOCkL>*=h8+3q0)Z9H>[x0)Z9H>[OCkL>MEPSS S>"<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} j<,@jPD<@jHD@ %,`+T i 0%j`4@j8$@j(@4@jLL@P8`(.a@P$X 8@(Mous A8@0 A8@p8 A8@@ A8@0H A8@Ph0hh `PxhPHX@ @t P@p X@$ @hl @h @d @` 0X@H, @(\ @X @T X@@P X@4 @L @XH @pD @ @ H X@< @ < @ 8 @0 4 @ 0  X@ D @h , @ ( @ $ @  X@H L @ @  @ H8x\X$  N'R$*\Rffff*DZ52274e18*\R0*#eP    (08 B@8Hx] 8] `] ] ] (] P]  & !  !  !  !  !  !  !'i0(Attribute VB_Name = "PedigreeItem" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacFalse dCreatablPredeclaIdCExposeTemplate DerivCu@stomiz EO@ption 0licit Pub FamilyIAs Long IndividualID Father  Mo Gender$AffecMStatusLiabilit`yClas/uBn ToSng() GE@]Me.<& vbTab & _ @ D H L P  T End FP 13*\R1*#109*\R1*#101*\R1*#10d*\R1*#33b*\R0*#fL  (H`x " $>>"X L=03H3`x x] (ѡм] Pѡм0] ʼP] xʼa] (] P H z z! %'* *$.. H!JG B!J.j z$!0!'se z$! '" z$!2' z$!4'sBar 0ox'Attribute VB_Name = "selectInfo"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EOption 0licit Pub rowNo As Long 'ѡмцcol% Start'ʼ # srcXStriHEheeWorks' 7Sub ge tSA(Sourp;) OFrror ResuNexHA$= VBA .Left, InF"!") - 1S'*d=  s(If Err.Number <> 0 Then (Appiao.A|ct@~-Cp=@ RangeD$).Rows.Co l Ml@\  \`#XD/X5\>PDFl%T$ T dlP=[LH)TPL$H TT lHT4PT$ T @ lP=[LH)TPLLT'8% Fl%$ Ta\ PPa(v"4)TP6\(=T'8% Fl%$ Ta\v"48T5\3T'8% Fl%$ Ta\"<T5\3T'8% Fl%$ Ta\"@T5\T$5 $XTPL\( 4 8 < @ DH rU X(1`Q0@4      !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|}~@$8@,<@4@y@<D @DAHn,8" kgDN1_Fg_R#*=h8+3qZt@Gd'L gxZt@Gd'L gN1_Fg_R#ME statusBarControler&R+__SRP_1eC__SRP_1f59RSNPLOH00PSS S 8>"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}h% % %8 % ``Hk )j   %)n! % h`pk i 0)jPX %)nx %`x%"4@"88@@X0 H@l @\ %X`00@H X0@0pt(`p#  %# 8$ @Xd $ @HT % P`$  %p# # @# $ # @@ h# <`0#  %# X&# @, # @0 L# @ X# @ з# @8H$ N'R*\R1*#261$*\Rffff*Db52274e18*\R0*#14*\R0*#15*\R0*#13<,   @H " PX` h p   "  &    (0 8 @ X h p x   ! > x 2005.Jan.11Chen Bowang in DKFZ]@]@@ j' n'  n!l9l n!9 n!p9p99fqHo@] clear and init Progress.Visible = False n9f9q j$@9 !p9p999fqxdp n(f   n!9 d$%9P9fqkA@oAttribute VB_Name = "statusBarControler"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacIFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EOption 0licit '2005.Jan.11Chen Bowang in DKFZ P48 myPercent As@ Label rogresub6 Sub)it(!, p0) 9= 7 H =WithG,A.Top^ALeft HHeighH Wid@ = 0VisiC A$End A+  AI\GMsetFSEEOageYSingle,F]TDim str@ng(If- T'cl ear a)inŒ,P`.R5A?`HZGBA BBorderStyHQKa C%.BackColor@:RGB(0, @255L:@N'K.:.P;V$ E!aTTru e&e,e#a;*e Ca#= RoundN* 10() & "%?H:KLIIfcDoEv@s_rU paza{zamYaѯ a@<a a W ol%X4,ol%X8, 4XHaH~Bkl%X,~5HHaHBkl%X,5HHaH{Bkl%X,{5Hkl%X,zfl%X,.cXl 4(5XHX  tfd%t,.(d%tct P^ id%P X8a@{Bkd%P,{5@kd%P,z(d%Pfd%P,.cPLcd%H,. 4<! Ha@zBkd%<,z5@> dj@,  ,:T`F %<,6@, cd%<,.c< X45tP<x@, PrU H8`i=I=I<A` !i*=I=InrU 1Qx3a33YaH` Bh pxB B B B  "  "  "   " ( 08" @ HP $X   "   " 8 P $h   "      6( `  0   2 0 H 4`   2   " 0 8 @ H P X`" h p    B@k8`n2,k"NPi E!0*=h8+3qt6NDGAeaVxt6NDGAeaVi E!0ME PSS S8"6" <<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} b<@bD@ ,` x+ i ,8` x+  i ,` x+x$i n(,` x+(i ,X` x+8,i  `|+0i n3ll `x|+4i  x`0|+X8i 23ll `|+<"i   8 `|+@ &&%i   `X|+xD Ki 'iHix2007i DKi ver  `tkXH R)  xrnel %, `T+L Yi ile   `xkP ],`tk` Ta)  ' %i  ..,0`tk Xd)  V %i  ,$`zkp \gi  ',`zk `ji  V,`zk0 dmi  xP%b4@b8@b(@@xxX8 (08%P P h h `8 xx P 8 X X p h `@ x X @ ` ` x h `H x ` H h h h `P x h P pph `XxpX`X@X@x @t h `x@0t @Hp @`l @xh @d @` @\ @X @T @x x`xh ``z x`@t h `z @t h$ `$z h `z h `z xP(PPTh% N'R$*\Rffff*Ed52274f40$*\Rffff*Ed52274f40$*\Rffff*EX52274f3eH t $( 08@ "  0 B 8@XB `hBBB Chen Bowang, DKFZ, 16.Mar.2005P]@]@]@]@call]@(x 'i 'ih8 'iP 'i8 'i X 'o 'o 'ox 'o 'oPublic Property Get getSNPid() getSNPid = SNPid End PropertyPublic Property Get getCH() getCH = Ch End PropertyPublic Property Get getLoc() getLoc = Loc End PropertyPublic Property Get getGeno() getGeno = Geno End PropertyPublic Property Get getLOH() getLOH = LOH End Property 0Public Property Set setSNPid(newSNPid As String) SNPid = newSNPid End Property*Public Property Set setCH(newCH As String) Ch = newCH End PropertyfEdit1,Public Property Set setLoc(newLoc As String)VBA.Mi Loc = newLocmy End Propertyp .Public Property Set setGeno(newGeno As String)- Geno = newGeno End Property p,Public Property Set setLOH(newLoc As String)p LOH = newLoc End Property  8 ' ' ' ' 'o !'1Pl !'se s !'arti !'er, !'and o8 , , , , 'i[ Erroro   %'i  %'ix0  %$'$iP  %'0i(  %'iGAttribute VB_Name = "SNP@LOH" Bast0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBlSpacFalse dCre atablPr@edeclaIdCExposeTemplateDeriv%Customiz E'Chen Bowang, DKFZ, 16.Mar.2005 Option @licit P37 ID As S$ng Ch Loc Lo Geno 'call$ingl@ FuncGget?id()x R( ` End CHCHChY338= @ݚOE5O<GK,@- Sub sELnewNN)CNKKG}@|=  C(AK AB  A2 *A`,a@*A-, 'Pub`\ Property Get /L5'=_idKaMd]FL'@$('5 $)@$!`S")V@ @-!S*P+`4B | SB S=. +VSB%0``'aHoc A-Z"c ! ]c&]^zSD/&|,zGp! @ykCo` @w 3\+! }9OHyNH From 5 Nq{; .E? pCP  Sg  1_ Fn"(_ & "," & p!3B 5!~nt!Debug.b}qES {c% Equal9 2!Boolean (5!)  cF(IsHom>oJ  _fu.G{ IsNoC $ Heter $A#1__SRP_21V> __SRP_20{frmOR RN@__SRP_2bBQx|1 a@Ha a !W!!!!W!!!!W!!!!_!!!!_!!L- 4Cx/ (5x L- 8Cx/ (5x H <qx/ $5 H Dsx/ $5 L- @Cx/ (5x D 4/ $5 D 8/ $5 @ <$5 D @e$5 @ D$5 p@ 4 8 < @ D@$5 xH lx4/xxH lx8/xtH $lt<tH (ntDxH ,lx@/x$5 xx-k4*#t8*#p*#l<#h*#d*#`@*#\*#XD#T*1x2tplhd`\XT/ @(x(5x0 tplhd`\XTT xLlx  /x $5 x\(8tH lt0pz/t/ ($5 tT$tH (Dntpz/ $$5 L@ pz/ z$5 L@ pz/ z$5 L@ pz/ z$5      GrU !T(!`0(A!`!0(!`%((!`)*(!`-0(A!`1A0(!`5a0(!`9y((!`=90(A! `A*<! `EAay900(0*,! `I3 !( ! `M0$I! `Q4!`U3 !#4!`Y3 !#( !`]#(I!`a#(!`e#nrU +`$+`$A+`(+`*,+`)00L+` 13 !3 !3  N'R$*\Rffff*DQ52274e18$*\Rffff*Ed52274f40$*\Rffff*Ec52274f40$*\Rffff*Dj52274e18$*\Rffff*Df52274e18$*\Rffff*DY52274e18*\R0*#10*\R0*#f*\R1*#222*\R1*#109*\R0*#14*\R0*#15*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1(tQ6k\~}^+5M2:"G\j.G)q?=>>B)+FX?EiWKxBx?EiWKxB~}^+5M2:"MEh@SPSSS""$"8">" LLLL*L   F ` $p ^ , ( $@ " hp %(  @ H P$X%p /@/` '(8"P "p   "   @H P `x2A&>&> 8 P h    \ "\ "\ \( &rH "bp "b "b (b (b (b8 (b` (h "b "b "b (   0 P ~p   ( " 0  8 &o@ &oh &m X &o &oH&mp0| xh Me.Caption = "SNP tools: "A@h j n!l9l n!9x n!p9ph99fqPoH@! CommandButton2.Enabled = True v9t |z ~A@` 9tA@hC@qo"Private Sub CommandButton2_Click()! CommandButton1.Enabled = True" CommandButton2.Enabled = FalseEnd Subro] clear and init (fPr n9f9q j$@9oc n!p9p En999fqd setStatusBar (0)en n(f En (f j  n!9getLOH d$%9P9fqkA@o?This macro finds the stretch with LOH>=2 on the same chromosomed usage:1. run the macro LOHstretch() ProX2. select the data area includeing 5 columns: SNP_ID, Ch, Loction, call(genotype)and LOH&3. tell the macro where to put result. 4. click RUNBowang Chen, DKFZ, 16.03.2005]x']]]@X]p ]Ph]]er z B@ ~ B@ !"''  5 5 A@h +@5  5 5%5  5 5% %5  5 5% %5  5 5%$ $"B@ $"!: ($'( $"!: &$'& qX & (*@ & (` & (  & (,V  !  ! A@h $"!:' $"!<CASE  $"!AA $* +*d@ $ + kd $"!AA $ +d $, +,kk   & (  ( &  A@h $* $ $ $, 6B@  6!* 6!, 6! '  6! 6! 6! ' . $* '. 0 $ '0 2 $ '2 4 $, '4  . 0 2 4 6B@ OR55 5,95%CIL55 5,95%CIU55 5,X255 5, 6!>5 5 5,5 5 5,5 5 5,5 5 5,OR_MH5 5 5,95%CIL5 5 5,95%CIU5 5 5,X2_MH5 5 5,  5 5 5,5 5 5,5 5 5,5 5 5,q With targetSelect .srcSheet.Selectx .srcSheet.Range(.srcSheet.Cells(.rowStart, .colStart), .srcSheet.Cells(.rowStart + j - 2, .colStart + 3)).Select Selection.Copy End Witho  !5  5 5, !5  5 5, !5  5 5,Q .srcSheet.Cells(.rowStart + j, .colStart + 3) = snp2.getLoc - snp1.getLoc  ' !5  5 5, !5  5 5, !5  5 5, ! ! 5  5 5,  'qoAttribute VB_Name = "frm OR" Basp0{895C47F4-DD6A-472E-B6A0-2971FC9FDE3F}{3EC13D8C-4-429B-8929-D02B46CB CA58} GlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizDOption 0licit P#' Sub UserForm_Initialize() Orror ResuNex ' Me.Ca-SNP to`ols: setStatus Bar 0 With Percen$#.Topprogres AC Left HHeighGH Wid=E#VisinAEnd * A@I MCommandButton1t_CVkAMF 2x.EnAd~$BM.MousePointer @;fm Hour Glass3OR _MH Sce:=RefEdit1, Targ4etF2G DepfauleQpB*Hid.J' BI1I{)d'4)(Mage As Single\Dim strngc%IfTE Then 'cle`Y> i`e*P$W.IA&=\g*BorderSty"Di!?/a l!.B@ackColy= RGB(0, @255d!fmi"=E@Q(0g !a04 'H* L#ARoundP* 10/) & "%ॅHH # IfcDoEv a 'This macro finds the!^etch wLOH>8=2 @BAchromosom|('us``:@ 1. run `g! "2. selectBd ނa@ecluden 5 column _ID, Ch, Loca, call(genotype)q603. tellwhere g put @cpKB.4. cX RUNBowang0en, DKFZ, 16.03.2005 yC"U(#UGA%U'CiQLong, jk$1qFrcSPHNewInfo, ft2[ctGmySazQs"HinANs maxwa()QDoup, bcd8a*bccdd'lMaolHaenszeldS1YS2]s.oShee?q#9[sSReQvwrowNoko k@SYj}1SEv3 i To .8 - q@Ni 8/ (WOv i)j. DQ7..C@3srt + i, .080), _ A=@VBA.UC(?ow?"1)OۉOt 2O xVal? `? 2 3)91= Max( $p3,S36inesQ iS[\&a(m :h9cb0ca.d*V,/+ L"+1X!2PDise(p3"CASE"b7Oa>GdAA a(j)b+I8cWb#b/y!/ _ c#b/’-d#b/] )+e *_Kt5" g- `( MHVKa(ipCb(i), cP"dP S1 = + MHP.a *dN2J2 Jb<2cJaaJ+ 2a bb.+ Ucc+dd+ Next i#setData @aa, bbc0, dd"With targetSelect }.srcSheet.Cells@(.rowSt, .colw0)E"OR"195%CILU2U3X6291O?s C?>2S{_MH3-}M o-~O'13 @/ S2_?t  _?mo_?wJ?End #'aЂ%PRanger(_rtj - @3)).Nion.Coppy b'!Sub Private  outputLOHstretch(Snp1 As SNP, snp.2 sBInfo, ByRef jLong)))a((쫡Mŀ.NPidJNaCH#jOeLoc$-P+!<1j`j!1=lj& `:&ar}o beor? b5b_hvo _> %UI_0 %tH >tF%dhx D h d)hd5opx , lpiT%lx 4 lli4%tH >tF%dhx D h d)hd5mlx , lliT%x 4 li4%pH $lpi%dhx D h d)hdopx , lpiT%lx 4 lli4%tH >tF%dhx D h d)hd5opx , lpiT%lx 4 lli4%tH >tF%dhx D h d)hd5mlx , lliT%x 4 li4%pH $lpi%dhx D h d)hd|x , liT%x 4 li4%pH $lplH $lli%dhx D h d)hdcxD(5xthdTH8e+W++++Kxt! Qtp$xt! t lxp __SRP_2aRStandard_IRIX __SRP_22T__SRP_23>AU(n^ l $ht! t Hlhl M kQxxME(6 < <+B`x+@iD `iF`+H`pkiD blediF+L`pk@iD `iF+N`pk iD %iF%+P`pk@ iD `iF`@%p@`p`Bxpro LHq>QOrU *II vzza{zam ɋA;4yc ,195 &Iiɓ!+$ 1 YI4A6Q78A6Q7<A6Q9@A6Q17DA6Qi6 H :1:`I+L9)9P99TQ7y7` +e+W++++Kxt! Qtp$xt! t lxp t$xt! t llxp ht$xt! t Hlxp Dt7p  p cph ( 5pt lx x Qt! ta`p! paL`H``\2\H)tp6`Lx D xcx8(5x$\Htp`L t! t tt! Qtp p p 8cpt! Qtl^ l $ht! t Hlhl Dt7l l 8 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4  4:$d @/6D4 d cd l45pldx tD4  l l$ P lh$ P %l$  ld @ qp qt lV $x  ld%  lxl , llxi% 4 li% D  h , llxi% 4 li|% D  \L H , lHlxi,%D 4 lDi %<@ D @ <  , llxi% 4 li% D  |x tPoPX`\L``h`dlxld@$ < 2xd`\)@<6 \|hL/lxld@$ $ \M@nj\ q\5\/lxld@$ $ `M@nj\ q`5\ xfcl`l\Xl`l\Tl`l\Pl`l\L'xl$  ldHz(l$  lxllxld@$ $ nqt"xlxld@$ lx0/x"xlxld@$ ( lx0/xltlXltlXltlTltlTn"xlxld@$ ( lx0/xVltlPltlPlltlLltlL xfHbl`xl\d@lxl\l`AlxlL.0@lxlP.4@lxlT.8@lxlX.<@($ -<-8-4-0>P($ (($ 4 ($ Do oPo(o t >P($ $(($ , ($ DooPo(o toDlxlXtDo LL<4%`HT%+>`Tk` i*i`i i,+T`k   i*@i`ii,+Z``Tk  i*i i@i,+V `lki* iii,+^`lk`i* iii, +X`lk #i* @ 4.i` Cheii,+d`` lk'i* i  i@ i,'+h `(lk+i* 5i%ii, +j`0lk`/i* : iii, (+n `8 lk  4i* @A@i` i i,$*+r` `@!lk 9i* i i@i,+v `H"tk =i*" ii i,+x `8#lk`  @i*  i i i,+| `@$lk  Di* @ i` i i,+` `H%lk Ii*  i i@ i,+ `P&lk Oi*  i i i,+ `X'k` Ui* i i i,+x`)k \i*@ i` i i,`d`\`T` L`. D`0<`24`4 ,`@ $+8`p*k ji*iii,+` ,l  @\ 6 !^`@T 27 @`XXp`Tl nspoX(inFilg, out>VXng)'A@\ 'B@L 'D@< ansp@ , matr@8 axtr@P in @h P'w@ xt f@ d sa@ text@ : @ File@ ong,@ Lon@(| @@l As @\ trin@XL g@p< nt "@, tor @ ase @ 0 @ trin@ e Fo @`Zl @ nes(nl@\  6nFile For Int @T Fo`Vten o Outpu 6r j = 0 To nlu@l ``^tint  j!6 Close #2j@l Pr @``Xtivatte_Shol sTar6As String, Bal@l ring @`dt iIcnteger6Requires refen@l Hos`hty.WsSet oS6= oShell.CreeS@l alFo`  `jtorkiy = sWw6), arg(@l c @`(! ! `nt! 6.tri@l W! @0"!"!`rt <ifi@l ec` '`((0('H((`l ,6 ('></if @(\ oxhBtrue">U@x(X de@T wi@(D ab@(4 me@($ h@ me@ ys 0 ``  H))X*(*)))`l 00)) co="tBable(db@* , @ ,0@@* if@ "t@ lu+x++H++`+(+`l he8++e(dtto@+\ arnB,0,0,0)@+X if@T se@+D ov@+4 tr@,$ ed@ UI@ er,x-p-@-,,,`tue,,ere="trB selece@(-p UI@l er@X-\ on@L ea@< tt8Xx(.x...(.`.@.`troP.(.arg,0,rBcontena@.p ef@l Su@.\ ck@L gb@< c/8X/@00///`tet//ropollxBon bacg@/p b(@l co@(0\ ="@L <b@< grH11x10011`tig 10ple<el|Bt backr@`1p (0@l on@1\ "t@L UI@< ei`2x232`22x2`tig2`2ddl|enBipsis|d@2p M@l in@2\ f @L yb@< ke38Xx4x4H4343`t/i33if>essB"atom(i@04p UI@l or@`4\ he@L (I@< 4,h  ( N'R$*\Rffff*Df52274e18$*\Rffff*De52274e18*\R1*#221*\R1*#fc*\R1*#10d*\R1*#33b*\R0*#f0$ ,Y (B :08pBBBB=(=@=X=p(J<- B 0$ 08,Y@px B (LB (LB (L B ( (L0 X B ` (Lh  B  (L   x] *   ,'>d( *   , 6B@ 6!>'>xkpih# *   ,$>##0.00$ ( *   ,$V##0.00$, *   ,$X##0.00$)'Ti'this will return the OR of minor alleleBowang, 21 Nov 2007 *   ,'Zd *   , 6B@ 6!Z'ZonBuki` *   , 6B@ame7WW 6!\'VRefEi  *   , 6B@dButto 6!`'^Si` *   , 6B@ 6!b'Xi  *   , 6B@WW 6!f'donXWi` *   , 6B@WW 6%h'htDi  *   , 6B@Dy 6!l'ji` *   , 6B@ 6%p'ni  *   , 6B@ 6!t'ri` *   ,$r'vi *   , 6B@ 6!z'xip *   , 6B@ 6!~'|i0 *   , 6B@ 6!'iJune 15, 2007, for Barbara` *   , 6B@ 6!' i1'July 06, 2007, for OR and p-value of copy number *   ,'d *   ,$h B!%' ki _-fisher exact test hypergeometrics probability]    0H` *  B!%' *  B!%'  , B!%'  , B!%' * B!%'.A@  B!%'0  B!%'2 , B!%'4 *   , B!%'     . 0 2 4 'ix *   ,'d *   ,$n B!%'ki8 *   ,$r B!%'iH *   ,$r B!%'i *   ,$x B!%'ix *   ,$| B!%'i8 *   ,$ B!%'ih *   ,$ B!%'i0(yAttribute VB_Name = "OddsRatios" Op n Explicit Dim MH As New MantelHaenszel PubZ Fun&cz(apDo>e, b c d ) Varii If Ba0 OrB=* cdThen-1"!Else!MH.setData aL, c, d 'End` If y  R_formatBO&iF+J(a), "##0.00") _h& " (" & R_CI95L,OUU @)\FminorF'this will return the @OR of B allel@~'Bowang, 21 Nov 2007GR_@ADC#NDpΩ؃rcaN NB_aK9`K}?l?‚#9L&9L?^`W??6d&Ug&U?b&?D&rd&'9?R_X2t#\X2%  )%_SE[_SE SE rX2MH  n%RPowerK 2Bss 95KR_ 9sD Up6 k  99/0YD///49KI9Oic8E? i oUbV9J _ 'P3e  'Ju`ne 150, Barbara  0 9>+ ly 06 `ap-value!copy numberg777s tb`0 ,gq Ap!qn.Worksheet.ChiDist(jV6n1Rqo0mFirExact|Te+O $'f e t hypergeometrics probab`ilityB!abY(ud? M-5pE-xactTest = (ab * $ac cd bdh) /a,hchdhnn) End Function @Public$ OR_PMH(a@ As Do8e, b c d ) Variant If Ba0 OrB=* cdTh>e-|""aBElse AppZaa.Worksheetj.ChiDist2(&X2e`, c, d), 1'%Ifowerao%pA`NormSaPK(abqA 95- C?.̟-.9?..90.99\9.Ŋ993/~b< _/ÂQ] ]/0?erA_S0 k4@T$5 pl<TLllll k\%lp $ p l<&ABtt)pl5<k4@T$5 pl<TLllll k\%lp $ p l<&ABtt)pl5<k4@T$5 pl<     p:\NLLokl< <,: l6\<, lL<,(5lD\<, lL<, x$ȃŃŃ4 :\lnllll$ T$ loTk\l:(x(5l h8llll $ l$ toltt8$5 h8`iy++++8$`iy++++8$`iy++++8$`iy ++++8!$`iy ++++8I$`iy ++++8q$`iy ++++8$`iy ++++8$`iy ++++8$ `iy ++++8$ `iy ++++89$ `iy ++++8a$ `iy ++++8$ `iy ++++8$`      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghiklmnopqrstuvwxyz{|}~iy ++++8$`iy ++++8$`iy++++8)$`iy++++8Q$`iy++++8y$`iy ++++8$`iy ++++8$`iy ++++8 $`iy ++++81$`iy ++++8Y$`iy ++++n  @BrU~| )((Yɔ9`, ǀŀŀ9sxY  rU~| %$!+ &$$I$A!Qiz$$Yp pg$a$$$$x$ȃŃŃ4 :\lnllll$ T$ doTk\lP(x(5l hllll\ llll tllll t:LN<<\, ,: :Nok : :\NLLokl< <,: l6\<, lL<,(5lD\<, lL<, x$ȃŃŃ4 :\lnllll$ T$ loTk\l:(x(5l h8llll $ l$ toltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ |oltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 Lllll tt$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 h8llll $ l$ oltt8$5 $ȃŃŃ4 :\lYllll k\%k4%TX $ X TABkl)XT5x(5lXT|Bk %  $  @Btd) 5Bk %  $  @Bt\) 5Bk %  $  @BtT) 5Bk %  $  @BtL) 5=l@  $  @BtD) 5=l@  $  @Bt<) 5=l@  $  @Bt4) 5=l@  $  @Bt,) 5Jk %  $  @Bt$) 5-odo\oLoToDoDI / + 6*k@QEa^d / @ /  PowerKJA! < < +`Hx+@i* `iii,+` Hk i*  Xi @Ti`ill i,e`t 200`p`l,`h `dB@``onBu`\``XB@`TRefE`P ` Lutto`H`+P` Pk i* B@i i@B@i,`t ,`p!l`l` hB@`dn```\`X`T ,`P+H` D+!i* B@i0iB@i,`t for`p `l`4h`d, fo``copy`\`X`T'` P ,`L`H`Dxact+` Pk 5i* `iii,`t`p%`l%`h%`8d%`` `\'`X`T `PHP@%@` `x  6Xp@(@ `x Jx`  @8 `x Jip(p@X0 `x  x hPx `x x J0H N'R$*\Rffff*Dg52274e18*\R0*#15BB 0,@H.PB    88.HB   0P8.`B   8 H X h x    J4(x B   8.($` x *   ,'d0 *  ,   *  'kxip]](]@Xp *  '  , ' *   ,$'@ $' *rU (8(`iy ((((8(`iy ((((8(`iy ((((8(`iy ((((8!(`iy ((((nrU ' (@P N'R$*\Rffff*Df52274e18*\R1*#221*\R1*#fc*\R1*#10d*\R1*#33b*\R0*#15*\R0*#14 (HXp  "   ( 8 HX0$x               (8HX h f@A02'@x <""";kc$L-*=h8+3qo/MK*5xo/MK*5L-ME(SS S>"LL<,<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(j D,@bP@b @b @b @j2 T< @jF8 dL @j@t\@j>` |d@j\ t@j`@jf @jz @j0@j @jl( @ %P x`$k88i* i8@iXi,,,n`t+Ni ,VP`lkQi `l,X`lkVi `l,^@`lk[i `l,d`lk`i `l,h`4+ ei `l`d`\`4T`L`D`<`4,v8`t+ri ,x` t+xui ,| `(t+ xi ,X `0t+8 {i , `8t+ i , `@k ((i @  %j*p 4@j<$@j,(L4@bx@b @j\D @jlT @jZhl@jb|@jt@j~@jX@jp@XPx  H p 8@x@` h (P X( 08   08@    !,8@ 408 0 @P D0 0@ $0  !8@,0  !>8@pd0 8X@X@p *,>\b@(# A8@H0# A,8@8#`ftz~p2@l @(\ @L @X< @, ZJlFV@$ pX^dvx|hnhn `nptp*F28hV `VxtxhX `Xt(h^ `^thd `dt0H`xhh `ht*,hv `vthx `xth| `|t h `t(h `t`H0h `t hB@l @xh @d @T @D @4 @$ @  H  (  6<  0@P`p B$'B 8HBPX` B B  B(0PpJ4`Bh$$pB$$B$$B$$@ HBh$$pB0N 8 Z 2x   P ( 8 \P 2   T p   \ T X ^p V ( ^@ X  ` Zp  ` \H  b ^(   x] H p  ]@(P x*]@ ]  ] 8 ] @] ` ] h]  ] ] ]  ] ]  ] ] 0]  X] ( Public OR_P As Double * (*  (@  ( , (, *   , ' *   ,'>'\'b'`'f't'z'~'''p'2''k *  '  , ' *  '  , ' * ,  '>` OR_minor = IIf((a + c) <= (b + d), OddsRatio, 1 / OddsRatio) 'consider both case and control  , > >$'Z5consider only in control >$' *     , '2 2$J' 'l   '   2'   'F        '2 %V'\ %X'b %^'` %d'f %v't %x'z %|'~ %' %' %h' %n'p8o0x * F  * F  2'ni]8 \(\?  ' $'ViP] \(\?  ' $'Xih]( S㥛@  ' $'^i @] S㥛@  ' $'di]0H`]x   '   '   '   ' *  '   '   ' ,  '4          4 4  'hi \(\?   'vi`8 S㥛@   'xi( S @   '|i /$@   'iJune 15, 2007, for BarbaraX z6@   'i`$h B!%'=ChiDist(X2, 1)i 1'July 06, 2007, for OR and p-value of copy numberSPublic Function OR_P(a As Double, b As Double, c As Double, d As Double) As Variant , If a = 0 Or b = 0 Or c = 0 Or d = 0 Then OR_P = "" ElseJ OR_P = Application.WorksheetFunction.ChiDist(OR_X2(a, b, c, d), 1) End If End FunctionUPublic Function OR_PMH(a As Double, b As Double, c As Double, d As Double) As Variant, If a = 0 Or b = 0 Or c = 0 Or d = 0 Then* OR_PMH = "" ElseN OR_PMH = Application.WorksheetFunction.ChiDist(OR_X2MH(a, b, c, d), 1) End If End FunctionVPublic Function OR_Power(a As Double, b As Double, c As Double, d As Double) As DoubleM OR_Power = Application.WorksheetFunction.NormSDist(OR_PowerK(a, b, c, d)) End FunctionXPublic Function OR_Power95(a As Double, b As Double, c As Double, d As Double) As DoubleO OR_Power95 = Application.WorksheetFunction.NormSDist(OR_PowerK(a, b, c, d)) End FunctionXPublic Function OR_Power99(a As Double, b As Double, c As Double, d As Double) As DoubleQ OR_Power99 = Application.WorksheetFunction.NormSDist(OR_Power99K(a, b, c, d)) End FunctionYPublic Function OR_Power999(a As Double, b As Double, c As Double, d As Double) As DoubleS OR_Power999 = Application.WorksheetFunction.NormSDist(OR_Power999K(a, b, c, d)) End FunctionZPublic Function OR_Power9999(a As Double, b As Double, c As Double, d As Double) As DoubleU OR_Power9999 = Application.WorksheetFunction.NormSDist(OR_Power9999K(a, b, c, d)) End Function[Public Function OR_Power99999(a As Double, b As Double, c As Double, d As Double) As DoubleW OR_Power99999 = Application.WorksheetFunction.NormSDist(OR_Power99999K(a, b, c, d)) End Function!PAttribute VB_Name = "MantelHaens@zel" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBlSpacFalse dCre atablPr@edeclaIdCExposeTemplateDerivCustomiz EOption 0licit Pub a@ As Doe, b c dG@D m1 mj0n n LnORSERvN eG v2Odds RaDR_minorCI95LU9 9 Power95K{9RX!N, SE%X2MH'OR_PfSub s(etD(o) Me.a habbcVcidNa +\+ cIf`= 0 O>r@"0 ThenGCNU0`BAJ&A5_:8*v+v 12GoTo ou#End If=+-0 bG/7==I3-F* d) / (c h* b@B'B2v=` IIf() <= ( ),b , 1) 'conside?oth cņatrol5+ ca d only in B= Log(GC /AU!VWĥ= Sqr(vct $ A8b&c Nd8`;|* ؀7* 4/ 70 ` 1Na(N - 1)$# bv(;cGUHdF9LIZ9VH31 9K /?9O @9hs8X258eMH5: 5 T{Func}<()yW1@1- e)/ vCeZyDDim P|JnQ .a~!.96S+!!0(F"_ _ W *vY #7x+ 1_ T AY U_ Ӊ*_ R 9AI92.5760b1d So o  $rd o ki A/m aDGWPȧ, cdw3%1 aȊcd=O|bE0*N[0U0P1RlS0 nP- aEbbSb o- c = ddװ"C*A/tpd` pod#=/v/ a5ic 97S(Abs(,) Z4yU> S_V{(3QL 2X3.2919?fYD /I ?3.(893?R-[ 'June 15, 2007, fBarbar?@7f? < O 4.p4172_ ^ o_Pi$Appn.WorksheetU).Ch@iDist(X2(), 1) 'ChiDist(X2x End Function ''July 06, 2007, for OR aNp-value of copy @numberfP`ublic^_P(a As DBo4e, b c d ) VarPiantU If a = 0 OrCcdhThe'.OHR_P""BElse AppYa{.Worksheet.!%X2(a_, pc, d+If 'MHzMHD3*EIEoweruFEu91NormSB Kw)ss 95..!95. '.9w3s.99.99?/ϊ"/9 P9.F?? $"_0R0@mEa+Yɔ9Yp pgYYa a@a a ;&/&i&&&&&7&q&&&&!&?&y&&&7&q&&&&!&?&y&&&&)&G&&&&&1&O&&&&7&q&&&&! &? & & & &? & & & &? & & && &_ &   (  0  8 \$ ȃŃŃ |           T l t}   |A|k<|M\@l, ,B6l<,|  ' TT \lllTt\d<\\\믳T$ o$$ o$$ o$$ o$$ o$$ o$$ o$$ o$$ o$$ o$$ o$X$5 <,d4'4d4dTtt/  84$5 d4 \(\?tl ml tt/ 4$5 d4 \(\?tl ml tt/ 4$5 d4 S㥛@tl ml tt/ 4$5 d4 S㥛@tl ml tt/ 4$5 \tL\tD\t<\t44oLtl<oDtdDo"LL*LLL LL LLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{588BB490-E9AF-4C15-A185-632E3B6654BC}{5345400E-9775-442B-900F-917F8B6ADB3B}'8)b <@"0 `@%%`BtP@ x @ H` k@ h  ` lk ` tk b`xo% ~H`|+< `X|+@ `|+ D `|+H H`|+L  `8|+ P  `|+ T  `|+  X H ``Xk$ \  ``Xk( c ``k, k`t F`p2 h` k0x`t`p\ `|k4 `@%@ om@%0 @ @X% p%0%@P& @&X% 4@ , @% )"@  ct@ <e@% eg@& @(& @ h&X%@x& &P&@& &x&@& x=&&UIS@ &&'&!x&# @ )'((H(''(nj@'@t '(p(`0,(%8('gh`(l0(`"/(%((unl@h d=dx(`ch(%`(eE@(T kg@(D me@)4 te (@$ 5% @ - @ (soft Forms 2.0 Object Library*#42$*\Rffff*EX52274f3e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b  @ 0P` .h "`a "(7$7( "0 8 @ P `px " 2  $ & *8 h    .   0&Px" " "  "  " 0 "8 @P "X `p "x  "  " , "  (0@<P "*' 43@HX` "hpx 43  230$(8 ` "p  "   "(0 8@ H @Ph _p   <   B  ( @ X h x 2 8   ( 0  @  $$H %p * 0~ "     ^(    "$  < ( <8 x       8  (  8  $$@ %h 6 ,j  ,$0<P<     (08@,RHx "     <8@X   $112D82=p   & &  ,0 "5P >lx       "( DP @ d >@ x   0 "P @x , ` >H x   8HP " X` h &     $      (8 )@ >X  x x] ] ]option] (]0 ]X 'Dim statusBar As New statusBarControlerFHo@H !t!d'j j$r.out+ j$r .out.trans+` !P(@o 5P(@5(@5N(@qHo@0, Me.Caption = "SNP tools: convert SNPHAP" With Me.myPercent .Top = progressBar.Top , .Left = progressBar.Left$ .Height = progressBar.Height), Odd .Width = 0 .Visible = False End With >A@h5' statusBar.init Percent, progressBar*A@A@A@PedPhase_work.txt'j2$JPedPhase_work.out+PedPhase_work.out.trans+ PedPhase1+ PedPhase2+o Me.Convert.Enabled = TrueoH'o'o-b'ox-c'oXH-l'o8-m'o-i'o' !(@ !(@SNP data including pedigree !|(oH' !(@ !(@,SNP data including individual ID in 1st row! !|(o]] PedPhase.EXE   j'  $' Failure running PedPhase.exe. PInfoA@dh !N(@kPoH]8]P Convert_Click WinPedPhase $ $'  $' Failure running SNPHAP.exe. PInfoA@dx$$h$$h !N(@ ReadResult_Clickkk B@|oh$$A@ A@$$A@7, for B@Xo] v9t  |!d$'  B!d@ |!d !d$'  k 5(@OR andkA@humber6 statusBar.setStatusBar 0, Percent, progressBaruble 9tqo zGjr b ]0 Th] j On Error GoTo 0 OR #pedigree and SNP data are separated, b, c1the original SNP from Affymetrix chip, all genome  B@OR z B@le]( $'ub  5" $sample a = 5" A@h  , Pedigree data $!5 5  5% $!st(OR_k  Pedigree data of ID 5 5  5% not found! ErrorA@e,' 5 (SNP = App (AA,AB,BB.NormS 5  5  5%$ XPudAT, GC, 5  5  5%$v  As k0 snp = Aks sample(Oqd1 the original data edited together with pedigree, one line one sample Doubl z B@,   5 $sample = A 5 A@hon.Nor pedigree and sex,affected ,etc5  5  5%e, b , c As 5" ( SNP genotypes_Pow (AA,AB,BBeetFun 5  5  5%$ nctidAT, GC, 5  5  5%$v ublek Doubleow sampleorqk'plh H!J % P saveSNPDataA@8'(Vih]r]]@]x]$$' ': :G|j$ $'  !!minus the n of columu of pedigree$ Print #1, vbTab;@  : samples name $ $' $ $' $     %'0   _F  _Mp     markersSNP    :samples $  $' $   $' $    %| $   'the last 2 columns Print #1, vbTab; For i = 1 To nSample= at1 = InstrIndex(outputLines(i), vbTab, nSNP - 1)9 at2 = InstrIndex(outputLines(i), vbTab, nSNP)] tempStr = VBA.Chr(34) & VBA.MID(outputLines(i), at1 + 1, at2 - at1) & VBA.Chr(34)8 Print #1, vbTab & tempStr & vbTab & tempStr;q' Print #1, VBA.Chr(34) & VBA.MID(outputLines(i), at1, at2 - at1) & VBA.Chr(34) & vbTab & "_" & vbTab; Next i Print #1, "" Print #1, vbTab; For i = 1 To nSample9 at1 = InstrIndex(outputLines(i), vbTab, nSNP)% at2 = Len(outputLines(i))Y tempStr = VBA.Chr(34) & VBA.MID(outputLines(i), at1, at2 - at1) & VBA.Chr(34)8 Print #1, vbTab & tempStr & vbTab & tempStr;q' Print #1, VBA.Chr(34) & VBA.MID(outputLines(i), at1, at2 - at1) & VBA.Chr(34) & vbTab & "_" & vbTab; Next i Print #1, ""V`oX]@ clear and init Progress.Visible = False n9f9q j$@9 n!p9p999fqd n(f j  n!9 d$%9P9fq(k A@oSNP.txtdata Files (*.txt),*.txtSave data file B%~ t(dݶAttribute VB_Name = "frmPedPhaseh" BL0{588BB490-E9AF-4C15-A185-632E3B6654BC}{5345400E-9775-442B-900F-917F8B6ADB3B} dGlobalSpacAFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDO@ption 0l@icit Dim allTogether As Boolean file˂ Sng 'c 'o. out(1 To 2), sheeinCSNPtypeAInteger  'A)statusBa/New Contr3@ 㞭C|1C|78 e"D_workz _1ae`\c*bhj 1d ; 2OORefEdit!ƀa/?o! P+%o@Q"> 1O4[3c+"-b)onc!46-cc65lon66mont+}ion-si= ÉQ8!Frl7/Q%2 1WxTipspClincluding pediPI#m 9[ XYo L_ KO  O g individual ID 1st row![)VE0RetVPDoupSFcmd'c!P$.EXE "z`qzL= Shell(, vbN@u`oFocustIf 0 ThNeQsg "Failure` runnexe.vbOKOnly, "InfoE?1vP=w)!IfAWin;"lQ ritcJHr2SsBS.a0PAExists(i1)) Ay(2_lrSa1YDžHid `hM`dFQ To.et ZK4r@ge#Outpu! 2)% *%U (s OK=Fw .Mouse(PoiPr@2fm HourGla|ssR= $D(P;ta6,`Dr2" End If If saveOK Th enx.PedPhase.Enabled = 0TrueJ setStatusBar 0 ' s*. ", Percent, progres:`.MouseP@ointer~fm Default.With  Sub Private FunctionwSNPData(Sou> As String, Opal ped)Boo8lea= "" GoTo ouJDim RiLo/jsrc:=b electNew sInfoK Open fileNam~or Out$pu#1DfOn Err,kk@7Not allTogeth@`) 'Fije &a@R dS aDre@*par[d C' originUA from Affyme@]x chip, genomȗ a;.SheetAfGLK Cg ɁWmys(Bs@B2ItemG CPread(#)wG G F!@F%Xj0 .colNo - 1 'sampl; j / (G H i1UBound(0) '/i=(i).IndividualID` .a!/.Cells(.row`|rt + 0, j)e `qnt #1, To_;SSGL!~aN ext ioMs@gBox "j# of @" & l& " nef/!", vbCritical, ""l"o,FalsAB: ?3K@"=`type R 'AA,AB,BBS7vbTab$_AB_Code(y&i E)>E!@T, GC,?A.(CGTjki)~Lylnp/g&"l@bSj?oaYc ! ' C®edit@t=Ew`!h'' one li@GKTc)oN!3(gNpBoNjN(sNf)N NT6hsex,affps,etcwi/+v=!* Eu 7 _3Bn7s 9n9cYg 99Y\099 B9e ? ? J`s 90c9x9@\[2`HВler\$hPVBA.(P.Number)LOKOnlycDc@bClosePvu !Sub rrangepP!ӡ(47a_nS"n!--{LFC~newHap ptempA}at1at2SfResuЯ1 דh oRНF %s((1G= d:WtExit S!&aqSplivt1plReBO2- 6Aminusan㡋`umu_3S 2)T 19zEMR%$xs npƣa=@ Instrexziu, 1D32@?B$828"= 4Mid+ "- ?(pFEp_FUM";FUE3q`$2 'marke^r`p5j6gQ_leEea2KutputLines(i), vbTab, j) at2 = InstrI@ndex(o + 1 vPrint #1, Replace(VB A.Midat3$j- "|");Next i`""E!j ''the last 2 columns~4 For i|1 To nSampleat1nSNP -?/te`mpStr?Chr(34) & ID,2E]6LF@E&G;&&%f"_"EPń ??zjLend?t F[?s+ ''9a y9|9Close : End Sub  vate setStatusBar(Percentage As Single 0 DimV `tgcIf = 0 Then 'clear a`init-Progress.Visible@sFals aWith p? !.BorderSty" 0g! ' ackCol`= RGB(0, @255!Height`.L Wid$M  $E (iTru,%kA*1.C@aption !Round)I* 10(!"%ϡ,'  IIfcDo|EvTaDZZ llt8/tx7Ctt8 #p *#lD;2tpl7Ctt8 #p *#lD;2tplx x 8 x$5 tplxd lxtx t 8 ttx t 8 ttx t 8 tcxd(5xtKxD    $  8D;D;`;`;$ 5 8$5 @ $5 @ $5 D <e$5 D <e$5 D <e$5 D <e$5 D <e$5 d 4x x Txfh%x x,x:h%x x,Ex$d$5 xd 4x x Txch%x x,x:h%x x,Ex$d$5 x'<*#l*#h8*1p2lhpMX@ tt ot3'':8N((:XNHH 6H(  8 (5p(lhH(83 |*#l*#h|*1p2lhpMX@ tt ot3'':8N((:X!NHH 6H((D@ "D@ "  8  (5p(lhH(X`@D@ #@ `@D@ # X$5 d lt t  4h@VCXXp! pa``\< kVpz2\Xp5`_p! pa`P! Pa@V@`X``\< kVpz2\X)pP6`@kzpt p 8 p<D t ct@(5t$\XpP`@0 $08] 4ld$% P&l h$% P&d%^'YHP hV%D$pHD $&lHd<%HD $&lplH8D tlPd0~HltlPAX $(lHi]8D ,&l8iT%,D 4&l,lpi%$(D D&( )$3)($5w"ltlPAX T(l* /, tf0HD ,&lHiT%8D 4&l8lpi%$(D D&( )$'@'`:+N:,rU G!Yp pg)1pq3QEI y )Ii v Ѣ]rr)rI3!+ 99A;xq 3x3xxY% xx cyIia9wIzza{zam QyYJ)99a8!L `Q :J`9Y:`IJY Ka88`JY!Ka88`Ia88`a89K`  :F`a8K `a8aK `IJYK   JY#a8IL `JYJa8K `A6Q17JYK :9=`QJY LA6Q7Q7y70``9)9   `  :<` vWWW__lKha '(%:8%(H%:X%:hF%x$ x |!  h/)x5ll$5 x(tx x :- )($6 `@pz$tHD &lHd8HD ,&lHltiT%8D 4&l8lpi%$(D D&( )$` .1(/>(#4*#0/*#,* 2 40,()($5HD ,&lHlpiT%8D 4&l8lti%$(D D&( )$` 01(/>(#4*#0/*#,* 2 40,()($5 tf8P $1 pf<cD/l h$% P& hV%$$pH$ &lHd'%H$ &lplH8D tdjH$ ,&lHlpiT%8$ 4&l8lti%$($ D&( )$2 )($5 tf3$tH$ $&lHd oH$ ,&lHlpiT%8$ 4&l8lti%$($ D&( )$` .1(/>(#4*#0/*#,* 2 40,()($5H$ ,&lHlpiT%8$ 4&l8lti%$($ D&( )$` 01(/>(#4*#0/*#,* 2 40,()($5 tf  $1 pfc$pzRH 3(( 4lHi 5'`':6N (6 `pz=/pL54D$LiHdhlP @ 40,(($`@xKD@^7YPh lhqplp?<:@/N00lh 8 5Iql60 lldD]xlpd1YP/Clxlh.@^9 q -l q\/1YP/Clxlh.@^9 q -l qX/DlXl\i0l\lxlh.@M@@ :- `1`60 =/l`*#;*#/*#l`*#<*#* 2  xf $1 tlld&=lt#*#* 2xlpd,t/Clxlh.@^9 qP-lPq\/5ltYP/Clxlh.@^9 q -l qX/llXl\i0l\lxlh.@M@@ :-/>  ?1>#* 260 xf  $1 tf=H5.TD `d)$h,0 t t! Qtp p @p 8Acpt! Qtl^B l A$ht! t H@lhl D@t7l @l 8A l @clgt! t @tt! Qtd)ht! t @ nh7d @t> djD4 C 4:$Dd @A/6D4 d @cd Elt45pldx tD4     7$` $`$`$A `$ `$ ` $  `$$I `($`,$`0$ `4$I`80` <0#$`@( `D*nrU -0 ɋQxهYaɋ a@Da a  ,W,,,,W,,,,W,,,L- 4Cx/ (5x L- SNPsampleT__SRP_2cj__SRP_2dMPxMHstrata'l N'R$*\Rffff*Dj52274e18$*\Rffff*Dj52274e18D7 $( 08@X B` hpBx B B  "  "  "  "   "   ( 0 8 @H" P X h x B2O " Chen Bowang, DKFZ, 27.OCT.2005P]@X]@]@callx]@` $' i '<ip  ':iX  8ao_kقLOˎa]N&g/>*=h8+3q.Htx.HtOˎa]N&g/>ME PSS S8"$6"<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}XHb<@P%, `8x+i B@v,< `@x+  i .o,:`Hx+`$i ,`P x+(i  "@`X |+ ,i$  &` |+0i(  ` |+4i   *`` |+@8i,   `8 |+<$i$ i( i i,  ` tk`@ *)$  %, ``+D 0i  `pxkH 4P(%b$4@b8@b@@`X` @ C(h  ` x% %$X0h< `<x @8 % 8  h: `:x(   @ h  ` x( 0  ,% h   $@ @h h  @ @ $n@` $<:@x @t h  `xx x$ @t @p @(l @@h @Xd @` (@x  `X(((PL'i@ $'$o(@ ('o 'o ,'o` $'$ (' ' ,'o  $! '$ $!<' $!:' $!'o` $, , , 'i[ oAttribute VB_Name = "SNPsample" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTeateDerivCustomiz E'Chen Bowang, DKFZ, 27.OCT.2005 Option @licit` P37 A As SngDise Geno 'callAgeingl FuncAget9() QF End )0= D?--D$3= @GC 2 Sub sIDnew=G)CGG= D;(@ -AALBU2BOA@ubT ݄#D o", TbKa!W*?E "C1 !_c BhPFrom/=.id&jJGoLF7y_SB)y & "," K~BntC%Debug. $08Cx/ (5x H @sx/ $5 L- <Cx/ (5x D 4/ $5 D 8/ $5 D </ $5 @ @$5 d4 4 8 < @4$5 lxH lx4/xxH lx8/xtH $nt@xH (lx</xl$5 x\-O4*#t8*#p*#l<*#h*#d@#`*1x2 tplhd`/ \(5x$tplhd`T xDlx  /x $5 x   rU ,P(,`0(A,`!0(,`%*(,`)0(,`-0(A,`10(,`590(,`9Q*8,`=9Q000*,A, `A3 ,(, `E0$, `InrU /` &Yɔ9 Ya1 a@8a a* '. 0  '0nv 2  '2Tr 4 , '4 to clear current temp stratum''*''','kp   '` `$' 0 2 2$J' 'l \(\?  $'\ \(\?  $'b S㥛@  $'` S㥛@  $'f . F  . F  2'@ \(\?   'tng i S㥛@   'z S @   '~PedP /$@   ' . 0 2 4 4B@oAttribute VB_Name = "MHstrata"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAFalse dC$rezblPr@edeclaIdCExposeTemplateDerivCustomiza EOption 0licit Dim S1 @As Dou,H S2s34CLnORS&EaabbɉccddRmNm0n n}v  K IeE N P@Kic OR_MH CI95L U rX XSEF9 9 Power95K9Crude;New MantelHaensz0el CDFSu b Conuctor(MH()Á) ) iALong= 0@@faiGcGisDN` `f``g4vG For iLBound`) Txo U!a + !i).abbbAZccdd+aNNIfB $ Or 0B$$ Then'A'if the um is too small, we a0it into next%E e-+ * d * "0+ * cC2+ (bc` / N)1.+)dOs;J !r=@+ 1= + 0@(:0=ASe`7y*  Nv/@0(Na- 1)Bj`.k k`- m"o' Bclear current tC!""SbTKUKr++X=End If#N*iu[=p/oCl= Log(Dmqr(`'/ ("* s4e\p`=v(R0x.960aUG Pyc+ 1o `@a2.57I9bx+ Pph= ( - er3/ v epAbs ) M p' IcL<_l9o3.291ob3.893RC l.setD aa, bb, cc, d9#lmjbD,@j`X\D@jtlT@jl@xX0(h__SRP_2e__SRP_2fN OddsRatioStrata Fj{X__SRP_304 ./.i.....7.q....!.?.y...7.q....!.U...          ( 0      Lx dp$hlx AX oh$hlx AX $oh$hlx AX ,oh$hlx AX 4 oh $hlx AX D0oh00 # 0#0d00 #0  #(0(C000믳       0 xfp44 "9 T%\(\?9 <%\(\?9 D%S㥛@9 \%S㥛@9 d*((L'\(\?l'S㥛@t 8 bk@% @M GfK'(x*=h8+3qt.9EuZp^7xt.9EuZp^7% @M GfK'(xME PSS S"8>"<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}b0@@bP@bh@b0@b4 @b @b @b2@@b*@b0@bF(@bX0@j\<$@j0L4@jlT<@jfdL@jzt\@j~|d@*4t @%.024*, % 6`hk`AA)6 $J@k.out  %PedP`x%b@b@b2(@b.x@b2@b @b @bh@b, @j`4@jbD,@j`X\D@jtlT@jl@xX0(h@Ph0@ X` xF022@t @p P @h `J08l\b`ft`z~4h!  D 4  N'R$*\Rffff*Df52274e18$*\Rffff*Dk52274e18*\R0*#158Q(8 X&x  "      ( 0 8 @ H P X ` h p x$$$$$00 >H # # bd #8 X h x  # <C    ( $8  `  h  p  x   " % % %( %H$*h$'$'$'$'(0P `x]@](P]hx]]@h0] X0] X] ] ] ] ]  ]'.'0'2'4'*''','F''''0'2'2  6 6 * $6!* '*  $6! '  $6! ' , $6!, ',  $6! ' *   , 8if the stratum is too small, we add it into next stratumdp  * ,  '     ' 0       *     ,  '0 2    '2 *  'om  , ' *  '  , ' L F    'F6 2         '2 . t'S @|'/$@($ $5 4 < D L T \ d l t |  ?rU .D,.`s &!@ 4 @$ <!@, D @4 L@< T9@D \Q@L di@T l@\ t@d |@l  @t &nrU 000f*DV52274e18$*\Rffff*Df52274e18*\R1*#222$*\Rffff*Dl52274e18$*\Rffff*Dp52274e18*\R1*#221*\R1*#fc*\R1*#10d*\R1*#33b*\R0*#10*\R0*#f*\R1*#109 P` " hpx L>P  h px*$  T  60]h8>>( @"cH"cp"c"c    ( 0 P Xhx B ' B @Convert ? Output for PedPhase8 !@ PedPhase? Call PedphasellH "<ReadResultasS? Import result of PedPhase$.#Frame1se{$9#Frame3se{$B#Frame6se{$F#Frame7se{ $>#Frame5se{$5#Frame2se{$J# Frame8se{ |}~7(.9"Ok& xME4 ".""88> LLL<8<<<5%/%%:6%D`@X% x`0k++i< i> i@ '2`x'`Bt'F D8p''2h Fl* '* Hh  , `*`!`X`P,`,H strX +J `0Xk2)<   %i>  i@ +L`hTk`6)<   %+N`Tk:)<   %+PX`8Tk0@)< P %+R`TkF)<  %+T(`TkJ)<  %+V`pTkhN)<  %+X`TkR)<  %+Z `@Xk8 V)< X` %i> i@ +\H `x k Z)<  %i> (i@ +^ `" k `)<  %+` `$ k e)<  %+b `& kX j)< x %+d`' <ul@!p ty@l <U@!\ er@!L un@!< le@, Vi@ 38"#x#"#0#`#"#"`^tw,"", 3 hi@d t):Bif> <u@` i@H#^ ar@\ ad@T ac@#P he@L (I@#< 1,@#, 0,@# ni@ ou$%p%$%(%X%$$$``twi$$extrde@d =":Bable(e@` ),@@%^ 1,@\ se@T ue@%P me@L ol@%< bl@%, ,0@% ig@ </&X'h'&' 'P'&&&`bt0w&&701wid@d ro:Bindex"@` tP@8'^ re@\ em@T It@'P , @L wi@'< />@', ed@' IS@ ty((H))(((`dtat(("0-dthfBf propr@)p ">@l op@0)\ 1"@L f @< de( *h*8****P**`ftan(**="2ten@d ap:|endeli@` on@*^ um@\ "2@T /i h++++,h+++`hter+h+"60if>@d pa:n="3517@` if@,^ nd@\ Sm@T y ,8--P--, -,`jt10,,></if @d de:"><UISa@` r@h-^ if@\ er@T ">` 8..p...8..P.`ltUI`.8.Pro ro@d pa:nt="2"c@` ou@.^ te@\ ra@T ll ( h H h 0 X0////6:<UISmr0\ olH0/nt=@X sp0T(0 ;-0000 ;30@p0P if@0L hp@0H 1+@D p1@0 ex0810 ro<1 mn 11 <if 0P821 22`tpr21yin2">n:martPrp@l 2"20Pp@32(33`tis32idt0rpn:/if> <f@l ndP3p`444H43044`tt| 43lipditn:Bol" mx@l es@x4h > @d yl@4T re@4D .g@44 ><@$ t @ =" @(h N'R$*\Rffff*Dk52274e18$*\Rfff+ B  T X+x B  T L+X pB & B & B & B &  0@B H'P hxB  t D &H(QpB  +VB   + V0 P B X ` +x V  B   C  B  &   0 B 8 &@  P ` B h &p    B  &    " P   ( @ P h x 8Q    8Q 0 8Q8 p x  B 6 &    B  &  8 H B P &X V   x]]ArangeInfo is advanced than selectInfo, with worksheet information]@] ]8]P](@ E .getSheetInfo abcd 'abcd is an Excel address of lines of cell  < <C@$)abcd is an Excel address of lines of cellF @5" '.:k5 6p 5 @NDec 18, 2007 Bowang/DKFZ, to fulfil the strata OR for Haploview count oputput,like "586:1318, 524:1352"0we need to split the string to obtain 4 numbers.5  55%'B B,$'D$D:$'F$D:$'H$F$'*$F$'$H$'$H$',d5  5 5%'*5  5 5%'5  5 5%'5  5 5%',k >  ,   * ,  $6B@d *   , $6B@k  6 :B@6qxopx <! > @A@ :!`'Ji8  <!A@ :!`'LiNDec 18, 2007 Bowang/DKFZ, to fulfil the strata OR for Haploview count oputput,like "586:1318, 524:1352" <!A@ :!`'NiXNDec 20, 2007 Bowang/DKFZ, to fulfil the strata OR for Haploview count oputput,Eforce to use the output of Haploview without the minor allele reverse <!A@ :!`'PixX <!A@ :!\'RiH <!A@ :!b'Ti( <!A@ :!`'Vi <!A@ :!f'Xi <! > @A@ :!'Zin setData abcd.Address 'we don't update the object if we call external function Strata_OR_X2(abcd As range),>other wise we use internal variable Strata.X2 in the next line$ Bowang Chen, Oct 18, 2007 DKFZ < > @$Z B!%'\i`H Dec, 18, 2007@ <!A@ :! B!%'^i Dec, 18, 2007ber <!A@usBar. :! B!%'`esi Dec, 18, 2007 <!A@jr b :! B!%'biH setData abcd.Addresso <$f B!%'dee ai <!A@ c :!t'figiniP <!A@ll :!z'h i <!A@ :!~'jubih <!A@ :!'l a =i8 C starta listing in same row in plink format, consider only 2 strata] ] ] 0 h ]  6(  p$' r$'at$$$$$6B@ t$'r v$' x | z ~$$$$$6B@d$$$$$6B@k 6 :B@6,op0 ) 4 genotype distributions in plink formats p r  v x z | ~A@n :!`'ip p r  v x z | ~A@nta :!'theri p r  v x z | ~A@n :! B!%'iXPAttribute VB_Name = "OddsRatioStrata" Op4n Explicit Dim | As New MHs^6srcSelect`.wi)H.se b, d, c /S1k>a@lNex@g.Conuct`MH : :!! QSubsPcic Func~S_ORFsR!|?sf?siN8shu!a.A_,xVMV @+.OR_  ` _mq~; biq_ ss, Tru3V_&_ Y angahaa '``' O' O'sB20rr`_aOrO@tcemus` 3t 7pqR% h0 r 9LZ9L__ta9_AөP999OOX2\\n7)\0c /%.տ\-X2X2oocP k" anE don't upJdtAbjiTf c`@ 0yerf1x)0'opr0EG0qGi0"varia`@ qnۓ CА6 í$P ӳApplication.WorksheetFuncChiDist(Strata_OR_X2(abcd, isMinor Haploview), 1) End  Pub P_mP As Rang$e) Do4e 'DecS8, 2007 setD .Address, Tru/_ = ).X22c~_Fhk7_p6cdjFalse65onZowerj^+NormS PA95KB!)N^//@ @._y{ł#9#iw)99K9Kp?D9_$ϛUqHrivate Sub $Z2(AFFE1A5ing, UnN@*A2N*A1+122)S ' sta`rta l in same rowank fgat, consider only 2`!># Dim iLongGalllexleRAGi o(!caseAontrolO !&Cؤ*IReMH(0 Tob"cA `` s_!65.8D! ).m01(!{2 %If !"7 x A"2 xTheZ1 1 s*( Ed_iu0 y!Ifw!.CP'tructor MHSHSub Z55 2W*,`":?5x@64 genotype d6ribus-6s5B1p?`S AA2y22Y1).ߐԦ2a1CrDFFIltO Oz1!1O wX0?%#_P_[_` __s_% ___d"Q"_: @oo !9YX`Ql`.D@l`.H@ld.L@ld.P@@$ -P-L-H-Dl^YXdl^YX`$0 (0 Ql`.D@l`.H@ld.L@ld.P@@$ -P-L-H-DsQl`.D@l`.H@ld.L@ld.P@@$ -P-L-H-D$ $@5j \Tll@t`<llhtXplhtdl`cPLHDl<l(l$l lllll  l$ oltt$<$5 l<l(l$l lllll  l$ 4oltt$<$5 |l(l$l lllll  Vl$ 4olkT%k4%dh $ h dABtt)hd5$h|$5 hd     zH)0,5oPoHPH`Xlx@$ HPX`lx@$  xf8$ cDL52Dh%p(\tl9 0,|D'H adlld`` /`5dX$ oXtt$D$5 `dH+H ad+\+^d`` /`5dT$ oTtt__SRP_31S>frmHapMapviewm W\__SRP_90__SRP_83Zk` 080`  =Y,0` =Y,0` =Y,!0` =Y,I0` =Y,q0` =Y,0` =Y,0` =Y80 `  =Y80 `  =Y,90 ` =Y,a0 ` =Y,0 ` =Y,0` =Y,0` =Y,0` =Y,)0` =YrU~| 10 yl1A;Q cyc & .00Yp pg0Y8y0VDl l D t@D <l@P c= *@D 4l@@$x@D 4l@d8]@D Dl@lxi%4D Ll4i%,0D 0 ,`1t)0,58:Nlt 6 Y@p6>:Nlp 6 Y@l6>:Nlp 6 Y@h6ll t`ll tXlh tPlh tHc@D Dl@lxi%4D Ll4i%,0D 0 ,Bt`)0,5c@D Dl@lxi%4D Ll4i%,0D 0 ,BtX)0,5c@D Dl@lxi%4D Ll4i%,0D 0 ,BtP)0,5c@D Dl@lxi%4D Ll4i%,0D 0 ,BtH)0,5oPoHPH`Xlx@$ HPX`lx@$  xf8$ cDL52Dh%p(\tl9 0,|D'H adlld`` /`5dX$ oXtt$D$5 `dH+H ad+\+^d`` /`5dT$ oTtt(H$5 `dH+H ad+\+^d`` /`5dT$ oTtt(H$5 `dH+H ad+\+^d`` /`5dT$ oTtt(H$5 `d|D&+\+^H ad`` /`5dT$ $oTttt(D$5 `d|D&+\+^H ad`` /`5dT$ ,oTttt(D$5 `d|D&+\+^H ad`` /`5dT$ DoTttt(D$5 `d|D&+\+^H ad`` /`5dT$ LoTttt(D$5 `d|D'H adlld`` /`5dX$ 4oXtt$D$5 `dXQlll k\%k<%lp $ p lABtt)pl55`X$5 pl+H ad+\+^d`` /`5dVT$ 4oTk<%k%LP $ P LdABtt)PL5dp$5 `PLd+H ad+\+^d`` /`5dVT$ 4oTk<%k%LP $ P LdABtt)PL5dp$5 `PLd+H ad+\+^d`` /`5dVT$ 4oTk<%k%LP $ P LdABtt)PL5dp$5 `PLdHCl k\%lp $ p l<&ABtt)pl5<@H$5 pl<|D&+\+^H ad`` /`5dT$ ToTtt<(D$5 `d|D&+\+^H ad`` /`5dT$ \oTtt<(D$5 `d|D&+\+^H ad`` /`5dT$ doTtt<(D$5 `d|D&+\+^H ad`` /`5dT$ loTtt<(D$5 `d,@l ^YXdl^,Q0` =YLy0` 1Iay00000000L0` 1Iy 00000000L0` 1Iy 00000000L 0` 1Iy 00000000n N'R$*\Rffff*Ef52274f40*\R1*#33a*\R0*#15*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#10*\R0*#19*\R0*#13*\R1*#109*\R1*#222*\R1*#109*\R1*#101*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*EX52274f3e*\R0*#1*\R0*#e*\R0*#14*\R0*#11*\R0*#f*\G{AC2DE821-36A2-11CF-8053-$./OkeEՠ41"LNI^`ؓLXB"LL*LPLLL*L LLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{999D2292-0F4C-4E8D-A3A0-8549FC5E60D8}{8E584C93-C642-4B3C-B00E-D0B46B26121B} @`k x` k ~` |+  `@ `o)`x < X` `k< `Pxk@ ` TkD b`XPo L X`DoY  `|k mi i i @ `Hdk8 qiz Xi`x`t`*p`xl`"h%`d`` \8%  `@Tk --iz i%`x`t`p`"l`*h`d`` \% 8 4 h `k8 i `x p% %X@@XH%4x%8P BtP@x @hh @X @H @8 @( @ @@ (@  X B|P@p x @ h @ X @( H @@ 8 @( @ @@ (@ X @  |tP@( h @ X @p H @0 D (@H @ @ 0 @ @  @ @ @ @ @` @ (@ @x @ @ @x @p @` tr|@ x @t X@p @l @8h @d @` P@x @(x`%PL@t @d @T xX@pPhjn@(l @\ @X @T P`HP%px@``xX` %@ vtth||@t @p @l @\ @X @T @0P @HL @H ph@D 0h0X 8x@.h@L h@0< @H, @` @( @ @ @X ` ,% @ 0@ `@ (@p @ @ @ 8@ @ @t HP@d  hP8P(0H8.h@XL @p< 8@@0 P@, h@ @ `,%`@ @ @ @ @ @ @p H@ p @ @ @ @ @ @( @@ @X @p @ @ @ h@ (@ @| (@x hvHP@t xp!@d `@T 08XpX@Xnj@@t p`P%l`P%0@h (d(`P%@T (@pD @4 @$ p@ X@ @H pP  00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b48<@DHLPTX\`dhlptx|   `h  ( b ` h "`hbap "`a8  "   $ X   "t<*6<-6Hv< Z8j   " "Z  "   "   (  8  H X ` "h p 2x     $  $  $     " 2 X  `  h  $Rp  $R  &o      T    0 8 @ P " X  `  p  "        $4  " 0e8 *Ih ,7  0  0   2  X Np  $R(0" 8@Phx$4 "2*I,7 0H 0h   $t  ( $( RP *x(608X  `  x  $R "   (8  @ HPX ` $x        ) >  08@HP xPrivate Declare Function FindWindow Lib "user32" Alias' "FindWindowA" (ByVal lpClassName As String, ByVal' lpWindowName As String) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias' "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias' "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SendMessage Lib "user32" Alias' "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long,' ByVal wParam As Integer, ByVal lParam As Long) As LongTPrivate Declare Function DrawMenuBar Lib "user32" (ByVal' hWnd As Long) As LongPrivate wHandle As Long TextBox1_ChangenabledoHPrivate Sub HAPLOVIEW_Click()9t If Shell("java -jar c:\Progra~1\Haploview\Haploview.jar") = 0 Or' Shell("java -jar d:\Progra~1\Haploview\Haploview.jar") = 0 Then FalseR MsgBox "Haploview not found, please contact Bowang.", vbOKOnly, "Info" End IfEnd Sub] -assocCC -check -pedfile "$ |!d"$ -info "$ t!d"$'ew b#C:\Progra~1\Haploview\Haploview.exe %~ 9P#C:\Progra~1\Haploview\Haploview.exe A@ro#C:\Progra~2\Haploview\Haploview.exe %~ echro#C:\Progra~2\Haploview\Haploview.exe A@spd+Haploview is not found in default folders,  Please run Haploview by yourself PInfoA@o k~ CmdStr = "\Progra~1\Haploview\Haploview.jar -assocCC -check -pedfile " & TextBox2.Text' & " -info " & TextBox1.Text' If Shell("java -jar c:\Progra~1\Haploview\Haploview.jar") = 0 Or' Shell("java -jar d:\Progra~1\Haploview\Haploview.jar") = 0 Then!S' MsgBox "Haploview not found, please contact Bowang.", vbOKOnly, "Info" r(\ If Shell("java -jar c:" & CmdStr) = 0 Or' Shell("java -jar d:" & CmdStr) = 0 Then!2' MsgBox "Haploview is not found in default folders, " & vbCrLf' & "Please run Haploview by yourself", vbOKOnly, "Info"8 End Ifo  t!d$r.ped |(d oX !P(@o 5P(@5(@5L(End Wiqoxh&SNP tools: convert HAPMAP to Haploview (Ptton2.A@h  j n!l9ld.", n!9on + n!p9pHots99fqop, If CheckValidName(Me.RefEdit1.Text) Then%( v9t t!d$hG t!dA@j |!d$hG |!dA@j% | t!d |!dA@H 9tA@hundma t!d$h |!d$h5(@;kPqH End Ifo0X  A@  A@ o z Gj]x]th]w ]  z z! %'*$lh *'$'*" % *" %$.. z$!0!'%ѡм  z$! '"(ѡмB@H z$!2'"ʼ0 z$!4'%ʼ0     snp listed in colomnot1(So   A@h    7     7ro snps LoqVDim rol H!J % PinfoA@m roXoP@] 0]  As ]8PAs]h z z! %'*aOc]srl *'$'* *$.. z$!0!'%ѡмString z$! '"(ѡм1 z$!2'"ʼ0 z$!4'%ʼ0     7 $'et =     A@htr) " the original data is from HAPMAP, ped id far mor sex disease7    $          7 $'      $$vd 0 0k sample qhVPlH H!J % PinfoA@o]X clear and init (f n9f9q j$@9 n!p9p999fq`dX setStatusBar (0) n(f (f j  n!9 d$%9P9fqkA@oFSNP.infoInfo Files (*.info),*.infoSave info file B%~ t(d(@ !P(@XoP@F !P(@(o `(SNP.pedPed Files (*.ped),*.ped Save ped file B%~ |(dPAttribute VB_Name = "frmHapMapvi ew" Bas0{999D2292-0F4C-4E8D-A3A0-8549FC5E60D8}{8E584C93-C642-4B3C-B00E-D0B46B26121B} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDOption 0licit 4 'P#' DAK FuncFindWow Lib "user32" AliPas _ "A" (ByVal lpClassAs S0ng, lp0) LongV(Get ) )hWndE'nIndexH8D#%S% %-`dwNewBB+ndMessageQSeF *wMsgU{wParamInteger0l-UDrawMenuBardQ= `wHandwd(  !%PSub Comm@Butt on2_C@ik(() aaOkrror GoTo out:TextBox1.~Appal.SSaveAsFilen(Ini0tialb:="SNP.inf0o", `terI`"s (*"),#bY:=1, Tit,le f "DMe.Convert.EnEe!n3!$!2!!ped!P#!?a!W!@?!4! ICRefEdit1_Change͡B' h)IKHAPLOVI EWG)bIf Shell("ja va -j]c:\Progra~d1\lo'. `")M0 Or5ș / d? $ Th|en`e`}[ "F not found, plecontact Bow@#.@7vbOKOnlyx, "XA#I>f897Dim CmdStr;aE`ic 69ResuN8S9Ѕ -jocCC -check -@!1 " & Chr(34)+" -"5w?Len(VBA.Dir("C ?ewexe")) > 0 Cr!   bd?E e%2/. ρsa /%isW%K defaula&`ldersP$ v`bCrLf.& "P(run *by yourself(((?"?7Yq9$ed$;$i Y$t3c0_@_@ew_@ 1D_@DT@2 ?o@o@o@5+oMoM d: 5 q && &Z'b8 'O 'qSubv%!e pLet &usepw) + ".N`. p?PqU0Form_Av`ƕWith M 1߇ Fտ_=#ę.u3 q :xes Tizr|dxw0ԑadК tools: .! MAPP'HDF3OsetStahtus103"P`ercend.TopPprog>r0Left !Heigh=CXWid = VisibQ/JTCvidQ(0Ft1.Text) Then On Error Resume NtWith Me@j.MousePointer = fm HourGlass hIf FileExists(Box Kill  C2 C CsaveHAPLOVIEW SVce1:=RefEdit1,< fRP 2:= , ,DefaultEetStatusBar 0 And'w .F=.E@nablednTru wEIf"A 'A Sub EPr@ivate  X(X As S`tringX 2 )infowkDP p5 2 *()M%%fO"" OrB GoTo ouzDim RiLoA>js|rcCEC3 rowNo colLJJ @rt0J CG AheetWporks= VBA.LeftD!, In@"!") - 13&Handler Rep lace( , "'"" S #!B= Ss(Chr(34) & ##&= Range).Rows.Count 'ѡc+/ c @,  'ʼz tColhumn#O(penJF@Outpu"7#1/%Csi@Q1 @P@F5 'snp lcin Y omH!sIi / (D,a h)# .Cel ls+ i,k 26_evbTab9?M!A`iC {cClose %$p)S:Msg](.Number), vbOK0OnlyS" y OlzÐ),a0gP$E$ A $6AP{A Sampl eID(), tmpSNP9sDrD7D@D EDatr-;BBo;FBfFB-BB@/B{Bq13C p Split(-9 =r51" *GUBVd(E@?FeE' the original data is from MAP,! id f`mSsex diseas̎LiHUI (iKU0L0;j_X;q 1?w + j{TC) >=@Sa`qw6NP_ACGT_Code(i(i)LElQ1"0 0"? U"_jlD" Ziq/aS`Faaax?b /(PercentageQ0le2SstrgSG `H= 0R 0'cle@.` iniProgress.Visi3%FaJ pdseq.BorderStyle+rô <Back`M:NGB(0, 255C.Heixght D,Width+  11 S.rL(0H i  A1.U(!*m.Caption = Round(Percentage * 100, 0) & @"%" .VisiblepTrue8End` With"IBfDoEvs *Sub T! QTP$XT! T lXP T$XT! T llXP hT$XT! T HlXP DT7P  P cP,( 5PT$K lx x +pt! t l>pl /ltq'pt! t l>pF\ !t5\+pt! t l>pl /lt'pt! t l>pF\ !t5\ot! ta\pX! X llT! T l>lH>pL\`P2PLH)XTt5\x DTpt! t l>pl PX! X l>PL 2lL)tXtx t 8 tcx8(5x0 plPLHtXT\P  ll  ll  $5 h "0"0 4 #l ML@< $ <`1p5<K""%lp &1pe"< @F0 " :" !  l>F" x`1x)D6hH0 x*:XNhh #@J/@5hlx*Fh tp5h*:XNhh #@J/@5h]lx*Fh tp5h<' '0:XNHH*#@*Fh /@6hH0 (5xP@DhH0 x`ZClltx! x l>tp #h*#`d! d h2plh`)xd`$5 (tplh`xdT x x 8 xl $5 xh lxtx t 8 ttx t 8 tcTtx t t5Tcx(h(5xtTK:l%,X p p 86cpt! Qtl^7 l 6$ht! t Hlhl Dt7l l 86 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4 8 4:$9d @6/6D4 d cd : l45pldx tD4@L|4px88h    wrU $ `$A `$ `$ `$ `$A `$ `$ ` $ `0A ` 1Ia000, `y00, `y00(  `*nrU |$ `$A `$ `, `a00< ` )0000&$A `$ `( `frmSTRshared[W__SRP_b+ __SRP_aVYfrmHapMart07;;Y N'R$*\Rffff*Eg52274f40*\R1*#33a*\R0*#14*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\. Microsoft Forms 2.0 FormEmbedded Object9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmPedPhase Caption = "SNP tools: Convert SNP data to format of PedPhase" ClientHeight = 5220 ClientLeft = 60 ClientTop = 330 ClientWidth = 5490 StartUpPosition = 1 'CenterOwner TypeInfoVer = 305 End t&'MIkɗx-B~(*9:i:VKJD\!B)!@ z?++PlEN܄x++PlEN܄-B~(*9MEx@SPSSS (>"LL*LL*L PLLLLLL<|<0{3A693A08-E756-4BD2-8F4A-445C9521FEA2}{A5008342-29DD-4021-A109-7A023FCDE2BE}8 @`Pk  ~`|k `Pk  `0 Hoiz  Xij`x`t`p`h`X``X`@T`" P`L`H`D @`%`*<,``Pz+ i ii i@i `@xk b` o&& h`k i ,`x X% %@`%H% Btinclude head l@x @8h ho@PX @hH @8 @( @ @ @  @p`xX` %@vt|th@t @d @` @\ p@ X @T @P 0P hpHx   8 h .rJ@H , @`  @0  %@`  @(  @ @  @  `<%  @   @  p @@ @X @ J@   !@   ! hLJ @ @(  @ $@X ( $@ @ | h &@Xl/ ( &@ \ @H L @ < @ , @0  @x @ @  @ @ @ @ @ @8 @ @ @Pt @hd @T @D $@4 @$ @  @ @  @  8 (H( 0p 2@ X5@/ x5 7@ $:/@/  : @0 H= @/ Pp0=v@ X?@ ?A0IK~@ $N@8/ (N8PP@` px8S/@/ `S @ V @X/ V@ X@X (X8ZHbp`d@ Xg@/ gi@ l/@/ | l @0 Ho @/ he lp0o@p Xqp@` q= s0{}bTab@\ 9 @X @ T @P @H   h`z0@x p(@`PhjnL @l @\ @dL @H @D @X`(%@@r0 @z `%@ @hnj@ @t p`(%0l`(%P@h :dH`(%0p@T @D @4 @$ @ @ X | .\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\R0*#15*\R0*#e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R1*#109$*\Rffff*EX52274f3e*\R1*#222*\R1*#109*\R1*#101*\R0*#f*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b48<@DHLPTX\`dhlp " "(0lah $88@ "HPX "` hpPx  "   ( 0$482` *Ip,7 0 0  .$  P `  p$$@ &N @ P ` x &N "0H        0 @$'PxD &N   ( H &N` @0>        ( 8$'HpD &N     @  &NX    < 0J             (  8 $'H p D  &N      @  &NX     0J  h  x            ( 0 @ X@WxBD    B (8(0h @+p" "$ 0  @P $X $h $x       "   4@ 8x 8 f P 4h  F ( ,0 .`    "       (0 8 $P ` h  px    ) >   ( Dim inName(1 To 2) As StringF(o @A@op v9t |!d t!dA@ 9tA@hC@qo]@XpH]]]]0]H]h z z! %'* *$.. z$!0!'%ѡм0 z$! '"(ѡм'p z$!2'"ʼ0 z$!4'%ʼ0'' j\$rhalf_matrix_col.txt' j   range(Source) J! 1 line 1 sample data$FSample    !selection not include header line   7  5     A@h   7    '  "  ,      7      7     7      7$ '8 <!      '20 ,   'st    'w cok li  <! L!e$1 sample in 2 linesXSample owan   &!selection not include header lineEfo   7 ho or all    !`  A@hX   7    !b'  " '!the 1st col is sample ID ' Step 2 ,      7      7     7      7$ 'obje all ex  _O   ran  '    '    'k    !e%1 sample in 16 linesSample    '!selection not include header line   7        A@h   7    '  #the 1st AMEL which will not be used"0      7     7     7     7$ ' p       '    '    'H k    !e$1 sample in 3 lines Sample    &!selection not include header line(    7  `       A@h   7    ' "0      7     7     7     7$ '        '    '    'k   kq N = Sum = Mean = /  =   SD =       $JVVo         '         e'd'ki` !(@bloSNP tools: SNP Haplotype (Pion. d(fOR_PowA@h, b, c j n!l9lncti n!9 n!p9p99fq0 r( z( 5(@5L(qoPrivate Sub Convert_Click() On Error Resume Next- Me.MousePointer = fmMousePointerHourGlass2 If FileExists(inName(1)) Then Kill (inName(1))2 If FileExists(inName(2)) Then Kill (inName(2))_ saveSNPHAP Source1:=RefEdit1, file1:=TextBox1.Text, Source2:=RefEdit2, file2:=TextBox2.Text With Me- .MousePointer = fmMousePointerDefault .setStatusBar 0? If FileExists(inName(1)) And FileExists(inName(2)) Then" .SNPHAP.Enabled = True% .WinSNPHAP.Enabled = True'' .ReadResult.Enabled = True End If End WithEnd Sub]@ clear and init (f n9f9q  j$@9 n!p9p999fqP dH  setStatusBar (0) n(f (f j  n!9 d$%9P9fq k A@o  Me.Convert.Enabled = True SharedSTR.txtshrae_STR Files (*.txt),*.txt Save txt file B%~ t(dAttribute VB_Name = "frmSTRshared" Bas0{3A693A08-E756-4BD2-8F4A-445C9521FEA2}{A5008342-29DD-4021-A109-7A023FC@DE2BE} dG lobalSpacoFalse CreatablPeclDIdTru BE`xpose0TemplateDerivCus tomizD'D im ina(1 To 2) As Sng P,0 Sub CommandButton2_Click()  On Er@ror Go%out: Text`Box1.qAppation.GetSaveAsFilen(InitialÁL:="Sy@{.txt", tershrae_s (r*A ), Index:=1, Title@R  f"@0'0Me.Convert.EnKd13EndAGRefEdit1_ChangeE? WRun UWith M'.MousePoin5@Sfm HourGlass^ ingH?(BbB f [De`faultptatusBar 0Hid-<2> =G((S/F~,gA'SMWL@ong, jGNwENa c D@ouble,8mg#KX2r0owNoC colStart0*Ktwc'srcSheet Workstrv=FqResuN =# =`A.LeftD., In"!") - 1-S= qeN)A{5Ak@~Step 4#+ _oeCVfall(s + k),OO A01k  jx%OO)M"aB*~k#EO6e>k>2)n, /G 3 0j ?  [3) I"bZ______j__gp_f I363 3 l$3ߣ3_/ Q gQ QQ4QV2 eOpOoA+u+ OOi KO[J?  T+ OpO# Oq OZ蠯ЫOfOԳOWithW 7C, ";N =o`Mean0T"/N/ "SDqr((-h*) N%wCloseS @ !Sub vate 8FunC>11 As `g, 42?2e2x)!Integer &=Qfv2 OrICӰleTl4Ɵ1,_ X{ _p? ed0 1  0Aq' T5Box1_Change(Me.Run.Enablp= TrueH$KUserPhm_InitializOn ErrResume  Car` "SNP tools: Haplotype"Image1.Visi Fa J{@ PercentS.Topprogres1Left !Heigh4gressBar.Height  .Widt h = 0LVi sibleTFalsedEnd WithCommonDialog1.Cance@lErrorhTlruf J2%U M2.Run.hEnad OptionButton2.Valuu Sub 'Private  Convert_Cli0ck()+On `ResumeP Nex' Me.MouseP ointeqfm HourGlass%If FileExists(inName(1)) Then Kill 2 saveSNPHAP SBce1:=RefEdit1, fBTdBoxT1., 2 2  2 DgBBACBDefaulEN setStatuFIAOPCD&@c Win ReadltWIf!AI›0 @(Percentage As Single@)Dim strtr@CJ C'cl ear a@Kini\ProB.R!:p !aBorderStyb(G!a dl BackColBRGB(0, @255d!Ed$EBEZ(0g 瓁04 'EHB* 3-Ca(RoundP* 10/) & "%"? 5#`P!baDo djD4 ( 4:$)d @&/6D4 d $cd *l45pldx tD4@\LdH \9)9`I `A6Q7d9Y:`I hA6Q =la88*nrU $`$A`$`$`$`$A`$`$` $`0A ` 1Ia00      !"#$%&'()+,-/012345689:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefhijklmnopqrstuvwxyz{|}~*\Rffff*Eh52274f40*\R1*#33a*\R0*#15*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#10*\R0*#19*\R0*#13*\R1*#109*\R1*#222*\R1*#109*\R1*#101$*\Rffff*DY52274e18*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#rU H,!Yp pgy1p vy. 4vA;sq3a!uxxx&x)|YɔyQEIAzza{zamy4a8 8A6Q9<A6Qy: @ :<`  Da88HQ79y7`  L :` PA6Q7TA6Q17Xa8\9)9`I `A6Q7d9Y:`I hA6Q =la88pa88l W    W   lKha '(%:8%(H%:X%:h+%x$ x |!  h/)x5ll$5 x<  $5  lx x Pt! tad\`! ` l>\Td`X2XT)t`5dx P xcx,(5x$\XTt`dK4  l M,@ `1<52lJJ|( 00Ā 004pzo( 0 0ŀ0ŀ0fpzopz/F,|$5 T x x 8!x2*\R0*#11*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47$*\Rffff*EX52274f3e*\R0*#1*\R0*#e*\R0*#14*\R0*#f*\G{AC2DE821-36A2-11CF-80%#0 1KkYB1CjFuH{oaA`M CV7lY@A"?I_nVx@A"?I_nVB1CjFuH{MESPSSS (>"LL*LPL LL*L LLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{6198926F-C097-41AE-A1B1-FC82BA600E4D}{E4091AA7-FE9E-43A5-9F56-376CE4B35900}8 @`k x` k  ~`0 |+ ` ho `x  X`h`k  `xk$ `Tk( b`Po0 X`Do>  `|k Ri Sourine 1iSamp  `Lk8 33Viz X i`x`t `*p`xl7`"h`d`` \8%`Z `X `T`P  `H(k ==iz i`x`t` p`"l`*h`d`` \% hX TP8`PR `L h `k i `x0(%X0 %X@X%8% X BtPn@p x @h @ X @( H @@ 8 H @( @ @ @  X p @ B|P @ x x @ h @ X @ H @ 8 @( @ @ @  p |tP@ h @@` X @ H @ D @ @ @ 0 @0 @H  @x @P @ @ @ @ @ @ @  @8 @x @h 8 tr|p@x @Pt @hp @l @h @d @` hP@x @p`xX`%@PL@t @d @T xpPhjn@l @\ @X @T P`HX%Hx`%vtth||@`t @0p @l @\ @xX @T @P @L @H h@D Px@X 8pXx8(6.P@@ @0 @, @( @ @  ` ,%P@` x8h@@ `@ @ @ @ 0`@0 (` ,%X' @h @(@ h(`hH@ @ @| @l @\ h+@L X8 pH06.P@`< @x, @H( @$ @ @X ` ,% @ @( @( X@@ @@p @ @ @ `,%@!hvHx@x @ @P h(#@ P#@ @| @x @t @p @l @ h @8d @P` @h\ @X @T @P @L @H @D @ @ 8(@< ` (@8 p /P1`@( 0 P8 h8nj@@t p`%X%hl`X% @h d `HotsX%etch.O@h T etch@P D VIEW@ 4 PLOV@$ Map2@ "Co@ ( 0 ` N'R$53-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#fc*\R1*#10d*\R1*#33b48<@DHLPTX\`dhlptx|  "ba "`h`ap "  "P? v<PX "`"Zh " "     "6 P  p $ $ $ " 2  ( $R0 $RX &o   T    "   0@" H Pp $4  2*I ,7P 0 0  0N   (0.N8 h px H3   2  X Np  $R ( 0 " 8 @ P h x   $4   2 *I ,7  0P  0p    4c          :30 p x   *x    ( $(  ^P   *v  "0 0 8 X   `   x       $R   "    (8  @ HPX ` $x        ) >  08@HP xFSNP.infoInfo Files (*.info),*.infoSave info file B%~ t(d(@ !P(@o TextBox1_ChangeA@ho(];\Progra~1\Haploview\Haploview.jar -assocCC -check -pedfile "$ |!d"$ -info "$ t!d"$'  java -jar c: $ java -jar d: $ +Haploview is not found in default folders,  Please run Haploview by yourself PInfoA@ko t!d$r.ped |(do`X !P(@o@ 5P(@5(@5L(qo*SNP tools: convert Hapmart0.7 to Haploview (P Image1.Visible = FalseA@h j n!l9l n!9 n!p9p99fq(o, If CheckValidName(Me.RefEdit1.Text) Then v9t t!d$hG t!dA@j |!d$hG |!dA@j | t!d |!dA@ 9tA@h t!d$h |!d$h5(@kq End IfoX  A@  A@oh z Gj]x]]] ]@X]p z z! %'* *$6'*l *$.. z$!0!'%ѡм z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0''   "    7 % MARKER ID' 'kx    7 %POSITION' 'k0 q  2Could not find column of 'marker id' or 'position' PinfoA@k     snp listed in colomn   A@h     7      7 snp qVl H!J % PinfoA@ ox] 87]Ph]]] ]Xp# z z! %'* *$6'*l *$.. z$!0!'%ѡм 7 z$! '"(ѡм z$!2'"ʼ0 z$!4'%ʼ0'   "    7 %GENOTYPE H ' 'k q !#Could not find column of 'genotype' PinfoA@8k0      7 $'      A@h " the original data is from HAPMAP, ped id far mor sex disease7  Sample             7 $' 7    $$v dx 0 0 kP sample qV'l H!J % PinfoA@o] clear and init (f n9f9qX j$@9/ n!p9p = 999fqd setStatusBar (0) n(f (f j  n!9 d$%9P9fqpkhA@oXP@F !P(@(o SNP.pedPed Files (*.ped),*.ped Save ped file B%~ |(dGAttribute VB_Name = "frmHapMart07" Bas0{6198926F-C097-41AE-A1B1-FC82BA600E4D}{E4091AA7-FE9E-43A5-9F56-376CE4B@35900} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD Option 1licit4 P%) Sub CommandButton2_Ck()  Orror GoTo out: Text`Box1.jAppa5.GetSaveAsFilen(In`itial:="SNP.in`fo", t4erIBs (*B),C @ Index:=1, Title@ A f@".Me.Convert.EnEG_1End?DC3C2CpedMCP{GCB BBRefEdit1_Change' TRHAPLOVIEW QDim CmdStr As ingMReszuNL#\Progra~1\loview'.jar -assocCC -check -!C " & Chr(34) d6-'_#&@ -"Kr_f#If Shell("j ava -ac: )e0 Or ( dTheFnGMsg`p "! is no t fou`[in defaul@lders,B v`bCrLfdPlerun G by yourselfSvbOKOnly Au@a9?If@EeLet 0= Pa A^j) + ".`9N V8 UserForm_ActiveWith M apF&`môD.Valuc av,&dizuafj#a k` too`ls: c@my.7 B 0Image1.ViXsib TstatusBr0c'Percen`Ca.Top@1pr=espLeft !Hpeigh=CXWid=  {Q ;bewMfEGidn(ET4,[<xh& MousePoLin`0fm H:GlPGA IA5Exists(l5! Kill ?u;S) ?M;sz0 S ce1:=5,bk S2:=T._hDcP)2Ǝ) AU/.O@= =B@a'TQ &qSub{:(4v4 2z2pCZYEC2J3t ] N S/""At{}K"3(u iALong, jsrc`ArowNocolWPStQϚ+henWorks0V`kerIDs{0B`Xean, onF}` UColES= VBA.qTa, In"!") - 1!A#= valMum@etrNtFMEHler]ISab=eǠI= Rҧs@).RowsPwunt 'ѡм\]Ct / 3 'xДc@Pm) lumn k= H{R`' i00 @`CP2U"C(.Cs( ,}l + i)"MARKER IDc4} KmaF(= iKQ1 Start0, col + i)) = "POSITION" Then position FoundXTrDueBCol>i%8E`IfNext WithIf mar@kerIDfcFalse Or  | MsgBox "Could not fixumn of '^ id' or '*'", vbOKOnly, "info"IGoTo out eOpeBn4le F*Output As #1p srcShee"+i1 /rowNo - 1 'snp list ed inom settusBar i / :()9/PrintD, .CpellsKmaB^@K) & _ vbTabU$~8K8ClozM]ErrorHandler:zVBA .B(@.Number)Qro@ Sub @Evate  saveHAPLOVIEWped(SourceoSt@OUBu(%he;1' the uiginal data is from UMAP,%Vpid f@lmssex dise&GligUhj" " i0kz;Kj_x; Sow;+ jotTo3p+D) >//'\_ACGT_Code(c(@lE Ao"0 0"? 81}j}2g"Jπ6y_ππk̀<  G(PBentagCingle43vs_|H=P 'cpt,r iProgress.Visibp \ pdPC1BorderStyf+r <Back0,c:plGB( 255C.Heigpl /ltq'pt! t l>pF\ t5\+pt! t l>pl /lt'pt! t l>pF\ t5\ot! ta\pX! X llT! T l>lH>pL\`P2PLH)XTt5\x DTpt! t l>pl PX! X l>PL 2lL)tXtx t 8 tcx)8(5x0 plPLHtXT\P  ll  ll  $5 l !0!0 4 "l M@@0 # 0`1p50 p $1pK2(lpF@%,$ , d%l(=&\),(I,'% F@%$ ,a0'((av"ql),(607,'% F@%$ ,a0v"llqh,500,'% F@%$ ,a0"qd,500,'% F@%$ ,a0"q`,50pZpX l\xlhdmNldi@%l`lxi%, &,0 (:)]3,60pZlxqTNldi@%l`lxi%, &,0 (:*]3,60apXlxqP xfckZkX3'':+N:@,N00 60  ] l\xlldlxllȜldlxi@%l`lTi%, &,0ldlxi%l`lPil%( &(0:-. ),(60 xfc= R /,, 0li0 1'L':+N ,6 0L 045p\(,(0L(4 "l M<@, # ,`1h5, h $1hK2$lhF<%($ ( d%l$=&\)($I('% F<%$ (a,'$$av"qp)($6,7('% F<%$ (a,v"lpql(5,0('% F<%$ (a,"qd(5,0('% F<%$ (a,"q`(5,pR l\xlldcldi<%l`lxi%( &(, (:2(]t(6,pRlxqL xfc kRL3'':+N:<3N,, 6,# ] l\xldi<%l`lLi%( &(,:4N, 56 YX/(6,xlXdlxlXȌlx#-*#6*#|lx#x*#t-*#p#l*#h-*#d#`*#\-*#X#T*#P-*#L#H*#D7 2"|xtplhd`\XTPLHDtlpd<vldlti<%l`lLi%( &(,:4N, 56 YT/(6,lTlx0lxrU  @o oYp pg@1pQEpqp1 ! Arrѩ&)q3)!u yAI vI31v!+y. 4vA;4ɬy9xvY% xQ] cx3]xzza{zamA)AQAyA@ 4 :`8Q7y70``<A6Qy: @ :<` DA6Q<HA6Q9 L :<`IPA6Q<TA6Q7XA6Q =\a88`a88dA6Q!= h :9=` lA6Q7p9Y:` tA6Q17x9Q=`I|9)9` oWWWKa '(%:8%(H%:X%:h%x$ x |!  h/)x5x x 8 x ll$5 xKa '(%:8 %(H%:X %:h %x$ x |!  h/)x5x x 8 x ll$5 x8$5 LK:X "h hH@D! D l>@F0 " :" !  l>F" x`1x)D6hH0 x?lx*Fh lx*FH 6hHF<' '0:XNHH*#@*Fh /@6hH0 L(5xP@DhH0 x`ZClltx! x l>tp #h*#`d! d h2plh`)xd`$5 (tplh`xdT x x 8 xl $5 xh lxtx t 8 ttx t 8 tcTtx t t5Tcx(h(5xtTK:l%,XT! QTP$XT! T lXP lT.8@ 81-8-l*#7 2-9*#7 / tf< !: xfc=#R /(( 0li, 1'(':+N (6 ,(# T(H50h\TlHXp8|xtplhd`\XTPLHD($,( t! t tt! Qtp p p 8;cpt! Qtl^< l ;$ht! t Hlhl Dt7l l 8; l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4 = 4:$>d @;/6D4 d cd ?l45pldx tD4@L|4px88h    w0, `y00, `y00(  `*nrU 8(8`0(8`0(8`0(8`0,!8`)00,I8`p,8+ N'R*\R1*#338$*\Rffff*Dp52274e18*\R0*#15*\R1*#221*\R1*#fc*\R1*#10d*\R1*#33b*\R0*#14$*\Rffff*DY52274e18$*\Rffff*De52274e18*\R0*#10*\R0*#f B  , H`x8>>Jq@B H $P x&8 ,>8Ph (   B 8> >@Jq`B  , R H`x8>>JqfoCompObjaVBFrame>D|0q}kxME01> LL <4<8<<<By%P-8-%+`,k` iB D`h(d F8-dA@h] H` `*X`P@`H`,@?+ `.k  iB'" Dh'p FdP8 H`p`*X`8/P`Hne 1`, @`<`8+`0k` iB D`h`* Fd H0` `*X Che`Pit1.`H`,@!d+`(2k 'iB | Dh9t t!d FdP(q8 H`  p`*X`Pj`H`, @+@`84k0  5iP$6i. Fh Hd z$`*0\$`T0`L`,pD +0`H68k @i i Fh  Hd(+ `X88kp Fiiiii  i$ Fh` H  Hd  + `h:8k Li i i@ i` i  i$ F` h   H d  + `x<0kP Rip i i i i  i$ F h@ (  H dx ` + `>0k Xi i i i@ i ` i$ F@ h   H d  +` `@0k0 ^ihAPipiii i$ Fh  HpdX@+ `B0k diiii i @i$ F hx Hd+ `E8k ki0i FEhh Hd+ `(Gk ri i FhpX Hd`*\`T`L`,@D+``8IkP  }ipi Fh Hd`*P\`T`L`,D+`HKk  ii Fh HdH0`*\`T`L`,D+`XMk  ii Fh`H Hd`*\`T`L`,0D+P`hOk@  i`i Fh Hd`*@\`T`L`,D+`xQk  ii Fh Hd8 `*\`T`L`,D+`Sk  ii FhP8 H(Tdp`*\`T`L`, D+@`Uk0 iPi8V Fh Hd`*0\`T`L`,pD+`W,k ii+@`xZ,k i i+`H],k ii+``k8 i   tpX`p X+`aX+i. (iHi0h `+ `b k iD hP 8 `d` `+!`0d k  i i  Fh8! !`* ``X` dP+#`ehk! i !i"i("iH"i!h"i "iF"$ F!t"" Hp#"`."h`0``"X`2PfP`4H`("@va+`$`j|k#i $i# tX$@$+@%`nk$  /i Fh$$`*$``X` P+ &`ok% ;i Fh%%`*%``X`"P`$H`&@`(8`*0`,&(`  +.' `pq`k& Ti  Ft@'('`.'l`0d`\` T+0(!`sk' ! gi(i FhX(@( Hd(x(`*'\`T`L`,((D+2H*"`uk8) " riX)i Fh)) Hd))`*8)\`T`L`,x)D+4#`xk* # ~i*i Fh** Hd0++`6\`8T@@` #``$H*( 0  'P!@%@h+ @&(@Xp-x---8-`-`l >@0 @- @ @  @- @. @ . @8. @P. @h. @. @ X///8/p/P/`l `/8/@/( @/ @ @ @0 @ (@Xp 11P1h1000`l 00@0 @81 @ @  @1 @1 @1 @1 @1 @1 @2 @ X2033`3x3232`l 22Z@0 @H3 @ @  @3 @3 @3 @3 a @3 @4 #@ 4 @ 4(P@5(5p55454`l %s54on=ene>ppNam=@4 Of@X5$ ue@ es@ @5 ur@5 ft@5 @5 Of@6 dC@6 P@06 s @ po67@87876 77`l GetF76InfoSip7sio>lInprc7`P7 InX7787-%0@\ 2xX7 0277::%<:@7T allo@8P ::@(8L vect@H ;<:@8 <<:8h  p0 9P:9H98099`l ff 98\re9.cp>5?<:D<:X<:<:9``9 X<:h99H9inva@\ in cX9 on99end@:T ic@ :P ac@8:L ge@H @8 ! @ ; <`<;X;;@; ;`l X<:0;;<:,::;<::?<:|::W<:DC<:<:;`p; UC<:x;;X;<:l::@\ V?<:X; M<:;;<:X<:@<T UC<:@0<P e<:@H<L L::@H V?<:@8 M<:H P p  =>>=p>h==P=0=`l DC<:@==<:<:=<:%h<:V<:l::5?<:<:=`= 5?<:=>h=<:V?<:@\ 1)X= nu==<:DC<:@(>T <:@@>P ::@X>L <:@H M<:@@ :?<:@0 %h<:@? ` 8@@?@?@?x?X?`l iph?@? is?quanXot expected::?`? V?<:?(@?d map/@\ 5?<:X@ ?@?@P@T @h@P @@L @H @@ @0 (0P`BBBBAhAAA`l AhAAhB`A APBA@\ X0B 8BB@xBT @BP @BL @H @@ @0 @C`DE(DDCCCC`l CCDj@D`C DxDC@\ XXD `D@D@DT @DP @DL @H @@ @0 P0FGPFFEEE`l EE@FhF` F (FFF@\ XF FhF@FT @FP @FL @H @8 xG 0HH`HxHGHG`l GGV@4 @HH$ @ @ @H @H @H @H @H @I @ I @ 0HpI@J(JpJJIJI`l JIX@4 @XJ$ @ @ @J @J @J @J @K @K @0K @ KPhPL8LLLK LL`l LK>@4 @hL$ @ @ @L @L @L @L @M @(M @@M @ Mh`NHNNNM0NN`l  NMX@4 @xN$ @ @ @N @N @N @O @ O @8O @PO @ P 8`pPXPPPP@P P`l 0PPV@4 @P$ @ @ @P @P @Q @Q @0Q @HQ @`Q @ R@XpRhRRRRPR0R`l @RR>@4 @R$ @ @ @R @R @S @(S @@S @XS @pS @ XTxTTT(T`T@T`l PT(TV@4 @T$ @ @ @T @U @ U @8U @PU @hU @U @ (PVVVV8VpVPV`l `V8VX@4 @V$ @ @ @W @W @0W @HW @`W @xW @W @ HXXXHXX`X`l pXHX@X\ @XL @X< @Y, @@Y @(Y @XY @Y @pY @Y @Y @Y @Y @Z @HZ| @Zl @0Z\ @`ZL @< @, [ h[[[P[0[`l @[[@[\ @[L @[< @[, @\ @[ @(\ @p\ @@\ @X\ @\ @\ @\ @\ @]| @\l @]\ @0]L @< @, ]8^P^] ^^`l ^]@h^\ @^L @^< @^, @^ @^ @^ @@_ @_ @(_ @X_ @_ @p_ @_ @_| @_l @_\ @`L @< @, x`@@a(apaa`a` x``a`@D @Xa4 @$ @  @ @bH(b@bxb xXb`bb@b@X PcX p cccPcchc`l xcPc@dP @c@ @0 @, @d @ p!@!X!!8e eheeded`l dd@@ @Pe0 @ @ @e @  0#"H"`###H#x#h"gfffPffhf`xxfPf@0 @f @ @  @g @0g @Hg @`g @xg @g @g @g @g @g @h @ h @8h @Ph @hh @h @h @h @h @h @h @i @(i @@i @Xi @pi @i @i @i @i @i @j @j @0j @Hj @`j| @xjx @jt @jp @jl @h $xk($l(lkmklxkkk`xkxk@ld @kT @mD @@ @@l< @Xl8 @pl4 @l0 @l, @( @l$ @8m @  0m m @Pm @hm @m @m @m @m @m @ @| (%$%$nooHo`onnn`l nn@xo@ @0o0 @ @ @ @o @ & &8&Hp&%%%P&h&ppppHpp`p` l ppHpB@(q @p @ @ @q @ @@q @Xq @ `'r'&H'x'xr`rrrHr(r`.x8rr@rD @r4 @r$ @  @r @s @Ps @ s @8s @hs @s @s @ @s @sp @` `(t(((((ttu0uttt`0l tt@4 @u$ @ @ @Hu @`u @xu @u @u @u @u @ v))**0*X)vv(w@wvvv`2l vv@4 @w$ @ @ @Xw @pw @w @w @w @w @w @ +8+***xP+yx8yPyxxx`4l xx@D @ y4 @$ @  @hy @ x$$ h+H*h+@ B HP`88Jq  (B 0HXh2MxB 2MHB Phx2MB (2Q@xB 2Q B  0 @ X 2Qp  B     2Q @ B H ` p  2M  B    8 8 8 JoH     B    8 8  Jo0     B    8 8 HT JqP  Jq  B  8@8X HTpJoJo`hB px88 HTJo pJoxB 88( HT@JqJq08B @HX8x8 HTJo@JoHB 88 HTJoXJo B B 8B @HB  $ HP8p2222 B  $8Hh  B  $ P80H X`h (  B 8 8=8 p B  $    88Ph8 0B 8 l@   80v  " :  ` <x  B 8,, ,,@  'p  B       8 ,!8!P! h!! ! ! !! !"("h@@"J"" B " ^" 8# P# h#p##8##### $r$$$$$B $$$8$8% %Jo0%% %%%B %%%8%8%&Jq&h& p&x&& B &&&8&8&8=&8='"P'x' 'x]h+ %this result will be about risk allele0bowang Nov 20,2007]a](@Xp(d B,$'D$D:$'FA@h$D:$'H$F$$F$$H$$H$$>'icalculate MAF for control onlybowang Mar 14,2008] X] B,$'D% caseAllele = Split(Ratio(0), ":")s, $D:$'Hview b$H$'Info$H$'  $   $   'dXmono'@k@i8 ](](@Xp B,$'D$D:$'Fmart0.$D:$'H $F$$F$$H$$H$$'iH&this result will be about minor alleleon1.Kwe don't need a new p-vale function, it will identical value of risk allelebowang Nov 20,2007] X] B,$'D$D:$'F$D:$'H$F$$F$$H$$H$$Z'i]p]( /$'F /$'H F $F$$F$$H$$H$$>'d'ki@Jallele] $'F $'H$F$F$H$H$>'iH0~allele]0 h   $'F   $'H$F$F$H$H$>'i allele]    $'F   $'H$F$F$H$H$'i allele] H   $'F   $'H$F$F$H$H$V'i allele]    $'F   $'H$F$F$H$H$X'i allele](   $'F   $'H$F$F$H$H$h'iP`allele]`   $'F   $'H$F$F$H$H$j'iLallele]P $'F $'H$F$F$H$H$'i0]@x] /$'F /$'H F $F$$F$$H$$H$$V'd`'kPiH]]0H /$'F /$'H F $F$$F$$H$$H$$X'dx'khi``]]Ph /$'F /$'H$F$$H$ $F$$H$ $F$$F$$H$$H$$>'dX$F$$F$$H$$H$$>'ki]0h] /$'F /$'H$F$$H$ $F$$H$ $F$$F$$H$$H$$X'd$F$$F$$H$$H$$X'ki]] 8 /$'F /$'H$F$$H$ $F$$H$ $F$$F$$H$$H$$V'd$F$$F$$H$$H$$V'k0i(P]]@Xp /$'F /$'H$F$$H$ $F$$H$ $F$$F$$H$$H$$>'d $F$$F$$H$$H$$>'k i ] X] /$'F /$'H$F$$H$ $F$$H$ $F$$F$$H$$H$$V'd $F$$F$$H$$H$$V'k` iX ]p]( /$'F /$'H$F$$H$ $F$$H$ $F$$F$$H$$H$$X'dP $F$$F$$H$$H$$X'k i @   $##0.00$ (  $##0.00$,  $##0.00$)'iX    $##0.00$ (  $##0.00$,  $##0.00$)'i @   $##0.00$ (  $##0.00$,  $##0.00$)'i( NOV 17, 2011, Bowang Chen/DKFZAoutput the 3 allele from the out of PLINK, such as "345/567(/234"]@x /$'$$$$ +$$$$ + 'iDec 09, 201, Bowang Chen/DKFZ] .  + 0  + 'ihApr 08, 2008, Bowang Chen/DKFZIoutput the MAF of case or contro from the out of PLINK, such as "345/567"] X p D/$'  'd$$'$$'    $   'd('kki ]!]@!X!]p! /$'F$F$$F$ $F$ '    'dh'kXiP!to make a meta format with UK Oct 20, 2011Bowang Chen / DKFZ]""]#0#H#]`#x## /$'F$F$'.$F$'$F$'0 /$'H$H$'2$H$'$H$'4- , .,  , ,  , 0,  ,  .  0 , 2,  , ,  , 4,  , F 2  4 'i#eto convert back UK meta format to plink ("rs10000976,781,GG,471,GA,68,AA,1,3181,GG,1766,GA,251,AA,1") Nov 18, 2011Bowang Chen / DKFZ]($ ,$' $;K $ $/$/$ $/ $/ $ $ % $ %$ ' If index = 1 Then 'case4 merge2plink = f(1) & "/" & f(3) & "/" & f(5) Else 'control6 merge2plink = f(8) & "/" & f(10) & "/" & f(12) End Ifi0`$]$]$%](% /$'F@$F$$F$ '*4::$F$$F$ ' * $ *  'ih@%]%]%%]& &8&]P&h&&]& /$'F$F$'"genotype observed$F$'$@$F$'&:: " $ '*alle & $ ' *  '  * '*freq  ' " $ & ' @ * * '(0:: *  '*::   ',@ " (  " (  ( $ *  $ *  * & ,  & ,  , '   B!%' ::::i0&Xto calcule the % of AA/AB/BB, not including NoCall, from the plink format AA/AB/BB count July 08, 2008e=:Bowang Chen / DKFZ]']H'`'x']' /$'Fй::$F$'.P::$F$'$F$'0 .  0 '   d:: . d$/  d$/ 0 d$'.x::dhFailed'.kPiH']((`(](((( /$'F0:: /$'Hf=: F $F$$F$$H$$H$$'0dx'0khi`(]x))::])**0*Ļ:: /$'F /$'Hа:: F $F$$F$$H$$H$$'2::\::d'2kixH*]*+]8+P+:: /$'F /$'H$F$$F$ $F$ '6$H$$H$ $H$ '8 6 8 '4`::ixAttribute VB_Name = "OddsRatioHaploview" Op@n Explicit Dim myExcel As New8.ApD~n Pubb FuncOR_(al`llelemESng) Varianh'this result will be about r0isk CB 'bowang Nov 20,2007 r(Xc, c0aseA? ontrol &aPDole, b zc dBSt ~, ",")L_0):S1 A(Val(A0) 1E c@ 1End{MAFc -cal0cula@ for  onlyGMar 14A8CTGoC=0ALongF1E_'()0@D@`w>1?If Min(E G) > 0 Th~ea1B /R +E@1gElseC8 "monoAUIfG W;_P` P˓/HC P RR~)_minor8[тgwe don't need aw p-valeD f$, iidenti ue of??ہ:?w/%#m5o/%u m/% "/Kx/%Es#"#W~7k7%bZ8%_n 0Plink(AFFE]UUNr=eB8y?FTd /f i_UBound) < 2\_%@//#a"`___genoK 'os:5TsiACs_&pJR x(:a8k 2t_6sABABB8AA24BB5  2 3q s(AA1, , @ _=/2!@ 7Bzk 0bP1 O3  >A2!Rp R_CI95L?&D%uble) As Variant 'allele Dim caseAL(Do, conptrol4tl = Hs_3genos(AA1, ABBB1)7/ N222BB22OR_CI9p5L_6V3(0)1 1)0End Function Pyic 4U=hm rA2 B o zjfGGfUf ^fX2eπe??, FdX2?d2_SE52e1 cds Cndϔ?%? Q2e#SE2`P_Plink_!(AFFE!/String, UN ++b5paDu$'i)P))덳)b)џ)#!%1ÉCGa5#+, bcdc St , "/"leSRiIf U Bound) < 2 The(?0d"!3ValPz<@y,@p{-|4 ElsČ31.""AIfLbllc3a U3uSs uc!ᣯzUU(d9?le(0)o`!.=he14B0)RP   s_=Ik_=~j_=gc  +8 >=2))?qAA#ddsRaз#@W!1(A# ge( Ie`Gz2ϿG)6))߳*G)) ))= ))'M')B))) CA!3~L?!KT_)/ku1o9o)jal(controlAllele(2))) End If  Function Public @ OR_Plink_het_CI95L(AFFE As String, ,UN" )Va riantDim case /< :aPDoe, b c d ;r = Split], "/">h '0If Vd0)8) + >= TheˁM B1)), 5@ % +ńlse;!Ϩ!A!om?A?@? g?%R RomQddsRa(Q8> eAGQRb;_'W _Qom/"D blScO5HӅ.RR/R(DOWEeBH_S溭_SYSUR|e||)sd)|R| |$N)|)Sq|)6RT4!U)US|IқoeQ%) Sb1og(')L  formaGxFSa_CF#@"##0.000") _"qE& " (" & /]t_1 ",?O`!)"=oboeongoo oo$YooKO)o&D /// 7gT o -*/E.p/-C{s_\nk 7Z(G'NOV 17, 2011, Bo@wang C/DKFZc5'output the 3 aRS frP of PLINK, such as "345/567(/x2340a5ds(,i1 Los 2dSspA3b(s0)U * 2$U S1]b_V:R/?+?E3ge nos(aZuab@le) As Double()  'Dec 09, 201, Bowang Chen/DKFZDim alleles(2:20) = aa * 2 + ab :1:bb AU_3genos? End Functio@n Pic MAF_plink(ra#StringVariant'Apr 08q'outpu t the- of case or contro fromPLINK, such as "345/567":IN, a0ULong1WSmtm, "/"If UBound() < 1 T/ #"GEl se = VablE(0)a1I1I x`1 > 0M in(a0:) / A1%ύE0If1 C@JRate$_PA_G(AFFEA^dtot|albrC(s"z, bGsum@\|&I|A jH kRh@i2nmC9Ϗ60$/ bcK5Mw53mxmerge_forma`]sID#d3bcA2i7UN-C`wsAmCBxl&J8'to make a meta  with UK 'OctB1Zä<(2 ,lzH>a!HH hrJcc)ddcGM෱MabN`.OC6]6%Ɠ` )NraN& "," & @F1DbDQEEH cP- b - _c& ஠JH EHYF]- ` ddda8u23u$7index43vert back 3j452 ("rs10976,781, GG,47`A,68,AA,1,31c1766,GA,251o@'Nov 1R|1_8]8f_Zfv' `'>,euA?ch( Eg= lJfr,= f(`/$f(3f)a#5)_2, f(81)712xp3, VBA.Left(fP, 146@2!uLaa5 'B;' 5}'!cp<x X+/en~ ,+DЭQ#Yq0SZc<rƵcGP}a U}#Vs_X)OCAG`=b`BHWEpϔs obss, "expzz!iR hk 'typbserveYH&:2\l#(B##{H'#"2!ۑa'freq{c!bc0wc2S`0p 1 vq1zc- ./ra1o`* b1d2ccb H.ApmcQn.Work sheet%.ChiDist(P 1Y53o5j5LP0ucalcul e%AA/AB/BB, not includ1 NoPfrom the plink format AA/AB/BB count 'July 08, 2008aa*Double,h bb a 1sum$d = St(AFFE, "/")"g@= Val(0)b7 1IM2F= .+ V+`7If  > 0 T CallRate3_P_Geno>Rd(#/* 100, 0) &a _ "& b;uElseG 0"Failed" nd If EFunction Pyic  ORApowermv, UNqVariaAW,ntrolƞ c d7coHxC4UB~) < 2 JLϴ,͹ %(b>N"_=R=<:0N  lh 6 Y d6 >:0N  lh 6 Y `6 qld tld tl` tl` toooo  lD@ 0H5.l`@$h-Pd-D \8:(N 6 Yh6>:(Nlh 6 Y`6l` q<l` q88M@:0N  lh 6 Y d6 >:0N  lh 6 Y `6 qld tld tl` tl` toooo  lD@ 0H5.l`@$h-Pd-D 08:0N   6 Y h6 >:0N  lh 6 Y d6 >:0N  lh 6 Y `6 qld tld tl` tl` toooo  lD@ 0H5.l`@$h-Pd-D `8:4 N$$ 6 Yh6$8:4 N$$ 6 Yd6$lhqlh tlh tld tld toooo$ $l :4 l<5$ldh.$|l^ Y\hl^ Y\dMld.H@ld.L@lh.P@lh.T@8 -T-P-L-H8lD|P58l`Xdldht TPLH8lll^ Y\hl$l l^ Y\dMld.H@ld.L@lh.P@lh.T@8 -T-P-L-H8lP DP58l`Xlddh TPLH8lll^ Y\hl$l l^ Y\dMld.H@ld.L@lh.P@lh.T@8 -T-P-L-H8lP DP58l`Xlddh TPLH8lll^ Y\hl$l l^ Y\dQld.H@ld.L@lh.P@lh.T@ t@-T-P-L-Ho@k0l: e LP58l`XXddhh TPLHlll^ Y\hl$l l^ Y\dQld.H@ld.L@lh.P@lh.T@ t@-T-P-L-Ho@k0l: e LP58l`XXddhh TPLHlll^ Y\hl$l l^ Y\dQld.H@ld.L@lh.P@lh.T@ t@-T-P-L-Ho@k0l: e LP58l`XXddhh TPLHlll^ Y\hl$l l^ Y\dQld.H@ld.L@lh.P@lh.T@ t@-T-P-L-Ho@k0l: e LP58l`XXddhh TPLH|:4 N$$ 6 Yh6$8:4 N$$ 6 Yd6$Tld tlh tld tlh ooo8olh tlh tld tld toooo k4lolh tlh tld tld toooo k4l<5$lddhh$8:4 N$$ 6 Yh6$8:4 N$$ 6 Yd6$Tld tlh tld tlh ooo8olh tlh tld tld toooo k4lolh tlh tld tld toooo k4l<5$lddhh$Pll\  ll  ll  :LN<<\, ,: :N ::|Nll\ \L:<,l6\<, l\L P(5lD\<, l\L,Pll\  ll  ll  :LN<<\, ,: :N ::|Nll\ \L:<,l6\<, l\L P(5lD\<, l\L,Pll\  ll  ll  :LN<<\, ,: :N ::|Nll\ \L:<,l6\<, l\L P(5lD\<, l\L,(8:D N44 $ $6 Y t64$2lt tlt oX2lt tlt oX XY xLdd5LxLX :Plt4$@ 볃`볃` `YXx$@\5BxX`lttX 8:P N@@0 06 Y,h6@0lhZ :P llh qdlh q`ldl`(`M@dMP@ ldl`k l :P l p45lht@08:@ N00  6 Yh60 =lh tlh t lh oo tPoPk@l :@ lp45lh p40 lt8:0 N   6 Y t6 lt thlt tXlt t`8:0 N   6 Y p6 lp tPlp t@lp tH *#oh#*#*#*#*#*#oX#*#*#*#*#*#o`#*#*#*#*#*# ohoXo`#*#*#oP#*#*#*#*#*#o@#*#*#*#*#*#oH#*#|*#x*#t*#p*#l$oPo@oH#h*1x2R|xtplhD t<5$xp,0t+|xtplh 68:dNTT D D6 Y@t6TD   lt@M@  lt *#<lt*#8 *#4lt*F  lt *#0 lt*#, *#( lt*F  lt.$@Md@T  -$T  lt.@M@D  -D  |  Z|`1x2 <840,(5| 4~5xt*#|*J$<840,(TD| plv8:@ N00  6 Yh60 ,lh tlh ot`,lh tlh otX'XM@`M@@ o`oXkl 45lhlt,0 8: N 6 Yh6lh tPlh tHlh t@oPoHt`o@oHtX o`oXt o`o t` oXo tXoPoHo@t o`o`o t8o`oXo t0oXoXo t(@oPo8oPo8o8oHo0oHo0o0o@o(o@o(o(t J @k% $! " #ABkl)5 45lh 488:D N44 $ $6 Y t64$lt tllt t\lt tdolo\odtT oT&oloTdk4$ $ $: o\oTdk $ : odoTdkp $ p``1x64$p`0%Cx845xt4 4$p`\ 8:4 N$$ 6 Yh6$8:4 N$$ 6 Yd6$lholh tlh tld tld toooo &k4l :4 l <5$ld: eh4$`8:4 N$$ 6 Yh6$8:4 N$$ 6 Yd6$lhqlh tlh tld tld toooo$ $l :4 l: e<5$ldhh$`8:D N44$ $6 Y h64$8:D N44$ $6 Y d64$=lh tlh tlh oot\=ld tld tld ootTo\oTkDlel<5$ldhh4$      !"#9__SRP_39_cR__SRP_3a__SRP_3bbe*)00@q8`AQaq++++++@8`AQaq++++++@8`AQaq++++++@8 `AQaq++++++@8 `AQaq++++++@98 `AQaq++++++,a8 `)00,8 `)00,8`)00,8`)00,8`)00,)8`)00,Q8`)00,y8`)00,8`)00,8`)00, 8`)00,18`)00,Y8`K048` K+++(8`0,8`0(D8`)9Qi00000((,!8`! 0((I8`0(q8`0(8 `0,8!`)00,8"`)00,8#`)00nrU~| ;:,J  @}3&aR KQ$Arial Unicode MS8KEFҋB `EF(2<( Soruce datatq{5"Tahomane!H${5"Tahomane( Result datat{5"TahomaneH${5"Tahomane(Runo{u"Tahomane"('usc~g<-factor(c(rep('A'L,"@6.C@Vs@.Count)E_- ", B 2 C 3 "))7+Fory{= rwi ["7 Each2 BIn{4(i)G H&C @Y,A NextALeft(E, LenF) -| 1m3}&0A:%$i#&C)FE= ");kz.tes@OD8TEnd2#h G`P_dwCSf2iA4 h߃Bv߃S}N߃ ԃdc.df߃`߃p߃=߃"!far>߃ փ2A} ,MA *A? lArLLQ Hk@i `x)y|9w 9izAQ 4ah|o,o,o,, #*1x/Haav"#*#*#*#Haav"#*#*# *#Haav"#*#*#*1D2)6 tdx  ltL;lt,dh1ltLFd:X `#ltL;/6 dhmEltLJltL@M@ :X`#ltL;/6lxltL*# *1x/ tfxNflxJxM@ :X  F:H`1x6 x4|5xxhtD,: LtPd\Lo,o,, #*1x/td -  ltL;lt,d1ltLFd: `#ltL;/6 dEltLJltL@M@ :`#ltL;/6lxltL*# *1x/ tf iflxJxM@ :  F:`1x6 65xxD,:X`# LL 1x/d$f  @ho (rU :H:`IA Y a0=Y=Y=Y<:` IA Y 0=Y=YnP`rU =$=`$A=`$frmPhasee__SRP_3df$J$__SRP_3c.?frmCommonStretch"Zf*\R1*#33a*\R0*#15*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#f*\G{FF277BDF-5EAC-4874-A079-AC0B5AF8188E}#1.2#0#..\..\..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\R0*#11*\R4*#28*\R4*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#53*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\|  kxME (86 <@ +:`8Hk@i `x)%)%)<A@h%`t`d pL8 `>Dca 8,rol p +@``ki )%)8%`t`d pL`>@D 8,ne 1 X0%@X@`@pXp (`:x 8@ @  @ X@ %@ @ %@ @ @ @x @0 H@H @` @ @ @ h@ @ @ @  l@ @H| ho`  @x H @t p @p  @l  @ho ( @HX 8H@H pXhp 8H P`@xvt( @  @`@ @  @   @ p  @  8  @ `  @o H h @ @ @ H   @ @ p @ 0 @ h N'R*\R1*#222$*\Rffff*Dq52274e18*\R0*#f0 B  8HXh (,x 4p  "1 4E  @XfPB   (,0 4XH `p "1 4E Xf(   x]]@]X +8 +8 <+8 -_$<-list(':- myStr = Replace(SNPID, "-", "_") & "<-c("% g<-factor(c(rep('A', !!) ,c(rep('B', !!)) ,c(rep('C', <!!))))'> ?c( +p  $8 $p , +p '" $p $p $) +p$D : $p,':$H Info : : $);kruskal.test( -_$)':iP]@X]p] +8p +8 myRange(3) = Range3: -_$<-list('@- myStr = Replace(SNPID, "-", "_") & "<-c(" myLabel = "g<-factor(c(rep('A'," & Range1.Cells.Count & ")" & ",c(rep('B'," & Range2.Cells.Count & "))" & ",c(rep('C'," & Range3.Cells.Count & "))" & "))" 0,2007c( +p  $8 $p , +pD : $p $p $) +p$F @ $p,'@$H $H @ @ $);kruskal.test( -_$)'@ixpAttribute VB_Name = "R" Option Explicit Pub, Funclcreate_KruskalWallis3(SNPI@D As Sng, Range1" 2 3F) = Dim iLoPcell Varian#my5(1 To 3D, myLabe4 WmyJ+)1J 2 2 A=~3 -eplaceA, "-"_") & "<-t..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\R0*#10*\R0*#17*\R1*#9f*\R1*#9e*\R1*#6f*\R1*#222*\R1*#109*\R0*#19*\R0*#13*\R1*#109*\R1*#101*\R0*#1*\R0*#e*\R0*#14*\R0*#8$*\Rffff*EX52274f3e*\G{AC2DE8#A./SkhpDKG\C4*A"<LLLL**LLPL LLLLL<<<<<<<<<<<<<<<<<<<<<<<0{5C471C1A-BD97-43C7-8318-342AA741D03C}{A298FC4D-BBD0-4931-AC11-9E7D7C9A4599} %% BtP P@ x xp(p 0H@`h B` o`t`p`Dl`Fh ` xk6 H`x |k: 0`0o22Aij i@ Cx%`2t`p`l p`lk s b`i0 @HP X`hp x    `    4R(`h "p Dx&+ (*="$@"$h "(   $ $ $ ( 0@Xp   ( " (5 <8  6xP   , ,8 h p x B  (        "     ( 8 H $4P x " 2 *I ,7  0  0(  H  X  $` 8p <  $  $   8  "P &Gx     "       $ H 4G` Hr " Ry ` xHr"Ry P h  x , 6 6 8 P  h "&G    "  0  @  tP$G:r"H@yp  :r"@y@      ,R ( " 08 @ `p  x   $       ( )0 >H  hpx x] *.nam, *.dat]*.outX](]h] ,cC:\Progra~1\SNPHAP\Phase.EXE 'DC:\Progra~2\SNPHAP\Phase.EXE 'F$$h D$h D $ $'d F $ $'kk  $'Info  :&PHASE is not found in default folder. Please run PHASE by yourself PInfoA@d( !N(@ko !P(@ o$$A@$$A@myStr $$A@ & "<- B@h End'oPH]]ul] @ B%..B H!J F!$FD B!.%L.B @ B( Chekl BB@H$B@H B@H!d G:\Chen\Data\SNP\SNPHAP\snp.out1 TEXT; jNA1$P J!L%Lsnp_19t9R9T9V9X9Z ^9\9`9b9d9f9h9H9j n9l r9p9t9v9x9z9|D9~9JLC@q( l H!J % PreadTextFileToSheetA@ o0= Let TextBox2.Text = ParseFilename(TextBox1.Text) + ".dat" t!d+" & ".out.txt"! Let inName(2) = TextBox2.Text$$r.out.txt+$_freqs+$_pairs+opSNP tools: convert to Phase (PA@h j n!l9l n!9 n!p9p99fq L(H Info+$Ffreq+Hpairs+ 5N(@alle" .WinSNPHAP.Enabled = False9N5L($q(o  v9t$$hG$A@j6 If FileExists(inName(2)) Then Kill (inName(2))$0 saveSNPName RefEdit1.Text, TextBox1.Text' |!d t!dA@ 9tA@h`$$h$5N(@ % .WinSNPHAP.Enabled = True& .ReadResult.Enabled = Trueallekqo  0 -?'PHdH 'Pk8i0p z Gj] 8$]Ph]] z z! %'*l *'$'* *$.. z$!0!'%ѡм z$! '"(ѡмж z$!2'"ʼ0 z$!4'%ʼ0   J!$ 1the original SNP from Affymetrix chip, all genome 6selection includes SNPID,chromosome, location and SNPs " N of indiv  N of lociP $   #SNP$F    7 F   #SNP$S>'   " #sample  " A@h    7? sample ID$H    7 %$P[1st SNP   'SNP$      7 %$Pf 2-other SNPs$ snp    7 %|$P[1st SNP   'SNP      7 %|$Pg 2-other SNPs$ snp$H' sampleFdx & the original data like Kerstin's one, / fewer high density SNPs around 1 or two genes. / selection should include a colomn of sample ID   " $HP $  " #SNP$    7H >'  " #SNP$HS$    #Usample 'SNP starting from the 3rd row (the 1st row is SNPID, the 2nd one is Location)   A@h    7$F    7 %$PV'  " 'SNP$F      7 %$P snpp    7 %|$P$  " 'SNP$      7 %|$P snp samplekH q@ V$( l H!J % P saveSNPDataA@  o ]0 clear and init (f##0. n9f9q  j$@9 n!p9p999fq0 d(  setStatusBar (0)0. n(f, (f$ j  n!9' d$%9P9fq k A@o x Fo Fo !P(@ !P(@HSNP.txtSNP name Files (*.txt),*.txtSave snp name file B%~ t(dSNP.datDat Files (*.dat),*.dat Save dat file B%~ t(dAttribute VB_Name = "frmPhase" BL|0{5C471C1A-BD97-43C7-8318-342AA741D03C}{A298FC4D-BBD0-4931-AC11-9E7D7C9A4599} dGlobal!SpacFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit Dim ink(2) As Sng '*.nam, *.daout she6e3PW[ Sub CommandButton2_CGk()  OPrror GoTo :TextBox1.@NApp aA4.GetSaveAsFile@-e(Initial,:="SNP.txt", ter A Bs (* ), Index:=1, T0itle  sTnpf"/Me.Converpt.En_y3EndAAED3DD@wDDatCC C uB BBK KRetValaTDou`lC!HcmdGW, 1=2MResuNL#bC:\Progra~1\`HHAP\.EXE aV`2@R"g2v If",Exists(o1)) ThenC A- & " &%z1)&Ow0TE!e5C 2_ (J ZIf?#!\e#7= @Shell(` , vbNormoFocusF0,#Msg "PHASE is not fouin defaullder.B"vbCrL8f _c %PlBerun # by yourselfbvbOKOnly, "Info=&~ReadHlo~ !d hangeEXA id% FTo1etsAD, e<91Z))1d892*2$Hid'& v At(G? i?R TBOu0tputs oWork!row!Long trg7sM?Ext! S`= Yls( 0Err.Number 8<> m0.A dd(Af[:=s(kunt)4 H .R=#!?A=z orbH}ler.SelecC@$s(u1).c`9'G:\C@Q\PiaQUUw.41sWith A ct@r.QuehryTxs@yn:=I@"TE0XT;"N%$, @Destin:=R"8"A1"ee"`_1A.FieldAsTqRow8lAdjntF@Qulao . serve)!atp gRefreshOn>pOpen 4StyҪxlInptD@te Passwor  ColumnWidY@= M Po0xEJ xmptOnD bPбFf 936eStart#a_Typxlimite deQualifi9= xl3QuotM!a (secu*5r p,_>Semicolonm02Ή? t 1Q +Array2> , UaTrailingMinus1 5Backgr!~=:= !I!@ccIĔVBA.J(PVPioftp>{`i_C{lL_2P&B˃) + "ןEv"'& " `7APJМ bVQp=_Hqs uH _pairab Private Sub UserForm_Initializ@e() On Error Resume NextdMe.Caption = "SNP tools: convert Ph@ase" bsetStatus Bar 0With PercenWu.TopUprogres/1Left !Heigh #%Wid?=F-VisibleA/FalseEXnd UO{Button2.ValuTrusheetName(0)#"In\fo/ 1 f(req 2 pairs M/S.EnaUdVF'WinH APReadAvlAJ;]9DA KCÁ_Cli ckߓO8MousePointer 8fm Hour`GlassCd,If FileExists(in`1)) Then@ Kill H J2@psave@[fEdit1.T, ABoxD Datad .DDefaulёIA.LC\'bLgMRaHIfcaaB !CKKFuncBv alid_(tempStr As ing)G=" Or 0 -"GS"?tBFad aO! hE(S_ce', f^?$aGo To ouFDim iLong, jGsrc*,%,ArowNogcolrt0*KᩁWork"d= VBA.a#, In"!") - 1b Handler Replace( , "' "" Set !B= SsdD"= Range).Rows.Count 'ѡм'/ c @d)  'ʼw@xB) lumns OpT$P @Output#1Q/B])=e1$tq)GQ'the original V from Affymetrix ch ip, a]genomrseleBincludeANPID,chos, locaD@ A8eAc80#1,,- 3 'N of indiv _/P'Pit "P ";iE1 p:@+ .Cells(t+ i l2)1 4"M 5 ' "S o lj32sampl< A pj / (F4:Q'5W 0j) 'S IDmh`(J c&j),pK); '1st)O%2"AX bTab & ft( $ '2-o:r3Bnp & ~RO +/$ @O-r ao8/4H!/C/bj5*E~' Vdlike Kerstin's one,' (fewh d@ensity2 Darmd 1[ two Yes.Yshould UbZ aVoh`V5 GQ2>X5!XNO3(iXxtXpaX=a d' X Next i  Print #1, "" d 4For j = 2 To rowNo - 1 'sample 'SNP starting from the H3rdX (1Dst is -ID,"2nd one Loca`tion) zsetStatusBa/ (-.Cells,rt0 + j, col0valid_Phase(VBA. Left(*1), 1));diC|evbTab & Ii$Årnp  L'LJRighJJo%%J ӂXj˅GYE@If0WithCCCloseCGoout ErrorHandler:MsgBo,x AB(@.N umber@~vb@OKOnly|saveMData aSub  #>vate @ Io(Percentage Ax}lehDimU rtgIf = 0 Then 'cle@y  ini I#Jogress. Visib@= False !a$ pr'BorderSty" 0g/a dl BackCol`= RGB(0, @255.He`}L WidthHע$E('Aa()g Tru/PD/(- 'HB*i9.L#Cap€#RoundPP* 10/)"%n#hpDoE:v[s l&bd dQPo4%'$%DH$ H D (l=x) hdHD54 x LK 'T%x 7(T%(%h$ Xhh5h$ Xhohi *F4%h'$%:T%$ Qho%d$ @dW  qd64:T!%lC" cT%lC#fT%lC$fT%lC% cT%lC&fT%lC'T%lC(fT%lC) cT%lC* cT%lC+(T%lC,fT%lC-(T%lC.(T%lC/T%lC0T%lC1 cT%lC2 cT%lC3fT%lC4fT%lC5 cT%lC6`(TlR($lR(lR4 7Z4lC854 cT%lC9fT%l:; qRL hh lLi4 <'':$=N h6 4t 45plxB hdPHD4lL+tx! x llt8;/tx=Ctt8@ >#p?*#lT;2tpl$T@*#tT;/t$TA*#tT;/tQP$5 tplx|K:lB%,XT! QTP$XT! T ClXP CT$XT! T lClXP hCT$XT! T HClXP DCT7P C P CcPc@T! T DT5@p;Ep;Fp; l<T< T 8TT< T Tc@T< T DT5@c<i@|, 5P<T@LK lx x G8@ T8FhNXX H5XPT! TaXLP! P l>LDX`H2HD)TP5Xx G@8@ Tx T 8Tcxp<(5x$LHDTPXxD- I0 J0ŀ K0.LCx8 Cx/F D(5x x  I0I0r 4 Ml MH@8 N 8`1p58K "IOlp P1p20lpFH%4$ 4 dl0=X)40I4' % FH%$ 4a8Q00av"qh)406874' % FH%$ 4a8v"lhqd45804' % FH%$ 4a8"q`45804' % FH%$ 4a8"q\458 ] lX $84! 4 D8458hldR lhR ST xlhdaGl`lxiH%l\i%4 488U 458 xf IV xlhd WT xf IV tlddeltldGl`iH%l\lti%4 488X 458rl`iH%l\lti%4 488 N `lT 2468rU < c Yp pgA1pQEaI3]rr&I)vA;Y%9qћw a1aYY iI  xAq3ќ 9iI!u v1v!+_y| +y. 4v9w9Qxxxqvx]xzza{zam 9iQAA6Q7A6Q7A6Q =A6Q17 :9=` = :F` =a88a889Y:`=9)9Q7y7`=A6Qy: :<` =A6Q<9Q=`=A6Q9 :<`I= : R`= n=W====W====W===Ka '(%:8%(H%:X%:ha%x$ x |!  h/)x5x x 8xl$5 xKa '(%:8 %(H%:X %:hb%x$ x |!  h/)x5x x 8xl$5 x@K Cl Ch8@  l y djD4 ^ 4:$_d @\/6D4 d Ccd `8l45pldx tD4   =`$=`$=`,A=`a00$=`$=`$=`,A= `00,= `y00(= `*nrU t$ N'R$*\Rffff*Ea52274f40*\R1*#33a$*\Rffff*E`52274f40*\R0*#14*\R0*#15*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R1*#109*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55(tUk+3p0GxH\ŒW"L*LLPLLLLL*L `     >< @  8  @ H  ><P     ><   >  `x " 8J"J"H= @6JP"J"H=    V( " " 6 * 28 2p V : 0@ p  < < ( (@ h :p > 0 4  0X 4 4   8 4P : 8   ( 0 <P   : : :  <`  ( $ & B8 ( * , $ 0 &P >x ( * , @ `  , & ( X Fp F B $H Vp F F BX $ $   "0 :X $ & (  0 H (` " $ T B0 Bx > ! R ! Bx! B! >" H" h" " " " " " "# (# \H# # # # 2# 0$ H$ h$ $ $ $ .$ % % 8% X% h% x% H% 6% 6& 2P& & F& 6& 6 ' 2X' ' ' ' " '' ' '(  ( ( ((( 0( $H( X( `(  h(p(x( ( ( (( )( >(  )))) ) 8)xPrivate Declare Function FindWindow Lib "user32" Alias' "FindWindowA" (ByVal lpClassName As String, ByVal' lpWindowName As String) As LongIPrivate Declare Function GetWindowLong Lib "user32" Alias' "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias' "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex' As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SendMessage Lib "user32" Alias' "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long,' ByVal wParam As Integer, ByVal lParam As Long) As LongTPrivate Declare Function DrawMenuBar Lib "user32" (ByVal' hWnd As Long) As LongPrivate wHandle As Long!Private Sub OptionButton1_Click() TextBox1.Visible = TrueEnd Subd!Private Sub OptionButton2_Click() TextBox1.Visible = FalseTextBoEnd Subed!Private Sub OptionButton3_Click() TextBox1.Visible = FalseEnd SubxSNP tools: Common Stretch (PA@hCZ  j n!l9lH n!9 n!p9p99fq J(5"Tahomane6 w @"Tahomane*Progress5"TahomassLabel1ssO <uRefEdit1 select data area inclluding 5 columns: SNPID, chromosome, location, Call and LOH (sheet name must not contain space!)(2<Label2t1O$<RefEdit2 ,4CommandButton1P ,o.to find the common stretch of several samples,-the start and end locations and their thengthBowang Chen, DKFZ, Auguest 2004XThe input data contains 4 colums of data: SND,chromosome,location and comparison_result.Kthe comparison_result was done by comparing some samples on their SNP data,\the comparison_result can also be one attribute of one sample, such as IsHomo(), IsNoCall().@ v9t |!d !dA@R9 CommonStretch1 Source:=RefEdit1, Target:=RefEdit2 9tA@hC@qXoP@ common stretch]]@X]p]]]0]Hh] z z! %'* ~ ~! %',8 *'$'* ,'$', *$.. ,$.. z$!0!'%ѡм) = 0 z$! '"(ѡм0 Th z$!2'"ʼ0 z$!4'%ʼ0 ~$!2'$"ʼ1 ~$!4'&%ʼ1 *!t$'TvbOKOn SNP ID $ & ;Ch $ & ;.pedLocation $ & ;Length $ & ;q'     A@h%read a SNP data from excel table linert H  -    %    %    %    %$B@$%lue = $$%z(  p$$B@.% RetainSNP0 'retain last common SNP  ' td$$B@.RetainSNP1 'retain rurrent SNP' kd  TG  $ &$$  A@Vj $$B@* RetainSNP1 retain rurrent SNP' k(d   TG  $ &$$  A@Vj' k   TG  $ &$$  A@Vj  G  'j B@H'* $ & % $   & $$B@H! Selection.Copyo   ! 2  X ;1the start point ! 2  X ; ! 2  X ;  2  X ;So  ' Z! 2  X ;1 the end point Z! 2  X ;  Z! 2  X ;Dim ro  2  X ;  'A@' qXoPOPublic Sub CommonStretch1(Source As String, Target As String) ' common stretch ' Dim SNP As SNPLocationl Dim i As Long, j As Long./ Dim k As Long, l As Long, CommonLen As Long$ Dim rowNo As Long, colNo As Longz$, Dim rowStart0 As Long, colStart0 As Longʼ0, Dim rowStart1 As Long, colStart1 As Long$O Dim SNP(2) As String, CH(2) As String, Loc(2) As String, Comp(2) As Booleanta4 Dim srcSheet As Worksheet, rstSheet As Worksheet0* Dim srcStr As String, rstStr As String On Error Resume Next5 srcStr = VBA.Left(Source, InStr(Source, "!") - 1)5 rstStr = VBA.Left(Target, InStr(Target, "!") - 1)! Set srcSheet = Sheets(srcStr)! Set rstSheet = Sheets(rstStr)4 rowNo = Range(Source).Rows.Count 'ѡм7 colNo = Range(Source).Count / rowNo 'ѡм* rowStart0 = Range(Source).row 'ʼ0- colStart0 = Range(Source).Column 'ʼ0* rowStart1 = Range(Target).row 'ʼ1- colStart1 = Range(Target).Column 'ʼ1. CommonLen = Val(frmCommonStretch.TextBox1)' With rstSheet2 Cells(rowStart1, colStart1 + 0) = "SNP ID". Cells(rowStart1, colStart1 + 1) = "Ch"4 Cells(rowStart1, colStart1 + 2) = "Location"2 Cells(rowStart1, colStart1 + 3) = "Length" 'End With k = 1 For i = 0 To rowNo - 15 frmCommonStretch.setStatusBar i / (rowNo - 1)4 SNP(2) = Cells(rowStart0 + i, colStart0 + 0)3 CH(2) = Cells(rowStart0 + i, colStart0 + 1)4 Loc(2) = Cells(rowStart0 + i, colStart0 + 2)5 Comp(2) = Cells(rowStart0 + i, colStart0 + 3) If Comp(2) Then! If CH(1) = CH(2) Then If l > 0 Then' RetainSNP0; SNP(0) = SNP(2) 'retain last common SNP! CH(0) = CH(2)# Loc(0) = Loc(2)% Comp(0) = Comp(2) l = l + 1 Else' RetainSNP17 SNP(1) = SNP(2) 'retain rurrent SNP! CH(1) = CH(2)# Loc(1) = Loc(2)% Comp(1) = Comp(2) l = 1 End If Else& If l >= CommonLen Then 'ShowStretch" ' With rstSheetQ Cells(rowStart1 + k, colStart1 + 0) = SNP(1) 'the start point? Cells(rowStart1 + k, colStart1 + 1) = CH(1)@ Cells(rowStart1 + k, colStart1 + 2) = Loc(1); Cells(rowStart1 + k, colStart1 + 3) = l k = k + 1O Cells(rowStart1 + k, colStart1 + 0) = SNP(0) 'the end point? Cells(rowStart1 + k, colStart1 + 1) = CH(0)@ Cells(rowStart1 + k, colStart1 + 2) = Loc(0); Cells(rowStart1 + k, colStart1 + 3) = l k = k + 2 'End With l = 0 End If' RetainSNP13 SNP(1) = SNP(2) 'retain rurrent SNP CH(1) = CH(2) Loc(1) = Loc(2)! Comp(1) = Comp(2) l = 1 End If Else" If l >= CommonLen Then ' ShowStretch 'With rstSheetM Cells(rowStart1 + k, colStart1 + 0) = SNP(1) 'the start point; Cells(rowStart1 + k, colStart1 + 1) = CH(1)< Cells(rowStart1 + k, colStart1 + 2) = Loc(1)7 Cells(rowStart1 + k, colStart1 + 3) = l k = k + 1L Cells(rowStart1 + k, colStart1 + 0) = SNP(0) 'the end point; Cells(rowStart1 + k, colStart1 + 1) = CH(0)< Cells(rowStart1 + k, colStart1 + 2) = Loc(0)7 Cells(rowStart1 + k, colStart1 + 3) = l k = k + 2 'End With l = 0 End If l = 0 End If Next i If k > 1 Then k = k - 1 'rstSheet.SelectV Range(Cells(rowStart1, colStart1), Cells(rowStart1 + k - 1, colStart1 + 3)).Select' Selection.CopyEnd SubPrivate Sub RetainSNP0()+ SNP(0) = SNP(2) 'retain last common SNP@ CH(0) = CH(2) Loc(0) = Loc(2) Comp(0) = Comp(2) l = l + 1End SubPrivate Sub RetainSNP1()' SNP(1) = SNP(2) 'retain rurrent SNPL CH(1) = CH(2) Loc(1) = Loc(2)]j  Comp(1) = Comp(2)M l = 1End SubPrivate Sub ShowStretch()A Cells(rowStart1 + k, colStart1 + 0) = SNP(1) 'the start point/ Cells(rowStart1 + k, colStart1 + 1) = CH(1)F0 Cells(rowStart1 + k, colStart1 + 2) = Loc(1):+ Cells(rowStart1 + k, colStart1 + 3) = lMj k = k + 1u? Cells(rowStart1 + k, colStart1 + 0) = SNP(0) 'the end pointV/ Cells(rowStart1 + k, colStart1 + 1) = CH(0)@0 Cells(rowStart1 + k, colStart1 + 2) = Loc(0)+ Cells(rowStart1 + k, colStart1 + 3) = lM k = k + 2 l = 0End Sub]P clear and init (f(MV n9f9q! j$@9 n!p9p(M999fqx!dp! setStatusBar (0) n(f j (fP<: j  n!9 d$%9P9fq k A@o H)KAttribute VB_Name = "frmCommonStretch"  Bas0{AE803C57-B885-469F-BBFF-7886606E9B3A}{795A70C8-81F1-4C27-8B64-A203D726478F} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizDOption 0licit '&P$( DL FuncFindWow Lib "user32" Alias *_ "A" (ByVal lpClassAs ing,f lp0) LongV(Get ) a)hWndE'nIndexH8D#%S% %-dwN ewBB+ndMe ssageQSeF *wMsgU{wParamInteger0l-UDrawMenuBardQ= wHasW)M{! 1.Mor(Poi Mr(fm HourGq+0S104fEdit1.QD,2_ Sp@ce:=Re, Target2g y Defa9.Hid0.)D(3 _b3 ) '!@%1 Dim0(P(2[n!iac, j5kl Len%rowNoqcolZKrt0+1&srcSheetWorks`, rsto[tr1ES\x4W1= VBA.TD4a"!") - 1qa"$helReЮce(, "'"@"oem 2= Bs$!+$s = R@UeT).Rows.Count 'ѡмSC#]/ 34$ 'ʼj@s) @\nN1J ).1 Co4al( "MqUEs!$.Cells( ,pAlP+ 0) "!bIND Ot1K1BC FPLv t1 + 3rPExDR>k 4C i0 To!5 Yi / 0IW7'0d aR}f{ excel linxluU.`D3|0 iW0t1-? &8 rt0 + 1)@, _ srcSheet.Cells(rowStai, (col2E3)If SNP(2).getComp() Then %1).EqualCH(4+/l > 0% 0).setDataFromD ' Retain0 'r lastpmmon P*l0 = lEl|seEmED1CrurrentA1?nd Ifg$CO= c;LenQ Sh@C@ch rstB, 14,)(0k, l$>`1 D`Z>A^L=EL= CommonLen ThenPX'ShowStretchD' With rstSheetGCells(rKart1 + k, colSt0) = SNP(1) 'the s poin6S%sH)J2JLoc8!3!l@kzk15PM Me@?MCH(0^)$M"M2('Al]0JARetain@iC>'@ rurrent@X2QZ@*Rp@"rAm!a$ۃ'0Y߂g$,߂ Z&[1Q6Zـ ICy %$w&$>$q~?}q}`` Ne0xt ix`ck (> 1 C7- l'.SeleceRange('(),qW 83)) cion.Copy0 SubPrivPate &L0>(+a5#Kla|styсK"aFH(FIJJHbI!lnO J 1J ") H UU q  b q N 0ootj?< hp=` -/,7H$oEvCF/V,O(%E@ I4settusBar(Perc}age As Single5Dimrrtr a#CH= 0#D'c@lear ainiC1Progress.Vi sible7FaBupd@ sq.BorderSty?r <BackColor RGB(0, 255E.HeightP D,Wid |  ܎) Bei Tru@ջ5 .U9(!* I,Ca pt^ound!I(* 10) & "%" 0(qDoEvq-s 1P0__SRP_17i__SRP_167mDieseArbeitsmappe$g^#__SRP_46= l i%px pp= i`%i@%$i%px pp  J i`%i@%tH >tF %px pp5 J i`%i@%tH >tF %px pp5 H i`%i@% H $l i%px pp= i`%i@%$i%px pp  $cx p(5xtp  t! t tt! Qtp p p 8cpt! Qtl^ l $ht! t Hlhl Dt7l l 8 l clt! t tt! t tt! Qtd)ht! t  nh7d t> djD4  4:$d @/6D4 d cd >l45pldx tD4D`8T9)9X99\A6Q9 ` :1:`Id9Y:`$A`,`)00X`a=A((3 3 (((`*nT! T llXrU GH +aYp pg 1YY%!I Project menu item.]`]]]]]] ]@]`]] Dim sep As CommandBarButton]]]H# This generates a run-time error if the menu item is absent.$ Create an object variable referring to the Tools menu.SNPWorksheet Menu Bar B%D%F.lder% Add a command in the fourth positionP on the Tools menu. !" If a run-time error is generated, add the menu item. H!J NlWorksheet Menu Bar B%D!F%L. &SNP9PB@qh Rl !F%L." Rl !F%L.& Rl !F%L.( Rl !F%L.* Rl !F%L.0 Rl !F%L.2 Rl !F%L., Rl !F%L.. Rl !F%L.4 Rl !F%L.6 Rl !F%L.8ArU P 6y5I!u vy. 4!+v9wYp pgvA;` 1pyc1Q zza{zam5556y54A6Qi68A6Q7<A6Q7@A6Q17DQ7qy7` Ha88La88Pa88T9)9X99\A6Q9 ` :1:`Id9Y:hA6Qy:jW K:l%,XT! QTP$XT! T lXP T$XT! T llXP hT$XT! T HlXP DT7P  P cPc@T! T T5@ <( 5PT@ lx x Qt! tad`! `aP`Hd`L2LH)t`6dPx D xcx8(5x$LHt`dP`K4 l M@  `154lM@  `15" l 1" l 12lF% $  dl=$)2lF% $  dl= )I'% F% $ aav"q<)67'% F% $ av"ltF %px pp5 J i`%i@%tH >tF %px pp5 H i`%i@% H $ Set sep = objCmdBrPp.Controls.Add(Type:=msoControlButton) Rl !F%L.< Rl !F%L.: :(T Rl !F%L.> showAboutk0 Disables the error handler.& Set properties for the new menu item.About SNP tools "(PFind &LOH stretch &(P Find &Hotspot ((PCommon &Stretch *(PConvert to H&aploview 0(PConvert HapMap to Haploview 2(P&Convert to S&NPHAP ,(P&Transpose S&NPHAP .(P&Convert to &PedPhase 4(P&Convert to Phase 6(PCo&mpare Haplotypes 8(POR (Mantel Haenszel) <(P sep.Caption = "-"Sharing N of STR allele :(PTranspose external text file >(P showAbout "(Xeq LOHstretch &(Xir FindHotspot ((X CommonStretch *(X .WConv2HAPLOVIEW 0(X9NConvHapMap2HAPLOVIEW 2(X Conv2SNPHAP ,(XTransposeSNPHAPoutput .(X Conv2PedPhase 4(XileExi Conv2Phase 6(Xll CompareHAP 8(X  sep.OnAction = ""ext, CompareSTR :(XdOR_MH <(X9t transposeText >(X$hremoveOldButtono , This procedure deletes an item on the Tools.ReadR menu on the worksheet menu bar.* If the Project command exists, delete it.`SNPWorksheet Menu Bar B%D%FB@\o Attribute VB_Name = "DieseArbeitsmappe" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBu@stomiz DO@ption /licit P"& Sub Workbook_AddinInstall() ' This procedure adds an item to the Toolsmenu 3 w)sheet bar.Aug 24, 2007% frmTrans{TextFile, Bowang Chen, DhKFZX Gwill be s ! Dim objCmdBrPp As CommandBarPopup  WProjec/;AboutButtonLOHstretch Hot@?)shSconvert2SNPHAPtE^! @LOVIEW HapMap2+ 2PedPhJmMX%_A?p ('%FseLE#H! STROR_MantelHaenszel/F1`CLOyrror ResuNg#$Zgener|u run-tieBif%!usy }absednt$]' b~nCAiavariBref ingF pS`tp= Ap*pa.Grs(6"CMt") ntr("T"@v a c#z infourth `i %$”)' Ifɍ#s E'd,E" f%$$Err.Number <> 0e!.( _ aType:=msoCob$$$9Wi!G/.C6ac&A+End a'C=hf3g? 2 eSo" $o)UHN >ToD ( k_<t|}XH~*=h8+3qպE$*#CPLdxպE$*#CPLdt|}XH~MEH@SS S(L   $6"PLLLLLLLh * 2 (08@HPX`h &p  *  * 84^X ,  ( $(@q8 x AAAAAA8AXAxAAA HA@A` A   "  , 0 P p " (   " @ h   $ (   8 P h    "   @  X  p      " 2 &@ 0h  4a   x) This procedure adds an item to the Tools menu on the worksheet menu bar.8Aug 24, 2007 add frmTransposeTextFile, Bowang Chen, DKFZ$ This will be set to the Tools menu.]@+ This will be set to theoom%bMd &`d_adBff??/f mW.BeginGroup"@?1OooolVshowBJwKLI&ohDisls\ph9Ple uGoTo 03S'b9аp @ fx1tneweraiV V` P'QFi@X& DdOdiMmp&K+H&aplov8iew Jt 3RO&mQS&LGJĞ ;UErt&K2bOC0PBCo&mlot{s~ elQ(8external t< f41#/OnAc0?"F9t.?igtu.I11Hotspot" shareStretch.OnAction = "Commondconvert2HAP@LOVIEW bnv4 dHapMapp qSNPtn,transe-T out pukPedPhase3 J"p^m  'ep > "STR M" OR_MantelHaensze6l HJTextFil"rangeInfoDV52274e18rangeInfo@SAffy_anno_geneDU52274e18Affy_anno_gene (frmTransposeTextFileEl5227500cg(frmTransposeTextFile8'PedigreeItemDZ52274e18PedigreeItemKVPselectInfoDQ52274e18selectInfozdh $statusBarControlerDb52274e18$statusBarControlerg( SNPLOHEd52274f40 SNPLOH"NP8, frmOREc52274f40c frmOR@6Standard_IRDd52274e18@Standard_IRQx OddsRatiosDe52274e18ROddsRatiosYHRiskRatiosDg52274e18RiskRatiosOMantelHaenszelDf52274e189MantelHaenszelc;frmPedPhaseEe52274f40YfrmPedPhaseԪPhP(YaSNPsampleDj52274e18%SNPsampleق@eMHstrataDk52274e18/MHstrataXhOddsRatioStrataDl52274e188OddsRatioStrata&Xp(OfrmHapMapviewEf52274f405frmHapMapviewPOfrmSTRsharedEg52274f40frmSTRsharedɗPSIfrmHapMart07Eh52274f409frmHapMart07YPK$OddsRatioHaploviewDp52274e18$OddsRatioHaploviewRDq52274e18XRfrmPhaseEi52274f40]frmPhasePT frmCommonStretchE`52274f40+ frmCommonStretch+3U"DieseArbeitsmappeDt52274e18]"DieseArbeitsmappe_0pP8X0 H`xP(pa   *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications$*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files (x86)\Microsoft Office2007\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{61A12FB7-30D7-41DB-BF94-A475ACB60858}#2.0#0#C:\Users\bowang\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{00024517-0000-0000-C000-000000000046}#1.2#0#C:\Program Files (x86)\Microsoft Office2007\Office12\REFEDIT.DLL#Ref Edit Control*\G{835B7EEF-8F02-4558-A5F1-90AB37A6A497}#1.2#0#C:\Users\bowang\AppData\Local\Temp\VBE\RefEdit.exd#Ref Edit ControlEF*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library#   N'R !  k#ThisWorkbookE[52274f40ThisWorkbook6P Sheet1DM52274e18_ Sheet1.WfrmLOHstretchEb52274f40afrmLOHstretchWa0.SNP_functionEX52274f3eSNP_functionf 0(x8PABCDW52274e18 ABC`B frmCompHapDX52274e18_frmCompHap>xTfrmHaploviewE]52274f401frmHaploviewPZfrmSNPHAPE^52274f40frmSNPHAPHSNPDataEa52274f40SNPDataYP*BaseDY52274e18BaseePhofrmHotsp4̪ZK$5RU.b_:)E#R;K[Db8qc/MIr*)$XN5A$|cG$ XYE)A8@$ǪICth6%FVWR%|tsD-˪BO\be% xCZ{h=K*!6Hx]Ѵ0chP b  BaseG EndQf Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`OfficeuMSFormsC RefEdit Scripting ThisWorkbook| _EvaluateWorkbook_AddinInstall objCmdBrPp CommandBarPopup About)CommandBarButton9 (LOHstretch WHotspot shareStretchcconvert2SNPHAPtransposeSNPHAP/convert2HAPLOVIEWCconvertHapMap2HAPLOVIEW}convert2PedPhaseV convert2Phase (CompareHAP+ (CompareSTR*OR_MantelHaenszelNmtransposeTextFileconvertHapmart072HAPLOVIEW& Application* CommandBars ControlsKErroNumber-AddrmsoControlPopupl)CaptionxmsoControlButtonn BeginGroup (showAbout!OnActionWorkbook_AddinUninstallDeletex Sheet1 frmLOHstretchoUserForm_Initialize5cImage1_Visible setStatusBarPercent^Top5 progressBar$Height|CommandButton1_Click MousePointertfmMousePointerHourGlass'FindLOHstretch SourceGRefEdit1TargetFRefEdit2fmMousePointerDefault(Hide9z Percentage6strProgressu BorderStyleS BackColorރRoundSNP SNPLOH)i`jakb srcSelectS selectInfo targetSelecth getSheetInfosrcSheetCellsrowStartBcolStartrowNosetDatargetLOH setDataFrom5EqualCH)EqualLOHoutputLOHstretchpRange  SelectionZCopyƿSnp1snp2getSNPidgetCH@getLoc SNP_functionj transSNPHAPh| frmSNPHAP(haphapIDdHapLoci HapProbMsgBoxRvbCrLf vbInformationn(SNPHAPcodebackSNPcodez(CompHAPmyRangesTcZHap0QHap1QCompRout12$out23$IIfzCh\morȴfarSchildmorORfarvHap_MhHap_FgFamGenoZ (HapConcord outZ(AberrSexr(fitBothZg(twoF<(twoMC (GenoConcord2Geno0Geno1(IsNoCallօ(IsHeteroIGenoUCase5  (HeteroConcord] (NoCallConcordt(IsHomo (HomoConcordw (CommonStretch frmCommonStretch2Show(Conv2HAPLOVIEWq frmHaploviewk(ConvHapMap2HAPLOVIEW frmHapMapview(ConvHapMap072HAPLOVIEW frmHapMart07WD (FindHotspot)? frmHotspotsDOCommandButton1|Enabled۪ (Conv2SNPHAP^(TransposeSNPHAPoutputLabel1,Label5, OptionButton1k@ OptionButton2l@ ReadResult ConvertSNPHAP, WinSNPHAP# (Conv2PedPhase1 frmPedPhaseTM (Conv2Phase frmPhasev frmCompHap%(OR_MHu frmORMR (transposeText frmTransposeTextFile& (FileExistsfileNamej ErrorHandlerOGetAttr vbDirectoryg (ParseFilenamePv DELIMITER~ (SNP_ACGT_CodeTrim@(Allele_ACGT_Code0URight Allele0(SNP_ACGT] (SNP_AB_Code(Allele_AB_Code (Geno_GT_CodeGenotypeٲ (Geno_GA_CodeX (Geno_AC_Code_(brlmm2AByncode(CopyNumberTypeSampleID copyNumber (SNP_N_of_neucleoA^Neucleo@(GenoConcordRateS1_S2_Geno2concordjColumnsp9Count0v (briefAffyanno<Anno.Genes Affy_anno_geneNesj geneStrings|Split) setValuse  gene_name8 skip_repeatMValdistance'brief(briefAffyanno2u (AffyGenes~(closestAffyGene (CDSUTRexonٞ AssocGene(arrange_MALDI_TOF sourceArea. targetArea myStretches rangeInfo =Plate#SamplegetstretchInforstSheet<lookfor:GID] rowStart0 colStart0 E(manage_MALDI_TOF9 DESCRIPTION1SV DESCRIPTION2TV DESCRIPTION3UV dctGenotypee DictionarykeydctDescription_ myDescriptionExists](Fawkes5Allele1#Dosage1Allele2#Dosage2 (FawkesAllelek@DosageK| ABCrSNPIDLoc` vNewValue8CommandButton2_Click commonLength longest_ClickUserForm_ActivateZs longestHAPfShareHapMatrixlccolNo F rowStart1 colStart1 E WorksheetsrcStrrstStrE)Sheets RowsUrowColumni (! stretchInfo\myRange-nSample/nCompVlongeststr1F5str2G5stretch haps;Q( BinaryToDecimalR_( DecimalToBinary compareHapStringQ3LengthYvbOKOnly markStretch-v mystretchInfo)mysheetb Ric0\StartInterior; ColorIndex ( otherValue tempStretch_[ lastMarkedMinLen;hapline strConcord*NextRow58myStr CommonDialog1 TextBox1SShowSave GCommandButton3_ClickFA CommonDialog2! TextBox2SRefEdit1_ChangevHAPLOVIEW_ClickCmdStrChrK~ShellVTextBox1_Change=TextBox2_Change HAPLOVIEW*ValueK CancelErrorF Convert_ClickKill saveHAPLOVIEWSource1rfile1UXfile2VXsaveHAPLOVIEWinfousaveHAPLOVIEWpedg6file%mapReplacefvbTabc9inNameUoutNamey sheetName6 SNPHAP_ClickRetVal;cmd~vbNormalNoFocusWinSNPHAP_ClickcReadResult_Clickno( readTextFileToSheetc3rotSNPHAPresults! saveSNPNameG saveSNPData SNPfilename fileName1z fileName2{outName1outName2SNPName ( ReadFileToStringsERsaveRot1saveRot2finwfoutXnline)myHap readFileToHapQ'outIndexmyLinesat14uat25udelim1delim2 startLineIDstr1IDstr2 SNPdata`getComp5 getGenosetSNPidnewSNPidcsetCH#newCHsetLocnewLoc8setCompnewCompsetGeno]newGeno%newSNPJ^ getString PrintData8I EqualComp̃( MaxȲv1t_v2u_( Min DecimalValue! MinimumDigits+resulturExtraDigitsNeededz BinaryValueaidxӝtmpdigits ( binNumbersNumber/ BinaryStrvm( CheckValidName6l( validNumSheetNamearrBytesLOFcAsc!uvbLfT%sheet[ OutputSheetyAfterX Worksheetsclear ActiveSheet%N QueryTables Connection Destinationл FieldNamesܸ RowNumbersFillAdjacentFormulasPreserveFormatting=RefreshOnFileOpen|u RefreshStyler3xlInsertDeleteCellsG SavePasswordXSaveDataAdjustColumnWidth RefreshPeriod&TextFilePromptOnRefreshTextFileStartRow1TextFileParseTypeC xlDelimitedTextFileTextQualifier/xlTextQualifierDoubleQuoteTextFileConsecutiveDelimiter_=TextFileTabDelimiterWTextFileSemicolonDelimitereTextFileCommaDelimiterbTextFileSpaceDelimiterTextFileColumnDataTypesN|Refresh ( InstrIndexindexat\ ( readPedigreeh sreSelects PedigreeItemymyPedPFamilyIdu IndividualIDFatherIDƗMotherIDGender@AffectionStatusLiabilityClass ( InArrayOfmyArray ( InStringOfi  myArrayString6I ( InRangeOf8myCellKo( IsSegCorssSegsVChr1}Start1 End1CRangesAddress ( IsSegCorssSeg&Chr2~Start2 End2C( format_missingRange1fRange2gcell( replStr*qtofind4 toreplG8( TheColorOfCellFontaddrFontU( TheColorOfCellFill FindHotspot1̛Transcript_accessionRSNP_relationship=|UniGene_cluster# NCBI_Gene_IDMGenBank_description*tag& valueStringvaluesShowOpen~ ComboBox1'AddItem  ListIndexQ ComboBox2(DLM1tDLM2twhichDLM| selectedValueinFile}outFile Delimiter1 Delimiter2ncolumnmylinewlinestmpStrDisplayStatusBar StatusBarʜEOFToString statusBarControler myPercentQLabela myProgressBar5Winit\[LOHesetLOH newLOH8 newSNPLOHEEmySample SNPsampleDkminAgemaxAge *aXd[aa{\bb\cc\dd\MH>^ MantelHaenszelFJgetAge getDiseaseY (OddsRatioޞ Standard_IR](SIROfe\ (SIR_CI95LSqr( (SIR_CI95UȆ (SIR_CI99LS (SIR_CI99U\ OddsRatios"? (OR_format8(OR_CI95La(OR_CI95U a(OR_minorCI95L:(OR_CI99LaCI99Lp;CI95U:(OR_CI99UaCI99Uy;(OR_X2(OR_SEPSE_(OR_X2MH!X2MHf[ (OR_PowerK Power95K (OR_Power95KHG (OR_Power99KGPower99K (OR_Power999K} Power999K (OR_Power9999Kf Power9999Kw(OR_Power99999K Power99999Ko(OR_PWorksheetFunction&ChiDist(FisherExactTestab|\ac}\bd\cd\nni^Fact(OR_PMH(OR_Power  NormSDist@; (OR_Power95 (OR_Power99 (OR_Power999G (OR_Power9999} (OR_Power99999T RiskRatiosI{ (RiskRatio{ (RR_CI95LbRR_LnRRSELnRR CI95LnRRL1~m1'^m0&^n1L^n0K^aE\bE\cE\dE\LogdExpK(RR_CI95Uc CI95LnRRU:~(RR_X2aD~\ (RR_PowerKLnORQSELnORX2_ CI95LnORL&n CI95LnORU/n CI99LnORL CI99LnORU allTogetherOptSNPtypeaPedPhaseƩOptionButton1_ClickcOptionButton7_ClickBOptionButton8_ClickOptionButton2_Click/OptionButton3_Click?OptionButton4_ClickOptionButton5_ClickbOptionButton6_ClickFrame7ControlTipText8OptionButton9_Click#RPedPhase_Click4WinPedPhase_ClickrearrangePedPhaseOutputZSsaveOKd= pedSource) pedSelectQ>myPedsw vbCritical+}nSNP#S outputLinesMrnewHapsutempStrQDisease[Agegs getSNPsample setSNPsample newSNPsample setDiseaseN newDiseaseqsetAgeLnewAge9 MHstrata,s3_s4_CrudeMHZS Constructor OddsRatioStrataStratayabcdisMinorf isHaploviewKx allleleRatio4ratioD- caseAllelek  controlAlleleӜ (Strata_OR7(Strata_OR_minor (Strata_OR_minor_HaploviewH(Strata_OR_Haploview (Strata_OR_CI95L(Strata_OR_CI95U(Strata_OR_CI99Lq(Strata_OR_CI99Uz (Strata_OR_X2y' (Strata_OR_PE(Strata_OR_P_minorX(Strata_OR_P_minor_HaploviewG(Strata_OR_P_Haploview(Strata_OR_Power(Strata_OR_Power95K(Strata_OR_Power99KI(Strata_OR_Power999KN(Strata_OR_Power9999KsetData2Z+AFFE1 UNAFF1AFFE2 UNAFF2A11%pA12&pA21JpA22KpAFFEUNAFF܆ (Alleles_plink (Strata_OR2RAFF2 (Strata_OR2_X2# (Strata_OR2_P48tmpSNP frmSTRshared( Run_ClickFN sharingSTRNshared SumSharedktempName! sharedSTRalleleTOptionButton166 OptionButton3m@allele11allele12allele21allele22Run_ markerIDfound positionFound\ makerIDcolY positionCol  genotypeFound genotypeColN OddsRatioHaploviewomyExcelL (OR_Haploview(MAFcontrol_HaploviewYKcontrol0Kcontrol1K(OR_Haploview_P(OR_Haploview_minor(OR_Plinks (OR_Plink_genor(OR_6genoAA1urAB1rBB1wAA2vrAB2rBB2w(Alleles_3genosv (OR_P_6geno<(OR_CI95L_6geno(OR_CI95U_6geno (OR_X2_6geno/ (OR_SE_6geno(OR_P_Plink_genom(OR_Plink_CI95L֊(OR_Plink_CI95Uߊ (OR_Plink_het(OR_Plink_het_CI95UP(OR_Plink_het_CI95LG (OR_Plink_hom0(OR_Plink_hom_CI95L#D(OR_Plink_hom_CI95U,D(OR_Plink_hom_formatd%(OR_Plink_het_format(OR_Plink_formatYalleles#plinkM (MAF_plinka0j\a1k\(CallRate_Plink_GenototalUsum (merge_formatrsIDiA2l\UNAFFECasesϚ (merge2plinkmergeq_Switch6z(MAF_Plink_Geno^(HWEp_Plink_Geno6&obs0obs1obs2exp0zexp1zexp2{(CallRate3_Plink_Geno (OR_Plink_power2 (OR_Plink_pQ(N_effect}Ncase Ncontrol(create_KruskalWallis3Range3hmyLabel (create_KruskalWallis2 Phase_Click{cmd14cmd25TextFilePlatformJRTextFileTrailingMinusNumbers*oBackgroundQueryPhase  valid_Phase CommonStretch1y CommonLen ShowStretch colHSnp0 DieseArbeitsmappeClassWorkbookk AddinInstallAddinUninstallItemzUserFormNLabel3,CommandButton2}Label4,CommandButton3~ClickChangeActivate| InitializeNLabel6,Label7,GetSaveAsFilename _B_var_Image1~_B_var_CommonDialog1 _B_var_LeftQ FileFilter MultiSelect FilterIndex˟Title~_B_var_CommonDialog2_B_var_FileFilterG]_B_var_FilterIndex _B_var_TitleBLabel2,Frame1 OptionButton4n@ OptionButton5o@ OptionButton6p@ OptionButton7q@Frame2Frame3Frame5Frame6 OptionButton8r@ OptionButton9s@Frame8OptionButton156 _B_var_UCasea _B_var_TrimmT _B_var_Right9_Defaultj _B_var_Error) _B_var_Midp _B_var_Stringӊ _B_var_Chr\; _B_var_Format_B_var_k InitialFileName&XS ]"K QY/" 9_a! 6+!*1-5092= 4A,<%ILY8 E_F] GcHg B9PAD XZv k^P ɧbA@  H@JD!@Ep@@D  0b"PB  G2` r  N'R J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE12\MSO.DLL#P 10 .0 Ob LibraryNMSFo@rms>SFrmHs3D452EE1-E08F1A-8-02608C4 D0BB4TFMl20L'B @a&/;"1lrAr00}#@8r# 50 A61A12FB7-30D7-41D@hF94-A475ACB 7586Users\bowang\AppData\Local\Temp\VBEb7.exdcrip4injgtj`A54 20B28E7@18-11C93D#A0C90P5422N1דcrrun.dllKf Runtime @ߦߦ36ߦle٦܍ o"Z__ ;p"#kThisWorkbookGTiWkbok*2` H1޵@"E,6""+SheetT1G Set1 2  .W  frmLOHstretchG`n!bLO Ցxr"c.=)2/1' . Wa (ASNP_func!z3SNP_` u8c8o/33iPn f!: A`ABCGABCD2HMB"ppHapGfAC mGHaP2 T<>2lopviewSslP vPQewQWSi`%w_$Z  Z HAPGZc#HA"kN2obZ@dGD@t02?*YEBasPeGP"Bspv2z_0Y)])e;/ 'rm Hotsp0GV)HtSpit2+oEP;sq>rpeIn4for!yeI@f foI_@SAffy_anno_genAIf@o_B n_Ђe e02[2_W_ _ sArmT seTextYqGWC3Ta sQ$T$xF=t2D!e' 6 EPedigreeItemHP dP g0 sIP ep3aHJtm KV S[sel@#)Q[QjG)!S[o:zdRNsta@tusBarerG$;A}au0Cr@lontrolepstatusBarControler2$ \a ushBaC NH 1( (, g"( +SNPLOHG  NPLOO2Iu8,u"Nu4frmORG km9R 2 7677 2Standard_I:Fndd`_I@ 26IQx2!7 QQ@OQ9S@= $T 2rmCommonP@etchG SmmTn>:=L!MQMMMMNANqNNNiG>GNi;a , {{ 1Qiِa .yY a 0Y )Yѹ!AqAqٻk 1)a a? q=== >1>Y>>:>>?1?i;Qa Aq==1>:i;ya a? q=== >1>Y>>:>>?1?i;a 8! $Aqٽ!Iiپ)Y 9i1a1Yya :S0 ya =A q==RY>iGR1>:>RGi; a ;:::!;i;)a FA Y Iii y iy  ThisWorkbookSheet1 frmLOHstretch SNP_functionABC frmCompHap frmHaploview frmSNPHAPSNPdataBase frmHotspots rangeInfoAffy_anno_genefrmTransposeTextFile PedigreeItem selectInfostatusBarControlerSNPLOHfrmOR Standard_IR OddsRatios RiskRatiosMantelHaenszel frmPedPhase SNPsampleMHstrataOddsRatioStrata frmHapMapview frmSTRshared frmHapMart07OddsRatioHaploviewRfrmPhasefrmCommonStretchDieseArbeitsmappe VBAProjectF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  9F>C:\Program Files (x86)\Microsoft Office2007\Office12\EXCEL.EXEExcel Q0F HAPLOVIEWC:\Windows\SK*P      !!      ""rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~q KOOȓI  ##a 7A a DAa AC::i;iCCa 3!6)AYq 1Ii)Ii )Ia)Ii 1a!Ii!a )Ia X q= X>::1Xi;YXXXXYa 5a? q=== >1>Y>>:>>?1?i;ya iq==GY>>AGiG1>:>GGG H)HIHqHi;a )ѕ ٥9YqQِ 1a S?3QUyUUUU V9VRiVVVVVW9WaWWWWa ?C::i;)Ea lla bab1a 9\q==Y>>:>O \Ya Ba a 1i;a !ٖѕ !9YqQِ1 a +C::i;IC!a "SX ɴ )9a $!p Ii!AYy !AaɶYa (S ѷyysWOW64\stdole2.tlbstdole  QL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice  .E .`M C:\Windows\SysWOW64\FM20.DLLMSForms  a /a0AuX 2C:\Users\bowang\AppData\Local\Temp\VBE\MSForms.exd  a EFbrlmm2AB@C:\Program Files (x86)\Microsoft Office2007\Office12\REFEDIT.DLLRefEdit  (~[XE7 2C:\Users\bowang\AppData\Local\Temp\VBE\RefEdit.exd 1 80( B=B(C:\Windows\SysWOW64\scrrun.dll Scripting !iHFz(V6,MsuD hFā< jwD>1/XM&DFWorkbookWorkbook_AddinInstallWorkbook_AddinUninstall @ SNP $Worksheet Menu BarF F F F  FfĤIx8< &SNP F F   , showAboutSNPHAPcodebackCompHAPhap HapConcordAberrfitBothtwoFtwoM GenoConcordIsHetero HeteroConcordIsNoCall NoCallConcordIsHomo HomoConcord CommonStretchConv2HAPLOVIEWConvHapMap2HAPLOVIEWConvHapMap072HAPLOVIEW LOHstretch FindHotspot Conv2SNPHAPTransposeSNPHAPoutput Conv2PedPhase Conv2Phase CompareHAP CompareSTROR_MH transposeText FileExists ParseFilename SNP_ACGT_CodeAllele_ACGT_CodeSNP_ACGT SNP_AB_CodeAllele_AB_Code Geno_GT_Code Geno_GA_Code Geno_AC_CodeCopyNumberTypeSNP_N_of_neucleoGenoConcordRateFF briefAffyannobriefAffyanno2 AffyGenesclosestAffyGene CDSUTRexonarrange_MALDI_TOFlookformanage_MALDI_TOFFawkes FawkesAllele  About SNP tools "Find &LOH stretch Find &Hotspot Common &Stretch Conv2PedPhase AABBBB >Convert to H&aploview and Plink 6Convert HapMap to Haploview &&Convert to S&NPHAP $&Transpose S&NPHAP *&Convert to &PedPhase "&Convert to Phase &Co&mpare Haplotypes (OR (Mantel Haenszel) .Sharing N of STR allele BBAAAA 8Transpose external text file >Convert Hapmart0.7 to Haploview showAbout LOHstretch FindHotspot CommonStretch Conv2HAPLOVIEW (ConvHapMap2HAPLOVIEW ,ConvHapMap072HAPLOVIEW Conv2SNPHAP *TransposeSNPHAPoutputFrame5 Conv2Phase CompareHAP CompareSTR OR_MH transposeTextVBE6.DLL 9% p TSNP Tools 1.80 is successffully installed.  xhttp://www.dkfz.de/de/molgen_epidemiology/tools/SNPtool.html AABBAA 24progressBaro E( 2@Percent2 E(2<ProgressOE &()*+,-./0 Microsoft Forms 2.0 FormEmbedded Object9qRKLMNOPVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmOR Caption = "SNP tools: Odds Ratio (Mantel-Haenszel)" ClientHeight = 2235 ClientLeft = 30  ] -IHj nhttp://www.bioinformatics.org/snp-tools-excel/index.htm XBowang Chen, DKFZ, Sep.21,2004 - Oct.18,2012 SNP Tools 9%S  1 A 2 B CellsText ?  TRUE FALSE 9%  BBAABB AAAABB AAAAAB BBBBAA BBBBAB AAABBB BBABAA ABAABB ABBBAA NoBBAA AANoBB BBNoAA NoAABB ! AAAAAA NoAAAA NoNoAA AANoAA AAABAA NoABAA ABABAAKƕ]Gw ABNoAA ABAAAA AAABAB AANoAB AABBAB ABBBAB NoBBAB BBAAAB BBABAB BBNoAB ABAAAB NoAAAB BBBBBB NoBBBB NoNoBB BBNoBB BBABBB NoABBB ABABBB ABNoBB ABBBBBMin 9%i  AB 9%  NOCALL AA BBtͥpA]`0GxH\ŒW%ByL5wS 7 7 RҋB ` OptionButton1 OptionButton2 OptionButton3ҋB `RefEdit1{'^tHy Z I9 0RefEdit2Progress{lFWJOCommandButton1TextBox1Label3UserForm_InitializeCommandButton1_ClickCommonStretch1 ShowStretchF setStatusBar tnas6HDzfCKXwublLD@ʭ < 7@CommandButton2Label4CommandButton3Label6Label5Label7ConvertTextBox2CommandButton2_ClickCommandButton3_ClickRefEdit1_ChangeHAPLOVIEW_ClickTextBox1_ChangeTextBox2_ChangeUserForm_Activate Convert_Click saveHAPLOVIEWsaveHAPLOVIEWinfosaveHAPLOVIEWped cg,LLGeEՠ41"LNI^`MaxLXBE#UUt<_:@pf+ۅ<--KlphIQs @niy B 7pFindLOHstretchoutputLOHstretch `_' !C'S"*FSLM/sZ?c1@T`JcˋNG(ɚhG j:!oe/NK,.H D 7 FindHotspot1ďYl|+`) H[YˇH< ;\wII ~k@g~оӉJX;0u2O I\7 AF 7 ReadResultSNPHAP WinSNPHAP SNPHAP_ClickWinSNPHAP_ClickReadResult_Click saveSNPName saveSNPDatarotSNPHAPresultssaveRot1saveRot2 readFileToHap startLine$ 81xIDTx$p ƏYl|jTG[[c0^xɣI<$cjG̲;;@ESu+Dj; 3;lM#3?F`Frame2PedPhaseFrame7Frame1 OptionButton4 OptionButton5 OptionButton6Frame3 OptionButton7Frame6Frame8 OptionButton9 OptionButton87Cj4@ʹ@fC{i qL 7OptionButton1_ClickOptionButton2_ClickOptionButton3_ClickOptionButton4_ClickOptionButton5_ClickOptionButton6_ClickOptionButton7_ClickOptionButton8_ClickOptionButton9_ClickPedPhase_ClickWinPedPhase_ClickrearrangePedPhaseOutputMinLen longestHAPuZVRGr iO 7whichDLM& 8<D` 8|(5g~Arf?.I-B1Ky1I0AMл1I}|EBGSNPhase% HJPx@; !R 7 Phase_ClickreadTextFileToSheet valid_Phase n+AM @Of½=CJx*_H AsFI!K("a&Wg@UQj2jCL8U$ 85vJT+++p DecimalToBinaryBinaryToDecimal binNumber otherValueCheckValidNamevalidNumSheetNameReadFileToStrings InstrIndex readPedigree InArrayOf InStringOf InRangeOfIsSegCorssSegs IsSegCorssSegformat_missingreplStrTheColorOfCellFontTheColorOfCellFill longest_ClickShareHapMatrix commonLength markStretchcompareHapString strConcord p!CBlj?UqBzw"XއH|Ot=>>B)+FX~?CE58)˾L`UHrcoI Y 7L @ZDF AdyB 2Ag?ύiMpI|VI<$+tJz? x;W(S0HxXF&CV >:I~. ![ 7(2ҋB ` ComboBox1 ComboBox2transposeTextFile h 9%C 8 .  0   0 0 9% X 9%k x a C c b G g T t ACGT HET G 0 HOM DEL GG TT CC 0 1 1 1 2 2 2 K Diff. Long ///ۡa|AmކE-=+=h8+3q^[Owr}T*=h8+3q!=h8+3qClassPgv3+3o VBInternal a a setValuse 00d 48<@DHLPT --- 9%  9%E  CDS UTR exon intron 2456 891037 N3579 N46812 rs10454452 rs11236365 rs11581382 rs11641748 rs11897813 rs10817960 rs12296076 rs13069836 rs13095210 rs1469808 rs160236F rs16823149 rs2885984 rs2936190 rs3903983 rs396577 rs4560 rs4743193 rs533233 rs646900 rs6495026 rs6505339 rs6561324 rs7115764 rs7178409 rs7868550 rs9582219 &Co_Ca_all!A2:I32904 Strata_OR2 out!A1:I329048Z@ʅeeTШNz agetstretchInfo h48TX Plate Smaple 9%V  out2!A1:I32904 $coBB$co!nIn .. -- X x 4Info Files (*.info),*.info Save info fileFogҋB `o .Ped Files (*.ped),*.ped Save ped file SNPHAP.EXE  -nf " was not created. Error 6Failure running SNPHAP.exe. Info 9%X  WinSNPHAP  .trans _trans .dat \ snphap_warnings .out1 .out2 2SNP tools: convert SNPHAPCҋB ` SNPHAP_Info SNPHAP_out1 SNPHAP_out2pj).` 9% ( 'F  saveSNPName 9% H (FillAdjacentFormulas 9% h C   H  L saveSNPData HAP Probability Cumulative info 9%x  ) SubjectYl| % 9%L  9%  getDiseasegetAge 9%_  - + * / # " T is not a valid (path) name for SNP tools. bPlease don't use sheet name starting with number, xand don't use space, '#', '+' and '-' in sheet or file name.RowNumbers getSNPsample 8Please change and try again. s  "ReadFileToStrings 9%:  9% ( 9%` H  Select TEXT; A1QueryTablesConnectionDestinationAddFieldNames $PreserveFormatting "RefreshOnFileOpenRefreshStyleSavePasswordSaveData "AdjustColumnWidthRefreshPeriod .TextFilePromptOnRefresh  TextFileStartRow "TextFileParseType *TextFileTextQualifier8TextFileConsecutiveDelimiterOˎa]N&g/> (TextFileTabDelimiter4TextFileSemicolonDelimiter ,TextFileCommaDelimiter ,TextFileSpaceDelimiter .TextFileColumnDataTypesRefresh &readTextFileToSheet 9%Y h N;>kLO,l|0)Z9H>[OCkL>ToString \.HtgetGeno readPedigree ,ѣ;_A-NWx getSheetInfo XDHpFMF // $Number of fields = JSNP tools: transpose an external file3ҋB ` TAB {space} Reading  ... Writing  : 9%;  setSNPsample setDiseasesetGenosetAgesetData setDataFrom getString PrintData P48< CASEL-o/MK*5OR_X2MHOR_CI95LOR_CI95UOR_CI99LOR_CI99UOR_X2 OR_Power95K OR_Power99K OR_Power999K OR_Power9999KOR_Power99999KOR_P ( OR 95%CIL 95%CIU X2 RR_PowerK X2_MHt6NDGAeaV 9%K 9%f 9%J i E!0getSNPidgetCHgetLocgetLOHsetSNPidsetCHsetLocsetLOHEqualCHEqualLOH T48@ 8SNP tools: compare haplotypeName  TextFilePlatform 8The longest common stretch:  >The longest common stretch is: InteriorColorIndex :C:\Progra~1\SNPHAP\Phase.EXE  :C:\Progra~2\SNPHAP\Phase.EXE  LPHASE is not found in default folder.  8Please run PHASE by yourself snp_1ID8TextFileTrailingMinusNumbersBackgroundQuery .out.txt _freqs _pairs 6SNP tools: convert to Phase freq pairs  P  S .out .out.trans "PedPhase_work.txt "PedPhase_work.out (Pedigree data of ID .PedPhase_work.out.trans PedPhase1 PedPhase2 -b -c -l -m -i 6SNP data including pedigree XSNP data including individual ID in 1st row! PedPhase.EXE  :Failure running PedPhase.exe. WinPedPhase RR_CI95U  not found! _F _M | $SNP tools: hotspot SNP ID Ch LocationBYgI2Llwȯ18 C$nQRgetCompsetComp EqualComp T48D Chromosome DistanceCopy SNP.info SNP.ped FC:\Progra~2\Haploview\Haploview.exe v\Progra~1\Haploview\Haploview.jar -assocCC -check -pedfile   -info  java -jar c: java -jar d: VHaploview is not found in default folders,  @Please run Haploview by yourself .ped FC:\Progra~1\Haploview\Haploview.exe TSNP tools: convert Hapmart0.7 to Haploview MARKER ID POSITION dCould not find column of 'marker id' or 'position' GENOTYPE FCould not find column of 'genotype' Sample 4 -assocCC -check -pedfile   -info Zt@Gd'L gSIR 9%   LSNP tools: convert HAPMAP to Haploview >SNP tools: convert to Haploview .INFO .map 2SNP tools: Common Stretch LengthȫAC_O  FT_'FDF WorksheetYIG8!b/|JE'G;N1_Fg_R#initF H48BorderStyleBackColor SIR_CI95L SIR_CI95U SIR_CI99L SIR_CI99U OddsRatio OR_formatOR_minorOR_SE OR_PowerKFisherExactTestOR_PMHOR_Power OR_Power95 OR_Power99 OR_Power999 OR_Power9999 OR_Power99999 ##0.00  ( 9%  RiskRatioRR_CI95LRR_X2% @M GfK'(xt.9EuZp^7 Constructor D Strata_ORStrata_OR_minorStrata_OR_minor_HaploviewStrata_OR_HaploviewStrata_OR_CI95LStrata_OR_CI95UStrata_OR_CI99LStrata_OR_CI99U Strata_OR_X2 Strata_OR_PStrata_OR_P_minorStrata_OR_P_minor_HaploviewStrata_OR_P_HaploviewStrata_OR_PowerStrata_OR_Power95KStrata_OR_Power99KStrata_OR_Power999KStrata_OR_Power9999KsetData2Run Strata_OR2_X2 Strata_OR2_P e : OR_HaploviewMAFcontrol_HaploviewOR_Haploview_POR_Haploview_minorOR_Plink OR_Plink_genoOR_6geno OR_P_6genoOR_CI95L_6genoOR_CI95U_6geno OR_X2_6geno OR_SE_6genoOR_P_Plink_genoOR_Plink_CI95LOR_Plink_CI95U OR_Plink_hetOR_Plink_het_CI95UOR_Plink_het_CI95L OR_Plink_homOR_Plink_hom_CI95LڛLn8MrBτOR_Plink_hom_CI95UOR_Plink_hom_formatOR_Plink_het_formatOR_Plink_format Alleles_plinkAlleles_3genos MAF_plinkCallRate_Plink_Geno merge_format merge2plinkMAF_Plink_GenoHWEp_Plink_GenoCallRate3_Plink_GenoOR_Plink_power OR_Plink_pN_effect mono 9%  Failedc{Ld\zSפFdnBadD},RB)!@ z?OptionButton16v#E{q 1 7 OptionButton15 Run_Click sharingSTRsharedSTRallele | &half_matrix_col.txt  N =  Sum = Mean =   =  SD =  0SNP tools: SNP HaplotypeVisibleCancelErrorcreate_KruskalWallis3create_KruskalWallis2 _ <-list( (g<-factor(c(rep('A', ,c(rep('B', )) ,c(rep('C', c( );kruskal.test(t|}XH~պE$*#CPLd *Convert to H&aploviewHh*|SF eBDINdBb)ҦJ0 F}{O/\ tIqLHAG 7siKXsENnZP+ֆLG u1BM Cr!YJ5TkW+hOޞH 1 7iOAKivs IBPa$ 8Tph5@ekGaQ($o쿤D BXLc.;fTM9_CpL!Օ#CM1. 7 ?EiWKxBפ5,; @ݯJ q 7@& 8<D`|'>A0A*k;-kL옟5hpDKG\C4*A<\@SN&biKF^ 70$ 8)TXD Dj@D pCj3 h5@}mM~p~}^+5M2:"G\j.G)q? 8SNP name Files (*.txt),*.txt $Save snp name file .Dat Files (*.dat),*.dat Save dat file 0data Files (*.txt),*.txt Save data filea %BLTxaSoGH\ɿ+E^[MD :++YX2-JRmnO[!MNQ?m  7 Save name file$ 8@@CT$pu@h5@& 8<De`AsAs| AsAs,Ask$ 8Tph5@ 0Info Files (*.nam),*.nam .dat Files (*.dat),*.dat߳MR9E=`sM-B~(*9:i:VKJD\!++PlEN܄8 Z;Or$\  7h :shrae_STR Files (*.txt),*.txt Save txt file$ 8Tp *text Files (*.txt),*.& 8<DEAs`@AsAs|Ŭk$ 84  T`\p%  &еEZH+襦zDh/Cm <8E1vd.nӿ"%I=\F\Ng9 78 0text Files (*.txt),*.txt SNP.txt SNP.dat SNP.nam SharedSTR.txt SNP_trans.txt[__SRP_1oK5frmSNPHAPs33f}orttallele22SNPIDRange3 1Q7 YQ7 Q7 Q7 Q7 9Q7 AQ7 1Q7QG iSNPcodemyRangesChmorfarchildmorORfarSexGenoGeno1fileName DELIMITERSNPAlleleGenotype( SNP sourceiq5"Tahoma,Convert{w @"Tahomat"5"Tahomat6 w @"Tahomat*Progress5"Tahomass ( SNP name fileq5"Tahomass @H,snp.nams5"Tahomams(...o{4u"Tahomams ( SNP data fileq5"Tahomams @H,snp.dats5"Tahomats(...o{4u"Tahomats,SNPHAPts{w @"Tahomats,Read{w @"Tahomats , WinSNPHAPdq{w @"Tahomats(SNP typeq5"Tahomape8F, 0A, B, AB, Nocall5"Tahoma8F 0ACGT, Del, Hetll5"Tahoma!H45"TahomaLabel1O$@Convert , 24progressBarH g ( 2<Percent (2<ProgressOg (2@Label3ssO"P @&TextBox1 Assign a path and filename for output X 4&CommandButton2ll!Assign a path and filename for output (2@Label4x1OP @ &TextBox2 Assign a path and filename for output X 4 &CommandButton3ll!Assign a path and filename for output $!@ SNPHAPx2]( "< ReadResultto'( #D WinSNPHAPtto($28Label5x2O , %XOptionButton13ll , &XOptionButton23ll' $'<RefEdit1  art Microsoft Forms 2.0 FormEmbedded Object9qherIDMotherIDGeVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSNPHAP Caption = "SNP tools: Convert SNP data to format of SNPHAP" ClientHeight = 2700 ClientLeft = 60 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~; 6 E @ 2   4    >   C   * # % ) '  - / 1   9 ; <  G iSNPcodemyRangesChmorfarchildmorORfarSexGenoGeno1fileName DELIMITERSNPAlleleGenotypecodeSampleID copyNumberNeucleo iS1S2Anno AssocGene sourceArea targetArea myStretchesPlateID DESCRIPTION1 DESCRIPTION2 DESCRIPTION3Allele1Dosage1Allele2Dosage2Dosage 6A6( 8Q78 6a8H q99X 6 :h 69xSourceTarget iA;rstSheetrowcolSnp1Snp0kl Percentage 1<Q7Source1file1file2file @Q7 AQ7 CQ7snp2 targetSelectj DQ7 iFQ7 SNPfilename fileName1 fileName2SNPNamefinfoutoutIndexmyLines 6J LQ7 pedSource IRQ7sheettempStrv1v2 DecimalValue MinimumDigits BinaryValuesNumbervmyStr sheetNamestrstr2index sreSelectmyArray myArrayStringmyRangeChr1Start1End1Chr2Start2End2Range1Range2tofindtorepladdr OQ7( mystretchInfohaps ZQ78 I[Q7H 6[X selectedValueinFileoutFile Delimiter1 Delimiter2 bahTranscript_accessionSNP_relationshipdistanceUniGene_cluster gene_name NCBI_Gene_IDGenBank_descriptiontagbrief valueStringsrcSheetrowNocolNo rowStart0 colStart0 rowStart1 colStart1srcStrrstStrFamilyId IndividualIDFatherIDMotherIDGenderAffectionStatusLiabilityClassrowStartcolStart newSNPsample newDiseasenewGenonewAgeabcdNe OddsRatioOR_minorCI95LCI95UCI99LCI99UPower95KPower99K Power999K Power9999K Power99999KX2SEX2MHnewSNPidnewCHnewLocnewLOH newSNPLOHnewSNPnewCompO i)x vNewValue i Percent progressBarOR_MHCrudeMHMHabcdisMinor isHaploviewAFFE1UNAFF1AFFE2UNAFF2A11A12A21A22AFF2 allleleRatioAFFEUNAFFAA1AB1BB1AA2AB2BB2aaabbbratiototalrsIDa1A2UNAFFECasesControlsmerge YQ7allele11allele12allele21CompObjuaVBFrameJfrmHaploviewx33f 70 End (  /W}%R KQ$Tahoma8KEFҋB `EF  (2<Label1peO( SNP sourcertq5"Tahoman1,Convert1{w @"Tahomat1"5"Tahomat16 w @"Tahomat1*ProgowylCompObjzaVBFrameQfrmHapMapview}3 '3ress5"Tahomass ( SNP info fileonlq5"Tahomass @H,snp.info5"Tahomafo(...o{4u"Tahomafo ( SNP data fileonlq5"Tahomafo @H,snp.pedo5"Tahomado(...o{4u"Tahomado , HAPLOVIEWq{w @"Tahomado(SNP typeq5"Tahomape4F , 0Affymetrix5"Tahoma<F 0ACGT (SNP column)e5"Tahoma ( SNP data fileonlq5"Tahoma(SNP typeq5"TahomapeH$<5"Tahomape$@Converte, 24progressBarl ( 2<Percente  (2<ProgressO (2@Label3ssOh$@TextBox1 >,4CommandButton2nl!"(0@Label4x1O*$@ TextBox2 %,4 CommandButton3nl!( !D HAPLOVIEWtto((08 Label5x2O , )T OptionButton13nl , *\OptionButton23nl' (+2@Label6x2Oq(.28Label7x2O $/8RefEdit1  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmHaploview Caption = "SNP tools: Convert SNP data to format of Haploview" ClientHeight = 2610 ClientLeft = 60 ClientTop = 330 ClientWidth = 5490 StartUpPosition = 1 'CenterOwner TypeInfoVer = 87 End ,  /@W}%R KQ$Arial Unicode MS8KEFҋB `EF( (2<( SNP sourcertq5"Tahoman1,Convert1{w @"Tahomat1"5"Tahomat16fo|~pCompObj aVBFrameU w @"Tahomat1*Progress5"Tahomass ( SNP info fileonlq5"Tahomass @H,snp.info5"Tahomafo(...o{4u"Tahomafo ( SNP data fileonlq5"Tahomafo @H,snp.pedo5"Tahomado(...o{4u"Tahomado , HAPLOVIEWq{w @"Tahomado(SNP typeq5"Tahomape8F, 0A, B, AB, Nocall5"Tahoma8F 0ACGT, Del, Hetll5"Tahoma ( SNP data filetllq5"Tahoma(SNP typeq5"Tahomape!H45"TahomapeLabel1peO$@Converte,ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 29 End ,J  @}3&aR KQ$Arial Unicode MS8KEFҋB `EF(2<( Soruce datatq{5"Tahomans!H${5"Tahomans( Result datat{5"Tahomans 24progressBarl ( 2<Percente  (2<ProgressO (2@Label3ssOh$@TextBox1 >,4CommandButton2ll!"(0@Label4x1O*$@ TextBox2 ,4 CommandButton3ll!( !D HAPLOVIEWtto((08 Label5x2O 0 )1X OptionButton13ll 0 *1XOptionButton23ll' (+2@Label6x2Oq(.08Label7x2O $/<RefEdit1 a  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmHapMapview Caption = "SNP tools: Convert HAPMAP data to format of Haploview" ClientHeight = 2625 ClientLeft = 60 ClientTop = 330 ClientWidth = 5490 StartUpPosition = 1 'CenterOwner TypeInfoVer = 87 End ,  '@H}3&R KQ$Arial Unicode MS8KEFҋB `EFC(2<( SNP sourcertq5"Tahoman1frmPhase '3 '3fYo,CompObj7a,Convert1{w @"Tahomat1"5"Tahomat16 w @"Tahomat1*Progress5"Tahomass ( SNP name fileonlq5"Tahomass @H,snp.txts5"Tahomats(...o{4u"Tahomats ( SNP data fileonlq5"Tahomats @H,snp.dats5"Tahomats(...o{4u"Tahomats,Phaseats{w @"Tahomats,Read{w @"Tahomats(SNP typeq5"Tahomape4F , 0Affymetrixd5"Tahoma<F 0ACGT (SNP column)e5"TahomaH$5"TahomaLabel1O$@Convert , 24progressBar g ( 2<Percent (2<ProgressOg (2@Label3ssO"P @&TextBox1 Assign a path and filename for output X 4&CommandButton2!Assign a path and filename for output (0@Label4x1OT 1@ &TextBox2 Assign a path and filename for output \ 14 &CommandButton3!Assign a path and filename for output $!@ Phaseox2]( "< ReadResultto'($28 Label5x2O , %TOptionButton13 , &\OptionButton23' $'8RefEdit1 S  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmPhase Caption = "SNP tools: Convert SNP data to format of Phase" ClientHeight = 2700 ClientLeft = 60 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 72 End ,  8@r})!R KQVBFrame9HfrmTransposeTextFile* '33f?=oA\$Arial Unicode MS $D , Transpose!rtq{w @"Tahoman1( Source filet S5"Tahoman1 @H,snp.txt15"Tahomat1(...o{4u"Tahomat1(@H,snp_tranpose.txt5"Tahomat1(...o{4u"Tahomat1( Output fileS5"Tahomat1AH,5"Tahomat1AH,5"Tahomat1 * Delimitorle5"Tahomat1Convert1] (2<Label3t1Oh @?TextBox1CkAssume comma-delimited, if not please contact with Bowang Chen.p 4?CommandButton2xtOAssume comma-delimited, if not please contact with Bowang Chen.h H?TextBox2CAssume comma-delimited, if not please contact with Bowang Chen.p 4?CommandButton3xtAssume comma-delimited, if not please contact with Bowang Chen.(+2<Label6x2r( 58ComboBox1tto!O( 68ComboBox2tto!(82@ Label7x2!  Microsoft Forms 2.0 FormEmbedded Object9qCompObjVaVBFrameXPfrmPedPhaseq{3A3f^VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTransposeTextFile Caption = "SNP tools: Transpose a external text file" ClientHeight = 2205 ClientLeft = 60 ClientTop = 330 ClientWidth = 6075 StartUpPosition = 1 'CenterOwner TypeInfoVer = 114 End ,J  N@1}%#R KQ$Arial Unicode MS8KEFҋBfrmLOHstretchA3A3foCompObjaH${5"Tahomans(Runo{u"Tahomans"5"Tahomans6 w @"Tahomans*Progress5"TahomassLabel1ssO <uRefEdit1 select data area inclluding 5 columns: SNPID, chromosome, location, Call and LOH (sheet name must not contain space!)(obi46 n``33fmog|CompObjupi66 n```43`43f[o~CompObjpi62 n``33fopCompObjpi74 n``33fot      !"#$%&'()*+,-=1234>6789:;</?@EABCDFLGIYJKMRNOPQSVTUWZfrjlmgikuoxytpnzxqvwz}{|~x'd      !"#%&u*9,-./012345678$:N<=>?@ABCDEFGHIJKLM)OPQRSTUVWXYZ[\]^_`abcfghijslmnopqretwXz{|}~vqW     ' !"#$%&()*+,-./0123456789:;<=>?@ABCEFGHIRKLMNOPQDSTUVYd[\]^_`abcXefghijklmnoprstuvwxyz{|}~[\ ; !"#$%/'()*+,-.013456789:[Z=I?@ABCDEFGH<JKLMNOPQRSTUVWY]g_`abcdefXhklmnopqrstuvwxyz{|}~.e0H    ( !"#$%&')*+,-./01234568:;<=>@KBCDEFGHIJLMNOPQRSTUWYZ[\]_`acdfhijklnopqrstvyz{} `EFH{@L <+/I<+/I90~uM < ,Convert2{w @"Tahomat2,PedPhase{w @"Tahomase,Read{w @"Tahomase n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,FO0-b5"Tahoma,FO0-c5"Tahoma,FO0-l5"Tahoma,F"0-m5"Tahoma,FN1-i5"Tahoma<J  @3}!OptionseR KQ<"Arial Unicode MSP@ 0LOptionButton3EBlock-extensionD]      !"#$%&'()*+,-./0123456789;<=?(@IBCDEFGH:JKLMNP`hS^UVWXYZ[\]R_abciefgjkvmnopqrstudwy|}~ 1LOptionButton4onConstraint-findinge@ 2LOptionButton5onLocus-based DPn@ 3LOptionButton6PnMember-based DP4 4LOptionButton7DPILPi  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q!Hk5"Tahomata2<Label2t1O$<RefEdit2 ,4CommandButton1P , 24progressBaro E( 2@Percent2 E(2<ProgressOE ECT_CUR Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmLO<J  @}!SNP dataR KQDArial Unicode MSLhoD :<RefEdit1SNP data including pedigree  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4F E1fEAll together5"Tahoma4F 0fECompObjpCompObjaVBFrameOfrmOR A3A3"5"Tahomass6 w @"Tahomass<J  @}!OProgressR KQ\%Arial Unicode MS`o, @24progressBar.(?2<Percent2  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qSeparatedher5"Tahoma@J  D }!Data format.R KQ<"Arial Unicode MSod CT3OptionButton8EGpedigree and SNP data were edited in the same sheetd DT3OptionButton9SGPedigree and SNP data seperated in different places  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qSNP data!Hk5"Tahomaee <J  G}!PedigreeR KQDArial Unicode MS\hoT G<+RefEdit2Pedigree (if it is seperated with SNP data)  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qbedded ObjectForms.Frame.19qmass6(...o{4u"Tahoma @H,snp.txt5"TahomatProgress@J  M }!Output file.R KQDArial Unicode MSo@ L4 CommandButton2llWhere to save2llD M@TextBox1Output file for PedPhase.  VBFrameKfrmHotspotsA3A3foRoot Entry Fzc 32Workbook4_VBA_PROJECT_CUR" 3 3VBA8338Fi 1rcA, B, AB, Nocall5"Tahoma8F 0rcACGT, Del, Hetll5"Tahoma<J  8}!SNP typeR KQ<"Arial Unicode MSdo, 7XOptionButton1tll, 8XOptionButton2tll  n``Microsoft Forms 2.0 FrameEmHstretch Caption = "SNP tools: find LOH>=2 stretch on chromosome" ClientHeight = 2235 ClientLeft = 30 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 29 End ,J  @}3&aR KQ$Arial Unicode MS8KEFҋB `EF(2<( Soruce datatq{5"Tahomans!H${5"Tahomans( Result datat{5"TahomansH${5"Tahomans(Runo{u"Tahomans"5"Tahomans6 w @"Tahomans*Progress5"TahomassLabel1ssO <sRefEdit1 select data area inclluding 4 columns: SNPID, chromosome, location and feature (sheet name must not contain space!)!(2<Label2t1O$<RefEdit2 ,4CommandButton1P , 24progressBaro E( 2@Percent2 E(2<ProgressOE CompObjaVBFrameGfrmCompHapA3@3f      "#$%'()*+,-./012456789:;<=>?ACDEFHIZKLMNOPQRSTUVWXY[\]^_`abcdefhjklmnpqstuvwxyz{|}~ Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmHotspots Caption = "SNP tools: find break points on chromosome" ClientHeight = 2235 ClientLeft = 30 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 29 End (  $}3&R KQ$Arial Unicode MS8KEFҋB `EF (2<Label1ssO$<RefEdit1 (2<Label2t1O$<RefEdit2 ,@CommandButton1MS , 24progressBaro ( 2@Percent2 (2<ProgressO ,@CommandButton2MS'(2@ Label3ssOE$< MinLenss E, 28 longestHAPtoE( Soruce datanq{5"Tahoma!H${5"Tahoma( Result datan{5"TahomaH${5"Tahoma ( Length Matrix) {u"Tahoma"oCompObjaVBFrame!9frmCommonStretch"@3@35"Tahoma6 w @"Tahoma*Progress5"Tahomass (common stretch {u"Tahomass * Min Lengthet5"Tahomass@H,"410ho5"Tahomass"4 u"Arial Unicode MS Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCompHap Caption = "SNP tools: compare Haplotypes" ClientHeight = 2580 ClientLeft = 30 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 36 End ,  @(}3&HR KQ$Arial Unicode MS8KEFҋBf&o3@CompObj@aVBFrameB@ `EF T(2<Label1O$<RefEdit1 (2<Label2t1O$<RefEdit2 ,4CommandButton1, 24progressBaro ( 2<Percent2 (2<ProgressO $<TextBox1 E0 1T OptionButton11E0 1P OptionButton21E0 1P OptionButton31> E(2@ Label3x1OE ( Soruce datanq45"Tahoma!H$45"Tahoma( Result datan45"TahomaH$45"Tahoma(Runo{u"Tahoma"5"Tahoma6 w @"Tahoma*Progress5"Tahomass@H,"410ho5"Tahomass4F 0Common SNP5"Tahoma0F0NoCAll5"Tahoma0Fs0CAHomon 5"Tahoma * Min Length5"Tahoma Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCommonStretch Caption = "SNP tools: find common stretch" ClientHeight = 2520 ClientLeft = 60 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 40 End ,  *@R}3&vR KQfrmSTRshared@3@3fGoJCompObjga$Arial Unicode MS8KEFҋB `EFD 2<( Data sourcetq5"Tahomans,Runow @"Tahomans"5"Tahomans6 w @"Tahomans*Progress5"Tahomass( Save to fileq5"Tahomass(@H,sharing_STR.txtl5"Tahomass(...o{4u"Tahomass( Rows/sampleq5"Tahomass,F0xt1 xt5"Tahoma,Fb0xt2xt5"Tahoma0G,b0xt15xt7 @"Tahoma,Fb1xt16xt5"Tahoma,Fb0xt3xt5"Tahoma!H45"TahomaLabel1OSelect the data area <Rune , 24progressBar  ( 2<Percent ^ (2<ProgressO (2<Label3ssO"P H&TextBox1 Assign a path and filename for output }X 4&CommandButton2tl!Assign a path and filename for output }($2<Label5x1O, %L OptionButton12tl , &L OptionButton22tl,'T OptionButton15tl,(L OptionButton16tl, )L OptionButton36tl$*<RefEdit1   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSTRshared Caption = "STR tools: Compare sharing STR allele" ClientHeight = 2250 ClientLeft = 60 ClientTop = 330 ClientWidth = 5550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 82 End ,  /@W}%R KQVBFrameiCfrmHapMart07v@3@3foorp$Arial Unicode MS8KEFҋB `EFLe(2<( SNP sourcertq5"Tahoman1,Convert1{w @"Tahomat1"5"Tahomat16 w @"Tahomat1*Progress5"Tahomass ( SNP info fileonlq5"Tahomass @H,snp.info5"Tahomafo(...o{4u"Tahomafo ( SNP data fileonlq5"Tahomafo @H,snp.pedo5"Tahomado(...o{4u"Tahomado , HAPLOVIEWq{w @"Tahomado(SNP typeq5"Tahomape8F, 0xtA, B, AB, Nocall5"Tahoma8F 0xtACGT, Del, Hetll5"Tahoma ( SNP data filetllq5"Tahoma(SNP typeq5"Tahomape!H45"TahomapeLabel1peO$@Converte, 24progressBarl ( 2<Percente  (2<ProgressO (2@Label3ssOhL @#TextBox1 >Don't use file name including spaceu,4CommandButton2ll!"(0@Label4x1O*L @ #TextBox2 Don't use file name including spaceu,4 CommandButton3ll!< !D  HAPLOVIEWttoRun Haploview1P((08 Label5x2O \ )1X 'OptionButton11P Genotype in the format of AA, AB and BBX *1X!OptionButton21P' Genotype in the format of A,T,C,Gand(+2@Label6x2Oq(.08Label7x2O /<hRefEdit1 aplease include columns of chromosome, position, marker id and genotype. Extra selection will be ignored.  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmHaCompObjaVBFrameMPROJECTwmPROJECT pMart07 Caption = "SNP tools: Convert Hapmart0.7 data to Haploview" ClientHeight = 2625 ClientLeft = 60 ClientTop = 330 ClientWidth = 5490 StartUpPosition = 1 'CenterOwner TypeInfoVer = 87 End ThisWorkbookThisWorkbookSheet1Sheet1SNP_functionSNP_functionSNPDataSNPDataBaseBaseABCABCfrmSNPHAPfrmSNPHAPfrmHaploviewfrmHaploviewrangeInforangeInfoPedigreeItemPedigreeItemselectInfoselectInfostatusBarControlerstatusBarControlerSNPLOHSNPLOHStandard_IRStandard_IROddsRatiosOddsRatiosRiskRatiosRiskRatiosMantelHaenszelMantelHaenszelSNPsampleSNPsampleMHstrataMHstrataOddsRatioStrataOddsRatioStratafrmHapMapviewfrmHapMapviewOddsRatioHaploviewOddsRatioHaploviewfrmPhasefrmPhasefrmTransposeTextFilefrmTransposeTextFilefrmPedPhasefrmPedPhasefrmORfrmORfrmLOHstretchfrmLOHstretchfrmHotspotsfrmHotspotsfrmCompHapfrmCompHapfrmCommonStretchfrmCommonStretchDieseArbeitsmappeDieseArbeitsmappeAffy_anno_geneAffy_anno_genefrmSTRsharedfrmSTRsharedRRfrmHapMart07frmHapMart07ID="{4FF1F8BB-2AD4-4B70-9FCF-D21627872D66}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=SNP_function Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Class=SNPData Module=Base Class=ABC BaseClass=frmSNPHAP BaseClass=frmHaploview Class=rangeInfo Class=PedigreeItem Class=selectInfo Class=statusBarControler Class=SNPLOH Module=Standard_IR Module=OddsRatios Module=RiskRatios Class=MantelHaenszel Class=SNPsample Class=MHstrata Module=OddsRatioStrata BaseClass=frmHapMapview Module=OddsRatioHaploview BaseClass=frmPhase BaseClass=frmTransposeTextFile BaseClass=frmPedPhase BaseClass=frmOR BaseClass=frmLOHstretch BaseClass=frmHotspots BaseClass=frmCompHap BaseClass=frmCommonStretch Class=DieseArbeitsmappe Class=Affy_anno_gene BaseClass=frmSTRshared Module=R BaseClass=frmHapMart07 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B5B7B331B3B9B7B9B7B9B7B9B7" DPB="4143474848484848" GC="CDCFCB59DBE4DCE4DC1B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=200, 200, 1011, 654, C Sheet1=0, 0, 0, 0, C SNP_function=100, 100, 911, 554, C SNPData=0, 0, 0, 0, C Base=125, 125, 936, 579, C ABC=0, 0, 0, 0, C frmSNPHAP=75, 75, 886, 529, , 100, 100, 1053, 752, frmHaploview=75, 75, 886, 529, , 75, 75, 1028, 727, rangeInfo=0, 0, 0, 0, C PedigreeItem=0, 0, 0, 0, C selectInfo=0, 0, 0, 0, C statusBarControler=0, 0, 0, 0, C SNPLOH=0, 0, 0, 0, C Standard_IR=0, 0, 0, 0, C OddsRatios=150, 150, 961, 558, C RiskRatios=0, 0, 0, 0, C MantelHaenszel=0, 0, 0, 0, C SNPsample=0, 0, 0, 0, C MHstrata=0, 0, 0, 0, C OddsRatioStrata=0, 0, 0, 0, C frmHapMapview=100, 100, 911, 554, , 225, 225, 1178, 877, OddsRatioHaploview=150, 150, 961, 604, C frmPhase=25, 25, 836, 479, , 300, 300, 1253, 952, frmTransposeTextFile=175, 175, 986, 629, Z, 150, 150, 1103, 802, frmPedPhase=200, 200, 1011, 654, , 200, 200, 1153, 852, frmOR=150, 150, 961, 604, C, 175, 175, 1128, 827, frmLOHstretch=100, 100, 911, 554, C, 25, 25, 978, 677, frmHotspots=50, 50, 861, 504, C, 125, 125, 1078, 777, frmCompHap=50, 50, 861, 504, C, 50, 50, 1003, 702, C frmCommonStretch=0, 0, 811, 454, C, 0, 0, 953, 652, C DieseArbeitsmappe=175, 175, 986, 629, C Affy_anno_gene=0, 0, 0, 0, C frmSTRshared=125, 125, 936, 579, , 250, 250, 1203, 902, R=0, 0, 0, 0, C frmHapMart07=0, 0, 811, 454, , 275, 275, 1228, 927, PROJECTlkSummaryInformation(PDocumentSummaryInformation8 CompObjr"EFEF<+/IH28C4C820-401A-101B-A3C9-08002B2F49FBOh+'0  PX  $SNP tools created by Bowang Chen8Some SNP tools created by Bowang Chen, July 2004, DKFZ Bowang ChenbowangMicrosoft Excel@hWy@3՜.+,0t X`p x DKFZ Sheet1  WorksheetsA~,0z *H k0g10 *H 0R +7D0B0 +7ZvIi/-0 0 *H 5튃V <k]蠂00 UAZ H-0c0  *H 0=1;09U2SNP_Tools_BowangChen_DKFZ0 091231230000Z 151231230000Z0=1;09U2SNP_Tools_BowangChen_DKFZ00  *H 0i N$v>eƒFG?ӤK`]+Dz 02$hQƳOͱ᪆x# $Ohf{8HŅV[A;i<ތUA^Kмl400U% 0 +0nUg0e\HgןHRm/?0=1;09U2SNP_Tools_BowangChen_DKFZUAZ H-0c0  *H zpв@{@^S ojK!7}4kjsY^J22p j$K*kk'Hw#kJ9J'~.Q_! ADm-˟1l0h0Q0=1;09U2SNP_Tools_BowangChen_DKFZUAZ H-0c0 *H p0 +7 100 *H  1  +70 +7 10  +70 *H  1RWX000  *H &,`=K^.WLZc|@gu"By2PU%<߸ׁ d* T0Rق!ɸe 7wЭA>v)FON~/4(̥3zYlێ#"CERTn?u[QEF_+k5o&s.@_Qw "S+eUEL!, <SelfSignedCertsMicrosoft Enhanced Cryptographic Provider v1.0 }Va* Z @I)eƒFG?ӤK`]+Dz 02$hQƳOͱ᪆x# $Ohf{8HŅV[A;i<ތUA^Kмl400U% 0 +0nUg0e\HgןHRm/?0=1;09U2SNP_Tools_BowangChen_DKFZUAZ H-0c0  *H zpв@{@^S ojK!7}4kjsY^J22p j$K*kk'Hw#kJ9J'~.Q_! ADm-˟ F&Microsoft Office Excel 2003 WorksheetBiff8Excel.Sheet.89q