Welcome to collectivesolver - Programming & Software Q&A. A website you can trust. All programs tested and works. Contact: aviboots(AT)netvision.net.il
Web Hosting

Bonsai Boy of New York Bonsai Trees and Accessories

BlueHost Web Hosting

Liquid Web iThemes WordPress Hosting

Ecommerce Software - Best Ecommerce Platform Made for You - Free Trial

DreamHost Web Hosting


getResponse autofunnels

Liquid Web Cloud VPS Hosting

11,144 questions

15,208 answers

573 users

How to get the first word from string in VB.NET

4 Answers

0 votes
Imports System

Public Class Test
    Public Shared Function first_word(s As String) As String
        For i As Integer = 0 To s.Length - 1
            If s(i) = " " Then
                Return s.Substring(0, i)
            End If
        Next
        Return ""
    End Function
    
    Public Shared Sub Main()
        Dim s As String = "vb.net c# java php c"
        
        Console.WriteLine(first_word(s))
    End Sub
End Class


' run
'
' vb.net

 




answered Apr 18 by avibootz
0 votes
Imports System

Public Class Test
    Public Shared Sub Main()
        Dim s As String = "vb.net javascript php c c++ python c#"
         
        Console.Write(s.Substring(0, s.IndexOf(" ")))
        
    End Sub
End Class



' run:
' 
' vb.net
'

 




answered Sep 8 by avibootz
0 votes
Imports System

Public Class Test
    Public Shared Sub Main()
        Dim s As String = "vb.net javascript php c c++ python c#"
         
        Dim first_word As String = s.Split(" ")(0)
         
        Console.Write(first_word)
        
    End Sub
End Class



' run:
' 
' vb.net
'

 




answered Sep 8 by avibootz
0 votes
Imports System

Public Class Test
    Public Shared Sub Main()
        Dim s As String = "vb.net javascript php c c++ python c#"
         
        Dim first_word As String
        
        first_word = if ((s.IndexOf(" ") > -1), s.Substring(0, s.IndexOf(" ")), s)

        Console.Write(first_word)
        
    End Sub
End Class



' run:
' 
' vb.net
'

 




answered Sep 8 by avibootz
...