[Help]How can i generate text from .txt file in to textbox when button click

[wut12345]

I will test this shit you just posted ?
Just write textbox1.text = "shit" ?

Chill out bra

[Aly El-Haddad]

please please stop!!! don't post something that you don't know anyshit about it.

Don't worry about these guys
Keep on

[samerlol]

Hello Guys..

Sorry i was busy, about the codes above

Code:
Textbox1.Text = "anything goes here"

This take a long time to make my program
because i have 5 files and every file size between 7-11 MB
and if i want to do this i did it but it's fail.

think that will help you :
Code:
' Form Load :
Dim text As String = MsgBox("text you want to make the form remember it.")
Or new Sub :
Code:
Private Sub Text
text
Code:
' Button Click :
Text()

and this is take long a time.

Dim FILE_NAME As String = "C:\Users\Home\Downloads\Compressed\FakeNameGenera tor.com_4d0a104d\FakeNameGenerator.com_4d0a104d.tx t"
Dim objReader As New System****.StreamReader(FILE_NAME)
Gender.Text = objReader.ReadToEnd

Thanks it's works but the problem it's read all in text file i want it to ready just 1 line every click in Button
Please replay

[Aly El-Haddad]

Hello Guys..

Sorry i was busy, about the codes above



This take a long time to make my program
because i have 5 files and every file size between 7-11 MB
and if i want to do this i did it but it's fail.




and this is take long a time.





Thanks it's works but the problem it's read all in text file i want it to ready just 1 line every click in Button
Please replay

        Dim path As String = "THE FILE PATH" 'The file path
        Dim reader As New IO.StreamReader(path)
        Dim lineIndex As Integer = 2 ' The index of the line that you want to read
        For i As Integer = 0 To lineIndex - 1
            reader.ReadLine()
        Next
        TextBox1.Text = reader.ReadLine

[samerlol]

Code:
Dim path As String = "THE FILE PATH" 'The file path
Dim reader As New IO.StreamReader(path)
Dim lineIndex As Integer = 2 ' The index of the line that you want to read
For i As Integer = 0 To lineIndex - 1
reader.ReadLine()
Next
TextBox1.Text = reader.ReadLine

man
it's working but, it's ready 1 time and then stop reading
like this
when i press generate it's generate sami after this i press generate again no thing happened

[Aly El-Haddad]

man
it's working but, it's ready 1 time and then stop reading
like this
when i press generate it's generate sami after this i press generate again no thing happened

It works whenever you call it!

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ReadLineFromTxt("THE TXT FILE PATH", 0) '0 is the line index
    End Sub

    Public Shared Function ReadLineFromTxt(ByVal path As String, ByVal lineIndex As Integer) As String
        Dim reader As New IO.StreamReader(path)
        For I As Integer = 0 To lineIndex - 1
            reader.ReadLine()
        Next
        Return reader.ReadLine()
    End Function
End Class

[samerlol]

Code:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ReadLineFromTxt("THE TXT FILE PATH", 0) '0 is the line index
End Sub

Public Shared Function ReadLineFromTxt(ByVal path As String, ByVal lineIndex As Integer) As String
Dim reader As New IO.StreamReader(path)
For I As Integer = 0 To lineIndex - 1
reader.ReadLine()
Next
Return reader.ReadLine()
End Function
End Class

man, same thing it's generate 1 time and then stop generate

[Aly El-Haddad]

Bro, It's not my code's problem.. you may have something wrong in your generating code
Or you may be calling the same line by entering the same index everytime

[samerlol]

ok, What i have to do ?

[Jorndel]

ok, What i have to do ?

He provided you with a working code but let's make it even easier for you to use


Result:

[samerlol]

He provided you with a working code but let's make it even easier for you to use


Result:

Thanks for replay but it's same that what i want !!

i will give you more information i need

I have Files
Gaven name
Email
Surname
these file in wrote in .txt file

This is pictures:


And



Uploaded with ImageShack.us


i want when someone press(Hit) Generate Button
generate one email, surname and Gaven name
and if he press generate again give him new surname, email and gaven name

and i have lists for all these username , passwords and more...

This is image for my programs



Please HElp

[abuckau907]

@OP Obviously this is far from final product, but I think this is the part you need help with?

Basically,
1. Instead of loading the .txt files on button_click, you should do it *only once* on start-up (form_load) - efficiency.
2. Store the names in an array (or some other collection)
3. Get a random item from the array (or collection) - using a random number generator to generate a random index into the array.
-all I did so far.

 

edit: "System . Io . File" (no spaces) becomes ******** - mpgh parsing error ?
edit: file names are hard-coded in! At minimum change them to your file names! Even better, create consts.

Public Class Form1

Private _firstNames() As String = Nothing
Private _lastNames() As String = Nothing
Private _displayNames() As String = Nothing
Private _namesLoaded As Boolean = False
Private _rndm As New Random(420)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'' Load the files on start-up, not EVERY time you generate a name. <-- Unless you have reason(s) not to.
If System****.File.Exists("fnames.txt") And System****.File.Exists("lnames.txt") And System****.File.Exists("dnames.txt") Then
_firstNames = System****.File.ReadAllLines("fnames.txt")
_lastNames = System****.File.ReadAllLines("lnames.txt")
_displayNames = System****.File.ReadAllLines("dnames.txt")
_namesLoaded = True '' SuCCESS
Else
MessageBox.Show("Username files are missing. Unable to continue. Critical error.")
_namesLoaded = False '' FAIL
End If
End Sub

Private Function GenerateRandomAccount() As UserAccount
Dim _rtnAccount As UserAccount ' rtn value
If _namesLoaded Then
_rtnAccount.firstName = _firstNames(_rndm.Next(0, _firstNames.Length)) '' rndm indx
_rtnAccount.lastName = _lastNames(_rndm.Next(0, _lastNames.Length)) '' rndm indx
_rtnAccount.displayName = _displayNames(_rndm.Next(0, _displayNames.Length)) '' rndm indx
Else
_rtnAccount.firstName = "file not loaded"
_rtnAccount.lastName = "file not loaded"
_rtnAccount.displayName = "file not loaded"
End If
Return _rtnAccount
End Function

Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerate.Click
Dim _newName As UserAccount = GenerateRandomAccount()
lblFirstName.Text = _newName.firstName
lblLastName.Text = _newName.lastName
lblDisplayName.Text = _newName.displayName
End Sub

Private Structure UserAccount
Dim firstName As String
Dim lastName As String
Dim displayName As String
End Structure

End Class

edit: replace "lblFirstName.Text" (etc) with "txtFirstName.Text" for a text box ; )

edit: anyone tell me the [highlight = vb ] bb code? Tried a few and couldn't get it, would be much appreciated for better formatting.

[Womanizer`]

There is no space i checked it, no space and if there is space Visual Basic Correct it Auto

Not sure If anyone replied with this information, but I'd recommend using OpenFileDialog. Its much easier, more user friendly and you don't have to worry about putting a wrong path and then the whole program crashing.

[abuckau907]

It's a program for generating "random fake accounts" .....if he needs fake accounts, but can't manage the .txt files, shame on hiim : ) But you're correct.

[samerlol]

Thanks you

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'' Load the files on start-up, not EVERY time you generate a name. <-- Unless you have reason(s) not to.
If System****.File.Exists("fnames.txt") And System****.File.Exists("lnames.txt") And System****.File.Exists("dnames.txt") Then
_firstNames = System****.File.ReadAllLines("fnames.txt")
_lastNames = System****.File.ReadAllLines("lnames.txt")
_displayNames = System****.File.ReadAllLines("dnames.txt")
_namesLoaded = True '' SuCCESS
Else
MessageBox.Show("Username files are missing. Unable to continue. Critical error.")
_namesLoaded = False '' FAIL
End If
End Sub

I got error here why ??if it's because i changed the theme
i used GhostTheme what the command will be ??

i got A lot of errors !!

---------- Post added at 12:54 PM ---------- Previous post was at 12:39 PM ----------

Event "load" cannot be Found

---------- Post added at 12:55 PM ---------- Previous post was at 12:54 PM ----------

i think this method working but you have to give me more details(Information) about this step by step

I am newbie !