另一个LINQ (C#到VB.NET的转换)
另一个LINQ (C#到VB.NET的转换)
提问于 2009-06-23 14:09:21
它们的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();回答 2
Stack Overflow用户
发布于 2009-06-23 14:13:33
在这些情况下，最好使用一个工具，然后修复工具遗漏的任何东西。在本例中，我使用.net code converter获得以下结果：
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%的目标。编译器应该会帮助你完成剩下的工作。
Stack Overflow用户
发布于 2009-06-23 15:15:28
对于第一个，这里有一种用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>语法访问元素，但同样，您的连接名称可能不适用于该语法。
一般情况下，在VB中可以消除在线转换工具产生的DirectCast调用。
有关VB.NET如何使用LINQ to XML的详细介绍，请查看How Do I video series by Beth Massi。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/1032788
复制相关文章
相似问题
腾讯云开发者
