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



我的初学者进入vb.net和我阻止我想让我的软件采取文本,并写入网站上一行一行的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是开始按钮,按钮1是上传TXT文件按钮textbox1是文本

的来源

为了防止混淆,您应该为控件提供有意义的名称,而不是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读取它。当你把它写入浏览器时我们使用的是filename文本框而不是TheText文本框

最新更新