omit parenthesis/quote marks when writing to text file 1

[scottian]

I have some code which imports a text file and loops through each record, querying a database as it goes, retreiving another value from the screen and then writes both values to another text file, however, when it does this it wraps the info with quote marks ( "myInputString,myOutputString" ). how do I stop this happening?

example :-
Input - 340080050

Output - "340080050,Name"

"My God! It's full of stars...

 

[SkipVought]

Hi,

What method are you using to write to the output file?

Please post your code.

Skip,

_[red][/red]

 

[scottian]

Sorry

This is the code im using :-



Sub Main()
close
'-----------------------
Dim a as string

Open "C:\Book1.txt" for input as #1
Open "C:\Book1Output.txt" for append as #2
Do while EOF(1) <> True
Input #1, TestField
'-----------------------
Sess0.Screen.Sendkeys("" & TestField & "<Enter>")
a = Trim(Screen.GetString(4,38,4))
FileData =TestField & "," & a
Write #2,FileData

Loop
close
msgbox "Done"
End Sub

"My God! It's full of stars...

 

[SkipVought]

Take a look at the Print # method.

Skip,

_[red][/red]

 

[scottian]

Excellent....thanks

"My God! It's full of stars...