Edit a CSV Record - vbscript

Question

How do I edit a record in a CSV file?
for example I have a .csv file named "test.csv" and inside it is:
"123","Active"
"456","Not-Active"
"999000123","Active"
How can I edit "456" and change it from Not-Active to Active
The only way I can think of it is to:
Open the .csv file. Maybe store the data inside a string?
Search for "456",".
Get the line position of "456",". How to do this?
Delete the line that we just got the position of. How to do this?
Recreate the line with what we want. How to do this?
Insert the recreated data in the line position. How to do this?
Save the .csv file.
But is there not a easier way to do this?
And if not how do I do steps # 4, 5, and 6?
Maybe to convert it onto an Array or something? But I have no idea how to do this in Classic ASP.

Answer 1

Based on Ekkehards answer, here is the ASP version. The .csv file needs to be located in the same directory as the .asp script. Feel free to award the points to Ekkehard
<%#LANGUAGE="VBSCRIPT"%>
<% option explicit %>
<%
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Dim tsIn : Set tsIn = goFS.OpenTextFile(Server.MapPath( "46734115.csv"))
Dim tsOut : Set tsOut = goFS.CreateTextFile(Server.MapPath("46734115-2.csv"))
Dim sLine
Do Until tsIn.AtEndOfStream
sLine = tsIn.ReadLine()
dim pos : pos = instr( sLine, """456"",")
Response.Write(pos)
if pos > 0 then
' to keep things simple, just replace the whole line
sLine = """456"",""Active"""
end if
tsOut.WriteLine sLine
' Just so there is something to see: print line to the browser window
Response.Write( sLine & "<br />")
Loop
tsOut.Close
tsIn.Close
%>

Answer 2

A simplyfied version of the script #abr mentioned:
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Dim tsIn : Set tsIn = goFS.OpenTextFile("..\data\46734115.csv")
Dim tsOut : Set tsOut = goFS.CreateTextFile("..\data\46734115-2.csv")
Dim sLine
Do Until tsIn.AtEndOfStream
sLine = tsIn.ReadLine()
WScript.Echo "<", sLine
If "456," = Left(sLine, 4) Then
sLine = "789,""something else"""
End If
WScript.Echo ">", sLine
tsOut.WriteLine sLine
WScript.Echo
Loop
tsOut.Close
tsIn.Close
output:
type ..\data\46734115.csv
123,"Active"
456,"Not-Active"
999000123,"Active"
cscript 46734115-3.vbs
< 123,"Active"
> 123,"Active"
< 456,"Not-Active"
> 789,"something else"
< 999000123,"Active"
> 999000123,"Active"
type ..\data\46734115-2.csv
123,"Active"
789,"something else"
999000123,"Active"