我怎樣才能使用這個代碼？
TextBox1.Text = Array.FindIndex(linestring, Function(s) s.Contains(something))
但是要使用代碼，一言不發，并按照以下代碼顯示我的陣列索引：
Dim lines As New List(Of String)
Using reader As New StreamReader(My.Application.Info.DirectoryPath ("\Data.txt"))
Dim line As String
Do Until line.StartsWith(endPrefix)
lines.Add(line)
line = reader.ReadLine()
'maybe here index of array
Loop
那么如何使用它從我的文本檔案中獲取行索引？
uj5u.com熱心網友回復：
這是一個使用File.ReadLines方法（列舉檔案的行）的示例，您可以在其中傳遞謂詞進行比較以獲取第一個匹配項的行號（從 1 開始）：
Imports System.IO
Module Module1
Function FindLineNumber(sourceFile As String, textToFind As String, predicate As Func(Of String, String, Boolean)) As Integer
Dim lineNo = 1
For Each l In File.ReadLines(sourceFile)
If predicate(l, textToFind) Then
Return lineNo
End If
lineNo = 1
Next
Return -1
End Function
Sub Main()
' File to look in:
Dim src = "C:\temp\population.csv"
' Text to find:
Dim find = "133"
Dim lineNum = FindLineNumber(src, find, Function(a, b) a.Contains(b))
If lineNum > 0 Then
Console.WriteLine($"""{find}"" found at line {lineNum}.")
Else
Console.WriteLine($"""{find}"" not found.")
End If
Console.ReadLine()
End Sub
End Module
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/343689.html
標籤：网络
上一篇：從兩個不同的資料集中減去列