Imports System
Public Class Test
Public Shared Sub Main()
Dim c As String()
Dim z As String
z = "asd trim-12 asd"
z = z.Substring(z.IndexOf("trim-"))
c = z.Split(" ")
'c = c("0").Replace("trim-","")
Dim l As Integer
l = Integer.Parse(c("0").Replace("trim-",""))
System.Console.WriteLine(l)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCglEaW0gYyBBcyBTdHJpbmcoKQoJRGltIHogQXMgU3RyaW5nCgl6ID0gImFzZCB0cmltLTEyIGFzZCIKCXogPSB6LlN1YnN0cmluZyh6LkluZGV4T2YoInRyaW0tIikpCiAgICAgICAgICAgICAgICAgICAgICAgIGMgPSB6LlNwbGl0KCIgIikKICAgICAgICAgICAgICAgICAgICAgICAgJ2MgPSBjKCIwIikuUmVwbGFjZSgidHJpbS0iLCIiKQogICAgICAgICAgICAgICAgICAgICAgICBEaW0gbCBBcyBJbnRlZ2VyCiAgICAgICAgICAgICAgICAgICAgICAgIGwgPSBJbnRlZ2VyLlBhcnNlKGMoIjAiKS5SZXBsYWNlKCJ0cmltLSIsIiIpKQoJU3lzdGVtLkNvbnNvbGUuV3JpdGVMaW5lKGwpCglFbmQgU3ViCkVuZCBDbGFzcw==