Sabtu, 26 Mei 2018

Re: [MS_AccessPros] Retain only the letters and numbers in a string

 

Crystal,

With further testing I find that commas are included in the return string. I changed the Like to [0-9 A-Z] and found the return string did not contain commas but did contain spaces. So I tried [0-9A-Z] and neither commas nor spaces are included in the return string -- just letters and numbers.

Evidently the comma in the Like list is not considered by Access to be a delimiter, but, rather, a component of the Like list. Does that sound right to you?

Steve

On 5/25/2018 8:48 PM, crystal 8 strive4peace2008@yahoo.com [MS_Access_Professionals] wrote:
 

hi Steve,

here is a function to return letters and digits:

'~~~~~~~~~~~~~~~~~~~
Function GetLettersDigits(psString As String) As String
'180525 strive4peace
   'PARAMETERS
   '  psString is the string with information to extract
   Dim sResult As String _
      , i As Integer _
      , sChar As String * 1

   sResult = ""
   'loop through and only keep letters and digits
   For i = 1 To Len(psString)
      sChar = Mid(psString, i, 1)
      If sChar Like "[0-9,A-Z]" Then
         sResult = sResult & sChar
      End If
   Next i
   GetLettersDigits = sResult
End Function
'~~~~~~~~~~~~~~~~~~~

have an awesome day,
crystal

On 5/25/18 4:11 PM, Steve thaw5 thaw5@suddenlink.net
[MS_Access_Professionals] wrote:
> In the snippet of code below, CombinedInfo is a string containing upper
> and lower case letters, numbers, spaces and assorted special characters
> such as &, *, $, #, @, etc. I need to delete the spaces and special
> characters, retaining only the letters (upper and lower case) and
> numbers. What type of test can I use in the For-Next loop to do that?
>
>    For MyCounter = 1 To Len(CombinedInfo)
>       Debug.Print MyCounter & " " & Mid(CombinedInfo, MyCounter, 1)
>    Next MyCounter
>
> Thanks, Steve
>
>
> ------------------------------------
> Posted by: Steve thaw5 <thaw5@suddenlink.net>
> ------------------------------------
>
>
> ------------------------------------
>
> Yahoo Groups Links
>
>
>


__._,_.___

Posted by: Steve thaw5 <thaw5@suddenlink.net>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Tidak ada komentar:

Posting Komentar