Jag måste ta reda på var någonstans taggen <BODY> finns i en HTML-fil, som är innladda i Text1.text.Leta efter text i textbox
Om taggen enbart är skrivet som <BODY>, då har jag inga problem, problem är om
det står någonting mera.
Jag försöker så här:
<code>
s = "<body">
l = InStr(LCase(Text1.text), s)
If l = 0 Then ' 1st spot is string is 1. 0 means "not found"
MsgBox "Hittade ingenting."
Else
MsgBox "Hittat texten"
Text1.SetFocus
Text1.SelStart = l - 1 ' 1st spot for selected text is numbered 0
Text1.SelLength = Len(s) - 1
End If
'Om jag skriver så här, så är det inga problem, men om
'"<BODY OnLoad osv> då hittas den inte."
'Jag försökte att göra så här:
& "*" & ">"
</code>
Men det tycker han inte om.
När sedan har hittat taggen, så skulle jag vilja, att efter taggen så skulle det vara ett radbyte, och sedan ville jag få in några rader, ung som nedan:
<code>
Dim strNewText As String, s As String, l As Long
With Text1
strNewText = "<!--#include file ="common-lib.asp"-->" & vbCrLf
.SelText = vbNewLine & strNewText
End With
</code>
Hur gör jag detta?