Friday, April 11, 2014

Alpha Numeric Data Sort In Datatable using VB.Net

Private Function AlphaNumericDataSortInDatatable(input As DataTable, Columnname As String, SortType As String) As DataTable Try If input.Rows.Count > 0 Then Dim lobjDic As New Dictionary(Of String, List(Of Integer)) Dim IntegerData As New List(Of Integer) Dim AlpData As New List(Of String) For i As Integer = 0 To input.Rows.Count - 1 If CheckInteger(input.Rows(i)(0)) Then IntegerData.Add(CInt(input.Rows(i)(0))) Else AlpData.Add(input.Rows(i)(0)) End If Next IntegerData.Sort() lobjDic.Add("INT", IntegerData) AlpData.Sort() For Each objalp As String In AlpData Dim Key As String = "" Dim ValueObj As New List(Of Integer) For i As Integer = 0 To objalp.Length - 1 If CheckInteger(objalp.Substring(i, 1)) Then Key = objalp.Substring(0, i) If Not lobjDic.ContainsKey(Key) Then ValueObj.Add(CInt(objalp.Substring(i, objalp.Length - 1))) lobjDic.Add(Key, ValueObj) Exit For Else ValueObj = lobjDic(Key) ValueObj.Add(CInt(objalp.Substring(i, objalp.Length - 1))) Exit For End If End If Next Next For Each keyobj As String In lobjDic.Keys Dim ValueObj As New List(Of Integer) ValueObj = lobjDic(keyobj) ValueObj.Sort() Next Dim ColumnObj As New DataColumn ColumnObj.ColumnName = "Identity" ColumnObj.DataType = GetType(Integer) input.Columns.Add(ColumnObj) Dim Cnt As Integer = 1 For Each keyobj As String In lobjDic.Keys For Each valueobj As String In lobjDic(keyobj) If keyobj = "INT" Then Dim myRow() As Data.DataRow myRow = input.Select(Columnname & " = '" & valueobj & "'") myRow(0)("Identity") = Cnt Else Dim myRow() As Data.DataRow myRow = input.Select(Columnname & " = '" & keyobj & valueobj & "'") myRow(0)("Identity") = Cnt End If Cnt = Cnt + 1 Next Next Dim dvGAmt As New DataView(input) dvGAmt.Sort = "Identity " + SortType Return dvGAmt.Table End If Catch ex As Exception Return input End Try Return input End Function Private Function CheckInteger(ByVal input As String) As Boolean Dim lstrReturn As Boolean = False Try Dim intval As Integer lstrReturn = Integer.TryParse(input, intval) Catch ex As Exception Return False End Try Return lstrReturn End Function
Its sort only array like 1,A1,b1,c1,c2,2,c3,b3

Monday, December 30, 2013

Make Click and Touch Events Combined in JQUERY

IsMobileDevice
 Public Function IsMobileDevice() As Boolean  
     Dim u As String = HttpContext.Current.Request.ServerVariables("HTTP_USER_AGENT")  
     Dim b As New Regex("(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|mobile.+firefox|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows (ce|phone)|xda|xiino", RegexOptions.IgnoreCase)  
     Dim v As New Regex("1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-", RegexOptions.IgnoreCase)  
     If b.IsMatch(u) Or v.IsMatch(Left(u, 4)) Then  
       Return True  
     Else  
       Return False  
     End If  
   End Function  
Call In SCRIPT Tag
  var clickevent =""  
       <%If IsMobileDevice Then%>  
       clickevent ="touchstart";  
       <%Else%>  
       clickevent ="click";  
       <%End If%>  
  $(".filterlink").on(clickevent,function(e){    
         e.stopImmediatePropagation();        
         e.preventDefault();  
         showfilter(this);  
        });