Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: string VB.NET
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:
040a
040c
040d
 
So I want the alphabets after 040, appreciate any ideas.
Posted 23-May-11 8:20am
Edited 23-May-11 8:24am
v2
Rate this: bad
good
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 alpha...you 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.
  Permalink  
v2
Rate this: bad
good
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)
            Else
                Exit For
            End If
        Next
    End Sub
 
End Module
  Permalink  
Comments
stopete82 at 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
0 OriginalGriff 490
1 Maciej Los 299
2 BillWoodruff 174
3 /\jmot 170
4 Suraj Sahoo | Coding Passion 150
0 OriginalGriff 8,484
1 Sergey Alexandrovich Kryukov 7,407
2 DamithSL 5,639
3 Maciej Los 5,159
4 Manas Bhardwaj 4,986


Advertise | Privacy | Mobile
Web02 | 2.8.1411023.1 | Last Updated 23 May 2011
Copyright © CodeProject, 1999-2014
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