Thread: Modifying .txt file using Excel VBA

Hi there.

I am using excel VBA to launch another software using a journal file (which
is a text file). However, before I launch I sometimes want to modify some of
the information in the text file. I have written some VBA code to read the
original journal file and then printing a new text file at the same time.
When certain variables are read in I substitute the value that is printed in
the new file. This all works well and below is an example of my code.

Open filename For Input Access Read As #2
Open tempfile For Output As #3

While Not EOF(2)

Input #2, slask

If slask = "; Zero Shear Visc visc0" Then
Print #3, slask
Input #2, slask
Print #3, visc0_1
'Print #3, ";;;"
Input #2, slask
End If


If slask = "; Inf Shear Visc viscinf" Then
Print #3, slask
Input #2, slask
Print #3, viscinf1
Input #2, slask
End If

Print #3, slask
Wend

'Print #3, ";;;"
Close #2
Close #3

Name filename As filenamenew
Name tempfile As filename

I am very new at this so I am not really sure how the input and output
works, but I have found that using this method the new file that is printed
leaves out some vital characters such as ". I am reading in the word
"laminar" from the input file but the printed output reads laminar without
the ". Unfortunately I really need my " to be printed to the for the journal
file to work as it should. Any suggestions?

Thank you!

if you want to include a double quote within a string, you need to double the
double quote. So to get "Laminar"

s = """laminar"""
? s
"laminar"

(demo'd from the immediate window)

--
Regards,
Tom Ogilvy


"Chandee3" wrote:

> Hi there.
>
> I am using excel VBA to launch another software using a journal file (which
> is a text file). However, before I launch I sometimes want to modify some of
> the information in the text file. I have written some VBA code to read the
> original journal file and then printing a new text file at the same time.
> When certain variables are read in I substitute the value that is printed in
> the new file. This all works well and below is an example of my code.
>
> Open filename For Input Access Read As #2
> Open tempfile For Output As #3
>
> While Not EOF(2)
>
> Input #2, slask
>
> If slask = "; Zero Shear Visc visc0" Then
> Print #3, slask
> Input #2, slask
> Print #3, visc0_1
> 'Print #3, ";;;"
> Input #2, slask
> End If
>
>
> If slask = "; Inf Shear Visc viscinf" Then
> Print #3, slask
> Input #2, slask
> Print #3, viscinf1
> Input #2, slask
> End If
>
> Print #3, slask
> Wend
>
> 'Print #3, ";;;"
> Close #2
> Close #3
>
> Name filename As filenamenew
> Name tempfile As filename
>
> I am very new at this so I am not really sure how the input and output
> works, but I have found that using this method the new file that is printed
> leaves out some vital characters such as ". I am reading in the word
> "laminar" from the input file but the printed output reads laminar without
> the ". Unfortunately I really need my " to be printed to the for the journal
> file to work as it should. Any suggestions?
>
> Thank you!