vb.nettxt筛选的简单介绍

VB.NET 怎么获取txt特定字段后的内容？

 Dim str As String = My.Computer.FileSystem.ReadAllText("D:\Demo.txt")

 Dim str_search As String = "profile=" '定义要搜索的字符串

 TextBox1.Text = str.Substring(InStr(str, str_search) + str_search.Length - 1)

相关问答

Q1: 如何用VB编程筛选出txt符合条件的所有行

Dim MyStr As String

Dim MyLineStr As String

MyStr = ""

'读取原文件信息

Open "e:\1.txt" For Input As #1       '以读的方式打开文件

Do While Not EOF(1)   ' 循环至文件尾

   Line Input #1, MyLineStr   '读入一行

   If Left(MyLineStr, 2) = "TH" Then

      MyStr = MyStr  MyLineStr  vbCrLf

   End If

Loop

Close #1   ' 关闭文件。

'写文件

Open "e:\2.txt" For Output As #1     '以输出方式打开文件

   Print #1, MyStr

Close #1   ' 关闭文件。

Q2: 文件夹有多个txt，vb.net 怎么逐一打开txt文档，并对其中某两行进行检索，找满足条件的文档

1，逐个搜索文件夹里的所有TXT文件。

2，每搜索到一个TXT文件就进行对应操作。

Q3: 我用vb.net写了一个能逐行搜索指定txt文本的按钮，但按钮只能点击一次，再点击就不能重复这个功能

一，出错后继续运行程序，可以使用On Error Resume Next.

二，要能点了又可以使用，就要看代码了，应该是你的代码问题

你在代码后面都fileclose(1)了，前面又没有open当然会报错，你把open放到do while前面，就OK了呀。

Q4: vb.net 如何进行txt内容检索

Public Function BinSearch(ByRef strElement() As String, ByVal strKey As String) As Long 

        Dim lngLow As Long

        Dim lngHigh As Long

        Dim lngMiddle As Long

        lngLow = 0

        lngHigh = UBound(strElement)

        While (lngLow = lngHigh)

            lngMiddle = (lngLow + lngHigh) / 2

            If strElement(lngMiddle) = strKey Then

                BinSearch = lngMiddle

                Exit Function

            Else

                If strElement(lngMiddle)  strKey Then

                    lngHigh = lngMiddle - 1

                Else

                    lngLow = lngMiddle + 1

                End If

            End If

        End While

        BinSearch = -1  '查找失败

    End Function