Question

我有两个文本框，我想要make account generator，它会从网站上的txt文件中读取随机行并将其写入文本框。所以，我想从文本文件中读取随机行（只有一行），其中电子邮件和密码由以下内容分隔：所以.txt文件看起来像email@site.com:password，写入数据之前：在textbox1（电子邮件）和在文本框2中写入来自同一行的数据。

.txt文件如下所示：

email1@example.com:password1
email2@example.com:password2
email3@example.com:password3 etc....

我无法弄清楚如何分割这些字符串，任何帮助都会受到赞赏，无论如何，谢谢：）

Answer 1

你去。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    tbxEmail.Text = String.Empty
    tbxPassword.Text = String.Empty
    Dim lines As String() = getData("URL_OF_FILE")
    Dim lineCount As Integer = lines.Length
    Dim randomValue As Integer = CInt(Math.Floor((lineCount) * Rnd()))
    Dim line As String = lines(randomValue)
    Dim parts As String() = line.Split(New Char() {":"c})
    Dim email As String = parts(0)
    Dim password As String = parts(1)

    tbxEmail.Text = email
    tbxPassword.Text = password

End Sub

Function getData(url As String) As String()
    Dim client As System.Net.WebClient = New System.Net.WebClient()
    Dim data As String = client.DownloadString(url)
    Dim returnValue As String() = data.Split(New String() {Environment.NewLine},
      StringSplitOptions.RemoveEmptyEntries)
    Return returnValue
End Function

请注意，这不是同步请求，这意味着它会在请求期间“冻结”您的应用程序。

读取随机txt行，通过以下方式拆分字符串：并在文本框中写入

1 个答案: