Question

我想知道是否有可能有一堆 .txt 文件，例如：

Gaming  
Programs  
Home  
Select

并通过此处的值逐个运行这些词：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    If Not number_of_ticks > NumericUpDown1.Value Then
        number_of_ticks += 1
        If ((WebBrowser1.IsBusy)) Then
        Else
            If WebBrowser1.Url.ToString = "https://live.xbox.com/en-US/ChangeGamertag" Then


                WebBrowser1.Document.GetElementById("NewGamertag").SetAttribute("value", txtTurbo.Text)

                WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click")
            Else

                WebBrowser1.Navigate("https://live.xbox.com/en-US/ChangeGamertag")

            End If
        End If

    Else
        'number_of_ticks has exceed the maximum amount of allowed ticks
        Timer1.Enabled = False
        WebBrowser1.Refresh()

        number_of_ticks = 0
        Timer1.Enabled = True

    End If

End Sub

所以第一行的值为“Gaming”，而不是文本框的值（txtTurbo.text）

   WebBrowser1.Document.GetElementById("NewGamertag").SetAttribute("value", txtTurbo.Text)

然后通过这个提交：

   WebBrowser1.Navigate("https://live.xbox.com/en-US/ChangeGamertag")

将值更改为“程序”，依此类推，直到它到达 .txt 文件中所有行的末尾。我将如何解决这个问题，因为我从未使用从Visual Basic中读取 .txt 文件。

Answer 1

要阅读文本文件，您将需要此代码

 Imports System.IO
Imports System.Text
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim line As String

        ' Create new StreamReader instance.
        Dim reader As StreamReader = New StreamReader("c:\\temp\cid.txt")
        ' Read one line from file
        line = reader.ReadLine
        ' Write the line we read from "cid.txt"
        MessageBox.Show(line)
    End Sub
End Class

但是，为了逐行阅读，我必须再试一次，导致你的代码混淆阅读。

<强>更新

因为你的问题不清楚，所以我想这就好了

Dim FILE_NAME As String = "path.txt"

Dim TextLine As String

If System.IO.File.Exists( path ) = True Then

Dim objReader As New System.IO.StreamReader(path)

Do While objReader.Peek() <> -1

TextLine = TextLine & objReader.ReadLine() & vbNewLine

Loop

txtturbo.Text = TextLine

Else

MsgBox("File Does Not Exist")

End If

根据需要更改

WebBrowser1.Navigate("https://live.xbox.com/en-US/" & txtturbo.text)

从文本中读取行并提交信息？

1 个答案: