Contact Us Now

Var
  iEntry, iIndex, iList: Integer;
  tmpFilename, tmpInputFile, tmpOutputFile: String;
  tmpEntryList, tmpFileList: TStringList;
Const
  ctOutputPath = 'C:\Test\Out_Csv\';  // Must end with a \
  ctIMPNAME = 'IMPNAME';
Begin
  psExitCode := 0;
  iIndex := -1;
  tmpInputFile := psFilePath + psFilename;
  tmpOutputFile := '';
  // ... add your code here
  tmpEntryList := TStringList.Create;
  tmpEntryList.Delimiter := ',';
  tmpEntryList.StrictDelimiter := True;
  tmpEntryList.QuoteChar := '"';
  tmpFileList := TStringList.Create;
  Try
    Try
      tmpFileList.LoadFromFile(tmpInputFile);
      tmpEntryList.DelimitedText := tmpFileList.Strings[0];
      For iEntry := 0 to (tmpEntryList.Count - 1) Do
      Begin
        If SameText(ctIMPNAME, tmpEntryList.Strings[iEntry]) Then
        Begin
          iIndex := iEntry;
          psLogWrite(1, '', 'Found ' + ctIMPNAME + ' at Column with Index ' + IntToStr(iIndex));
          Break;
        End;
      End;
      // Did we find 'IMPNAME'
      If iIndex <> -1 Then
      Begin
        tmpFileList.Strings[0] := psStringReplace(tmpFileList.Strings[0], ',"' + ctIMPNAME + '"', '');
        For iList := 1 to (tmpFileList.Count - 1) Do
        Begin
          tmpEntryList.DelimitedText := tmpFileList.Strings[iList];
          If tmpEntryList.Count > iIndex Then
          Begin
            If tmpOutputFile = '' Then
            Begin
              tmpFilename := tmpEntryList.Strings[iIndex];
              If tmpFilename <> '' Then
                tmpOutputFile := ctOutputPath + tmpFilename + '.csv';
            End;  
            If tmpFilename <> '' Then
            Begin
              tmpFileList.Strings[iList] := psStringReplace(tmpFileList.Strings[iList], ',"' + tmpFileName + '"', '');           
              psLogWrite(1, '', 'Entry: ' + tmpOutputFile + ' : ' + tmpFileList.Strings[iList]);
            End;  
          End;
        End;
      End;
      // Save To File
      If tmpOutputFile <> '' Then
      Begin
        Try
          tmpFileList.saveToFile(tmpOutputFile);
          psExitCode := 1;
        Except
          psLogWrite(1, '', 'Error saving file: ' + tmpOutputFile);
        End;
      End;
    Except
      psLogWrite(1, '', 'Error loading file: ' + tmpInputFile);
    End;
  Finally
    tmpEntryList.Free;
    tmpFileList.Free;
  End;
End.