Member Avatar for 22MDS

Please help.
Can you help with the code I require?
I have tried but I don't seem to beable to get it right.

I have simple I/O Random FIle which works fine but I would like to
be able to input a string into a textbox to find the record in the the file using the last name and first name and then maybe in another textbox find any reccuring last names. All my input is printed to form.

Type Person
{
      LName As String * 12
      FName As String * 8
      Age As Integer
}
   End Type

Private Sub Command4_Click()

   Dim P As Person
{
       Open "RANDOM.XXX" For Random As #1  Len=Len(P)          
       For i = 1 To Int(LOF(1) / Len(P))
           Get #1, i, P
        Print Tab(50); P.LName; Tab(60); P.FName; Tab(70); P.Age
       Next
       Close #1
}
   End Sub

Private Sub Command2_Click()

   Dim P As Person 
{                                                                           
       Open "RANDOM.XXX" For Random As #1 Len = Len(P)
       P.LName = LName.Text
       P.FName = FName.Text
       P.Age = Age.Text  '9
       Put #1, , P
       Close #1
}
End Sub

I think I have put bbcode in the right way.

Edited by Nick Evan because: Fixed formatting
  • 2 Contributors
  • 1 Reply
  • 79 Views
  • 16 Hours Discussion Span
  • Latest Post Latest Post by vb5prgrmr
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.