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!
COURSE of the MONTH
11 days, 18 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Extract Characters From String Based On Format
Posted on 2011-03-08
Hi, using a query I need to be able to extract a code from within a character string. There can be several thousand lines, each with a different code but the format is always the same ####-. Here is an example:
Desc
10-403 Sal-RecruitInit 1485- Staff Recharge
10-413 Sales- Creative 1239- Specs UK advert
10-415 Marketing Man 1239- Specs UK advert
10-416 SaleProfPublica 1152- Professional Ma
10-416 SaleProfPublica 1153- Optom Career Pa
10-416 SaleProfPublica 1938- ODP Income
10-416 SaleProfPublica 1947- Nat Sem Inc
10-417 Sales - Recall 1239- Specs UK advert
10-421 Sales-Training 1048- Emplymnt Law Ma
10-421 Sales-Training 1049- Rectmnt Mat Inc
10-421 Sales-Training 1161- SmartBus RS In
10-421 Sales-Training 1215- Tra Fees - Gen
10-421 Sales-Training 1327- Conducting Staf
From line 1 I would be extracting 1485, line 2 1239 and so on.
Your help would be much appreciated.
Desc
10-403 Sal-RecruitInit 1485- Staff Recharge
10-413 Sales- Creative 1239- Specs UK advert
10-415 Marketing Man 1239- Specs UK advert
10-416 SaleProfPublica 1152- Professional Ma
10-416 SaleProfPublica 1153- Optom Career Pa
10-416 SaleProfPublica 1938- ODP Income
10-416 SaleProfPublica 1947- Nat Sem Inc
10-417 Sales - Recall 1239- Specs UK advert
10-421 Sales-Training 1048- Emplymnt Law Ma
10-421 Sales-Training 1049- Rectmnt Mat Inc
10-421 Sales-Training 1161- SmartBus RS In
10-421 Sales-Training 1215- Tra Fees - Gen
10-421 Sales-Training 1327- Conducting Staf
From line 1 I would be extracting 1485, line 2 1239 and so on.
Your help would be much appreciated.
[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
8-
3
2
13 Comments
This should do what you're after:
SELECT YourField, Mid(YourField, InStrRev(YourField, "-") - 4, 4) AS Code
FROM YourTable
Mmmm, on second thoughts that won't work with this record
10-421 Sales-Training 1215- Tra Fees - Gen
From the examples you've cited, you'll have to create a VBA function to parse the text, and invoke this from your query.
10-421 Sales-Training 1215- Tra Fees - Gen
From the examples you've cited, you'll have to create a VBA function to parse the text, and invoke this from your query.
Can you confirm that the record values in your question are EXACTLY as you have listed them - including spaces and hyphens.
Once you've done this I can be confident that all cases are covered.
Once you've done this I can be confident that all cases are covered.
In particular, can you confirm if this record:
10-413 Sales- Creative 1239- Specs UK advert
should actually be:
10-413 Sales-Creative 1239- Specs UK advert
10-413 Sales- Creative 1239- Specs UK advert
should actually be:
10-413 Sales-Creative 1239- Specs UK advert
Also, are there supposed to be two spaces before the code you're trying to extract in some records or is this just a typo?
Use this function in a query to extract the number.
It assumes the number is terminated with a "-".
Select *, getnos(Desc) from tablename
Function GetNos(pstring As String) As String
Dim x As Integer, ln As Integer, ch As String
Dim res As String
GetNos = ""
ln = Len(pstring)
If ln < 7 Then Exit Function
For x = 6 To ln
ch = Mid(pstring, x, 1)
If ch >= "0" And ch <= "9" Then
res = res & ch
ElseIf Len(res) = 4 And ch = "-" Then
Exit For
Else
res = ""
End If
Next x
If Len(res) = 4 Then GetNos = res
End Function
It assumes the number is terminated with a "-".
Select *, getnos(Desc) from tablename
Function GetNos(pstring As String) As String
Dim x As Integer, ln As Integer, ch As String
Dim res As String
GetNos = ""
ln = Len(pstring)
If ln < 7 Then Exit Function
For x = 6 To ln
ch = Mid(pstring, x, 1)
If ch >= "0" And ch <= "9" Then
res = res & ch
ElseIf Len(res) = 4 And ch = "-" Then
Exit For
Else
res = ""
End If
Next x
If Len(res) = 4 Then GetNos = res
End Function
If your examples are correct, then you can extract the code by first creating the following function:
Option Explicit
Option Compare Database
Public Function ExtractCode(pstrText As String) As String
Dim bytCharacter As Byte
For bytCharacter = 7 To Len(pstrText)
If IsNumeric(Mid(pstrText, bytCharacter, 1)) Then
Exit For
End If
Next
ExtractCode = Mid(pstrText, bytCharacter, 4)
End Function
You can then use the function in a query like this:
SELECT YourField, ExtractCode(YourField) AS Code
FROM YourTable
Hi Jez, the leading spaces are contained in the csv file I import to begin the process. I can trim them so please consider the string minus the leading spaces.
Each line may vary as to the spaces contained in it, and the number of hyphens. The one consistent element is the ####- in the latter part of the string. The example you mentioned above does have an extra space behind Sales-. That will have been a user typo when the code string was created and isn't something I can alter.
So, I need to extract every string component formatted as ####-. I hope this helps.
Each line may vary as to the spaces contained in it, and the number of hyphens. The one consistent element is the ####- in the latter part of the string. The example you mentioned above does have an extra space behind Sales-. That will have been a user typo when the code string was created and isn't something I can alter.
So, I need to extract every string component formatted as ####-. I hope this helps.
Oops, just found a slight complication. Occasionally the code within the string is formatted as ####-####.
e.g. 2588-4876
In those cases I need the first four, and the second four.
Peter57r, can your code be modified/copied to split off the numbers on the right?
e.g. 2588-4876
In those cases I need the first four, and the second four.
Peter57r, can your code be modified/copied to split off the numbers on the right?
Use this to get either pattern:
Function GetNos(pstring As String) As String
Dim x As Integer, ln As Integer, ch As String
Dim res As String
GetNos = ""
ln = Len(pstring)
If ln < 7 Then Exit Function
For x = 6 To ln
ch = Mid(pstring, x, 1)
If ch >= "0" And ch <= "9" Then
res = res & ch
ElseIf Len(res) = 4 And ch = "-" Then
Exit For
Else
res = ""
End If
Next x
If Len(res) = 4 Then
If Format(Val(Mid(pstring, x + 1, 4)), "0000") = Mid(pstring, x + 1, 4) Then res = res & "-" & Mid(pstring, x + 1, 4)
End If
GetNos = res
End Function
Function GetNos(pstring As String) As String
Dim x As Integer, ln As Integer, ch As String
Dim res As String
GetNos = ""
ln = Len(pstring)
If ln < 7 Then Exit Function
For x = 6 To ln
ch = Mid(pstring, x, 1)
If ch >= "0" And ch <= "9" Then
res = res & ch
ElseIf Len(res) = 4 And ch = "-" Then
Exit For
Else
res = ""
End If
Next x
If Len(res) = 4 Then
If Format(Val(Mid(pstring, x + 1, 4)), "0000") = Mid(pstring, x + 1, 4) Then res = res & "-" & Mid(pstring, x + 1, 4)
End If
GetNos = res
End Function
Or like this:
Option Explicit
Option Compare Database
Public Function ExtractCode(pstrText As String) As String
Dim bytCharacter As Byte
Dim bytLength As Byte
For bytCharacter = 7 To Len(pstrText)
If IsNumeric(Mid(pstrText, bytCharacter, 1)) Then
If IsNumeric(Mid(pstrText, bytCharacter + 5, 1)) Then
bytLength = 9
Else
bytLength = 4
End If
Exit For
End If
Next
ExtractCode = Mid(pstrText, bytCharacter, bytLength)
End Function
Featured Post
Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works
The attack works by targeti…
- The Email Laundry
- Email Servers
- Cybersecurity
- Email Protocols
- Network Security
- Security, *Phishing
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications. You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks.
Specify a start-up form through options:
Specify an Autoexec macro:
Us…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
Suggested Courses
Course of the Month11 days, 18 hours left to enroll
752 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.