How to update CSV File and need to Save same CSV File

[kotaramamohana]

Hi Team,

I want to update CSV file by modifying some data based on column. In Row 2 or 3. And need to save same CSV File. Can you please help me in same

[tigerliew]

try codes below:

Code:

Set inFile  = objFSO.OpenTextFile("test.csv")
Set outFile = objFSO.OpenTextFile("test2.csv.tmp", 2, True)
dim iRowCount
iRowCount =0
Do while not objTextFile.AtEndOfStream
 line = inFile.ReadLine
 iRowCount = iRowCount + 1
 if iRowCount=2 then
    arrStr = Split(line, ",")
    If arrStr(0) = strFirm Then
      soNumber = CInt(arrStr(1))
      outFile.WriteLine arrStr(0) & "," & (soNumber + 1)
    Else
     outFile.WriteLine line
   End If
 elseif iRowcount>2 then
     exit do
 end if
Loop

inFile.Close
outFile.Close