Searching a sequential file for a data match

07-11-2003, 12:09 PM

beanodandy beanodandy is offline

Newcomer

Join Date: Jul 2003

Posts: 3

Searching a sequential file for a data match

I am using a sequential file in VB6 where a user will input values into text boxes (eg txtID - C100, txtName – Jones, txtStatus – Current) and then append the details to a file (code so far).

Private Sub cmdFile_Click()

Dim FileTransfer As String

FileTransfer = txtID & " " & txtName & " " & txtStatus

Open "test.txt" For Append As #1
Print #1, FileTransfer
Close #1

txtRequest = ""
txtName = ""
txtStatus = ""

End Sub

This works fine but, I want to set up another command button where a user will enter a txtStatus value in a separate text box, and then the line details for the first located instance for that status will populate the previous text boxes (or if this is too complicated appear in a label). I also need to know how to locate the next instance for that status.

Any code would be much appreciated, or any sites that could help with my problem. Thanks in anticipation.

07-14-2003, 12:38 AM

loquin

Google Hound

Retired Moderator
* Guru *

Join Date: Nov 2001

Location: Arizona, USA

Posts: 12,386

So, you need to Open the textfile for Input, and loop through reading a line of text, checking the status, if the status read matches the entered status Update the Textboxes & exit the loop.

Code:

Dim strLine as String, strData() as String
Open "test.txt" For Input As #1
Do While Not EOF (#1) And strStatus <> txtStatus.Text
  Line Input #1, strLine  ' Read the entire line into the string
  strData = Split(strLine," ")  ' Split the data into component fields 
  If strData(2) = me.txtStatus.Text then
    me.txtRequest.Text = strData(0)
    me.txtName.Text = strData(1)
  End If
Loop

I hope the name doesn't include a space, else the split won't be able to differentiate between a space used as a field delimitor and one used to separate first & last names. IF you use a comma to separate the fields, you could read the data directly into variables using the input command

Code:

Line Input #1, strRequest, strName, strStatus

__________________
Lou
"I have my standards. They may be low, but I have them!" ~ Bette Middler
"It's a book about a Spanish guy called Manual. You should read it." ~ Dilbert
"To understand recursion, you must first understand recursion." ~ unknown

07-14-2003, 07:08 AM

mmmaah

Freshman

Join Date: Jul 2003

Posts: 34

Why don't you use a database and then play around with sql. It's just so ease....