Question

How to get the first N words from a string in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function FirstNWords(ByVal s As String, ByVal n As Integer) As String
        For i As Integer = 0 To s.Length - 1

            If s(i) = " "c Then
                n -= 1
            End If

            If n = 0 Then
                Return s.Substring(0, i)
            End If
        Next

        Return ""
    End Function

    Public Shared Sub Main()
		Dim s As String = "vb.net c++ java c python c#"
        Dim N As Integer = 3
	
        Dim first3 As String = FirstNWords(s, N)
	
        Console.Write(first3)
    End Sub
End Class





' run:
'
' vb.net c++ java
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq

Public Class Program
	Public Shared Sub Main()
		Dim s As String = "vb.net c# c++ java c python"
        Dim N As Integer = 3
		
        Dim words As String() = s.Split()
		
        Dim first3 As String = String.Join(" ", words.Take(N))
		
        Console.Write(first3)
    End Sub
End Class






' run:
'
' vb.net c# c++
'

 

70+ SQL courses for beginners and professionals