是否有一个朗-vb或朗-基本选项美化。js从谷歌吗?-Istherealang-vborlang-basicoptionforprettify.jsfromGoogle?

8  

/EDIT: I've rewritten the whole posting.

/编辑:我重写了整个帖子。

Below is a pretty complete solution to the VB highlighting problem. If SO has got nothing better, please use it. VB syntax highlighting is definitely wanted.

下面是对VB突出问题的一个非常完整的解决方案。如果没有更好的，请使用它。绝对需要VB语法高亮显示。

I've also added a code example with some complex code literals that gets highlighted correctly. However, I haven't even tried to get XLinq right. Might still work, though. The keywords list is taken from the MSDN. Contextual keywords are not included. Did you know the GetXmlNamespace operator?

我还添加了一个代码示例，其中包含一些正确突出显示的复杂代码文本。但是，我还没试过让XLinq正确。不过,可能仍然工作。关键词列表取自MSDN。不包含上下文关键字。您知道GetXmlNamespace操作符吗?

The algorithm knows literal type characters. It should also be able to handle identifier type characters but I haven't tested these. Note that the code works on HTML. As a consequence, &, are required to be read as named (!) entities, not single characters.

算法知道文字类型字符。它还应该能够处理标识符类型的字符，但我还没有对它们进行测试。注意，代码在HTML上工作。因此，&、 <和> 必须被读取为命名(!)实体，而不是单个字符。

Sorry for the long regex.

对不起，我的长正则表达式。

var highlightVB = function(code) {
    var regex = /("(?:""|[^"])+"c?)|('.*$)|#.+?#|(&[HO])?\d+(\.\d*)?(e[+-]?\d+)?U?([SILDFR%@!#]|&)?|\.\d+[FR!#]?|\s+|\w+|&|<|>|([-+*/\\^$@!#%&<>()\[\]{}.,:=]+)/gi;

    var lines = code.split("\n");
    for (var i = 0; i  1 && c1 == '.' && isDigit(tok.charAt(1)) ||
                        tok.length > 5 && (tok.indexOf("&") == 0 &&
                        tok.charAt(5) == 'H' || tok.charAt(5) == 'O')
                    )
                        result += span("number", tok);
                    else if (isKeyword(tok))
                        result += span("keyword", tok);
                    else
                        result += tok;
                    break;
            }
        }

        lines[i] = result;
    }

    return lines.join("\n");
}

var keywords = [
    "addhandler", "addressof", "alias", "and", "andalso", "as", "boolean", "byref",
    "byte", "byval", "call", "case", "catch", "cbool", "cbyte", "cchar", "cdate",
    "cdec", "cdbl", "char", "cint", "class", "clng", "cobj", "const", "continue",
    "csbyte", "cshort", "csng", "cstr", "ctype", "cuint", "culng", "cushort", "date",
    "decimal", "declare", "default", "delegate", "dim", "directcast", "do", "double",
    "each", "else", "elseif", "end", "endif", "enum", "erase", "error", "event",
    "exit", "false", "finally", "for", "friend", "function", "get", "gettype",
    "getxmlnamespace", "global", "gosub", "goto", "handles", "if", "if",
    "implements", "imports", "in", "inherits", "integer", "interface", "is", "isnot",
    "let", "lib", "like", "long", "loop", "me", "mod", "module", "mustinherit",
    "mustoverride", "mybase", "myclass", "namespace", "narrowing", "new", "next",
    "not", "nothing", "notinheritable", "notoverridable", "object", "of", "on",
    "operator", "option", "optional", "or", "orelse", "overloads", "overridable",
    "overrides", "paramarray", "partial", "private", "property", "protected",
    "public", "raiseevent", "readonly", "redim", "rem", "removehandler", "resume",
    "return", "sbyte", "select", "set", "shadows", "shared", "short", "single",
    "static", "step", "stop", "string", "structure", "sub", "synclock", "then",
    "throw", "to", "true", "try", "trycast", "typeof", "variant", "wend", "uinteger",
    "ulong", "ushort", "using", "when", "while", "widening", "with", "withevents",
    "writeonly", "xor", "#const", "#else", "#elseif", "#end", "#if"
]

var isKeyword = function(token) {
    return keywords.indexOf(token.toLowerCase()) != -1;
}

var isDigit = function(c) {
    return c >= '0' && c <= '9';
}

var getToken = function(tokens) {
    for (var i = 0; i " + text + "";
}

Code for testing:

代码测试:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    'set page title
    Page.Title = "Something"
    Dim r As String = "Say ""Hello"""
    Dim i As Integer = 1234
    Dim d As Double = 1.23
    Dim s As Single = .123F
    Dim l As LOng= 123L
    Dim ul As ULOng= 123UL
    Dim c As Char = "x"c
    Dim h As Integer = &H0
    Dim t As Date = #5/31/1993 1:15:30 PM#
    Dim f As Single = 1.32e-5F
End Sub

2  

Prettify does support VB comments as of the 8th of January 2009.

在2009年1月8日，“美化”确实支持VB的评论。

To get vb syntax highlighting working correctly you need three things;

要使vb语法高亮显示正确工作，您需要三件事;

and a PRE block around your code eg:

在你的代码周围加上一个预块。

 Function SomeVB() as string
   ' do stuff
   i = i + 1
 End Function

Stackoverflow is missing the lang-vb.js inclusion, and the ability to specify which language via Markdown, ie: class="prettyprint lang-vb" which is why it doesn't work here.

Stackoverflow缺少了lang-vb。js包含，以及通过Markdown指定哪一种语言的能力，即class="prettyprint lang-vb"，这就是为什么它在这里不起作用的原因。

for details on the issue: see the Prettify issues log

有关此问题的详细信息:请参阅“美化问题”日志

0  

In the meantime, you can put an extra comment character at the end of your comments to get it to look okay. For example:

与此同时，您可以在注释的末尾添加一个额外的注释字符，以使其看起来良好。例如:

Sub TestMethod()
    'Method body goes here'
End Sub

You also need to escape internal comment characters in the normal vb-fashion:

您还需要以正常的vb方式转义内部注释字符:

Sub TestMethod2()
    'Here''s another comment'
End Sub

Prettify still treats it as a string literal rather than a comment, but at least it looks okay.

beautitify仍然将它视为字符串文字，而不是注释，但至少看起来还不错。

Another method I've seen is to start comments with an extra '//, like this:

我看到的另一种方法是以一个额外的“//”开始评论，就像这样:

Sub TestMethod3()
    ''// one final comment
End Sub

Then it's handled like a comment, but you have to deal with C-style comment markers

然后像注释一样处理它，但是你必须处理c风格的注释标记