在线代码编辑器

• 下载源代码 - 84 KB

引言

使用在线代码编辑器，您可以在线编辑您的代码。它允许编写格式良好的源代码，并具有行号枚举、制表符支持、搜索和替换（支持正则表达式）以及实时语法高亮显示（可自定义）功能。

背景

在线代码编辑器基于 EditArea，一个由 Christophe Dolivet 创建的免费 JavaScript 源代码编辑器。我们添加了一个文件浏览器来操作文件（加载和保存）。文件浏览器基于树形结构，类似于 MS Explorer。树形结构的脚本代码由 Geir Landrö 创建。

使用代码

您只需将一个页面和一个目录上传到您的服务器，然后就可以浏览和编辑文件。

关注点

这是递归目录脚本

Sub RecursiveDir(ByVal Root As String, ByVal pID As Integer, _
                 ByVal ListFiles As Boolean)
    Dim Folder As New DirectoryInfo(Root)
    Dim SubFolder As DirectoryInfo
    Dim File As FileInfo
    For Each SubFolder In Folder.GetDirectories
        iID = iID + 1
        If LCase(SubFolder.Name) <> "_codeedit" Then
            Response.Write("d.add(" & iID & ", " & pID & _
                           ",""" & SubFolder.Name & _
                           """);" & vbLf)
        Call RecursiveDir(Root & "\" & SubFolder.Name, iID, ListFiles)
    Next

    If ListFiles Then
        For Each File In Folder.GetFiles("*.*")
            iID = iID + 1 If LCase(File.Name) <> "_codeedit.aspx" Then_
             Response.Write("d.add(" & iID & "," & _
                pID & ",""" & File.Name & _
                """,""_codeedit.aspx?side=right&screenwidth=" & _
                Trim(Request("screenwidth")) & "&screenheight=" & _
                Trim(Request("screenheight")) & "&file=" & _
            Server.UrlEncode(Root & "\" & File.Name) & """);" & vbLf)
        Next
    Else
        Response.Write("d.icon.node =""_CodeEdit/images/folder.gif"";" & vbLf)
    End If
End Sub

历史

这是一个粗略的版本。我们计划很快对其进行更新。请访问 我们的网站 以获取任何更新的消息。