View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Chandee3 Chandee3 is offline
external usenet poster
 
Posts: 3
Default 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!