Trying to make a simple login/registration vb6

[carl2k2]

Ok First I have a very simple way of entering data into a form and saving that into a text file,

I made two text files for username(text1) and password(text2), I would like to make a simple login with the outcome out this,

Code for Registration:

Dim savefile As Long
savefile = FreeFile()
Open "I:\College Work ------- Updated 2008 March\new-work\savedfile.txt" For Output As #savefile
Write #savefile, (Text1.Text); (Text2.Text)
Close #savefile

From entering data it is saved into 'savedfile.txt', and is displayed as:

"carl2k2","mypassword"

I would Like to have a simple login form so it would ask for the user to input their username and password(using two seperate text boxes again), so it will read the 'savedfile.txt' to see if what the user entered is correct, if then not then a simple if statement would be like msgbox("Incorrect Values,") or something like that,

(ps, I did have a similar post but that was about something else which I dont think I need now)

[jeffstl]

Ok First I have a very simple way of entering data into a form and saving that into a text file,

I made two text files for username(text1) and password(text2), I would like to make a simple login with the outcome out this,

Code for Registration:

Dim savefile As Long
savefile = FreeFile()
Open "I:\College Work ------- Updated 2008 March\new-work\savedfile.txt" For Output As #savefile
Write #savefile, (Text1.Text); (Text2.Text)
Close #savefile

From entering data it is saved into 'savedfile.txt', and is displayed as:

"carl2k2","mypassword"

I would Like to have a simple login form so it would ask for the user to input their username and password(using two seperate text boxes again), so it will read the 'savedfile.txt' to see if what the user entered is correct, if then not then a simple if statement would be like msgbox("Incorrect Values,") or something like that,

(ps, I did have a similar post but that was about something else which I dont think I need now)

One thing to note is that the format of your .txt string must be consistent for this below to work.

In other words, in this example user name is always 5 characters long as well as password

Open strFileName For Input As #1
Line Input #1, strrecord   
strUser= Left(strrecord, 5) 'use these string filters to get your values 
strPass= Mid(strrecord, 10, 5) 'use these string filters to get your values 
 
 

I didn't actually test this for accuracy but check this out for a better examples
http://www.w3schools.com/vbscript/func_mid.asp

It will be something like that though to get those values then compare them to the entered values of the text boxes

if txtUserName.Text <> strUser then
     'invalid user
end if