HTML Editor: does anyone want to give me a hand in making one?

[Tom_H]

Hi,

I am currently making a new freeware HTML Editor (not WYSISYG), and I was wondering if anyone would like to give me a hand in making it? If you do please e-mail me.

Also I would like to know what features webmasters would want in an editor. Please tell me your favourite features of your current editor, or new features that you would like to see. You can either post them here.

You can download an early version of the editor from:
http://web.ukonline.co.uk/tomh/htmled.zip
Or you look at a screenshot of v2 of the editor (which I've only just started, so its a bit plain at the moment):
http://web.ukonline.co.uk/tomh/htmledv2.gif

Cheers,

Tom
[email protected]

[Adriaan]

Hello Tom,

I have seen your program, and i have a question.
I'm also writing a small program and i need to save a HTML file as a text file. Can you please give me the piece of code you used in your program to convert HTML to TEXT ? I have tryed a lot, but i dont know how i can do this.

Thanks,
Adriaan.
([email protected])

[rsitogp]

Adriaan, I just posted on your thread, look.

[rsitogp]

I'de be glad to help, do you icq? pm me with info.

[jon_davis24]

Hi!

I might be going on about something totally different here, Adriann, but if you want to save HTML source code as a .txt file, just change the extension in the common-dialog box to .txt instead of .htm or .html.


Let me know if that's what you wanted...


JD

[Tom_H]

Just to say that my mail server has been down for a while, so if anybody has e-mailed me I wouldn't of got it, so could you please post it here or mail me at [email protected]. Thanks.

Adriaan, the code that I used to convert HTML to TEXT is:

in a module:

Option Explicit

Type tag
    Text As String
    start As Double
    length As Double
End Type

Public Function StripHTML(HText$) As String
Dim T$
Dim is_tag%, Result$, i%
    ' Now scan the entire string to find the "<"'s and the ">"'s.
    T$ = HText$
    For i% = 1 To Len(T$)
       Select Case Mid$(T$, i%, 1)
          Case "<"
             is_tag% = True
          Case ">"
             is_tag% = False
          Case "&"
               Dim nt$
               nt = Mid$(T$, i%, 6)
               If LCase(nt) = "&nbsp;" Then
                   Result$ = Result$ & " "
                   i = i + 5
               ElseIf LCase(nt) = "&copy;" Then
                   i = i + 5
                   Result$ = Result$ & "(C)"
               ElseIf LCase(nt) = "&quot;" Then
                   i = i + 5
                   Result$ = Result$ & Chr$(34)
               ElseIf Left$(LCase(nt), 5) = "&amp;" Then
                   i = i + 4
                   Result$ = Result$ & "&"
               ElseIf Left$(LCase(nt), 4) = "&lt;" Then
                   i = i + 3
                   Result$ = Result$ & "<"
               ElseIf Left$(LCase(nt), 4) = "&gt;" Then
                   i = i + 3
                   Result$ = Result$ & ">"
               End If
          Case Else
             If Not is_tag% Then Result$ = Result$ & Mid$(T$, i%, 1)
       End Select
    Next
    
    StripHTML = Result$
End Function

in the form:

Private Sub mnuToolsConvertHtml2Txt_Click()
On Error Resume Next
rchEditor.Visible = False
Screen.MousePointer = vbHourglass
rchEditor.Text = StripHTML(rchEditor.Text)
mnuEditSelectAll_Click
rchEditor.SelColor = vbBlack
rchEditor.Visible = True
Screen.MousePointer = vbNormal
frmEditor.SetFocus
End Sub

Private Sub mnuEditSelectAll_Click()
rchEditor.SelStart = 0
rchEditor.SelLength = Len(rchEditor.Text)
End Sub

You'll probably have to adjust this a bit for your use.

rsitogp I will mail you tonight with the info.

Cheers,

Tom

[sail3005]

Thats a cool editor. Maybe one thing you could do is have like tabs so that you could very quickly switch between two different files.

[Adriaan]

Thanks to all.
The code works great, thanks.

[Tom_H]

Does anybody else want to help???

Also if anybody has e-mailed me already, can you please send it again but this time to [email protected] because I am having problems with my other account at the moment.

Thanks,

Tom

[Hearty]

Hi, sorry that I answered that late, but I was not online at vb-world.net for years, so I never checked this forums, too. If you still need help, contact me.

[sail3005]

They probably finished or gave up by now

[Tom_H]

no we havn't finished or gave up, actually things are going great! its just i havn't checked this thread for ages, sorry! Heartly i have emailed you, thanks for offering your help and i hope that you're still interested! anyone else will be welcome to join with my little project (i'll try and check this thread more often!)

cheers,

Tom
[email protected]