RbBFBlokProj?WE:=dPSIVStrn5.2OPSpStrn wks2gdr.rbACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Int Ver2Int Ver3Int RelsInt NnRlInt SVerStrnwks2gdrLVerStrnwks2gdrIVerStrnRegnInt DVewInt kDLanInt CLanInt DEncInt TargInt BflgInt IconGrup%~EndGInt %~CPalGrup%flagInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt EndGInt %MacCStrn????BMacStrnMy ApplicationBCarStrnMy Application (Mac OS X)BSizInt @BMSzInt MDIcStrnMy ApplicationBWinStrnMy Application.exeBMDIInt rEdtRectgfTypGrupL%nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt %PadnPadn********************************************************************************************************************************BlokpVewk`:L}NameStrnChooserContInt rEdtRect8QeSptInt pbPGpGrupP%bPElGrup4%scKyInt 'rEdtRect8QeSptInt pEndGInt %EndGInt %lstHInt lstVInt oPDefGrup4%nameStrnNamePValStrnChooserEncoInt EndGInt %PDefGrup(%nameStrnFramePValStrn0EndGInt %PDefGrup0%nameStrn CompositePValStrnFalseEndGInt %PDefGrup0%nameStrn HasBackColorPValStrnFalseEndGInt %PDefGrup0%nameStrn BackColorPValStrn16777215EndGInt %PDefGrup(%nameStrnBackdropPValStrn0EndGInt %PDefGrup@%nameStrnTitlePValStrnParameter-windowEncoInt EndGInt %PDefGrup(%nameStrnVisiblePValStrnTrueEndGInt %PDefGrup0%nameStrn FullScreenPValStrnFalseEndGInt %PDefGrup0%nameStrnMenuBarVisiblePValStrnTrueEndGInt %PDefGrup(%nameStrnCloseBoxPValStrnTrueEndGInt %PDefGrup,%nameStrnGrowIconPValStrnFalseEndGInt %PDefGrup0%nameStrn LiveResizePValStrnFalseEndGInt %PDefGrup,%nameStrnZoomIconPValStrnFalseEndGInt %PDefGrup(%nameStrn BalloonHelpPValStrnEndGInt %PDefGrup,%nameStrn MacProcIDPValStrn0EndGInt %PDefGrup0%nameStrnMenuBarPValStrn -1066675001EndGInt %PDefGrup,%nameStrn PlacementPValStrn0EndGInt %PDefGrup(%nameStrnWidthPValStrn579EndGInt %PDefGrup(%nameStrnHeightPValStrn548EndGInt %PDefGrup(%nameStrnMinWidthPValStrn64EndGInt %PDefGrup,%nameStrn MinHeightPValStrn64EndGInt %PDefGrup,%nameStrnMaxWidthPValStrn32000EndGInt %PDefGrup0%nameStrn MaxHeightPValStrn32000EndGInt %FDefGrupD%NameStrnChooserSizeInt SuprStrnWindowbNtrInt EndGInt %CBhvGrup%NameStrnSizeInt SuprStrn PushButtonbNtrInt HInsGrup(%EncoInt nameStrnActionsorcGrup%stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrn'select folder button actionsrclStrndim first_file as stringsrclStrndim n as IntegersrclStrnsrclStrnn = getfilesfromfolder("wks")srclStrnnewline=chr(12)srclStrn*first_file = NthField(file_list,newline,1)srclStrn"Chooser.statictext2.text=file_listsrclStrn4Chooser.statictext1.text = "no.of wks files:"+Str(n)srclStrnPB2.enabled=truesrclStrnEnd SubEndGInt %EndGInt %EndGInt %CBhvGrup%NameStrnSizeInt SuprStrn PushButtonbNtrInt HInsGrup%EncoInt nameStrnActionsorcGrupH%stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrn"dim tmptxt, fromfilename as StringsrclStrndim i, j as IntegersrclStrni=1srclStrnsrclStrnEwhile not (NthField(file_list, newline,i) = "" ) 'hobbel de lijst afsrclStrnbeepsrclStrn@Chooser.statictext2.text="file:"+NthField(file_list, newline,i) srclStrnChooser.refreshsrclStrn3fromfilename = mypath+NthField(file_list,newline,i)srclStrn f_in=GetfolderItem(fromfilename)srclStrntxtinput = f_in.OpenasTextFilesrclStrntmptxt = f_in.absolutePathsrclStrnj= len(tmptxt)srclStrnj=j-4srclStrntmptxt = left(tmptxt, j)srclStrnsrclStrn*Chooser.ST3.text="chars:"+str(f_in.length)srclStrnCreateGDRFiles(tmptxt)srclStrnsrclStrnanalyzewksfile()srclStrn Closefiles()srclStrnsrclStrni=i+1srclStrnwendsrclStrn 'logoutput.csrclStrnme.enabled=falsesrclStrnme.visible=falsesrclStrnpbquit.enabled = truesrclStrnpbquit.visible = truesrclStrnpb1.visible=falsesrclStrnEnd SubEndGInt %EndGInt %EndGInt %CBhvGrup@%NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt %CBhvGrup@%NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt %CBhvGrup@%NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt %CBhvGrup@%NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt %CBhvGrup%NameStrnSizeInt SuprStrn PushButtonbNtrInt HInsGrup%EncoInt nameStrnActionsorcGrup|%stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrnquitsrclStrnEnd SubEndGInt %EndGInt %EndGInt %CBhvGrup@%NameStrnSizeInt SuprStrn EditFieldbNtrInt EndGInt %CBhvGrup@%NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt %CtrlGrup%cclsStrn PushButtonnameStrn PushButtonPDefGrup0%nameStrnNamePValStrnPB1EncoInt EndGInt %PDefGrup0%nameStrnIndexPValStrn -2147483648EndGInt %PDefGrup0%nameStrn TabPanelIndexPValStrn0EndGInt %PDefGrup(%nameStrnVisiblePValStrnTrueEndGInt %PDefGrup$%nameStrnLeftPValStrn74EndGInt %PDefGrup$%nameStrnTopPValStrn451EndGInt %PDefGrup(%nameStrnWidthPValStrn119EndGInt %PDefGrup(%nameStrnHeightPValStrn63EndGInt %PDefGrup,%nameStrn InitialParentPValStrnEndGInt %PDefGrup%nameStrnHelpTagPValStrnThis button selects a flder/directory with WKS files. The conversion is applied to all wks files, each X.wks file resulting in X.vhdr, X.vmrkr, X.bin EncoInt EndGInt %PDefGrup(%nameStrn BalloonHelpPValStrnEndGInt %PDefGrup0%nameStrnDisabledBalloonHelpPValStrnEndGInt %PDefGrup0%nameStrnAutoDeactivatePValStrnTrueEndGInt %PDefGrup,%nameStrnLockLeftPValStrnFalseEndGInt %PDefGrup,%nameStrnLockTopPValStrnFalseEndGInt %PDefGrup0%nameStrn LockRightPValStrnFalseEndGInt %PDefGrup0%nameStrn LockBottomPValStrnFalseEndGInt %PDefGrup8%nameStrnTextFontPValStrnSystemEncoInt EndGInt %PDefGrup(%nameStrnTextSizePValStrn12EndGInt %PDefGrup(%nameStrnBoldPValStrnFalseEndGInt %PDefGrup,%nameStrnItalicPValStrnFalseEndGInt %PDefGrup0%nameStrn UnderlinePValStrnFalseEndGInt %PDefGrup@%nameStrnCaptionPValStrn Select FolderEncoInt EndGInt %PDefGrup,%nameStrnDefaultPValStrnFalseEndGInt %PDefGrup,%nameStrnCancelPValStrnFalseEndGInt %PDefGrup(%nameStrnEnabledPValStrnTrueEndGInt %CBixInt EndGInt %CtrlGrup,%cclsStrn PushButtonnameStrn PushButtonPDefGrup0%nameStrnNamePValStrnPB2EncoInt EndGInt %PDefGrup0%nameStrnIndexPValStrn -2147483648EndGInt %PDefGrup0%nameStrn TabPanelIndexPValStrn0EndGInt %PDefGrup(%nameStrnVisiblePValStrnTrueEndGInt %PDefGrup$%nameStrnLeftPValStrn453EndGInt %PDefGrup$%nameStrnTopPValStrn490EndGInt %PDefGrup(%nameStrnWidthPValStrn69EndGInt %PDefGrup(%nameStrnHeightPValStrn20EndGInt %PDefGrup,%nameStrn InitialParentPValStrnEndGInt %PDefGrup$%nameStrnHelpTagPValStrnEndGInt %PDefGrup(%nameStrn BalloonHelpPValStrnEndGInt %PDefGrup0%nameStrnDisabledBalloonHelpPValStrnEndGInt %PDefGrup0%nameStrnAutoDeactivatePValStrnTrueEndGInt %PDefGrup,%nameStrnLockLeftPValStrnFalseEndGInt %PDefGrup,%nameStrnLockTopPValStrnFalseEndGInt %PDefGrup0%nameStrn LockRightPValStrnFalseEndGInt %PDefGrup0%nameStrn LockBottomPValStrnFalseEndGInt %PDefGrup8%nameStrnTextFontPValStrnSystemEncoInt EndGInt %PDefGrup(%nameStrnTextSizePValStrn12EndGInt %PDefGrup(%nameStrnBoldPValStrnFalseEndGInt %PDefGrup,%nameStrnItalicPValStrnFalseEndGInt %PDefGrup0%nameStrn UnderlinePValStrnFalseEndGInt %PDefGrup4%nameStrnCaptionPValStrnGOEncoInt EndGInt %PDefGrup,%nameStrnDefaultPValStrnFalseEndGInt %PDefGrup,%nameStrnCancelPValStrnFalseEndGInt %PDefGrup,%nameStrnEnabledPValStrnFalseEndGInt %CBixInt EndGInt %CtrlGrup%cclsStrn StaticTextnameStrn StaticTextPDefGrup8%nameStrnNamePValStrn StaticText1EncoInt EndGInt %PDefGrup0%nameStrnIndexPValStrn -2147483648EndGInt %PDefGrup0%nameStrn TabPanelIndexPValStrn0EndGInt %PDefGrup(%nameStrnVisiblePValStrnTrueEndGInt %PDefGrup$%nameStrnLeftPValStrn282EndGInt %PDefGrup$%nameStrnTopPValStrn30EndGInt %PDefGrup(%nameStrnWidthPValStrn179EndGInt %PDefGrup(%nameStrnHeightPValStrn28EndGInt %PDefGrup,%nameStrn InitialParentPValStrnEndGInt %PDefGrup$%nameStrnHelpTagPValStrnEndGInt %PDefGrup(%nameStrn BalloonHelpPValStrnEndGInt %PDefGrup0%nameStrnDisabledBalloonHelpPValStrnEndGInt %PDefGrup0%nameStrnAutoDeactivatePValStrnTrueEndGInt %PDefGrup,%nameStrnLockLeftPValStrnFalseEndGInt %PDefGrup,%nameStrnLockTopPValStrnFalseEndGInt %PDefGrup0%nameStrn LockRightPValStrnFalseEndGInt %PDefGrup0%nameStrn LockBottomPValStrnFalseEndGInt %PDefGrup8%nameStrnTextFontPValStrnSystemEncoInt EndGInt %PDefGrup(%nameStrnTextSizePValStrn12EndGInt %PDefGrup(%nameStrnBoldPValStrnFalseEndGInt %PDefGrup,%nameStrnItalicPValStrnFalseEndGInt %PDefGrup0%nameStrn UnderlinePValStrnFalseEndGInt %PDefGrup %nameStrnTextPValStrnEndGInt %PDefGrup,%nameStrn TextAlignPValStrn0EndGInt %PDefGrup,%nameStrn TextColorPValStrn0EndGInt %PDefGrup,%nameStrn MultiLinePValStrnTrueEndGInt %PDefGrup(%nameStrnEnabledPValStrnTrueEndGInt %PDefGrup(%nameStrn DataSourcePValStrnEndGInt %PDefGrup(%nameStrn DataFieldPValStrnEndGInt %CBixInt EndGInt %CtrlGrup%cclsStrn StaticTextnameStrn StaticTextPDefGrup8&nameStrnNamePValStrn StaticText2EncoInt EndGInt &PDefGrup0&nameStrnIndexPValStrn -2147483648EndGInt &PDefGrup0&nameStrn TabPanelIndexPValStrn0EndGInt &PDefGrup(&nameStrnVisiblePValStrnTrueEndGInt &PDefGrup$&nameStrnLeftPValStrn350EndGInt &PDefGrup$&nameStrnTopPValStrn70EndGInt &PDefGrup(&nameStrnWidthPValStrn183EndGInt &PDefGrup(&nameStrnHeightPValStrn386EndGInt &PDefGrup,&nameStrn InitialParentPValStrnEndGInt &PDefGrup$& nameStrnHelpTagPValStrnEndGInt & PDefGrup(& nameStrn BalloonHelpPValStrnEndGInt & PDefGrup0& nameStrnDisabledBalloonHelpPValStrnEndGInt & PDefGrup0& nameStrnAutoDeactivatePValStrnTrueEndGInt & PDefGrup,& nameStrnLockLeftPValStrnFalseEndGInt & PDefGrup,&nameStrnLockTopPValStrnFalseEndGInt &PDefGrup0&nameStrn LockRightPValStrnFalseEndGInt &PDefGrup0&nameStrn LockBottomPValStrnFalseEndGInt &PDefGrup8&nameStrnTextFontPValStrnSystemEncoInt EndGInt &PDefGrup(&nameStrnTextSizePValStrn12EndGInt &PDefGrup(&nameStrnBoldPValStrnFalseEndGInt &PDefGrup,&nameStrnItalicPValStrnFalseEndGInt &PDefGrup0&nameStrn UnderlinePValStrnFalseEndGInt &PDefGrup &nameStrnTextPValStrnEndGInt &PDefGrup,&nameStrn TextAlignPValStrn0EndGInt &PDefGrup,&nameStrn TextColorPValStrn0EndGInt &PDefGrup,&nameStrn MultiLinePValStrnTrueEndGInt &PDefGrup(&nameStrnEnabledPValStrnTrueEndGInt &PDefGrup(&nameStrn DataSourcePValStrnEndGInt &PDefGrup(&nameStrn DataFieldPValStrnEndGInt &CBixInt EndGInt %CtrlGrup&cclsStrn StaticTextnameStrn StaticTextPDefGrup0&nameStrnNamePValStrnST3EncoInt EndGInt &PDefGrup0&nameStrnIndexPValStrn -2147483648EndGInt &PDefGrup0& nameStrn TabPanelIndexPValStrn0EndGInt & PDefGrup(&!nameStrnVisiblePValStrnTrueEndGInt &!PDefGrup$&"nameStrnLeftPValStrn48EndGInt &"PDefGrup$&#nameStrnTopPValStrn386EndGInt &#PDefGrup(&$nameStrnWidthPValStrn309EndGInt &$PDefGrup(&%nameStrnHeightPValStrn37EndGInt &%PDefGrup,&&nameStrn InitialParentPValStrnEndGInt &&PDefGrup$&'nameStrnHelpTagPValStrnEndGInt &'PDefGrup(&(nameStrn BalloonHelpPValStrnEndGInt &(PDefGrup0&)nameStrnDisabledBalloonHelpPValStrnEndGInt &)PDefGrup0&*nameStrnAutoDeactivatePValStrnTrueEndGInt &*PDefGrup,&+nameStrnLockLeftPValStrnFalseEndGInt &+PDefGrup,&,nameStrnLockTopPValStrnFalseEndGInt &,PDefGrup0&-nameStrn LockRightPValStrnFalseEndGInt &-PDefGrup0&.nameStrn LockBottomPValStrnFalseEndGInt &.PDefGrup8&/nameStrnTextFontPValStrnSystemEncoInt EndGInt &/PDefGrup(&0nameStrnTextSizePValStrn12EndGInt &0PDefGrup(&1nameStrnBoldPValStrnFalseEndGInt &1PDefGrup,&2nameStrnItalicPValStrnFalseEndGInt &2PDefGrup0&3nameStrn UnderlinePValStrnFalseEndGInt &3PDefGrup &4nameStrnTextPValStrnEndGInt &4PDefGrup,&5nameStrn TextAlignPValStrn0EndGInt &5PDefGrup,&6nameStrn TextColorPValStrn0EndGInt &6PDefGrup,&7nameStrn MultiLinePValStrnTrueEndGInt &7PDefGrup(&8nameStrnEnabledPValStrnTrueEndGInt &8PDefGrup(&9nameStrn DataSourcePValStrnEndGInt &9PDefGrup(&:nameStrn DataFieldPValStrnEndGInt &:CBixInt EndGInt &CtrlGrup&;cclsStrn StaticTextnameStrn StaticTextPDefGrup8&nameStrn TabPanelIndexPValStrn0EndGInt &>PDefGrup(&?nameStrnVisiblePValStrnTrueEndGInt &?PDefGrup$&@nameStrnLeftPValStrn60EndGInt &@PDefGrup$&AnameStrnTopPValStrn26EndGInt &APDefGrup(&BnameStrnWidthPValStrn144EndGInt &BPDefGrup(&CnameStrnHeightPValStrn27EndGInt &CPDefGrup,&DnameStrn InitialParentPValStrnEndGInt &DPDefGrup&EnameStrnHelpTagPValStrnThis program is scienceware. You can use an copy it freely but please refer to Bierman, D.J. (2006) WKS2GDR software: https://home.medewerker.uva.nl/d.j.bierman/page2.htmlEncoInt EndGInt &EPDefGrup(&FnameStrn BalloonHelpPValStrnEndGInt &FPDefGrup0&GnameStrnDisabledBalloonHelpPValStrnEndGInt &GPDefGrup0&HnameStrnAutoDeactivatePValStrnTrueEndGInt &HPDefGrup,&InameStrnLockLeftPValStrnFalseEndGInt &IPDefGrup,&JnameStrnLockTopPValStrnFalseEndGInt &JPDefGrup0&KnameStrn LockRightPValStrnFalseEndGInt &KPDefGrup0&LnameStrn LockBottomPValStrnFalseEndGInt &LPDefGrup8&MnameStrnTextFontPValStrnSystemEncoInt EndGInt &MPDefGrup(&NnameStrnTextSizePValStrn24EndGInt &NPDefGrup(&OnameStrnBoldPValStrnFalseEndGInt &OPDefGrup,&PnameStrnItalicPValStrnFalseEndGInt &PPDefGrup0&QnameStrn UnderlinePValStrnFalseEndGInt &QPDefGrup8&RnameStrnTextPValStrn WKS 2 GDREncoInt EndGInt &RPDefGrup,&SnameStrn TextAlignPValStrn0EndGInt &SPDefGrup,&TnameStrn TextColorPValStrn0EndGInt &TPDefGrup0&UnameStrn MultiLinePValStrnFalseEndGInt &UPDefGrup(&VnameStrnEnabledPValStrnTrueEndGInt &VPDefGrup(&WnameStrn DataSourcePValStrnEndGInt &WPDefGrup(&XnameStrn DataFieldPValStrnEndGInt &XCBixInt EndGInt &;CtrlGrup4&YcclsStrn PushButtonnameStrn PushButtonPDefGrup4&ZnameStrnNamePValStrnPBQuitEncoInt EndGInt &ZPDefGrup0&[nameStrnIndexPValStrn -2147483648EndGInt &[PDefGrup0&\nameStrn TabPanelIndexPValStrn0EndGInt &\PDefGrup,&]nameStrnVisiblePValStrnFalseEndGInt &]PDefGrup$&^nameStrnLeftPValStrn288EndGInt &^PDefGrup$&_nameStrnTopPValStrn490EndGInt &_PDefGrup(&`nameStrnWidthPValStrn80EndGInt &`PDefGrup(&anameStrnHeightPValStrn38EndGInt &aPDefGrup,&bnameStrn InitialParentPValStrnEndGInt &bPDefGrup$&cnameStrnHelpTagPValStrnEndGInt &cPDefGrup(&dnameStrn BalloonHelpPValStrnEndGInt &dPDefGrup0&enameStrnDisabledBalloonHelpPValStrnEndGInt &ePDefGrup0&fnameStrnAutoDeactivatePValStrnTrueEndGInt &fPDefGrup,&gnameStrnLockLeftPValStrnFalseEndGInt &gPDefGrup,&hnameStrnLockTopPValStrnFalseEndGInt &hPDefGrup0&inameStrn LockRightPValStrnFalseEndGInt &iPDefGrup0&jnameStrn LockBottomPValStrnFalseEndGInt &jPDefGrup8&knameStrnTextFontPValStrnSystemEncoInt EndGInt &kPDefGrup(&lnameStrnTextSizePValStrn12EndGInt &lPDefGrup(&mnameStrnBoldPValStrnFalseEndGInt &mPDefGrup,&nnameStrnItalicPValStrnFalseEndGInt &nPDefGrup0&onameStrn UnderlinePValStrnFalseEndGInt &oPDefGrup4&pnameStrnCaptionPValStrnQuitEncoInt EndGInt &pPDefGrup,&qnameStrnDefaultPValStrnFalseEndGInt &qPDefGrup,&rnameStrnCancelPValStrnFalseEndGInt &rPDefGrup,&snameStrnEnabledPValStrnFalseEndGInt &sCBixInt EndGInt &YCtrlGrup &tcclsStrn EditFieldnameStrn EditFieldPDefGrup8&unameStrnNamePValStrn markermaskEncoInt EndGInt &uPDefGrup0&vnameStrnIndexPValStrn -2147483648EndGInt &vPDefGrup0&wnameStrn TabPanelIndexPValStrn0EndGInt &wPDefGrup(&xnameStrnVisiblePValStrnTrueEndGInt &xPDefGrup$&ynameStrnLeftPValStrn60EndGInt &yPDefGrup$&znameStrnTopPValStrn162EndGInt &zPDefGrup(&{nameStrnWidthPValStrn94EndGInt &{PDefGrup(&|nameStrnHeightPValStrn206EndGInt &|PDefGrup,&}nameStrn InitialParentPValStrnEndGInt &}PDefGrup$&~nameStrnHelpTagPValStrnEndGInt &~PDefGrup(&nameStrn BalloonHelpPValStrnEndGInt &PDefGrup0&nameStrnDisabledBalloonHelpPValStrnEndGInt &PDefGrup0&nameStrnAutoDeactivatePValStrnTrueEndGInt &PDefGrup,&nameStrnLockLeftPValStrnFalseEndGInt &PDefGrup,&nameStrnLockTopPValStrnFalseEndGInt &PDefGrup0&nameStrn LockRightPValStrnFalseEndGInt &PDefGrup0&nameStrn LockBottomPValStrnFalseEndGInt &PDefGrup8&nameStrnTextFontPValStrnSystemEncoInt EndGInt &PDefGrup(&nameStrnTextSizePValStrn12EndGInt &PDefGrup(&nameStrnBoldPValStrnFalseEndGInt &PDefGrup,&nameStrnItalicPValStrnFalseEndGInt &PDefGrup0&nameStrn UnderlinePValStrnFalseEndGInt &PDefGrup(&nameStrnBorderPValStrnTrueEndGInt &PDefGrup,&nameStrn MultiLinePValStrnTrueEndGInt &PDefGrup8&nameStrnScrollBarHorizontalPValStrnFalseEndGInt &PDefGrup,&nameStrn ScrollBarPValStrnTrueEndGInt &PDefGrup4&nameStrnScrollBarVerticalPValStrnTrueEndGInt &PDefGrup,&nameStrnStyledPValStrnFalseEndGInt &PDefGrup,&nameStrnPasswordPValStrnFalseEndGInt &PDefGrup,&nameStrn UseFocusRingPValStrnTrueEndGInt &PDefGrup,&nameStrnReadOnlyPValStrnFalseEndGInt &PDefGrup,&nameStrn LimitTextPValStrn0EndGInt &PDefGrup0&nameStrn AcceptTabsPValStrnFalseEndGInt &PDefGrup,&nameStrn AlignmentPValStrn0EndGInt &PDefGrup,&nameStrn TextColorPValStrn0EndGInt &PDefGrup0&nameStrn BackColorPValStrn16777215EndGInt &PDefGrup(&nameStrnEnabledPValStrnTrueEndGInt &PDefGrup4&nameStrnTextPValStrnS T U Y EncoInt EndGInt &PDefGrup(&nameStrn DataSourcePValStrnEndGInt &PDefGrup(&nameStrn DataFieldPValStrnEndGInt &CBixInt EndGInt &tCtrlGrup&cclsStrn StaticTextnameStrn StaticTextPDefGrup8&nameStrnNamePValStrn StaticText3EncoInt EndGInt &PDefGrup0&nameStrnIndexPValStrn -2147483648EndGInt &PDefGrup0&nameStrn TabPanelIndexPValStrn0EndGInt &PDefGrup(&nameStrnVisiblePValStrnTrueEndGInt &PDefGrup$&nameStrnLeftPValStrn48EndGInt &PDefGrup$&nameStrnTopPValStrn130EndGInt &PDefGrup(&nameStrnWidthPValStrn106EndGInt &PDefGrup(&nameStrnHeightPValStrn20EndGInt &PDefGrup,&nameStrn InitialParentPValStrnEndGInt &PDefGrup$&nameStrnHelpTagPValStrnEndGInt &PDefGrup(&nameStrn BalloonHelpPValStrnEndGInt &PDefGrup0&nameStrnDisabledBalloonHelpPValStrnEndGInt &PDefGrup0&nameStrnAutoDeactivatePValStrnTrueEndGInt &PDefGrup,&nameStrnLockLeftPValStrnFalseEndGInt &PDefGrup,&nameStrnLockTopPValStrnFalseEndGInt &PDefGrup0&nameStrn LockRightPValStrnFalseEndGInt &PDefGrup0&nameStrn LockBottomPValStrnFalseEndGInt &PDefGrup8&nameStrnTextFontPValStrnSystemEncoInt EndGInt &PDefGrup(&nameStrnTextSizePValStrn12EndGInt &PDefGrup(&nameStrnBoldPValStrnFalseEndGInt &PDefGrup,&nameStrnItalicPValStrnFalseEndGInt &PDefGrup0&nameStrn UnderlinePValStrnFalseEndGInt &PDefGrup<&nameStrnTextPValStrnaccepted markersEncoInt EndGInt &PDefGrup,&nameStrn TextAlignPValStrn0EndGInt &PDefGrup,&nameStrn TextColorPValStrn0EndGInt &PDefGrup0&nameStrn MultiLinePValStrnFalseEndGInt &PDefGrup(&nameStrnEnabledPValStrnTrueEndGInt &PDefGrup(&nameStrn DataSourcePValStrnEndGInt &PDefGrup(&nameStrn DataFieldPValStrnEndGInt &CBixInt EndGInt &PadnPadn ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnukad FNameStrnMenuBar1ContInt rEdtRectdd,MItmGrup&spmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt MItmGrup&spmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &EndGInt &MItmGrup&spmuInt nameStrnFileMenutextStrn&FileindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt MItmGrup&spmuInt nameStrnFileQuittextStrnQuitindxInt scutStrnQbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrn QuitMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &EndGInt &MItmGrup&spmuInt nameStrnEditMenutextStrn&EditindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt MItmGrup&spmuInt nameStrnEditUndotextStrnUndoindxInt scutStrnZbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrntextStrn-indxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrnEditCuttextStrnCutindxInt scutStrnXbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrnEditCopytextStrnCopyindxInt scutStrnCbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrn EditPastetextStrnPasteindxInt scutStrnVbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrn EditCleartextStrnClearindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &MItmGrup&spmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &EndGInt &MItmGrup&spmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt PSuprStrnMenuItembNtrInt EndGInt &PadnPadn8********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjk@}`NameStrnAppContInt rEdtRect_K!eSptInt bPGpGrupP&bPElGrup4&scKyInt 'rEdtRect_K!eSptInt EndGInt &EndGInt &bClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup0&nameStrnMenuBarPValStrn -1066675001EndGInt &PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjk,- $NameStrnModule1ContInt rEdtRect=15eSptInt {bPGpGrupP&bPElGrup4&scKyInt 'rEdtRect=15eSptInt {EndGInt &EndGInt &bClsInt NameStrnModule1SizeInt @bNtrInt PropGrup<&EncoInt declStrnf_in as FolderitemflagInt EndGInt &PropGrup<&EncoInt declStrnfile_list as StringflagInt EndGInt &PropGrupD&EncoInt declStrntxtinput as textInputStreamflagInt EndGInt &PropGrup<&EncoInt declStrnnewline as stringflagInt EndGInt &PropGrup8&EncoInt declStrnmypath as StringflagInt EndGInt &PropGrupD&EncoInt declStrngdrstream as BinaryStreamflagInt EndGInt &PropGrupH&EncoInt declStrn outfile_vhdr as textoutputStreamflagInt EndGInt &PropGrupL&EncoInt declStrn!outfile_vmrkr as textoutputStreamflagInt EndGInt &PropGrup8&EncoInt declStrn tab as StringflagInt EndGInt &MethGrup&EncoInt nameStrnCreateGDRFilesparmStrnbasename as stringrsltStrnflagInt sorcGrup0&stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn&Sub CreateGDRFiles(basename as string)srclStrn*'creates outfile with first line of ppdatasrclStrnDim folder as FolderItemsrclStrn(Dim aline, path, relative_name as StringsrclStrn 'hier moet datum tijd opgrvraagdsrclStrnsrclStrnsrclStrn'folder = GetFolderItem(basename+".bin")srclStrn path = folder.absolutepath '??srclStrn*gdrstream = folder.CreateBinaryFile("GDR")srclStrngdrstream.littleEndian=truesrclStrn'folder =GetFolderitem(basename+".vhdr")srclStrnpath = folder.absolutepathsrclStrn%outfile_vhdr =folder.CreateTextFile srclStrnif outfile_vhdr = Nil thensrclStrnChooser.visible = falsesrclStrnerrorWindow.visible=truesrclStrnHerrorWindow.staticText1.text = "Can't create the file"+basename +".vhdr"srclStrnend ifsrclStrn'folder =GetFolderitem(basename+".vmrk")srclStrnpath = folder.absolutepathsrclStrn$outfile_vmrkr =folder.CreateTextFilesrclStrnif outfile_vmrkr = Nil thensrclStrnChooser.visible = falsesrclStrnerrorWindow.visible=truesrclStrnHerrorWindow.staticText1.text = "Can't create the file"+basename +".vmrk"srclStrnend ifsrclStrnsrclStrnwriteheaders(basename)srclStrnsrclStrnsrclStrnEnd SubEndGInt &EndGInt &MethGrup&EncoInt nameStrn writeheadersparmStrnfromfilenm as StringrsltStrnflagInt sorcGrup`&stsrInt /stscInt ndsrInt /ndscInt EncoInt srclStrn&Sub writeheaders(fromfilenm as String)srclStrndim line as StringsrclStrn)dim datafilename, relative_name as stringsrclStrndim l as integersrclStrnsrclStrnl = len(f_in.name)srclStrn#relative_name= left(f_in.name, l-4)srclStrnsrclStrn;line = "Brain Vision Data Exchange Header File Version 1.0"srclStrnwriteline(outfile_vhdr, line)srclStrn;line ="Brain Vision Data Exchange Marker File, Version 1.0"srclStrnwriteline(outfile_vmrkr, line)srclStrnQline ="; Data created from "+fromfilenm+" by ToGDR software djbierman july 2005"srclStrnwriteline(outfile_vhdr, line)srclStrnwriteline(outfile_vmrkr, line)srclStrnsrclStrnline="[Common Infos]"srclStrnwriteline(outfile_vhdr, line)srclStrnwriteline(outfile_vmrkr, line)srclStrnsrclStrn'line = "DataFile="+relative_name+".bin"srclStrnwriteline(outfile_vhdr, line)srclStrnwriteline(outfile_vmrkr, line)srclStrnsrclStrnsrclStrn)line ="MarkerFile="+relative_name+".vmrk"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrnline ="DataFormat=BINARY"srclStrnwriteline(outfile_vhdr, line)srclStrn#line ="DataOrientation=MULTIPLEXED"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrnline="DataType=TIMEDOMAIN"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrnline ="NumberOfChannels=4"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrnline= "SamplingInterval=33333"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrn;'de rest van vhdr als we weten hoeveel dqatapunten er zijn.srclStrnsrclStrnsrclStrnline ="[Marker Infos]"srclStrnwriteline(outfile_vmrkr, line)srclStrnsrclStrnsrclStrnsrclStrnEnd SubEndGInt &EndGInt &MethGrup0&EncoInt nameStrn OpenWKSFileparmStrnrsltStrnstringflagInt sorcGrup&stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Function OpenWKSFile() As stringsrclStrndim tmptxt as StringsrclStrndim i as IntegersrclStrnsrclStrnKf_in =getopenfolderitem("text-plain;text/tab-separated-values;special/any")srclStrnif (f_in <>NIL) thensrclStrnsrclStrn*Chooser.statictext2.text="file:"+f_in.namesrclStrn*Chooser.ST3.text="chars:"+str(f_in.length)srclStrntxtinput = f_in.OpenasTextFilesrclStrntmptxt = f_in.absolutePathsrclStrni= len(tmptxt)srclStrni=i-10srclStrntmptxt = left(tmptxt, i)srclStrnelse srclStrn return ""srclStrnend ifsrclStrn return tmptxtsrclStrn End FunctionEndGInt &EndGInt &MethGrup d&EncoInt nameStrnanalyzewksfileparmStrnrsltStrnflagInt sorcGrup &stsrInt 3stscInt ndsrInt 3ndscInt EncoInt srclStrnSub analyzewksfile()srclStrnW' reads wks file line by line and writes data to gdrstream and markers to outfile_vmrkrsrclStrnsrclStrn@dim n_lines, local_m_index, i, datacount, markercount as integersrclStrnLdim col2, col3, col4, pupilsz, count,line, prevline, dttm, mrktype as StringsrclStrn%dim time, prevtime, n_data as IntegersrclStrnsrclStrn n_lines = 0srclStrn 'n_data = 0srclStrncol2=""srclStrncol3=""srclStrncol4=""srclStrnlocal_m_index=0srclStrn datacount = 0srclStrnmarkercount = 0srclStrnsrclStrn1while ((col2 <>"END") AND (txtinput.eof = false))srclStrnsrclStrnn_lines = n_lines+1srclStrnline= txtinput.readlinesrclStrncol2=NthField(line,tab,1) srclStrncol3 = NthField(line,tab,2)srclStrncol4=NthField(line,tab,3) srclStrnpupilsz = Nthfield(line,tab, 7)srclStrnsrclStrnif (col2 = "2") then srclStrnif (marker_allowed(col4)) thensrclStrnl'and (strcomp(col4,"S",0)=0 or strcomp(col4,"T",0)=0 or strcomp(col4,"U",0)=0 or strcomp(col4,"V",0)=0) thensrclStrnmrktype = col4srclStrntime = Val(col3)srclStrnmarkercount = markercount+1srclStrnVwriteline(outfile_vmrkr,"Mk"+Str(markercount)+"="+mrktype+",,"+Str(datacount) +",1,0")srclStrnend ifsrclStrnelsesrclStrnif (col2 = "10") thensrclStrndatacount = datacount+1srclStrn&gdrstream.writeshort 1000*val(pupilsz)srclStrn9gdrstream.writeshort 1000*val(Nthfield(line,tab,4)) 'xpossrclStrn9gdrstream.writeshort 1000*val(NthField(line,tab,5)) 'ypossrclStrn:gdrstream.writeshort 1000*val(nthField(line,tab,8)) 'ratiosrclStrnend ifsrclStrnend ifsrclStrn+if (NthField(line,tab,2) ="TimeStamp") thensrclStrn dttm = linesrclStrnchooser.ST3.text= dttmsrclStrnchooser.refreshsrclStrnend ifsrclStrnsrclStrnwendsrclStrnsrclStrn#line = "DataPoints="+Str(datacount)srclStrnwriteline(outfile_vhdr, line)srclStrnline="[ASCII Infos]"srclStrnwriteline(outfile_vhdr, line)srclStrnline ="DecimalSymbol=."srclStrnwriteline(outfile_vhdr, line)srclStrnline ="SkipLines=0"srclStrnwriteline(outfile_vhdr, line)srclStrnline =";SkipColumns=1"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrnline="[Channel Infos]"srclStrnwriteline(outfile_vhdr, line)srclStrnline ="Ch1=PUPILSZ,,1"srclStrnwriteline(outfile_vhdr, line)srclStrnline ="Ch2=XGAZE,,1"srclStrnwriteline(outfile_vhdr, line)srclStrnline ="Ch3=YGAZE,,1"srclStrnwriteline(outfile_vhdr, line)srclStrnline ="Ch4=RATIO,,1"srclStrnwriteline(outfile_vhdr, line)srclStrnsrclStrnEnd SubEndGInt &EndGInt &MethGrup&EncoInt nameStrnGetFilesFromFolderparmStrnmask as stringrsltStrnIntegerflagInt sorcGrup &stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn6Function GetFilesFromFolder(mask as string) As IntegersrclStrndim fldr as FolderItemsrclStrndim i,j, nr_of_items as IntegersrclStrndim newline, outstr as StringsrclStrnsrclStrnfile_list = ""srclStrnnewline = chr(12)srclStrn tab = chr(9)srclStrnsrclStrnj= 0srclStrnsrclStrnfldr = SelectFoldersrclStrnmypath = fldr.absolutePathsrclStrnnr_of_items = fldr.countsrclStrnsrclStrnfor i=1 to nr_of_itemssrclStrn*if instr(fldr.item(i).name, mask) >0 then srclStrn.file_list= file_list+fldr.item(i).name+newlinesrclStrnj=j+1srclStrnend ifsrclStrnnext isrclStrnsrclStrnreturn jsrclStrn End FunctionEndGInt &EndGInt &MethGrup0&EncoInt nameStrn ClosefilesparmStrnrsltStrnflagInt sorcGrup&stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub Closefiles()srclStrnoutfile_vhdr.closesrclStrnoutfile_vmrkr.closesrclStrngdrstream.closesrclStrnEnd SubEndGInt &EndGInt &MethGrupx&EncoInt nameStrn writelineparmStrn+outfile as textoutputStream, line as stringrsltStrnflagInt sorcGrup&stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn:Sub writeline(outfile as textoutputStream, line as string)srclStrnoutfile.write linesrclStrnoutfile.write chr(13)+chr(10)srclStrnEnd SubEndGInt &EndGInt &MethGrupP&EncoInt nameStrnmarker_allowedparmStrnmarker as stringrsltStrnbooleanflagInt sorcGrup&stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn4Function marker_allowed(marker as string) As booleansrclStrndim tmp as stringsrclStrndim i, l as IntegersrclStrnsrclStrntmp = chooser.markermask.textsrclStrn l = len(tmp)srclStrn for i= 1 to lsrclStrn)if asc(mid(tmp, i, 1)) = asc(marker) thensrclStrn return truesrclStrnend ifsrclStrnnextsrclStrn return falsesrclStrn End FunctionEndGInt &EndGInt &IntrStrnPadnPadnl********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewkP ewNameStrn errorwindowContInt rEdtRect_K!eSptInt bPGpGrupP&bPElGrup4&scKyInt 'rEdtRect_K!eSptInt EndGInt &EndGInt &lstHInt `lstVInt PDefGrup8&nameStrnNamePValStrn errorwindowEncoInt EndGInt &PDefGrup(&nameStrnFramePValStrn0EndGInt &PDefGrup0&nameStrn CompositePValStrnFalseEndGInt &PDefGrup0&nameStrn HasBackColorPValStrnFalseEndGInt &PDefGrup0&nameStrn BackColorPValStrn16777215EndGInt &PDefGrup(&nameStrnBackdropPValStrn0EndGInt &PDefGrup8&nameStrnTitlePValStrnerrorEncoInt EndGInt &PDefGrup(&nameStrnVisiblePValStrnTrueEndGInt &PDefGrup0&nameStrn FullScreenPValStrnFalseEndGInt &PDefGrup0&nameStrnMenuBarVisiblePValStrnTrueEndGInt &PDefGrup(&nameStrnCloseBoxPValStrnTrueEndGInt &PDefGrup(&nameStrnGrowIconPValStrnTrueEndGInt &PDefGrup0&nameStrn LiveResizePValStrnFalseEndGInt &PDefGrup(&nameStrnZoomIconPValStrnTrueEndGInt &PDefGrup(&nameStrn BalloonHelpPValStrnEndGInt &PDefGrup,&nameStrn MacProcIDPValStrn0EndGInt &PDefGrup(&nameStrnMenuBarPValStrn0EndGInt &PDefGrup,&nameStrn PlacementPValStrn0EndGInt &PDefGrup(&nameStrnWidthPValStrn428EndGInt &PDefGrup(&nameStrnHeightPValStrn192EndGInt &PDefGrup(&nameStrnMinWidthPValStrn64EndGInt &PDefGrup,&nameStrn MinHeightPValStrn64EndGInt &PDefGrup,&nameStrnMaxWidthPValStrn32000EndGInt &PDefGrup0'nameStrn MaxHeightPValStrn32000EndGInt 'FDefGrupH'NameStrn errorwindowSizeInt SuprStrnWindowbNtrInt EndGInt 'CBhvGrup@'NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt 'CtrlGrup'cclsStrn StaticTextnameStrn StaticTextPDefGrup8'nameStrnNamePValStrn StaticText1EncoInt EndGInt 'PDefGrup0'nameStrnIndexPValStrn -2147483648EndGInt 'PDefGrup0'nameStrn TabPanelIndexPValStrn0EndGInt 'PDefGrup('nameStrnVisiblePValStrnTrueEndGInt 'PDefGrup$'nameStrnLeftPValStrn57EndGInt 'PDefGrup$' nameStrnTopPValStrn123EndGInt ' PDefGrup(' nameStrnWidthPValStrn100EndGInt ' PDefGrup(' nameStrnHeightPValStrn20EndGInt ' PDefGrup,' nameStrn InitialParentPValStrnEndGInt ' PDefGrup$' nameStrnHelpTagPValStrnEndGInt ' PDefGrup('nameStrn BalloonHelpPValStrnEndGInt 'PDefGrup0'nameStrnDisabledBalloonHelpPValStrnEndGInt 'PDefGrup0'nameStrnAutoDeactivatePValStrnTrueEndGInt 'PDefGrup,'nameStrnLockLeftPValStrnFalseEndGInt 'PDefGrup,'nameStrnLockTopPValStrnFalseEndGInt 'PDefGrup0'nameStrn LockRightPValStrnFalseEndGInt 'PDefGrup0'nameStrn LockBottomPValStrnFalseEndGInt 'PDefGrup8'nameStrnTextFontPValStrnSystemEncoInt EndGInt 'PDefGrup('nameStrnTextSizePValStrn12EndGInt 'PDefGrup('nameStrnBoldPValStrnFalseEndGInt 'PDefGrup,'nameStrnItalicPValStrnFalseEndGInt 'PDefGrup0'nameStrn UnderlinePValStrnFalseEndGInt 'PDefGrup 'nameStrnTextPValStrnEndGInt 'PDefGrup,'nameStrn TextAlignPValStrn0EndGInt 'PDefGrup,'nameStrn TextColorPValStrn0EndGInt 'PDefGrup0'nameStrn MultiLinePValStrnFalseEndGInt 'PDefGrup('nameStrnEnabledPValStrnTrueEndGInt 'PDefGrup('nameStrn DataSourcePValStrnEndGInt 'PDefGrup(' nameStrn DataFieldPValStrnEndGInt ' CBixInt EndGInt 'PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!