Remove number from string?

[Keith Hubert]

Hi Guys,

Is there a function to remove a number from a string? eg "keith1" If yes please advise.

If not, I would appreciate a suggestion as how best to do this.

OK, I cam up with this,
x="keith1"
a=substr(x,1,at("1",x)-1)
?a
"keith"

Unless there is a better way?

[Tom Cone Jr]

Re: Remove number from string?

Hi, Keith.

Tell us the rule by which Alpha can always determine where the numeric digits begin and end.

This will tell us things like

... the numeric digits are always at the end of the string
... there is always a single group of numeric digits
... the numeric digits are never scattered throughout the string
... the numeric digits have varying numbers of digits
... the numeric digits will always be present in the string

and any other characteristics of your data that could be used to tell the machine how to find the numeric digits you want to excise

[mixter]

Re: Remove number from string?

I don't have an xbasic example to post here, but I've written this same function in other languages before.

Here's a VBA function that does it, as a guide

Function RemoveNumbersFromString(ByVal strInput As String) As String
    
    Dim iCount As Integer
    Dim strAnswer As String
    strAnswer = ""
   
    For iCount = 1 To Len(strInput)
        If Not IsNumeric(Mid(strInput, iCount, 1)) Then
            strAnswer = strAnswer & Mid(strInput, iCount, 1)
        End If
    Next iCount
     
    RemoveNumbersFromString = strAnswer
     
End Function

Alternatively, instead of checking for IsNumeric, you can check the Ascii value of the character and if
Ascii >= 48 And Ascii <= 57 then discard it

[Keith Hubert]

Re: Remove number from string?

Many thanks Guys.

Interesting answers, Plenty to think about.

[CharlesParker]

Re: Remove number from string?

Heres a good place to look
http://wiki.alphasoftware.com/~alpha...ting+Functions

[Ted Giles]

Re: Remove number from string?

Will you ever have "keith123andsometext456"?
You might need to look at the ASCII table to remove numbers.
Or.
Possibly by using a Calculated Field, but if the first line of this post is likely, then you will probably need to parse the whole field.

[Stan Mathews]

Re: Remove number from string?

Remove letters/remove digits.

http://msgboard.alphasoftware.com/al...hlight=nodigit

[Keith Hubert]

Re: Remove number from string?

Thanks Stan,

I would never have found that thread with search.

That does in fact look a lot like the function Michael posted. Great minds think alike.

[Mike Wilson]

Re: Remove number from string?

This works to generate a number to test the code above (to clipboard)

'GENERATE A RANDOM ALPHANUMERIC SEQUENCE
	dim vn_rand as C
	dim vc_rand as C
	
	vn_rand=right((""+rand()),5)
	vc_rand=rand_string(5)
	
	dim vstart_string as C=vn_rand+vc_rand
	dim vnw as N
	dim vtake as C
	dim vremain as C
		for i = 1 to 100
			AGAIN:		
			vnw=val(substr((""+rand()),3,1))
			if vnw<2
				GOTO AGAIN
			end if
			
			vtake=substr(vstart_string,vnw,10)
			vremain=substr(vstart_string,1,vnw-1)
			vstart_string=*reverse(vremain)+vtake
			'MSGBOX((""+vnw),vtake+vremain+crlf()+VTAKE+CRLF()+vremain)
		next
		clipboard.set_data(vstart_string)

[GGandhi]

Re: Remove number from string?

dim stringInput as c  = "12345honori1234ficabili56789tudini01234tatibus56789"
dim stringOutput as c = ""
dim i as n
dim length as n
length = len(stringInput)
for i = 1 to length
	if .NOT. isnumber(substr(stringInput,i,1)) then
		stringOutput = stringOutput + substr(stringInput,i,1)
	end if
	next i
		msgbox("",stringOutput)

can be done in xbasic,

edit:

new_text = regex_merge("12345honori1234ficabili56789tudini01234tatibus56789","[0-9]","")
?new_text
= "honorificabilitudinitatibus"

this seems to work too.

[Keith Hubert]

Re: Remove number from string?

Hi Gandi,

That is just the function I was looking for. Many thanks for posting.