spiro

Why hello

another question from me. Ive written a program which allows a user to create a profile (with username and passwords stored in a txt file). now i wanted to be able to read both files and if the user name and password are on the same line, it is available to login...
if you don't understand i can try and explain more

Iceplug

Why didn't you try and explain more instead of 'anybody?...please?'

Have you tried writing the code yet?
All you need to do is open both files and read each line one by one.

MikeJ

Lookup the following functions. They could possibly help .

Open, Print, Output, Split, Input, Append
(the last two are for saving...)

~MikeJ

excaliber

www.tong-web.com/abstract/articles.html

Try that tutorial.

spiro

thankx excaliber i've already used that tutorial and but i need one for reading files...so far my code consists of...


Open App.Path & "\UserName.txt" For InputAs #1

very good eh ya

well im going to go search for some answers if anyone can help please let me know

MikeJ

Now, tempstring() has all of your data. You can populate a listbox, textboxes, or whatever you want now.

~MikeJ

wengwashere

ey dude,

im used to using file system objects, in this case filesystemobject.textstream...try using that...well, you could read and write from and to a text file

'-- Before you do that, you need to reference MS scripting runtime

'--------------- write to a file --------------------
Dim objFSO As Scripting.FileSystemObject, objWriteFile As Scripting.TextStream

'-- Initialize FSO --
Set objFSO = New Scripting.FileSystemObject

strFileName = "YourFileName.txt"

'-- Create New Text File --
Set objWriteFile = objFSO.CreateTextFile(strFileName, True)

'-- Insert Message to File --
objWriteFile.WriteLine "Your data here"

objWriteFile.Close

'-- Clean Up objects
Set objWriteFile = Nothing
Set objFSO = Nothing
'-----------------------------------------------

'--------------- read a file --------------------
Dim objFSO As Scripting.FileSystemObject, objReadFile As Scripting.TextStream

'-- Initialize FSO --
Set objFSO = New Scripting.FileSystemObject

strFileName = "YourFileName.txt"

'-- Open File --
Set objReadFile = objFSO.OpenTextFile(strFileName, ForReading)

'-- Read All Data --
str = objReadFile.ReadAll

'-- Read Per Line --
do while not objReadFIle.AtEndOfStream
str = objreadfile.readline
Loop

objReadFile.Close

'-- Clean Up objects
Set objReadFile = Nothing
Set objFSO = Nothing

'-----------------------------------------------

MikeJ

Also, instead of two seperate files, why don't you have one with a delimiter and use the Split$() function?

spiro

well i'm a very basic learner and well ya i got all that too work but ofcourse it has braughten me to anew problem

i am now consulting you guys on how to search a textfile...i want to seach it for the username(txtUserName.text)

thankx to everyone for their help and i also ask if anyone knows any books i could look up for some VB tutorials?

starbitz

i am now consulting you guys on how to search a textfile...i want to seach it for the username(txtUserName.text)


How do you open/read your textfile? I suggest that read your textfile line by line and put it in an array. After reading the whole textfile and saving each line in an array, you can now loop on the array elements and search on it if it has an element equal to you txtUserName.text

spiro

well right now all i've gotten to is opening the file...i haven't gotten farther then that so if you know a tutorial...

starbitz

Quote:

---

Originally Posted by spiro
well right now all i've gotten to is opening the file...i haven't gotten farther then that so if you know a tutorial...

---

You can have codes like these...

Dim TempLine as string
Dim aString() as string
Dim i as integer
Dim foundMatch as boolean

foundMatch = false
Redim aString(0)
i = 0

Open sFilename For Input As #1
While Not EOF(1)
Line Input #1, sTestline
TempLine = Trim(sTestline)
Redim Preserve aString(Ubound(aString)+1)
aString(i) = Split(TempLine, ,1) 'I assume your text file has the Username as first entry. Get the first entry of the line and save to aString array
i = i +1
Wend
Close #1

'Search match for txtUserName.text on the elements of your array which holds the UserName data of your textfile
for i = Lbound(aString) to Ubound(aString)
if txtUserName.text = aString(i) then
foundMatch = true
exit for
endif
next i

spiro

thank you i'll be sure to try that