VB.NET ASP.NET String Examples – String Examples ASP.NET VB.NET
VB.NET ASP.NET String Examples – String Examples ASP.NET VB.NET
Purpose: – Illustrates using String Properties and String Methods in VB.NET ASP.NET.
Prerequistes:
- Install Visual Web Developer 2008
- Install SQL Server Express
- Download Northwind and Pubs Databases
- Attach Northwind Database to Databases in Sql Express
- Attach pubs Database to Databases in Sql Express
Notes:
- You can build your own library of syntax examples by using same web site over and over and just add new web forms to it.
Instructions:
- Use Visual Web Developer 2008
- Create new web site;
- Click File/New Web Site
- Select ASP.NET Website Template
- Select Visual Basic for Language
- name of Web Site could be VBNET_ASPNET_Syntax.
- Add New folder named “LanguageBasics”
- Right-click project name in solution explorer;
- add new folder;
- name of folder could be: LanguageBasics
- Add Web Form Named String to LanguageBasics folder
- Right-click LanguageBasics folder;
- add new item;
- Select Web Form
- Check place code behind in separate file
- Web Form name could be String
- Click on copy code in code below to copy code into web form String.aspx
- Click on copy code in second set of code below to copy code into code-behind String.aspx.vb
- Right-click on String.aspx in solution explorer and select view in browser
Step 1: Click on Copy Code to Cut-n-paste code into String.aspx
< %@ Page Language="VB" AutoEventWireup="false" CodeFile="String.aspx.vb" Inherits="LanguageBasics_String" %> < !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <asp :Label ID="Label1a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label1" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label2a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label2" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label3a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label3" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label4a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label4" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label5a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label5" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label6a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label6" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label7a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label7" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label8a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label8" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label9a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label9" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label10a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label10" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label11a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label11" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label12a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label12" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label13a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label13" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label14a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label14" runat="server" Text="Label"></asp><br /><br /> <asp :Label ID="Label15a" runat="server" Text="Label"></asp><br /> <asp :Label ID="Label15" runat="server" Text="Label"></asp><br /><br /> </div> </form> </body> </html> |
Step 2: Click on Copy Code to Cut-n-paste code into String.aspx.vb
Partial Class LanguageBasics_String
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'****************************************************************************************
' Example #1: StartsWith(string)
' Example #2: EndsWith(string)
' Example #3: IndexOf(string[, startIndex][,count])
' Example #4: LastIndexOf(string[, startIndex][,count])
' Example #5: Insert(startIndex, string)
' Example #6: PadLeft(totalWidth [, paddingCharacter])
' Example #7: PadRight(totalWidth [, paddingCharacter])
' Example #8: Remove(startIndex, count)
' Example #9: Replace(oldString, newString)
' Example #10: Substring(startIndex[, length])
' Example #11: ToLower
' Example #12: ToUpper
' Example #13: Trim
' Example #14: Length
' Example #15: Chars(index)
'****************************************************************************************
'****************************************************************************************
' Example #1: StartsWith(string)
' Returns a Boolean value that indicates if the string starts with the specified string.
'****************************************************************************************
Label1a.Text = "Example #1: StartsWith(string) "
Dim strStartsWithExample As String = "This is a test string"
Label1.Text = strStartsWithExample.StartsWith("This") 'Returns True
'****************************************************************************************
' Example #2: EndsWith(string)
' Returns a Boolean value that indicates if the string ends with the specified string.
'****************************************************************************************
Label2a.Text = "Example #2: EndsWith(string) "
Dim strEndsWithExample As String = "This is a test string"
Label2.Text = strEndsWithExample.EndsWith("string") 'Returns True
'****************************************************************************************
' Example #3: IndexOf(string[, startIndex][,count])
' Returns an integer that represents the position of the first occurrence of the
' specified number of characters. If you specify startIndex, that specifies
' where to start looking. If you specify count, that specifies how many characters to
' to search past start. If the string is not found, this method returns -1
'****************************************************************************************
Label3a.Text = "Example #3: IndexOf(string[, startIndex][,count]) "
Dim strIndexOfExample As String = "This is a test string"
Label3.Text = strIndexOfExample.IndexOf("is") 'Returns 2
'****************************************************************************************
' Example #4: LastIndexOf(string[, startIndex][,count])
' Returns an integer that represents the position of the last occurrence of the
' specified number of characters. If you specify startIndex, that specifies
' where to start looking. If you specify count, that specifies how many characters to
' to search past start. If the string is not found, this method returns -1
'****************************************************************************************
Label4a.Text = "Example #4: LastIndexOf(string[, startIndex][,count]) "
Dim strLastIndexOfExample As String = "This is a test string"
Label4.Text = strLastIndexOfExample.LastIndexOf("is") 'Returns 5
'****************************************************************************************
' Example #5: Insert(startIndex, string)
' Returns a string with the specified string inserted beginning at the specified position.
'****************************************************************************************
Label5a.Text = "Example #5: Insert(startIndex, string) "
Dim strInsertExample As String = "This is a test string"
Dim intIndex As Integer = 0
' First find position of word test
intIndex = strInsertExample.IndexOf("test")
' Insert "simple" before "test"
Label5.Text = strInsertExample.Insert(intIndex, "simple ")
'****************************************************************************************
' Example #6: PadLeft(totalWidth [, paddingCharacter])
' Returns a string that is right-aligned and padded on left with character specified.
' If no padddingCharacter is specified, space is used. totalWidth is total width of column
' This allows you to create a nice straight column even though lengths of text vary.
'****************************************************************************************
Label6a.Text = "Example #6: PadLeft(totalWidth [, paddingCharacter]) "
Dim strPadLeftExampleA As String = "This is a test string"
' PadLeft "simple" before "test"
Label6.Text = strPadLeftExampleA.PadLeft(35)
'****************************************************************************************
' Example #7: PadRight(totalWidth [, paddingCharacter])
' Returns a string that is left-aligned and padded on right with character specified.
' If no padddingCharacter is specified, space is used. totalWidth is total width of column
' This allows you to create a nice straight column even though lengths of text vary.
'****************************************************************************************
Label7a.Text = "Example #7: PadRight(totalWidth [, paddingCharacter]) "
Dim strPadRightExampleA As String = "This is a test string"
' PadRight "simple" before "test"
Label7.Text = strPadRightExampleA.PadRight(35) + "next column starts here"
'****************************************************************************************
' Example #8: Remove(startIndex, count)
' Returns a string with the specified number of characters removed starting at startIndex.
' If no Count is specified, the remainder of string is removed
'****************************************************************************************
Label8a.Text = "Example #8: Remove(startIndex, count) "
Dim strRemoveExample As String = "This is a test string"
Dim intIndexRemove As Integer = 0
' First find position of word test
intIndexRemove = strRemoveExample.IndexOf("test")
' Remove rest of string starting with word "test"
Label8.Text = strRemoveExample.Remove(intIndex)
'****************************************************************************************
' Example #9: Replace(oldString, newString)
' Returns a string with all occurences of oldString replaced by newString
'****************************************************************************************
Label9a.Text = "Example #9: Replace(oldString, newString) "
Dim strReplaceExample As String = "This is a test string"
' Replace "This" with "That"
Label9.Text = strReplaceExample.Replace("This", "That")
'****************************************************************************************
' Example #10: Substring(startIndex[, length])
' Returns the string that starts at the specified position and has the specified
' length. If the length is not specified, all of the characters to the end are returned.
'****************************************************************************************
Label10a.Text = "Example #10: Substring(startIndex[, length]) "
Dim strSubstringExample As String = "This is a test string"
Dim intIndexSubstring As Integer = 0
' First find position of word test
intIndexSubstring = strRemoveExample.IndexOf("test")
' Get everything starting at "test" to end of string
Label10.Text = strSubstringExample.Substring(intIndexSubstring)
'****************************************************************************************
' Example #11: ToLower
' Returns the string in Lowercase
'****************************************************************************************
Label11a.Text = "Example #11: ToLower"
Dim strToLowerExample As String = "This is a test string"
' Return Lowercase
Label11.Text = strToLowerExample.ToLower
'****************************************************************************************
' Example #12: ToUpper
' Returns the string in Uppercase
'****************************************************************************************
Label12a.Text = "Example #12: ToUpper "
Dim strToUpperExample As String = "This is a test string"
' Return Uppercase
Label12.Text = strToUpperExample.ToUpper
'****************************************************************************************
' Example #13: Trim
' Returns the string with leading and trailing spaces removed
'****************************************************************************************
Label13a.Text = "Example #13: Trim "
Dim strTrimExample As String = " ABC "
' Return Uppercase
Label13.Text = strTrimExample.Trim.Length
'****************************************************************************************
' Example #14: Length
' Returns the string with leading and trailing spaces removed
'****************************************************************************************
Label14a.Text = "Example #14: Length "
Dim strLengthExample As String = " ABC "
' Return Uppercase
Label14.Text = strLengthExample.Length
'****************************************************************************************
' Example #15: Chars(index)
' Gets the character at the specified index
'****************************************************************************************
Label15a.Text = "Example #15: Chars(index) "
Dim strCharsExample As String = "ABC"
' Return Uppercase
Label15.Text = strCharsExample.Chars(1)
End Sub
End Class |
Step 3: Click on Copy Code to Cut-n-paste code into web.config right after the appSettings section
<connectionstrings> <add name="Northwind_ConnectionString" connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI" /> <add name="Pubs_ConnectionString" connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=pubs;Integrated Security=SSPI" /> </connectionstrings> |
