x
• Status: Solved
• Priority: Medium
• Security: Public
• Views: 298

# 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

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
• 4
• 2
1 Solution

Commented:
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

end if
0

Author Commented:
Could that be integrated into a DO WHILE LOOP? Or am I complicating it?
0

Author Commented:
such as ...

arrayindex = 1

Do While Addbookid <> bookarray(arrayindex, 0)

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

0

Author Commented:
and I would want to add it to the last spot in the array using the ubound(bookarray(arrayindex))
0

Commented:
no, to do-looping would be ok

it would maybe a good idea to resize the array by using redim with preseve before going ubound
0

Author Commented:
Really? I thought REDIM and PRESERVE were only for dynamic arrays...how would you use them for static arrays?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.