将c#linq语句转换为vb.net

时间:2015-06-01 06:14:28

标签: c# vb.net linq

我在C#中使用linq的代码,它在C#中运行良好,但我需要转换 现在vb的代码,我不是很擅长vb。 我尝试过使用一些免费的在线转换器和我发现的一些程序,但没有一个工作,我试着看看如何做到这一点,但没有答案为我工作所以如果有人可以帮助我会很好

我的代码的linq部分看起来像这样:

<%@page import="unimb.praktikum.Baza"%>
<%@page import="java.util.ArrayList"%>
<%@ page language="java" contentType="text/html; charset=UTF-8"
    pageEncoding="UTF-8"%> 

     <!DOCTYPE html>
        <html>
        <head>

        <!-- editor -->

        <meta charset="utf-8">
        <meta http-equiv="X-UA-Compatible" content="IE=edge">
        <meta name="viewport" content="width=device-width, initial-scale=1">

        <link href="editor/lib/css/bootstrap.min.css" rel="stylesheet"
            type="text/css" />

    <link rel="stylesheet" type="text/css" href="editor/lib/css/prettify.css" />

    <link rel="stylesheet" type="text/css" href="editor/src/bootstrap-wysihtml5.css" />


        <!-- web page -->

        <title>Generator izpitov</title>

        <meta name="viewport" content="width=device-width, initial-scale=1.0">

        <link href="css/bootstrap.min.css" rel="stylesheet" media="screen">
        <link
            href="https://gitcdn.github.io/bootstrap-toggle/2.2.0/css/bootstrap-toggle.min.css"
            rel="stylesheet">

        <!--web Bootstrap -->
        <style>
        body {
            padding-top: 50px;

        </head>

        <!-- ect... -->

        <body>

                            <!-- editor -->

                            <div class="col-md-5">

                                <textarea id="koda" class="textarea"
                                    style="width: 100%; height: 300px;"></textarea>
                            </div>

                        </div>

                    </div>
                </form>
            </div>

        </body>

非常感谢谁帮助了我。

编辑 我尝试过(我在网上或某些免费转换器中找到的)

var query = from log in wts
            join user in share on log.Substring(51, log.Length - 51).TrimEnd(trim).ToLower() equals user.Substring(0, user.IndexOf("    ")).TrimEnd(trim).ToLower()
            select new { log, user };
foreach (var lognum in query)
{

    lines.Add(lognum.log + lognum.user);
}

1 个答案:

答案 0 :(得分:0)

Dim query = From log In wts
            Join user In share
            On log.Substring(51, log.Length - 51).TrimEnd(trim).ToLower() Equals user.Substring(0, user.IndexOf(vbTab)).TrimEnd(trim).ToLower()
            Select log & user

或使用扩展方法

Dim query = wts.Join(share,
                     Function(log) log.Substring(51, log.Length - 51).TrimEnd(trim).ToLower(),
                     Function(user) user.Substring(0, user.IndexOf(vbTab)).TrimEnd(trim).ToLower(),
                     Function(log, user) log & user)

如果示例中的lines类型为List(Of String),则将查询转换为列表

Dim lines As List(Of String) = query.ToList()