My Code Snippet

Ubuntu "4us"

noreply@blogger.com (kkchoh) — Wed, 26 Oct 2011 09:13:00 +0000

Firefox 6 is out

noreply@blogger.com (kkchoh) — Thu, 18 Aug 2011 01:59:00 +0000

At Mozilla the trains run on time. The open source group is out with its second rapid release browser today, providing users with improved functionality and performance.

Firefox 6, which is being officially released by Mozilla today, follows Firefox 5, which debuted in July. Both Firefox 5 and 6 are part of Mozilla's new rapid release cycle, which aims to deliver more browser updates with incremental features. Previously Mozilla had released major browser update on a less predictable cycle with long with development cycles of a year or longer in between releases.

While the new rapid release cycle does not present the same volume of new features as the longer release cycles, Mozilla is confident that the process is working.

https://www.mozilla.com/en-US/firefox/new/

Scratchpad, a tool that included in the new Firefox, is intended to make it simple to quickly enter, execute, test and refine JavaScript snippets in Firefox without needing to work in a one-line console for web developer.

Firefox 6 is now available for desktop (Windows, Mac and Linux) and Android users.

Request.ServerVariables, Another LINQ way

noreply@blogger.com (kkchoh) — Sun, 22 May 2011 04:49:00 +0000

I recently came across this blog, by using an extension method with sample codes on how to retrieve the value from Request.ServerVariables using LINQ.

Here is my modification of the method, which is much more shorter, using LINQ to to retrieve the server variables:

Dim d As IEnumerable(Of System.Collections.Generic.KeyValuePair(Of String, String)) = _
From c In System.Web.HttpContext.Current.Request.ServerVariables _
Let s = System.Web.HttpContext.Current.Request.ServerVariables(c) _
Select New System.Collections.Generic.KeyValuePair(Of String, String)(c, s)

After that, bind it to GridView:

GridView1.DataSource = d
GridView1.Bind()

This will give you all the values from Request.ServerVariables.

Request.ServerVariables, Another LINQ way | My Code Snippet

Ubuntu Linux: apt-get upgrade invalid content-range header

noreply@blogger.com (kkchoh) — Tue, 19 Apr 2011 00:51:00 +0000

"The HTTP server sent an invalid Content-Range header (IP: IP Address)"

Sometime you encounter this error, when update your system using sudo apt-get update && sudo apt-get upgrade. This could be caused by some incomplete packages downloaded that still cached in /var/cache/apt/archives/partial.

Open your terminal, go to the particular folder by typing cd /var/cache/apt/archives/partial and remove all the incomplete download packages using sudo rm *, and try again.

Rename A File In VB.Net

noreply@blogger.com (kkchoh) — Wed, 24 Nov 2010 09:00:00 +0000

When I do a Google search of How To Rename A File In VB.NET, most of them suggest to use:

System.IO.File.Move(ExistingFileName, NewFileName)

There're other ways to change the file name. You can use

My.Computer.FileSystem.RenameFile(ExistingFileName, NewFileName)

Dim fi As New System.IO.FileInfo(ExistingFileName)
fi.MoveTo(NewFileName)

Microsoft SQL Server 2008 Service Pack 2 Released

noreply@blogger.com (kkchoh) — Thu, 07 Oct 2010 00:58:00 +0000

The latest service pack for Microsoft SQL Server 2008 is available for download.

Please visit this link to get the your most appropriate version, or use the following direct down links:

ReadMe.html
IA64
x64
x32

Permanent Link

Razer L33T Gaming Suite Giveaway

noreply@blogger.com (kkchoh) — Mon, 04 Oct 2010 01:56:00 +0000

Until the 25th October 2010, one lucky fan will get to score the ultimate gaming suite powered by Razer - worth over US$500 - shipped right to your doorstep that will consist of Razer‘s suite of award winning gaming peripherals - A choice of your Professional Gaming Mouse, your ideal Professional Gaming Surface and Gaming Keyboard (just tell us which one you would like to have - it‘s yours), the Razer Megalodon 7.1 Gaming Audio Headset, Razer Armadillo2 Mouse Cable Management System, a Razer Attitude Tee, Razer Messenger Bag, Razer Gear Rack and a Razer l33t Pack.

For those who look for online freebies giveaway, don't miss this good deal. Click here to register before too late.

Permanent Link

Steps To Kill Backgound Process In Unix/Linux)

noreply@blogger.com (kkchoh) — Sun, 03 Oct 2010 03:07:00 +0000

The background on this:

One of our operation was running a application hosted in Unix and some cron jobs had been scheduled to run periodically, to produce an output file and stored in a fixed directory for some business purposes.

But sometime, operation has to some settings and in order to reflect the new setting, the cron job has to be kill and relaunch. There's no GUI interface for this and operation has to log a ticket to the helpdesk to get it done. But every helpdesk ticket that raise, there's a ticket cost and operation has to pay, in regardless whether it has been resolve at the agree period.

This is what I had came with for that operation, for them to DIY, to kill the scheduled job before relaunch it to reflect the new setting. It should works on Linux as well.

These are the processes that required.

Process that required to kill a task in unix.

Step one: List the process and get the process ID

ps -ef|grep <username>

Step two: kill the process

kill <Process ID>

It is that simple!.

Permanent Link

Getlines Count In A File - How To Do It In VB.Net And Linq

noreply@blogger.com (kkchoh) — Thu, 30 Sep 2010 03:46:00 +0000

The follow combination of VB.Net and LINQ sample code, to count the number of rows in an input file, by using IO.File.ReadLines, which return Type System.Collection.Generic.IEnumerable(Of String), in .Net Framework 4.

To get the number of lines of a file.

Private Function GetLinesCount(ByVal FileName As String) As Integer
    If Not File.Exists(FileName) Then
        Return 0
        Exit Function
    End If

    Dim lines = (From l In IO.File.ReadLines(FileName) _
                            Select l)


    Dim d As Integer = lines.Count

    lines =Nothing
    Return d
End Function

To skip blank line from count

Private Function GetLinesCount(ByVal FileName As String) As Integer
    If Not File.Exists(FileName) Then
        Return 0
        Exit Function
    End If

    Dim lines = (From l In IO.File.ReadLines(FileName) Where Not l.Trim.Length = 0 _
                            Select l)


    Dim d As Integer = lines.Count

    lines =Nothing
    Return d
End Function

Permanent link

VB.NET - How To Extend A Custom Method to Error Provider For Field Validation

noreply@blogger.com (kkchoh) — Wed, 01 Sep 2010 08:14:00 +0000

The concept is very simple, instead of coding the Error Provider Control to validate field one by one; we add custom functionality to Error Provider that can be call without creating a new derived type.

For example

From:

If String.IsNullOrEmpty(Textbox1.Text.Trim) Then
            ErrorProvider1.SetError(Textbox1, “The field cannot be empty!”)
Else
            ErrorProvider1.SetError(Textbox1,Nothing)
End If

If String.IsNullOrEmpty(Textbox2.Text.Trim) Then
            ErrorProvider1.SetError(Textbox2, “The field cannot be empty!”)
Else
            ErrorProvider1.SetError(Textbox2,Nothing)
End If

To:

ErrorProvider1.Validate(TextBox1, “This field cannot be empty!”)
ErrorProvider1.Validate(TextBox2, “This field cannot be blank!”)
If ErrorPrivider1.HasError Then
MessageBox.Show(ErrorProvider.GetErrorMessages())
‘ Error routine here
End If

Here is my code in VB.Net:

Step one: Create a new module

Imports System.Runtime.CompilerServices
Imports System.Text

Namespace ErrorProviderExtension
            Module ErrorExtension

            <Extension()> _
            Public Function Validate( ByVal Epd As ErrorProvider, _
                  ByVal Control As Control, _
                  Optional ByVal ErrorMessage As String = “Field cannot be empty!”) As Boolean
                          If String.IsNullOrEmpty(Control.Text.Trim) Then
                                      Epd.SetError(Control, ErrorMessage)
                                      Return False
                                      Exit Function
                          End If

                          Epd.SetError(Control, Nothing)
                          Return True
             End Function

            <Extension()> _
            Public Function HasErrors(ByVal Epd As ErrorProvider) As Boolean
                        Dim err e Nullable(Of Integer) = (From e In Epd.ContainerControl.Controls _
                                                                                 Let msg = Provider.GetError(e) _
                                                                                 Where msg.Length > 0 _
                                                                                 Select e).Count
                        If err.GetValueOrDefault(0) > 0 Then
                                    Return True
                        Else
                                    Return False
                        End If
            End Function

            <Extension()> _
            Public Function GetErrorMessages(ByVal Epd As ErrorProvider) As String
                        Dim sb As New StringBuilder

                        If Epd.ContainerControl Is Nothing Then
                                    Return Nothing
                                    Exit Function
                        End If

                        Dim err = From e In Epd.ContainerControl.Controls _
                                          Let message = Epd.GetError(e) _
                                          Where message.Length > 0 _
                                          Select message

                        If Not IsNothing(err) Then
                                  Dim i As Integer = 1
                                  For Each emsg As String In err
                                            sb.AppendLine(String.Format(“{0}: {1}”, i, emsg.ToString))
                                             i += 1
                                Next
                                  sb.AppendLine(“Please clear all the errors before continue!”)
                                  Return sb.ToString
                                  Exit Function
                       End If

                       Return Nothing
            End Function

            End Module
End Namespace

Next, create a new Windows®Form; drag an ErrorProvider, two TextBox and one Button onto it, then

Imports rootnamespace.ErrorProviderExtension

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
             ErrorProvider1.Validate(TextBox1, “TextBox1 cannot be blank!”)
             ErrorProvider1.Validate(TextBox2, “TextBox2 cannot be blank!”)

             If ErrorProvider1.HasError Then
                 MessageBox.Show(ErrorProvider1.GetErrorMessages)
                 Exit Sub
             End If

            ‘Continue here if not error
            End Sub

Note: Please refer to MSDN for supported version and methods.

VB.NET - How to enable Text To Speech on your application

noreply@blogger.com (kkchoh) — Fri, 27 Aug 2010 01:39:00 +0000

I found it is cool if a software would able to speak out, whether it is alerting the user for errors or some other fancy little thing to let your users aware of.

This is a sample code in Visual Basic .NET that enable your program to speak out a word (or sentences) by using System.Speech.Synthesis namespace.

Make sure .NET Framework 3.5 was installed.

Add System.Speech as reference in your project.
Code Snippet:

Imports System.Speech.Synthesis
Module Module1
             Dim tts As New SpeechSynthesizer

             Public Sub Main(ByVal arg() As String)
                If Not arg is Nothing Then
                     For Each t As String In arg
                                tts.SpeakAsync(t)
                    Next
               End If
End Sub
End Module