Foxpro - Searching for numbers in separate column
Here is my issue: I have a dbf table with following fields:
Part Number Orig Information
123 Seat, 123, Viton
456 Seat, 04567, Viton
I am trying to flag a field when the Part Number (123) is identified in the original field so that I can easily find items that need to be corrected. The 456 is incorrectly entered into the Part Number field, it should be 04567 but I need to identify the ones that we need to look at.
Part Number Orig Information
123 Seat, 123, Viton
456 Seat, 04567, Viton
I am trying to flag a field when the Part Number (123) is identified in the original field so that I can easily find items that need to be corrected. The 456 is incorrectly entered into the Part Number field, it should be 04567 but I need to identify the ones that we need to look at.
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Is the Orig Information always in that format?
If so you can do something like
If so you can do something like
select * from table1 where [part number] <> mid([Orig Information],7,instr(7,[Orig Information],",")-7)
No unfortunately it isn't. It is a raw data field and can be in any format, I just want to be able to search within it for the match
@I just want to be able to search within it for the match
Are there any sure delimiters? If not you should create some code to check into any string to strip out the value to match
For example this query will select every record where part number is contained into Orig Information
Are there any sure delimiters? If not you should create some code to check into any string to strip out the value to match
For example this query will select every record where part number is contained into Orig Information
select * from table1 where [Orig Information] LIKE "*"+[Part Number]+"*"
select * from table1 where [Orig Information] not LIKE "* "+[Part Number]+",*"
The ampersand (&) is the standard Access concatenation character. The plus (+) can be used but it handles nulls differently so unless you need the special treatment of nulls, it is best to stick with standard.
not sure if this works in FoxPro, but here is VBA code to pull DIGITS out of a string:
Function GetDigits(psStringWithNumbers As String) As String
'8-6-08 s4p
Dim sNumber As String _
, i As Integer _
, sChar As String * 1
sNumber = ""
'loop through and only keep numeric characters
For i = 1 To Len(psStringWithNumbers)
sChar = Mid(psStringWithNumbers, i, 1)
If IsNumeric(sChar) Then
sNumber = sNumber & sChar
Else
'comment if you don't want to stop looking
If Len(sNumber) > 0 Then
GetDigits = sNumber
Exit Function
End If
End If
Next i
GetDigits = sNumber
End Function
FoxPro allows much easier solution but you should tell what data type is the Part Number column and what is its true name as the "Part Number" looks like a title.
Let say the table is open in the current workarea already and column names are PartNum and OrigInfo so you may just SET FILTER to records of your interests:
Following commands shoul dwork independently on the PartNum data type.
*-- Display all rows where the PartNum is inside the OrigInfo:
SET FILTER TO TRANSFORM(PartNum) $ OrigInfo
*-- Display all rows where the PartNum isn't inside the OrigInfo:
SET FILTER TO NOT TRANSFORM(PartNum) $ OrigInfo
*-- Display all rows where the numeric part of OrigInfo is inside the PartNum:
SET FILTER TO CHRTRAN(OrigInfo, CHRTRAN(Originfo, "0123456789", ""), "") $ TRANSFORM(partNum)
*-- Display all rows where the numeric part of OrigInfo isn't inside the PartNum:
SET FILTER TO NOT CHRTRAN(OrigInfo, CHRTRAN(Originfo, "0123456789", ""), "") $ TRANSFORM(partNum)
*-- Clear the filter
SET FILTER TO
You may display the data by BROWSE command after you set the filter.
The TRANSFORM() function converts possible numeric value in the PartNum into a text, the double CHRTRAN() use will remove all nonnumeric characters from the text. The $ operator tests the string for a substring occurence.
But I am saying again: post right column names and data types to allow us to help better.
Let say the table is open in the current workarea already and column names are PartNum and OrigInfo so you may just SET FILTER to records of your interests:
Following commands shoul dwork independently on the PartNum data type.
*-- Display all rows where the PartNum is inside the OrigInfo:
SET FILTER TO TRANSFORM(PartNum) $ OrigInfo
*-- Display all rows where the PartNum isn't inside the OrigInfo:
SET FILTER TO NOT TRANSFORM(PartNum) $ OrigInfo
*-- Display all rows where the numeric part of OrigInfo is inside the PartNum:
SET FILTER TO CHRTRAN(OrigInfo, CHRTRAN(Originfo, "0123456789", ""), "") $ TRANSFORM(partNum)
*-- Display all rows where the numeric part of OrigInfo isn't inside the PartNum:
SET FILTER TO NOT CHRTRAN(OrigInfo, CHRTRAN(Originfo, "0123456789", ""), "") $ TRANSFORM(partNum)
*-- Clear the filter
SET FILTER TO
You may display the data by BROWSE command after you set the filter.
The TRANSFORM() function converts possible numeric value in the PartNum into a text, the double CHRTRAN() use will remove all nonnumeric characters from the text. The $ operator tests the string for a substring occurence.
But I am saying again: post right column names and data types to allow us to help better.
The only solution or help suitable for FoxPro environment is in the post https:#a41826808. It explains how to define filters on the data in question to display data which follow given filter condition.
Other answers did not reflect FoxPro environment so they cannot work.
appelonia21, if you have additional questions to this subject ask then, if not then please close the question and mark the solution.
Other answers did not reflect FoxPro environment so they cannot work.
appelonia21, if you have additional questions to this subject ask then, if not then please close the question and mark the solution.
Premium Content
You need an Expert Office subscription to comment.Start Free Trial