Contact Us Now

Begin
  psExitCode:= 1;
  // ... add your code here
  psVSA := '';
  psVSE := '';
End.

Var
  tmpList: TStringList;
Const
  ctOutputFile = 'C:\Test\Out_Csv\MergeCsvFile.csv';
Begin
  // Init
  psExitCode:= 1;
  // ... add your code here
  If psVSE = '' Then
  Begin
    // No Error Occured
    If Trim(psVSA) <> '' Then
    Begin
      tmpList := TStringList.Create;
      Try
        tmpList.CommaText := psVSA;
        Try
          tmpList.SaveToFile(ctOutputFile);
        Except
          Begin
            psExitCode := 0;
            psLogWrite(1, '', 'Save To File Exception: ' + ctOutputFile);
          End;
        End;
      Finally
        tmpList.Free;
      End;
    End
    Else
      psLogWrite(1, '', 'No csv data to save');
  End
  Else
  Begin
    // Error Occured
    psLogWrite(1, '', 'Error handling csv file(s): ' + psVSE);
  End;
End.

Var
  iList: Integer;
  tmpCount: Integer;
  tmpList, tmpListMem: TStringList;
  tmpAddData, tmpEntry: String;
Const
  ctAddHeader = ',"D"';
Begin
  If psVSE <> '' Then
  Begin
    psExitCode:= 0;
    psLogWrite(1, '', 'Skip File due to previous error: ' + psVSE);
  End
  Else
    psExitCode:= 1;
  // Set AddData
  If pos('FILEID1', UpperCase(psFileName)) > 0 then
    tmpAddData := 'FILEID1-DATA'
  Else if pos('FILEID2', UpperCase(psFileName)) > 0 then
    tmpAddData := 'FILEID2-DATA'
  Else
    tmpAddData := '';
  // Load From File
  tmpList := TStringList.Create;
  tmpListMem := TStringList.Create;
  Try
    If Trim(psVSA) <> '' Then
      tmpListMem.CommaText := psVSA;
    Try
      psLogWrite(1, '', 'Load From File: ' + psFilePath + psFileName);
      tmpList.LoadFromFile(psFilePath + psFileName);
      tmpCount := tmpList.Count;
      If tmpCount > 0 Then
      Begin
        For iList := 0 to (tmpCount - 1) Do
        Begin
          tmpEntry := tmpList.Strings[iList];
          If iList = 0 Then
          Begin
            // Header
            If Trim(tmpEntry) <> '' Then
              tmpListMem.Add(tmpEntry + ctAddHeader);
          End
          Else
          Begin
            // Data
            If Trim(tmpEntry) <> '' Then
              tmpListMem.Add(tmpEntry + tmpAddData);
          End;
        End;
        // Update psVSA
        If Trim(tmpListMem.CommaText) <> '' Then
          psVSA := tmpListMem.CommaText;
      End;
    Except
      Begin
        psExitCode := 0;
        psVSE := 'LoadFromFile ' + psFilePath + psFileName + ' Exception';
      End;
    End;
  Finally
    tmpList.Free;
    tmpListMem.Free;
  End;
End.