我定义了一个list ,
jwdfile="d:\jwd.csv" '包含站号,经度,维度,海拔 的文件
ss = File.ReadAllLines(jwdfile)
jwalist = ss.ToList()
比如站号=“54602”
我想快速找到jwalist中等于此站号的行,如何编写?
可以用linq的where查找。有帮助麻烦点个采纳【本回答右上角】,谢谢~~
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Linq" %>
<%
Dim jwdfile = Server.MapPath("jwd.csv")
Dim ss = File.ReadAllLines(jwdfile, Encoding.UTF8)
Dim jwalist = ss.Select(Function(v) v.Split(",")) '拆开每行字符为数组
Dim no = "54602" '要查的站号
Dim item = jwalist.Where(Function(v) v(0) = no).FirstOrDefault()
If item Is Nothing Then
Response.Write("找不到站号为" & no & "的记录<BR>")
Else
Response.Write(String.Join(",", item) & "<BR>")
End If
no = "5460211" '要查的站号
item = jwalist.Where(Function(v) v(0) = no).FirstOrDefault()
If item Is Nothing Then
Response.Write("找不到站号为" & no & "的记录<BR>")
Else
Response.Write(String.Join("<BR>", item))
End If
%>