Add to HTML code using Excel userform

[Ray Storm]

Hello everyone,

I have been working on an excel userform that takes input and generates some javascript code. I have been successful in outputting this code to a new .txt file with shell Notepad.

I would like instead to add the text that the userform generates into an existing HTML document between the <script type = "text/javascript"> </script> tags at a specific line. I am not quite sure how I may be able to accomplish this.

Private Sub CommandButton1_Click()

Dim contNum As String
/* I declared the string variables here to which I assigned the contentBox.value */

Dim quote As String
Dim filePath As String

contNum = ContentNumber.Value
/* I assigned the values here */

filePath = "C:\Users\....\Debug Copy.html"
quote = Chr(34)

My initial code when I was creating a new txt file was
Open "tempcode.txt" For Output As #1

Print #1 ".... etc etc etc"

Since I need instead to modify my own existing .html I have been rather lost on how I may do this. I have tried Open filePath For Append As #1 but it does not seem to be ok. I would appreciate any suggestions as I am rather new to VBA. Thank you!

[Bernie Deitrick]

Try code like this: you don't say how to determine what your specific line is, but this should give you an idea of how to make the new file - you can kill the old one and rename the new one, too....

Please Login or Register  to view this content.

[Ray Storm]

Thank you for the reply! and sorry for not being detailed in how to determine where to place the generated code.

I am trying to understand how your code functions. So the second free filenumber is an empty temp file that is populated by only "<script type = ""text/javascript"">" & contNum & "</script>" correct? Or was the existing file duplicated?
The userform only generates a small portion of code that belongs in a line that perhaps I can have user specify. I hope I can keep the original code just add on to it. Can I maybe do something like this?

*did not declare all variables
Dim userVal As integer

userVal = UserVal.Value

Open "C:\Users\....\Debug Copy.html" For Input As #1
strFinal = "</html>"

While EOF(1) = False

Line Input #1, strLine
strFinal = strFinal + ModifyColumnUser(strLine)

Wend
strFinal = Left(strFinal, Len(strFinal) - (userVal - 1))

Close #1

after incorporating the file create that you showed? I am just trying to ask if it is viable. Thank you again!

[Bernie Deitrick]

Everything in the existing file is duplicated, except your placeholder is replaced with the value inserted.

A better approach would be to have entries like this in your original file:

<script type = "text/javascript">contNumGoesHere</script>
...
<script type = "text/javascript">OtherInfoGoesHere</script>

then use this in place of the original loop

Please Login or Register  to view this content.

[Ray Storm]

The userform is essentially adding a new object with its respective properties; thus each entry adds ~30 lines to the code between the <script> tags after some initialization code. That is why I think I need to specify where the code must be inserted. Thank you for the help; it is a great starting point!

[Bernie Deitrick]

Use the placeholder method - adding 30 lines is as easy as changing one word into 30 lines....

[Ray Storm]

By placeholder method you mean how in your example you used the Replace (arg) to add in the contNum right?

[Bernie Deitrick]

Yes - for example, build up the string anyway you need

Please Login or Register  to view this content.

and then use this to place that where the text TablePlaceHolder appears in your file:

Please Login or Register  to view this content.

[Ray Storm]

Thank you so much