Click here to Skip to main content
13,093,097 members (68,669 online)
Rate this:
Please Sign up or sign in to vote.
See more:
Dim strmystring as stirng = "record0030040acd035a856ab"

In this case I want to find 040 (but it could be 034 or 856)
Dim I as interger = strmystring.indexof("040")
Next ouput the substring
Dim strsubstring as string = strmystring.substring(i)

Now my stirng looks like “040acd035a856ab”
With this string how can I output the fallowing:

So I want the alphabets after 040, appreciate any ideas.
Posted 23-May-11 7:20am
Updated 23-May-11 7:24am
Rate this: bad
Please Sign up or sign in to vote.

Solution 1

If you know it only needs the next 4 characters...change your substring line to this:
Dim strsubstring as string = strmystring.substring(i,4)

The second parm on the substring function means you want to pull the next 4 characters.

--- oops...I didn't read your question well enough...

You'll need to pull the whole thing like you did before. I suppose then you could loop through the string and look for the first character that is could use the IsNumeric[^] function. Or you could figure out a way to do it with regular expressions.

Here are google results[^] for regular expressions. Here are CP Articles[^] for regular expressions. These should help you get started.
Rate this: bad
Please Sign up or sign in to vote.

Solution 2

I have written it:
Module Module1
    Sub Main()
        Dim Str = "record0030040acd035a856ab"
        Dim I = Str.IndexOf("040")
        For a = I + 3 To Str.Length - 1
            Dim Chr = Str(a)
            If Char.IsLetter(Chr) Then
                Console.WriteLine("040" + Chr)
                Exit For
            End If
    End Sub
End Module
stopete82 23-May-11 13:36pm
Thanks this is what I was looking for.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy |
Web03 | 2.8.170813.1 | Last Updated 23 May 2011
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100