Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim list1() as String={"CONE0Z08TTTBALL","BARE0U04TTTBALL",
- "APTN0S01TTTBALL","SPTN0K02TTTBALL"}
- Dim list1() As String = {"CONE0Z08TTTBALL", "BARE0U04TTTBALL",
- "APTN0S01TTTBALL", "SPTN0K02TTTBALL"}
- Dim result = list1.OrderBy(Function(q) q.Substring(5)).ToArray
- For Each s As String In result
- Console.WriteLine(s)
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement