Problem: Reading text file with comma

[Paolo]

Hi
I've this problem:
I read a text file and generate a text file.
Example
Source file:
----------
Hi
I come from Rome, but I live in Turin
Bye
---------
Destination file
----------
HTML = ""
HTML = HTML & "Hi"
HTML = HTML & "I come from Rome, but I live in Turin"
HTML = HTML & "Bye"
---------

but when I open the source file
and read each row for time
my program reads the sorce file so:

Hi
I come from Rome
but I live in Turin
Bye

With 4 rows instead of 3, it trasforms comma in EOL.

My code:
While Not EOF(iFile)
Input #iFile, sRow
Call WorkOnIt(sRow)
Wend

Someone can help me?
Tanks

[Craig Brown]

Paulo,

I suspect that your input statement is interpreting the comma as an end of
field delimeter.

Try putting a breakpoint on Call WorkOnIt(sRow) and checking the contents
of sRow.

Let us know how it works out.

Craig Brown

PS. What's the weather like in Turino now?


"Paolo" <p.dellaposta@reply.it> wrote:
>
>Hi
>I've this problem:
>I read a text file and generate a text file.
>Example
>Source file:
>----------
>Hi
>I come from Rome, but I live in Turin
>Bye
>---------
>Destination file
>----------
>HTML = ""
>HTML = HTML & "Hi"
>HTML = HTML & "I come from Rome, but I live in Turin"
>HTML = HTML & "Bye"
>---------
>
>but when I open the source file
>and read each row for time
>my program reads the sorce file so:
>
>Hi
>I come from Rome
>but I live in Turin
>Bye
>
>With 4 rows instead of 3, it trasforms comma in EOL.
>
>My code:
> While Not EOF(iFile)
> Input #iFile, sRow
> Call WorkOnIt(sRow)
> Wend
>
>Someone can help me?
>Tanks
>
>

[Kevin]

Try using Line Input instead of Input. It reads data until it encounters a
carriage return.

Example
Dim TextLine
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
Debug.Print TextLine ' Print to the Immediate window.
Loop
Close #1 ' Close file.

Kevin

"Craig Brown" <brown.c3@aetna.com> wrote:
>
>Paulo,
>
>I suspect that your input statement is interpreting the comma as an end
of
>field delimeter.
>
>Try putting a breakpoint on Call WorkOnIt(sRow) and checking the contents
>of sRow.
>
>Let us know how it works out.
>
>Craig Brown
>
>PS. What's the weather like in Turino now?
>
>
>"Paolo" <p.dellaposta@reply.it> wrote:
>>
>>Hi
>>I've this problem:
>>I read a text file and generate a text file.
>>Example
>>Source file:
>>----------
>>Hi
>>I come from Rome, but I live in Turin
>>Bye
>>---------
>>Destination file
>>----------
>>HTML = ""
>>HTML = HTML & "Hi"
>>HTML = HTML & "I come from Rome, but I live in Turin"
>>HTML = HTML & "Bye"
>>---------
>>
>>but when I open the source file
>>and read each row for time
>>my program reads the sorce file so:
>>
>>Hi
>>I come from Rome
>>but I live in Turin
>>Bye
>>
>>With 4 rows instead of 3, it trasforms comma in EOL.
>>
>>My code:
>> While Not EOF(iFile)
>> Input #iFile, sRow
>> Call WorkOnIt(sRow)
>> Wend
>>
>>Someone can help me?
>>Tanks
>>
>>
>

[codemasterj]

You could also try using the FileSystemObject.
It's a bit more forgiving and comma delimiters are not
necessary as you can read line by line (each line
being terminated by a carriage return (chr(13)):

Set fs = ServerCreate("Scripting.FileSystemObject")
set file = fs.OpenTextStream("filename", ForReading)

HTML = ""

While not file.eof

set intext = file.ReadLine

if not file.eof then 'since we could hit the eof marker here

HTML = HTML & intext

end if

wend

file.close

set file = nothing
set fs = nothing


"Paolo" <p.dellaposta@reply.it> wrote:
>
>Hi
>I've this problem:
>I read a text file and generate a text file.
>Example
>Source file:
>----------
>Hi
>I come from Rome, but I live in Turin
>Bye
>---------
>Destination file
>----------
>HTML = ""
>HTML = HTML & "Hi"
>HTML = HTML & "I come from Rome, but I live in Turin"
>HTML = HTML & "Bye"
>---------
>
>but when I open the source file
>and read each row for time
>my program reads the sorce file so:
>
>Hi
>I come from Rome
>but I live in Turin
>Bye
>
>With 4 rows instead of 3, it trasforms comma in EOL.
>
>My code:
> While Not EOF(iFile)
> Input #iFile, sRow
> Call WorkOnIt(sRow)
> Wend
>
>Someone can help me?
>Tanks
>
>