Еще один LINQ to XML (преобразование C# в VB.NET)

Question

Каков синтаксис VB.NET для них? Любая помощь в преобразовании будет принята с благодарностью.

        var defaultStyleName = (string)doc
            .MainDocumentPart
            .StyleDefinitionsPart
            .GetXDocument()
            .Root
            .Elements(w + "style")
            .Where(style =>
                (string)style.Attribute(w + "type") == "paragraph" &&
                (string)style.Attribute(w + "default") == "1")
            .First()
            .Attribute(w + "styleId");

        var q1 = doc
            .MainDocumentPart
            .GetXDocument()
            .Root
            .Element(w + "body")
            .Elements()
            .Select((p, i) =>
            {
                var styleNode = p
                    .Elements(w + "pPr")
                    .Elements(w + "pStyle")
                    .FirstOrDefault();
                var styleName = styleNode != null ?
                    (string)styleNode.Attribute(w + "val") :
                    defaultStyleName;
                return new
                {
                    Element = p,
                    Index = i,
                    StyleName = styleName
                };
            }
            );

        var q2 = q1
            .Select(i =>
            {
                string text = null;
                if (i.Element.Name == w + "p")
                    text = i.Element.Elements()
                        .Where(z => z.Name == r || z.Name == ins)
                        .Descendants(w + "t")
                        .StringConcatenate(element => (string)element);
                else
                    text = i.Element
                        .Descendants(w + "p")
                        .StringConcatenate(p => p
                            .Elements()
                            .Where(z => z.Name == r || z.Name == ins)
                            .Descendants(w + "t")
                            .StringConcatenate(element => (string)element),
                            Environment.NewLine
                        );

                return new
                {
                    Element = i.Element,
                    StyleName = i.StyleName,
                    Index = i.Index,
                    Text = text
                };
            }
            );

        var q3 = q2
            .Select(i =>
                new Commands.MatchInfo
                {
                    ElementNumber = i.Index + 1,
                    Content = i.Text,
                    Style = ContainsAnyStyles(GetAllStyleIdsAndNames(doc, i.StyleName).Distinct(), styleSearchString),
                    Pattern = ContainsAnyContent(i.Text, contentSearchString, regularExpressions, isRegularExpression, caseInsensitive),
                    IgnoreCase = caseInsensitive
                }
            )
            .Where(i => (styleSearchString == null || i.Style != null) && (contentSearchString == null || i.Pattern != null));
        return q3.ToArray();

c# vb.net .net-3.5 linq-to-xml lambda

0

23 Июн 2009 в 18:09

Answer 1

В этих случаях лучше использовать инструмент, а затем исправить то, что он пропустил. В этом случае я использовал преобразователь кода .net, чтобы получить этот результат. :

Dim defaultStyleName = DirectCast(doc.MainDocumentPart.StyleDefinitionsPart.GetXDocument().Root.Elements(w & "style").Where(Function(style) DirectCast(style.Attribute(w & "type"), String) = "paragraph" AndAlso DirectCast(style.Attribute(w & "default"), String) = "1").First().Attribute(w & "styleId"), String)

Dim q1 = doc.MainDocumentPart.GetXDocument().Root.Element(w & "body").Elements().[Select](Function(p, i) Do
    Dim styleNode = p.Elements(w & "pPr").Elements(w & "pStyle").FirstOrDefault()
    Dim styleName = If(styleNode IsNot Nothing, DirectCast(styleNode.Attribute(w & "val"), String), defaultStyleName)
    Return New ()
End Function)

Dim q2 = q1.[Select](Function(i) Do
    Dim text As String = Nothing
    If i.Element.Name = w & "p" Then
        text = i.Element.Elements().Where(Function(z) z.Name = r OrElse z.Name = ins).Descendants(w & "t").StringConcatenate(Function(element) DirectCast(element, String))
    Else
        text = i.Element.Descendants(w & "p").StringConcatenate(Function(p) p.Elements().Where(Function(z) z.Name = r OrElse z.Name = ins).Descendants(w & "t").StringConcatenate(Function(element) DirectCast(element, String)), Environment.NewLine)
    End If
    
    Return New ()
End Function)

Dim q3 = q2.[Select](Function(i) New Commands.MatchInfo()).Where(Function(i) (styleSearchString Is Nothing OrElse i.Style IsNot Nothing) AndAlso (contentSearchString Is Nothing OrElse i.Pattern IsNot Nothing))
Return q3.ToArray()

Опять же, код, вероятно, не идеален, но он должен помочь вам в 95% случаев. Компилятор должен помочь вам с остальным.

0

Andrew Hare 23 Июн 2009 в 18:13

Привет Андрей, спасибо за ответ. Великие умы думают одинаково, к сожалению, службы преобразования кода .net не подходят достаточно близко и не позволяют мне «изучить» сторону vb.net linq-to-xml, и время имеет существенное значение для преобразования этого.

–

Anonymous

23 Июн 2009 в 18:20

Я в замешательстве, если время имеет существенное значение, почему вы беспокоитесь о том, чтобы научиться конвертировать код?

–

Andrew Hare

23 Июн 2009 в 18:27

Потому что клиент настаивает только на VB. Хотел бы я, чтобы у меня был лучший ответ для вас, чем этот, лол!

–

Anonymous

23 Июн 2009 в 18:29

Answer 2

Для первого есть один способ переписать его на VB:

Dim defaultStyleName = (from style in _
    doc.MainDocumentPart.StyleDefinitionsPart.GetXDocument().Root.Elements(w & "style") _
    where style.Attribute(w & "type").Value = "paragraph" AndAlso _
          style.Attribute(w & "default").Value = "1" _
    select style).First().Attribute(w & "styleId").Value

Но это не так уж сильно отличается от того, что вы делаете в C#.

В VB.NET вы также можете использовать @ для атрибутов, как в style.@AttributeName, что дает вам строковое значение атрибута, но я не уверен, как это будет работать с вашими конкатенированными именами атрибутов.

Кроме того, к элементам можно получить доступ с помощью синтаксиса .<elementName>, но опять же, ваши объединенные имена могут не работать с этим.

Как правило, вызовы DirectCast, создаваемые онлайн-инструментами преобразования, могут быть устранены в VB.

Для отличного ознакомления с тем, как VB.NET выполняет LINQ to XML, ознакомьтесь с Серия видеороликов How Do I от Бет Масси.

0

CoderDennis 23 Июн 2009 в 20:14

Отличный видеоряд, он дал мне лучшее представление о том, как это делается. Теперь, конечно, я столкнулся с проблемой с этим конкретным фрагментом во втором Dim, куда он идет. p, i), но во что в этом случае превращается побитовый оператор?

–

Anonymous

23 Июн 2009 в 22:28

Я действительно не понимаю, что делают ваши лямбда-функции, но кажется, что должен быть синтаксис VB для ваших запросов q1, q2 и q3, который не использует лямбда-выражения и будет легче читать. Может быть, вы могли бы дать некоторые подробности о том, каким должен быть результат этих запросов.

–

CoderDennis

24 Июн 2009 в 02:45

Еще один LINQ to XML (преобразование C# в VB.NET)

2 ответа

Похожие вопросы

Новые вопросы

c#