Minggu, 06 Mei 2018

Re: [MS_AccessPros] Re: How to remove letters from strings with code?

 

Hello all,

Out of curiosity, would the Replace method work in this case:

Replace(strYourString, ?, "")

I am on travel at the moment and do not have access to Access, otherwise I would try it...

John


On Sat, May 5, 2018 at 8:37 PM qingqinga qingqinga@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

Dear Graham,
Thanks a lot.
Best Regards,
Kevin

发自 WPS邮箱客戶端
在 "graham@mandeno.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>,2018年5月6日 08:19写道:

 

Hi Kevin


A function like this should do the trick:

Public Function KeepOnlyNumeric( strIn as String ) As String
Dim strOut As String
Dim ch as String
Dim i as Integer
    For i = 1 to Len(strIn)
        ch = Mid(strIn, i, 1)
        Select Case ch
            Case "0" To "9"
                strOut = strOut & ch
        End Select
    Next i
    KeepOnlyNumeric = strOut
End Function

Warmly,

Graham

---In MS_Access_Professionals@yahoogroups.com, <qingqinga@...> wrote :

Dear All,
How to remove letters from strings with code, only keep the numbers? For example:

H2562 to 2562

Thanks in advance.

Best Regards,
Kevin

__._,_.___

Posted by: John Clark <nauticalgent@gmail.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (5)

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