Прочитать строку из текста и отправить информацию?

Мне было интересно, возможно ли иметь файл .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. Как мне это сделать, поскольку я никогда не работал с чтением файла .txt из Visual Basic.


click vb.net notepad
person Jack C.    schedule 04.04.2013    source источник
comment
Это скрипт на стороне клиента?   -  person Shimon Rachlenko    schedule 04.04.2013
comment
Ваш код так запутан, чтобы читать   -  person Kasnady    schedule 04.04.2013

Ответы (1)


arrow_upward
0
arrow_downward

Чтобы прочитать текстовый файл, вам понадобится этот код

 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)
person Kasnady    schedule 04.04.2013