从文本文件写入网站VB.net上的id

时间:2016-08-10 03:36:58

标签: vb.net

im begginner进入vb.net并且我阻止了我想让我的软件接受文本并逐行将ID写入网站上的ID

这是我使用的代码

Public Class Form1
    Dim streamer As IO.File
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        TextBox5.Text = OpenFileDialog1.FileName
        Dim R As New IO.StreamReader("C:\" & TheFileName.text & ".txt")
        TheText.Text = R.ReadToEnd
        R.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Document.GetElementById("u_0_1").SetAttribute("value", TextBox5.Text)
    End Sub
End Class

按钮5是其开始按钮,button1是其上传的txt文件按钮 和textbox1,它来源于txt的来源

1 个答案:

答案 0 :(得分:0)

为防止混淆,您应该为控件提供有意义的名称,而不是vb默认名称。所以TextBox5应该是tbFilename,button1应该是buttReadFile等。

我修改了你的例子。希望这有效。

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        Textbox5.Text = OpenFileDialog1.FileName
        TheText.Text = IO.File.ReadAllText(OpenFileDialog1.FileName)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Document.GetElementById("u_0_1").SetAttribute("value", TheText.Text)
    End Sub
End Class

OpenFileDialog1.FileName应该是文件的完整路径,因此我们只需使用Io.File.ReadAllText阅读它。当您将其写入webbrowser时,我们使用文件名文本框而不是TheText文本框。