Hi

I am writing a line (text) from file 1 to file 2. I am reading a line from
file 1 and writing in to file 2 using the below code. The line in file 1 is
appended with double quotes (") and then written in to file 2. Can anybody
suggest me a way to avoide this double quotes.

For Ex:
If file 1 has the sentance - This is line in file 1
then file 2 will be - "This is line in file 1"

Thanks in advance
Sridhar P


Code
-------

Sub SplitFile()

Dim InputData

Open "C:\inpfile.txt" For Input As #1

Open "C:\outfile.txt" For Output As #2

Line Input #1, InputData

Write #2, InputData

Close #2

Close #1

End Sub


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1

Change
Write #2, InputData

to
Print #2, InputData

--
Regards,
Tom Ogilvy

"Sridhar P via OfficeKB.com" <u2751@uwe wrote in message
news:5612d34d9a8a4@uwe...
Hi

I am writing a line (text) from file 1 to file 2. I am reading a line from
file 1 and writing in to file 2 using the below code. The line in file 1
is
appended with double quotes (") and then written in to file 2. Can anybody
suggest me a way to avoide this double quotes.

For Ex:
If file 1 has the sentance - This is line in file 1
then file 2 will be - "This is line in file 1"

Thanks in advance
Sridhar P


Code
-------

Sub SplitFile()

Dim InputData

Open "C:\inpfile.txt" For Input As #1

Open "C:\outfile.txt" For Output As #2

Line Input #1, InputData

Write #2, InputData

Close #2

Close #1

End Sub


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1

Write # delimits the output with "" and commas; use Print# instead to send
the data to the file exactly as you have specified it in your code.
--
- K Dales


"Sridhar P via OfficeKB.com" wrote:

Hi

I am writing a line (text) from file 1 to file 2. I am reading a line from
file 1 and writing in to file 2 using the below code. The line in file 1 is
appended with double quotes (") and then written in to file 2. Can anybody
suggest me a way to avoide this double quotes.

For Ex:
If file 1 has the sentance - This is line in file 1
then file 2 will be - "This is line in file 1"

Thanks in advance
Sridhar P


Code
-------

Sub SplitFile()

Dim InputData

Open "C:\inpfile.txt" For Input As #1

Open "C:\outfile.txt" For Output As #2

Line Input #1, InputData

Write #2, InputData

Close #2

Close #1

End Sub


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1

Hi Friends,

Thanks for the solution.... It serves my purpose...

Thanks
Sridhar P


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1