Memoread

[hag]

I have a comma delimited csv file.
I can read the file using memoread().
cText := memoRead(cfile)
I can extract a line using extractLine(cText,@variable)
I can change the line: cline := stuff(cLine,0,0,"0,"). I added a new comma.
but what I can't do is insert the changed line back into the csv file.
Help is appreciated.

[nageswaragunupudi]

Write the entire modified cText with MEMOWRIT( cFile, cText )

[hag]

Roa
Thanks for the quick response. I am having a problem. Here is my code

Code: Select all  Expand view

function commas1(cFile)
   local cText := MemoRead(cFile), cLine
   local nLen  := Len( cText )
   local nFrom := 1
   local nVal  := 3 // 3 assign numbers

   While nFrom <= nLen
      cLine  := ExtractLine( cText, @nFrom )

      if NumAt( ",", cLine ) = 2    // number of ","
         cLine := stuff(cLine,0,0,"0,")
         memowrit(cFile,cText)
         skip   
         loop   
      endif
   enddo
      
   nVal := 1    // numbers assigned

   return nVal

 

Its not picking up each line of the file. Each line has 2 commas. I"m trying to get all lines in the file to have 3 commas.
memowrit only seems to deal with the last line of the cfile.

[Marc Vanzegbroeck]

Harvey,

You need to write the file in one time.
It should be something like this

Code: Select all  Expand view

function commas1(cFile)
   local cText := MemoRead(cFile), cLine
   local nLen  := Len( cText )
   local nFrom := 1
   local nVal  := 3 // 3 assign numbers
   local cNewText := ""

   While nFrom <= nLen
      cLine  := ExtractLine( cText, @nFrom )

      if NumAt( ",", cLine ) = 2    // number of ","
         cLine := stuff(cLine,0,0,"0,")
         cNewText += cLine
         skip  
         loop  
      endif
   enddo
   
   memowrit(cFile,cNewText)
   nVal := 1    // numbers assigned

   return nVal

 

Regards,
Marc

[nageswaragunupudi]

Code: Select all  Expand view

cNewText += cLine

should be

Code: Select all  Expand view

cNewText += CRLF + cLine

and

Code: Select all  Expand view

memowrit(cFile,cNewText)

should be

Code: Select all  Expand view

memowrit(cFile,SubStr(cNewText,3))

[hag]

Thank you both. Perfection.