Standard Jet DBnb` Ugr@?~1y0̝cßFNk7rԜ(<&`{{6߱XdC?3y[%|*j|X%;f_Љ$g'DeFx -bT4.0dvhJJJJJJJJJJJJJJJJ,//₤/0YDDDDS@D ]KUKYpYY Y[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[KYY0YY@MSysAccounts H-KI G Id[sk]% / IImages  I  YS  Y   Y Y  Y Y  Y  DY  Y   Y  Y  Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        ByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatCaptionInputMaskDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID    Ue'@ImageseeskeeFileNameeeCameraeeMeteringeeModeeeShuttereeApertureeeExposureeeFocalLengtheeImageAdjusteeSensitivityeeWhiteBalanceeeSharpnesseeDateeeQuality eI sk     ezFileName       m  ev Camera       m  ezMetering       m  erMode       m  exShutter       m  ezAperture       m  ezExposure       m  eFocalLength       m  eImageAdjust       m  eSensitivity       m  eWhiteBalance       m  edSharpness       m ZDate   OYLSY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectId 4 *1 !"#$%&'()+,-./02358679B:;<=>?@ACDERoot EntryKE7VBAKEKEVBAProject KEKEVBAKEKEdirg__SRP_1 __SRP_2D __SRP_3 =  !"#$%&'()*+,-./0123456789:;<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwy|}~c0* pHdInfoTxtQ(@= l ; J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\Sc2.tlb#OLE Automation^gADODB> ADOBC CD1C10-8CAA006D2(EA4C1CPROGRAM FILES\COMMONL9\ms ado21NMicrosoft ActiveX Data Objects 2.1 LibraryHpModu@le1GMdu1 KKMJDALRLJREZ_TELGYRIJWLRZMN28AKMJ@ALRJ@EZ_TEGY@*IW@R@M"NBH@1~BE,*p!B+BForm_GetDG F/rmGtIno x3UP3UP?30I 3h`q"1(B4rU~~~~~~s    ( 8 QH X\rU 0i y Q !  q@ 4a9I@ 8aivvv @<rrr Y SY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttributery #;LE7VBAKEKEVBAProject KEKEVBAKEKE 4 *H !"#$%&'()+,-./0LB:;<=>?@ACDEIJ89MNKPROJECTwmxJAcessVBADatazForms KE #;LE0KE #;LEPropDataCopyBlobCopyTypeInfoCopyBlob {6PropDataTypeInfo1KEKEͬ *eDetailmtxtFileNamed Label1h cmdGetInfod Label3d Label4psubImagesh cmdToggleDetailFormd Label608=Babce g h)ij1kmVeh Ue0Y@KbImageseeskRSELECT Module1Module1Form_GetInfoTxtForm_GetInfoTxt028=Babc.e ghiJj5kc@e< UVe?@`0Images Ariald2 Tahomahgh Tahomam45 Tahomap5`T Detailem7U`abdctx  -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshiped6Date/time added to database{ed5U`aP bcDateAdded_LabelDateAdded|e`FormFooter\eͬ#eFormHeaderDetailmskd sk_LabelmFileNamed FileName_LabelmCamerad Camera_LabelmMeteringd Metering_Labelm Moded Mode_Labelm Shutterd Shutter_LabelmApertured Aperture_LabelmExposureCompensationd ExposureCompensation_LabelmFocalLengthd FocalLength_LabelmImageAdjustd ImageAdjust_LabelmSensitivityd Sensitivity_LabelmWhiteBalanced WhiteBalance_LabelmSharpnessd Sharpness_LabelmDated Date_LabelmQualityd Quality_Labelm DateAddedd !DateAdded_Label"FormFooterGetInfoTxtImages 0CB0 1CB0Module1ijMSysDbDirData0PropDataCmdbarsKEKEModules KEKE0KEKEPropData DirDataReportsKEKEScripts"KEKEPropDataDatabases!&#KEKE0%$KEKEBlob  Yv1b N  : k & W  C t/Y Y `kDataID#$YAOIndex!B@ty@8opC@ B@ A@5!" we are in form viewSh&ow Detail Datasheet "(dSh&ow Detail Form View "(k "tPq B@`Attribute VB_Name = "Form_GetInfoTxt" Bas0{CAA1F32A-EEFB-11D4-978A-00A0C96590F8} |GlobalSpacI False dCr@eatablTru PredeclaId"Expose_Template DerivCustomizD$Option Comp@ DT  !(?%(@%(A%(B(((( (( ((((!("(#`]E7VBA`]E`]EVBAProject `]E`]EVBA`]E`]Edirg__SRP_1 __SRP_2D __SRP_3 =  !"#$%&'()*+,-./0123456789:;<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwy|}~c0* pHdInfoTxtQ(@= l ; J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\Sc2.tlb#OLE Automation^gADODB> ADOBC CD1C10-8CAA006D2(EA4C1CPROGRAM FILES\COMMONL9\ms ado21NMicrosoft ActiveX Data Objects 2.1 LibraryHpModu@le1GMdu1 KKMJDALRLJREZ_TELGYRIJWLRZMN28AKMJ@ALRJ@EZ_TEGY@*IW@R@M"NBH@1~BE,*p!B+BForm_GetDG F/rmGtIno x3UP3UP?30I 3h`q"1(B4rU~~~~~~s    ( 8 QH X\rU 0i y Q !  q@ 4a9I@ 8aivvv @<rrrN  @             RIJWLRZMN8:3ba7a69fForm_GetInfoTxt`q(I H(xe!e7Access asCase.debug=dimDElseGEndHEndifRFalseYFunction^Goto_IfjIntegerkIsyLoop{MeNewnotOptionalSelectThenTrueVariantWendWhileWithVBAWin16~Win32MacVBA6#Project1 stdole`InfoTxtADODBsModule1b _Evaluate ParseInfoTxt strFileNamee strPrefix _B_var_ifPstrLine _B_var_MidpDC\strValueK_B_var_strValueSstrFieldc_B_var_strFieldk} _B_var_Select'EsrPrefixMETERINGMATRIXnMODEvPgSHUTTERAPERTURE-NF2%]ExpKFOCALLENGTHYf11mmC^IMGADJUSTlSTANDARD SENSITIVITY9ISO100WHITEBALAUTOT SHARPNESSNORMALQUALITY8FULL0FINEorsInfo7 RecordsetconJCurrentProject$pro? ConnectionrsImageszof rstEmployeesD CursorType adOpenKeysetLockType}adLockOptimistic<cnn1 adCmdTable MoveFirstNwit EOFMoveNextL!donUpdateAddnet_Fields7ItemzField1ValueK_B_var_srPrefixHAddNewaid]Nzu^ParseInfoTxtFileParseInfoTxtTablesstrInfoTextFile3 _B_var_Openl InputData varLineDatavarLine_B_var_InputData/erorZ _B_var_On6ParseInfoTxtFile_err? MsgBoxRvbCrLfErro Description  _B_var_WithY _B_var_EndFNumber-select6ȳ_B_var_FunctionO intRecordsState Form_Form16Command2FormDetail2Label1, txtFileNamedLabel3,Command2_Click cmdGetInfocmdGetInfo_Clicks'IsNullClickmsgbo _B_var_msgbo|Form_GetInfoTxtControlsKDoCmdƧ Hourglassb subImagesLabel4,RequerycmdToggleDetailFormLcmdToggleDetailForm_ClickMnSetFocus ShowHourglassL RunCommand`acCmdSubformDatasheets CurrentViewCaptionx subImgages_B_var_ShowHourglass^T  $ H : *x  P 0$ * `h'p, h$ 8"8*>1(6*  ( HX x    8 Xp    8P p    ( h. p 28@  ( 8@ 8   <H8 (:H` BNP  (0  xpV Author Alan Zenreich 1/2001 email zen@zenreich.comC@C@((Hp]X]p the entire line ]]]q rsImages.d]8%, create a new recordset for the Images table = New t9r x9vImages d |C@d not the filename, another field  ' '$FileName'( ' 2$'$' get the rest of the field CAMERA : KTFCamera'(METERING : KTFMetering'(MODE : KTFMode'(SHUTTER : KTFShutter'(APERTURE : KTFAperture'(EXP +/- : KTFFOCAL LENGTH : KTF FocalLength'(KIMG ADJUST : KTF ImageAdjust'(SENSITIVITY : KTF Sensitivity'(WHITEBAL : KTF WhiteBalance'(SHARPNESS : KTF Sharpness'(DATE : KTFĚKDate'(QUALITY : KTFQuality'(SF'(n k ( (FileName% append a new recordomdkkhXi8VLE] S$b Check for end of file.  Read line of data. ExposureCompensation'( $'% get the prefix of the line z 'Error occured, please report to Alan Z.  !A@ f!j.d% use the current connection l define recordset properties !undH LKTF5KTF Path for   cannot be found.A@] number of new records added be foP 0nHPMsgBox Err.NumberHFile   cannot be found.A@' signal an errorM Function returns the number of records added, or a -1 if there was any error $'# convert potential null to a string $DSCN+ see if it's the file name! blank line, so commit the record $ (+l% assign the value to the field lAttribute VB_Name = "Module1" Option Compar lintAbAG]C^LOpen MtFInput# S@2= CurrKProj4.6AuseTc = With uF>  di@d7propertie@s .@s orTypAad*KeyseW@pLockm`isticBB6"ICJ",A#, AadCmdTabAN Do Wh Not EOF(1)&Check \endf@ .A {I0#1, 5Read  data = Nz^(D ABJv> HpotQalel@l to a3i ng[= Mi&dq , 15 ' g5ADp`Ϡm[!If%d b4)DSCN0" Th B sebe!rit'w n@C d=A hceEKElD n.A , a@h fl +6, 50Jrest. ueSelU C@O "CAMERA!`: ":A/C` ra "METER(ING! Meter@:/ODEG:odeS8HUT Sh ut APERXTURCAturOEXP +/f-_os ensaAFOCAL LENGTH*FocalL engthIMGJUSTAdjustSENSITIVPITY :Si@tivityWHITEB #9HteBa0{c/SHARPNESS_9V*Shar pnessDA~To&1.QUALro !r`?Qual ?54 E0WS;S8IfLY KT bkX, sop_mmitif.UpYs Q KQap@sdYupiAdd@}ɘy= + u FrYVSassign" vapb 4O@@MSysAccessObjects4DDDDDDDDDDB k'@0Y@Images4 @+:::......., @ ;9@;9@~sq_fImages44MR2KeepLocal Txxx88888886 @ 4NW?@4NW?@Module140000000000.  8(@8(@Images4@*:::......., @ c@c@GetInfoTxt4@*BBB66666664 @ U獢@U獢@UserDefined48MR2Version 1.0.0|||88888886 @ @@SummaryInfo4@*DDD88888886 @ @lͱ@AccessLayout44MR2KeepLocal T@)zz:::::::8 @@@SysRel4.........., @@Scripts40000000000. @@Reports40000000000. @@Modules40000000000. @@Forms4,,,,,,,,,,* @@DataAccessPages4@@@@@@@@@@> ,@,@MSysRelationships~6DDDDDDDDDDB ,@,@MSysQueries~688888888886 ,@,@MSysACEs~622222222220 ,@,@MSysObjects~688888888886 ,@'@MSysDb4@*:::......., @,@,@Relationships~6<<<<<<<<<<: ,@,@Databases~644444444442 ,@,@Tables~6.........., h|J,name of the info file, then press the button. For example: d:\myImages\info.txt ep3`ab-cxdsubImagesForm.Imagesed5]`abXc Label4 Imageseh1U2O`|aHbci&cmdToggleDetailForm,Sh&ow Detail Form View"[Event Procedure]ed5U7`(#ab cte Label6ݨBrought to you by Alan Zenreich Zen@zenreich.com http://www.zenreich.com Enjoy!eͬ *eDetailmtxtFileNamed Label1h cmdGetInfod Label3d Label4psubImagesh cmdToggleDetailFormd Label608=Babce g h)ij1kmVeh Ue0Y@KbImageseeskRSELECT Blob 1 PropDataTypeInfo PropDataCopy* FROM Images ORDER BY [sk] DESC; Images Ariald2e12f5g237hghMS Sans Serifi1ghj1ghk1l23:m4n2o2p5r35zijMS Sans Serif{5`FormHeader[e`  DetailWem7U`axcesksk0Unique record identifier]ed5U`<axbcsk_Labelsk^em7U`abcekFileNameFileName_ed5U`<abcFileName_LabelFileName`em7U`aHbcek Camera Cameraaed5U`<aHbcCamera_Label Camerabem7U`abcekMeteringMeteringced5U`<abcMetering_LabelMeteringdem7U`abcekModeModeeed5U`<abcMode_LabelModefem7U`abcekShutterShutterged5U`<abcShutter_LabelShutterhem7U`abcekApertureApertureied5U`<abcAperture_LabelAperturejem7U`aP bceIk(ExposureCompensation(ExposureCompensationked5U`<aP bc4ExposureCompensation_Label(ExposureCompensationlem7U`axbcekFocalLengthFocalLengthmed5U`axbc"FocalLength_LabelFocalLengthnnH G mnHd[sk]% /mnHImages mnH nH G d[sk]% / Images   G    G uYNY  Y cDd Y d Y dd Y Md Y M7d Y 7d Y d Y Md Y  M7d Y 7d Y d Y Md Y  M7d Y  7dY skFileName CameraMeteringModeShutterAperture(ExposureCompensationFocalLengthImageAdjustSensitivityWhiteBalanceSharpnessDateQualityDateAdded7M7M7M7YPrimaryKey   8 Xp    8P p    ( h. p 28@  ( 8@ 8   <H8 (:H` BNP  (0  xpV Author Alan Zenreich 1/2001 email zen@zenreich.comC@C@((Hp]X]p the entire line ]]]q rsImages.d]8%, create a new recordset for the Images table = New t9r x9v  @@~sq_fImages66666666666  @@~sq_cGetInfoTxt~sq_csubImagesZZZZZZZZZZZ  @@Module1...........  @@Images,,,,,,,,,,,  @@GetInfoTxt44444444444  @@UserDefined66666666666  @@SummaryInfo66666666666  @@AccessLayout88888888888 @@SysRel,,,,,,,,,,, @@Scripts........... @@Reports........... @@Modules........... @@Forms*********** @@DataAccessPages>>>>>>>>>>> @@MSysRelationships~6DDDDDDDDDDB @@MSysQueries~688888888886 @@MSysACEs~622222222220 @@MSysObjects~688888888886 @@MSysDb4.........., @@Relationships~6<<<<<<<<<<: @@Databases~644444444442 @@Tables~6.........., v1 @           dCmdTabAN Do Wh Not EOF(1)&Check \endf@ .A {I0#1, 5Read  data = Nz^(D ABJv> HpotQalel@l to a3i ng[= Mi&dq , 15 ' g5ADp`Ϡm[!If%d b4)DSCN0" Th B sebe!rit'w n@C d=A hceEKElD n.A , a@h fl +6, 50Jrest. ueSelU C@O "CAMERA!`: ":A/C` ra "METER(ING! Meter@:/ODEG:odeS8HUT Sh ut APERXTURCAturOEXP +/f-_os ensaAFOCAL LENGTH*FocalL engthIMGJUSTAdjustSENSITIVPITY :Si@tivityWHITEB #9HteBa0{c/SHARPNESS_9V*Shar pnessDA~To&1.QUALro !r`?Qual ?54 E0WS;S8IfLY KT bkX, sop_mmitif.UpYs Q KQap@sdYupiAdd@}ɘy= + u FrYVSassign" vapbV6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=J `}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p J  J  `}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p  J J `}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p J J `}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p J J T`}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p J - J - `}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p - J ) J ) `}BFvInGq>V6( @`[9Τ@$̀{`?;-\ԥw+k Ǹ`iyҧz(h '>=E Wzy!7p ) J T`}BFJ4O@@TempMSysAccessObjectsJLLLLLLLLLLJ ėģ@ėģ@~sq_cGetInfoTxt~sq_csubImagesJ4^&i 4MR2KeepLocal Th\\\\\\Z `-율@`@MSysIMEXSpecsJ<<<<<<<<<<: )`@@MSysIMEXColumnsJ@@@@@@@@@@> k'@0Y@ImagesJ @3:::......., @ ;9@;9@~sq_fImagesJ4MR2KeepLocal Txxx88888886 @ 4NW?@4NW?@Module1J0000000000.  8(@8(@ImagesJ@2:::......., @ c@c@GetInfoTxtJ@2BBB66666664 @ U獢@U獢@UserDefinedJ8MR2Version 1.0.0|||88888886 @ @@SummaryInfoJ@2DDD88888886 @ @*@AccessLayoutJ4MR2KeepLocal T@1zz:::::::8 @@@SysRelJ.........., @@ScriptsJ0000000000. @@ReportsJ0000000000. @@ModulesJ0000000000. @@FormsJ,,,,,,,,,,* @@DataAccessPagesJ@@@@@@@@@@> ,@,@MSysRelationshipsHDDDDDDDDDDB ,@,@MSysQueriesH88888888886 ,@,@MSysACEsH22222222220 ,@,@MSysObjectsH88888888886 ,@'@MSysDbJ@2:::......., @,@,@RelationshipsH<<<<<<<<<<: ,@,@DatabasesH44444444442 ,@,@TablesH.........., v1 @ @ @ @ @ @ @ @ @ 000000000 0 0 0 0000000000000$0% 0& 0' 0( 0) 0* 0+ 0, 0- 0. 02 03 040L0M0N0C0D0E0;0<0F0G0H0I0J0K0506070O0P0Q0:)0=)0>)0?-0@-0A-0B0000 00 0000!0"0#0#K[@@@@ bTpDctLLS@LLB6d;6`DD DDA6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6K[ࡱ> FG 4 *1 !"#$%&'()+,-./02358679B:;<=>?@ACDERoot Entry`]E7VBA`]E`]EVBAProject `]E`]EVBA`]E`]Edirg__SRP_1 __SRP_2D __SRP_3 =  !"#$%&'()*+,-./0123456789:;<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwy|}~c0* pHdInfoTxtQ(@= l ; J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\Sc2.tlb#OLE Automation^gADODB> ADOBC CD1C10-8CAA006D2(EA4C1CPROGRAM FILES\COMMONL9\ms ado21NMicrosoft ActiveX Data Objects 2.1 LibraryHpModu@le1GMdu1 KKMJDALRLJREZ_TELGYRIJWLRZMN28AKMJ@ALRJ@EZ_TEGY@*IW@R@M"NBH@1~BE,*p!B+BForm_GetDG F/rmGtIno x3UP3UP?30I 3h`q"1(B4rU~~~~~~s    ( 8 QH X\rU 0i y Q !  q@ 4a9I@ 8aivvv @<rrrK[@@@D9ppp@HQy~~~@Lxxx@P|||pW0   h 'd:h%x Lx $Qd`x `ch%x$ `x Pxl$ x"`WPA@ (h]46P@2: %d:h %x Lx $d )xd2: %d:h %x Lx $d )xd fh%x$ `x Pxc`l ( b` xdP@084P,*F -26ql5!H'''.+*# *#+*#,*F -26qN'''/+*# (88 ,)l*F -286pzH xb0 0PhtTXlp0 84J 0   fD LD \'lXo$%:4-%D cD PV  L \'lXo$%:4% c TV   PkKH:4.%L TL (&:$%%QHo%$ ,`1dL6*(dM4@ `1h61(hM4@ : ]46lhC` C\3*(2dM4@ `1`6lhC l 2 C\1 l 2C\1 l27C\1 l2OC\1 l2gC\1 l2C\1 l2C\1 l2C\1 l2C\1 l2C\1 l2 C\1 l!2"C\1 l#2'$C\1%C\ l\%2Z'$%'4%P$  l\ 2~'$%'4%P$ x8l`F$%Hl\F4%LP$ TL (&H 8')LH  cTtb< lD P\hTX`d LHJfrU \$` $A` nnn_VBA_PROJECT KKMJDALRLJREZ_TELGYRIJWLRZMN: 3$UPMJDALRLJREZ_TELGYRIJWLRZMN:@8 PROJECT qam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office2k\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\Stdole2.tlb#OLE AutomationK[*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library;p8KKMJDALRLJREZ_TELGYRIJWLRZMN7;3ba7a41fModule1p8UPMJDALRLJREZ_TELGYRIJWLRZMN8:3ba7a69fForm_GetInfoTxt`q(I H(xe!e7Access asCase.debug=dimDElseGEndHEndifRFalseYFunction^Goto_IfjIntegerkIsyLoop{MeNewnotOptionalSelectThenTrueVariantWendWhileWithVBAWin16~Win32MacVBA6#Project1 stdole`InfoTxtADODBsModule1b _Evaluate ParseInfoTxt strFileNamee strPrefix _B_var_ifPstrLine _B_var_MidpDC\strValueK_B_var_strValueSstrFieldc_B_var_strFieldk} _B_var_Select'EsrPrefixMETERINGMATRIXnMODEvPgSHUTTERAPERTURE-NF2%]ExpKFOCALLENGTHYf11mmC^IMGADJUSTlSTANDARD SENSITIVITY9ISO100WHITEBALAUTOT SHARPNESSNORMALQUALITY8FULL0FINEorsInfo7 RecordsetconJCurrentProject$pro? ConnectionrsImageszof rstEmployeesD CursorType adOpenKeysetLockType}adLockOptimistic<cnn1 adCmdTable MoveFirstNwit EOFMoveNextL!donUpdateAddnet_Fields7ItemzField1ValueK_B_var_srPrefixHAddNewaid]Nzu^ParseInfoTxtFileParseInfoTxtTablesstrInfoTextFile3 _B_var_Openl InputData varLineDatavarLine_B_var_InputData/erorZ _B_var_On6ParseInfoTxtFile_err? MsgBoxRvbCrLfErro Description  _B_var_WithY _B_var_EndFNumber-select6ȳ_B_var_FunctionO intRecordsState Form_Form16Command2FormDetail2Label1, txtFileNamedLabel3,Command2_Click cmdGetInfocmdGetInfo_Clicks'IsNullClickmsgbo _B_var_msgbo|Form_GetInfoTxtControlsKDoCmdƧ Hourglassb subImagesLabel4,RequerycmdToggleDetailFormLcmdToggleDetailForm_ClickMnSetFocus ShowHourglassL RunCommand`acCmdSubformDatasheets CurrentViewCaptionx subImgages_B_var_ShowHourglass^T  $K[ ppxME @1(6*  ( HX x    8 Xp    8P p    ( h. p 28@  ( 8@ 8   <H8 (:H` BNP  (0  xpV Author Alan Zenreich 1/2001 email zen@zenreich.comC@C@((Hp]X]p the entire line ]]]q rsImages.d]8%, create a new recordset for the Images table = New t9r x9vImages d |C@d not the filename, another field  ' '$FileName'( ' 2$'$' get the rest of the field CAMERA : KTFCamera'(METERING : KTFMetering'(MODE : KTFMode'(SHUTTER : KTFShutter'(APERTURE : KTFAperture'(EXP +/- : KTFFOCAL LENGTH : KTF FocalLength'(KIMG ADJUST : KTF ImageAdjust'(SENSITIVITY : KTF Sensitivity'(WHITEBAL : KTF WhiteBalance'(SHARPNESS : KTF Sharpness'(DATE : KTFĚKDate'(QUALITY : KTFQuality'(SF'(n k ( (FileName% append a new recordomdkkhXi8VLE] S$b Check for end of file.  Read line of data. ExposureCompensation'( $'% get the prefix of the line z 'Error occured, please report to Alan Z.  !A@ f!j.d% use the current connection l define recordset properties !undH LKTF5KTF Path for   cannot be found.A@] number of new records added be foP 0nHPMsgBox Err.NumberHFile   cannot be found.A@' signal an errorM Function returns the number of records added, or a -1 if there was any error $'# convert potential null to a string $DSCN+ see if it's the file name! blank line, so commit the record $ (+l% assign the value to the field lAttribute VB_Name = "Module1" Option ComparK[e Da@tabase`Explicit  ' Author Alan Zenreich 1/2001 ' email` zen@8.com:FuncjParseInfoTxtFil`e(strAs Sng)  IntegerX>returns the number of records added, a -1 if' kwa ny erro'on E GoTo I_ZDim OPrefixHN  Line  'Kenti 9lValu Field,var,Varilan9cC0onne$rs@Images$New ADODB$.Ret&creaa nK@fJR@lintAbAG]C^LOpen MtFInput# S@2= CurrKProj4.6AuseTc = With uF>  di@d7propertie@s .@s orTypAad*KeyseW@pLockm`isticBB6"ICJ",A#, AadCmdTabAN Do Wh Not EOF(1)&Check \endf@ .A {I0#1, 5Read  data = Nz^(D ABJv> HpotQalel@l to a3i ng[= Mi&dq , 15 ' g5ADp`Ϡm[!If%d b4)DSCN0" Th B sebe!rit'w n@C d=A hceEKElD n.A , a@h fl +6, 50Jrest. ueSelU C@O "CAMERA!`: ":A/C` ra "METER(ING! Meter@:/ODEG:odeS8HUT Sh ut APERXTURCAturOEXP +/f-_os ensaAFOCAL LENGTH*FocalL engthIMGJUSTAdjustSENSITIVPITY :Si@tivityWHITEB #9HteBa0{c/SHARPNESS_9V*Shar pnessDA~To&1.QUALro !r`?Qual ?54 E0WS;S8IfLY KT bkX, sop_mmitif.UpYs Q KQap@sdYupiAdd@}ɘy= + u FrYVSassign" vapb?@ACDEIJ89MNKPROJECTwmxJAcessVBADatazForms `]E%E0`]E%EPropDataCopyBlobCopyTypeInfoCopyBlob {6PropDataTypeInfo1`]E`]Eͬ *eDetailmtxtFileNamed Label1h cmdGetInfod Label3d Label4psubImagesh cmdToggleDetailFormd Label608=Babce g h)ij1kmVeh Ue0Y@KbImageseeskRSELECT Module1Module1Form_GetInfoTxtForm_GetInfoTxt028=Babc.e ghiJj5kc@