FileWrite

[IvanCodin]

I can't get this to work. I want to use the FileWrite command to send text to an opened file. The text sent to the file conains " characters. I want to send this exact sting "Automated Logon Tool". I know that a " is a literal string tag and sends the quoted text based on the help file. Being simple minded I though "No problem, double quote the string. It does not sent the text I want. I have looked and looked and can not find an answer. Below is the line of code I am describing. Any suggestions?

FileWrite($file, ""Automated Logon Tool"")

I am new to programming and figure it is very simple to overcome. Am I right?

Me

[NELyon]

FileWrite($file, '"Automated Logon Tool"')

Edited October 6, 2007 by Senton-Bomb

[IvanCodin]

I obviously need to provide some detail here!!!!

The script I am writing logges me in a phone system.

It needs to connect to the phone system via a ras connection via a windows dialup.

I query a access database and present a list os customer. I select the customer I want to call.

I then use rasdial to connect to the specified ras number found in the access query. This query also provided me my ras login and password.

I create a connect.scp on the fly based on the selected customer, it was also specified in the ras connectoid, save it to the drive, and then use it for the rasdial connection.

After the ras connection if completed I get the ras server ip address and then telnet to it.

Simple

Me

[TheCuz]

Are you still having issues with FileWrite, or is there something else that you needed?

What Senton-Bomb wrote would work with writing in the double quotes. You cannot have two sets of quotes next to each other, otherwise it will think that is the end of the string.

If you want to write quotes into the string, use what Senton-Bomb had done and use the single quote ( ' ) to encapsulate the string within the command. Otherwise you can use the ASCII number of the quote with Chr(39) & <string> & Chr(39). (I think that is the number for a single quote, you can find it in the help file reference)

Edited October 6, 2007 by TheCuz

[IvanCodin]

Sorry I didn't understand the reply he had sent. I still don't but I'll use his suggestion, Thanks!!!, and see what happens.

Me

[NELyon]

You wanted to send the string "Automated Logon Tool" including the ""

To do this, you need to enclose the double quotes with single quotes or ' '

So you would need ' "Automated Logon Tool" '

[IvanCodin]

Allright, Now you know I am an idiot!! I was amazed by the fast response to my original post. Thanks again!

The problem is I am to stupid to understand how it solves my problem. I read, reread, reread, (repeat until stupor set in).

I am sure to most of you the soultion is obvious. I do not understand how the strings are sent with the wrapper mentioned.

Forrest Gump

[IvanCodin]

Here is what I tried:

If FileExists($script) Then

MsgBox(0, "Info", "Script exists.")

Else

MsgBox(0,"Info", "Script does not exist. I'll create it for you.")

EndIf

; File open section

; -------------------------------------------------

$file = FileOpen($script, 10)

FileWrite($file, "proc main" & @CRLF)

FileWrite($file, " '"transmit ^M"'" & @CRLF) <-- This is where my error was.

FileWrite($file, "endproc" & @CRLF)

FileClose($file)

; EndIf

I tried the following:

FileWrite($file, " '"transmit ^M"'" & @CRLF)

FileWrite($file, " '"transmit ^M"' " & @CRLF)

An finally after your suggestion, many thanks again, it works with:

FileWrite($file, '" "transmit ^M" & @CRLF')

This might be obviuos to you guys but it sure wasn't to me!!!

As always once you figure it out it is easy.

Thanks for your help.

Me

[PsaltyDS]

Here is what I tried:

If FileExists($script) Then

MsgBox(0, "Info", "Script exists.")

Else

MsgBox(0,"Info", "Script does not exist. I'll create it for you.")

EndIf

; File open section

; -------------------------------------------------

$file = FileOpen($script, 10)

FileWrite($file, "proc main" & @CRLF)

FileWrite($file, " '"transmit ^M"'" & @CRLF) <-- This is where my error was.

FileWrite($file, "endproc" & @CRLF)

FileClose($file)

; EndIf

I tried the following:

FileWrite($file, " '"transmit ^M"'" & @CRLF)

FileWrite($file, " '"transmit ^M"' " & @CRLF)

An finally after your suggestion, many thanks again, it works with:

FileWrite($file, '" "transmit ^M" & @CRLF')

This might be obviuos to you guys but it sure wasn't to me!!!

As always once you figure it out it is easy.

Thanks for your help.

Me

WARNING: The code above will open the file for overwrite whether it exists already or not! The message boxes imply you didn't mean to do that.

[IvanCodin]

My verbage is poor. I'll correct it. If the file exists I do want to delete it. The file is a RAS DUN script I create that is unique to each site dialed. The script contains the password and login information for the RAS connection. For security purposes I will delete the file AFTER I have successfully connected and logged into the system.

If I do see an exisitng file with the same name I'll delete it. Later on I'll make a copy, put in my information, connect and then put back the original version. This of course assumes the user had created a script with the exact name as mine ( I hope not!!).

Thanks again for all of your help. You guys and gals are awesome!!

Me