?
Solved

Checking for duplicate within a 2 dimensional static array

Posted on 2004-04-13
6
Medium Priority
?
290 Views
Last Modified: 2010-04-17
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
Comment
Question by:PhenominAL
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
6 Comments
 
LVL 5

Accepted Solution

by:
drnick earned 1000 total points
ID: 10820680
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
 

Author Comment

by:PhenominAL
ID: 10821756
Could that be integrated into a DO WHILE LOOP? Or am I complicating it?
0
 

Author Comment

by:PhenominAL
ID: 10821764
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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:PhenominAL
ID: 10821871
and I would want to add it to the last spot in the array using the ubound(bookarray(arrayindex))
0
 
LVL 5

Expert Comment

by:drnick
ID: 10823265
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
 

Author Comment

by:PhenominAL
ID: 10826298
Really? I thought REDIM and PRESERVE were only for dynamic arrays...how would you use them for static arrays?
0

Featured Post

Enroll in August's Course of the Month

August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is about my first experience with programming Arduino.
The SignAloud Glove is capable of translating American Sign Language signs into text and audio.
Six Sigma Control Plans
Introduction to Processes
Suggested Courses

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question