Reverse the String Using JavaScript

Use the following function to reverse the string using javascript

Example : reverseStr('KnowledgeParlour')
Output    : 'ruolraPegdelwonK'

Javascript :
    function reverseStr(str) 
    {
        if (!str) return; // nothing to change
        var rstr = '';
        for (i=str.length-1;i>=0;i--) 
        {
            rstr += str.charAt(i);
        }
        return rstr;
    }

Function to Validate Number of Digits Before and After Decimal Point in TextBox

Usage : On KeyPress Event we Can call the function to Validate the Text Box.
ChkDecimalNumbers(txtNo,e,2,3)
Parameter : Textbox , KeyPressEventArgs , Number of Digits before Decimal & Number of Digits After Decimal
Output :22.987
Asc(x.KeyChar) = 8 : It Represent BackSpace

    Code :
    Shared Sub ChkDecimalNumbers(ByVal ctxt As TextBox, ByVal x As System.Windows.Forms.KeyPressEventArgs, ByVal bfrDec As Int16, ByVal aftDec As Int16)
        If (Char.IsControl(x.KeyChar) Or Char.IsDigit(x.KeyChar) = True) Or x.KeyChar = "." Or Asc(x.KeyChar) = 8 Then
            If ctxt.Text.IndexOf(".") <> -1 Then
                If x.KeyChar = "." Then
                    x.Handled = True
                End If
                If ctxt.SelectionStart >= 0 And Asc(x.KeyChar) <> 8 Then
                    If (((Mid(ctxt.Text, ctxt.Text.IndexOf(".") + 1).Length > aftDec And ctxt.SelectionStart > ctxt.Text.IndexOf(".")) Or (Mid(ctxt.Text, 1, ctxt.Text.IndexOf(".") + 1).Length > bfrDec And ctxt.SelectionStart < selectionlength = 0))) Then
                        x.Handled = True
                    End If
                End If
            Else
                If (aftDec = 0 And x.KeyChar = ".") Or (((Mid(ctxt.Text, 1).Length > bfrDec - 1 And x.KeyChar <> "." And Asc(x.KeyChar) <> 8) Or (ctxt.SelectionStart > bfrDec And x.KeyChar.ToString.Equals("."))) And ctxt.SelectionLength = 0) Then
                    x.Handled = True
                End If
            End If
        Else
            x.Handled = True
        End If
    End Sub 

Common Function to Check the TextBox is blank or not

Parameter : Textbox, & TextBox Description
Output : Returns False, Popup the Message like "Name Can Not Be Blank."

Code :
    Shared Function ChkBlank(ByVal CTxt As TextBox, ByVal CTxtNam As String) As Boolean
        If Len(CTxt.Text.Trim()) > 0 Then
            CTxt.Text = UCase(CTxt.Text)
            Return True
        Else
            MessageBox.Show(CTxtNam & " Can Not Be Blank", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            CTxt.Focus()
            Return False
        End If
    End Function

To Verifies that the browser supports the required capabilities of JavaScript

Verifies that the browser supports the required capabilities of JavaScript.
The following code returns "True" else "False" If Browserversion and Javscript enabled .

Code :
    Public Function fnDetectBrowserCapabilities() As Boolean
       Try
           Dim strBrowser As String = String.Empty
           Dim intVersion As Int16 = 0
           Dim boolFrames As Boolean = False
           Dim boolTables As Boolean = False
           Dim boolCookies As Boolean = False
           Dim boolActiveX As Boolean = False
           Dim decJavaScript As Decimal = 0.0

           strBrowser = HttpContext.Current.Request.Browser.Browser
           intVersion = HttpContext.Current.Request.Browser.MajorVersion
           boolFrames = HttpContext.Current.Request.Browser.Frames
           boolTables = HttpContext.Current.Request.Browser.Tables
           boolCookies = HttpContext.Current.Request.Browser.Cookies
           decJavaScript = CDec(HttpContext.Current.Request.Browser.EcmaScriptVersion.ToString)
           boolActiveX = HttpContext.Current.Request.Browser.ActiveXControls

           If strBrowser = "IE" AndAlso intVersion < 6 Then
               Return False
           ElseIf strBrowser = "Firefox" AndAlso intVersion < 2 Then
               Return False
           ElseIf boolFrames = False Then
               Return False
           ElseIf boolTables = False Then
               Return False
           ElseIf boolCookies = False Then
               Return False
           ElseIf decJavaScript < 1 Then
               Return False
           ElseIf strBrowser = "IE" AndAlso boolActiveX = False Then
               Return False
           Else
               Return True
           End If

       Catch ex As Exception
           Return False
       End Try

   End Function

Get Random Passward (String) Using GUID, Passward Length (Maximum) 32 Char

Get Random Passward (String) Using GUID

 GUID - Represents a Globally unique identifier.
 Purpose : Function For Generatind Password Using System.Guid.NewGuid()
 Paramete : Length - Passward Length (Maximum) 32 Char

Code :
    Public Function GetRandomPasswordUsingGUID1(ByVal length As Double) As String
        Dim guidResult As String = System.Guid.NewGuid.ToString
        guidResult = guidResult.Replace("-", String.Empty) 'Use to Remove "-" from Random Passward
        If length <= 0 OrElse length > guidResult.Length Then
            Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
        End If
        Return guidResult.Substring(0, length)
    End Function 

Get Random Passward (String) Using GUID , Passward Length (Maximum) 36 Char

Get Random Passward (String) Using GUID

 GUID - Represents a Globally unique identifier.
 Purpose : Function For Generatind Password Using System.Guid.NewGuid()
 Paramete : Length - Passward Length (Maximum) 36 Char

 Code :
   Public Function GetRandomPasswordUsingGUID(ByVal length As Double) As String

       Dim guidResult As String = System.Guid.NewGuid.ToString
       If length <= 0 OrElse length > guidResult.Length Then
           Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
       End If
       Return guidResult.Substring(0, length)
   End Function

To Wite in XML File in Encrypted Format & To Read from XML file in Decrypted Format


Let the Table Having Records like Following
select * from tbcountrymst

1 Afghanistan
2 Albania
3 Algeria
4 Andorra
5 Angola
6 Antigua and Barbuda
7 Argentina
8 Armenia
9 Australia
10 Austria
11 Azerbaijan

Code :

Public Class ReadWriteXML

#Region "Variables"
Dim Con As New SqlClient.SqlConnection
Dim com As New SqlClient.SqlCommand
Dim ds, dsRW As New DataSet
#End Region

Private Sub ReadWriteXML_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Con.ConnectionString = "Password=YY;Persist Security Info=True;User ID=YY;Initial Catalog=YY;Data Source=YY"
Con.Open()
End Sub

#Region "EnCrypt or DeCrypt String "
Public Function fnEnCryptDeCrypt(ByVal Text As String) As String
Dim strTempChar As String = "", i As Integer
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < strtempchar =" CType(Asc(Mid$(Text,"> 128 Then
strTempChar = CType(Asc(Mid$(Text, i, 1)) - 128, String)
End If
Mid$(Text, i, 1) = Chr(CType(strTempChar, Integer))
Next i
Return Text
End Function
#End Region

'To Write To XML File in Encrypted Format
Private Sub btnWriteToXML_Encrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWriteToXML_Encrypt.Click
ds = New DataSet
dsRW = New DataSet
Dim adp As New SqlClient.SqlDataAdapter("Select Code,Description From tbcountrymst", Con)
adp.Fill(ds)

If ds.Tables.Count > 0 Then
If ds.Tables(0).Rows.Count > 0 Then

'Needs to Crate Dataset Which Columns DataType should be String.
'So It will allow any Characters as the data (Encrypted Data)
dsRW.Tables.Add()
dsRW.Tables(0).TableName = ds.Tables(0).TableName
For j As Integer = 0 To ds.Tables(0).Columns.Count - 1
Dim dc As New DataColumn
dc.ColumnName = ds.Tables(0).Columns(j).ColumnName
dc.DataType = "String".GetType()
dsRW.Tables(0).Columns.Add(dc)
Next

'Now Encrypt all the Original Value and put it in New dataset which keeps all the encrypted data.
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
dsRW.Tables(0).Rows.Add()
For j As Integer = 0 To ds.Tables(0).Columns.Count - 1
dsRW.Tables(0).Rows(i).Item(j) = fnEnCryptDeCrypt(ds.Tables(0).Rows(i).Item(j))
Next
Next
End If
End If

'Write the Encrypted Dataset in XML
dsRW.WriteXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

'To Check the Output (Encrypted Value) at the RunTime
Process.Start("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

End Sub

'To Read From XML File in Decrypted Format
Private Sub btnReadfromXML_Decrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadfromXML_Decrypt.Click
ds = New DataSet

'Read the Encrypted Data From XML file
ds.ReadXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

If ds.Tables.Count > 0 Then
If ds.Tables(0).Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
For j As Integer = 0 To ds.Tables(0).Columns.Count - 1

'Decrypt all the Values in the DataSet
ds.Tables(0).Rows(i).Item(j) = fnEnCryptDeCrypt(ds.Tables(0).Rows(i).Item(j))

Next
Next
End If
End If

'To Check the Output (Decrypted Value) at the RunTime
ds.WriteXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
Process.Start("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
End Sub

End Class

Function To Get the Difference between 2 Dates in different Formats

Purpose : Function To Get the Difference between 2 Dates .
In the Form of : Day ,DayOfYear ,Hour,Minute,Month,Quarter Second,Weekday,Week Of Year,Year
Use : DateInterval.Day / DateInterval.DayOfYear ....

Code :
    Public Sub DateDifference()
        Dim DateDiffVal As Long
        DateDiffVal = DateDiff(DateInterval.Year, DateTimePicker1.Value, DateTimePicker2.Value)
        MsgBox("Date Difference Is : " & DateDiffVal, MsgBoxStyle.DefaultButton1, "Information")
    End Sub 

Sort List box in ASP .Net

SortedList :

Represents a collection of key/value pairs that are sorted by the keys and are accessible by key and by index.


Code Behind :
    Partial Class SortListBox
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not IsPostBack Then
                'Let List box Having the following Item.
                Dim strcountry() As String = {"Denmark", "China", "Italy", "Australia", "India", "Egypt", "Bhutan"}
                Dim strcountryID() As String = {"Den", "Chi", "Ita", "Aus", "Ind", "Egy", "Bhu"}

                'Populate the List Box
                For i As Int16 = 0 To strcountry.Length - 1
                    ListBox1.Items.Add(i)
                    ListBox1.Items(i).Text = strcountry(i)
                    ListBox1.Items(i).Value = strcountryID(i)
                Next
            End If
        End Sub

        'Click on btnSort to Sort the ListBox.
        Protected Sub btnSort_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSort.Click

            'Use the object of SortedList to Sort the Items
            Dim objSortlst As New SortedList

            For i As Int16 = 0 To ListBox1.Items.Count - 1
                'objSortlst.Add(key,value) . It keeps value in sorted Order
                objSortlst.Add(ListBox1.Items(i).Text, ListBox1.Items(i).Value)
            Next

            'Now objSortlst is having data in Sorted order of Key
            ListBox1.DataSource = objSortlst
            ListBox1.DataTextField = "key"
            ListBox1.DataValueField = "value"
            ListBox1.DataBind()
        End Sub

    End Class

Use of Globalization Culture ,CultureInfo and CultureTypes

Globalization is the process of designing and developing applications that function for multiple cultures.
CultureInfo : Provides information about a specific culture (called a "locale" for unmanaged code development). The information includes the names for the culture, the writing system, the calendar used, and formatting for dates and sort strings.

CultureTypes : Defines the types of culture lists that can be retrieved using
System.Globalization.CultureInfo.GetCultures(System.Globalization.CultureTypes)


Use the Following code in aspx (design page).Controls Used : Calender, Label and List box (AutoPostback=true).


Code Behind :
    Partial Class frmGlobalizationCulture
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Try
                If Not IsPostBack Then
                    'Bind all the Cultures in List box on First time page load.
                    lstCulture.Items.Clear()
                    Dim CulInfo As System.Globalization.CultureInfo()
                    CulInfo = System.Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.SpecificCultures)
                    Dim StrShort As New SortedList 'Used for the Sorting the Values in ListBox
                    For j As Integer = 0 To CulInfo.Length - 1
                        StrShort.Add(CulInfo(j).DisplayName, CulInfo(j).ToString)
                    Next

                    'Bind all the "SpecificCultures" in the List Box.
                    lstCulture.DataSource = StrShort
                    lstCulture.DataTextField = "key"
                    lstCulture.DataValueField = "value"
                    lstCulture.DataBind()

                    'Select the "CurrentCulture" in the List Box.
                    lstCulture.SelectedValue = System.Threading.Thread.CurrentThread.CurrentCulture.ToString()
                End If
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

        Protected Sub lstCulture_SelectedIndexChanged(ByVal sender As  Object, ByVal e As System.EventArgs) Handles  lstCulture.SelectedIndexChanged
            Try
                'Set the Selected Culture in the ListBox as the CurrentCulture.
                System.Threading.Thread.CurrentThread.CurrentCulture =  New System.Globalization.CultureInfo(Me.lstCulture.SelectedValue)
                System.Threading.Thread.CurrentThread.CurrentUICulture =  New System.Globalization.CultureInfo(Me.lstCulture.SelectedValue)
                lstCulture.Focus()
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

    End Class