Translate simple code with C#6 syntax to Vb.Net

Question

Someone could help me to translate this simple snippet that uses the new C# 6 syntax, to Vb.Net?

The resulting LINQ query is incomplete (wrong syntax) when doing a translation in some online services like one from Telerik.

/// <summary>
///     An XElement extension method that removes all namespaces described by @this.
/// </summary>
/// <param name="this">The @this to act on.</param>
/// <returns>An XElement.</returns>
public static XElement RemoveAllNamespaces(this XElement @this)
{
    return new XElement(@this.Name.LocalName,
        (from n in @this.Nodes()
            select ((n is XElement) ? RemoveAllNamespaces(n as XElement) : n)),
        (@this.HasAttributes) ? (from a in @this.Attributes() select a) : null);
}

Reflector v9 does a very decent job decompiling this to VB. Just get your own copy. — Hans Passant, Jan 06 '16 at 17:01
This might work. [Convert Code](http://converter.telerik.com/) or get you pretty close. — JAZ, Jan 06 '16 at 18:10

score 2 · Answer 1 · answered Jan 06 '16 at 20:49

Including the xml comments, and correcting the 'RemoveAllNamespaces' error in the other answer, your VB equivalent is:

''' <summary>
'''     An XElement extension method that removes all namespaces described by @this.
''' </summary>
''' <param name="this">The @this to act on.</param>
''' <returns>An XElement.</returns>
<System.Runtime.CompilerServices.Extension> _
Public Function RemoveAllNamespaces(ByVal this As XElement) As XElement
    Return New XElement(this.Name.LocalName, (
        From n In this.Nodes()
        Select (If(TypeOf n Is XElement, RemoveAllNamespaces(TryCast(n, XElement)), n))),If(this.HasAttributes, (
            From a In this.Attributes()
            Select a), Nothing))
End Function

score 1 · Accepted Answer · answered Jan 06 '16 at 18:52

Give this a shot:

<System.Runtime.CompilerServices.Extension()> _
Public Function RemoveAllNamespaces(this As XElement) As XElement
    Return New XElement(this.Name.LocalName,
        (From n In this.Nodes
         Select (If(TypeOf n Is XElement, TryCast(n, XElement).RemoveAllNamespaces(), n))),
        If((this.HasAttributes), (From a In this.Attributes Select a), Nothing))
End Function

In case you'll be converting other code, here's the steps I took:

Added the Extension attribute, because VB does not have syntax like C# does for creating extension methods.
Replaced the C# ternary operator with VB If(condition, true, false).
Replaced C# casts with VB TryCast(object, type).
Replaced C# type checking with VB TypeOf object Is type.
Replaced C# null with VB Nothing.

Translate simple code with C#6 syntax to Vb.Net

2 Answers2