AutoHotkey Community

CSV_Load("teste.csv","AA",",")
CSV_ModifyCell("AA",7777,1,1)
CSV_ModifyCell("AA",7777,1,2)
CSV_Save("teste.csv","AA",1)

CSV_Load("teste.csv","AA",";")
CSV_ModifyCell("AA",2020,1,1)
CSV_Save("teste.csv","AA",1)

f= ; create test file
(join`r`n
1111;1111
)
filedelete,f.csv
fileappend,%f%,teste.csv

CSV_Load("teste.csv is OK","AA",";")
CSV_ModifyCell("AA",2020,1,1)
MsgBox % CSV_ReadCell("AA",1,1) ":" CSV_ReadCell("AA",1,2)
CSV_Save("teste.csv","AA",1)

CSV_Load("teste.csv","AA",";")

String = a,b,c`r`nd,e,f,,"g`r`n",h`r`nB,`n"C`nC",D
e:= """" ; the encapsulation character (tipical ")

; change `r`n or `n inside encapsulation e to `r
RegExNeedle:= "\n(?=[^" e "]*" e "([^" e "]*" e "[^" e "]*" e ")*([^" e "]*)\z)"
String := RegExReplace(String, RegExNeedle , "" )

StringReplace,String, String,`r,@,All ;only for see msgbox
msgbox, : %String% :

<!--URLs OF IMAGES USED IN THIS LISTING

photo1:
url1
...

<!--URLs OF IMAGES USED IN THIS LISTING

CSV_Load(FileName, CSV_Identifier="", Delimiter="`,")
{
  Local Row
  Local Col
  temp :=  %CSV_Identifier%CSVFile
  FileRead, temp, %FileName%
  StringReplace, temp, temp, `r`n`r`n, `r`n, all   ;Remove all blank lines from the CSV file
  loopnumber = 1
  Loop, Parse, temp, `n, `r
  {
    if loopnumber = 1
    Col := ReturnDSVArray(A_LoopField, CSV_Identifier . "CSV_Row" . A_Index . "_Col", Delimiter)
    loopnumber ++
    Row := A_Index
    Loop, Parse, A_LoopReadLine, %Delimiter%
    {
      Col := A_Index
      %CSV_Identifier%CSV_Row%Row%_Col%Col% := A_LoopField
    }
  }
  %CSV_Identifier%CSV_TotalRows := Row
  %CSV_Identifier%CSV_TotalCols := Col
  %CSV_Identifier%CSV_Delimiter := Delimiter
  SplitPath, FileName, %CSV_Identifier%CSV_FileName, %CSV_Identifier%CSV_Path

  IfNotInString, FileName, `\
  {
    %CSV_Identifier%CSV_FileName := FileName
    %CSV_Identifier%CSV_Path := A_ScriptDir
  }
  %CSV_Identifier%CSV_FileNamePath := %CSV_Identifier%CSV_Path . "\" . %CSV_Identifier%CSV_FileName
}

Loop, Parse, temp, `n, `r
  {
    if loopnumber = 1
    Col := ReturnDSVArray(A_LoopField, CSV_Identifier . "CSV_Row" . A_Index . "_Col", Delimiter)
    loopnumber ++
    Row := A_Index
;    Loop, Parse, A_LoopReadLine, %Delimiter% ; don't need this, comment or remove
;    {
;      Col := A_Index
;      %CSV_Identifier%CSV_Row%Row%_Col%Col% := A_LoopField
    }
  }