Parsing between a character and sysmbol

[gene.ariani]

I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.
Any help is appreciated it.

[Scott M.]

Dim x As String = "10AF101-25"
Dim y As String() = x.split("-")
Dim z As String

dim i As Integer
For i = 0 To y(0).length
If IsNumeric(y(i)) Then z = y &= y(i)
Next

<ge*********@gm ail.comwrote in message
news:11******** **************@ 75g2000cwc.goog legroups.com...

>I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.
Any help is appreciated it.

[Branco Medeiros]

ge*********@gma il.com wrote:

I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.

<snip>

The function bellow may help:

Function ScanInt(ByVal T As String) As String
'Finds the position of the "-",
'counting from the last char
Dim P As Integer = T.LastIndexOf("-")

'Scans the text backward until
'a non noumeric item is found
Dim I As Integer
For I = P - 1 To 0 Step -1
If Not Char.IsDigit(T( I)) Then
Exit For
End If
Next

'I is referencing the first non-digit char
I += 1
If I < P Then
Return T.Substring(I, P - I)
Else
Return String.Empty
End If
End Function

Regards,

B.

[Scott M.]

This seems much more complicated than it need be. Why search for the "-"
when you can immediately split the string at its location and throw away the
part you don't need?

"Branco Medeiros" <br************ *@gmail.comwrot e in message
news:11******** **************@ i42g2000cwa.goo glegroups.com.. .

>
ge*********@gma il.com wrote:

>I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.

<snip>

The function bellow may help:

Function ScanInt(ByVal T As String) As String
'Finds the position of the "-",
'counting from the last char
Dim P As Integer = T.LastIndexOf("-")

'Scans the text backward until
'a non noumeric item is found
Dim I As Integer
For I = P - 1 To 0 Step -1
If Not Char.IsDigit(T( I)) Then
Exit For
End If
Next

'I is referencing the first non-digit char
I += 1
If I < P Then
Return T.Substring(I, P - I)
Else
Return String.Empty
End If
End Function

Regards,

B.

[adm]

Scott M. wrote:

This seems much more complicated than it need be.

I think regular expressions might be the way to go here. This kind of
pattern matching is what they are designed for.

To get started, see:
http://www.regular-expressions.info/dotnet.html
http://weblogs.asp.net/rosherove/story/6863.aspx

>
"Branco Medeiros" <br************ *@gmail.comwrot e in message
news:11******** **************@ i42g2000cwa.goo glegroups.com.. .

ge*********@gma il.com wrote:

I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.

<snip>

The function bellow may help:

Function ScanInt(ByVal T As String) As String
'Finds the position of the "-",
'counting from the last char
Dim P As Integer = T.LastIndexOf("-")

'Scans the text backward until
'a non noumeric item is found
Dim I As Integer
For I = P - 1 To 0 Step -1
If Not Char.IsDigit(T( I)) Then
Exit For
End If
Next

'I is referencing the first non-digit char
I += 1
If I < P Then
Return T.Substring(I, P - I)
Else
Return String.Empty
End If
End Function

Regards,

B.

[GhostInAK]

Hello Scott M.,

There are several things wrong with your code.
First, Using IsNumeric can lead to anomolous results.
Second, your loop bounds are not correct and will cause an exception.
Third, Your loop scans forward, so the result from the example string will
be "10", not the desired "101".

I would have to agree with adm, RegEx is designed specifically for this very
thing. It excels at it.
Grab a copy of Expresso.

-Boo

Dim x As String = "10AF101-25"
Dim y As String() = x.split("-")
Dim z As String
dim i As Integer
For i = 0 To y(0).length
If IsNumeric(y(i)) Then z = y &= y(i)
Next
<ge*********@gm ail.comwrote in message
news:11******** **************@ 75g2000cwc.goog legroups.com...

>I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-"
and stops when it encounters any string character like AF

So my result should be 101.

Any help is appreciated it.

[Tom Shelton]

ge*********@gma il.com wrote:

I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.
Any help is appreciated it.\

Another possible solution :)

Option Strict On
Option Explicit On

Imports System
Imports System.Text.Reg ularExpressions

Module RegExDemoModule
Private Const DEFAULT_STRING As String = "10AF101-25"
Private Const REGULAR_EXPRESS ION As String = "[a-zA-Z]+(\d+)-"

Sub Main()
Dim expression As New Regex(REGULAR_E XPRESSION)
Dim theMatch As Match = expression.Matc h(DEFAULT_STRIN G)

Console.WriteLi ne(theMatch.Gro ups(1).ToString ())
End Sub

End Module

--
Tom Shelton [MVP]

[Branco Medeiros]

Scott M. wrote:

This seems much more complicated than it need be. Why search for the "-"
when you can immediately split the string at its location and throw away the
part you don't need?

Because split does just that: searches for a pattern. And then allocate
an array. And then populate each member of the array with a copy of the
slice between the separator.

It just bothers me to use Split to do that. Just as IsNumeric: it works
by converting the string to Double, what seems a terrible waste of
processing, to me.

The code seems too much effort but it also seems efficient, to me.
YMMV.

Regards,

Branco.

[Cor Ligthert [MVP]]

I would have to agree with adm, RegEx is designed specifically for this

very thing. It excels at it.
Grab a copy of Expresso.

But if you are not used to RegEx can a combination from the code from Scott
and Branco help you.

\\\
Dim x As String = "10AF101-25"
Dim y As String() = x.Split("-"c)
Dim i As Integer
For i = y(0).Length - 1 To 0 Step -1
If Not Char.IsDigit((y (0)(i))) Then
Exit For
End If
Next
MessageBox.Show (y(0).Substring (y(0).Length - 3))
///
Tested of course in this case,

And assuming that there is forever at leaset one hyphen in the value.

:-)

Cor

[Cor Ligthert [MVP]]

See my reply too Boo (GhostinAK)
"adm" <ad*****@yahoo. comschreef in bericht
news:11******** **************@ h48g2000cwc.goo glegroups.com.. .

>
Scott M. wrote:

>This seems much more complicated than it need be.

I think regular expressions might be the way to go here. This kind of
pattern matching is what they are designed for.

To get started, see:
http://www.regular-expressions.info/dotnet.html
http://weblogs.asp.net/rosherove/story/6863.aspx

>>
"Branco Medeiros" <br************ *@gmail.comwrot e in message
news:11******* *************** @i42g2000cwa.go oglegroups.com. ..

>
ge*********@gma il.com wrote:
I have a string like the following:

10AF101-25

I would like to extract any numerical number that precedes the "-" and
stops when it encounters any string character like AF

So my result should be 101.
<snip>

The function bellow may help:

Function ScanInt(ByVal T As String) As String
'Finds the position of the "-",
'counting from the last char
Dim P As Integer = T.LastIndexOf("-")

'Scans the text backward until
'a non noumeric item is found
Dim I As Integer
For I = P - 1 To 0 Step -1
If Not Char.IsDigit(T( I)) Then
Exit For
End If
Next

'I is referencing the first non-digit char
I += 1
If I < P Then
Return T.Substring(I, P - I)
Else
Return String.Empty
End If
End Function

Regards,

B.