我在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);
}
答案 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()