Question

我正在尝试将此代码从C＃转换为VB。试图使用第三方工具，但没有成功。有人可以帮助我。谢谢

private static string RemoveInvalidHtmlTags(this string text)
{
    return HtmlTagExpression.Replace(text, new MatchEvaluator((Match m) =>
    {
        if (!ValidHtmlTags.ContainsKey(m.Groups["tag"].Value))
            return String.Empty;

        string generatedTag = String.Empty;

        System.Text.RegularExpressions.Group tagStart = m.Groups["tag_start"];
        System.Text.RegularExpressions.Group tagEnd = m.Groups["tag_end"];
        System.Text.RegularExpressions.Group tag = m.Groups["tag"];
        System.Text.RegularExpressions.Group tagAttributes = m.Groups["attr"];

        generatedTag += (tagStart.Success ? tagStart.Value : "<");
        generatedTag += tag.Value;

        foreach (Capture attr in tagAttributes.Captures)
        {
            int indexOfEquals = attr.Value.IndexOf('=');

            // don't proceed any futurer if there is no equal sign or just an equal sign
            if (indexOfEquals < 1)
                continue;

            string attrName = attr.Value.Substring(0, indexOfEquals);

            // check to see if the attribute name is allowed and write attribute if it is
            if (ValidHtmlTags[tag.Value].Contains(attrName))
                generatedTag += " " + attr.Value;
        }

        // add nofollow to all hyperlinks
        //if (tagStart.Success && tagStart.Value == "<" && tag.Value.Equals("a", StringComparison.OrdinalIgnoreCase))
        //    generatedTag += " rel=\"nofollow\"";

        if (tag.Value.ToString() == "object")
        {
            generatedTag += (tagEnd.Success ? " height=\"374\" width=\"416\"" + tagEnd.Value : ">");
        }
        else
        {
            generatedTag += (tagEnd.Success ? tagEnd.Value : ">");
        }


        return generatedTag;
    }));
}

Answer 1

转换此代码的问题是您有一个带有多行语句正文的lambda表达式：

(Match m) =>
{
    ...a lot of code
}

由于VB9不支持这一点，你需要将代码放在括号中代替它自己的函数：

Private Function GetValue(m As Match) As String
   ....a lot of code
End Function

然后你的RemoveInvalidHtmlTags代码将如下所示：

Return HtmlTagExpression.Replace(text, new MatchEvaluator(AddressOf GetValue))

您可以使用免费工具翻译其余代码。

Answer 2

你试过这个free tool吗？

从C＃转换为VB的问题

2 个答案: