AutoHotkey Community

Loop 150
      {
         Loop,parse,fieldlist,`,   
         {
            Num+=%A_loopfield%
            Field:=pcsSplit%Num%
            Fileappend,%field%`,,%A_programfiles%\WIA\Data\MainData1.txt
            Num-=%A_loopfield%
         }
         
         num+=1434
      }

Loop,read, % fflist, % output
         {
            Num+=%A_loopreadline%
            Field:=pcsSplit%Num%
            Fileappend, % field "`,"
            Num-=%A_loopreadline%
         }
         
;~          Loop,parse,fieldlist,`,   
;~          {
;~             Num+=%A_loopfield%
;~             Field:=pcsSplit%Num%
;~             Fileappend,%field%`,,%A_programfiles%\WIA\Data\MainData1.csv
;~             Num-=%A_loopfield%
;~          }

Loop, read, %A_programfiles%\WIA\Data\MainData.csv
   {
      Bob:=A_loopreadline
      Stringsplit, fish, A_loopreadline, `,
      Loop, read, %A_programfiles%\WIA\Data\results.csv               ; Import the results into the Data file
      {
         ifinstring,A_loopreadline, %fish1%`,%fish2%`,%fish9%
         fileappend,%bob%`,%A_loopreadline%`n,%A_programfiles%\WIA\Data\Data.csv
      }   
   }

; dummyfile.txt must contain minimal 1 record of any content, it is not the data to be processed
; here the output file is opened
Loop,read, duumyfile.txt, %A_programfiles%\WIA\Data\MainData1.txt
(
   Loop 150
   {
      Loop,parse,fieldlist,`,   
      {
         Num+=%A_loopfield%
         Field:=pcsSplit%Num%

;        this command opens, (positions to the end and) appends and closes
;        150 times <the number of fields> the field data
;        ------------------------------------------------------------
;        Fileappend,%field%`,,%A_programfiles%\WIA\Data\MainData1.txt
;        ------------------------------------------------------------
;
;        this command really only appends 150 time <the number of fields>
;        the field data as the file is kept open all the time
;        --------------------
         Fileappend,%field%`,
;        --------------------
;
         Num-=%A_loopfield%
      }
     
      num+=1434
   }
   break  ; the dummyfile loop after the only or first record
}
; here the ouput file is closed

FileRead, results, %A_programfiles%\WIA\Data\results.csv  ; get results into variable with one read

Loop,read, dummyfile.txt, %A_programfiles%\WIA\Data\Data.csv
(
   FileRead, maindata, %A_programfiles%\WIA\Data\MainData.csv  ; get data into variable with one read
   Loop, parse, maindata, `n, `r
   {
      if a_loopfield =
         continue
      Bob:=A_loopfield
      Stringsplit, fish, A_loopfield, `,
      Loop, parse, results, `n, `r
      {
         if a_loopfield =
            continue
         ifinstring,A_loopfield, %fish1%`,%fish2%`,%fish9%
            fileappend,%bob%`,%A_loopfield%`n
      }   
   }
   break
}

FullText =
Loop 150
      {
         Loop,parse,fieldlist,`,   
         {
            Num += %A_loopfield%
            Field := pcsSplit%Num%
            FullText := FullText . Field . ","
            Num -= %A_loopfield%
         }
         
         num+=1434
      }
FileAppend, %FullText%, %A_programfiles%\WIA\Data\MainData1.txt