Number from String

This code has not been declared by its author to be Public Domain code, and therefore should not be assumed to be so.

Number from String by Cpt. Sovok (Posted 25 years ago)
If you want a Number from a String in which the Numbers are seperated by a comma ("12,456,23,23456"), use this function...
Open in online IDE ; Extract Numbers from an String. ; Robert Gerlach 2001 ; www.robsite.de numberstring$ = "1,22,333" Print numberstring$ Print stringtonumber(numberstring$, 1) Print stringtonumber(numberstring$, 2) Print stringtonumber(numberstring$, 3) Function stringtonumber(numberstring$, position) n_number = 1 ; Number Of Numbers. lastcomma = 1 For i = 1 To Len(numberstring$) If Mid(numberstring$, i, 1) = "," Or i = Len(numberstring$) Then If n_number = position Then number$ = Mid(numberstring$, lastcomma, i) lastcomma = i+1 n_number = n_number + 1 EndIf Next Return number$ End Function

Number from String by Cpt. Sovok

(Posted 25 years ago)

If you want a Number from a String in which the Numbers are seperated by a comma ("12,456,23,23456"), use this function...

Open in online IDE

; Extract Numbers from an String.
; Robert Gerlach 2001
; www.robsite.de

numberstring$ = "1,22,333"
Print numberstring$
Print stringtonumber(numberstring$, 1)
Print stringtonumber(numberstring$, 2)
Print stringtonumber(numberstring$, 3)


Function stringtonumber(numberstring$, position)
n_number = 1 ; Number Of Numbers. 
lastcomma = 1
For i = 1 To Len(numberstring$)
If Mid(numberstring$, i, 1) = "," Or i = Len(numberstring$) Then
If n_number = position Then number$ = Mid(numberstring$, lastcomma, i)
lastcomma = i+1
n_number = n_number + 1
EndIf
Next
Return number$
End Function

Comments

None.

Code Archives Forum