Edit a line of a text file

[ErinC]

Hi, I am trying to edit a line of a text file, but can't quite get it working properly.

I need to edit a file called

C:\Radiusv5\Rcs\Pow32gui\hostconn.txt

It reads as follows;

application = Powersolve

wincommand  = sor32 Pow32x

windirecto  = C:\RadiusV5\Rcs\POW32GUI

login      =

password    =

ttype      = rad_view

command    =

commreqd    = no

remlogin    =

rempassword =

remservice  =

remsession  = 4

remmethod  =

remname    =

background  =

remconnect  = no

addreply1  = rad_view

addreply2  = 1

ddesync    = 1000

and I want to change the addreply2 = 1 to be addreply2 = ps_live

Please help

[zcoacoaz]

$file = FileOpen ( "C:\Radiusv5\Rcs\Pow32gui\hostconn.txt", 0 )
Dim $Contents
While 1
   $Line = FileReadLine ( $file )
   If @error Then Exitloop
   If $Line = "addreply = 1" Then $Line = "addreply2 = ps_live"
   $Contents = $Contents & @CRLF & $Line
WEnd
FileClose ( $file )
$file = FileOpen ( "C:\Radiusv5\Rcs\Pow32gui\hostconn.txt", 2 )
FileWrite ( $file, $Contents )

not sure but i think that will do it

[ErinC]

Hey, thanks for taking the time to look at this ..

That code you posted seems to work ok but it leaves a blank line at the beginning of the file .. any way of getting rid of that ?

Edited March 8, 2005 by ErinC

[ErinC]

aha ! I switched the @CRLF and $Line in the $contents= line and all is well

Thanks again Xenogis !

[zcoacoaz]

You're welcome .