• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 297
  • Last Modified:

Checking for duplicate within a 2 dimensional static array

Hi, I'm trying to ask the user to enter a bookid within a text box.  But I want to verify that the entry hasn't been made.  It would caompre against the bookarray(arrayindex, 0) within the 2 dimensional array of records and if it isn't there, then go to the bottom and then add to the array the new entry.....
The array index was declared at the beginning of Dim bookarray(50, 5) As String.  Need some help. Thanks


Public Sub Readbookfile()
   
    arrayindex = 1
    Do While Not EOF(1)
        Input #1, strBookid, strBooktitle, strCat, strAuthor, strCost, strFlag
           
        bookarray(arrayindex, 0) = strBookid
        bookarray(arrayindex, 1) = strBooktitle
        bookarray(arrayindex, 2) = strCat
        bookarray(arrayindex, 3) = strAuthor
        bookarray(arrayindex, 4) = strCost
        bookarray(arrayindex, 5) = strFlag
        arrayindex = arrayindex + 1
    Loop
    Close #1
   
End Sub
0
PhenominAL
Asked:
PhenominAL
  • 4
  • 2
1 Solution
 
drnickCommented:
dim d as boolean
dim i as integer

d = false
for i=0 to 49
if( instr(1, bookarray(i, 0), Trim(strBookId), Text) = 0) then
 d = true;
 break;
 end if
next

if not d then

'insert

else

'already there

end if
0
 
PhenominALAuthor Commented:
Could that be integrated into a DO WHILE LOOP? Or am I complicating it?
0
 
PhenominALAuthor Commented:
such as ...

Private Sub AddRecord()
Dim Addbookid As String
       
        txtBookInfo(0).Text = Addbookid
        arrayindex = 1
       
        Do While Addbookid <> bookarray(arrayindex, 0)

just wanted to know if i'm starting on the right foot....



0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
PhenominALAuthor Commented:
and I would want to add it to the last spot in the array using the ubound(bookarray(arrayindex))
0
 
drnickCommented:
no, to do-looping would be ok

that last-spot-adding:
it would maybe a good idea to resize the array by using redim with preseve before going ubound
0
 
PhenominALAuthor Commented:
Really? I thought REDIM and PRESERVE were only for dynamic arrays...how would you use them for static arrays?
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now