LoadWave Combining Date and Time

Menu "Load Waves"
    "Load PVSSLog File...", LoadPVSSLogFile("", "") // Display Open File dialog and load one file
End
 
Function LoadPVSSLogFile(fileName, pathName)
    String pathName             // Name of symbolic path or "" for dialog
    String fileName                 // Name of data file or "" for dialog
 
    Variable refNum
 
    // First get a valid reference to a file.
    if ((strlen(pathName)==0) || (strlen(fileName)==0))
        // Display dialog looking for file.
        Open/D/T="????"/R/P=$pathName/M="Select PVSS data file" refNum as fileName
        fileName = S_fileName       // S_fileName is set by Open/D
        if (strlen(fileName) == 0)  // User cancelled?
            return -1
        endif
    endif
 
    String columnInfoStr = "N=Datum,F=6;N=Zeit,F=7;N=Zmm;N=I1;N=I2;N=I3;N=I4;"
 
    // /J specifies Load Delimited Text
    // /A means "auto-name & go" (don't display dialog asking user to confirm column names)
    // /L says the first data line is line 2 (zero-based)
    // /V sets the column separator as semicolon
    // /B sets column names and formats
    // /R sets the date format
    //LoadWave /P=$pathName /J /A /L={0, 2, 0, 0, 0} /V={";", "", 0, 0} /B=columnInfoStr /R={German,2,2,2,2,"DayOfMonth.Month.Year",40} fileName
    LoadWave /A/O/W/P=$pathName /J /L={1, 2, 0, 0, 0} /V={";", " ", 0, 0} /R={German,2,2,2,2,"DayOfMonth.Month.Year",40} fileName
    if (V_flag < 3)
        Print "User Cancelled or Error Occurred"
        return -1;
    endif
 
    Wave Datum, Zeit
    Datum += Zeit               // Add time to date
    KillWaves/Z Zeit                // We don't need time anymore
 
    String title = ParseFilePath(3, S_fileName, ":", 0, 0)      // Remove extension from file name
    String titleG
    titleG = title + "_G"
    string WavesLoaded
    WavesLoaded = WaveList("*",";","")
    string WavesToTable
   
    dowindow/K $title
    dowindow/K $titleG
   
    Variable i=0
    do
        WavesToTable= StringFromList(i,WavesLoaded)
        if( strlen(WavesToTable) == 0 )
            if(i!=1)
                break
            endif
        endif
        if(i==0)
            Edit /W=(9,47,674,304) $WavesToTable as title
            dowindow/C $title
            ModifyTable format(Datum)=8, width(Datum)=120
        else
            appendtotable $WavesToTable
            if(i==1)
                display $WavesToTable vs Datum as titleG
                dowindow/C $titleG
                Legend/C/N=text0/F=0/A=MC
            elseif(i>1)
                appendtograph $WavesToTable vs Datum
            endif
        endif
       
        setcolor()
       
        i += 1
    while (1)   // exit is via break statement

   
    //Edit /W=(9,47,674,304) Datum, Zmm, I1, I2, I3, I4 as title
    //ModifyTable format(Datum)=8, width(Datum)=120
End

function setcolor()
    string trl=tracenamelist("",";",1), item
    variable items=itemsinlist(trl), i
    //variable ink=103/(items-1)
    variable ink=256/(items-1)
    colortab2wave SpectrumBlack
    wave/i/u M_colors
    for(i=0;i<items;i+=1)
        item=stringfromlist(i,trl)
        //ModifyGraph rgb($item)=(M_colors[140+i*ink][0],M_colors[140+i*ink][1],M_colors[140+i*ink][2])
        ModifyGraph rgb($item)=(M_colors[i*ink][0],M_colors[i*ink][1],M_colors[i*ink][2])
    endfor
    killwaves/z M_colors
end