Question

我在记事本中有一些数据。我正在读取数据并写入TextBox。但我想采取一些必要的价值。数据逐行保存，每个值用逗号分隔。经度和纬度都在里面。我可以从textBox中取出它还是用它？

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("E:\Satyajit\Newfolder\13-05-2015.txt")
TextBox1.Text = fileReader

提出任何想法?????我想不到

Answer 1

您可以尝试将文件阅读器字符串拆分为多个部分，然后使用contains查看它是否具有您要查找的经度值：

    TextBox1.Clear()
    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText("E:\Satyajit\Newfolder\13-05-2015.txt")
    Dim SplitLines = Split(fileReader, vbCrLf)
    For Each SplitLine In SplitLines
        If SplitLine.Contains("Longitude: ") Or SplitLine.Contains("Latitude: ") Then
            TextBox1.Append(SplitLine & vbCrLf)
        End If
    Next

根据OP的评论更新：假设您找到了包含经度的行，您需要根据逗号分隔符拆分行：

For Each SplitLine In SplitLines
    If SplitLine.Contains("Longitude: ")Then
        Dim LongitudeValue = Split(SplitLine,",")(1)
        TextBox1.Append("Longitude: " & LongitudeValue & vbCrLf)
    End If
Next

然后，相同的技术将应用于您的其他要求。

如何从vb中的文本框中获取所需的输入？

1 个答案: