HTML document tool

Hello!

No api calls today, but pure vb6. This tool "parses" html tags, then display them in a frame, you can edit their values one by one in a textbox. It also got some funky feature, you may find useful if you have to work with html documents.

Undercommented, not-so-well organized, but works just like it should. And its pure vb ^^

Ive done it in a couple of hours, but it was just 'nuff :sick: But, i'm still thinking on some better ways to do parsing html.

Anyway, have fun!

http://img81.imageshack.us/img81/1433/new5gh7.jpg

Note:
If you want to use this method in your code, to process html documents, you can simply replace the text1.selstart property, to a private or public variable, that is just used to store the string pointer.

just what i was looking for..great work..Jim Davis..let me check this one out..:)

You can use the algorithm of the Forward button, that will walk thru on each tags. But, it will skip <script> and <style> tags! That means, a <script src=".."> will not be replaced. Its better to replace the code that does the skip, also comment out the <style> things.

For example, this will look for all <!-- --> tags and skip their content. These are the standards that used inside the <script and <style tags, to comment out the content, but the content will be interpreted by the browser, just wont show them.

vb Code:

'in Private Sub cmdForward_Click() ...
If InStr(1, LCase(Mid$(sHTMLDocument, Text1.SelStart, lSelLength)), "<!--", vbTextCompare) > 0 Then
    lNewIndex = InStr(Text1.SelStart + lSelLength - 4, LCase(sHTMLDocument), "-->", vbTextCompare) + 3:
    If lNewIndex < (Text1.SelStart + lSelLength - 4) Then lNewIndex = 0
    GoTo ReCheck
End If
  
'  If InStr(1, LCase(Mid$(sHTMLDocument, Text1.SelStart, lSelLength)), "<style ", vbTextCompare) > 0 Or _
'    InStr(1, LCase(Mid$(sHTMLDocument, Text1.SelStart, lSelLength)), "<style>", vbTextCompare) > 0 Then
'    lNewIndex = InStr(Text1.SelStart + lSelLength - 9, LCase(sHTMLDocument), "</style>", vbTextCompare) + 9: GoTo ReCheck
'  End If

After this modification, you can use the algo to walk thru the tags, that there you can execute the replacement for each src (cmdAuto2) and href (cmdAuto3) properties.
You can also try to combine the algos of cmdAuto2 and cmdAuto3.