VB.Net/Language Basics/String

Combine Insert and IndexOf

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            Dim s3 As String = "Liberty Associates, Inc. provides "
            s3 = s3 & "custom .NET development"
            Dim s5 As String = String.Copy(s2)
            Console.WriteLine("s5 copied from s2: {0}", s5)

            Dim location As Integer = s3.IndexOf("provides")
            " you can combine the two as follows:
            Dim s11 As String = _
                s3.Insert(s3.IndexOf("provides"), "usually ")
            Console.WriteLine("s11: {0}", s11)
  End Sub

End Class

      </source>

Compare String: case sensitive and not sensitive

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            Dim result As Integer 
            result = String.rupare(s1, s2)
            Console.WriteLine( _
              "compare s1: {0}, s2: {1}, result: {2}" _
              & Environment.NewLine, s1, s2, result)
            result = String.rupare(s1, s2, True)
            Console.WriteLine("Compare insensitive. result: {0}" _
               & Environment.NewLine, result)
  End Sub

End Class

      </source>

Compare two Strings

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            " create some Strings to work with
            Dim s1 As [String] = "abcd"
            Dim s2 As [String] = "ABCD"
            Dim result As Integer " hold the results of comparisons
            " compare two Strings, case sensitive
            result = [String].rupare(s1, s2)
            Console.WriteLine( _
              "compare s1: {0}, s2: {1}, result: {2}" _
              & Environment.NewLine, s1, s2, result)
            " overloaded compare, takes boolean "ignore case"
            "(true = ignore case)
            result = [String].rupare(s1, s2, True)
            Console.WriteLine("Compare insensitive. result: {0}" _
               & Environment.NewLine, result)
   End Sub

End Class

      </source>

Comparing strings

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String = "hello"
     Dim string2 As String = "good bye"
     Dim string3 As String = "Happy Birthday"
     Dim string4 As String = "happy birthday"
     Dim output As String
     Dim quotes As Char = ChrW(34)
     Console.WriteLine( "output values of four Strings")
     Console.WriteLine( "string1 = " & quotes & string1 & quotes & _
        vbCrLf & "string2 = " & quotes & string2 & quotes & _
        vbCrLf & "string3 = " & quotes & string3 & quotes & _
        vbCrLf & "string4 = " & quotes & string4 & quotes)
     Console.WriteLine(" test for equality using Equals method ")
     If (string1.Equals("hello")) Then
        Console.WriteLine( "string1 equals " & quotes & "hello" & quotes )
     Else
        Console.WriteLine( "string1 does not equal " & quotes & _
           "hello" & quotes )
     End If
     Console.WriteLine( "test for equality with = ")
     If string1 = "hello" Then
        Console.WriteLine( "string1 equals " & quotes & "hello" & _
           quotes )
     Else
        Console.WriteLine("string1 does not equal " & quotes & _
           "hello" & quotes)
     End If
     Console.WriteLine(" test for equality comparing case ")
     If (String.Equals(string3, string4)) Then
        Console.WriteLine("string3 equals string4")
     Else
        Console.WriteLine("string3 does not equal string4" )
     End If
     Console.WriteLine(" test CompareTo")
     Console.WriteLine("string1.rupareTo(string2) is " & _
        string1.rupareTo(string2) & vbCrLf & _
        "string2.rupareTo(string1) is " & _
        string2.rupareTo(string1) & vbCrLf & _
        "string1.rupareTo(string1) is " & _
        string1.rupareTo(string1) & vbCrLf & _
        "string3.rupareTo(string4) is " & _
        string3.rupareTo(string4) & vbCrLf & _
        "string4.rupareTo(string3) is " & _
        string4.rupareTo(string3) )

  End Sub " Main

End Class

      </source>

Concatenate Strings

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            " concatenation method
            Dim s3 As String = String.Concat(s1, s2)
            Console.WriteLine("s3 concatenated from s1 and s2: {0}", s3)
            " use the overloaded operator
            Dim s4 As String = s1 & s2
            Console.WriteLine("s4 concatenated from s1 & s2: {0}", s4)
   End Sub

End Class

      </source>

Concatenate String with Integer into one String

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim n As Integer
       n = 27
       n = n + 1
       Console.WriteLine("Value of n + 1 = " & n, "Variables")
   End Sub
   

End Class

      </source>

Concatenate the strings

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variables
       Dim strOne As String
       Dim strTwo As String
       Dim strResults As String
       "Set the string values
       strOne = "Hello"
       strTwo = ", world!"
       "Concatenate the strings
       strResults = strOne & strTwo
       "Display the results
       System.Console.WriteLine(strResults)
   End Sub

End Class

      </source>

Concatenate the strings and display the results

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variables and set their values
       Dim strOne As String = "Visual Basic "
       Dim strTwo As String = "2005"
       "Concatenate the strings and display the results
       System.Console.WriteLine(strOne & strTwo)
   End Sub

End Class

      </source>

Convert to Upper case and Lower Case

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Dim river As String = " www.vbex.ru   "
       Console.WriteLine(river.ToUpper())
       Console.WriteLine(river.ToLower())
       
  End Sub 

End Class

      </source>

Demonstrating StartsWith and EndsWith methods

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim strings As String()
     Dim i As Integer
     Dim quotes As Char = ChrW(34)
     strings = New String() {"started", "starting", _
        "ended", "ending"}
     Console.WriteLine(" test every string to see if it starts with "st"")
     For i = 0 To strings.GetUpperBound(0)
        If strings(i).StartsWith("st") Then
           Console.WriteLine(quotes & strings(i) & quotes & _
              " starts with " & quotes & "st" & quotes )
        End If
     Next
     Console.WriteLine(" test every string to see if it ends with "ed"")
     For i = 0 To strings.GetUpperBound(0)
        If strings(i).EndsWith("ed") Then
           Console.WriteLine( quotes & strings(i) & quotes & _
              " ends with " & quotes & "ed" & quotes )
        End If
     Next
  End Sub " Main

End Class

      </source>

Display the first part of a string

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Display the first part of a string
       System.Console.WriteLine("The length of the string in the TextBox is ".Substring(0, 12))
   End Sub

End Class

      </source>

Display the length of the string

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variable
       Dim strData As String
       strData = "string value"
       "Display the length of the string
       System.Console.WriteLine(strData.Length & " character(s)")
   End Sub

End Class

      </source>

Get sub string

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variable
       Dim strData As String
       strData = "string value"
       "Display the first three characters
       System.Console.WriteLine(strData.Substring(0, 3))
       "Display the middle three characters
       System.Console.WriteLine(strData.Substring(3, 3))
       "Display the last three characters
       System.Console.WriteLine(strData.Substring(strData.Length - 3))
   End Sub

End Class

      </source>

IndexOfAny to find first occurrence of character in array

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim searchLetters As Char() = New Char() {"c"c, "a"c, "$"c}
     Console.WriteLine("IndexOfAny to find first occurrence of character in array")
     Console.WriteLine("First occurrence of ""c""," & _
       " ""a"" or ""$"" is located at " & _
       letters.IndexOfAny(searchLetters))
     Console.WriteLine("First occurrence of ""c"", ""a"" or " & _
        """$"" is located at " & _
        letters.IndexOfAny(searchLetters, 7))
     Console.WriteLine("First occurrence of ""c"", ""a"" or " & _
        """$"" is located at " & _
        letters.IndexOfAny(searchLetters, 20, 5))
  End Sub " Main

End Class

      </source>

IndexOf to locate a substring in a string

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim searchLetters As Char() = New Char() {"c"c, "a"c, "$"c}
     Console.WriteLine("IndexOf to locate a substring in a string")
     Console.WriteLine("""def"" is located at" & _
        " index " & letters.IndexOf("def"))
     Console.WriteLine("""def"" is located at index " & _
        letters.IndexOf("def", 7))
     Console.WriteLine("""hello"" is located at index " & _
        letters.IndexOf("hello", 5, 15))
  End Sub " Main

End Class

      </source>

LastIndexOfAny to find first occurrence of character in array

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim searchLetters As Char() = New Char() {"c"c, "a"c, "$"c}
     Console.WriteLine("LastIndexOfAny to find first occurrence of character in array")
     Console.WriteLine("Last occurrence of ""c""," & _
        " ""a"" or ""$"" is located at " & _
        letters.LastIndexOfAny(searchLetters))
     Console.WriteLine("Last occurrence of ""c"", ""a"" or " & _
        """$"" is located at " & _
        letters.LastIndexOfAny(searchLetters, 1))
     Console.WriteLine("Last occurrence of ""c"", ""a"" or " & _
        """$"" is located at " & _
        letters.LastIndexOfAny(searchLetters, 25, 5))
  End Sub " Main

End Class

      </source>

LastIndexOf to find a character in a string

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim searchLetters As Char() = New Char() {"c"c, "a"c, "$"c}
     Console.WriteLine("LastIndexOf to find a character in a string")
     Console.WriteLine("Last ""c"" is located at " & _
        "index " & letters.LastIndexOf("c"c))
     Console.WriteLine("Last ""a"" is located at index " & _
        letters.LastIndexOf("a"c, 25))
     Console.WriteLine("Last ""$"" is located at index " & _
        letters.LastIndexOf("$"c, 15, 5))
  End Sub " Main

End Class

      </source>

LastIndexOf to find a substring in a string

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim searchLetters As Char() = New Char() {"c"c, "a"c, "$"c}
     Console.WriteLine("LastIndexOf to find a substring in a string")
     Console.WriteLine("Last ""def"" is located " & _
        "at index " & letters.LastIndexOf("def"))
     Console.WriteLine("Last ""def"" is located at " & _
        letters.LastIndexOf("def", 25))
     Console.WriteLine("Last ""hello"" is located at " & _
       "index " & letters.LastIndexOf("hello", 20, 15))
  End Sub " Main

End Class

      </source>

Replace the string occurance

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variables
       Dim strData As String
       Dim strNewData As String
       "Get the text from the TextBox
       strData = "Hello You"
       "Replace the string occurance
       strNewData = strData.Replace("Hello", "Goodbye")
       "Display the new string
       System.Console.WriteLine(strNewData)
   End Sub

End Class

      </source>

String class Concat method

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String = "Happy "
     Dim string2 As String = "Birthday"
     Console.WriteLine("string1 = """ & string1 & """" & _
        vbCrLf & "string2 = """ & string2 & """")
     Console.WriteLine("Result of String.Concat(string1, string2) = " & _
        String.Concat(string1, string2))
  End Sub " Main

End Class

      </source>

String compare

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variable
       Dim strName As String
       "Get the name
       strName = "STEPHANIE"
       "Compare the name
       If String.rupare(strName, "STEPHANIE", True) = 0 Then
           System.Console.WriteLine("Hello, Stephanie!")
       End If
   End Sub

End Class

      </source>

String Constructor

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim characterArray As Char()
     Dim quotes As Char = ChrW(34)
     Dim originalString, string1, string2, string3, _
              string4 As String
     characterArray = New Char() {"w"c, "w"c, "w"c, _
        "."c, "j"c, "a"c, "v"c, "a"c, "2"c,"s"c,"."c,"o"c,"m"c}
     " string initialization
     originalString = "www.vbex.ru"
     string1 = originalString
     string2 = New String(characterArray)
     string3 = New String(characterArray, 6, 3)
     string4 = New String("C"c, 5)
     Console.WriteLine( "string1 = " & quotes & string1 & quotes & _
        vbCrLf & "string2 = " & quotes & string2 & quotes & _
        vbCrLf & "string3 = " & quotes & string3 & quotes & _
        vbCrLf & "string4 = " & quotes & string4 & quotes )
  End Sub " Main

End Class

      </source>

String Copy

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
         Dim s1 As String = "abcd"
         Dim s2 As String = "ABCD"
         " the String copy method
         Dim s5 As String = String.Copy(s2)
         Console.WriteLine("s5 copied from s2: {0}", s5)
         " use the overloaded operator
         Dim s6 As String = s5
         Console.WriteLine("s6 = s5: {0}", s6)
   End Sub

End Class

      </source>

String ends with

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Dim river As String = " www.vbex.ru   "
       Console.WriteLine(river.EndsWith("I"))
       Console.WriteLine(river.EndsWith("i"))
       
  End Sub 

End Class

      </source>

String.Equals Demo

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            " the String copy method
            Dim s5 As String = String.Copy(s2)
            Console.WriteLine("s5 copied from s2: {0}", s5)
            " copy with the overloaded operator
            Dim s6 As String = s5
            Console.WriteLine("s6 = s5: {0}", s6)
            " member method
            Console.WriteLine("Does s6.Equals(s5)?: {0}", s6.Equals(s5))
            " shared method
            Console.WriteLine("Does Equals(s6,s5)?: {0}", _
               String.Equals(s6, s5))
   End Sub

End Class

      </source>

String IndexOf and Insert

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            Dim s3 As String = "S3"
            s3 = s3 & "Tail"

            Dim s5 As String = String.Copy(s2) "
            Console.WriteLine("s5 copied from s2: {0}", s5)

            Console.WriteLine("String s3 is {0} characters long. ", _
               s5.Length)
            Console.WriteLine( )
            Console.WriteLine("s3: {0}", s3)
            Console.WriteLine("s3: ends with 3?: {0}", s3.EndsWith("3"))
            Console.WriteLine( )
            Console.Write("The first occurrence of 3 ")
            Console.WriteLine("in s3 is {0}", s3.IndexOf("3"))

            Dim location As Integer = s3.IndexOf("3")

            Dim s10 As String = s3.Insert(location, "3")
            Console.WriteLine("s10: {0}", s10)

            Console.WriteLine( )
   End Sub

End Class

      </source>

String IndexOf and Insert at a position

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Dim river As String = " www.vbex.ru   "
       Console.WriteLine(river.IndexOf("s")) 
       Console.WriteLine(river.Insert(9, " domain")) 
  End Sub 

End Class

      </source>

String Insert

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            Dim s3 As String = "Liberty Associates, Inc. provides "
            s3 = s3 & "custom .NET development"
            Dim s5 As String = String.Copy(s2)
            Console.WriteLine("s5 copied from s2: {0}", s5)

            Dim location As Integer = s3.IndexOf("provides")
            Dim s10 As String = s3.Insert(location, "usually ")
            Console.WriteLine("s10: {0}", s10)
  End Sub

End Class

      </source>

String InStr

<source lang="vbnet"> Imports System Imports System.Data Imports System.Collections public class MainClass

  Shared Sub Main()
       Dim A As String = "ABCD"
       Console.WriteLine(InStr(A, "C"))
  End Sub

End Class

      </source>

String Object: =, Is and Mid

<source lang="vbnet"> Imports System Imports System.Data Imports System.Collections public class MainClass

  Shared Sub Main()
 Dim A As String
       Dim B As String
       A = "Hello"
       B = "Hel" + "lo"
       console.WriteLine(A = B)
       console.WriteLine(A Is B)
       Mid(A, 1, 1) = "X"
       Mid(B, 1, 1) = "X"
       console.WriteLine(A = B)
       console.WriteLine(A Is B)
       console.WriteLine(A)
  End Sub

End Class

      </source>

String PadLeft

<source lang="vbnet">

Public Class MainClass

  Public Shared Sub Main()
      "Strings
       Dim strConstant As String = "ABC"
       Dim strRepeat As New String("A"c, 20)
       Dim strMyString As String = "Hello World"

       Console.WriteLine(strMyString.PadLeft(30))
       Console.WriteLine(strMyString.PadLeft(20, "."c))
       
  End Sub

End Class

      </source>

String properties Length and Chars and method CopyTo of class String

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String
     Dim characterArray As Char()
     Dim i As Integer
     Dim quotes As Char = ChrW(34)
     string1 = "hello there"
     characterArray = New Char(5) {}
     Console.WriteLine( "string1: " & quotes & string1 )
     Console.WriteLine( " test Length property ")
     Console.WriteLine( "Length of string1: " & string1.Length )
     Console.WriteLine( " loop through characters in string1 and display reversed ")
     Console.WriteLine( "The string reversed is: ")
     For i = string1.Length - 1 To 0 Step -1
        Console.WriteLine( string1.Chars(i) )
     Next
     Console.WriteLine( " copy characters from string1 into characterArray ")
     string1.CopyTo(0, characterArray, 0, 5)
     Console.WriteLine( "The character array is: " )
     For i = 0 To characterArray.GetUpperBound(0)
        Console.WriteLine( characterArray(i) )
     Next
  End Sub " Main

End Class

      </source>

String Replace Demo

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim myString As String
       myString = "AAA"
       " replace the string...
       Dim newString As String
       newString = myString.Replace("A", "NNN")
       " display the new string...
       Console.WriteLine(newString)
   End Sub

End Class

      </source>

String: set value and display

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variable
       Dim strData As String
       "Set the string value
       strData = "Hello, world!"
       "Display the results
       System.Console.WriteLine(strData)
   End Sub

End Class

      </source>

String Split

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            Dim s1 As String = "One,Two,Three "
            Const Space As Char = " "c
            Const Comma As Char = ","c
            Dim delimiters( ) As Char = {Space, Comma}
            Dim output As String = ""
            Dim ctr As Integer = 0
            Dim resultArray As String( ) = s1.Split(delimiters)
            Dim subString As String
            For Each subString In resultArray
                ctr = ctr + 1
                output &= ctr.ToString( )
                output &= ": "
                output &= subString
                output &= Environment.NewLine
            Next subString
            Console.WriteLine(output)
   End Sub

End Class

      </source>

String: Substring, LastIndexOf

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass

   Shared Sub Main(ByVal args As String())
            Dim s1 As String = "One Two Three Four"
            Dim index As Integer
            index = s1.LastIndexOf(" ")
            Dim s2 As String = s1.Substring((index + 1))
            s1 = s1.Substring(0, index)
            index = s1.LastIndexOf(" ")
            Dim s3 As String = s1.Substring((index + 1))
            s1 = s1.Substring(0, index)
            index = s1.LastIndexOf(" ")
            Dim s4 As String = s1.Substring((index + 1))
            s1 = s1.Substring(0, index)
            index = s1.LastIndexOf(" ")
            Dim s5 As String = s1.Substring((index + 1))
            Console.WriteLine("s1: {0}", s1)
            Console.WriteLine("s2: {0}", s2)
            Console.WriteLine("s3: {0}", s3)
            Console.WriteLine("s4: {0}", s4)
            Console.WriteLine("s5: {0}", s5)
   End Sub

End Class

      </source>

String Substring method

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim quotes As Char = ChrW(34)
     Console.WriteLine("invoke SubString method and pass it one parameter")
     Console.WriteLine("Substring from index 20 to end is " & _
        quotes & letters.Substring(20) & quotes )
     Console.WriteLine("invoke SubString method and pass it two parameters")
     Console.WriteLine("Substring from index 0 to 6 is " & _
        quotes & letters.Substring(0, 6) & quotes)
  End Sub " Main

End Class

      </source>

String ToCharArray method

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String = "hello"
     Dim string2 As String = "GOOD BYE "
     Dim string3 As String = "   spaces   "
     Dim charArray() As Char = string1.ToCharArray()
     Console.WriteLine("string1 = " & string1 & vbCrLf & "string2 = " & _
        string2 & vbCrLf & "string3 = " & string3)
     Console.WriteLine("string1 as a character " & _
        "array = ")

  End Sub " Main

End Class

      </source>

String ToLower and ToUpper

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String = "hello"
     Dim string2 As String = "GOOD BYE "
     Dim string3 As String = "   spaces   "
     Dim charArray() As Char = string1.ToCharArray()
     Console.WriteLine("string1 = " & string1 & vbCrLf & "string2 = " & _
        string2 & vbCrLf & "string3 = " & string3)
     
     Console.WriteLine("string1.ToUpper() = " & _
        string1.ToUpper() & vbCrLf & "string2.ToLOwer() = " & _
        string2.ToLower())
  End Sub " Main

End Class

      </source>

String ToString method

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String = "hello"
     Dim string2 As String = "GOOD BYE "
     Dim string3 As String = "   spaces   "
     Dim charArray() As Char = string1.ToCharArray()
     Console.WriteLine("string1 = " & string1 & vbCrLf & "string2 = " & _
        string2 & vbCrLf & "string3 = " & string3)
     Console.WriteLine("string1 = " & string1.ToString())

  End Sub " Main

End Class

      </source>

String Trim method

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim string1 As String = "hello"
     Dim string2 As String = "GOOD BYE "
     Dim string3 As String = "   spaces   "
     Dim charArray() As Char = string1.ToCharArray()
     Console.WriteLine("string1 = " & string1 & vbCrLf & "string2 = " & _
        string2 & vbCrLf & "string3 = " & string3)
     Console.WriteLine("string3 after trim = "" & _
        string3.Trim() & """)
  End Sub " Main

End Class

      </source>

Sub string with only one parameter

<source lang="vbnet">

Public Class MainClass

  Public Shared Sub Main()
      "Strings
       Dim strConstant As String = "ABC"
       Dim strRepeat As New String("A"c, 20)
       Dim strMyString As String = "Hello World"
       Console.WriteLine(strMyString.Substring(0, 5))
       Console.WriteLine(strMyString.Substring(6))
       
  End Sub

End Class

      </source>

The length of the string

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
      System.Console.WriteLine("The length of the string" & _
           "The length of the string".Length)        
   End Sub

End Class

      </source>

Trim String space

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Dim river As String = " www.vbex.ru   "
       Console.WriteLine(river.Trim())
       
  End Sub 

End Class

      </source>

Two ways to concatenate strings

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            " concatenation method
            Dim s3 As String = String.Concat(s1, s2)
            Console.WriteLine("s3 concatenated from s1 and s2: {0}", s3)
            " use the overloaded operator
            Dim s4 As String = s1 & s2
            Console.WriteLine("s4 concatenated from s1 & s2: {0}", s4)
  End Sub

End Class

      </source>

Two ways to copy strings

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
         Dim s1 As String = "abcd"
         Dim s2 As String = "ABCD"
         " the String copy method
         Dim s5 As String = String.Copy(s2)
         Console.WriteLine("s5 copied from s2: {0}", s5)
         " use the overloaded operator
         Dim s6 As String = s5
         Console.WriteLine("s6 = s5: {0}", s6)
  End Sub

End Class

      </source>

Use String.Equals methods

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            " the String copy method
            Dim s5 As String = String.Copy(s2)
            Console.WriteLine("s5 copied from s2: {0}", s5)
            " copy with the overloaded operator
            Dim s6 As String = s5
            Console.WriteLine("s6 = s5: {0}", s6)
            " member method
            Console.WriteLine("Does s6.Equals(s5)?: {0}", s6.Equals(s5))
            " shared method
            Console.WriteLine("Does Equals(s6,s5)?: {0}", _
               String.Equals(s6, s5))
  End Sub

End Class

      </source>

Use the Mid function to replace within the string

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass

   Shared Sub Main()
            Dim s1 As String = "abcd"
            Dim s2 As String = "ABCD"
            Dim s3 As String = "Liberty Associates, Inc. provides "
            s3 = s3 & "custom .NET development"
            Dim s5 As String = String.Copy(s2)
            Console.WriteLine("s5 copied from s2: {0}", s5)

            Dim location As Integer = s3.IndexOf("provides")
            " you can combine the two as follows:
            Dim s11 As String = _
                s3.Insert(s3.IndexOf("provides"), "usually ")
            "use the Mid function to replace within the string
            Mid(s11, s11.IndexOf("usually") + 1, 9) = "always!"
            Console.WriteLine("s11 now: {0}", s11)
  End Sub

End Class

      </source>

Using String searching methods: IndexOf

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Dim letters As String = "abcdefghijklmabcdefghijklm"
     Dim searchLetters As Char() = New Char() {"c"c, "a"c, "$"c}
     Console.WriteLine(" test IndexOf to locate a character in a string")
     Console.WriteLine("""c"" is located at index " & _
        letters.IndexOf("c"c) )
     Console.WriteLine("""a"" is located at index " & _
        letters.IndexOf("a"c, 1) )
     Console.WriteLine("""$"" is located at index " & _
        letters.IndexOf("$"c, 3, 5) )

  End Sub " Main

End Class

      </source>