T4模板Linq无法正常工作

时间:2017-01-12 11:56:54

标签: .net vb.net linq t4

我尝试在VB.NET中使用T4模板 出于测试目的,我在Visual Studio 2015中创建了一个控制台项目。 并添加了.tt文件,其中包含以下代码:

    <#@ template debug="true" hostspecific="true" language="VB" #>
<#@ output extension=".vb" #>

<#@ assembly name="System.Windows.Forms" #>    
<#@ assembly name="System.Core" #>    
<#@ assembly name="System.Xml" #>    
<#@ assembly name="System.Xml.Linq" #>    
<#@ assembly name="System.Linq" #>    
<#@ assembly name="System.Data.Linq" #>

<#@ import namespace="System.Resources" #>
<#@ import namespace="System.IO" #>
<#@ import namespace="System.ComponentModel.Design" #>
<#@ import namespace="System.Xml.Linq" #>
<#@ import namespace="System.Text" #>
<#@ import namespace="System.Collections.Generic" #>
<#@ import namespace="System.Text.RegularExpressions" #>
<#@ import namespace="System.Core" #> 
<#
    Dim myNameSpace As String = "Errors"
    Dim myClassName As String = "GetErrors"
    Dim myTypeOfResourceManager As String = "[Enums].TypeOfResourceManager.Test"
    Dim myResourcePath As String = "Resource"

    Dim myFileName As String = "Test.resx"
    Dim myFilePath As String = Path.Combine(Path.GetDirectoryName(Me.Host.ResolvePath("")), myResourcePath, myFileName)
    Dim myReader= New ResXResourceReader(myFilePath)

    myreader.UseResXDataNodes = true
    Dim myDateTime As String  = Date.Now.ToString

    Dim myProperties As String()
    Dim myProperty As String

    Dim doc = XDocument.Load(myFilePath)

    Dim myEntries  = From d As XElement In doc.Root.Elements("data")
                        Select New With {
                           Key .Name = d.Attribute("name").Value, _
                           Key .Value = d.Element("value").Value, _
                           Key .Comment = d.Element("comment").Value}

#>

问题是,我总是得到错误:

  

严重级代码描述项目文件行抑制状态   错误编译转换:表达类型&#39;对象&#39;不是   可查询。确保您没有错过装配参考和/或   LINQ提供程序的名称空间导入。

我从MS找到了这个信息:

  

https://msdn.microsoft.com/us-en/library/bb763092(v=vs.110).aspx

但我做了所有的进口。 我错过了什么? - 请帮忙 - THX

最有趣的事情是:我有here

的想法

当我将此C#模板复制到我的项目中时,它可以正常工作。但是使用类似的VB.NET版本,我得到了上述错误......

1 个答案:

答案 0 :(得分:1)

添加:

foreach ($values as $value){
    switch ($value){
            case 0:
                //make relative change;
                break;
            case 1:
                //make relative change;
                break;
            case 2:
                //make relative change;
                break;
        }

我认为其余的都很好。