Syntax highligt

http://www.linux-community.de/Neues/story?storyid=1653
http://p2p.wrox.com/archive/pro_jsp/2001-04/45.asp
http://web.ff.cuni.cz/~prantl/editpad/welcome.php?ferda=1&left_panel=1

Det var hvad jeg lige kunne finde

93 HTML-editorer:

http://www.planetsourcecode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&lngWId=1&B1=Quick+Search&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&txtCriteria=html+editor

PHP er straks værre ;-)

/tjacob

-Beklager det lange link.

En fed ocx-file "cmax20.ocx" kan alt hvad man skal bruge for at lave en editor.

som default:
C/C++
Basic
Java
Pascal
SQL
HTML
XML

du kan også lave dine egne tags.

Den skulle høre hjemme her, men link virker ikke http://www.winmain.com/
http://www.csee.wvu.edu/~scharf/appstuff/hwplugin.html

Se også her:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=24841&lngWId=1

shj >>>
Det ser virkelig fedt ud :-)

Du snakker om at man kan lave sine egne tags. Jeg er lidt i tvivl om hvad du mener.

jesper bliver rød!
<jesper></jesper>

;-)

eller som i php, start commando "<?" og slut commando "?>" alt hvad du skriver indenfor <? og ?> bliver gult.

'eksempel til ASP

HUSK "cmax20.ocx"
'-------------------- Form1 --------------------
Option Explicit

Public Function AspLanguage(ByVal CodeMax As CodeMaxCtl.ICodeMax)
Dim lang As CodeMaxCtl.Language
Dim globals As CodeMaxCtl.globals
Set lang = New CodeMaxCtl.Language
Set globals = New CodeMaxCtl.globals

Dim m_TagElementNames, m_Operators, m_Keywords, m_TagAttributeNames, m_TagEntities, Tag, MyObject

    m_TagAttributeNames = Array("accept", "accept-charset", "accesskey", "action", "align", "alink", "alt", "archive", "axis", "background" _
                              , "bgcolor", "border", "bottommargin", "cellpadding", "cellspacing", "char", "charoff", "charset", "checked", "cite", "class", "classid", "clear", "code", "codebase" _
                              , "codetype", "color", "cols", "colspan", "compact", "content", "coords", "data", "datetime", "declare", "defer", "dir" _
                              , "disabled", "disables", "emphasis", "enctype", "f", "face", "fieldset", "frame", "frameborder", "headers" _
                              , "height", "href", "hreflang", "hspace", "http-equiv", "id", "ismap", "label", "lang", "language", "leftmargin", "link", "longdesc", "marginheight" _
                              , "marginwidth", "maxlength", "media", "method", "multiple", "name", "nohref", "noresize", "noshade", "nowrap", "onblur" _
                              , "onchange", "onfocus", "onkeydown", "onkeyup", "onload", "onmousedown", "onmousemove", "onmouseout", "onmouseover", "onmouseup" _
                              , "onreset", "onselect", "onsubmit", "onunload", "profile", "prompt", "readonly", "rel", "rightmargin" _
                              , "rev", "rows", "rowspan", "rules", "scheme", "scope", "scrolling", "selected", "shape", "size", "span", "src", "standby", "start" _
                              , "style", "summary", "tabindex", "target", "text", "title", "topmargin", "type", "usemap", "valign", "value", "valuetype", "version" _
                              , "vlink", "vspace", "width")

    m_TagElementNames = Array("a", "abbr", "acronym", "address", "applet", "area", "b", "base", "basefont", "bdo", "big", "blockquote", "body" _
                            , "br", "button", "caption", "center", "cite", "code", "col", "colgroup", "dd", "del", "dfn", "dir", "div", "dl", "dt" _
                            , "em", "fieldset", "font", "form", "frame", "frameset", "h1", "h2", "h3", "h4", "h5", "h6", "head", "hr", "html", "i", "iframe", "img" _
                            , "input", "ins", "isindex", "kdb", "label", "legend", "li", "link", "map", "menu", "meta", "noframes", "noscript" _
                            , "object", "ol", "optgroup", "option", "p", "param", "pre", "q", "s", "samp", "script", "select", "small", "span" _
                            , "strike", "strong", "style", "sub", "sup", "table", "tbody", "td", "textarea", "tfoot", "th", "thead", "title" _
                            , "tr", "tt", "u", "ul", "var", "!ELEMENT", "!ATTLIST", "!DOCTYPE", "!ENTITY", "PUBLIC", "#IMPLIED", "#PCDATA", "PCDATA", "EMPTY", "CDATA", "#REQUIRED", "!NOTATION", "#FIXED", "ANY")

    m_TagEntities = Array("") 'Array("Request", "Server", "Response", "vbNewLine", "vbCrLf")
    m_Operators = Array("") 'Array("In", "Each", "Chr", "Chr$", "(", ")", "Replace", "OpenTextFile", "Function", "Sub", "End", "Dim", "For", "To", "Next", "Then", "Exit", "Do", "Loop", "And", "Else", "Select", "Case", "Step", "Mid", "Left", "Right", "If", "Set", "MapPath", "ScriptTimeout", "CreateObject", "HTMLEncode", "URLEncode", "URLPathEncode", "Write", "Clear", "Close", "Form", "QueryString", "ServerVariables")
    m_Keywords = Array("In", "Each", "Chr", "Chr$", "(", ")", "Replace", "OpenTextFile", "Function", "Sub", "End", "Dim", "For", "To", "Next", "Then", "Exit", "Do", "Loop", "And", "Else", "Select", "Case", "Step", "Mid", "Left", "Right", "If", "Set", "MapPath", "ScriptTimeout", "CreateObject", "HTMLEncode", "URLEncode", "URLPathEncode", "Write", "Clear", "Close", "Form", "QueryString", "ServerVariables")

'Keywords
    For Each MyObject In m_Keywords
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.Keywords = Tag: Tag = ""

'TagElementNames
    For Each MyObject In m_TagElementNames
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.TagElementNames = Tag: Tag = ""

'Operators
    For Each MyObject In m_Operators
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.Operators = Tag: Tag = ""

'TagAttributeNames
    For Each MyObject In m_TagAttributeNames
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.TagAttributeNames = Tag: Tag = ""

'TagEntities
    For Each MyObject In m_TagEntities
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.TagEntities = Tag: Tag = ""

      lang.SingleLineComments = "'" + Chr(10)

      lang.MultiLineComments1 = "<!--" + Chr(10)
      lang.MultiLineComments2 = "-->" + Chr(10)

      lang.ScopeKeywords1 = "<" + Chr(10) + "<%" + Chr(10)
      lang.ScopeKeywords2 = ">" + Chr(10) + "%>" + Chr(10)
 
      lang.StringDelims = Chr$(34) + Chr(10)

      lang.Style = cmLangStyleSGML

Call globals.RegisterLanguage("ASP", lang)
Set globals = Nothing
Set lang = Nothing
End Function

Private Sub Form_Load()
  Call AspLanguage(CodeMax1)
End Sub
'-------------------- Form1 --------------------

:-)

Tak for point.