>oX>gW#Nnd IfO' e of L O' wr@ outas rt f:
For n11 To=tW9(nOHReiacopVF()wPWq!3 T@ranslaZs Next pte 1 {\c bpat17\c ellx4000
8 0numoBfprows0Int! / 2
|y \intbln
bpSr@G)"\
/e2\}\p1 >E0"Slub ` kllec믴 no As In teger)
ReDim Ci fExpData(50 TLtmpthing
4anotherPdCount =@ 0
,t ractUnivP.Get "d structur eno, "_d iffrn_meas ment_ device_t0ype"" pd_in T_loc ation"
' determ ine if areactor used
IfvQAD r Zitem(\). value) zTrue Then
rjb FkS}CCD
Else, FaEnd IfÀPу+ 1 (1 "#SPW#" & >RtfSt yleNummber@ " QK^In C(1,ZI
A om} vbTextComp w) > 0D_ B@A8Y&p "#/@dY =o
D B+e>rGHmBBPo|wd [a spec_m ?*`P-?E %?E).U1ESi| E:GifGM4Y !碄!!de_!_!_! _! d in'!l!(de "ta Ca_scathod?"?"߈C4" meBV#Bpdmquired$, ' i.e. reset tofault?L nexptl_ absorpt_correc ?q?cAnA gOn7 b~~tT_y{?'I _8e]kta"
Symmetry codes: (i)
U o[ 5o2?o To2_o
4!2o 5 o> {27 xxio2778 8/8?8 3?8O8O8_8o8828888888~488B Exlseߟߕ" & ValPPber) ".E nd SelectNext `C" CifLpD7p1bEx tractUni`v.Repqs 0ag eomtableQTru@ # GoTo finished@ E ף MF @a "/ 2
bModAb! Int(a) + 1Q3"'' tr to a` 'count 2 Uh 1,4Aq!x2000x4 6 8 0(*\s$TSt8yleC09 bpat170 ' s0tartP
Dimstring As S
C= "\intb* IÑ = 1 ` &H?@-
O D "(s . 'q3 J}}\par1 0%U',QSuba` GetHydr`ogenBU(block@P Zap$eger, 17gedPmsonlyBooleanYEraseU0!head#"
totXref#0 ' do@$reset if`mb2pwith o'tr &s q (11)S TFFc rF@p m-_!<_h _atom_sp_label_D"6Fa5=Exit `6- /NC7.b7RePrve H(
'5QQC)needUd etermine which0@ equivea@%list oqossiAh313__+Y+
*2/.H *3/,A-4.4 symmetry{4l 5A N 6W
. 7dance_D8uH910anglA oopdatan ame(11) = "_geom _hbond_p ubl_flag "
'c
headcounBt CifL N umCols 'UB 0d(,D , 2)
totrows
1R11 1
ReDim l ^q(v For colnum Q1 Tor
1!Trim (0, B)&Next
n)0
Don + 1
If n > 16hen Exit
H 'check -StrComp(Sn),t[, vbBinaryare U5'G(0 T I *#(n.@,Dlse: End IfCCC yD d |s(#hFEy L) ' now PhaveA^ Arof eachE (1 to . ..) stored asJ 'D9F
'lYLeVnX 1| A
@<
P'' MsgBox "1Tre @] * _'s Gofinish&4 C s"AN E"`a'fir st determine!Gџ 3 R= Bd
`a#(t(cP*% Like "[Yy]* `
Ogedi temsonlygeP@ FaK" aB%getnm"
~
F `%Bn ' lyse HsymDde|re+a scAv:46c!@co .n# -Z A hH (; x Qb P!
- do@Kthing OL 0Aw repeat1 @E"!w=496iLdx=DidTber_hm(`=8'dPSelect CaMVal`s4]cG!bTo]ud
@
"i,,3,-4>-vmC5}6>C78i63p3pxx!3p> U p_ u p~ e3 q] 5 ?q> !_q_ u q q3q 54q] q0Else" `& Val} ~b(er) "aEn d SelectNext 00
'c
@
CifL D7 1Ex tractUni`v.Rep!sF( )_rVRtfWrite. Tra nslationǿoum(2??????O
V??op;&??23??????3V???
ϴϴm(4% pm(5t.-o }b 65m(?&7_=##G/@ @FormatNum`VsKOװ( 8????3??@:BB?69???o c ??l*m(?610OOO s P CifLoopD ata(rownum, l d namecol L (10)) = FormatNu@mbers(()D
' c*
'MsgBoxr $k7) i37 pubbonds( sl%e & codeflPagid4" {\emdashP}" &b2(35Q3...(03(06\cell b@<"
89
& *
I f y ThenElse
@@ycf6BG}"
End If
getnexth:@N C > 0 geomtabDleTru@# % GoTo finishedHC2D+0` @{\i D}&WHc8H`L!A}`tt ! 'a `b (/ 2 }b(Mo6db@bH In t(a) + 1e `'$'$'"
RtfWri te 1,Fpa4r\d d ParaH ydrogen--= t ( Å, °) forHblo8ck(&).% B!IDk1 Jtot_~u1@ '*Rp0 (Rows '@UBound,. sCoFl `, 2 sFc 1 '~ault2a> ra' need to)entify which`+as cif" p ! nra C֘p nLD`
j v p5O se t up arrays of))` from2rtore P qa l chars x 3Jeadh # lliLe n/ r'reHmovUst>veCcomma - nocany m 10 `Right?01)`P- h, InStr( ]</'", 8Left( fE%"spaceslab`#@ bymix$ed
/rexpin0TO0 @I0 ""r3Do%'lsc,27A+T8"A '*( ?o m Fcp - A2A30 l
!` q)cb=;o 3EA r1, <`( B ,u]Ro@P
;BɠtA bS2P _W
+E
26M B;10 Qk ? u lBr a 0 Then Q?
e &\CC CLeft,!J- 1)wRigh - B efCElseF-K Rr?s
@Ŕss3t{@"Du@vJ@=. 1:=s ' ' e.g. y,x,z asA3`m op! L '@ don't anything coz pro bably no t meant to be in s?D Gs' MsgB0 & q;8@
h~ ?
df ' tesBsePf val)Pzero=QUC0omp(, "0X 3Ң'
"ANp d])oQjfOlead0bpluo) Like "+*1 l ?H0/s^*TrueULetul = o, -" Sescape&1no@#
'Symmetrys: (i) ;>"x-1,y,. 0 Then
E 1 {\
A d\p lain \s@a120\f s20 - 1Forv%= 1 To\- Gi f;> | 0.}сClo#a0$: A-If $
= P5Er
q, 1 xyzQfldag id5u b
Sub GetCoor dinatesT able(datQp ock@bA s Intege r, allloDopP ms B@oolean
Dim headcountd nam e(13)QStrin
coloU`*c
`%CifExt ractUnivr.if1
&_@atom_s _@label"q-FaPK( xit - "StyleC)r= .+1(RePreserveI(
R`AtmppDɽ
).bl qQ_LO B2R#, .
2=Par@agraph
TrupcwNum(A'' now haan array A(q*(* ' a16} L.&V)needPE det ermine w0hichpG1+ equivea@%list of possi6 s
+2)"n*\]0Xf/<_x6t_y}tt_z}5 U_iso_Xor_6aXdp_w7calc_!M8attped-9- m"s
10 occupanc1Pxd r0_as sem bly"
lo opdatana me(12) = "_atom_ site_dis order_gr(oup3
^ty pe_symboBl X
'c
headcount uCifL NumCols H'UB d(D , 2)
t@otrows
1R 11 1
ReDim q(v For colnum(1 Ton (vTrim J(0, B)&Next
n)0
Don + 1
If n > 13 Then@ Exit
L
H 'check -Str Comp(n),t[, vbB inaryare U5#E0$I(nA@.@,Dlse: End IfCCC yD dpubbonds(#h'FEy L) ' now haveA^ Arof ea ch (1 to ...) stored a~sJ D9F
'blYLenX 1Ձ| A @<
P '' MsgBox "@yre S@] * _A<_9l_flag's Gofinish&4 s"AN E"`a 'first d etermine!GhA`DjU9 P@a)= b2` [["~E
A)E ,2o5
}(oY,4)aQE xtractUniv.
mat@berst @PUg 13uFmRepcodesFbd !g?# *RPtfWr.T ranslatiton?e#`allA msĆ@z03"\cel l {\i x}gyhzhUd# l c h5f ͠?s!o& +ù:& EE
" b=o- j:f @'
CB>
b @ @lc geomtable'TruepBs Ma%bpe$Da @AP / 2PNbMod2p b 'Q@Int(a)cw'
ax*$'S qUVU M $8 1,#par\
4 dp e9ParaAAitc Pp[s4 f`" Pblpock( pN)J.,BID <~/H <
5 {"x600) 12 8 24Y 30 44]5`67=7 lx154670'D'*\u& T+Stylec1\cbpat1 7 " 'Par>tP Ћ(tring As *" H'1ofr's in pidx vW\intbl&=+q:p @ 2b:a:a5 } close )%:BA0Sub Q
GetxAdp )a7egercp(
',Rtm!Az CD._FO1 GhF")_R#)U
1
Rle)Rgraph
fwd;= ',anpray+ ' a0D6 .S)ne0ǗwhichQ@ equiv1͑ %liAossiu ?mRl**ƶ m_site_a niso_U_1 1"
loop dataname (3) = "_Hato 22
4T33
T5T1UV6*U7*2*8*type_symbol Y
'c
head count CifLNumCo@ls 'UB d
( D , 2)
totrowZsR1
ReDim
8(; For @colnum(1p To (CyTrim J(0,)@Next
n 0
Don + 1
If n > 8 Th en Exit 1A
# 'Acheck@StrComp(n),:-, vbBinary are@*#E0$I(n@ .@,Dlse : End If_CCC xDcp ubbonds(#ChFyK) ې ' now have^ rof 0eachE ( 1 to ... ) stored asJ D9F
'lYLenXU 1A| A('' Ms@gBox "w0!1"\cell {\i U}{ \super 1$1}2233112߀k9& Cso& . & 4@$@12s(`W`W geom tablep True6EU` JBawV2ee\Q9a @! / 2BbbMod2p b 'QInt(a)k' BZ0 S @'S II? oB {, 1B,Ppar\4 dCp-Para<0it>ATppi c ` displaceme# Qs f " & 1FblockN( OD). BIDp"t2d A/eger0PA r91|notefoot Q(ĄX)sharSd0<65t6t
~
*'-,3_UE_2 _2F_Q _/Chr(c$`@tmk1g`dmo1C`valuJ" MISSING"RG )5H5B Omiss G o&R< /b> #SPW# "2m=!2* ,#/*?ck< "\//& |ifA+aL- 2)?a=?"?/$+ ?if,erv,3E4???/^?? aڵ ifDatava lue = "- "
extr blefootnot#SPW #" & tmpCitem(dTocknumb er).RtfStyleNum 9 b" !nT& H"#/q
D im headc ount As Integer
loop name(20)%String
Re@ !col X&
'c
If RE ctUniv.G et:, "@_geom__ ta Chr( charcode
)_D_1")False TheniGoTo finishe d
End If ' H%C= + 1Preserve (
)
T/BAW* !bl B9dp B #@H$O'&*@: tfDPara graph 7True<@@ MF@ b--j now ha@Xan a`rray A(Ƴ X' aw ,LP(row@ , C
need to dete rmine which equivea T# list of possi`R s
id(1RXX,2?+a2=j3?+3-4?+4-5?+5-6?+6-7?+Z7-8?+8-9?+9-1_B0nRͫ1nw Sm.S1_SmnS1wSmS1SmS1*/k+k *1/*?;>*1O*?;^*1o*?;~**le/|;"|2q*Ʉ
&_d4^eCols 'UB {d(_, 2^tot `bsRow ,| 1}qTfForub= 1 0 F [f@TrimI (0hN cn 0
Do
n p@n > 20 `Exit ! L '#c0heckComp(
bn),7ut , vbBinaryare
Q # SYs(nO 3 : ,
|p!Dpubbonds(#U ) ?g$G }~| (1...@) stor a} ~'E
'blpLen:u1)qQ '' MsgBox "reЎRe
__pl_flag'sX '@ 1s"? oa0'fir0noub q4!$5*B!A( T10 - g - y? !
P72(?֞((a))IReفwsF:
1, 3umPWr߁ Translation &3/@
p4?&a U
\\cell )'cS@{\i x} y z U @
p"c1A4 sQ?H Bkp" EF(lG
*a @r ows / 2
'b = puDbrModI f b > 0 PThen a I nt(a) + 1 @ bonds(r ,) H"\cPell
" PE8lse 'E nd If
c#
Rtf Write 1,@ "\pard {\cbpat1 7 q&Para*extrata bleheading I}1#not/jH#Bx0
@
For n 1 To ?count
x 8000 ņ)
ux" & x '600x12 24 3)U 3445WF D6F 7F 7k@ @5N S
>{P\*\s'TYS tyleNumb er@,Ef ' `start@@
Dim trd As SB ANBN' colQs in idx YG= intbl #@
è@&@ 7a
' y" 2close2Efoot@]E
fin ished:
*charcod
A Sub
---------------x . p ' vk z v ' | & 'iucrlogmsgcount = iucrlogmsgcount + 1 | r le V | p th # MsgBox Err.Number & Err.Description x! z 7 K T file already open V S n o 8 # NB: dont forget final closing brace ] ] ] z {\rtf1\ansi \deff0\deflang1024 {\fonttbl {\f0\froman Times New Roman;} {\f1\froman Symbol;} {\f2\fswiss Arial;} {\f3\froman MS Serif;} {\f4\fswiss MS Sans Serif;} } {\colortbl;
\red0\green0\blue0; \red0\green0\blue255; \red0\green255\blue255; \red0\green255\blue0; x \red255\green0\blue255; \red255\green0\blue0; $ \red255\green255\blue0; \red255\green255\blue255; \red0\green0\blue127; \red0\green127\blue127; \red0\green127\blue0; \red127\green0\blue127; \red127\green0\blue0; 0 \red127\green127\blue0; \red127\green127\blue127; \red192\green192\blue192; \red243\green243\blue243; & grey - 5% (no 17) \red230\green230\blue230; & grey - 10% (no 18) \red204\green255\blue204; ' light green (no 19) \red153\green204\blue255; ' light blue (no 20) } {\stylesheet {\*\cs0 default;} $ t ! 8 ` {\*\s $ t ! ;} d {\*\cs $ t ! ;} k x } \par \pard\plain \f0\fs20 \par
M 0 x ME ( P 1 < 4 1 0 1 8 $ $ ip ir um o@| x @v x E E i| @~ @ r @ @ i| @ i| i + i 4 zH H H 8 @ h # P H 8 @ h p h
3A e " ( 0 8 H P 4 X 4 , ( X h
x *
( " 0 * 8 h p x , , " " 0 $ X * " $ & 0 $ X & $ & ( $ & H $ p & $ & ( ( 8 @ ` B B B 0 x : 8 : @
(
0 ( , X &
0
@
" H
P
`
" h
" p
*
*
8 X x B ( H h ( x & " (
8
, X
*
&
(
: ( H * p * * @ , @ > p , * * , @ , p * * , * 0 * ` , , ( ( , @ ( p , * , * ( * X , ( * * , @ * p * , * * 0 , ` * * , , ( P ( x , ( , * ( , X * * , ( * @ * p ( ( ( ( P x > > > > P > > > < P > > > > P > > < < P > < > < P > < < < P < > < < P < < < ! > P! > ! > ! < " > P" > " < " > # > P# > # > # > $ > P$ > $ > $ > % < P% > % > % > & > P& > & > & < ' > P' > ' > ' < ( < P( > ( > ( > ) > P) > ) < ) > * > P* > * > * > + < P+ > + > + > , > P, > , > , > - < P- > - > - > . > P. > . > . < / > P/ > / > / < 0 < P0 > 0 > 0 > 1 > P1 > 1 < 1 > 2 > P2 > 2 > 2 > 3 < P3 > 3 > 3 < 4 " P4 x4 $ 4 4 4 5 5 @5 `5 5 " 5 5 " 5 6 4 06 $ h6 $ 6 6 6 6 ] ] H ] h tX ] ] p f E ' vd ( . ---------------------------------------------- ' @ 0 r + | 8 . -------------------------------
$
* rtftmpfilenameB = IucrRtffilename & ".1" & Open rtftmpfilenameB For Input As #2 Do While Not EOF(2) Line Input #2, tmprtfline Print #1, tmprtfline
Loop
Close #2 Kill rtftmpfilenameB V & o | } A@ o @ #PAR# $ '
$
$ $ ' H
$
$ $ '
$ $ '
$ $ ' $ ' h $ ' ( $ ' % ' $ ' | \par A@ o rtf reserved chars:( \ \\$ ' { \{$ ' ` } \}$ ' (
entities: Å {\f0\'c5} $ ' ° {\f0\'b0} $ ' --- — $ ' -- – $ ' × {\f0\'d7} $ ' &z-dbnd; ==$ ' &z-tbnd;
{\f1\'ba}\f0 $ ' 6 ≃
{\f1\'bb}\f0 $ ' ∼ {\f0\'7e} $ ' ± {\f0\'b1} $ ' 3 textstring = repinstr(textstring, "-+", "∓") ≠
{\f1\'b9}\f0 $ ' ⟩
{\f1\'f1}\f0 $ ' ⟨
{\f1\'e1}\f0 $ ' →
{\f1\'ae}\f0 $ ' h 9 textstring = repinstr(textstring, "\\leftarrow", "larr;") ∞
{\f1\'a5}\f0 $ ' 8 textstring = repinstr(textstring, "\\ddb ", "z-pdbdtd;") α
{\f1\'61}\f0 $ ' β
{\f1\'62}\f0 $ ' & χ
{\f1\'63}\f0 $ ' $ δ
{\f1\'64}\f0 $ ' & ϵ
{\f1\'65}\f0 $ ' & ϕ
{\f1\'66}\f0 $ ' & &phis;
{\f1\'66}\f0 $ ' ( γ
{\f1\'67}\f0 $ ' & η
{\f1\'68}\f0 $ ' ( ι
{\f1\'69}\f0 $ ' & κ
{\f1\'6B}\f0 $ ' & λ
{\f1\'6C}\f0 $ ' ( μ
{\f1\'6D}\f0 $ ' ν
{\f1\'6E}\f0 $ ' &omicr;
{\f1\'6F}\f0 $ ' π
{\f1\'70}\f0 $ ' &thetas;
{\f1\'71}\f0 $ ' ( ρ
{\f1\'72}\f0 $ ' ( σ
{\f1\'73}\f0 $ ' ( τ
{\f1\'74}\f0 $ ' * υ
{\f1\'75}\f0 $ ' ( ω
{\f1\'77}\f0 $ '
ξ
{\f1\'78}\f0 $ ' ψ
{\f1\'79}\f0 $ ' J ζ
{\f1\'7A}\f0 $ ' K Α
{\f1\'41}\f0 $ ' K Β
{\f1\'42}\f0 $ ' Χ
{\f1\'43}\f0 $ ' Δ
{\f1\'44}\f0 $ ' @N &Epsi;
{\f1\'45}\f0 $ ' Φ
{\f1\'46}\f0 $ ' N Γ
{\f1\'47}\f0 $ ' N Η
{\f1\'48}\f0 $ ' N Ι
{\f1\'49}\f0 $ ' (O Κ
{\f1\'4B}\f0 $ ' `O Λ
{\f1\'4C}\f0 $ ' P Μ
{\f1\'4D}\f0 $ ' Ν
{\f1\'4E}\f0 $ ' &Omicr;
{\f1\'4F}\f0 $ ' Π
{\f1\'50}\f0 $ ' Θ
{\f1\'51}\f0 $ ' P Ρ
{\f1\'52}\f0 $ ' Σ
{\f1\'53}\f0 $ ' xQ Τ
{\f1\'54}\f0 $ ' Q ϒ
{\f1\'55}\f0 $ ' R Ω
{\f1\'57}\f0 $ ' PR Ξ
{\f1\'58}\f0 $ ' Ψ
{\f1\'59}\f0 $ ' Ζ
{\f1\'5A}\f0 $ ' − - $ ' – {\endash} $ ' $ ' $ ' ≥
{\f1\'b3}\f0 $ ' ≤
{\f1\'a3}\f0 $ ' Roman font: … {\f0\' $ $ } $ ' † {\f0\' $ $ } $ ' ‡ {\f0\' $ $ } $ ' ‰ {\f0\' $ $ } $ ' Š {\f0\' $ $ } $ ' Œ {\f0\' $ $ } $ ' Ž {\f0\' $ $ } $ ' • {\f0\' $ $ } $ ' Z – {\f0\' $ $ } $ ' — {\f0\' $ $ } $ ' ™ {\f0\' $ $ } $ ' š {\f0\' $ $ } $ ' œ {\f0\' $ $ } $ ' ž {\f0\' $ $ } $ ' Ÿ {\f0\' $ $ } $ ' {\f0\' $ $ } $ ' ¡ {\f0\' $ $ } $ ' ¢ {\f0\' $ $ } $ ' £ {\f0\' $ $ } $ ' ¥ {\f0\' $ $ } $ ' _ ¦ {\f0\' $ $ } $ ' § {\f0\' $ $ } $ ' ¨ {\f0\' $ $ } $ ' ` © {\f0\' $ $ } $ ' 0 ª {\f0\' $ $ } $ ' " « {\f0\' $ $ } $ ' ¬ {\f0\' $ $ } $ ' {\f0\' $ $ } $ ' ® {\f0\' $ $ } $ ' ¯ {\f0\' $ $ } $ ' ° {\f0\' $ $ } $ ' ± {\f0\' $ $ } $ ' ´ {\f0\' $ $ } $ ' µ {\f0\' $ $ } $ ' ¶ {\f0\' $ $ } $ ' · {\f0\' $ $ } $ ' ¸ {\f0\' $ $ } $ ' º {\f0\' $ $ } $ ' » {\f0\' $ $ } $ ' ¼ {\f0\' $ $ } $ ' ½ {\f0\' $ $ } $ ' ¾ {\f0\' $ $ } $ ' ¿ {\f0\' $ $ } $ ' À {\f0\' $ $ } $ ' Á {\f0\' $ $ } $ '  {\f0\' $ $ } $ ' à {\f0\' $ $ } $ ' Ä {\f0\' $ $ } $ ' Å {\f0\' $ $ } $ ' Æ {\f0\' $ $ } $ ' Ç {\f0\' $ $ } $ ' È {\f0\' $ $ } $ ' É {\f0\' $ $ } $ ' Ê {\f0\' $ $ } $ ' Ë {\f0\' $ $ } $ ' Ì {\f0\' $ $ } $ ' Í {\f0\' $ $ } $ ' Î {\f0\' $ $ } $ ' Ï {\f0\' $ $ } $ ' Ð {\f0\' $ $ } $ ' Ñ {\f0\' $ $ } $ ' Ò {\f0\' $ $ } $ ' Ó {\f0\' $ $ } $ ' Ô {\f0\' $ $ } $ ' Õ {\f0\' $ $ } $ ' Ö {\f0\' $ $ } $ ' × {\f0\' $ $ } $ ' Ø {\f0\' $ $ } $ ' Ù {\f0\' $ $ } $ ' Ú {\f0\' $ $ } $ ' û {\f0\' $ $ } $ ' Ü {\f0\' $ $ } $ ' Ý {\f0\' $ $ } $ ' Þ {\f0\' $ $ } $ ' ß {\f0\' $ $ } $ ' à {\f0\' $ $ } $ ' á {\f0\' $ $ } $ ' â {\f0\' $ $ } $ ' ã {\f0\' $ $ } $ ' ä {\f0\' $ $ } $ ' å {\f0\' $ $ } $ ' æ {\f0\' $ $ } $ ' ç {\f0\' $ $ } $ ' è {\f0\' $ $ } $ ' é {\f0\' $ $ } $ ' ê {\f0\' $ $ } $ ' ë {\f0\' $ $ } $ ' ì {\f0\' $ $ } $ ' í {\f0\' $ $ } $ ' î {\f0\' $ $ } $ ' ï {\f0\' $ $ } $ ' ð {\f0\' $ $ } $ ' ñ {\f0\' $ $ } $ ' ò {\f0\' $ $ } $ ' ó {\f0\' $ $ } $ ' ô {\f0\' $ $ } $ ' õ {\f0\' $ $ } $ ' ö {\f0\' $ $ } $ ' ÷ {\f0\' $ $ } $ ' ø {\f0\' $ $ } $ ' ù {\f0\' $ $ } $ ' ú {\f0\' $ $ } $ ' Û {\f0\' $ $ } $ ' ü {\f0\' $ $ } $ ' ý {\f0\' $ $ } $ ' þ {\f0\' $ $ } $ ' ÿ {\f0\' $ $ } $ ' {\sub $ ' } $ ' {\super $ ' } $ ' {\i $ ' } $ ' {\i $ ' } $ ' {\b $ ' } $ ' #SPW# {\*\cs$ ' #/SPW# } $ ' #SPWP# {\*\s $ ' #/SPWP# } $ ' #fnstart# \plain{\*\footnote $ ' #fnend# }\pard$ ' #PAR# \par\par$ ' ' i 8 0 Attribut e VB_Nam e = "Cif RtfWrite "
Publi@c Iucr TfilenAs S ngB :F :Line() > countDIn teger
`
Sub Bv(Hrtfium%,b tex9|)9
On Er ror GoTo 9opene
Dim8mpR tum
If:= 0 The8n
El@se
'-*
v
=w + 1 eXPreserve (! X
Epxit 0]@." &J@nd If
Y ͌L& G!'ilogmsgEDMD^Or F {AJp d#2p Pri#2FClose / Az:@#MsgBox.Nu0mber@9 .D escriptio Select8 CaC
!55 ' already Resum C N Rub
And %>H er}No@'NB: do DforgetA&nal c@#ing brac"cAQfBff00) q "Q o"P/ng{r#1?ExttUniv.RepcodesF[5#Trla_%!IBP8H&q@Func(R)ۤ 1'2&d chars_ HWP\\\p({{5.}} entiti.e &ng;!{T'c5 %z&de|b0!#—_
C tr(texts tring, "--" (–")
t = repin ×;p{\f0\'d7}%tz-dbnd;=='4t4 p1\'ba} x %?s b 3 u7eu#plusmn b1 '-+mn"Y&ne6t9*trHangHf1jlKekrarr ae J\\leftowMla$infih MaB5 ddb A z-pdbdt @ Aalpha=6+MbetJ2F.ahchiI3dž&hdelk4eppsiv._"&ph6 >6&gatmm.7) &8sio{)khapp*BlambdCmu >DhnjEhomici,6Fpd70hth tiM7 |)6rhoh&7{sig
U73 a97=ng T|&u= =6&omeg&7/6x 6| 6zX7A`"&A`4"uB4"C]`4"D`4"Ek4"P \G\N4&Et*4&I\4&uK\4\L]\4\MA4\N\O\4\PAn5\T\hM59R\59uS\5:T]\59U959O\5 6=X
6Ps5ZT5\\\"&minu=- {\|enQOp
\emsp14) (textstr ing, "&e msp;" H ")
= r0epin ge^{\f1\'b3}\f0&vl va;' Roma n font:
!helli 0\'" & LCase(H ex(133)) "}"QdagXgern(4(D(5(permi
lQ7(ScaronX8mOElig40-Z(D42mbulQ49ndash<*5o -
no;F7-sh,res/Umac,o1d 71plusm ;
1 acuvton8'
micr''
para,,8(
dd/-W8?( ced/_(
0Am/&o#r?A8_#
frac14/
&
oU 2 U 3?
(9- iquesP- Agrav7- =Z9- circ9- til}29_V ?~9 2y$` f0\'" & LCase(Hex(197)) "}")
t extstrin g = repi
n 4(T, "Æ" {\8-Cce(dilQ9-QEgraveQ200(acut(1(PcircQ2.(um203'I Q4n Q5n Q6.cQ.ETHxNtildO<1_eO<1_e-
ݻ<1_e
(1e-
F1_e times7G1?e
slash8
_e,
U=Ge-
=Ge,
uCsubv Aa
/
©a suppergIB
iti(4 3iBBy p ( @ H P X p : , : 0 B p 0
> ( h 0 x " ,
P ` " x 0 8 H
P
` p x . . 6 & ( > P ( N 4 P ( 8 ( 0 8 @ H P , `
0 8 X x & " " ( 8 @
H X p x < & H p .
& H h p x 0 P X ` 2 6 8 @ H P h p b H P X
` p 4 ! (! H! h! x! ! b ! " " " " 0" H" " h" " " P " " # # (# . H# x#
# #
# # # # # # " # $ $ ($ 0$ @$ H$
P$
`$ $ p$ 2 $ $ $ $ & % : (% @ h% % D % % P &
`& P p& & . & ( ' (' H' X' . h' ' " ' ' ' ' ' ' ' ( ( 8( . P( ( ( ( " ( ( ( ) )
) ) ( () P) `) ) " ) ) ) ) * * * 8* P* h* p* x* *
* * * * * * * * + + B + : (+ h+ p+ x+ + + + + + D + 8, H, P, X, `, h, p, B x, D , , , , - < 8- D x- - - , - . . . (. 0. 8. @. X. `. h. p. x. * . . . . " . / 0/ 8/ H P/ / P / / / 0 0 0 & 0 " @0 h0 0 0 0 h 0 1 f 1 1 1 1 & 1 1 1 > 2 @2 P2 " p2 2 2 , 2
2 3 " 3 H3 P3 `3 p3 3 3 3 3 3 p 3 J H4 4 4 4 4
4
4 4 4 4 5 5 . 5 @5 h P5 B 5 6 6 6 6 (6 06 86 $ X6 6 6 6 6 6 7 , 7 @7 P7 h7 x7 7 7 7 : 7 7 8 88 @8
H8 T X8 8 8 . 8 9 9 89 @9 H9 B P9 9 9 9 9
9 2 9 : : (:
0: @: * P: * : : & : 8 : 0; $ 8;
`; p; x; ; ; H ; ; ; ;
< < (< 0< 8< P< X< x< < < < < & < * = H= X= h= p= * x= = = = = " = " > 0> H>
X> h> p> x> > > > > > " > ? ? ? 2 @? x? > ? ? . ? @
0@ @@
X@ 0 h@ @ @ @ @ " @ @ @ @ @ A A
A
(A $ 8A 2 `A A A A A A A A " B (B 0B 8B @B HB XB hB pB B B B B B B B ( C (C 8C @C . `C
C C C C C C C C D D D D @D , `D D D D D D E E 0E HE hE xE E * E E E F F 8F XF `F pF xF F
F F
F F F F G G 0G @G XG xG G G G G G G G G H
H 0H PH `H xH $ H H H H t H hI xI J J J J (J @J HJ `J pJ J J " J J & K (K 0K " PK xK & K K K
K K L L 0 8L
hL xL L L L L L L L L L L L L M (M @M HM PM `M
hM xM B M > M D M " N & 8N @ `N N N N N N N N N N O O @O PO XO `O hO pO
xO * O ( O O ( P (P 4 0P hP P < P P P P P Q
Q Q Q & 8Q , `Q Q
Q Q < Q R R R 4 8R > pR R R R R S S (S @S HS PS XS pS S S : S , S T T : 0T B pT 0 T T
T U U > (U hU 0 xU U " U U V , V
PV `V " xV V V V V V V W W W 0W 8W HW
PW
`W pW xW W . W . W 6 W & (X > PX X X X ( X N Y 4 PY Y ( Y Y Y 8 Y (Z 0Z 8Z @Z HZ PZ , `Z
Z Z Z Z Z Z Z
[ [ 0[ 8[ X[ x[ [ & [ " [ [ [ " [ ( \ 8\ @\
H\ X\ p\ x\ \ \ \ \ \ \ \ \ ] < ] & H] p] ] ] ] ] ] . ] ^ ^
^ & ^ H^ h^ p^ x^ ^ ^ ^ ^ ^ ^ ^ ^ ^ _ 8_ X_ `_ h_ _ 2 _ _ _ ` 6 ` @` H` P` X` p` x` ` ` ` ` ` ` ` ` ` ` ` ` J ` @a Ha
Pa `a xa a a a a 4 a a b 8b Xb hb b H b b b b b c c " 8c `c hc > xc c c $ c $ c . d Hd
`d pd
d d d d d d " d d d d e e e
e
0e ( @e 6 he e e e , e f f 0f 2 @f xf & f f f f f f f f g g . 0g `g xg g " g g g g g
g h ( h 0h @h `h " h h h h h h i i @i `i hi pi i
i i i i i i i i j B j " j 8j @j $ `j j * j j j j k k (k @k
Hk Xk hk xk B k k k k k k < k k l l l l (l 0l 8l @l < Hl l & l l l l l l l
m * m $ @m & hm $ m m 4 m m n < 0n pn xn n n n
n n
n $ n 4 n o 8o 6 Po o o o : o 2 o 0p Hp Pp `p p p p
p p p p * p " (q Pq `q xq q
q q q q 0 q q : q 6 0r hr xr r r r r r r r B r s 0s Hs hs ps xs 0 s
s s s B t " Ht l pt 2 t u 2 (u `u j pu 8 u v : (v hv xv ( v F v " v . w ^ Pw 0 w D w (x @ 8x xx x x x x x x y ^ ^ 0 ^ H ^ ` ^ x ^ ^ p 8 ^ ^ ^ ^ ^ 8 p P ^ h ^ ^ ^ ^ p H ] 8 ] ` ] ( ] ] P ] x ] ] ] ] 8 ] ( ] ] P ] PutCifInArrayOfLines ciffilename ReDim datablock(30) ] P ] h ' ' ' *_ P $ ' , $ ' $
not found $ ' x d ' k d ' @ $ $ ( $ $ $ ( $ ! ' k $ ! $ ( ^ $ ( ^ < if more than one structure need to identify datablock names _atom_site_ $ ! $ ! ^$
$ ( d $ ( k _pd_proc_ $ ! $ ! ^$
$ ( d $ ( k h P * The following data blocks were identified:A@J $ ! . $ ! (contains structure data) A@J * ' * $ ! *+ P d p . $ ! A@J k @ A@J o ] X ] p ] ] data_ Z $ ' G j % i.e. not found get pos of data_ in cifline: $ data_ $ ' line starts data_ ' d , check leading chars - allow spaces and tabs $ $ $ K
$ K
$ K K T ' allowed ' S X ' y H n @ k ( trim line from data_ onwards $ $ $ ' $
$ K
$ K T end of datablock name $ ' ' y exit $ K K # K T end of datablock name
, but check that following chars are the sameilenam $ ' ' y exit AS valid string so far Not $ ' Line ' n 8
, tm Loop $ K $ K K T
keep looking # K T ok - stop looking @ y exit S
not valid ' n X $ k @ k 8 0 , ' i ] 0 ] H ` x ] ] Scripting.FileSystemObject$ . ' n % . ' ' ! b ar ' @ 8 ! + ( 0 nb following used for displaying in wd textbox:' $
$ $ ' (
$ $ ' ; ' $ ' P B@B } $ ' o 0 @ returns line number ' $ h $ ' p} $ p
' y d ' k ba}\f0i returns MISSING if not found ' returns value as string if found : returns MAYBELOOPED & lineno as string if possibly in loop] ] ] ] ;"] ] ] ( ' _ loop to find dataname $ ' ' G j % i.e. not found ' ! get pos of data_name in cifline: $ $ ' ring line starts dataname ' d , check leading chars - allow spaces and tabs8 te $ $ d;") $ K
$ K
$ K K T ' alloweda; ' S ' y n {\f1\'k G j trim line from dataname onwards & check if line only contains dataname!& $ \' ' ' d 0 $ $ $ ' k ' G ' j $ _ G j @
i.e. no good a; $ [A-Za-z0-9] G j M
i.e. no good f0 $ K T
ok {\f1
$ K T ok
$ K T ok $ K T ok S
i.e. no good n
x
look again '
G j ' `
4 Start preliminary loop analysis ------------------{\f1\' & check that not a single-dataname loop{\f1 e.g. loop_ 4 _pd_proc_wavelength 1.540562 1.544390{\f1\' ' 4 XXXXXXXXXXXXXXXXXX this is where the dataname starts
' . " record this and return it somehow ' 'Do }\f0 ' $ ' f1\' $ $ ' 0 replace tabs with spaces $ ' * see if previous line starts with "loop_": $ loop_ ' probably a loop, but check:44}\f0 $ f0 % only spaces or comment chars allowed f0 K T N
keep looking {\f1 # $ K T
comment char ta; y X
$ K T ' move on
$ K T \' move on' $ K T tab char f1 move on S
no good - ' ' Exit Do n u;
OK f0 $ ' 'Exit Do
d p ( nb loop analysis wont identify pos loopf0 ( if dataname is last loop item, therfore$ / see if previous line contains a dataname only: remove any paragraph marks etc '
$ $ ' / replace tabs with spaces
$ $ ' ' $ ' # ' f0
G $ $ ' j # 9 nothing on line except comment (not likely to be a loop) ' ( or perhaps should look upwards to checkf1\'
e ! contains spaces - not a dataname '
_*_*[#A-Za-z] e 2 dataname only so possibly looped (or syntax error)' d ' k k ' Loop
& End loop analysis ------------------ ellip; MAYBELOOPED ' z 8 k 0 ( $ $ $ K T
keep looking $ ' ' $ K T apostrophe find next apostrophe $ ' y x " $ K T double apostrophe $ find next double apostrophe ' y # $ K T
comment char ' " move down a line and keep looking ' y ; K T look for next ; ' y
$ K T move on; '
$ K T move on ' $ K T tab char $ move on ' _ K T
+ could be start of another dataname in loop $ or could be a CIF syntax error $ need to see if looped ' y ` S X ' $ ' ( value only so look for next space or cr y n uml; could be in a loop MAYBELOOPED ' {\f0\'z k ' $ ' f0 P k H $ i.e. apostrophe ] @ ' ' $ $ ' $ ' $ lookfornextapostrophe: ' _ ' $ $ ' }
_ , check that following char is a space or eol $ $ ' K $ K
$ K
$ K # K T ' x S look for next '\' ' ' }
' x ` k X n P d H ' x 8 k 0 d ( ' Closing delimiter ' $ not found for (line ) A@J x k $ ' d p k h k ` i.e. double apostrophe . put in error handler if no closing delimiter! " $ $ ' $ ' " $ $ '
$ ' d h Closing delimiter " $ not found for (line ) A@J k k i.e. ; ; $ ' $ ' now examine following lines _ h " Closing delimiter ; not found for (line ) A@J k $ $ $ K $ K
$ K
$ K T
keep looking ; K T possibly found ' y ( d ' k # $ K T
comment char y S '
move downy n $ ; $ ' $ $ ' ' i.e. reset val x d bug fix for some Unix lineends 4 MsgBox Asc(Right(CifFileline(currentlineno + 1), 4)) 9 If Right(CifFileline(currentlineno + 1), 2) = vbCrLf Then ok > ElseIf Right(CifFileline(currentlineno + 1), 1) = Chr(13) Then MsgBox "13" I CifFileline(currentlineno + 1) = CifFileline(currentlineno + 1) & Chr(10) Else I CifFileline(currentlineno + 1) = CifFileline(currentlineno + 1) & vbCrLf End If ' assume blanklines are to delimit paras $
$ $ '
$ $ ' $ ' $ #PAR# ' d ` $ ' k 0 ' k k i.e. value $ K $ K
$ K
$ K T end of value $ ' y H # $ K T
comment char $ ' y S n k " remove any para marks from string '
$ $ '
$ $ ' #PAR# $ ' $ ' $ V( V( ( V( V( $ ! $ ! V( X y d V( X k p z X P MISSING ' MISSING V( V( ( V( V( V( X i X 3 replaces ALL occurences of a string within a string ' _ d h '
h d d $ ' d x d F k d $ d d h $ ' d ' d x k d' i > returns false if fails and reports reason as cifloopdata(0,0) reasons for failure: otherwise returns true % and returns an array of looped data: 6 cifloopdata(1 to cifloopnumcols, 0 to cifloopnumrows) > NB col heads contained in cifloopdata(0, 1 to cifloopnumrows) ]
] N
% Dim tableloopitem(2000, 20) As String ] ( ] @ ] X ] p ] '
Dim headcount ' ] ' first find loop
already have looplineno ' d 0 $ ' $ MAYBELOOPED $ ' d MISSING Expected % to be in a loop, but not found at all A@J d ` + found but not in a loop as expected (line V! ) A@J k ' $ z k k from now on have found dataname ' coz not found yet! move up to find loop_ _ p '
b response = MsgBox(dataname & " not found in loop or loop too large", vbOKOnly, "CIF syntax error") ' $ E not found in expected loop or loop too large (>20 data names) (line ) A@J V( z ` k X i.e. allow max 20 looped items NB replace tabs $ ' $ $ ' 0 replace tabs with spaces $ ' $ loop_ probably a loop, but check: $ % only spaces or comment chars allowed K T
keep looking # $ K T
comment char y
$ K T move on
$ K T move on $ K T tab char move on S 8
no good - j response = MsgBox("Possible syntax error: " & CifFileline(looplineno - lno), vbOKOnly, "CIF syntax error") ! Possible loop syntax error (line , ) A@J V( ' $ z H n @ OK ' x d k
' should now have line no of loop_ start b response = MsgBox(dataname & " not found in loop or loop too large", vbOKOnly, "CIF syntax error") " not found in expected loop (line ) A@J V( ' $ z d ' k find loop headings max allowed ' initial assumption ' $ + $ ' $ $ ' $ ' % test tmp to see if it is a loophead: _* ' exit ' y d x $ K $ K
$ K
$ K # $ K T $ + $ ' y n M check to left of dataname as values could be on line if single-dataname loop $ K $ K
$ K
$ K T ' # $ K T comment ' y S < seem to have values on line so trim dataname to first space then analyse rest of line ' y 8 n 0 % " don't look for any more loopheads y k k ' $ up to here has given the loop heads $ now determine if line starts with ; if does loopitem = ; ...; else analyse line for '...' etc 1 repeat this procedure until numitems = headcount ' first analyse leftovertmpstr ' d ' k h 0 i.e. end of file, but should escape before then MsgBox dc
G y j ' ' d $ ' k $ $ ' $ ' remove double spaces: b $ ' ignore blanklines and comments $ finish when find data_, loop_ or _* ' k $ # $ " # char ' @ k 8
end of loop: $ data_ G y j $ loop_ G y j _* G y j $ ; K T ' S ' n x i.e. ; ; $ ' $ ' now examine following lines _ ' $ , MsgBox CifFileline(loopdatastartlineno + dc) MsgBox n 7 MsgBox Mid(CifFileline(loopdatastartlineno + dc), n, 1) $ $ K $ K
$ K
$ K T
keep looking ; K T possibly found ' # i.e if found another ; on same line y `? d X? ' k H? # $ K T
comment char y ? S ? '
move downy > n > $ ; $ ' $ $ ' $ $ ' $ ' ' + ' x > d > $ ' k = = k = $ ' _ = G x j $ ' $ K T ' find next chr(39) 0= ' $ '
" check following char is space etc
d <
$ K $ K
$ K
$ K T ok S X< look for next apostrophe
'
d < F k < n ; k ; '
$ + $ $ + $ $ $ + $ $ +
$ ' d (; treat as value only $ ' k : " $ K T find next chr(34) " $ '
'
$ + $ " $ $ + $ $ +
$ ' d 9 treat as value only $ ' k 9
$ K T x 9
$ K T x p9 K T $ ' # K T x (9 S value only find next space '
'
$ + $ $ +
$ ' d `8 add complete line: ' + x 8 k 8 n 8 8 k delimtercode = 2 For n = 1 To loopitemcount Next n ' Now convert to 2D array: determine dimensions of array ' ' Z The number of data values in a loop does not correspond to the number of data names (line ) A@J V( response = MsgBox("The number of data values in the loop does not correspond to the number of datanames", vbOKOnly, "CIF syntax error") ' $ z 5 d 5 k 5 _ 5 G x j ' ' $ $ . $
$ $ '
$ $ ' $ . G + j k 4 $ $ ? $
$ $ '
$ $ ' $ ? G + j k 84 $ $ + 4 $ $ + $ $ $ + 3 ' ' ' ' ' ' ' $ V( V( ( V( V( $ ! $ ! V( X y 2 d 2 V( X k 2 i 2 8 NB this used for dictionaries etc there4 no logging yet > also useful to extend this to loops etc for general cif tools returns MISSING if not found returns value as string if found : returns MAYBELOOPED & lineno as string if possibly in loop] ] ] ]
] (
] @
] X
' _ loop to find dataname % $ ' p p
' y 0 d 0 ' k 0 G j % i.e. not found ! get pos of data_name in cifline: % $ ' line starts dataname ' d , check leading chars - allow spaces and tabs % $ $ K
$ K
$ K K T ' allowed ' S / ' y / n . k . G j trim line from dataname onwards & check if line only contains dataname! % ' d 8. % % $ ' k - ' G ' j $ _ G j @
i.e. no good $ [A-Za-z0-9] G j M
i.e. no good $ K T
ok
$ K T ok
$ K T ok $ K T ok S ,
i.e. no good n , x , , look again '
G j `, 4 Start preliminary loop analysis ------------------ & check that not a single-dataname loop e.g. loop_ 4 _pd_proc_wavelength 1.540562 1.544390 ' 4 XXXXXXXXXXXXXXXXXX this is where the dataname starts ' . " record this and return it somehow ' 'Do ' % ' $ $ ' 0 replace tabs with spaces $ ' * see if previous line starts with "loop_": $ loop_ probably a loop, but check: $ % only spaces or comment chars allowed K T
keep looking # $ K T
comment char y X)
$ K T move on
$ K T move on $ K T tab char move on S (
no good - ' ' Exit Do n ( OK ' 'Exit Do d p( ( nb loop analysis wont identify pos loop ( if dataname is last loop item, therfore / see if previous line contains a dataname only: remove any paragraph marks etc
$ $ ' / replace tabs with spaces
$ $ ' $ ' # '
G $ $ ' j # 9 nothing on line except comment (not likely to be a loop) ' ( or perhaps should look upwards to check
e ! contains spaces - not a dataname '
_*_*[#A-Za-z] e 2 dataname only so possibly looped (or syntax error)' d % ' k % k % ' Loop & End loop analysis ------------------ MAYBELOOPED ( z 8% k 0% (% $ K T
keep looking ' ' $ K T apostrophe find next apostrophe ' y x$ " $ K T double apostrophe find next double apostrophe ' y $ # $ K T
comment char " move down a line and keep looking ' y # ; K T look for next ; ' y #
$ K T move on '
$ K T move on ' $ K T tab char move on ' _ K T
+ could be start of another dataname in loop or could be a CIF syntax error need to see if looped ' y `" S X" ' $ ' ( value only so look for next space or cr y ! n ! could be in a loop MAYBELOOPED ( z ! k ! ' % ' H! k @! i.e. apostrophe ] p
' ' $ $ ' $ ' lookfornextapostrophe: ' _ ' $ $ '
, check that following char is a space or eol $ ' K $ K
$ K
$ K # K T ' x S look for next ' ' '
' x X k P n H d @ ' x 0 k ( d ' x C FacifitateLog "Closing " & Chr(39) & " not found for " & dataname k $ ' d k x k p i.e. double apostrophe . put in error handler if no closing delimiter! " $ $ ' $ ' " $ $ '
$ ' d x A FacifitateLog "Closing " & Chr(34) & " not found for " & dataname k ( k i.e. ; ; $ ' $ ' now examine following lines _ ! 8 FacifitateLog "Unable to find closing ; for " & dataname @ k 8 % % $ K $ K
$ K
$ K T
keep looking ; K T possibly found ' y X d P ' k @ # $ K T
comment char y S '
move downy n % ; $ ' % $ ' ' i.e. reset val x 8 d 0 %
$ $ '
$ $ ' $ ' % #PAR# ' d % ' k P ' k 8 0 k ( i.e. value $ K $ K
$ K
$ K T end of value $ ' y h # $ K T
comment char $ ' y S n k " remove any para marks from string '
$ $ '
$ $ ' #PAR# $ ' $ ( $ ( ( ( ( ( % ! % ! ( X y d ( X k x z ` X MISSING ( ( ( ( ( ( X i
do this to accept filename ]
] 8 ] P h ] Scripting.FileSystemObject$ . n % . ' ! b ' @ ! , B@B ( n ( n i ] X ] p ' ' ' 5 cifdatastr = FindDataBlock(startln, CifFilelinecount) ] ] ] ] _ ' ' ' ' 5 lineno = FindCifLineString("data_", startpos, endpos) ! % data_ $ ' p p
' y d ' k G j % i.e. not found get pos of data_ in cifline: % data_ $ ' line starts data_ ' d , check leading chars - allow spaces and tabs % $ $ K
$ K
$ K K T ' allowed ' S ' y p n h k P trim line from data_ onwards % % $ ' $
$ K
$ K T end of datablock name $ ' ' y exit $ K K # K T end of datablock name , but check that following chars are the same $ ' ' y exit S valid string so far $ ' ' n X
$ $ K K T
keep looking # K T ok - stop looking y exit S
not valid ' n x k ` k X P * FindDataBlock = lineno & "," & datablockid
---------- 4 commapos = InStr(1, cifdatastr, ",", vbTextCompare) / If commapos = Len(cifdatastr) Then ' not found ' x h
d `
' k H
d @
' @ 0 J ! plus 1 coz array starts at zero? % ( % ( % ! ' k % ! % ( ^ ! % ( ^ ( < if more than one structure need to identify datablock names For n = 1 To datablockcount f If FindCifLineString("_atom_site_", datablock(n).CifBlockStart, datablock(n).CifBlockEnd) > 0 Then , datablock(n).CifStructuredata = True Else , datablock(n).CifStructuredata = False
End If d If FindCifLineString("_pd_proc_", datablock(n).CifBlockStart, datablock(n).CifBlockEnd) > 0 Then 2 datablock(n).CifStructuredataPowder = True Else 3 datablock(n).CifStructuredataPowder = False
End If Next n " ReDim datablockids(datablockcount) ? FacifitateLog "The following datablocks were identified:", True For n = 1 To datablockcount ( If datablock(n).CifStructuredata Then X FacifitateLog n & ". " & datablock(n).CifBlockID & " (contains structure data)", True * structurecount = structurecount + 1 = datablockids(structurecount) = datablock(n).CifBlockID Else 9 FacifitateLog n & ". " & datablock(n).CifBlockID, True End If Next n FacifitateLog " ", True ! n ( n ! ( % , i y Attribut e VB_Nam e = "Cif Tools"
Public Type hDa tablock
4BID AHs S ng*Start0Integer2End
. 6id HD!W PO3
G pLoopUNumC iK@RowµPKCz$Extracted!]!cf (, C
Subp Set` )'Put` InAr rayOf!^s cifXReDim &B(30)
AsAlnA & L, c ommapos
= 0
#2bRbDo
FindB(
,Aa fl@ a In /$(1`if , ",", vbT extCompadre!If Len(g) Th en ' nott fyd b
' LeftH - 1B ` 0
Exit Els %+ 1$ If`@ a e, ;Preserve<2(). I= Righ+ (-&,
= Val(+ % # !%)
~A`For n A1 To'$g* :Y(n!a =y*n ` N' @v
kB=.b: if mo re than o m5 need to identifyW [9
Oa!( + 7B4 v("_q|_sJ_47
,*
) > 0}= Tru1'2if}Fa5 p2P ng pd_proc
if"/
>j
ĕOL
& r q ^i@w ("aPitateLog "PPllow
we(D'ied:!s&&fOu Fn & ". "` y9@ (containsU)F
Q 1 i D;)D ID C(,
&ID,Y14a "oQ D
0Sub unction vt|~, end+
D`yno. furth galiJ0JмidEmā#vkEix
t=R KC pѐ9 e(lineno )) - datapos H4)
0 F or n = 1 To Len(1blkR Select Case Mid B@, n, 1N HChr(10), 3) ' end ofblock name7y id Left j k3furth@ervali >ionneede?0 \Exitv E X9 X" " , "#" X' but che e that fol@lowing
ars are M ssnsElp' K str+so farKb;|aEÑNe8xt C.If s> 0 TheB
ƮU
VAi ͉keep lookQG% ok@sto
Fmnotn l""G,/& /If
returnDues:
FindD@BBw= # &e" 3
! a Functr
Su b PutCif InArrayO$fLs( file As SbRKDim tmpclB ConswReadV B,@Writ2App@#3i Tristate UseDefau4lt-TrDueA1, EF2ae= dafs, fC Se "sCre` Obj ("Scrip.F`Systemc" gh@fs.O`T@c)#"$ `A' )
z= @Do Wh f.At2Of,eamh <> u n0 + 1 Re!A Pres@e s$ ?(nk.
@!dac' nb)usfdi splay!5in wd t boxMaTb? ReceIn#C" dDa@DU 1% & vbCrLb
&T Loop# f.Clos,C&coun!Q qSub{iEi Aqgc(!`g,hart1AIntegeXr, <)
'S?s= numbepaSt53pU
= "(3
`"*C ,`-Compq _^F*`uRp`9og`0 > MENcH
Public fGetNI:R I, d0CrtQKTM ISSING if A\f@ drV8 as%y`-MA YBELOOPEfD WanoPsibly 4@i0(;
a/ssc} idi@aBoolea3_ratabi`
srch!Mcifc 6
=M'qwp t%b(͐=2f , sPC
4)"3 Go / qi.er. g`D_$
`M2պ3A w@@# :s~=^3 tc"h- a! sppace P sHz-b͔)@ PȪʔY0
e %` QrёC
I{cC1A
uBuC&P tOl' wm!Tfrom onward'T@>bon0;contain! (1@=):@ Right*uaonA!04ecurrenBh4&
)[iP@}
Q_~"s2:o $: xgoo$ L ike "[A- Za-z0-9]8 0_+
oks("0o' 9) Z GoTo keeplook ingforda taname ' i.e. no good
End Select<
Exit Do
:
' again
srchstar tpos = line c+ 1
If
> dblke tThenreturn values
Loop' SR prelim inarytp lysis - Lcheck thattt a s le- ]0' e.g. _ _p d_proc_wav ngth 1.5405 624390
currenty~'X I ZA wheree I ~cif$A ' rec,a R osomehow (lb= *''t ch
t mpstr CifFil\ne(i6- )F RaceInSt
r@Y(, Ch r(9), " ")r ta bs with sp
< @ 0Trim ' @see ifvious J"Bn"@Left 5) w@ubably@, but @AVFor cn@6 LenG#C Case Midcn, 1E :on@C7b omma rs alloweD H'/ RBR3 4' >c- 13move o`t! 10 965 ' o ElsNeL -PosS lee\z`+Fae'' c-Nex3@' OK
Tr2u`''f ' nbwont id1ify a @ACLFq tlastcitem,Aur Rc 0bm,z
sa )C"#"@78othG W~excepA`(no3ike@mto FunctiMy
l]q]1u]=v0G]), %^MMT["dm@rcotdep 52]2Va6trophEa' fip|nOO !or40\doubl1_V/r4~jDcdown1:뀡p"dn 0 ";"p'k Y ;c2c r_r(1 to_ @@HuHzӂ'_"crKPOCof0ot@gink 'NR0CIF YBUne DPQ=M 63O Eq)=335 Right(6ӡ) @U :' ao#\v rX"$1Z
qB>
R@ni&aoJoJpdoJ"P_śb 402hQP 0F#]?R$HDim@7undcloշ As Boolea fo/h4dopIFv9
EC3QvbTPCompare /$, /$-3FkC0#C c @VQ
,7%e > sнgfoq @Q-eolt6tV Len%CxA
nd IfEẼ DUJAE
HNFac ifitateLog "CCsCO r " &39)@" noti ~kAname=(
nostart) 0-CA1Loop
iBC Left-BGL B =codA4' i .e. double o' p ut in err@handler if@K ȇT!
ȩInStr(@ Co34 nvbT bComparez Righ
Y-`t!<= `2F> 1#0`0OF !HOO?b?2m?; 7, ";\66 6'` w examA b Als
3currentn 1@CifFil=nect$.;?-?-GoTo r eturnvalue /FA@Hoh( )`FIA, n'' keep_c #;$'isiblyáCd"!H peMC16R!B 225) ' comm a d V6T = ' moveOwd! lN{@ueDG E, _5PIH&`@i` b Z_rese 0- 1 + Len(,) 2)
ftG;) & "/E@A.AE : 3AT
Rilgh-`%B -+ 1@!C Bd @AA;Ex
Loop
=` `gD eK&As G8{ Intege`I B@ Opral Śumber)aBoolea@v'"vs f"a/ if ils a orts@asoNs" A(0,aH fail W
' othe rwise trZu@' a r(ray!]l ed U`'
1 tonumcols,Vrows5 ' NB hHeadonn? g!G[Dim a(20b&C1ld`00'atabley, "h7 tmacheckCdelimf}`d*:Eـh= F<@3 CF/VeFoOn Err =Resu A
g=4 4`Mc|' fi8rst `J"
e Blr 6y have0c@E,5+Ot:g4-4 p30#H` LeKl, 11N"MA YBELOOPED"N: GG )F`Nr
3' qFa@it ateLog "Expe "`N#7A& "+be 2a, buyo!at all"p_ LKi s% as e( ww
)oETa KP *WGTu & rom now KR$
aBT$0'cozPeyet!3' mo(upGfP{R)_8vlnop
Q w@dB- >>T @}spon P= MsgBox(p " 5r too@ large@v bOKOnly, "CIF syLx eq8"+ E#{ P(>20Y s) w d !
!^==bu i.e.A, maxQ\psQ^j} WBSuFiX@I(
- b? |(, C hr(9) ") sp@[TrimB!۲EU5E _EE1sprobcy@_=R_ q!/1cA6AƁFb Se"lB Ca@'MidF cnL4y$d !'commen@t charlplowe" P ' keezpk#213
{ or|13261S9 r ?:N;good -re
:"Possi{6f:rN$ne$, :t+: 9wq 6Q61(&8p@7!Ep>cA0should`Jw; R _ start
If loopxlinen o = 0 Th en
'res ponse LMs gBox(dat aname & " not fo@und in ortoo l arge", v bOKOnly, "CIF sy ntax err or")
Fa cifitateLog _expected`(] & ) pF alse
Extra1CifDA item. S=Luj}
GetL #it Functio E.Y $ ? If
' fi 6 headinLgs|hc 1 To 20 ' mallowed o Trueini tial assumpJ +cŎt + 1@
&()
@q 'Zq -
^46?
dvomK*rem [8uble rEsDo Wh (1,tqt0) <>Or Null " qxPa'aA(2gnQ?blank nX27Пish wM)_,(_A_*-f""D%@ 'Goh!@aD09j}1)4ab ' #Pta//<_v -5!"_
&"_f C+yT
Ix,#bj"6;0dFrcod,m]2 iq>Q Psemicolonpo!N'";vbT=Co`mpare % R{_)P0\edxa\fo B(BDo
1j;taf;IHM nװ op(
, y!1= A?
rIf
L@_`
'
Et@'rcode&2Dt D = K?' LenDC A60B 1 Ð ¤n
- ,BcCC\39 U a srch
Ñ2@! ' fì1nr(
W0kfor
trophe:@ V5,S! #@IE> 5heck fo0llow is sp etc
=@n(rmp )Z HAGA'Midg-,#qE M-eY١ 10Z3a-` ' okG'b3爡' .@ r 1/,I*1ba ' %>$$$+GoToUABd`aC+ada# @ p -Y}}^j"o 9Right,b-U $5(f9 B&) @#'?' t reat as valonly?
K&@^Ad34a.5j8= #24 n<
E(8AhWo&BtpD0{q/ tDq! +4)$ !!ZO_!_!^__i
_!1Sn#Ut*Q"r`X)o0t)#"xu '+0+i* *b*er?p!*uf^O$&** " K _%_%Uv _% y ' addplpete T_ob_1/37%'?A(jEe te+d@' n1 Cr 'ucifepr=t p`q Now nvert to 2D arhray'm disio`ns ofnumofrow;/ headR%C SInt() <> aX"Fa
itateLog "@q!ber1 3s` in a0es noorr0espopPthenam(ײ )P ExtracteZdD@+. SL s = MsgBox( a p rOKOs ]CIF syn tax errorGetp
'q $
unct )S
ReDimߕg ,W 1\
R ic1 <0# @ or(l.8$ 2@ 0G5(ib18"."@9l`Oq>s`tyotrsB"?!Ly( opitem(i c) = ""
End If
If Left(lo, 1 ?" Then
`
tmpl~ vR eplaceIn@String nChr(13), Ħ)lQ, 202 Trim(
A CifL D ata(rownum, col&. $SNext
For 51 T o headcount
10/(; 19
Xfinished:Ztot̀ys Y}
0HDNumR|owA
@
Cd@$" Boolea@< / 6!4ataBPi`srchb929Mlf,'
=gCaDo 'B 2djIp*K AXA= (1 ifJwar!Jsh , vbT@ACompare
8> 0Hv K= &o,l" GoCH4uY' i.e.AJL get ! of$_AD.!9!s(3dA
GPVB!s&= _I @check 'da9chars -p9low sps a'sM #Wa
- 1Se lect Case Mid(XD FnR!t b " al e 01
QrEWIFGXzZ@ ?yWQ/ (h"keookJ' 0GsB fY onward|' KPFc`ontaiM!# Lenle_$q)
Fr Right,p b -#= +`Pcurrent= 9
Q@
0")%_#C>R<>0 gooP'neLike "[ A-Za-z0-9]!,D3_ -"0ok*310)`o3o9^g3O__84/XDo
qQBfk agp.
i ! >jf8Z'Џ pr1minarymanalys - 9that^a s=le-$be.g.p _ A _pd_pr@oc_wavPQngthr 1.540562 4390i?/ne/\'X p weѕ/" _
~0$l ' repcord_ RsomehowM l8
''1 c b "@r _I- B~p}׃x "+r i withk?!1#`@' see vio\us0 "s3" b ")>, 5FT'P%obpy aB%, bu_Quasc6OqQO" 3 ect Case Mid(tmp str, cn,@ 1)
' only sp aces or comment chars al`lowedV" "rkeep lookingB Chr(35) '
Exit HFor .13mXove
0 91otab<' !KElseno good -PosS dled atanameL oop = Fa'' _DoEnd SelNexn
@' OK
(TdruA''%J'H nbp >lysis wo id ify pos/if SB last i tem, therfor3 see previDouine@fnptain x:$
reNan@ aragrap h marks `etc
C GRepl@InStr O u, 5Afr @h5itfhD0) TrimI= #(1 Bm"#" If > 0 Then 3Left2a )F 1noth? lWexcep ӈ(nogikeڀto be ak Ѐperh aps shouldk upw ards @check
A 8> ") E ;cJb?~- aA7WDa$
L "_ *_*[#A-Za-z]""`
fTŃoaXsib ped (sy`Qx error"fa sIfAYAt!@wy Al - aa *x PGetDI`oFromCif.` AAvalued" MAYBELOO@PED" &DnbFunctio
ceI'`r! n@ 1 To Len(+}a&a'I,^ ž d m rcod5 antroph ' fi@0nm-
1#
!34doubl@f T
4
ɰdownv{a
%p";`Qk %;#- 2b Z_uBbvvJv h"_"cLPstart of8oqkiinBRPSCIF CUne`EPQdo>M 63 SF,=33509Righ*t
9,/: V +AQ{ YZ
3qB
C
? KnRJ)g
oKKKK
K/ 5R
currg1K=
f
TfiS F3 s( PGoQxS qP:s`? pT ' i.e." JDim09un`dclos} As Booleafo/hqRr`K "vy
, DT , vbTRCompare \ & &)&n1%EE dsrch 0X1^
,9i@n 0(>0ъ at oaqacq/eolx18<5%1 testfo={ '9t"A 3v{Эs9Uï#T^!"s!S ARWI!'3Fc'g _T)1 > Qooq1 M'B;5O`ܯwJS/ ' cifitatg "CۣB &e="ҵ /r(JéR3 ,$9:< s - 1)
Else Pnd If
HIf delimite rcode = 4 Then
' i.e. double apostroph 6put i n error handler if no cl osing!
f B aInSt r(1, data ymline, Chr(34) , vbTextCompare & >Right( ;Len
) q q3> > 1g] JLefIx 'Facif itateLog "C" &"t fou f xnam'2
;aa";"`sL`'@4w exam@6llow~s
Do
@Zcurre nt= Ciffile>.Fc FtD7
TUnaAto fi@O; r Q GoTo ret urnvalue!E F ]nu{o T"s(,+ Sel ect Case Mid(h, n," @eM9103' keep 0look V S #;"' Ysibly "K\CN= TrueGf yeFaaExit `%ÌB_i +A!35) comm ?` char k I
' move w =ѣ4
N !y= &:ne YB, _k=JAV_
H
fc7reset _9q*
tmptest`Replace KY| U3U""@U
$[ Trim>( @5 ""Uae& )_)F)a0#PAR#g" .GLoop bEW e36<|rNNi
t6MLYZJ3;FJJe@ofq'vu Fapt n0}ьCA E E ?19GvK 7sD'`fHany Pa mar ks from P[po= }9t47 7:=38=
"3aCrLf 4vb `%
GetD ItemF8}!)`b>om0kA|A ifStartL1ifsA
7 block C-`<ms(n:) Ba Q blkB > aIDp|ID 7t"?21%w`Mbunctio0x):oc#"MISSING QOA 0o /q+F
Put@InA0rrayUu
As @pA) @"
' this accep1`ile1PimPRIntege1Con@|'ReҰSan Y Re1Pr0 a! Cq5s/%
.dS Js
z ilelinec ount = n
PutCif InArray. Pf name x 4
End Functio xD
SeD atablocks(xd " As File) QDim startlnInt@eger
cif=str, commapos
-= 0
"r 5uct ur
'*pFindYjBY(-,V)O J noUf urtherva liY need editem Boolea#,ublk/, ido
[""
83= False
\'@fL String("_",e\`, endAF0or n aToJA
yABcC In (1W s(n), F vbTextCo mpare If > 0 T|heMdc²Exit (
E<If
N@ Go3re nOues ' i.e. `not fb' get A!ofBi_ in !:iA= ;.=7)V1=%%hsC!
|Tru@|A@ check d x ch ars - al low spac az@wk <
o - 1` Select Case Mi&d)})@s( n, 1G@ ChrL(9 103 " " Be- <^'B eAeCO-
M' dmAP from/ onward'A5x@^Right# Len) 6A- 4)5 .6(, 3$f4i3 2 ^B Ca
" Left(K
eAeZ 9A`}'o&J`H #I '0 but bcth^a|bd` ^s @&n onĂ ^ T so fa^1!5o3l"cAq233B 3sx[M1 +_S0Y -_-Dt\-1}"`keep lookP %N"q$ok sto) dd A~5bmp@_PN
li'ڎ9Y & ","P 3 '-
'vn`7,{|' P! G)EmhvTXSoТ=Xn 5*rDT!a
Xe+m
'?CRePreserEr,s())plus 1`z a s Jzero? )ABID sSѼ0%w
ifg9
Loop{jp/?>n7q= x n VCe:ckp
Ү=if mHorenan@e&r aj to identifyR
d8P:"_atom_sPaǦhѹ) e'p" *Cd> V!_h_pd _proc?if82#??":Powder Else
' databl ock(n).C ifStructure`Powder = Fa End If
Next nG
8R eDim ids( count) $Facifi tateLog "The fol@lowing;s were ident .ed:" , TruFor n 1 To-1c` If{u ;cHn & ". " K^ BID (contains s8)S?FT _ + ~1 G=) Lŀ <6YV A~'E}'" ;SetDsfilena|me+A-I
F
lineJ [s(K 9Functio
0( q *B@ *! 4 G | j *! 4' zL k now have filenames ' f . . 8 &( 6 ? B@ B@v L t x B@ ' b : &( 6 &A@r *A@r
Load FmCif B@ RB@ d : &( 6
CIF not found $ ' . | ` k X o P >@ Place settings in the registry. B Startup D DoNotShowRtfInfo F v HA@@ B Startup D DoNotShowRtfToCifInfo F p HA@@ B Startup D DoNotShowTableToCifInfo F t HA@@ B Startup D DoNotShowUpdateInfo F r HA@@ > o X J B Startup D DoNotShowRtfToCifInfo F False N$ L ' p B Startup D DoNotShowRtfInfo F False N$ L ' v B Startup D BM v ( 33330 333333330 3333 u Tahoma.. { { R KQlt BM v ( 3 3 3 3 3333333 30 DoNotShowTableToCifInfo F False N$ L ' t B Startup D DoNotShowUpdateInfo F False N$ L ' r J` o X 3 Remove section and all its settings from registry. R - appname has been publcif, pubcif, facifitate Startup A@T R o o Attribut e VB_Nam e = "Cif WdMain"
Public Const Fa cifitate!As S |nghprintCIF f
Sub ()"App ation.A ctiveWin dow.View .ShowHiddenText R`False XF laggedGe@ometry T ru Coor(din s9DontP=Ackn owledgement" SortedComp rProgram/Saved: Redisplaying WH RtfBuild Lo Regis _GetStu@ff
Fm.elect
EHnd
Star aocessDim re sp ~
'Me.[monDi alog1.FiPlterT"| *. <CancelErro .O CTitlS* a y @ @ yOpen
With FmA OpsA
.Cap/̚& " - Please s!BButtonsibB,5qExtensLabelH"AR 3f-mE-l
ffs, f, nu
If7.ReturnA
!Af" Th@Ex,itzI
Set fCre@Obj("Sc$ri@FngxeSystem" fs.filedex s(U ) back up C@M qget44f`Npy 5.$$$? work on tmp
: spwIUCrc&t$Pf.+Gn2 q ucr r$Left , Le&n4 P3)
rtf`a)see itf / 2IK1O'zque{@fr IMousePo b|fm CustoRmWabK0 .5Defaxult }Rich Format $An RTF"E A out C3
~ _b R>d 3type agF6. ,($" ` c P1 HQ|*pAFK~' pv hrR sq1 OsA~3ONothutIP
zs90O1A1DractUnXiv.1CPfr ArraysEtc
Re]CpStyle(1@W Tools.P$ut InOfLines KQ!s Editif? > >"?9UnploadXCy
6q1#u'LV$qDk bR
A
~E2 U MsgBox(as lound", vbOKOnly,|a' Q?rS ' Q5#"QOn Go To quitrery[Plac1tt@'s ijhe Y.`(,C app :b=, Spz:="Bup_32#q 1 KeyDo,9Infopse:=n3, To __e e Ta`g+ UpdЖs'
Z$p@
`Ͻ(
( ( 05C"( ("((w(F #2JA)_ I m'2
;" " f$# # Eo +7' ry:
End Sub
` Regist ryDelete Stuff()
' `move section a all its &ttings from r .
On Er ror GoTo quit 8delappnam e has be en publcif,fa itate
Reh FN B, "Startupp"
d E xamineControlsՊ~ g n x ME ( < < < < printCIFH % X `
( ` h h @ @ @ @2 <X ` $ `
P ` V ` H X X ` p @ 3A " 8 @ H P X ` h p
x " , * 4 $ 8 ` $
( * 0 ` x , ( X p 8 D $ P x :
( @ P X x
0
@ P X $ h " & F L 0 N J ( " 0 8 V @ P X T @ " : 4 0
H
P
" X
`
p
]$ printCIF 0 ! ! ( " ' 0 ' . ' 6 ' 2 ' l ' f ' A@$ &B@ Px o p X ] % Me.CommonDialog1.Filter = "CIF|*.cif" X # Me.CommonDialog1.CancelError = True P - Me.CommonDialog1.DialogTitle = "Select a CIF" Pu Me.CommonDialog1.FileName = "" Re Me.CommonDialog1.ShowOpen * - Please select a CIF 9 P 5 ,( ' 5 .( CIF 5 0( q *B@
not] *! 4 | k Scripting.FileSystemObject$ . *! 4 %
back up cif *! 4 % . *! 4 .$$$ B@ work on tmp file: *! 4 .spw B@ ! ' *! 4 .spw ' x *! 4 *! 4 $ rtf ' z see if rtf exists z % request name for rtf 8 &( 6 ?A@ : &( 6 2 Me.CommonDialog1.Filter = "Rich Text Format|*.rtf" > Me.CommonDialog1.DialogTitle = "Select an RTF file for output" Me.CommonDialog1.FileName = "" Me.CommonDialog1.ShowSave * , - select or type an RTF filename for output 9 5 ,( 5 .( RTF 5F m C i f
F m C i f C l i p b o a r d q F m C i f I n f o O
F m C i f N o t e s z ; " ( & 8 ` h
p "
0 @ H X ` p x # # G x ME P SP S S S < < < < hj t hle 0 { F 2 B 9 7 8 D 0 - A 8 F 1 - 4 6 2 B - 9 8 9 E - 6 5 A 9 9 0 E D E 8 B 8 } { 6 1 F 8 C F 6 F - F E 7 C - 4 0 5 9 - A 5 5 3 - 9 1 9 4 B 8 9 5 1 E 2 4 } p 0 ( % X 0 % B\ 0 @\ `^ ` b@ 2 2 d
)f % il p ir ( il H i\ h i H ir il i\ ( [ i H ir ( il H i\ h * i ir ( + il H D i\ h i X, x h h ` @ B ` @ @ @2 X 8
ir X. il i\ i . x
8 ir il @0 i\ i x
8
ir " il i\
3 i e e ` 3 @ H4 ` 4 @ 4 @ 4 @2 4 H ir h P5 il i\ i 86 H
) H8 %
0
ir P
il p
i\
9 i 2
0 p D D @ H
ir h il < i\ i H H H ir il i\ ( i H
ir il i\ ( i "H
ir il i\ ( i `$ &`
ir il i\ @ i ( ,`
ir il i\ @ i .
0`
ir il i\ @ i 2 8`
ir il i\ @ i >`
ir il i\ @ i @ F & & R ir @ il ` i\ i T V X ` ir il i\ i Z` + + i @ i\ ^ @` bX BZ` b^ H ` ` ` p ` H ` H @
8
8
` x H x 0 H 8 x ` H H H 0 H ` ` ` p ` H ` H @
8
8
` x H x 0 H 8 x ` H H H 0 ? ? ` 0 e 3A " @
P " `
" 0 @ " H P h p < 4 @ H
P ` h " p x
( & H h x ( . ( 0 8 @ H h " p x & " " " ( 0 8 " @ H h " 0 @ P " X `
p " " 0 @ H
` p D x
(
0
8
@
H
( X
,
*
4
$ @ ` $ h
J P ` h p *
8
P
p
&
0 @ P < p $ ( 0 8 @ P " X ` p " $ 8 " @ H X h x " $
0 @ H " P X h x " $ ( 0 ( @ h , p * 6 R `
J h x "
* @ H X & ( 8
H
X h
0 8 @ H X " ` h x " " . ( X x " . "
( " 0 8 H X h x " " " " " ( 8 H P X & h Z 4 8 H D 6
(
8 H X
` p * b X h 6 p
0 @ H P ` x
( " 0 8 H X h x " "
" " 0 @ P ` p " ! ! (! 8! X! `! " h! p! x! " ! ! ! ! ! ! ! " " " 0" @" P" p" " x" " " " " " " " " ( " # & # @# H# P# h# x# # #
# # # " # # # $ $ ($ 8$ H$ X$ " `$ h$ p$ $ \ $ $ % % (% 8% H% P% X% " `% h% x% % % % % % % " % % % & & & @& `& & ^ & & & ( ' (' 8' " @' H' X' h' x' ' ' ' ' " ' '
' ' " ' ' ( ( (( 8( H( X( h( " p( x( ( & ( ( (
( ( " ( ( ) ) ) 0) @) P) `) " h) p) x)
) )
)
) ) ) ) ) )
) ) * < * H* " P* X* h* x* * * * * * " * * *
* +
+
+ (+ 0+ 8+ @+ H+
P+ `+ h+ < p+ + " + + + + + , , , 0, " 8,
@,
P, `, h, " p, x, , , ,
,
, , h- x- - - - -
-
- - - - - - - .
. 0. @. H. h. x. . . . < . . " . . / / / 0/ @/ P/ " X/ `/ p/ / / / / / " / / / / 0 0 00 @0 P0 `0 p0 0 0 0 " 0 0 0 0 0 0 1 1 " 1 ( 1 H1 X1 h1 x1 1 1 1 1 1 1 1 2 2
2 2 2 3 3 3 3
3
03 @3 > H3 3 3 3 3 3
3
3 3
3 3 4 4 4 " 4 4 (4 84
H4 X4 `4 h4 x4 4 B 4 h 4 z @5 5 h6 p6 x6 6 ] ] ] ` ] x No CIF is loaded $ ' | k RB@| o x f ' f ' b d H ' l ' b k 0 b d log1.Cd ! B@ ! ! K T do nothing : <L T ' d > @L T ' d B DL T E ' d F HL T ' d J LL T ' d N PL T ' d R TL T ' d V XL T ' d S n k k o @ l alt pressed f$ R \ K T MsgBox Me.CifTextBox.SelText z @S ! ! n RB@ k H S @ n 8 k 0 o ( ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( zo ! ! d (U ! ( xU y @ k 8 $ ! ! ! ! ! $ ! ^ ! ( # datablock(n).CifBlockID ssDy k 0s k o H X ' X ! ! K T ! ! K T new powder Go to data block ! ( d ! B@ RB@0 ! ! K T
new crystl Go to data block ! ( d ! B@ RB@0 ! ! K T ------------ Go to data block ! ( d ! B@ S ! B@ ! ! $ ! ! ( n k | Go to data block ! ( do x No CIF is loaded $ ' | H k @ ! ! d RB@ ' X o ! B@ o ! B@ o H A@ o ! ! t! ( ! t! ( ( k p ! v( | ! ( z | ! ( z | ! ( z | ! ( z ! t! ! t( o ! x( z | ! ~( z | ! ( z | ! ( zo ! t( A@r o x | ! ( z | ! ( z ! ( z | ! ( z | ! ( zo ! t( ] ] ' x carry on d close current cif l d Do you wish to save changes to ? $ ' RB@ ' ' l e ' d
do nothing | k k k ] ! ' Loading CIF - please wait... ( % Me.CommonDialog1.Filter = "CIF|*.cif" # Me.CommonDialog1.CancelError = True - Me.CommonDialog1.DialogTitle = "Select a CIF" Me.CommonDialog1.FileName = "" Me.CommonDialog1.ShowOpen * - please select a CIF 9 5 ,( 5 .( CIF 5 0( q 8 *B@ ] ( @ *! 4 C response = MsgBox("No CIF file selected", vbOKOnly, facifitatename) ( | k ( 6 B@ Scripting.FileSystemObject$ . *! 4 % ' f kill current cif xA@~ k back it up *! 4 % . *! 4 .$$$ B@ work on tmp file: *! 4 .spw B@ ! ' . . open it *! 4 .spw ' x ' z just to clear previous ' B@v t p x B@ - ( ! ( d # & set by CifTools.PutCifInArrayOfLines ' b : ( 6 d 0 : ( 6
CIF not found $ ' . ( | k | ( o x ! ( z | ! ( z | ! ( z | ! ( z | ! ( zo H 8 x No CIF is open $ ' | k ! ! d RB@ x B@ o x | ! ( z | ! ( z | ! ( z | ! ( z ! ( zo ` 8 ! t( x No CIF is open $ ' | d ( 6 RB@ B@ : ( 6 k o x | ! ( z | ! ( z | ! ( z ! ( z | ! ( zo P 8
! t( ] x
]
' x No CIF is open $ ' |
d
]
! ' Saving CIF - please wait... (
% Me.CommonDialog1.Filter = "CIF|*.cif" # Me.CommonDialog1.CancelError = True 0 Me.CommonDialog1.DialogTitle = "Save CIF as ..." K Me.CommonDialog1.FileName = Left(IUCrCifFilename, Len(IUCrCifFilename) - 4) Me.CommonDialog1.ShowSave * - save CIF as... 9 5 ,( 5 .( CIF 5 0( q *B@ ]
*! 4 C response = MsgBox("No CIF file selected", vbOKOnly, facifitatename) ( | k x *! 4 x x $ ( 6 RB@ - ( : ( 6 |
k
Scripting.FileSystemObject$ . *! 4 % The CIF file already exits.
Overwrite? $ ' . ( | 0
k (
k
if got here - save as new cif: kill current .spw file ( 6 x V xA@~ assign new name: *! 4 .spw ' x RB@ *! 4 % . ! ' ! ! d RB@ . . - ( ' b : ( 6 k | ( o | ! ( z ! ( z | ! ( z | ! ( z | ! ( zo @ A@ o ( ! ! ! ! ! ( \ ( d ! ! ! ? X ! ! ( ! ffffff? ( k o x H ! ! !
d P ! ! ! ? X ! ! ( ! ? ( k o B@P o ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( zo `
Z ( o @
' ^ ( ( o 0 A@ o p ! B@ o ! t( ! v( ' | x No CIF is loaded $ ' | h k ` z S Me.CommonDialog1.FileName = Left(IUCrCifFilename, Len(IUCrCifFilename) - 3) & "rtf" . Me.CommonDialog1.Flags = cdlOFNOverwritePrompt 2 Me.CommonDialog1.Filter = "Rich Text Format|*.rtf" > Me.CommonDialog1.DialogTitle = "Select an RTF file for output" Me.CommonDialog1.ShowSave * ( - select or type an RTF file for output 9 5 ,( 5 .( RTF 5 0( q *B@ *! 4 G | j *! 4' z d ` k X ] Scripting.FileSystemObject$ . z % The RTF file already exits ( z ).
Overwrite? $ ' * ( - select or type an RTF file for output 9 5 ,( 5 .( RTF 5 0( q *B@ *! 4 G | j *! 4' z Set fs = Nothing Exit Sub k k ! ! d' FmCifOptions.Show ! ! d RB@ '
Start = Timer Me.hide RB@ finish = Timer MsgBox finish - Start ' | | ' | o ! t( ! v( | ! x( z | ! ~( z | ! ( z ! ( zo ` A@ o H ! B@ k o H A@ o ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( z ! @ Z ! ? ( k H o @ ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( z ! d
! ? ( k o A@ o H ! ! v! ( ! v! ( ( k 0 ! t( | ! ( z | ! ( z | ! ( z | !
( z | ! ( z | ! ( z | ! ( z ! v! ! v( o ! t( | ! x( z ! ~( z | ! ( z | ! ( zo ( H ! MsgBox Asc(Me.CifTextBox.SelText) x No CIF is loaded $ ' | k ! ! d RB@ ! v( ! ! n
! ! n ! ( dk P B@ FmFindRep.Show o | ! ( z | !
( z | ! ( z | ! ( z ! ( z | ! ( z | ! ( zo H ! v( ! B@ Enter line number (line count = ! ! )
- go to line $ ' ! B@ X ! ( ! ( ! ( k o | ! ( z | !
( z | ! ( z | ! ( z ! ( z | ! ( z | ! ( zo H ! v( ] ! ! n' $ $$ ' $ $
$ $ ' $ $
$ $ ' $ $ $ $ ' $ $ Please select a data name by highlighting it using the mouse $ ' | k " CifEdit.LookupNotes lookupdataname $ RB@ o | ! ( z | !
( z | ! ( z | ! ( z | ! ( z | ! ( z ! ( zo @ ` ! v( *B@ o | ! ( z | !
( z | ! ( z | ! ( z | ! ( z ! ( z | ! ( zo ` ! v( x No CIF is loaded $ ' | 8 k 0 RB@| o ! ( z | !
( z | ! ( z | ! ( z | ! ( z | ! ( z | ! ( zo ` 4 ! v( p d ` 6B@ x ' x d 0 | ( k k RB@ | 4 Unable to complete process error $ ' o | ! ( z | !
( z ! ( z | ! ( z | ! ( z | ! ( z | ! ( zo 0 ` : ! v( t d <B@ x ' x d | k k RB@ | : Unable to complete process error $ ' o H | ! ( z !
( z | ! ( z | ! ( z | ! ( z | ! ( z | ! ( zo ` ! B B@D k o H ! t( ! v( 8 ( 6 r d ? Warning: you are about to replace the _publ_section_ data items 1 in the CIF with text generated from the preprint. J $ ' L : ( 6 | p k h k ` d X NB@ x ' x d ( : ( 6 | k k FacifitateRtfBuildLog = "" RB@ : ( 6 ' d z$ ! ! z$ B@P k | x Hp : ( 6 Unable to complete process error $ ' o ! t( ! v( | ! x( z | ! ~( z ! ( z | ! ( zo ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( zo 8 ( ! ( ! ' Z ! ' \ Go to data block ! ( d ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( z : ( 6 o X ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( zo " code to prevent accidental closure ! t( ! v( | ! x( z | ! ~( z | ! ( z | ! ( z x d @ ! ! $ z$ ! ! 4 Changes to the editable sections of the RTF preprint 3 have been detected since the CIF was last updated. # Do you still wish to close the CIF? $ ' B@P ' |
k k y k l d ( Do you wish to save changes to this CIF? $ ' L ' | X k P RB@ RB@ d RB@ k k k o ` ] ! t( ! v( ^ ' ^ d ! ' ` ` d d p ! ! ! ! ! ! > ! B@b a Me.MaxBut.Move Me.Width - 5 - Me.MaxBut.Width, Me.MaxBut.Top, Me.MaxBut.Width, Me.MaxBut.Height s Me.MinBut.Move Me.Width - Me.MaxBut.Width - Me.MinBut.Width - 5, Me.MinBut.Top, Me.MinBut.Width, Me.MinBut.Height Me.SpinButton1.Move Me.Width - Me.MaxBut.Width - Me.MinBut.Width - Me.SpinButton1.Width - 5, Me.SpinButton1.Top, Me.SpinButton1.Width, Me.SpinButton1.Height k k o x { Attribut e VB_Nam e = "FmC if"
Basp0{F2B9 78D0-A8F 1-462B-9 89E-65A9 90EDE8B8 }{61F8CF 6F-FE7C- 4059-A55 3-9194B8951E24}
@GlobalSpacoFalse Creatabl PredeHcla Id Tru
BExpose 0Templ ateDerivCustomizD
Dim combobo xente P A s Booleanstart height
AwidthMiniRetu\rn)'9"SP+ f` ed7OKOnly?PC`7a &= ?&pjV+)iPoPt"fm Hou rGlass
6@ractUniv.W'abi t 1
Set fs Cre?Obj!("Sc$ri/ngq(eSystem"P
9fs.a
exists( ) Redisplay`0Text* kX;Q=WQWs|q;' back
up
get
0
#f.Copy,. S.$$$0 work] ttmp :S/s pwhc3Y= f~.6 SK
' o0)?h' ucrR tfWk' justQcc Jr previ
;@BuildLoZg0" %CA rraysEtc
Re5 b (1Q q.Pu wInOfLi~nk
UDDnlgÐU4if!' s.?'A \Pb9t by o d &Pn|edA,4G8{8DefaultY:)j;DKl founD[,#A.!/F`s,1#rFsPQ W/_sPuSOa^Ϗ я @0ϬgfD
!?7veX0 D N9 nuPrint_ Click()
If IUCr CifFilen ame = "" Then
r@esponsLM sgBox("N o CIF is open", vbOKOnly , Facifi`tateN E xit Sub
End If
Edit.U pd &
All Me. Text a.
App ation.Out Ba ckground:=False us o:= u~
Z
Av q tMMouseMo ve(ByVal Button As Integer, Shift x Singl FY o8O.Bord@erStylfmNone
SaveAs0 b B^6Ǡ 16 Then Ol:1.11.0 \Image1_Dbl\ ByVal Ca ncel As MSForms. ReturnBo`olean 9W dMain gi stryDeleteStuf6 MouseMove(7ton7 eger, Shift x @SingleYCDFileMn uFrame.V isiblAFa5E\T 3sZ.B orderStyBfmNonE" Upd@ b Preprint? @ MaxJHeight starthcBMin@inimiz cATruD40Ope \ҖPaste
3*gv!F4F@acifit;Comma= #" On Error GoTo errhler
a@IUCr`n V(""DresponsWMsg! ("No F is loade d", vbOK@Only, 'N aExitc!CucrRtffdM
'@! onDialog 1.A
@Left(,, Len) - 3) & "rtf"Q!
lags
cd lOFNOver writePromptter "Rich ீrmat|*. # TitBx"Sct an RHTF A f 3o`utput S@howSav [Wi@Fm!OpsA
.Capti=/ s` typeb ZA`LExtensALabelh" A.! RC a/S gKIIr@EBQDim fs`
Set ` CregObject("Scri@+ng"PSy~mcF"`[@fs.8ex`hs(l)O4E4 x al@dy Pts"@vbCrLf(
-,).{+?8YexsNo8"P X=vb<、%P% 8%--.%Pq%/%/%h%4%A$%K 668'$Nothid*q O(u )DXStwg`qP7F0IFm`O?s2 Edit.} All A'Z XBuildLo"GSax1TimaHhid%RPo 'f xsARbPM$nip-
_GiD ggi: d?P md酨_M__Ѧ_ӟ_ ____QZu'__/&_e_SjQ 1 p>d@nTJRedoJq0 100 TXhen*=!* 0.9
End IfSub
Priv Table But_Clic k()
Tools s
B
>7,>T B
4
{XCurAC ^()`1 l@=gthHideKec! Ԁ;:CR "9thQjhCjh h9ˍ9PE9?96g69Wp 9I9qC9Qg c9)U Dim nM arq St g
l;,f>Trim([5ninstr, Chr(13),08= ; t0
atx9ew
ς ("Please sel ; a % byIvbPCrLfGhlK` 0us the m__q İz e!
;DicS< ?Dte%p?~u_D_D_D_D_D_D_De Og_D_D^DOA_DZDoG
?D?D?DA JJ_D MnuOptio ns_Click ()
Me.Tools Fra me.Visib le = Fal se
FmCif.Show
End Sub
Privhate M ouseMove (ByVal B utton As Integer, ShiftxSingle*Y Par se.BorderStyfmNonfwTass*RtfTo !*Goto*Fi|nd*Θ~{Lookup \{^)If IUCrQFilen "" Then
`
resp@M sgBox("N o CIF is loaded" , vbOKOnly,@cifitN@ExitC.If
@Edit.B* "5??p_eA_Xlk_X _Xex XC|=zgXOn E rror GoT o quitrtxfto M K \D0oNot Info\True$]Eī) @0ross ed Qc "b AcA#IdSel|ecAą !: 2uUna to @comple p@rocessxv & " e-"w{_ss cj˟Y?sYE9psL9 r9Y?99+/c99t'9ό69|99;99=a69fR82 9k9e"99Qt9~ 9t9v sߟ9ooo oD2} 3Wsn6S
/v996 e/39?og99C' Undo'9 5Canm } Ad*f O xUpd 0ȟ>>uBu?5 _GZdPoir" Custom
CS
B
!= 1 The n
Docum ents(Iuc@rRtffiA cceptAll|
End If xit Su b
quitu pdate:
Me.Mouse Pointer = fm Def ault
resp e !Msg Box("Una ble to c omplete process" , vbOKOn ly, Faci(fit oN & " error ")
PrLiv #Q UOMnu_EMove (ByVal B utton As IWger, A Shift x SinglenY AF 6FrO.V k= \lseTools!.BorderSty Non&"BY 7*Preprr@+_serFo rm_Click(?IQ?I@QT"I_Hb UHInitializeICapt@ age.Heighstarthwidth
WAbCombo p1.Text1"Gop za block"-Z7 6eZ 6 f 6nF #4___s _e_44~m44 4}/Q ueryClos e(CancelA&Mode'cAprev accid c` ur& c c&M(%8߱@?Ld 1g6If IUCrCifq ""dEn _ Each adoc`v ATppp`aQM.և
0UCaP.Full1~)c-"ChangesO T ed@{sec
s of RTF)"vbCrLfhave been dcte0d si&rCI F was laHst d. D o you st ill wishG&`he ?YesNo +
q HvbNoA1 $3= Tru /eq EfZD59A 0!#Ng _
&S0d!
' "tsac is3/b*q DC1 D_y E=*. 2if߂RM'i0Q?1 y /ResDim minÈ e.i7@Minimi6z $m[ FaBHd
pQ5!< 100%pPq >+Left, ;Top"" - N4 62' QMaxɆ5`0R2OTin_-u15sCv8}Sp 1.
); ? Y'
.d . ME ( SP S S S 0 { 1 8 5 F E D 6 F - F 7 5 F - 4 4 1 5 - 8 A 5 9 - 5 6 A 3 5 3 1 8 C 4 2 1 } { E 9 5 0 E 7 3 2 - 6 E 0 3 - 4 1 B F - B 9 9 2 - 9 0 D 6 C 3 1 C 0 B 0 5 } 0 ( % X 0 % d f `
V ^ ` ` ` ` ` 0 X 3A . Y " " ( 8 " @ H " P X x " " ( " 0 B 8 J J 0 ` ! B@ .9o ` ! B@ rio @ o 0 ! @ ! ! ? ( k ` o X ` !
! ? ( k o ! ( - clipboard ( ino ! ! ! ! ! ! 2 ! B@b F H ! ! ! ! ! ! ! ! 2 ! B@b T ! ! ! ! ! ! ! ! 2 ! B@b o P Attribut e VB_Nam e = "FmC ifClipbo@ard"
Bas0{185 FED6F-F7 5F-4415- 8A59-56A 35318C42 1}{E950E 732-6E03 -41BF-B9 92-90D6C 31C0B05}
dGlobalSpacoFalse Creatabl Predecla Id Tru
BExpo se0Temp lateDerivCustomizD
P G K Sub Co@pyBut_ c k()
Me.New TextBox.
E\ndJ 2T2Label4CSpin)ton1_DownA+
If , Height <@ 2.5 *ATag ThenB4=
* 1.1If UpA > 2000.9xTUser Form_Initialize 40
Caption Fac0ifitv& " - cHq
r1F ResD UMu ltiPage1`.MoveLeft,lTopABWidth8â/- 500LE ?N e
20
(*S,. L x ME ( SP S S S 0 { 9 B 7 A 4 A 0 5 - B 7 F 2 - 4 5 A C - B 3 C F - 1 1 A 8 2 1 D 4 8 6 B 7 } { 2 3 1 9 C 5 9 1 - 6 0 3 F - 4 0 0 A - A F E 2 - 7 6 D 2 A C A 7 D 7 F B } 0 ( % X 0 % h l V Z ` i i\ ` 8 ` ` 0 3A 7 " (
0 @ " H P " X " ` "
` ! j! ' v k X ' x A@r o 8 o ( - RTF preprint ( x o p ! j! ' v k H B@< o 0 ( Attribut e VB_Nam e = "FmC ifInfo"
"
Bas0{ 9B7A4A05 -B7F2-45 AC-B3CF- 11A821D4 86B7}{23 19C591-6 03F-400A -AFE2-76 D2ACA7D7FB}
dGlobalSpaco False Cr@eatabl Predecla DId Tru
BE`xpose0T emplateDerivCus tomizD
P 6 : Sub Image1_ Click()
If Me.C heckBox1 .Value T hen
DoN otShowRt܆xEnd If
ross'hUnload
@ / $Label6$
UserFor m_Initia0lize0A/aption'Fac0ifit ;& " - RTF preprint#QueryCl@q(Canc el As Integer, pModeHQ W dMain.Re gistrySaveStufX+ p L w G x ME ( SP S S S 0 { 3 D E 3 6 5 0 5 - 5 E D D - 4 C A D - B 4 A 4 - 0 F 3 B F 7 8 D D 1 E 9 } { 5 D 7 A 9 8 7 5 - 0 4 D E - 4 A 1 F - B D B 9 - 6 B 1 C D 4 A 9 0 F 3 3 } 0 ( % X 0 % n p `t v8 Vx Z i i\ x ` x 8 ` x 8 8 ` 0
h 3A : " " ( 0 8 @ X h x " " "
" (
0 @ P ` ! RB@ o X rH ] ! ! dX' t ! v( ! B@ ! B@ t ! ( ! ( ! ( r8 o 0 o 8 ( o x ' B@L o RB@ o f Attribut e VB_Nam e = "FmC ifNotes"D
Bas0 {3DE3650 5-5EDD-4 CAD-B4A4 -0F3BF78 DD1E9}{5 D7A9875- 04DE-4A1 F-BDB9-6B1CD4A9 Z3}
dGlobaBlSpacoFalse Cre atabl Pr@edecla I"d Tru
BEx0pose0Te mplateDerivCustomizD
P 0 4 Sub DicButto n_Click()
Edit.Lookup Me.Tag
p
End5!Goto " On Error Go To escap@ethisg
Dim lin o As Int@eger
= C (Lin eNoBox.Text %.To olsMnuFr.Visi
d /
SetFo cus
Cur qB%- 1lLength HideSelection|;N D:Uā2_C`hangeg U serForm_ InitialiFz RCap cpifit~AQ@ueryCl (@Cancell, ModeHC
= C hBV@5PRunV9h 8 L ? x ME F m C i f O p t i o n s F m C i f S e l e c t F m C i f W a i t F m F i l e O p s 2 i 3 4 $ , * n` ` f 0 o ) + i 8 C o m p O b j g p ( SP S S S 0 { 0 6 8 D B B E E - 3 2 D 6 - 4 D 1 8 - B 7 6 E - 0 F F C A 1 8 5 2 5 D 3 } { C 9 8 3 B 7 4 A - 0 D 6 8 - 4 8 0 3 - A 4 8 2 - 8 2 A B E A B C 7 D D 1 } ` 0 ( % X 0 % z % % T V ` ` ` 0 @ 3A " N " ( 0 8 H P X ` h x
( 8 P " X ` " h p ` ! j! ' 0 d X ' 0 k H ! |! ' . d ( ' . k ! ~! ' 4 d x ' 4 k h ! ! ' 2 d H ' 2 k 8 ! ! ' 6 d ' 6 k ! ! ' z d ' z k B@L FmCifSelect.Show o o
- options ( o h ` 4 Attribut e VB_Nam e = "FmC ifOptions"
Bas0{068DB BEE-32D6 -4D18-B7 6E-0FFCA 18525D3} {C983B74 A-0D68-4 803-A482 -82ABEAB@C7DD1}
dG lobalSpacoFalse Creatabl Predec$la Id Tru
BExpose0TemplateDeriv Customiz5D
P ; ? S ub Cl TBu tton_Cli ck()
If Me.Chec kBox1.Va lue Then
ntFla ggedGeometry sEJEnd If
2 Coordin +sZN E!3Synopsi4 ortedComp@rProgr\amU
5 DontB\Ackn owledgement
6EnATeXLdIhidd'B Select.Show
A QZ veSUserF8ormSRIn itializeYXaFac0ifit & `" - oƑ h L o [ x ME ( SP S S S 0 { 7 3 4 8 5 2 9 5 - 1 7 0 3 - 4 B 5 F - 8 3 E A - C 3 E 3 F 8 4 0 F 0 3 F } { 4 3 2 C 3 B 9 3 - 7 9 2 B - 4 4 B F - B D 1 D - B D F 2 4 3 6 5 9 F E 6 } 0 ( % X 0 % f` T V ` ` ` ` ` 0 X 3A D " "
0 " 8
@ P " X ` " h
p " " < ` g p o h
! " # $ % & ' ( ) * + , - . 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b d e f g h i j k l m n o p q r s t u v w x y z { | } ~ A@r "Welco H B@( & ", ao ( o ` B@( o x o h ( Welcome to , a simple tool to: ! ( o ر Attribut e VB_Nam e = "FmC ifSelect"
Bas 0{734852 95-1703- 4B5F-83E A-C3E3F8 40F03F}{ 432C3B93 -792B-44BF-BD1D F243659FE6}
dGlobalSpaco False Cr@eatabl Predecla DId Tru
BE`xpose0T emplateDerivCus tomizD
P 6 : Sub Cancel_ Click()
End/Lab Unlopad M | ontinue WdMain.S tartProcess B4*
B toRtf ?Q/?Us@erForm!
InitializeWMe.CaptionFacifitbYA
91" Welco@to` " & "@, a si e tool :3 8 L ? x ME ( SP S S S 0 { 8 3 2 2 3 B C A - E 5 D 2 - 4 5 1 B - 9 D F 5 - B 2 5 5 3 2 B 5 1 9 F 5 } { B 7 6 8 A C D 6 - 4 1 E F - 4 8 7 0 - A A 6 8 - 0 D 9 2 4 5 C A 3 6 D B } ` 0 ( % X 0 % T V ` ` ` 0 @ 3A + " " " ( 2 0 h x ` g p o h o X is processing - please wait... ( o t Attribut e VB_Nam e = "FmC ifWait"
"
Bas0{ 83223BCA -E5D2-45 1B-9DF5- B25532B5 19F5}{B7 68ACD6-4 1EF-4870 -AA68-0D 9245CA36DB}
dGlobalSpaco False Cr@eatabl Predecla DId Tru
BE`xpose0T emplateDerivCus tomizD
P 9 = Sub CancelB utton_Cl ick()
ESHave>
1UC (Right0, 4)) <>
"." & 3Extens ionLabel.Ca@Kon p= f."o,fb\.sub sC For Each j In fipAddI BMC)' !s`#f15vbCrL Nex 1'c dvt S R=RRR
': Bg'*CbӴrOUpQ c_PQPfpsss߰ p
P"(I D(f.IsR)s
85I) _0WbXpRPnt3Tp/3p:rӁ GF Yi#E&n'1pO;O;?+@897w7by7e7onY R?? 7E 7u1Y 71z5 i?8 > $"& HAppatp.#SeparatQ
tAO p Me.Com boBoxDri ves.Valu e = iucr filepath
Mou sePointer fm Def ault
End Sub
"P ate4 U serForm_ Activ (),Dim f, fs, d c, s1Set# yCre 4Ob ject("Sc ripting.F System" V&8t s.getfolpder( /openlabel.Ca Ion .Name & ":"+sf
Xs
List Ă.Clear Each f1 In If UCase(Ri@ght(f13,0 4)),
".";NExten sionL N) 0ThenJ Ad|dI Q@ CuIfNexbe{yInitial8izez@$GFa`cifit tI
W@2Macro ContaineHr.PReAPre ve dlO(1@dG0BE.&ProStr ("", "HKEY_CU RRENT_US ER\Softw@are\Mi s@\Window s\CurrentVerS\Ex plorer\S@hell FsAdesktop
̝W"D kA424144P! onalMy@ docum$s ^uz, n, a t{{dc@Efs.ØTo$fhdAhdcn +v 0n 0!KnɁ0d.et!
R' sg`x DtypeC
Sel`f v B0: t "Unkpnowna1 (Flopp,y)2$Fihxed3d(.sh@\nd (Networkg
4(CD-(ROM5$RAM DiskElse""#%dj,c Faa #dc AK
W"OGڼsub߷ ? ĸc ' [' cs'%`r' e(ccc -c' W
@+ M3`R!wdQueryClo`oCanc el As=te ger, Mo "."CSEx@sZLabel.dCamonT PCJ@}prov $ a 9 2 of the corr@ #rmat?#R9%#/:Do# :-.s/FolderUp/
A_bf, f1` c, cfp c
c
fs.getfBd`Ja!i.IsRoot Daa# `= f.~cExit}o$Qgbppr`c !pUpd%A<^ueP aP .SelYed!3 4(1E%'desktop:fpIr1)`<!!u0/ ge 1.x 2v my 0docsp _ erj(w2_ U
r
ve
.`Indexpfs.g etfolder
& Appl ication.P eSeparator Me.L istView1.Sel edIA .Text
fE
' MsgBox f .Type
X1*s.ClXear]c].sub]s
FM Each f1 In fcit mXZ-Add(, , .Name1`N f ]#'M[s{tFocu>K K UCase (Right(f21?4)s"."C[ExtensbLabel.Caon)}C ^9"CIFA, 7=End /@I?sBInHdex V-1HpM ousePoinHterfm Default^FBToComb^oʌ@]nfbox" *Sub Private User^m_ActB( 8Dim BIHAs
Afs, sfA aaf
|s1"Cre ("~S
(ass*\ !cneJc Ms a
C! n` 1aC
f#f^ afp]af]]'^F'^?
T
OPPIniti`alizePJi`magecaa]n&o~hed@FTr>u 9RD Fa`cifit`P
B
lMacrkntainer
JSmallIcon!Z IL { N lvw0x1.`?l B7'xQu@eryClo`C@ancel wIAger, MxodehM'= 0D
D@@hid .Els 0
Unload MI \G( 5=db
qR"eKPreNve dOely(l P
.ProaUStr("" , "HKEY_ CURRENT_ USER\Sof tware\Mi0$s \Wind ows\Curr@entVerQi\ Explorer\Shell @sQdesktop Hem|
Lbo
`(1 DT11D4, 4 any other on ?#&v2 2v/@a
Pp onalgeo q
2r2My d}mA l, p lcd@]m` dcmn, x, xvs(30BullG
fooooi'p
" low& wd` KM:sN+r3 3UcQf.bpE`S
bds.D1' 123jP0$3c + O/%$%,,Counta`p:??dS
letp` S Sj Dta ' 0: t`"Unknow~n1
"b" '" (Flo0ppy)`= 52FixTed3 ၧd.sh E1%
(Network6
4
CD-ROM u5
RAM Disk
C^b
"2^Υz0%.:!L%s?0P d)itPo1.x^?""_"A :t, imd*s'$>c Tf.IsRoo`o1i 'c=F1G!Yӡ ob nes le7n
,fp0ħDo Until fpJ
GQ}p1n[nAq2 i =C;& fUF
Lo ophHfold ernames( 1) = f.N 0fullP FEnd IfAFor x Y1 To n - 1ReDim Preserve driveli st(Me.Im ageCombo1.Items
unt + 1~)F+;tjMx *' MsgBox6LQSet i `c<nAdd!} , "FT" &2 , n9, 1, , I;Ne0xt xTSelecteda0ߝ/X dB _e.open/ label.Caption@ @8":" [,D
A Sub ! ( ! V ! ( ! ( Me.ReplaceButton.Enabled = True " Me.ReplaceAllButton.Enabled = True ! ( ! d ! ( n & ' & k X P o H ! ! ' k ! ( ! d ! ( nA@ o - find/replace ( ! ( ! " ( o 5 Attribut e VB_Nam e = "FmF indRep"
"
Bas0{ 1E1A9621 -1ED0-41@77-B42 7 AC4F614F 19}{6353 6317-571 B-462E-8 8AF-C37A D90DAD69}
dGlobal!SpacoFalse Creatabl Pre decla Id Tru
BExpose0Tem plateDerivCustoHmizD
D im CurrentlwPos As Intehger#P @ D Sub But ton_Click()
!f it CifSe archSng
/= -1 ifEdit.U pd@
All Fm . Tex tBox.
' following gC @N in c. line:C"A0 Lo SetFPocusD.m.t op, flepft
o.L TopK Me.Show
@
a
If>ML@5
0 Then
E6= SelStar-E$
G - @o]1+G1E- B
End If+M= `DG R(* EF,
e
, C \(D) Y0 .s) H= / ' notPund
respopnhMsg U( _t!`W & "'", vbOKOnlyacifit?^@oCk.E~ny(:.!anum 4DJN f + e Length - n Hide ection# $ceD @E) $,repcoun&`DߙəL`Q"}P~Y`,a , 'bd?'d%h Fbs.?7Xo _Dp @) f$Ex iDo;i.e. wPT =t dodQkvidulal p
ompau
{ YY`kEY.4a~ϥ:
ur2 %Y=u!
Y.%fYsC}YtY1 pY1 ~)P EZZZox(f,Zocences of[&&P\"d\\$\NL>C+o}=
_fD) _~x_t.sٿ_x._
']]B= _?MyM "0?Lo d T( d]os)-1JE> D
el
^ T mqUse rForm_In itialize1@CapVz -2'/1 _ = _ `T/0
"
( * @ p x
( H h x ME ( SP S S S 0 { E 2 0 2 6 A A 9 - 3 9 8 7 - 4 E 5 D - 9 E 6 9 - 0 9 7 2 B 1 2 0 2 7 C B } { 0 8 2 8 8 0 3 F - 9 A F A - 4 6 D 8 - B 1 7 F - 9 F 7 B 3 A 0 5 B 9 3 A } 0 ( % X 0 % , .
0 f` 2 V Z t x ME P SP S S S O@Unload
H#R$5.QD\ 8Label8? &K#YK6Use rForm_In itializezoaptionfFacifitB& " - @select@fR TF to CIF dRQueryCl(Can cel As I nteger, Mode O?$I@WdMain .Registr ySaveStufMf X L _ #
x ME ( SP S S S 0 { 4 3 D 8 9 9 F D - 4 C C E - 4 7 3 3 - 9 C F 6 - E 8 E D D 4 9 6 B 1 F 2 } { 7 5 B C 5 7 2 B - D 6 C 1 - 4 8 D A - 9 B B A - 7 C D 3 B 8 C 4 F 8 E 9 } 0 ( % X 0 % .
0 4 f` V Z i i\ ` ` ` ` ` 0
P 3A B " (
0 @ " H P
X h " p x
"
" " " 0 8
@ P ` ` ! j! ' t k X ' x A@r o 8 ' x A@r
o ' x A@r o h ! j! ' t k @ ' x A@r b o ` - table to CIF ( ( o ! j! ' t k B@< o Attribut e VB_Nam e = "FmT ableToCi fInfo"
Bas0{4 3D899FD- 4CCE-473 3-9CF6-E 8EDD496B 1F2}{75B C572B-D6 C1-48DA- 9BBA-7CD 3B8C4F8E9}
dGlobaBlSpacoFalse Cre at Pre decla Id #Tru
BExpose Tem plateDerivCustomizD
P 3 7 Sub Im age4_Cli ck()
If Me.Chec kBox1.Va lue Then
DoNotShow yEnd If
FmCross +hE@Unload@
/$5$SDRLabel3 ALLuL7UserFor m_Initia0lizerAqaptiongFac0ifit }& " - ôto 8CIF@dQu eryCl(C ancel As Integer, ModeHI WdMai n.Regist rySaveSt uf`M L
x F m U p d a t e I n f o R t f T o C i f h W o r d D o c C l a s s _ V B A _ P R O J E C T d h ME ( SP S S S 0 { 6 2 B 8 5 B B 0 - 5 E 9 4 - 4 5 4 B - 8 4 C E - 3 6 9 7 A 1 E 4 0 3 2 B } { 2 F 0 2 2 9 E 5 - A 6 6 5 - 4 A D 6 - B 2 3 6 - F C 6 6 2 2 E 8 9 F 4 A } 0 ( % X 0 % h 0 4 l` 6 V Z i @ i\ ` ` h ` ` ` ` 0 3A C " (
0 @ " H P
X h " p x "
"
" 8 0 " 8 @ P X
` p ` ! j! eg' r k X ' x A@r oNotSho 8 ' x A@r Main.Ro o ' x A@r o X ` ! j! ' r k 0 ' x A@r o % - update CIF with RTF-generated text ( o ! j! ' r k B@< o 8 Attribut e VB_Nam e = "FmU pdateInfo"
Bas0{62B85 BB0-5E94 -454B-84 CE-3697A 1E4032B} {2F0229E 5-A665-4 AD6-B236 -FC6622E@89F4A}
dG lobalSpacoFalse Creatabl Predec$la Id Tru
BExpose0Templ DerivCu@stomizD
P 0 4 Su b Image1 _Click()
If Me. CheckBox 1.Value Then
DoNotShowtEnd If
FmCross )cUnload@
,}$5$DP Label3J
6 UB 7UU 6UserFor m_Initia0lizeAzyaption qFac0ifit@& " - u C IF with RTF-gener d textr QueryCl (Canc el As Integer, pModePPC ifWdMain .Registr ySaveStuf@T& 0 ; x ME P S S S < < < < ( 0 8 @ H P ` h x ( 8 " P 6 X
& ( $ @
h x
H "
( @ X
p
0
@ P p
~ $ ! " # % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i k l m n o p q r s t u v x y z { | } ! ! o, x ME ( < x ` h `< ` H A@r
P h P 8 H h L P p ( T x X \ 0 ` ` X h d h P l x X iz i( 0 in P ip @r H 7 7
h i
( i
H i
+
0 G G i
`
`
` *
` 0
8
n n i2
`4
X ` ` <
>
D
8 x
O O iF
J
`
x j j iV
0 i( iX
`2
@L @L @L @L @L @L @ @ @ \
@
i `|
+~
i2
i
@ ! ! i
i
+"
x i2
@
@
@
`
@
`
@
@
@
+&
~ ~ i2
@
@
@
`
@
`
8 @
X @
@
+$
i2
P @
p @
@
`
@
`
8 @
` @
@
+(
( i2
x @
@
@
`
8 @
X `
@
@
@
+.
X ` w w i2
@
@
0 @
` `
@
`
@
@
P @
+,
s s i2
@ @
p @
@
`
@
0 `
` @
@
@
x
h i
`F
@L @L @ @L @L @L @L @ @ @ ! @ `! `
! `
" `
" ( H z
a a i
i
h% i
* `F
* @L * @L * @L * @L * @L * @L * @ * @ * @ * `
*
p P i
* +
* * id * i i . ` `. 8 P : > @ B D @ F X J N @ R H V Z 0 ^ 8 b f j ( p h
@ x 8 0 ( X H 0 h p 8 P x X X h @ ( H 8
@
h
@ x 8 0 ( X H 0 h p 8 P x X X h @ ( H 8
@
( p ( U 0 3A % V
,
H
X h p x
,
P
` p x 4
0
8 , H
x
0 @ P p x
0 P X ` h p x
,
8
. X
&
$
*
P @ ` > "
@ P
h
x
0
8
H
P
`
h
x
" ( @ P ` p ( 8 H X h x ( 8 H X h x ( 8 H X h x ( 8 H X h x ( 8 H X h x ( 8 H X h ( @ P ` p ( 8 P ` x 0 H ` x 8 H X p ( @ X p 0 H ` x 8 P h ( @ X p 0 H ` x 8 P h ( @ X p * * * * * @ * p * * * ! * 0! * `! * ! * ! * ! * " * P" ( " ( " * " * # * 0# * `# * # * # * # * $ * P$ * $ * $ ( $ * % * 8% * h% * % * % * % * (& * X& * & * & * & * ' * H' * x' * ' * ' * ( * 8( * h( * ( * ( * ( * () * X) * ) * ) * ) * * * H* * x* * * * * * + * 8+ * h+ * + * + * + * (, * X, * , * , * , * - * H- * x- * - ( - * . * 0. ( `. ( . * . * . * / * @/ ( p/ ( / * / * / * 0 * P0 * 0 * 0 * 0 * 1 * @1 ( p1 ( 1 * 1 * 1 ( 2 ( H2 ( p2 * 2 ( 2 ( 2 * 3 ( H3 ( p3 * 3 ( 3 * 3 ( 4 * H4 ( x4 ( 4 ( 4 ( 4 ( 5 * @5 * p5 * 5 * 5 * 6 * 06 * `6 * 6 * 6 ( 6 * 7 * H7 ( x7 ( 7 ( 7 * 7 ( 8 * H8 * x8 & 8 & 8 & 8 ( 9 & H9 ( p9 * 9 * 9 ( 9 ( : ( H: ( p: ( : * : * : * ; * P; * ; * ; ( ; ( < ( 0< ( X< ( < ( < ( < ( < ( = ( H= ( p= ( = ( = ( = ( > * 8> * h> ( > * > ( > ( ? ( @? ( h? ( ? ( ? ( ? ( @ ( 0@ ( X@ ( @ ( @ ( @ ( @ ( A ( HA ( pA ( A ( A ( A ( B * 8B * hB ( B * B ( B ( C ( @C * hC * C * C * C * (D XD " `D hD xD D D D D D D E E E 0E @E PE hE xE E E E E E E E E F F (F 8F HF XF hF xF F F F F F G G 0G HG `G xG G G G G G H H 8H PH hH H H H H H H I I 8I HI `I pI I I I I I J J 0J HJ `J xJ J J J J J K K 8K PK hK K K K K K K L L (L @L PL `L pL L L L L L L L L M M M 0M @M PM `M pM M M M M M M M M N N N 0N @N PN `N xN N N N N N O O 0O HO `O xO O O O O O P P 8P PP hP P P P P P P Q (Q @Q XQ pQ Q Q Q Q Q R R 0R HR `R xR R R R R R S S 8S PS hS S S S S S S T (T @T XT pT T T T T T U U 0U HU `U xU U U U U U V V 0V HV `V xV V V V V V W W (W " 0W 8W HW XW pW W W W W W W W W X X (X 8X HX XX hX xX X X X X X X X X Y Y (Y 8Y HY XY hY xY Y Y Y Y Y Y Y Y Z Z (Z 8Z HZ XZ hZ xZ Z Z Z Z Z Z Z Z [ [ ([ 8[ H[ X[ h[ x[ [ [ [ [ [ [ [ [ \ \ (\ 8\ H\ X\ h\ x\ \ \ \ \ \ \ \ \ ] ] (] 8] P] h] ] ] ] ] ] ] ^ (^ @^ X^ p^ ^ ^ ^ ^ ^ _ _ 0_ H_ `_ x_ _ _ _ _ _ ` ` 8` P` h` ` ` ` ` ` ` a (a @a Xa pa a a a a a b b 0b Hb `b xb b b b b b c c 8c Pc hc c c c c c c d (d @d Xd pd d d d d d e e 0e He `e xe e e e e e f f 8f Pf hf f f f f f f g (g @g Xg pg g g g g g h h 0h Hh `h xh h h h h h i i 8i Pi hi i i i i i i j (j @j Xj pj j j j j j k k 0k Hk `k xk k k k k k l l 8l Pl hl l l l l l l m (m @m Xm pm m m m m m n n 0n Hn `n xn n n n n n o o 8o Po ho o o o o o o p (p @p Xp pp p p p p p q q 0q Hq `q xq q q q q q r r 8r Pr hr r r r r r r s (s @s Xs ps s s s s s t t 0t Ht `t xt t t t t t u u 8u Pu hu u u u u u u v (v @v Xv pv v v v v v w w 0w Hw `w xw w w w w w x x 8x Px hx x x x x x x y (y @y Xy py y y y y y z z 0z Hz `z xz z z z z z { { 8{ P{ h{ { { { { { { | (| @| X| p| | | | | | } } 0} H} `} x} } } } } } ~ ~ 8~ P~ h~ " ~ " ~ $ ~ " ~ " $ H p 0 H ` x 8 P h ȁ ( @ X p Ђ 0 H ` x 8 P h Ȅ ( @ X p Ѕ 0 H ` x ؆ 8 P h ȇ ( @ X p Ј 0 H ` x ؉ 8 P h Ȋ ( @ X p Ћ 0 H ` x ، 8 P h ȍ ( @ X p Ў 0 H ` x ؏ 8 P h Ȑ ( @ X p Б 0 H ` x ؒ 8 P h ȓ ( @ X p Д 0 H ` x ؕ 8 P h Ȗ ( @ X p З 0 H ` x ؘ 8 P h ș ( @ X p К 0 H ` x ؛ 8 P h Ȝ $ $ $ H $ p $ ؝ 8 P h Ȟ ( @ X p П 0 H ` x ؠ 8 P h ȡ ( @ X p Т 0 H ` x أ 8 P h Ȥ ( @ X p Х 0 H ` x ئ ( @ X p Ч 0 H ` x ب 8 P h Щ 0 H ` x ت 8 P h ȫ ( @ X p Ь 0 H ` x ح 8 P h Ȯ ( @ X p " 0 ( H P X ` а . ( 0 8 * @ ( p 0 ȱ & @ ` p & 8 X p x г
س 4
0 @ P h ,
ȴ ش * >
` p " x ص 0 P ` h p ȶ ض @ P X ` h ȷ з 8 P X ` h
p 6 ȸ 0 8 @ H X ` h x ȹ ع ( 8 @ H X ` h x Ⱥ B 0 x 4 л ػ
" ( 0 > 8 " x ( ؼ ( ( ( P X ` x Ƚ $ н 0 < 8 4 x " ؾ j 0 8 $ ( 0 8
@ P B X ` h B 0 H ` p $ ( H ` p 8 @ H h 8 X ` h p x (
$ 0 X h p x "
" ( 0 8 P ` p
" ( " 8 P h 4 x ( @ P h p 2 8 H X * h $ 0 8 H X p
* P p
( 0 8 H X x 0 8 @ H P X ` h
"
( 8 @ < H 2 2 2 6 0 8 h " & 2 8 H X x & " H p " ( " 8 ` D 0 H P X ` h p
( "
( " 8 ` $ * * P ( h 8
( 0 8 @ F H V V V p R R R x 0 . , 0 . ` ,
* 8 X * h ( 8
0 @ H ( P x
( h ( @ * H x
.
< X p " 8 H ` p
8 H h x ( B
( 8 @ H P p
" 8 B @ H ` x 0 H P X x
B ( 0 8 @ H P X ` h p x " ( $ 0 X h p > x * > ( 0 8 P p 4 0 8 @ P ` h p ( 8 @ 0 H $ x ( 8 & X (
@ H @ n < < P B ( 0 8 @ H P X ` h p x " " 8 H P > X * > 0 P h . " 0 H X h & ( , @ p x ( 0 H X ` h
@ H n 8 < < B @ B ( 0 8 @ H P p " " & ( 0 > 8 * x > 0 H 6 X ( 0 @ P X ` x 8 @ P X ` p & ( 4 : 0 p x
@ H ( < @ < B . ( X p B ( H " X " > * H > x 0 @ H P h x , ( 8 @ H X & x ( , ( 0 @ P X ` x 0 8
@ @ P H n H < ` < D ( 8 P X ` h p x B 8 X h p $ x " : * ( > X 0 8 @ P ` h , p . H h x & 8 @ ( P , x
@ F n ` : < ( D h
B
(
0
8
@
H
P
X
`
h
p
x
$ " ( P ` h : p * > ( 0 H h ,
8
H
X
h
&
( , @ p x . (
8 @ H F t H < ` < D ( 8 P X ` h p x " $ * H h
x
"
0
@ , P
( 8 @ H P X p x ( 0 8 " @ " h 8 ( 4 H P 6 X 8 6 : " @ " h 8 ( 4 H P 6 X 8 6 : @ " ` 6 ( 2 @ H 4 P 6 6 6 0 P 6 p & 2 ( 0 2 8 4 p 2 6 @ 2 X 4 J 4 6 P L 2 6 6 H 6 J J J X N 6 8 0! N h! 6 ! 8 ! N (" 6 x" : " 6 " : (# N h# N # N $ N X$ 2 $ 2 $ 2 % 2 P% 2 % 4 % " % & > 8& x& 4 & & & & & ' (' @' X' `' p' ' $ ' ' ' ' '
' ( (
( X 0( T ( B ( T () F ) P ) ^ * x* d * * R + h+ + P + + , P , h, , V , H , 8- F H- - J -
- . (. 2 @.
x. . . @ . . / / / / / " / / $ / 0 $ (0 P0 * h0 0 0
0 0 0 " 0 1 01 6 P1 1 " 1 8 1 2 " (2 " P2 " x2 6 2 6 2 6 3 : H3 3 " 3 $ 3 : 3 " (4 $ P4 : x4 " 4 & 4 " 5 & 05 : X5 : 5 : 5 : 6 X6 x6 6 6 6 6 7 (7 07 ( @7 h7 p7 7 7 7 7 7 7 7 7 8 8 8 8 (8 " H8 p8 0 x8 X 8 9 B 9 " 9 89 & X9 9 $ 9 $ 9 $ 9 " : @: `: : $ : $ : ( : ( ; ( @; & h; & ; ; ; ; < 8< X< x< < < < < = 8= X= x= = = = = > 8> X> x> > > > > ? 8? X? x? ? ? ? ? @ 8@ X@ x@ @ @ @ @ A 8A XA xA A A A * A B 8B XB xB B B B B C " 8C `C C ( C " C C D " D F @D D D Z D Z 0E X E E " F Z 0F Z F F Z G X pG $ G X G Z HH X H X I X XI I X I (J < HJ J > J > J X (K Z K X K $ 8L " `L " L " L Z L Z 8M X M Z M X PN Z N Z O hO pO B xO O O O O O > O b P , hP P P : P Q Q 0Q P @Q Q Q P Q R R R (R 0R 8R @R HR PR XR `R pR ] ( ] P ] ] x ] ] ] ] ] ] ] @ ] X ] h ] ] ] ] ] H ] ] ] ] ] 0 ] 8 ] X ] ] ] ] ] *( / will return cif text in RtfGeneratedCifText... ' $ r '
] p @ ( t works on selected text B@ filename to store selected RTF: z .tmp ' 8 ! . r (Visible:=False) r B@ paste in selected text B@ B Remove revision marks, comments, headers, footers, page breaks..." r ! ! G r B@P j r ( remove comments r ! v ! x r ! v x B@z x k h remove headers/footers | r ! ~ | ! ! B@z ȁ V | ! ! B@z | remove all figs etc: r ! ! d p r ! ! . loop through the graphics !
B@H B@z B@ [OBJECT REMOVED FROM HERE] d B@ B@ k k r ! ! d h r ! ! . loop through the graphics !
B@H B@z B@ [OBJECT REMOVED FROM HERE] d B@ B@ k k - Extract tables and save as spearate files..." ' : r ! n : ' : k B@H B@ p d B@ [TABLE REMOVED FROM HERE] d B@ B@ k p n B@ ! ' B@ ! B@H ! B@ ! ! B@ ! ^p9 d 5 ( d Times New Roman 5 ! ( 9 9 9 9 9 9 9 9 C@ q 8 B@H ! B@ ! ! B@ ! ^t9 d 5 ( d Times New Roman 5 ! ( 9 9 9 9 9 9 9 9 C@ 5 d H k @ q 8 % . & now have table data separated by tabs 8 . : .rtf $ B@ 8 . : .rtf $ B@B k p 8 .1.rtf r B@ r B@B . r Calling Rtf to Cif procedures : 8 . .rtf ( p A@ : now have RtfGeneratedCifText containing non-table ciftext 8 Now have RtfGeneratedCifTable containing table cif text kill any temp files : 8 . .rtf A@~ clear vars $ < r $ > r ' @ $ B r ' D $ F r ' H $ J r ' L $ N r ' P $ R r ' T $ V r ' X $ Z r ' \ $ ^ r ' ` $ b r ' d $ f r ' h $ j r $ l r B@ ( t | 8 0 MsgBox Err.Description o + F ! ! + F " $ " + F # # + F $ $ + F % % + F & & + F ' $ ' + F ( ( + F ) ) + F * * + F + + + F , , + F - - + F . . + F / / + F 0 0 + F 1 1 + F 2 2 + F 3 3 + F 4 4 + F 5 5 + F 6 6 + F 7 7 + F 8 8 + F 9 9 + F : : + F ; ; + F < < + F = = + F > > + F ? ? + F @ @ + F A A + F B B + F C C + F D D + F E E + F F F + F G G + F H H + F I I + F J J + F K K + F L L + F M M + F N N + F O O + F P P + F Q Q + F R R + F S S + F T T + F U U + F V V + F W W + F X X + F Y Y + F Z Z + F [ [ + F \\ \ + F ] ] + F ^ ^ + F _ _ + F ` ` + F a a + F b b + F c c + F d d + F e e + F f f + F g g + F h h + F i i + F j j + F k k + F l l + F m m + F n n + F o o + F p p + F q q + F r r + F s s + F t t + F u u + F v v + F w w + F x x + F y y + F z z + F \{ { + F | | + F \} } + F ~ ~ + F ? + F ? + F ? + F ? + F ? + F ? + F … + F † + F ‡ + F ? + F ‰ + F Š + F ? + F Œ + F ? + F Ž + F ? + F ? + F ? + F ? + F ? + F ? + F • + F – + F — + F ? + F ™ + F š + F ? + F œ + F ? + F ž + F Ÿ + F + F ¡ + F ¢ + F £ + F ? + F ¥ + F ¦ + F § + F ¨ + F © + F ª + F « + F ¬ + F + F ® + F ¯ + F ° + F ± + F ? + F ? + F ´ + F µ + F ¶ + F · + F ¸ + F ? + F º + F » + F ¼ + F ½ + F ¾ + F ¿ + F À + F Á + F  + F à + F Ä + F Å + F Æ + F Ç + F È + F É + F Ê + F Ë + F Ì + F Í + F Î + F Ï + F Ð + F Ñ + F Ò + F Ó + F Ô + F Õ + F Ö + F × + F Ø + F Ù + F Ú + F û + F Ü + F Ý + F Þ + F ß + F à + F á + F â + F ã + F ä + F å + F æ + F ç + F è + F é + F ê + F ë + F ì + F í + F î + F ï + F ð + F ñ + F ò + F ó + F ô + F õ + F ö + F ÷ + F ø + F ù + F ú + F Û + F ü + F ý + F þ + F ÿ + F subsets: Ā &Hc2$ + f $ 256 ā &He2$ + f $ 257 Ă &Hc3$ + R ! 258 ă &He3$ + R ! 259 Ą &Ha5$ + R 260 ą &Hb9$ + R 261 Ć &Hc6$ + R ! 262 ć &He6$ + R ! 263 Č &Hc8$ + R ! 268 č &He8$ + R ! 269 Ď &Hcf$ + R ! 270 ď &Hef$ + R ! 271 Đ &Hd0$ + R ! 272 đ &Hf0$ + R ! 273 Ē &Hc7$ + f $ 274 ē &He7$ + f $ 275 Ė &Hcb$ + f # 278 ė &Heb$ + f # 279 Ę &Hca$ + R 280 ę &Hea$ + R 281 Ě &Hcc$ + R ! 282 ě &Hec$ + R ! 283 Ğ &Hd0$ + Z " 286 ğ &Hf0$ + Z " 287 Ģ &Hcc$ + f % 290 Ī &Hce$ + f $ 298 ī &Hee$ + f $ 299 Į &Hc1$ + f $ 302 į &He1$ + f $ 303 İ &Hdd$ + Z 304 ı &Hfd$ + Z " 305 Ķ &Hcd$ + f % 310 ķ &Hed$ + f % 311 Ĺ &Hc5$ + R ! 313 ĺ &He5$ + R ! 314 Ļ &Hcf$ + f % 315 ļ &Hef$ + f % 316 Ľ &Hbc$ + R ! 317 ľ &Hbe$ + R ! 318 Ł &Ha3$ + R ! 321 ł &Hb3$ + R ! 322 Ń &Hd1$ + R ! 323 ń &Hf1$ + R ! 324 Ņ &Hd2$ + f % 325 ņ &Hf2$ + f % 326 Ň &Hd2$ + R ! 327 ň &Hf2$ + R ! 328 Ō &Hd4$ + f $ 332 ō &Hf4$ + f $ 333 Ő &Hd5$ + R ! 336 ő &Hf5$ + R ! 337 Œ &H8c$ + F # 338 œ &H9c$ + F # 339 Ŕ &Hc0$ + R ! 340 ŕ &He0$ + R ! 341 Ŗ &Haa$ + f % 342 ŗ &Hba$ + f % 343 Ř &Hd8$ + R ! 344 ř &Hf8$ + R ! 345 Ś &H8c$ + R ! 346 ś &H9c$ + R ! 347 Ş &Haa$ + R ! 350 ş &Hba$ + R ! 351 Š &H8a$ + F $ 352 š &H9a$ + F $ 353 Ţ &Hde$ + R ! 354 ţ &Hfe$ + R ! 355 Ť &H8d$ + R ! 356 ť &H9d$ + R ! 357 Ū &Hdb$ + f $ 362 ū &Hfb$ + f $ 363 Ů &Hd9$ + R 366 ů &Hf9$ + R 367 Ű &Hdb$ + R ! 368 ű &Hfb$ + R ! 369 Ų &Hd8$ + f $ 370 ų &Hf8$ + f $ 371 Ÿ &H9f$ + F " 376 Ź &H8f$ + R ! 377 ź &H9f$ + R ! 378 Ż &Haf$ + R 379 ż &Hbf$ + R 380 Ž &H8e$ + F $ 381 ž &H9e$ + F $ 382 ˇ &Ha1$ + R 711 ˘ &Ha2$ + R 728 ˙ &Hff$ + R 729 ˛ &Hb2$ + R 731 ˝ &Hbd$ + R 733 &Aacgr; &Ha2$ + V # 902 &Eacgr; &Hb8$ + V # 904 &EEacgr; &Hb9$ + V $ 905 &Iacgr; &Hba$ + V # 906 &Oacgr; &Hbc$ + V # 908 &Uacgr; &Hbe$ + V # 910 &OHacgr; &Hbf$ + V $ 911 &idiagr; &Hc0$ + V $ 912 &Agr; &Hc1$ + V ! 913 &Bgr; &Hc2$ + V ! 914 Γ &Hc3$ + V # 915 Δ &Hc4$ + V # 916 &Egr; &Hc5$ + V ! 917 &Zgr; &Hc6$ + V ! 918 &EEgr; &Hc7$ + V " 919 Θ &Hc8$ + V # 920 &Igr; &Hc9$ + V ! 921 &Kgr; &Hca$ + V ! 922 Λ &Hcb$ + V $ 923 &Mgr; &Hcc$ + V ! 924 &Ngr; &Hcd$ + V ! 925 &Xgr Xi; &Hce$ + V $ 926 &Ogr; &Hcf$ + V ! 927 &Pgr Pi; &Hd0$ + V $ 928 &Rgr; &Hd1$ + V ! 929 Σ &Hd3$ + V # 931 &Tgr; &Hd4$ + V ! 932 &Ugr; &Hd5$ + V ! 933 Φ &Hd6$ + V ! 934 &KHgr; &Hd7$ + V " 935 Ψ &Hd8$ + V ! 936 Ω &Hd9$ + V # 937 &Idigr; &Hda$ + V # 938 &Udigr; &Hdb$ + V # 939 &aacgr; &Hdc$ + V # 940 &eacgr; &Hdd$ + V # 941 &eeacgr; &Hde$ + V $ 942 &iacgr; &Hdf$ + V # 943 &udiagr; &He0$ + V $ 944 α &He1$ + V # 945 β &He2$ + V " 946 γ &He3$ + V # 947 δ &He4$ + V # 948 ε &He5$ + V " 949 ζ &He6$ + V " 950 η &He7$ + V ! 951 &thetas; &He8$ + V $ 952 ι &He9$ + V " 953 κ &Hea$ + V # 954 λ &Heb$ + V $ 955 μ &Hec$ + V 956 ν &Hed$ + V 957 ξ &Hee$ + V 958 &ogr; &Hef$ + V ! 959 π &Hf0$ + V 960 ρ &Hf1$ + V ! 961 ς &Hf2$ + V $ 962 σ &Hf3$ + V # 963 τ &Hf4$ + V ! 964 υ &Hf5$ + V " 965 &phis; &Hf6$ + V " 966 χ &Hf7$ + V ! 967 ψ &Hf8$ + V ! 968 ω &Hf9$ + V # 969 &idigr; &Hfa$ + V # 970 &udigr; &Hfb$ + V # 971 &oacgr; &Hfc$ + V # 972 &uacgr; &Hfd$ + V # 973 &ohacgr; &Hfe$ + V $ 974 Б &Hc1$ + j 1041 Г &Hc3$ + j 1043 Д &Hc4$ + j 1044 Ж &Hc6$ + j 1046 З &Hc7$ + j 1047 И &Hc8$ + j 1048 Й &Hc9$ + j 1049 К &Hca$ + j 1050 Л &Hcb$ + j 1051 П &Hcf$ + j 1055 У &Hd3$ + j 1059 Ф &Hd4$ + j 1060 Х &Hd5$ + j 1061 Ц &Hd6$ + j 1062 Ш &Hd8$ + j 1064 Щ &Hd9$ + j " 1065 Ъ &Hda$ + j " 1066 Ы &Hdb$ + j 1067 Ь &Hdc$ + j " 1068 Э &Hdd$ + j 1069 Ю &Hde$ + j 1070 Я &Hdf$ + j 1071 б &He1$ + j 1073 в &He2$ + j 1074 г &He3$ + j 1075 д &He4$ + j 1076 ж &He6$ + j 1078 з &He7$ + j 1079 и &He8$ + j 1080 й &He9$ + j 1081 к &Hea$ + j 1082 л &Heb$ + j 1083 м &Hec$ + j 1084 н &Hed$ + j 1085 п &Hef$ + j 1087 т &Hf2$ + j 1090 ф &Hf4$ + j 1092 х &Hf5$ + j 1093 ц &Hf6$ + j 1094 ш &Hf8$ + j 1096 щ &Hf9$ + j " 1097 ъ &Hfa$ + j " 1098 ы &Hfb$ + j 1099 ь &Hfc$ + j " 1100 э &Hfd$ + j 1101 ю &Hfe$ + j 1102 я &Hff$ + j 1103 † &H86$ + F $ 8224 ‡ &H87$ + F $ 8225 … &H85$ + F $ 8230 ‰ &H89$ + F $ 8240 ™ &H99$ + F # 8482 o ; + N ! ! + N ∀ " + N # # + N ∃ $ + N % % + N & & + N ∋ ' + N ( ( + N ) ) + N * * + N + + + N ) , + N − - + N . . + N / / + N 0 0 + N 1 1 + N 2 2 + N 3 3 + N 4 4 + N 5 5 + N 6 6 + N 7 7 + N 8 8 + N 9 9 + N : : + N ; ; + N < < + N = = + N > > + N ? ? + N ≃ @ + N &Agr; A + N &Bgr; B + N &Xgr; C + N Δ D + N &Egr; E + N Φ F + N Γ G + N &Hgr; H + N &Igr; I + N ϑ J + N Κ K + N Λ L + N &Mgr; M + N &Ngr; N + N &Ogr; O + N Π P + N Θ Q + N &Pgr; R + N Σ S + N &Tgr; T + N &Ygr; U + N ς V + N Ω W + N &Xgr; X + N Ψ Y + N &Zgr; Z + N [ [ + N ∴ \ + N ] ] + N ⊥ ^ + N _ _ + N ¯ ` + N α a + N β b + N χ c + N δ d + N ϵ e + N &phis; f + N γ g + N η h + N ι i + N ϕ j + N κ k + N λ l + N μ m + N ν n + N &ogr; o + N π p + N &thetas; q + N ρ r + N σ s + N τ t + N υ u + N ϖ v + N ω w + N ξ x + N ψ y + N ζ z + N \{ { + N | | + N \} } + N ∼ ~ + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ? + N ϒ + N ' $ + N ≤ + N &z-urule; + N ∞ + N f + N ♣ + N ♦ + N ♥ + N ♠ + N ↔ + N ⇐ + N ↑ + N ⇒ + N ↓ + N ° + N ± + N ″ + N ≥ + N × + N ∝ + N ∂ + N • + N ÷ + N ≠ + N ≅ + N ≃ + N … + N ∣ + N — + N &z-arrdl; + N ℵ + N ℶ + N &Rx; + N ℘ + N ⊗ + N ⊕ + N ∅ + N ∩ + N ∪ + N ⊃ + N &sepe; + N ⊄ + N ⊂ + N ⊆ + N ∈ + N ∉ + N ∠ + N ∇ + N ® + N © + N ™ + N ∏ + N √ + N · + N ¬ + N ∧ + N ∨ + N ⇔ + N ← + N ⇑ + N → + N ⇓ + N ◊ + N ⟨ + N ® + N © + N ™ + N ∑ + N ∣ + N &nid; + N ∣ + N ⌈ + N ∣ + N ⌊ + N ∣ + N \{ + N ∣ + N ∣ + N □ + N ⟩ + N ∫ + N ∣ + N ∣ + N ∣ + N ∣ + N ∣ + N ∣ + N ⌉ + N ∣ + N ⌋ + N ∣ + N \} + N ∣ + N ? + N o ( + l ! ! + l " $ " + l # # + l $ $ + l % % + l & & + l ' $ ' + l ( ( + l ) ) + l * * + l + + + l , , + l - - + l . . + l / / + l 0 0 + l 1 1 + l 2 2 + l 3 3 + l 4 4 + l 5 5 + l 6 6 + l 7 7 + l 8 8 + l 9 9 + l : : + l ; ; + l < < + l = = + l > > + l ? ? + l @ @ + l A A + l B B + l C C + l D D + l E E + l F F + l G G + l H H + l I I + l J J + l K K + l L L + l M M + l N N + l O O + l P P + l Q Q + l R R + l S S + l T T + l U U + l V V + l W W + l X X + l Y Y + l Z Z + l [ [ + l \\ \ + l ] ] + l ^ ^ + l _ _ + l ` ` + l a a + l b b + l c c + l d d + l e e + l f f + l g g + l h h + l i i + l j j + l k k + l l l + l m m + l n n + l o o + l p p + l q q + l r r + l s s + l t t + l u u + l v v + l w w + l x x + l y y + l z z + l \{ { + l | | + l \} } + l ~ ~ + l + l ¡ + l ¢ + l £ + l ¥ + l ¦ + l § + l ¨ + l © + l ª + l « + l ¬ + l + l ® + l ¯ + l ° + l ± + l ´ + l µ + l ¶ + l · + l ¸ + l º + l » + l ¼ + l ½ + l ¾ + l ¿ + l À + l Á + l  + l à + l Ä + l Å + l Æ + l Ç + l È + l É + l Ê + l Ë + l Ì + l Í + l Î + l Ï + l Ð + l Ñ + l Ò + l Ó + l Ô + l Õ + l Ö + l × + l Ø + l Ù + l Ú + l û + l Ü + l Ý + l Þ + l ß + l à + l á + l â + l ã + l ä + l å + l æ + l ç + l è + l é + l ê + l ë + l ì + l í + l î + l ï + l ð + l ñ + l ò + l ó + l ô + l õ + l ö + l ÷ + l ø + l ù + l ú + l Û + l ü + l ý + l þ + l ÿ + l Ā + l ā + l Ă + l ă + l Ą + l ą + l Ć + l ć + l Ĉ + l ĉ + l Ċ
+ l ċ + l Č + l č
+ l Ď + l ď + l Đ + l đ + l Ē + l ē + l Ė + l ė + l Ę + l ę + l Ě + l ě + l Ĝ + l ĝ + l Ğ + l ğ + l Ġ + l ġ !+ l Ģ "+ l Ĥ $+ l ĥ %+ l Ħ &+ l ħ '+ l Ĩ (+ l ĩ )+ l Ī *+ l ī ++ l Į .+ l į /+ l İ 0+ l ı 1+ l IJ 2+ l ij 3+ l Ĵ 4+ l ĵ 5+ l Ķ 6+ l ķ 7+ l ĸ 8+ l Ĺ 9+ l ĺ :+ l Ļ ;+ l ļ <+ l Ľ =+ l ľ >+ l Ŀ ?+ l ŀ @+ l Ł A+ l ł B+ l Ń C+ l ń D+ l Ņ E+ l ņ F+ l Ň G+ l ň H+ l ʼn I+ l Ŋ J+ l ŋ K+ l Ō L+ l ō M+ l Ő P+ l ő Q+ l Œ R+ l œ S+ l Ŕ T+ l ŕ U+ l Ŗ V+ l ŗ W+ l Ř X+ l ř Y+ l Ś Z+ l ś [+ l Ŝ \+ l ŝ ]+ l Ş ^+ l ş _+ l Š `+ l š a+ l Ţ b+ l ţ c+ l Ť d+ l ť e+ l Ŧ f+ l ŧ g+ l Ũ h+ l ũ i+ l Ū j+ l ū k+ l Ŭ l+ l ŭ m+ l Ů n+ l ů o+ l Ű p+ l ű q+ l Ų r+ l ų s+ l Ŵ t+ l ŵ u+ l Ŷ v+ l ŷ w+ l Ÿ x+ l Ź y+ l ź z+ l Ż {+ l ż |+ l Ž }+ l ž ~+ l &acaron; + l &gcaron; + l ǵ + l ˇ + l ˘ + l ˙ + l ˚ + l ˛ + l ˝ + l &Aacgr; + l &Eacgr; + l &EEacgr; + l &Iacgr; + l &Oacgr; + l &Uacgr; + l &OHacgr; + l &idiagr; + l &Agr; + l &Bgr; + l Γ + l Δ + l &Egr; + l &Zgr; + l &EEgr; + l Θ + l &Igr; + l &Kgr; + l Λ + l &Mgr; + l &Ngr; + l &Xgr Xi; + l &Ogr; + l &Pgr Pi; + l &Rgr; + l Σ + l &Tgr; + l &Ugr; + l Φ + l &KHgr; + l Ψ + l Ω + l &Idigr; + l &Udigr; + l &aacgr; + l &eacgr; + l &eeacgr; + l &iacgr; + l &udiagr; + l α + l β + l γ + l δ + l ε + l ζ + l η + l &thetas; + l ι + l κ + l λ + l μ + l ν + l ξ + l &ogr; + l π + l ρ + l ς + l σ + l τ + l υ + l &phis; + l χ + l ψ + l ω + l &idigr; + l &udigr; + l &oacgr; + l &uacgr; + l &ohacgr; + l ϑ + l ϒ + l ϕ + l ϖ + l ϝ + l ϰ + l ϱ + l Б + l Г + l Д + l Ж + l З + l И + l Й + l К + l Л + l П + l У #+ l Ф $+ l Х %+ l Ц &+ l Ш (+ l Щ )+ l Ъ *+ l Ы ++ l Ь ,+ l Э -+ l Ю .+ l Я /+ l б 1+ l в 2+ l г 3+ l д 4+ l ж 6+ l з 7+ l и 8+ l й 9+ l к :+ l л ;+ l м <+ l н =+ l п ?+ l т B+ l ф D+ l х E+ l ц F+ l ш H+ l щ I+ l ъ J+ l ы K+ l ь L+ l э M+ l ю N+ l я O+ l + l + l + l + l + l + l + l
+ l ‐ + l – + l — + l UnicodeEnt(8216) = "lsquo;" UnicodeEnt(8217) = "rsquo;" UnicodeEnt(8218) = "lsquor;" UnicodeEnt(8220) = "ldquo;" UnicodeEnt(8221) = "rdquo;" UnicodeEnt(8222) = "ldquor;" † + l ‡ ! + l • " + l ‥ % + l … & + l ‰ 0 + l ′ 2 + l ″ 3 + l ‴ 4 + l ‵ 5 + l ⁁ A + l ⁃ C + l ⃜ + l ℅ !+ l ℏ !+ l ℓ !+ l ℗ !+ l ℘ !+ l ℞ !+ l ™ "!+ l Ω &!+ l ℵ 5!+ l ℶ 6!+ l ℷ 7!+ l ℸ 8!+ l ⅓ S!+ l ⅔ T!+ l ⅕ U!+ l ⅖ V!+ l ⅗ W!+ l ⅘ X!+ l ⅙ Y!+ l ⅚ Z!+ l ⇐ !+ l ↑ !+ l ⇒ !+ l ↓ !+ l ↔ !+ l ↕ !+ l ↖ !+ l ↗ !+ l ↚ !+ l ↛ !+ l ↝ !+ l ↞ !+ l ↠ !+ l ↢ !+ l ↣ !+ l ↦ !+ l ↩ !+ l ↪ !+ l ↫ !+ l ↬ !+ l ↭ !+ l ↮ !+ l ↰ !+ l ↱ !+ l ↶ !+ l ↷ !+ l ↺ !+ l ↻ !+ l ↼ !+ l ↽ !+ l ↾ !+ l ↿ !+ l ⇀ !+ l ⇁ !+ l ⇂ !+ l ⇃ !+ l &rlarr2; !+ l &lrarr2; !+ l &larr2; !+ l &uarr2; !+ l &rarr2; !+ l &darr2; !+ l &lrhar2; !+ l &rlhar2; !+ l ⇍ !+ l ⇎ !+ l ⇏ !+ l ← !+ l ⇑ !+ l → !+ l ⇓ !+ l ⇕ !+ l ⇚ !+ l ⇛ !+ l ∀ "+ l ∁ "+ l ∂ "+ l ∃ "+ l ∄ "+ l ∅ "+ l ∇ "+ l ∈ "+ l ∉ "+ l ϵ
"+ l ∋ "+ l ∏ "+ l ∐ "+ l ∑ "+ l − "+ l ∓ "+ l ∔ "+ l ∗ "+ l ∘ "+ l √ "+ l ∝ "+ l ∞ "+ l &ang90; "+ l ∠ "+ l ∡ !"+ l ∢ ""+ l ∣ #"+ l ∤ $"+ l ∥ %"+ l ∦ &"+ l ∧ '"+ l ∨ ("+ l ∩ )"+ l ∪ *"+ l ∫ +"+ l ∮ ."+ l ∴ 4"+ l ∵ 5"+ l ∼ <"+ l ∽ ="+ l ≀ @"+ l ≁ A"+ l ≃ C"+ l ≄ D"+ l ≅ E"+ l ≇ G"+ l ≈ H"+ l ≉ I"+ l ≊ J"+ l ≌ L"+ l ≈ M"+ l ≎ N"+ l ≏ O"+ l ≑ Q"+ l ≒ R"+ l ≓ S"+ l ≔ T"+ l ≕ U"+ l ≖ V"+ l ≗ W"+ l ≙ Y"+ l ≜ \"+ l ≠ `"+ l ≡ a"+ l ≢ b"+ l ≤ d"+ l ≥ e"+ l ≦ f"+ l ≧ g"+ l ⪇ h"+ l ⪈ i"+ l ≪ j"+ l ≫ k"+ l ≬ l"+ l ≮ n"+ l ≯ o"+ l ≰ p"+ l ≱ q"+ l ≲ r"+ l ≳ s"+ l ≶ v"+ l ≷ w"+ l ≺ z"+ l ≻ {"+ l ⪯ |"+ l ⪰ }"+ l ≾ ~"+ l ≿ "+ l ⊀ "+ l ⊁ "+ l ⊂ "+ l ⊃ "+ l ⊄ "+ l ⊅ "+ l ⊆ "+ l ⊇ "+ l ⊈ "+ l ⊉ "+ l ⊊ "+ l ⊋ "+ l ⊎ "+ l ⊏ "+ l ⊐ "+ l ⊑ "+ l ⊒ "+ l ⊓ "+ l ⊔ "+ l ⊕ "+ l ⊖ "+ l ⊗ "+ l ⊘ "+ l ⊙ "+ l ⊚ "+ l ⊛ "+ l ⊝ "+ l ⊞ "+ l ⊟ "+ l ⊠ "+ l ⊢ "+ l ⊣ "+ l ⊥ "+ l ⊨ "+ l ⊩ "+ l ⊪ "+ l ⊬ "+ l ⊭ "+ l ⊮ "+ l ⊯ "+ l ⊴ "+ l ⊵ "+ l ⊸ "+ l ⊺ "+ l ⊻ "+ l ⌅ "+ l ⋄ "+ l ⋇ "+ l ⋈ "+ l ⋉ "+ l ⋊ "+ l ⋋ "+ l ⋌ "+ l ⋍ "+ l ⋎ "+ l ⋏ "+ l ⋐ "+ l ⋑ "+ l ⋒ "+ l ⋓ "+ l ⋔ "+ l &ldot; "+ l ⋘ "+ l ⋙ "+ l ⋚ "+ l ⋛ "+ l ⪕ "+ l ⪖ "+ l ⋞ "+ l ⋟ "+ l ⪯̸ "+ l ⪰̸ "+ l ⋦ "+ l ⋧ "+ l ⋨ "+ l ⋩ "+ l ⋪ "+ l ⋫ "+ l ⋬ "+ l ⋭ "+ l ⋮ "+ l ⌆ #+ l ⌈ #+ l ⌉ #+ l ⌊
#+ l ⌋ #+ l ⌌ #+ l ⌍
#+ l ⌎ #+ l ⌏ #+ l ⌕ #+ l ⌖ #+ l ⌜ #+ l ⌝ #+ l ⌞ #+ l ⌟ #+ l ⌢ "#+ l ⌣ ##+ l ⟨ )#+ l ⟩ *#+ l ␣ #$+ l ▀ %+ l ▄ %+ l █ %+ l ░ %+ l ▒ %+ l ▓ %+ l □ %+ l ▪ %+ l ▭ %+ l ▮ %+ l △ %+ l ▴ %+ l ▵ %+ l ▸ %+ l ▹ %+ l ▽ %+ l ▾ %+ l ▿ %+ l ◂ %+ l ◃ %+ l ◊ %+ l ○ %+ l ★ &+ l ☆ &+ l ☎ &+ l ♀ @&+ l ♂ B&+ l ♠ `&+ l ♣ c&+ l ♥ e&+ l ♦ f&+ l ♭ m&+ l ♮ n&+ l ♯ o&+ l ✓ '+ l ✗ '+ l ✠ '+ l ⧫ &'+ l ✶ 6'+ l UnicodeEnt(64256) = "fflig;" UnicodeEnt(64257) = "filig;" UnicodeEnt(64258) = "fllig;" UnicodeEnt(64259) = "ffilig;" UnicodeEnt(64260) = "ffllig;" + l ! + l ∀ + l # + l ∃ + l % + l & + l ∋ + l ( + l ) + l * + l + + l ) + l − + l . + l / + l 0 + l 1 + l 2 + l 3 + l 4 + l 5 + l 6 + l 7 + l 8 + l 9 + l : + l ; + l < + l = + l > + l ? + l ≃ + l &Agr; + l &Bgr; + l &Xgr; + l Δ + l &Egr; + l Φ + l Γ + l &Hgr; + l &Igr; + l ϑ + l Κ + l Λ + l &Mgr; + l &Ngr; + l &Ogr; + l Π + l Θ + l &Pgr; + l Σ + l &Tgr; + l &Ygr; + l ς + l Ω + l &Xgr; + l Ψ + l &Zgr; + l [ + l ∴ + l ] + l ⊥ + l _ + l ¯ + l α + l β + l χ + l δ + l ϵ + l &phis; + l γ + l η + l ι + l ϕ + l κ + l λ + l μ + l ν + l &ogr; + l π + l &thetas; + l ρ + l σ + l τ + l υ + l ϖ + l ω + l ξ + l ψ + l ζ + l \{ + l | + l \} + l ∼ + l ϒ _ + l ' $ ^ + l ≤ ] + l &z-urule; \ + l ∞ [ + l f Z + l ♣ Y + l ♦ X + l ♥ W + l ♠ V + l ↔ U + l ⇐ T + l ↑ S + l ⇒ R + l ↓ Q + l ° P + l ± O + l ″ N + l ≥ M + l × L + l ∝ K + l ∂ J + l • I + l ÷ H + l ≠ G + l ≅ F + l ≃ E + l … D + l ∣ C + l — B + l &z-arrdl; A + l ℵ @ + l ℶ ? + l &Rx; > + l ℘ = + l ⊗ < + l ⊕ ; + l ∅ : + l ∩ 9 + l ∪ 8 + l ⊃ 7 + l &sepe; 6 + l ⊄ 5 + l ⊂ 4 + l ⊆ 3 + l ∈ 2 + l ∉ 1 + l ∠ 0 + l ∇ / + l ® . + l © - + l ™ , + l ∏ + + l √ * + l · ) + l ¬ ( + l ∧ ' + l ∨ & + l ⇔ % + l ← $ + l ⇑ # + l → " + l ⇓ ! + l ◊ + l ⟨ + l ® + l © + l ™ + l ∑ + l ∣ + l &nid; + l ∣ + l ⌈ + l ∣ + l ⌊ + l ∣ + l \{ + l ∣ + l ∣ + l □ + l ⟩ + l ∫ + l ∣
+ l ∣ + l ∣ + l ∣
+ l ∣ + l ∣ + l ⌉ + l ∣ + l ⌋ + l ∣ + l \} + l &mid + l o pP H A@ A@ A@ @ ! line 1 contains header ' _ P ' ' ' $ < \' '
not found ' x O k O see if at start of line: $ < $ ' &H $ ' $ ' ' need to look in previous line for font $ < ' ' N k N # make sure preceding char isn't "\" $ < $ \
look again ' @N k 8N * If got here then looks like a symbol code determine full code, e.g. \'xx: $ < $ ' &H $ ' $ ' MsgBox symbolcode tmprtfline = RtfCifFileLine(n) RtfCifFileLine(n) = Left(tmprtfline, symbolcodepos - 1) & "{\f0 GNOMIS}" & Right(tmprtfline, Len(tmprtfline) - symbolcodepos - 3) determine active font $ < $ ' L ' '
MsgBox na $ ' } K T . ignore everything until openbrace = closebrace ' { K T ' suspect default font \f0 ' or determined defaultfont y @K k 8K \ K T
# within another group so do nothing d J 7 First check for Unicode \u##### if first time \ found: ' $ \u#####
UnicodeFnt' $ $ ' ' y J k J $ \u####
UnicodeFnt' $ $ ' ' y I k I $ \u###
UnicodeFnt' $ $ ' ' y I k I $ \u##
UnicodeFnt' $ $ ' ' y H k H k H check if \f999 etc $ \f### $ ' y 8H k 0H $ \f## $ ' y G k G $ \f# $ ' y G k G k G n G $ need to look again in previous line ' $ < ' G k G MsgBox activefont ) look up and make appropriate replacement D K T $ F ' ' H K T $ J ' ' L K T $ N ' ' P K T $ R ' ' T K T $ V ' ' X K T $ Z ' ' \ K T $ ^ ' ' ` K T $ b ' ' d K T $ f ' ' h K T $ j ' '
UnicodeFntK T $ l ' ' n 8E G ? ' j {\f0 } ' $ < ' lensymbolcode = 3 $ $ + < then look in line again ' 4 or length of any replacement ' D D D $ F r $ N r o C A@ 7 e.g. {\field{\*\fldinst SYMBOL 68 \\f "Symbol" \\s 10} {\field{\*\fldinst SYMBOL ' @ remove any linefeeds etc $ < $ $ + < $ <
$ $ + < $ <
$ $ + < ' _ B $ < ' MsgBox symbolcodepos
not found ' x 8B k 0B $ < $ ' $ ' ) at this point determine symbol by lookup 6 then move on looking for }}} (ignoring font for now!) $ < $ < $ ' }} '
/ was }}}
$ problem ignore this one x @ d @ $ < ' $ {\f0 $ N }
$ + < MsgBox RtfCifFileLine(n) ' ) + Len(searchstring) + 3 + fieldendpos + 2 k @ or length of any replacement ? ? ? o ? _ ?
$ '
$ '
d P? x H? k @? 8?
'
i (? h ] ` ] ] '
N
b
N $ '
see if any crlf:
'
$ '
d p> check there are some spaces!
'
$ b
$ '
= d = break somewhereelse
- '
$ - b
$ '
P= d H= break at tab?
$ '
$ $ b
$ '
< d < break somewhere else?
\ '
$ \ b
$ '
0<
$ '
d <
, '
$ , b
$ '
; d ; k ; k ; k ; k x; k p; k h;
'
+
$ '
; \
\$
'
4 Chr(10) \
'
& i.e. leftovers
'
'
k : i x: 0 ] p @ $ < ' $ "
' $ $
' $ &
' $ (
' + < o 9 ] @ $ < ' $ ,
' $ .
' + < o X9 ] @ ` > p ] x ] ' 4
2
' Clipboard.GetText(vbCFRTF) first try to isolate header \par ' 6
\pard ' 8
8
- MsgBox pardinstringpos & " " & parinstringpos 8
6
4
' 4
8
$ 4
+ > 8
$ ' k 7 k 7 _ 7 \par ' 6
6
6
$ ' ' :
N
+ look again for \pard or \object or \result ] ] \pard + <
\object + <
\result + <
+ >
+ >
+ >
$ <
$ <
$ <
have to accept first choice d 86 $ <
$ <
$ <
$ <
b $ <
$ <
$ <
' @
$ <
+ <
@
+ <
$ >
' @
$ >
+ >
@
+ >
k x5 $ <
$ <
$ <
' @
$ <
+ <
@
+ <
$ >
' @
$ >
+ >
@
+ >
k 4 4 $ samllest should be otherposition(1) but check its not 0 $ <
$ <
' B
y H4 k @4 k (4 ! now have pos of acceptable break B
' 6
$ >
' :
6
:
$ ' k 3 4
' 4
4
+ > 6
:
$ ' d 3 \pard ' 6
6
4
' 4
6
$ 4
+ > 6
$ ' d 3 N
4
' 4
4
+ > x 2 d 2 x 2 k 2 k 2 k 2 2 anyleftovers: 4
+ > 4
' @ @ < 0
@ $ > + < $ > r o 1 8
F
' H
] '
]
' L
5 txtstream should contain #cell# and #row# delimiters , txtstream = repinstr(txtstream, Chr(13), "") , txtstream = repinstr(txtstream, Chr(10), "") + txtstream = repinstr(txtstream, Chr(9), "") 0 txtstream = repinstr(txtstream, "#row#", vbCrLf) 1 txtstream = repinstr(txtstream, "#cell#", Chr(9)) F
$ $ ' F
F
' _ (0
$ ' N
% chr(13) , splitdelimpos = InStr(1, tmpstr, SplitDelim) N
L
' L
N
$ L
+ J
N
$ ' End If d P/ x H/ k @/ 8/ any leftovers L
' L
L
+ J
now have rows in array remove any linefeeds from rows split into array of entries L
d B ' P
L
$ J
$ $ '
$ $ ' ' R
_ . $ ' T
T
R
' R
T
$ R
+ B T
$ ' d x- = could be single col (i.e. no tabs) or row not ending in tab: R
R
' R
R
+ B d ,
R
' R
R
+ B k , k , x , k , , R
P
G R
' P
j any leftovers colidx = colidx + 1 ! tmpArray(rowidx, colidx) = tmpstr L
P
@B 0 o + 8 ] ( t read contents of rtf file: ] ] 8 P h ] Scripting.FileSystemObject$ . V
% . n = 0 # Do While f.AtEndOfStream <> True n = n + 1 ! RtfCifFileLine(n) = f.Readline 1 RtfCifFileLine(n) = RtfCifFileLine(n) & Chr(10) Loop ! Z
' 2
B@B . . 2
A@\
2
A@0
A@ A@ A@
A@*
? ReplaceCells and any other rtfcodes not covered by sumbol stuff @
ReplaceCells: O RtfCifFileLine(n) = repinstr(RtfCifFileLine(n), "\cell ", "{\f0 #cell#}\cell ") O RtfCifFileLine(n) = repinstr(RtfCifFileLine(n), "\cell\", "{\f0 #cell#}\cell\") O RtfCifFileLine(n) = repinstr(RtfCifFileLine(n), "\cell}", "{\f0 #cell#}\cell}") L RtfCifFileLine(n) = repinstr(RtfCifFileLine(n), "\row ", "{\f0 #row#}\row ") L RtfCifFileLine(n) = repinstr(RtfCifFileLine(n), "\row\", "{\f0 #row#}\row\") L RtfCifFileLine(n) = repinstr(RtfCifFileLine(n), "\row}", "{\f0 #row#}\row}") $ < \minus − $ + < $ < \emdash --- $ + < $ < \endash --$ + < $ < \emdash --- $ + < $ < \endash --$ + < ^
$ < ' ^
write new rtf to file Scripting.FileSystemObject$ . V
% . n = 0 # Do While f.AtEndOfStream <> True n = n + 1 ! RtfCifFileLine(n) = f.Readline 1 RtfCifFileLine(n) = RtfCifFileLine(n) & Chr(10) Loop ^
B@ B@B . . ! now open in word to save as text V
% . r r B@ r ! `
( b
# - V
d
f
h
j
l
n
p
r
t
v
r B@ r ! `
( b
r B@B . r # convert text to specific cif text: V
$ .1.rtf X
V
A@x
d @# V
( ; ; A@z
k # d # V
A@x
k " 5 fmRtfToCif.RichTextBox1.SaveFile tmpRtfCifFilename, 1 Unload fmRtfToCif ClearAllVars FmCifEdit.Show X" o P" ] (
{\fonttbl $ ~
' |
|
0 G | j
need to find ROMAN; |
Roman;$
' D ARIAL; |
Arial;$
' H SYMBOL; |
Symbol; $
' L CE; |
CE; $
' P GREEK; |
Greek;$
' T TUR; |
Tur;$
' X
(HEBREW); |
(Hebrew); $
' \
(ARABIC); |
(Arabic); $
' ` BALTIC; |
Baltic; $
' d Cyr; |
Cyr;$
' h ! now have font ids of known fonts o @
2
' Z Z
d 0 ' ~
z k '
Z 2
2
$ { K T
'
} K T
'
S 0 n (
' y k 2
Z Z $ ' ~
i
find fontid
$ '
found it
MsgBox na
$ ' \ check if \f999 etc
$ \f###
$ '
y k
$ \f##
$ '
y h k `
$ \f#
$ '
y k d k d '
k i @ ] ] ] ] ] ] ] 0 ] H ] ` '
_ x '
'
2
\sub '
first check that not sub0: 2
$ \sub0
'
k 2
$ \sub[a-z]
'
k 8 cut tmp string for analysis (start at "sub" not "\sub") 2
2
$ '
8 Now analyse tmpstream char by char until pattern found: '
'
charcount = charcount + 1
$ '
- no unclosed groups so following can end sub:
*\plain
'
y k
*\sub0
'
y k
*\up
'
y k
*\dn
'
y h k `
*\super
'
y 0 k (
*\par
'
y k
*\nosupersub
'
y k * If AnalysisStr Like "*\sub[a-z]" Then ClosePos = CharCount - 5
Exit For End If k (
*{
$ \{ d
'
k k
*} first check that not \}:
$ \} 1 ignore d x
'
; close sub group
'
y ( k k k
9 if exited for next loop then assume end sub at closepos: 2
$ {\f0 } 2
2
$ ' 2
g RtfStream = Left(RtfStream, SubPos + 3) & "{\f0 }" & Right(RtfStream, Len(RtfStream) - SubPos - 3)
'
2
$ {\f0 } 2
2
$ ' 2
6 MsgBox Right(RtfStream, Len(RtfStream) - SubPos + 100) set next srchpos
'
d sub not found x k
2
' "
i x ] ] ] ] ] 8 ] P ] h ] ] '
_ '
'
2
\dn '
first check that not sub0: 2
$ \dn0
'
k 2
$ \dn[a-z]
'
k 8 cut tmp string for analysis (start at "sub" not "\sub") 2
2
$ '
8 Now analyse tmpstream char by char until pattern found: '
'
charcount = charcount + 1
$ '
*\plain
'
y h k `
*\dn0
'
y 0 k ( ( If AnalysisStr Like "*\dn[a-z]" Then ClosePos = CharCount - 4 Exit For
End If
*{
$ \{ d x
'
k ` k X
*} first check that not \}:
$ \} 1 ignore d
'
; close sub group
'
) i.e. close sub before } y k k x k p
*\up
'
y H k @
*\sub
'
y k
*\super
'
y k
*\par
'
y k
*\nosupersub
'
y h k `
9 if exited for next loop then assume end sub at closepos: 2
$ {\f0 } 2
2
$ ' 2
g RtfStream = Left(RtfStream, SubPos + 3) & "{\f0 }" & Right(RtfStream, Len(RtfStream) - SubPos - 3)
'
2
$ {\f0 } 2
2
$ ' 2
6 MsgBox Right(RtfStream, Len(RtfStream) - SubPos + 100) < set next srchpos to end of replacement before looing again:
'
d sub not found x H
k @
8
0
2
' &
i
] ] ( ] @ ] X ] p ] ] ] ] '
_ '
'
2
\super '
first check that not sub0: 2
$ \super0
'
k 2
$ \super[a-z]
'
k 8 cut tmp string for analysis (start at "sub" not "\sub") 2
2
$ '
8 Now analyse tmpstream char by char until pattern found: '
'
charcount = charcount + 1
$ '
/ no unclosed groups so following can end super:
*\plain
'
y @
k 8
*\super0
'
y
k
*\up
'
y k
*\dn
'
y k
*\sub
'
y p k h
*\par
'
y 8 k 0
*\nosupersub
'
y k k
*{
$ \{ d
'
k k
*} first check that not \}:
$ \} 1 ignore d @
'
; close sub group
'
) i.e. close sub before } ---Why? 3 ClosePos = CharCount + 1 ' i.e. close outside group y k k x k p
9 if exited for next loop then assume end sub at closepos: 2
$ {\f0 } 2
2
$ ' 2
'
2
$ {\f0 } 2
2
$ ' 2
6 MsgBox Right(RtfStream, Len(RtfStream) - SubPos + 100) < set next srchpos to end of replacement before looing again: SrchPos = EndsuperPos + 12 ' set srch pos to start of replacement!?
'
d sub not found x p k h
` X 2
' $
i H ] H ] ` ] x ] ] ] ] ] ] '
_ '
'
2
\up '
first check that not sub0: 2
$ \up0
'
H k @ 2
$ \up[a-z]
'
k 8 cut tmp string for analysis (start at "sub" not "\sub") 2
2
$ '
8 Now analyse tmpstream char by char until pattern found: '
'
charcount = charcount + 1
$ '
*\plain
'
y k
*\up0
'
y k x % If AnalysisStr Like "*\up[a-z]" Then ClosePos = CharCount - 4 Exit For End If
*{
$ \{ d
'
k k
*} first check that not \}:
$ \} 1 ignore d X
'
; close sub group
'
) i.e. close sub before } y k k k
*\dn
'
y k
*\sub
'
y p k h
*\super
'
y 8 k 0
*\par
'
y k
*\nosupersub
'
y k
9 if exited for next loop then assume end sub at closepos: 2
$ {\f0 } 2
2
$ ' 2
g RtfStream = Left(RtfStream, SubPos + 3) & "{\f0 }" & Right(RtfStream, Len(RtfStream) - SubPos - 3)
'
2
$ {\f0 } 2
2
$ ' 2
6 MsgBox Right(RtfStream, Len(RtfStream) - SubPos + 100) = set next srchpos to end of replacement before looking again:
'
d sub not found x k
2
' (
i ] ] ] ] ] ] ] ] ( ] @ '
_ '
'
2
\b '
first check that not \b0: 2
$ \b0
'
k then check that not \bin etc 2
$ \b[a-z]
'
k 4 cut tmp string for analysis (start at "b" not "\b") 2
2
$ '
8 Now analyse tmpstream char by char until pattern found: '
'
charcount = charcount + 1
$ '
*\plain
'
y k
*\b0
'
y k % If AnalysisStr Like "*\up[a-z]" Then ClosePos = CharCount - 4 Exit For End If
*\par
'
y k ( If AnalysisStr Like "*\nosupersub" Then ClosePos = CharCount - 11 Exit For End If k p
*{
$ \{ d @
'
k ( k
*} first check that not \}:
$ \} 1 ignore d
'
; close sub group
'
) i.e. close sub before } y P k H k @ k 8
9 if exited for next loop then assume end sub at closepos: 2
$ {\f0 } 2
2
$ ' 2
g RtfStream = Left(RtfStream, SubPos + 3) & "{\f0 }" & Right(RtfStream, Len(RtfStream) - SubPos - 3)
'
2
$
{\f0 } 2
2
$ ' 2
6 MsgBox Right(RtfStream, Len(RtfStream) - SubPos + 100) = set next srchpos to end of replacement before looking again:
'
d sub not found x k
2
' .
i X ] ] ] ] ] ] 0 ] H ] ` ] x '
_ '
'
2
\i '
first check that not \b0: 2
$ \i0
'
k then check that not \bin etc 2
$ \i[a-z]
'
k 4 cut tmp string for analysis (start at "b" not "\b") 2
2
$ '
8 Now analyse tmpstream char by char until pattern found: '
'
charcount = charcount + 1
$ '
*\plain
'
y P k H
*\i0
'
y k % If AnalysisStr Like "*\up[a-z]" Then ClosePos = CharCount - 4 Exit For End If
*{
$ \{ d x
'
k ` k X
*} first check that not \}:
$ \} 1 ignore d
'
; close sub group
'
) i.e. close sub before } y k k x k p
*\par
'
y @ k 8 ( If AnalysisStr Like "*\nosupersub" Then ClosePos = CharCount - 11 Exit For End If
9 if exited for next loop then assume end sub at closepos: 2
$
{\f0 } 2
2
$ ' 2
n RtfStream = Left(RtfStream, ControlPos + 1) & "{\f0 }" & Right(RtfStream, Len(RtfStream) - ControlPos - 1)
'
2
$ {\f0 } 2
2
$ ' 2
6 MsgBox Right(RtfStream, Len(RtfStream) - SubPos + 100) = set next srchpos to end of replacement before looking again:
'
d sub not found x k
2
' ,
i ]
'
read table file ] 8 ] P h ] Scripting.FileSystemObject$ .
% . ! Z
' F
B@B . . F
A@D
] B '
B '
B
$ B $
+ B
& remove any blank rows at end of table ] '
_ h
G x j
$ B '
d '
y k
'
d x k
G
j ] '
'
! 5. combine array with delimiters
colcount = colcount + 1
$ B ?
+ B k
$ B $ '
$ B $ '
G
$ B
+ B j
$ B
+ B
$ B
+ B k k
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $ '
$ B $ '
G
$ B
+ B j
$ B
+ B
$ B
+ B k k
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $ '
$ B $ '
G
$ B
+ B j
$ B
+ B
$ B
+ B k k
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $ '
$ B $ '
G
$ B
+ B j
$ B
+ B
$ B
+ B k k
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B : final pure CIF conversions: - do before splitting string!
$ B $
+ B
$ B $
+ B
$ B $ $ $
+ B
$ B $
+ B
$ B $ $ $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $ $ $
+ B
$ B $ $ $
+ B
$ B $ $ $
+ B
$ B $ $ $
+ B
$ B $
+ B
$ B $ $ $
+ B
$ B $
+ B
$ B $
+ B
$ B $ $ $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B $ $ $
+ B
$ B $ $ $
+ B
$ B $ $ $
+ B
$ B $ $ $
+ B
$ B ~ $
+ B
$ B ~ $
+ B
$ B ^ $
+ B
$ B ^ $
+ B
$ B $
+ B
$ B $
+ B
$ B $
+ B
$ B F
;
$ B ;
+ B d ' $
$ B ' $
+ B k @ 8
$ B K
$ B '
need to split line here:
$ B $
'
'
d
$ B '
d p
$
$ B '
k @
$ B '
k End If
'
'
# Start of table datablock data_ExtraTable1_
'
? # This table can be appended to the CIF in a separate datablock '
- # When adding extra tables to a CIF manually, '
? # it is advisable to include them in the most relvent datablock '
2 # (e.g. if they relate to a particular structure). '
< # A maximum of three extra tables is permitted per datablock '
I # (i.e. ..._extra_tableA_..., ..._extra_tableB_..., ..._extra_tableC_...) '
# '
O # The following datanames can be used for table headings, headnotes, footnotes: '
# '
= #_geom_extra_table_head_A # (or B or C if for table B or C) '
#; '
#; '
; #_geom_table_headnote_A # (or B or C if for table B or C) '
#; '
#; '
; #_geom_table_footnote_A # (or B or C if for table B or C) '
#; '
#; '
B # If you use these, include then in the loop below, along with any '
3 # other non-standard dataitems you wish to publish. '
'
loop_ _publ_manuscript_incl_extra_item '
' $ _geom_extra_tableA_col_ ' $ '
loop_ '
_geom_extra_tableA_col_ '
return table text:
@ @
# End of table datablock.
+ FmCifClipboard.TableTextBox.Text = FmCifClipboard.TableTextBox.Text & vbCrLf & tablehead & tablebody & vbCrLf & vbCrLf & "# End of table datablock." | `
X
@ `
+ o 0 h ] open file containing cif text ] 8 P ] h ] Scripting.FileSystemObject$ .
% . ! Z
' F
B@B . . final pure CIF conversions: F
$ ' F
F
$ ' F
F
$ $ $ ' F
F
$ ' F
F
$ $ $ ' F
F
$
' F
F
$
' F
F
$
' F
F
$
' F
F
$ $ $
' F
F
$ $ $
' F
F
$ $ $
' F
F
$ $ $
' F
inf sup: F
$ ' F
F
$ $ $ ' F
F
$ ' F
F
$ ' F
F
$ $ $ ' F
F
$
' F
F
$
' F
F
$
' F
F
$
' F
F
$ $ $
' F
F
$ $ $
' F
F
$ $ $
' F
F
$ $ $
' F
F
~ $ ' F
F
~ $ ' F
F
^ $ ' F
F
^ $ ' F
F
$ ' F
F
; /;Entes2Bnew& z= Split AtEighty;r , Do ALeft([2)0TheRA LLen ) - P 2) Else Pxit Do @ nd If Loop L If Right (newtxts tream, 2 ) = vbCr Lf Then F > 6Lef fLen ) - G v' return _ cift ext 'Ms`gBox eR tfGeneratedCifT 3 B Edit0.UpdWi`thNewFmClipboard. B.= "ana meheader< &X footer E Sub Function Convert Entities4To6(~ A s String =pinA , "&A;B" \%A"( dLeg A % timesC\( ==*\db h &z-dbnd tt s:D }q, gXp lusmnB+- mn-+ !~"&ne\\ ne ƅ"&ranH\Ale>lA!rrdr!arrowSrA mreol@$l C)infi<\2\`tyz-pdbdtfbbL"&alphaa betFbchi cdel depsiv ?RYphf gammd)ng e"hWi:oeioeu"katppD kulambdlmumOOE:nDnOOEomtic4Doup,pOOEth3T"/V}Nhorsig%sf at__Uu6C uooeomeg$"[/&xx& VzNzUa`U_B]B CUC__UDUDuEgt3E__UP5 F__UGWRGuENH__UIVRIooeKWRKuLXRLMd:MOOENDNOOEOWROuPD:POOE@eQuRERR__USGRSuTERT__UUHUokoeOGRW}۳ stream, @"Ξ" p\ X") ciftxt = repin 4( \PsjY)jZetJaZl ' accents: Rtfto0CifA" \" & Chr(39) acute; E`grav1 . dot;, cedil0 ^ irc ~ Ptild1<(brerK<carLon-og>a dblaKo slashí/o// okB< eܦ?no34umÙ>szldigC &sA !t' Exit Sub ' Roma@n fontw whellip ... '@dagger\݃ ?D) permav @{\f0\',L Case(Hex@(137)) "} $"OE- 40 buls@?49 00nrdb-- m"?traA53##oe.56 ? E$bs\ T`&iexc561''afyrK62H ҃p0oundAAx16.o yeP` 9C465_brvbaA96 9sec~ ?"©?uD69 a ordfOE7ID laquzoB`>nws7O'/ . sh3_G/vrelO!@!74/`<_Cs &macth=plusm{/c7$ micr/ 8OC%m?7par3O A?!?!3!mido!c!8\40 !/m//8?rr/t`ҿ@frac14 1/4O"O"F"223S3Siques{N)9i$^^^A寍 (9881uETHB)x( 20_$$"&T0HORN$22y/ et 0divfi24 E c iftxtstr eam = reHpin h(c, "þ;" ({\f0\ '" & LCa se(Hex(254)) ""}" ) Con vertEnti tiesToCif End Function4 Rtft3Accen@t(data As String, acod.e , ') Dim test0char ypos O1o RB In 7(, B, 2, 0uIf B >@ 0 Thee ' - 1 + Len([)/*) ' uf,5 (C hr(38Mid+ 2, 1"acute;" M' d@o noth c> Mends \' etcD Exit D E @Else: mIXf 8 - = "5 look@s likeOiLtyA|Fc= T10 Select @nc( `65 To 9h0 _N3D&& Righ[] h-_)@v2 dE@m}̈ 97+122?,?,A_ !? @fA3`F^ {D F=HeGLoop K}`'$8냡a < N 0 { F C F B 3 D 2 A - A 0 F A - 1 0 6 8 - A 7 3 8 - 0 8 0 0 2 B 3 3 7 1 B 5 } ( % % *0 ) % i p ( ) H P x % i if t ) % ` 8 p B@` 8 p ` 8 p 8 3A > " 8 P ( " ( 0 8 @ H P ` h p x " ] 8 ` MsgBox FacifitateCommandha ! ` ! ecti I If you close this document, you will end the current CIF editing session. # Do you wish to close this document? J $ ' L O f ' d k | e ! z I If you close this document, you will end the current CIF editing session. # Do you wish to close this document? J $ ' L ' d H k @ k 8 k 0 o ( ! z ! ! 5 9 9 9 q q ! ! 5 9 9 9 q q k o p ! Z d RB@ k h o ` X Attribut e VB_Nam e = "Wor dDocClass" Bas0{FCFB3 D2A-A0FA -1068-A7 38-08002 B3371B5} |GlobalSpacFalse dCreatabl Predecla Id CExpose Tru `Temp lateDerivCu Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCifClipboard Caption = "printCIF - clipboard" ClientHeight = 4965 ClientLeft = 45 ClientTop = 330 ClientWidth = 7470 ShowModal = 0 'False TypeInfoVer = 72 End $ ' } ' R R KQ DBstomizDPubli c WithEv ents App As .`ation j .VarHelpID Z-1 P F J Sub)_um0Bef oreClg(ByVal 8 , Cancel Boolean ) 'MsgB ox Facifit,Comma@nd If!.achedC@% MacroContainer.The 3respLonB("you cA& th@is doc,, will ende curr 3 CIF e diting sess@J." & vbCrLf "DoDsh t"o?", OK݃=,8,> @'?,HC3M= ;CEB-If R;@LB G e.F ul¹@Iucr Rtffilen TTE6*@!* Q*e _!b`nt`` 22!zb_ U.Para graphFor8matcAA".S8hadXA.Textur!wjqbNon e . eground PatternColor`Ewd",Au c Backti,# UE F G a$. # y LɮM WindowSelecChangeMA K FmCif.He ight < 9.0c`E.F etchDIt>e`$#F 0* pH d Template ProjectQ H @ = | 3A J< 9stdole>s t d o l eP h %^ * \G{00020430- C 0046}# 2.0#0#C: \WINDOWS \System32\Se2.tl b#OLE Au tomation 0 EOfficEO f i c5EE2D F< 4 1 1 b 3 3 8 b _ W o r d D o c C l a s s ; 0 x ` h P 8 H 0 ӳyޚE`Ee#94 9I8Mu~ zSvO5Lخ vUABK8<: _J[icOjR oY}ITˊ߫s SRDK# yM y nC(~8(LR *A')G. a9HIE g1 }ŶJ$FM^<ӄ z]Ww@n<بe 7+p%FqsJ btm@rf c 'Ļ fKA- %AAՎPi[ ^9"B@¸Ѫm cپ\oJ/h A88B^( h 9$Bѵ\ ZLh&| 0pZrN Ψ RUkg)hIBpaw~_ ~ b Q f Wordk VBA Win16~ Win32 Mac VBA6# Project1 stdole` TemplateProjectE ThisDocument< _Evaluate Officeu Documentj Module1b CifActaC (! CifAuthorDataG CifAuthorName1 CifAuthorAddressR CifAuthorAddressID0# CifAuthorFootnote8 (! CifComputerProgs# CifProgDatavalue]4 RtfProgStyleNo 6 ( PrintCifCoordinates( ( PrintFlaggedGeometry? ( PrintSortedComputerPrograms% ( PrintSynopsis1 ( DontPrintAcknowledgements4 ( TeXinCIFt ( SynopsisStart ( SynopsisEnd l ( AbstractStartC ( AbstractEnd> ( CommentStart ( CommentEnd# ( ExpPrepStart ( ExpPrepEndl' ( ExpRefStartl ( ExpRefEnd ( AckStart ( AckEnd>J ( RefStart: ( RefEnd\ ( FigStart ( FigEndg CifAuthor\A fncountIQ HatomsPresentI CifExpData CifExpDataCountY pdmurequiredI prognameH combinedj proglistE ( ActaCBuildPaperE CiffilenameW rtffilename@ DontBuildArray ( RtfCifStyleD ( ClearArraysEtc%6 ( IUCrCifFilename9 ( IucrRtffilenamet rtftmpfilename. Kill CifTools^ ( PutCifInArrayOfLines"c ( SetDatablocks7 ( ActaCBuildBodyc ( ActaCBuildExpi ( ActaCBuildEndMatterʒ dn\ ( datablockcount{I ( datablock CifStructuredata ( GetCoordinatesTable4n ( GetAdpTable[^ ( GetExtraTable CifRtfWrite ( RtfWriteAndPrependHeader ( RtfWriteEnd rtfoutputstring CifExtractUniv ( GetCifdataJ ne ( tmpCifDataitem CifDatavalue RtfStyleNummber ( RtfWrite ( RtfWriteParaM ( GetCifauthorsUY ( RtfCifStyleCam * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P R O G R A ~ 1 \ C O M M O N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 1 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e \ M S W O R D 9 . O L B # M i c r o s o f t W o r d 9 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ S y s t e m 3 2 \ S t d o l e 2 . t l b # O L E A u t o m a t i o n * \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 1 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e \ M S O 9 . D L L # M i c r o s o f t O f f i c e 9 . 0 O b j e c t L i b r a r y * \ G { 0 D 4 5 2 E E 1 - E 0 8 F - 1 0 1 A - 8 5 2 E - 0 2 6 0 8 C 4 D 0 B B 4 } # 2 . 0 # 0 # C : \ W I N D O W S \ S y s t e m 3 2 \ F M 2 0 . D L L # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y * \ G { 9 A C A 9 D 6 9 - E B A B - 4 F 4 F - B 6 0 3 - A 0 7 0 4 D 1 1 2 C 3 1 } # 2 . 0 # 0 # C : \ D O C U M E ~ 1 \ s w \ L O C A L S ~ 1 \ T e m p \ V B E \ M S F o r m s . e x d # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y .E .`M * \ G { 8 3 1 F D D 1 6 - 0 C 5 C - 1 1 D 2 - A 9 F C - 0 0 0 0 F 8 7 5 4 D A 1 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ M S C O M C T L . O C X # M i c r o s o f t W i n d o w s C o m m o n C o n t r o l s 6 . 0 ( S P 4 ) 3A T h i s D o c u m e n t 1 6 4 1 1 b 3 3 8 7 T h i s D o c u m e n t M A C i f A c t a C 1 8 4 1 1 b 3 3 8 b C i f A c t a C C: C i f E d i t 1 9 4 1 1 b 3 3 8 b R C i f E d i t 0 * C i f E x t r a c t U n i v 1 : 4 1 1 b 3 3 8 b C i f E x t r a c t U n i v g H C I F G e o m T a b l e s 1 6 4 3 5 a 7 6 9 0 C I F G e o m T a b l e s . ` 4 C i f R t f W r i t e 1 < 4 1 1 b 3 3 8 b C i f R t f W r i t e 0 x M C i f T o o l s 1 = 4 1 1 b 3 3 8 b C i f T o o l s K C i f W d M a i n 1 7 4 1 1 b 3 3 8 7 C i f W d M a i n n m F m C i f 1 > 4 1 1 b 3 3 8 b F m C i f G F m C i f C l i p b o a r d 1 ? 4 1 1 b 3 3 8 b F m C i f C l i p b o a r d o F m C i f I n f o 2 0 4 1 1 b 3 3 8 b F m C i f I n f o F m C i f N o t e s 2 1 4 1 1 b 3 3 8 b F m C i f N o t e s G F m C i f O p t i o n s 2 2 4 1 1 b 3 3 8 b + F m C i f O p t i o n s F m C i f S e l e c t 2 3 4 1 1 b 3 3 8 b ' F m C i f S e l e c t [ 8 F m C i f W a i t 2 4 4 1 1 b 3 3 8 b F m C i f W a i t P F m F i l e O p s 2 5 4 1 1 b 3 3 8 b F m F i l e O p s { h a( F m F i l e O p s A 2 6 4 1 1 b 3 3 8 b + F m F i l e O p s A X +6 F m F i n d R e p 2 7 4 1 1 b 3 3 8 b F m F i n d R e p F m R t f T o C i f I n f o 2 8 4 1 1 b 3 3 8 b 7 F m R t f T o C i f I n f o Me F m T a b l e T o C i f I n f o 2 9 4 1 1 b 3 3 8 b = F m T a b l e T o C i f I n f o ) F m U p d a t e I n f o 2 : 4 1 1 b 3 3 8 b O F m U p d a t e I n f o R t f T o C i f 2 ; 4 1 1 b 3 3 8 b R t f T o C i f u, W o r d D o c C l a s s 2 ountT RtfStylename}\ CifStartLine CifEndLineE vbCrLf sj CifBlockID)' ( GetCifExpCrystalDataq ( GetCifExpDataCollectionr ( GetCifExpRefinementp CIFGeomTables ( GetBondTable ( GetContactTableIU ( GetAngleTable:V ( GetTorsionTable ( symcodesa ( symcodefnS ( GetHydrogenBondTable ( GetComputerProgs authorstrU allauthors' cifaddress[ authorcolp addresscol footnotecol8 escapeauthors%z dblocknumо ( CifLoopNumCols Trim@ ( CifLoopDatax ( CifLoopNumRows_ numcifauthors, addresscountC aX newaddress commapos Right ( repinstrg ChrK~ footnotestr structureno! spacegroup0{ tmpthing anothertmpthing ( findinstr ( initcaps UCase5 lc^ nrm^ ( CifFormat CifStructuredataPowder* ( RepCifcodesF_ ( RtfWriteTranslationsFm numofrtfrows ( AreaDetectorData CifStructuredataCCDi vbTextCompare Q enddiffrnstandards Cifdataname=Z ( structurecountG progstring dbid> (! CifDatablock6 ( processprogs_` ( progsortp grammer msgQ datanamenum? printprogname~ progidxr firsttimeq progtypecountD progcountkQ assignedE structno previousprog~ sameprog proglisttmps ( datablockidsh CifEditd (! CifSearchStringh srchtext linenumֶ startposG WA_ WordDocClassڝ TmpCifFileLineA ( EditedCifText7 ( PublSectionsEditedG ( RedisplayingCifTextI ( FacifitateRtfToCifs ( ActivateRtfToCifHeadings` ( CifSavedM ( DisplayLogMsgs4 ( DoNotShowRtfToCifInfo U ( DoNotShowUpdateInfo ( DoNotShowTableToCifInfo ( DoNotShowRtfInfo, ( FmCrossNotClicked ( EnableTeXVa ( FacifitateCommand LastStyleClicked ( RegisterEventHandlerEt Appt Application* ( UpdateCifAll " newciftextsource EOF ( CifFileline{ ( CifFilelinecountb ( ListDatablocks esclist FmCif? ComboBox1' Clear AddItem ( ReBuildRtfX quitrtfbuild| ( FacifitateRtfBuildLog adoc Documents FullNameО SaveChangest wdDoNotSaveChangesԇ FileNamej FmCifWaitk FmCifInfo Show fmciftopf fmcifleftw fmcifheight& fmcifwidth0% fmciftextfont Top5 Height| CifTextBox FontU Size ( CifFileStringK Captionx ( FacifitateName* ( IUCrCifFiletitle Activate| ActiveDocument\ TrackRevisions PrintRevisions ShowRevisionsu response MsgBoxR vbOKOnly ( SaveCifq ( CloseCif tmpbkupcif> MacroContainer> Path2 ( AllRtfToCif7 Contentl RtfToCif6 ( RunRtfToCifu ( UpdateCifWithNewRtfGenText ( RtfGeneratedCifText SelectionZ Collapseu direction& wdCollapseStart| ( RtfGeneratedCifTable ( SelectionRtfToCif wdSelectionIP FmCifClipboard NewCifTextBoxH, fmciftablesu ( RtfGeneratedCifTablecount!^ TableTextBox MultiPage14? ValueK ( TableRtfToCifs= CifTextStringR bitofnewcifԪ NewSynK_ NewAbs NewCom NewExp NewExr NewAck NewRefW NewFig CollectingSynm CollectingAbs CollectingCom= CollectingExp? CollectingExrA CollectingAckͮ CollectingRef CollectingFigd NewSynCount NewAbsCounty NewComCount Y NewExpCount NewExrCount NewAckCountZL NewRefCountF NewFigCountc sectionmarkg ( ReplaceInCif= hide9z fetchdatanameI newCiflinesɣ newciflinecount AlreadyExtractedDataItem ( ExtractedCifDataitem CifDatablockID tmpciflinesܝ xo CifBlockEnd` Now% nc^^ oldciffilelinecountS ( CifFindh Findstr srchstartline srchcharposU srchterminateL linepos vbBinaryCompare̝ ( CifReplaceAll] findthestr repthestring startreppos ( ParseCifIV escapeparser parsereportf longlines\ parsefm3 FmCifNotesf DicButton Visible InfoLabel NotesTextbK LineNoBox\ GotoBut VcifButton, ( RunVCif escapethis/ fsF] d[ ret outfG$ vciffm tmpstr vlog>[ CreateObject getfile: Copyƿ drive ShellV vbNormalFocus ( Waitabit fileexists ( LookupNotes; dataname1 tmpcifu} (! CifFile lookupfile ( PutCifInArray ( SetCifDatablocks2 tmpcifitemx (! CifDataitemc ( GetDataItemFromCif( Tag& ( LookupDic ( LookupPowDic ( LookupCoreDic<9 Yl newnotesfm srchcount dicfile, ForReading8 ForWritinge9 ForAppendingq TristateUseDefault9 TristateTrueH TristateFalse CifFilelines\ SetFocus lookfordatablockindic CifFiledatablockcount CifFiledatablockszl lastuscorel uscoreposY& CurLine$ CifBlockStart8 SelLength HideSelections ( RunTmptex i ciftexU escapetex texf߫ ( FetchDataItemCifr dismsgR rtfstylestrI Stylep FetchDblkPosm fetchdatablockidS; hashposF retdataitem ( GetDataItem nni^ Revisions\ Count0v ciflooplineno Val retloopdata ( GetCifLoopDatau missingcifitemX ( AppendToCIFHZ fileofnewciflineszo newlinestoappendS inputnewline ( AddNewDataBlock appenddatablocktype (! ExtractedDataitemhm (! IUCrRtfStyle{ RtfStyleParagraph` ( tmpCifDataitemB datablockidxh secondchoice thirdchoicet DontFormat flagdataname flagsecondchoiceʹ flagthirdchoice ( FacifitateLogS( LookinNextDatablockH DontLookFurther datavalueW ( FormatChemFormulaC) ( FormatNumbers ( FormatSpacegroupC ( RoundUph ( ConvExpo datastringB decplaces noofplaces dblkindex datastr numplacesh i` Isu Istrw ptposܠ numdecplaces6: holdstrp su)_ valsuK vali suPresentU cc\ deccommapos beginroundupj@ deccompos stringIA remI addzeros3 zq ( RemTrailingZeroesD nodecplaces ltmpstr cZ repstr reppos repposBHr ( repinstrpairwise repstrA repstrB firstofpair escape( repstrX ( repinstronce ( InsertInStr findpatternl{ lenfindpattern insertstrA insertposAw insertstrB insertposBw tmpsrchstr patternmatchedj newstartposm PauseTime Start TimerX tmpformula tmpspacegroup textstring ( RepCifAccent ( testacc q accentcode entstr( testcharT Asc!u teststring{ ( RtfFileLine ( RtfFileLinecount ( ClearGeomVarsd LogMsg/ DontReportMsgzF Label1, rtftablecount% symcode'c symcodepart_ symcodenum7 symcodexyz codeflag totcoderef codeflagid, pubbonds loopheadi! datablocknumber flaggeditemsonlyK headcountx totrows8 loopdataname loopdatanamecolnumR TableStylename TableStyleNumber1 colnumXE checko lc pubrows rownummR pubflag getnextbondOP symcodeflagC coderefh foundbeforeV idxӝ idnumber4 pubgeomtableS finished8 rowstring? getnextcontactc getnextangle8% scn getnexttorsion6 getnexthbond totcols sccol lli commaposA commaposB getnextsymposp partno2 searchcharcodej searchcharG lpart findxyz xyzposf publsymcodedX transformA8 newsymmcodepart` newsymcodenum lcf Transform lnum* fracpos numerat: denom* newnumerat zerotest leadingplus" lnew identifier allloopitemsd coln+ extratableheading extratableheadnote¶ extratablefootnote charcode rtffilenum rtftext fileopenerror tmpfilenum Erro Number- RtfFileNo rtftmpfilenameA rtftmpfilenameB tmprtflinee rtfstring LCase: Hex CifStructuredataHatoms: ( IUCrCifFile startln{& cifdatastr' ( FindDataBlock͔ ( FindCifLineString` endposb linenoG furthervalidationneededj validitem datablklineRs datablockid returnvaluesA dataposUq tmpcl~ OpenTextFile AtEndOfStream readline ( ReplaceInString Startline Endlineq dblkstart/ dblkendv srchstartpos ciflinenostart ciflinenoend@ keeplookingfordatanameb dataitemlinen currentlineno6 clnok cn\ PosSingledatanameLoopgF commcharpos# commacharpos7 analyseline? delimitercodeԳ foundclosingapostropheq delimpos srchdelimpos0 testfollowingchar= delimfound tmptest datablockstartH datablockendT ciflinenumber$D loopitem7 loopitemcount | loopheadcheck, looplinenozb ciflineno retstr. loopstartlineno8 lnoG hc] loopheadonly$ leftovertmpstr2 loopheadendlinenof loopdatastartlineno dc\ getnextline# semicolonpos tmptmpstrS apossrchpos lookfornextapostrophe delimiterpos rmptmpstrJ numofrows< ic] tmplitem Ciffiledatam$ cifdatablockcount cifstructurecount{ CifWdMain ( Main, ActiveWindow+ ViewI ShowHiddenTextk ( RegistryGetStuff FmCifSelectgC ( StartProcess FmFileOpsA ButtonOpen ButtonSave ExtensionLabelW nfa^ ReturnFile MousePointert fmMousePointerCustom fmMousePointerDefault( ( RegistrySaveStuffd quitregistery SaveSetting appnameKp ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a d e f g h i j k l m n o p q r s t u v w x y z { | } ~ SectionG Key setting| quitgetregisteryK GetSetting Default ( RegistryDeleteStuff quitregdel< DeleteSetting ( ExamineControls comboboxentereda startheight> startwidthd< MinimizingForm CheckBut_Click@ CifTextBox_Change, CifTextBox_KeyUp/ KeyCode MSFormsC ReturnInteger Shift SelText+T CifTextBox_MouseMove Button FileMnuFrame; ToolsMnuFrame FileMnu BorderStyleS fmBorderStyleNone ToolsMnuz UpdateMnuA PreprintMnu ^ CifTextBox_MouseUpQ ListCount6 ListIndexQ ComboBox1_Changea escapecombo ComboBox1_enterOx CopyBut_Click CutBut_Click Cut. DicBut_Click ToolsMnuLookup_ClickC FileMnu_ClickX FileMnuOpen FileMnuSaveAs8< FileMnuExit| FileMnuSave FileMnu_MouseMove fmBorderStyleSingleK FileMnuExit_Clicku FileMnuExit_MouseMoveQ FileMnuPrint FileMnuOpen_Click-J errhandler } KillCurrentCifw vbYesNoCancelq vbYesa? vbNo% oldcaptionN fmMousePointerHourGlass' FileMnuOpen_MouseMove FileMnuPrint_Click]J PrintOut. Background. FileMnuPrint_MouseMove FileMnuSave_Click FileMnuSave_MouseMove8 FileMnuSaveAs_Click vbYesNo FileMnuSaveAs_MouseMove%d FindBut_Clickp ToolsMnuFind_Click FontDnbut_Click FontUpBut_Click*b Image1_DblClick Cancel ReturnBooleane Image1_MouseMoveD MaxBut_Clickz MinBut_Click OpenBut_Click# PasteBut_ClickR Paste PreprintMnu_Click PreprintMnu_MouseMove PrintBut_Click RedoBut_ClickpN CanRedo RedoActionc SaveBut_Click# SpinButton1_SpinDownד SpinButton1_SpinUpg TableBut_Click: ToolsMnuTables_Click[s ToolsMnu_Click ToolsMnuOptionsb\ ToolsMnuFind ToolsMnuParse ToolsMnuTables$ ToolsMnuLookup(W ToolsMnuRtfToCif ToolsMnuGotos ToolsMnu_MouseMovee FmFindRepCd FindText ToolsMnuFind_MouseMove ToolsMnuGoto_Clickv escapegotoBL InputBox LineCount| ToolsMnuGoto_MouseMove lookupdataname ] ToolsMnuLookup_MouseMoveC ToolsMnuOptions_Click FmCifOptionsq ToolsMnuOptions_MouseMove ToolsMnuParse_Click ToolsMnuParse_MouseMovec ToolsMnuRtfToCif_Click>. quitrtftocif;2 FmRtfToCifInfo l ToolsMnuRtfToCif_MouseMove[ quittabletocif FmTableToCifInfoM ToolsMnuTables_MouseMove UndoBut_Click CanUndo2 UndoActiona UpdateMnu_Click quitupdate g vbOKCancelx? vbCancel' FmUpdateInfo AcceptAllRevisionse UpdateMnu_MouseMoveU UserForm_Click UserForm_Initialize5c UserForm_MouseMovei UserForm_QueryClose CloseMode؟ UserForm_Resize minheight Move>y CopyBut2_Click+{ Label4_Click- Image1_Click CheckBox1 Label6_Click DicButton_Click GotoBut_ClickSo escapethisgoto; linol NotesText_ChangeFT VcifButton_Clickk CloseButton_Clickrw CheckBox2 CheckBox3 CheckBox4 CheckBox5 CheckBox6 Cancel_Click CancelLabel_ClickP ContinueLabel_Clickz StartCiftoRtf_Click CancelButton_Click FmFileOps iucrfilepath drivelist` ButtonOpen_Click ComboBoxDrives_t ButtonSave_Click ComboBoxDrives_Click3 ListBoxFoldersb f1$] fc6] getfoldern openfolderlabelwd getdrive?+ isready driveletterB rootfolder| subfoldersx= FileswX ListBoxFiles ButtonFolderUp_Click fpC] IsRootFolderb ParentFolder7@ ListBoxFiles_Click{H PathSeparator5 ListBoxFolders_ClickE UserForm_ActivateZs sf_ Systema PrivateProfileString[ tk Drives[ drivetype, sharenamegx imagecomboboxnotenteredlU filenamebox ListView19 ListItems itmX | Addr AddFolderToCombo ImageCombo1_Click ImageCombo1 SelectedItem* ComboItems0# Index ListView1_ItemClickU^ Itemz MSComctlLibm ListItemFk ff9] af\ SmallIconsQ? ImageList1c lvwSmallIconW7 ImageListm| folderpath% itemcPh pf^ cd\ foldernames-~ fullfoldernamesq im] CurrentReplacePoss FindButton_ClickH findit5r currpos\ fmfindtopgp fmfindleft SelStartZ respopnseP ReplaceButton/ Enabled۪ ReplaceAllButton0 ReplaceAllButton_ClickD repcountJ$ ReplaceText!/ ReplaceButton_Clickw CheckBox1_Clickl Image4_Click Image5_Click Label5_Click= Label3_Click< Label7_Click; IucrRtfCifFilename60 IucrRtfCifFilecount) RtfCifFileLine tmpRtfCifFileLine`- RtfCifFileLinecount tmpArrayr/ RomanFnt RomanFont= ArialFnt ArialFont^o SymbolFnt6 SymbolFont CeFntOm CeFont GreekFnt GreekFont~f TurFnt TurFontU HebrewFnt HebrewFont. ArabicFnt` ArabicFontH BalticFntN BalticFont CyrFnt' CyrFont UnicodeEnt ExtractAnyTables; ExtractOnlyTables% thedoc+ ScreenUpdating! Comments) aucomment Deletex asecH Sections hdrt Headers" range ftr Footers Shapes< curShapeRange` ShapeRange curshape9 TypeParagraph TypeText InlineShapesٚ rtftablea Tables tablertfdoc newtable % Findn ClearFormatting) Replacement Forward WrapWy wdFindStop'f MatchCase MatchWholeWordX MatchWildcards MatchSoundsLike0 MatchAllWordForms ExecuteY Replacef wdReplaceAllu# Found+ tablerange7 ConvertToText, Separator^ wdSeparateByTabs SaveAsf; FileFormat wdFormatRTF' ( IucrRtfCifProcess ScreenRefreshA tableerrorZ ( SetRomanFonts" ( SetSymbolFont ( SetUnicodeEnts ( FindSymbolCodes searchpos firstoccurence backlines' activefontc> symbolcodeposb symbolcode symbolcodehexl skiponeC keeplooking numclosingbracesU numopeningbraces na\^ lensymbolcode+W replacementsymb,) replacementstr~ lookinnextline- ( FindFieldSymbols SearchString tmprtfstring fieldendposS ( repinstrInfinr datastrI|t FindStrIv repstrI foundstrW ( SplitStrAtEighty% tmplineo partlines@ partlinecount~ partlinep crlfpos spaceposz breakpos tabposb newtmplineA ( ReplaceInfSup ( ReplaceSub^ ( ReplaceSuper< ( ReplaceDn ( ReplaceUpz ( ReplaceBoldItalic ( ReplaceItalicv ( ReplaceBold| ( BuildRtflineArrayFromVar- RtfStream rtflineno parinstringposYs pardinstringpos lenadjust otherpositionњ lenopr tmppos smallestpos# ( SplitStringIntoTableArray3 txtstream lentextstream rowArray5 rowidxF5 parposf maxcol5 colidx1( splitdelimpos); tmpRtfCifFilename TableDataU ReadallU ( GetFontTableB| newRtfStream{: AttachedTemplate Savedd wdFormatText LockComments' Password AddToRecentFilesV WritePasswordOW ReadOnlyRecommended EmbedTrueTypeFontsUS SaveNativePictureFormat SaveFormsDatac SaveAsAOCELetter ( ConvertTextToTablexb ( ConvertToCifTexto" fonttblstringE5 ( FindGroup ( GetFontNumberk GroupName NumOpenBraces NumCloseBraces/ fonttblstr fontid3 fontidposj SubPosl tmpStream SrchPosPO AnalysisStr EndsubPosV ClosePos CharCount keeplookingforsubi DnPos' EnddnPos keeplookingfordn SuperPosW\ EndsuperPos~i keeplookingforsuper UpPosc EndUpPos> keeplookingforup{ ControlPos= EndControlPos keeplookingforcontrol txtfilenamed numrows noofrows` noofcols| ri blankrow escapetableconverto tablebody colcountA= noofstarttag\ noofendtag ( ConvertEntitiesToCif-= runninglinelen] splitstr` tablehead Time datanameheaderF datanamefooterI newtxtstream^ ciftxtstream1 ( RtftoCifAccentM Class1+ App_DocumentBeforeCloseS Doc App_DocumentBeforePrint= ParagraphFormat ShadingA Texture wdTextureNone% ForegroundPatternColor. wdColorAutomatic BackgroundPatternColor App_WindowSelectionChange Self Document_New;E _B_var_x h S " _ + ' ! + % & + 7 4 = # O h 8 3 ' < PĈ$ t x#!!* @-0$ X@D H @ @ D",d !@ *A$ H @ d i r F m C i f @ # 0 ) f # o " ( 8D04C-5 BFA-101B -BDE5EAA5C42Egr am Files \Microso(ft 6\MSO9.DLL# 9.0 Ob Library#C MS Forms> ! S Fr m s 3 D452EE1 -E08FXA-8 -02608C4D0BB4YOFM20 'B \&/ ; "1 fmAm00}#:0m# 50 A9AC A9D69-EB AB-4F4F- B603-A07 04D112C316DOCUME ~1\sw\LO0CALS\VBE\S.exda:@ .E .`M @MSComctbl@m> gC em t L i b | 3 831FDD16 -0C5C-11D2-A9FCBLF8754DA3 s OMCT L.OCX0Wi@ndows @$monntrols 6K(SP4)@ b~ rThi sDocumenPtG TsiE@LDc uMeT nw2 Q` H 1A-` ",M""+ CifActaCG )f AA*a C j2CroC: m ! ean`XEdi@!anCBEi 2r * ifExtractUnivG ! Ee x@r a U 1i v` 2Ig a0IFGeomTTabG 1IUG o@DT bmbsN2\/4r5 .+q5R tfWriteG q&R&f W jr 8t`v2M$0$WTo`o)WTh>s` i)Wgo)oKk a4if WdMainG V+W+Mii# j2o nR${;m nAFm G F0! 2IGB(`:/Clip`boardS3CQ(i pPXo r2;[S3_bPa#d D4o_ InfosI0f`sfso$}4sNo@tesG *N@A2*256ea%GsgOpQqgOPt(o 1 sg ٟ h BBSelESDc@EE? b? [? 8$Waqi=GW=tE} a=$e r 7uOp uF1Asdwka=#{,A,~A ,,+26_XWndXRep>!n GR#pF`[gIMpTo@XF"p1f#YGSTYP_n@oP Me_ Fcx n HG U2. ) JUpdSJUPJd7SJJ i f RtfToC if2 h t T o C " L H1 u, $(, ! + WordDocClassG "A r d D cA _l a s /2/ h;" s $ N } / & R KQlt ( @ RF m C i f I n f o x B <?C f o A C C o m p O b j D a ! " $ % & ' ( ) * + , - . / 0 1 2 3 W 5 7 8 9 : ; < = > ? @ A B C D E F G H I J K L N O P Q R S T U V X Y Z [ \ ] ^ _ ` a b c d e f h j k l m n o p q r s t u v w x y z { | } ~ i 2 1 & n` ` 0 0 f M T o % ' 6 C o m p O b j 4 p 0000 0 u Tahoma.. { { R KQlt BM v ( w u Tahoma.. { { R KQlt BM v ( wwwwwwwwp pppΎppΎppΎpppppp wwwwwwww u Tahoma..HO DH OOH DDD u Tahoma.. { { R KQlt BM v ( DHHHHx1ace O Go to a data block or add a new one 0 3 B OpenButt O Open CIF 0 4 B SaveButF{ O Save CIF 4 5 B PrintBut O Print CIFace @ E B TableButz- O Convert RTF table to CIF Microsoft Forms 2.0 Form Embedded Object 9q u Tahoma.. VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCif C o m p O b j - a V B F r a m e G F m C i f C l i p b o a r d r 0 )< f ! H / 5 Tahoma { ( File..." 5 Tahoma.. ( ( Update CIF using RTF _ 5 Tahoma.. ( Tools...me. 5 Tahoma.. { O R KQlt ( @ ( Build preprint q 5 Tahoma.. { { R KQlt BM v ( u Tahoma.. { { R KQlt BM v ( u Tahoma.. { { R KQlt BM v ( xtDDHDDHDHHDtDDD KQ DB Tahoma H { @ L < +/I< +/I90~ uM ( 8 CifTextBoxbl L SpinButton1lW) Increase/decrease window size ( n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q ( Open... 5 Tahoma.. ( Savea.. 5 Tahoma.. ( Save as... 5 Tahoma.. ( Exita.. 5 Tahoma.. ( Print.. 5 Tahoma.. R KQlt BM v ( 33330 333333330 3333 R KQlt BM v ( 3 3 3 3 3333333 300000 0 R KQlt BM v ( w R KQlt BM v ( wwwwwwwwwwwwwwwwpwwww wp wwwp ww ww wwp wp wwww wwwwp wwwwww wwwwwp wwwww wwwp wp www ww wp wwwp wpwwww wwwwwwwww ( H M } @ 2 8 FileMnuOpen O Open a new CIF D 2 8 FileMnuSaveCO O Save displayed CIF T 2 < FileMnuSaveAsF O Save displayed CIF with new name @ 2 8 FileMnuExitAO Exit publ_CIFF @ ) 2 8 FileMnuPrintO E Print this CIF $ J " Image6.. $ K " Image7.. O $ L " Image8.. E $ M " Image9.. ! FileMnuFrameO { ( 2 8 Filbedded Object Forms.Frame.1 9q ( RTF to CIFrq 5 Tahoma.. ( Table to CIFnt q 5 Tahoma.. ( Check CIFCIq 5 Tahoma.. ( Go to line...t q 5 Tahoma.. 8 Find...q 5 Tahoma.. ( Options....q 5 Tahoma.. 8 Look up....q 5 Tahoma.. * ! " # $ % & ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A . C D E F G H I K L M N O P Q U @ w X Y j [ g ] ^ _ ` a b c d e Z h i j k l m n o p q r s t u v w x y z { | } ~ Tahoma ( 2 Label2ue E ( Green highlighted headings indicate that the following text can be edited in the RTF. Convert RTF to CIF text by clicking 'Update CIF using RTF' in the CIF window. ? " 5 Tahoma * Texta " @ Tahoma * Texta " @ Tahoma ( t Grey shading indicates that the data can only be edited in the CIF. Click to dise O Undo 0 0 B PasteBut; O PasteBut , / B CopyButt O Copy , . B CutButttE O CutB 4 7 B FindButtS O Find/replace @ 8 B DicButtt' O Look up CIF data name 4 9 B CheckBut+* O Check CIFace @ : B FontUpButacea$ Increase font sizeam @ ; B FontDnbutac n` ` Microsoft Forms 2.0 Frame Emplay the CIF item in the CIF window.? # 5 Tahoma P( ? This RTF file is not only a preprint of a CIF-generated structure paper, it also facilitates editing of the CIF. Clicking text in the RTF file will move the cursor to the data name in the CIF (which will be displayed in a separate window). In addition, parts of the RTF can be edited directly and converted to CIF text: ! 5 Tahoma R KQlt ( R KQlt BM v ( wwwwwwwwp pppΎppΎppΎpppppp wwwwwwww R KQlt BM v ( Ȉ Ȉ Ȁ R KQlt BM v ( DD DDD D R KQlt BM v ( ( H I } g ` # 2 < * ToolsMnuRtfToCifO O Convert selected text in RTF to CIF formatT T $ 2 @ ToolsMnuTablesifO Convert RTF table to CIF table L % 2 < ToolsMnuParsesifO Syntax checking (VCIF) D ' 2 @ ToolsMnuGotoO Go to line numberVCI @ ( 2 < ToolsMnuFindO ; Find and replace H , 2 < ToolsMnuOptionseO RTF output optionsCI L - 2 @ ToolsMnuLookupseO E Look up CIF data name) H F " Image2.. Convert RTF table to CIF table $ G " Image3.. $ H " Image4.. E $ I " Image5.. ; e& Decrease font sizeam P = L # ComboBo u Tahoma.. { { R KQlt BM v ( HDDHGDDDHDHDGDDx u Tahoma.. { { R KQlt BM v ( DDDDD O77ODDDssO77ODODDssOOH77ODssDDD@777770p pp0s sp u Tahoma.. { { R KQlt BM v ( DDDDHOHO H OHO H OHO DH OOH DDD u Tahoma.. { { R KQlt BM v ( DHHHHHHDHHHDH@H u Tahoma.. { { R KQlt BM v ( u Tahoma.. { { R KQlt BM v ( DD DDD D u Tahoma.. { { R KQlt BM v ( Ȉ Ȉ Ȁ u Tahoma.. { { R KQlt BM v ( p @ ?e=3}|?7sy?^s1? @ F x 0 Don't show this againCIF 5 Tahoma x ( f Any CIF syntax errors should be apparent in the RTF preprint, or select 'Check CIF' in the CIF window. ? O 5 Tahoma ( Continue N u o / > | i 1 5 3 pFz? a ) ) f o 2 5 R S T [ ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U W X Y Z \ ] _ ` a b c l e f g h i j k ^ m n o p q r s t u v w x y z { | } ~ i 1 7 7 < i* WJO ) ) i 2 6 4 6 9 i* WJO ) ) C o m p O b j s x 0 R o o t E n t r y F XW 5 D a t a 1 T a b l e ' 8 W o r d D o c u m e n t .D Caption = "printCIF" ClientHeight = 5520 ClientLeft = 45 ClientTop = 330 ClientWidth = 6960 ShowModal = 0 'False StartUpPosition = 3 'Windows Default TypeInfoVer = 228 End ( H ! @ H } x3 6" R KQ DB Tahoma ( # 9 MultiPage1 pFz? a Microsoft Forms 2.0 Form Embedded Object Forms.MultiPage.1 9q l 1 C3 CIF text Tablesxt Tab3 Tab5 5 Tahomaut $ H ! + } C3 p $ # Page1ut25 , $ ! Page3ut25 , f o 8 : C o m p O b j n f o ; = C o m p O b j n C o m p O b j 1 ? a V B F r a m e / i* WJO Microsoft Forms 2.0 Form Embedded Object Forms.Form.1 9q # H 0 5 Tahomaut D ( 4 This table data was generated from the displayed RTFa$ 5 Tahomaut { { R KQlt BM v ( DDDDHOHO H OHO H OHO DH OOH DDD u Tahomaut $ H ! } 2 6 ( < TableTextBox " ( 2 d Label3t , ! B CopyBut2!/ Copy i* WJO Microsoft Forms 2.0 Form Embedded Object Forms.Form.1 9q # H 0 5 Tahomaut D ( 2 This CIF text was generated from the displayed RTFa$ 5 Tahomaut { { R KQlt BM v ( DDDDHOHO H OHO H OHO DH OOH DDD u Tahomaut $ H ! } 2 6 , < NewCifTextBoxcke ( 2 d Label1 , B CopyBut !/ Copy { L ( : CIF text shown here can be copied and pasted into the CIF. / 5 Tahoma O ( SpinButton1 1 ( 2 l Label4t2 Tahomaue " O R KQlt ( @ ?e=3}|?7sy?^s1? ( 2 H Label1ue ( 2 H Label3ue ( 2 Label4ue ( 2 p Label5ue $ 0 " # $ % & ' ( ) * + , - . / 1 2 3 4 6 8 9 : ; = > ? @ A B C D E F G H I l K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k m n o p q s u v w x z | } ~ * Image6ue ( ` CheckBox1 x " ' ( 2 Label6ue $ 8 Image1uek $ * Image2ue Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCifInfo Caption = "printCIF - RTF preprint" Clie V B F r a m e 2 F m C i f N o t e s T J G ?C`&O f o F H \ ntHeight = 4110 ClientLeft = 45 ClientTop = 330 ClientWidth = 5790 StartUpPosition = 1 'CenterOwner TypeInfoVer = 39 End $ } . c R KQ DB Tahoma , ( < NotesText # H M. 5 Tahomaue ( CIF dictionary { u Tahomaue ( Label1ue# { 5 Tahomaue H, { 5 Tahomaue ( Go to line:a { u Tahomaue ( Run VCIF { u TahomaIF H @ DicButton 5% Look up core CIF dictionary , 2 8 InfoLabel ( 4 LineNoBox 5% $ < GotoButF ( 8 VcifButton Microsoft Forms 2.0 Form Emb C o m p O b j I a V B F r a m e G F m C i f O p t i o n s O h L `&OPRV f edded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCifNotes Caption = "printCIF" ClientHeight = 3975 ClientLeft = 45 ClientTop = 330 ClientWidth = 6765 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 13 End ( H @ } t & R KQ DB Tahoma 8 ( CheckBox1n x F P W 0 Include all geometry in the RTF preprint (not just data flagged for publication) 5 Tahoma F V 0 Include atomic coordinates and anisotropic displacement parameters in the RTF preprint 5 Tahoma ` F 8 { 0 Include synopsis (only required for 'inorganic' papers) 5 Tahoma Fo K M ! C o m p O b j N 5 a V B F r a m e 7 0 F m C i f S e l e c t ^ Q PRV@X f O 0 Sort computer programs in journal style (disables the link between the RTF and the CIF computing data) 5 Tahoma ( OKv { u Tahoma T F + { 0 Omit acknowledgements from the RTF preprint 5 Tahoma F \ O 0 Enable TeX previewing (see the file TeXinfo.txt in the printCif folder for more information) 5 Tahoma j ( CheckBox2n " ( CheckBox3n E ( CheckBox4n ( 4 CloseButton g ' ( t CheckBox5on ( CheckBox6on Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCifOptions Caption = "printCIF - options" ClientHeight = 3795 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 10 End $ 0 } ? 9 R KQlt ( @ f < o P R J x C o m p O b j S r a V B F r a m e t # R KQ DB Tahoma \ ( 2 8 ( & Welcome to printCIF, a simple tool to: 5 Tahoma D ( 2 Produce a preprint of a structure paper from a CIFTF 5 Tahoma < ( ) Facilitate CIF editing (via the preprint)nt v 5 Tahoma " O R KQlt ( @ ?e=3}|?7sy?^s1? " O R KQlt ( @ ?e=3}|?7sy?^s1? | ( l Click 'Continue' to open a CIF and create a preprint in the style of Acta Crystallographica Sections C and E N u Tahoma ( Cancel { u Tahoma ( Continue { u Tahomaue X Label1ue ( 2 d Label2ue " ( 2 \ Label3ue q $ * Image1ue O $ * Image2ue ( 2 Label4ue $ 8 Cancelueq , 8 StartCifToRtfv Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCifSelect Caption = "pubCIF" ClientHeight = 2790 ClientLeft = 45 ClientTop = 330 ClientWidth = 4680 StartUpPosition = 1 'CenterOwner TypeInfoVer = 48 End $ } i R KQ DB Tahoma X ( 2 , Label1t2 5 Tahomaue " O R KQlt ( @ F m C i f W a i t ! c V @X0_ f y o U W { V C o m p O b j X a $ ?e=3}|?7sy?^s1? $ * Image1t2 Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmCifWait Caption = "printCIF is processing - please wait..." ClientHeight = 495 ClientLeft = 45 ClientTop = 330 ClientWidth = 4065 Sho V B F r a m e d F m F i l e O p s [ 0_0d f o Z \ d wModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 5 End $ ( } . R KQ DB Tahoma P H B ButtonFolderU O { R KQlt BM v ( u Tahomaue A H, W) , 5 Tahomaue ( files:ueN 5 Tahomaue OpenE | R KQlt BM v ( 33330 333333330 3333 u Tahomaue SaveaueE | R KQlt BM v ( 3 3 3 3 3333333 300000 0 u Tahomaue ( CIF{ 5 Tahomaue 5 Tahomaue ( Folders in 5 Tahomaue ` R KQlt ( @ 5 Tahomaue ` x 5 Tahomaue p * Look in parent folder) X 8 & ComboBoxDrives Click to select drive or system folder ( 2 8 Label2uek @ J ButtonOpeniv & " Open selected filede @ N ButtonSaveiv & " Save selected filede 0 2 4 ExtensionLabel 0 2 , openfolderlabel ( 2 < Label3ue , J ListBoxFoldersl q ( 4 ListBoxFiles q Microsoft Forms 2.0 Form Emb C o m p O b j ] a V B F r a m e # F m F i l e O p s A ` 0d ei f S edded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmFileOps Caption = "printCIF" ClientHeight = 3570 ClientLeft = 45 ClientTop = 330 ClientWidth = 6795 StartUpPosition = 1 'CenterOwner TypeInfoVer = 40 End $ " E } <, . R KQ DB Tahoma < k #$,j (6("$,j (6(!$,j (6( < k a Kѽj (6(Jѽj (6(Iѽj (6( < k 7 fݔj (6(eݔj (6(dݔj (6( @ H B ButtonFolderUp ( Look in parent folder) @ J ButtonOpener# Open selected filede @ N ButtonSaveer# Save selected filede 0 2 4 ExtensionLabel ( ImageList1ab" ( b ListView11ab " ( o _ a " C o m p O b j b a V B F r a m e $ F m F i n d R e p Y w e eip xp wwwyp wwwwww x{ xw xxxp {p pp x{wwwp xwwpwww ` p wwwwwwwwwnp ff n n ; fff` n f` n nf n ` n n n o n n ` o ` ? ?( wwwwwww x p;p0 x8 wwwwwpp nf ` ` ' lt 6 & ( ( @ wwwwwwwwwwwwwp w wp wp wwp wwxwp wwwxwp wp wp wwp wpwwp xwp wwwwwwwp wwwp p p p p p p p p p wwwwwwp ( wwwwwww xpxwp wpxwxpxppp wwwwwwp lt 6 & ( ( @ 3330 ;3 ?33 33 ;;3 3 ?30 3 330 030 3 ;330 ; 0 ; UfeP0 0wvUVf`3 3xvefU0 x-~UfP0 r'~WW -"."ew "%wP0 ~"VP0 m~e`0 m-"`0 gr`0 ގ"~fP3 j~vP wv 0 nݨp0 w f`? mfm ?0 ? ? ? ? ( 333 33 30 30 ;00 f`3 0 p0 ~`0 p г n` 0 h3 ? lt O { R KQlt BM v ( u Tahomaue OpenE | R KQlt BM v ( 33330 333333330 3333 u Tahomaue SaveaueE | R KQlt BM v ( 3 3 3 3 3333333 300000 0 u Tahomaue ( CIF{ 5 Tahomaue!C4 ~ ' ͫ < lt 6 & ( ( @ wwwwwwwwwwwwws wwwwwp p p wwww ( wwwwwww xwww wwp lt 6 & ( ( @ wwwwwwwwwwwww p w wwwwwwwwwwxw w wwwwwwwwwwxw w "(w w w xw wwwwwwwwwwwww ( wwwwwww xpxwwwwwpxpxppp wwwwwwp lt 6 & ( ( @ wwwwwwwwwwwwwp w "wp wwxwp p wxwp w wp wwwwxpp xp w舀 xx ww興 xxxw~ wp xxxxwpx wpx xpx xpw xp xxxp x芧wx 븈xx 芮븈 ~븈p x븈 븈 z w w www ( wwwwwww x x wwxp z븏 ~븈 {w w lt 6 & ( ( @ wwwwwwwwwwwwwp xw w ( @ !C4 + N} & + ͫ x2 ʖ !C4 ! F $U : ͫ Z w < I m a g e C o m b o 1 p ( Look in:" 5 Tahoman: ( Canceln:D { u Tahoman: H, { 5 Tahoman: ( file name: 5 Tahoman: % ! " # $ & ' ( ) + , - / j ImageCombo1b ( 2 8 Label1n: ( 8 CancelButton# I ( ! 4 filenameboxn ( " 2 < Label2n:O Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmFileOpsA Caption = "printCIF" ClientHeight = 4380 ClientLeft = 45 ClientTop = 330 ClientWidth = 6420 StartUpPosition = 1 'CenterOwner TypeInfoVer = 69 End ( H @ } R KQ DB Tahoma < $ 4 FindText O H, , 5 Tahoman: ( Find text:xn 5 Tahoman: ( Replace with:l 5 Tahoman: H,f o d f C o m p O b j g a V B F r a m e P , 5 Tahoman: ( Find nextith { u Tahoman: ( Replace: { u Tahomae: ( Replace allh { u Tahomae: ( 2 < Label1xt ( 2 @ Label2xt ( 4 ReplaceText ( < FindButtont g , 8 ReplaceButton g , < ReplaceAllButtonS g Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmFindRep Caption = "printCIF - Find..." ClientHeight = 2295 ClientLeft = 45 ClientTop = 330 ClientWidth = 4725 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 12 End $ } H R KQ DB Tahoma | ( 2 Label1ue ( By selecting this function, any selected text in the RTF preprint will be converted to CIF format and displayed in a separate window. & 5 Tahomaxt X ( E This text can be cut and pasted into the CIF wherever it is required. & O 5 Tahomaxt l ( Z Any F m R t f T o C i f I n f o . m j p w f o i k C o m p O b j l * a tables in the selected RTF will be converted to looped CIF data with data names, etc. n)& 5 Tahomaxt " R KQlt ( @ ! " # % & ' ( ) + - . / 0 2 V 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U W X Y [ ] ^ _ ` b d e f g h i j k l m n o p q r s t u v w x y z { | } ~ ?e=3}|?7sy?^s1? " R KQlt ( @ ?e=3}|?7sy?^s1? " R KQlt ( @ ?e=3}|?7sy?^s1? @ F ) , 0 Don't show this again 5 Tahoma ( Cancel N u Tahoma ( Continue N u Tahomaue ( 2 x Label2ue q ( 2 Label3ue $ * Image1ue $ * Image2ue $ * Image3ue ( ` CheckBox1llh $ 8 Image5ue $ 8 Image4ue Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmRtfToCifInfo Caption = "printCIF - selected RTF to CIF" ClientHeight = 3495 ClientLeft = 45 ClientTop = 330 ClientWidth = 4395 StartUp V B F r a m e , > F m T a b l e T o C i f I n f o " o w~ f 1 { o n p 3 Position = 1 'CenterOwner TypeInfoVer = 24 End $ } R KQ DB Tahoma ( ( 2 Label1ue ( This function will convert selected tables or tab-separated text in the RTF preprint into CIF tables. Select a table or text using the mouse to highlight it. S 5 Tahomaue ( The extracted CIF tables will be presented in a separate window, from which they can be cut and pasted into the CIF as required.S " 5 Tahomaue " R KQlt ( @ ?e=3}|?7sy?^s1? & " R KQlt ( @ ?e=3}|?7sy?^s1? @ F , 0 Don't show this again 5 Tahoma ( Cancel q N u Tahoma ( Continueq N u Tahomaue ( 2 Label2ue q $ * Image1ue $ . Image3ue ( ` CheckBox1lBu g $ 8 Image5ue $ 8 Image4ue Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmTableToCifInfo Caption = "printCIF - Table to CIF" ClientHeight = 2865 ClientLeft = 45 ClientTop = 330 ClientWidth = 4320 StartUpPosit C o m p O b j q Z a V B F r a m e \ 9 F m U p d a t e I n f o t ~텍 f a ' ion = 1 'CenterOwner TypeInfoVer = 25 End $ } $# R KQ DB Tahoma ( 2 Label1ue ( The update function extracts the editable sections of the RTF preprint (Abstract, Comment, etc.) and converts them to CIF format with data names. el 5 Tahomaue H ( 8 The RTF-generated CIF text will be included in the CIF, 5 Tahomaue ( Note thao s u c C o m p O b j v a V B F r a m e K P R O J E C T w m y t any objects such as graphics will not be included in the CIF. Furthermore, any tables will not be included; however, you can use the 'Table to CIF' item of the 'Tools...' menu to convert tables to CIF format.E 5 Tahomaue # " R KQlt ( @ ?e=3}|?7sy?^s1? # " R KQlt ( @ ?e=3}|?7sy?^s1? # " R KQlt ( @ ?e=3}|?7sy?^s1? @ F { 0 Don't show this again 5 Tahoma ( replacinglh @ Tahoma , ( any existing data items. : 5 Tahoma ( Cancel O u Tahoma ( Continue O u Tahomaue ( 2 h Label2ue ( 2 Label3ue $ * Image2ue $ * Image3ue $ * Image4ue ( ` CheckBox1glh ( 2 @ Label4ue q ( 2 L Label5ue q $ 8 Image5ue $ 8 Image1ue Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FmUpdateInfo Caption = "printCIF - update CIF with RTF-generated text" ClientHeight = 3420 ClientLeft = 45 ClientTop = 330 ClientWidth = 5100 StartUpPosition = 1 'CenterOwner TypeInfoVer = 24 End ThisDocument T h i s D o c u m e n t CifActaC C i f A c t a C CifEdit C i f E d i t CifExtractUniv C i f E x t r a c t U n i v CIFGeomTables C I F G e o m T a b l e s CifRtfWrite C i f R t f W r i t e CifTools C i f T o o l s CifWdMain C i f W d M a i n FmCif F m C i f FmCifClipboard F m C i f C l i p b o a r d FmCifInfo F m C i f I n f o FmCifNotes F m C i f N o t e s FmCifOptions F m C i f O p t i o n s FmCifSelect F m C i f S e l e c t FmCifWait F m C i f W a i t FmFileOps F m F i l e O p s FmFileOpsA F m F i l e O p s A FmFindRep F m F i n d R e p FmRtfToCifInfo F m R t f T o C i f I n f o FmTableToCifInfo F m T a b l e T o C i f I n f o FmUpdateInfo F m U p d a t e I n f o RtfToCif R t f T o C i f WordDocClass W o r d D o c C l a s s ID="{49A96701-7424-4030-8302-789B8A226405}" Document=ThisDocument/&H00000000 Module=CifActaC Module=CifEdit Module=CifExtractUniv Module=CIFGeomTables Module=CifRtfWrite Module=CifTools Module=CifWdMain BaseClass=FmCif BaseClass=FmCifClipboard BP R O J E C T P R O J E C T l k & C o m p O b j { j O b j e c t P o o l XX aseClass=FmCifInfo BaseClass=FmCifNotes BaseClass=FmCifOptions BaseClass=FmCifSelect BaseClass=FmCifWait BaseClass=FmFileOps BaseClass=FmFileOpsA BaseClass=FmFindRep BaseClass=FmRtfToCifInfo BaseClass=FmTableToCifInfo BaseClass=FmUpdateInfo Module=RtfToCif Class=WordDocClass Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="686A34C238C238C238C238" DPB="D0D28C2F8D2F8D2F" GC="383A649765976568" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=198, 198, 793, 689, CifActaC=0, 0, 0, 0, C CifEdit=0, 0, 0, 0, C CifExtractUniv=0, 0, 0, 0, C CIFGeomTables=88, 88, 534, 452, Z CifRtfWrite=0, 0, 0, 0, C CifTools=0, 0, 0, 0, C CifWdMain=242, 242, 837, 733, FmCif=0, 0, 0, 0, C, 66, 66, 967, 729, C FmCifClipboard=0, 0, 0, 0, C, 88, 88, 989, 751, C FmCifInfo=0, 0, 0, 0, C, 110, 110, 1011, 773, C FmCifNotes=0, 0, 0, 0, C, 132, 132, 1033, 795, C FmCifOptions=0, 0, 0, 0, C, 154, 154, 1055, 817, C FmCifSelect=0, 0, 0, 0, C, 176, 176, 1077, 839, C FmCifWait=0, 0, 0, 0, C, 198, 198, 1099, 861, C FmFileOps=0, 0, 0, 0, C, 220, 220, 1121, 883, C FmFileOpsA=0, 0, 0, 0, C, 242, 242, 1143, 905, C FmFindRep=0, 0, 0, 0, C, 264, 264, 1165, 927, C FmRtfToCifInfo=0, 0, 0, 0, C, 286, 286, 1187, 949, C FmTableToCifInfo=0, 0, 0, 0, C, 308, 308, 1209, 971, C FmUpdateInfo=0, 0, 0, 0, C, 330, 330, 1231, 993, C RtfToCif=0, 0, 0, 0, C WordDocClass=0, 0, 0, 0, C Kѽj (6(H 9 3 6 8 2 6 5 E - 8 5 F E - 1 1 d 1 - 8 B E 3 - 0 0 0 0 F 8 7 5 4 D A 1 #$,j (6(H 9 3 6 8 2 6 5 E - 8 5 F E - 1 1 d 1 - 8 B E 3 - 0 0 0 0 F 8 7 5 4 D A 1 fݔj (6(H 9 3 6 8 2 6 5 E - 8 5 F E - 1 1 d 1 - 8 B E 3 - 0 0 0 0 F 8 7 5 4 D A 1 F Microsoft Word Document MSWordDoc Word.Document.8 9q 7 B B bjbjUU .D 7| 7| l ;4 ;4 4 4 4 4 4 5 5 5 5 5 $ ;5 , 5 5 s5 s5 s5 s5 s5 s5 s5 s5 s5 u5 u5 u5 u5 u5 u5 6 8 u5 4 s5 s5 s5 s5 s5 u5 s5 4 4 s5 s5 5 s5 s5 s5 s5 4 s5 4 s5 s5 s5 s5 s5 s5 s5 s5 4 4 5 s5 s5 g5 E5 5 s5 s5 s5 5 0 5 s5 8 s5 8 s5 s5 5 5 4 4 4 4 , 1h . A!"#$% m e s N e w R o m a n 5 S y m b o l 3& z A r i a l ?5 z C o u r i e r N e w " 0 h 0 ,