Been quiet in here for a while, so I thought I'd toss out something I'm tinkering with and ask for your advice. Besides, I want to keep my name on the monthly top 10! J
I have a large table populated with the IP2LOCATION-LITE-DB3 list. I'm running a process to convert an IPV4 address into a decimal number and then locate the first record in my table where the value I'm looking up is between the From_IP numeric value and the To_IP numeric value in the table Here's the code snippet I have working now: ---------------------------------------------------------------------- LPARAMETERS toParams LOCAL lcBase2IP, lnElements, lnIpNumber IF USED("ip_locs") lcCurrSel = ALIAS() lnElements = ALINES(ipsegment, toParams.ocClientIp, 1, ".") IF lnElements = 4 lcBase2IP = PADL(THISFORM.utilities.DEC2BASX(VAL(ALLTRIM(ipsegment[1])), 2), 8, "0") + ; PADL(THISFORM.utilities.DEC2BASX(VAL(ALLTRIM(ipsegment[2])), 2), 8, "0") + ; PADL(THISFORM.utilities.DEC2BASX(VAL(ALLTRIM(ipsegment[3])), 2), 8, "0") + ; PADL(THISFORM.utilities.DEC2BASX(VAL(ALLTRIM(ipsegment[4])), 2), 8, "0") lnIpNumber = THISFORM.utilities.bin2dec(lcBase2IP) SELECT ip_locs LOCATE FOR lnIpNumber => ip_locs.ip_from AND lnIpNumber <= ip_locs.ip_to IF FOUND('ip_locs') toParams.ocCountry_Code = ip_locs.Country_Code toParams.ocCountry_Name = ip_locs.Country_Name toParams.ocRegion_Name = ip_locs.Region_Name toParams.ocCity_Name = ip_locs.City_Name ENDIF ENDIF SELECT (lcCurrSel) ENDIF RETURN ----------------------------------------------------------- This works fine and it really isn't that slow. It takes about 30 - 60 seconds to do the location look up on a list of 50,000+ ip address records. I'm pretty sure I'm getting Rushmore optimization on the LOCATE FOR line, but I've been wondering if there is a way to use SEEK with an index to find a value between the numeric IP_FROM field and the numeric IP_TO field. But I cannot figure out how I can create an index that would give me Rushmore optimization and let me use the SEEK command for a value between those to numerics. FYI, I tried doing a simple SQL query to a temporary cursor, but surprisingly, the LOCATE FOR command is actually faster. Hey, I know I'm being greedy, but I'm wondering if it is possible to squeeze any more speed out of this process. I may be using the best method, but I figured if y'all had a minute you might give me a little feedback. Thanks in advance! Paul H. Tarver Tarver Program Consultants, Inc. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html --- _______________________________________________ Post Messages to: ProFox@leafe.com Subscription Maintenance: https://mail.leafe.com/mailman/listinfo/profox OT-free version of this list: https://mail.leafe.com/mailman/listinfo/profoxtech Searchable Archive: https://leafe.com/archives This message: https://leafe.com/archives/byMID/182b01da2fab$905abdf0$b11039d0$@tpcqpc.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.