vbnet 读取文本读取第二行2个数据存入一个数组 过滤制表符和空格 全局可以调用第2个数据

在VB.NET中，你可以使用StreamReader类来读取文本文件，并使用String.Split方法将每一行拆分为字符串数组。以下是一个示例代码，演示如何读取文本文件的第二行，并将其中的两个数据存入一个数组中：

Imports System.IO

Module Module1
    Public data As String

    Sub Main()
        Dim filePath As String = "C:\path\to\your\file.txt" ' 替换为你的文件路径

        ' 读取文本文件
        Using reader As New StreamReader(filePath)
            Dim lineCount As Integer = 0

            ' 逐行读取
            While Not reader.EndOfStream
                Dim line As String = reader.ReadLine()
                lineCount += 1

                ' 仅处理第二行
                If lineCount = 2 Then
                    ' 替换制表符和空格
                    line = line.Replace(vbTab, "").Replace(" ", "")

                    ' 拆分为数组
                    Dim dataArray As String() = line.Split(","c)

                    ' 存储第二个数据到全局变量
                    If dataArray.Length >= 2 Then
                        data = dataArray(1)
                    End If

                    Exit While
                End If
            End While
        End Using

        ' 调用第二个数据
        Console.WriteLine("第二个数据: " & data)
        Console.ReadLine()
    End Sub
End Module

在这个示例中，我们使用StreamReader打开文本文件，并使用ReadLine方法逐行读取文件内容。当读取到第二行时，我们将其中的制表符和空格替换掉，并使用Split方法将其拆分为一个字符串数组dataArray。然后，我们将第二个数据存入全局变量data中。

最后，我们输出并调用全局变量data的值。请确保将filePath变量替换为你的文本文件的实际路径