Chromatography Forum

Code: Select all

Name MYCSVALL

Local cols,runtime,signal,i,j,k

!************************************
! Create the file with the list

! I couldn't do it like this (I don't know why...):
!ListDir$ = "dir>" + "c:\Temp\list.txt" + " /A:D /B"
!ExecNoWait ListDir$ !Execute a command "ListDir$" in cmd.exe

! I do it with a .bat file saved in \CORE

ChDir "c:\HPCHEM\CORE"
ExecNoWait ListDir.bat

!!!!!! Contents of the .bat file
!!!!!! cd c:\Temp
!!!!!! dir>list.txt /A:D /B

!************************************
! Commands to set CWD as the one where the files are

Open "ListDir.bat" For Input as #4
Input Using #4, "L", FilesDir$ ! Entire line read into string
FilesDir$ = FilesDir$[4:len(FilesDir$)]
ChDir FilesDir$
Close #4

!************************************
! Commands to find the total number of .D files in the directory

Queue$ = FindFile$(GetCWD$() + "\*.D",,",")
TotalFiles = 1
Repeat
   Queue$ = Queue$[Instr(Queue$,",") + 1:len(Queue$)]
   TotalFiles = TotalFiles + 1
Until (Instr(Queue$,",") = 0)

!************************************
        Open "list.txt" For Input as #5
   For k = 1 to TotalFiles
      Input Using #5, "L", FileName$ ! Entire line read into string   
      !Print FileName$      
      File FileName$
      LoadSignal ,"A",, ChromReg
      FileNameSignal$ = "c:\Temp\" + FileName$ + "\Signal"
      !Print FileNameSignal$
      For j=1 to RegSize(Chromreg)
           cols=DataCols (Chromreg[j])
           Open FileNameSignal$ + Val$(j)+".csv" For Output as #6
           Print "Saving " + FileNameSignal$ + Val$(j) + ".csv"
           For i=1 To cols
                runtime = Data (Chromreg[j],0,i)
                signal = Data (Chromreg[j],1,i)
                print#6,runtime,",",signal
           Next i
           Close#6
      Next j
      DelReg ChromReg
   Next k
        Close #5

Print "Finished"

EndMacro