'****************************************************************
Code for Full Name Matching
Developed by	: Technical Team, Election Commission of India, New Delhi.
'*************************************************************

Imports System.Data.OracleClient
Imports System.Text.RegularExpressions
Imports SilEncConverters
Imports System.Data.OleDb


Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents txtinput As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents ddlang As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents lbloutput As System.Web.UI.WebControls.Label
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents ddoutlang As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lblerror As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents lblnamedisp As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region
    'Dim condb As OracleConnection
    Dim condbString As String
    Dim daAC As New OracleDataAdapter
    Dim INPNAME As String
    Dim objSearch As New AMIN.AMIN
    Dim arrFname() As String
    Dim searchStringLName As String
    Dim searchStringFName As String
    Dim searchStringMName As String
    Dim searchInitialName As String
    Dim tranE As IEncConverter
    Dim trans As New EncConverters
    Dim objUtil As New Multi_Utility.Multi_Utility
    Dim objEngClean As New clsTrans
    Dim strlang As String
    Dim INPLANG, OUTLANG As String
    Dim objTrans As New clsTrans
    Dim arrayamod(), arrayamod1() As String
    Dim strorgname, strorgname1, split1, split2, strspiltname, strtrans, strOrgDel As String
    Dim RegexObj As Regex, strDummay As String
    Dim i As Integer
    Dim condb As OleDbConnection

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        condbString = "Provider=OraOLEDB.Oracle;data source=HCL3;user id=NTLDICT;password=NTLDICT"
        condb = New OleDbConnection(condbString)
        INPNAME = Trim(UCase(txtinput.Text))
        lbloutput.Text = ""
    End Sub


    Public Sub eng2other()
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            If OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_HI", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "PUNJABI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_PB", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "TAMIL" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TA", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "TELUGU" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TG", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "MALAYALAM" Then
                strtrans = objUtil.GetOneFromTwo("NAME_ML", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ElseIf OUTLANG = "GUJRATI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_GJ", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            End If
            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If
            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = ex.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub
    Public Sub hindi2other()
        'condb = New OracleConnection(condbString)
        INPLANG = Session("INPLANG")
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            'If OUTLANG = "ENGLISH" Then
            '    strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT", "", condbString, "NAME_HI='" & strspiltname & "'")
            'If OUTLANG = "PUNJABI" Then
            strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT", "", condbString, "NAME_HI='" & strspiltname & "'")
            '''ElseIf OUTLANG = "TAMIL" Then
            '''    strtrans = objUtil.GetOneFromTwo("NAME_TA", "NTL_DICT", "", condbString, "NAME_HI='" & strspiltname & "'")
            '''ElseIf OUTLANG = "TELUGU" Then
            '''    strtrans = objUtil.GetOneFromTwo("NAME_TG", "NTL_DICT", "", condbString, "NAME_HI='" & strspiltname & "'")
            '''ElseIf OUTLANG = "MALAYALAM" Then
            '''    strtrans = objUtil.GetOneFromTwo("NAME_ML", "NTL_DICT", "", condbString, "NAME_HI='" & strspiltname & "'")
            '''    'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ''End If
                If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, INPLANG)
                End If
                If i <> arrayamod.Length - 1 Then
                    strDummay = strorgname
                    strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                    ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                    Try
                        If strDummay = strorgname Then
                            split1 = InStr(strorgname, strspiltname)
                            strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                            strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                            If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                                strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                            End If
                        End If
                    Catch ex As Exception
                        lblerror.Text = ex.Message
                        Exit For
                    End Try
                    'End If
                Else
                    strorgname = strorgname.Replace(strspiltname, strtrans)
                End If
        Next

        strtrans = ""
        OUTLANG = Session("OUTLANG")
        INPNAME = strorgname
        strorgname1 = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod1 = INPNAME.Split(" ")
        split2 = InStr(INPNAME, " ")
        For i = 0 To arrayamod1.Length - 1
            strspiltname = arrayamod1(i)
            If OUTLANG = "PUNJABI" Then
                strtrans = objUtil.GetOneFromTwo("TRIM(NAME_PB)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "TAMIL" Then
                strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TA)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "TELUGU" Then
                strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TG)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "MALAYALAM" Then
                strtrans = objUtil.GetOneFromTwo("TRIM(NAME_ML)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("TRIM(NAME_HI)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            ElseIf OUTLANG = "GUJRATI" Then
                strtrans = objUtil.GetOneFromTwo("TRIM(NAME_GJ)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
            End If

            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If

            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname1
                strorgname1 = strorgname1.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname1 Then
                        split1 = InStr(strorgname1, strspiltname)
                        strspiltname = strorgname1.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname1.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname1 = strorgname1.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception

                End Try
                'End If
            Else
                strorgname1 = strorgname1.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname1
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub

    Public Sub malayalam2other()
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            If OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_HI", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
            ElseIf OUTLANG = "PUNJABI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_PB", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
            ElseIf OUTLANG = "TAMIL" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TA", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
            ElseIf OUTLANG = "TELUGU" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TG", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
            ElseIf OUTLANG = "ENGLISH" Then
                strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
                'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ElseIf OUTLANG = "GUJRATI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_GJ", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
            End If
            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If
            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = ex.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub
    Public Sub gujrati2other()
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            If OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_HI", "NTL_DICT_VER", "", condbString, "NAME_GJ='" & strspiltname & "'")
            ElseIf OUTLANG = "PUNJABI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_PB", "NTL_DICT_VER", "", condbString, "NAME_GJ='" & strspiltname & "'")
            ElseIf OUTLANG = "TAMIL" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TA", "NTL_DICT_VER", "", condbString, "NAME_GJ='" & strspiltname & "'")
            ElseIf OUTLANG = "TELUGU" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TG", "NTL_DICT_VER", "", condbString, "NAME_GJ='" & strspiltname & "'")
            ElseIf OUTLANG = "ENGLISH" Then
                strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT_VER", "", condbString, "NAME_GJ='" & strspiltname & "'")
                'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ElseIf OUTLANG = "MALAYALAM" Then
                strtrans = objUtil.GetOneFromTwo("NAME_ML", "NTL_DICT_VER", "", condbString, "NAME_GJ='" & strspiltname & "'")
            End If
            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If
            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = ex.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub

    Public Sub telugu2other()
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            If OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_HI", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
            ElseIf OUTLANG = "PUNJABI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_PB", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
            ElseIf OUTLANG = "TAMIL" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TA", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
            ElseIf OUTLANG = "ENGLISH" Then
                strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
            ElseIf OUTLANG = "MALAYALAM" Then
                strtrans = objUtil.GetOneFromTwo("NAME_ML", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
                'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ElseIf OUTLANG = "GUJRATI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_GJ", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
            End If
            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If
            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = ex.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub
    Public Sub tamil2other()
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            If OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_HI", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
            ElseIf OUTLANG = "PUNJABI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_PB", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
            ElseIf OUTLANG = "ENGLISH" Then
                strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
            ElseIf OUTLANG = "TELUGU" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TG", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
            ElseIf OUTLANG = "MALAYALAM" Then
                strtrans = objUtil.GetOneFromTwo("NAME_ML", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
                'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ElseIf OUTLANG = "GUJRATI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_GJ", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
            End If
            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If
            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = ex.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub
    Public Sub punjabi2other()
        condb.Open()
        OUTLANG = Session("OUTLANG")
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            If OUTLANG = "HINDI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_HI", "NTL_DICT_VER", "", condbString, "NAME_PB='" & strspiltname & "'")
            ElseIf OUTLANG = "ENGLISH" Then
                strtrans = objUtil.GetOneFromTwo("NAME_EN", "NTL_DICT_VER", "", condbString, "NAME_PB='" & strspiltname & "'")
            ElseIf OUTLANG = "TAMIL" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TA", "NTL_DICT_VER", "", condbString, "NAME_PB='" & strspiltname & "'")
            ElseIf OUTLANG = "TELUGU" Then
                strtrans = objUtil.GetOneFromTwo("NAME_TG", "NTL_DICT_VER", "", condbString, "NAME_PB='" & strspiltname & "'")
            ElseIf OUTLANG = "MALAYALAM" Then
                strtrans = objUtil.GetOneFromTwo("NAME_ML", "NTL_DICT_VER", "", condbString, "NAME_PB='" & strspiltname & "'")
                'strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", condbString, "", "NAME_HI='" & strspiltname & "'")
            ElseIf OUTLANG = "GUJRATI" Then
                strtrans = objUtil.GetOneFromTwo("NAME_GJ", "NTL_DICT_VER", "", condbString, "NAME_PB='" & strspiltname & "'")
            End If
            If Trim(strtrans) = "" Then
                strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
            End If
            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = ex.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next
        lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
        lbloutput.Text = " " & " " & strorgname
        lbloutput.BackColor = System.Drawing.Color.Gold
        condb.Close()
    End Sub
    Public Sub lang2lang()
        'condb = New OracleConnection(condbString)
        condb.Open()
        INPLANG = Session("INPLANG")
        OUTLANG = Session("OUTLANG")

        'If INPLANG = "HINDI" And OUTLANG = "PUNJABI" Then
        strorgname = INPNAME
        INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
        INPNAME = INPNAME.Replace("-", " ")
        INPNAME = INPNAME.Replace("]", " ")
        INPNAME = INPNAME.Replace("[", " ")
        INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
        INPNAME = Trim(INPNAME)
        arrayamod = INPNAME.Split(" ")
        split1 = InStr(INPNAME, " ")
        For i = 0 To arrayamod.Length - 1
            strspiltname = arrayamod(i)
            Try
                If INPLANG = "HINDI" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", "", condbString, "NAME_HI='" & strspiltname & "'")
                ElseIf INPLANG = "TAMIL" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", "", condbString, "NAME_TA='" & strspiltname & "'")
                ElseIf INPLANG = "TELUGU" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", "", condbString, "NAME_TG='" & strspiltname & "'")
                ElseIf INPLANG = "PUNJABI" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", "", condbString, "NAME_PB='" & strspiltname & "' ")
                ElseIf INPLANG = "MALAYALAM" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", "", condbString, "NAME_ML='" & strspiltname & "'")
                ElseIf INPLANG = "GUJRATI" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_EN)", "NTL_DICT", "", condbString, "NAME_GJ='" & strspiltname & "'")

                Else
                    If INPLANG = "ENGLISH" Then
                        If OUTLANG = "HINDI" Then
                            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_HI)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                        ElseIf OUTLANG = "PUNJABI" Then
                            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_PB)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                        ElseIf OUTLANG = "TAMIL" Then
                            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TA)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                        ElseIf OUTLANG = "TELUGU" Then
                            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TG)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                        ElseIf OUTLANG = "MALAYALAM" Then
                            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_ML)", "NTL_DICT", condbString, condbString, "NAME_EN='" & strspiltname & "'")
                        ElseIf OUTLANG = "GUJRATI" Then
                            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_GJ)", "NTL_DICT", condbString, condbString, "NAME_EN='" & strspiltname & "'")
                        End If
                    End If
                End If
                If Trim(strtrans) = "" Then
                    strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
                End If
            Catch ex As Exception

            End Try

            If i <> arrayamod.Length - 1 Then
                strDummay = strorgname
                strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
                ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                Try
                    If strDummay = strorgname Then
                        split1 = InStr(strorgname, strspiltname)
                        strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
                        strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
                        If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                            strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                        End If
                    End If
                Catch ex As Exception
                    lblerror.Text = EX.Message
                    Exit For
                End Try
                'End If
            Else
                strorgname = strorgname.Replace(strspiltname, strtrans)
            End If
        Next

        If Not INPLANG = "ENGLISH" Then

            strtrans = ""
            OUTLANG = Session("OUTLANG")
            INPNAME = strorgname
            strorgname1 = INPNAME
            INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
            INPNAME = INPNAME.Replace("-", " ")
            INPNAME = INPNAME.Replace("]", " ")
            INPNAME = INPNAME.Replace("[", " ")
            INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
            INPNAME = Trim(INPNAME)
            arrayamod1 = INPNAME.Split(" ")
            split2 = InStr(INPNAME, " ")
            For i = 0 To arrayamod1.Length - 1
                strspiltname = arrayamod1(i)
                If OUTLANG = "PUNJABI" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_PB)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                ElseIf OUTLANG = "TAMIL" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TA)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                ElseIf OUTLANG = "TELUGU" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TG)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                ElseIf OUTLANG = "MALAYALAM" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_ML)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                ElseIf OUTLANG = "HINDI" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_HI)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                ElseIf OUTLANG = "GUJRATI" Then
                    strtrans = objUtil.GetOneFromTwo("TRIM(NAME_GJ)", "NTL_DICT", "", condbString, "NAME_EN='" & strspiltname & "'")
                End If

                If Trim(strtrans) = "" Then
                    strtrans = objTrans.TransToEnglish(strspiltname, OUTLANG)
                End If

                If i <> arrayamod.Length - 1 Then
                    strDummay = strorgname1
                    strorgname1 = strorgname1.Replace(strspiltname & " ", strtrans & " ")
                    ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
                    Try
                        If strDummay = strorgname1 Then
                            split1 = InStr(strorgname1, strspiltname)
                            strspiltname = strorgname1.Substring(split1 - 1, strspiltname.Length)
                            strOrgDel = strorgname1.Substring(split1 + strspiltname.Length - 1, 1)
                            If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
                                strorgname1 = strorgname1.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
                            End If
                        End If
                    Catch ex As Exception

                    End Try
                    'End If
                Else
                    strorgname1 = strorgname1.Replace(strspiltname, strtrans)
                End If
            Next
        End If
        If OUTLANG = "ENGLISH" Then
            If strorgname = "" Then
                lblnamedisp.Visible = False
                lbloutput.Visible = False
            Else
                lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
                lbloutput.Text = " " & " " & strorgname
                lbloutput.BackColor = System.Drawing.Color.Gold
            End If
        ElseIf INPLANG = "ENGLISH" Then
            If strorgname = "" Then
                lblnamedisp.Visible = False
                lbloutput.Visible = False
            Else
                lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
                lbloutput.Text = " " & " " & strorgname
                lbloutput.BackColor = System.Drawing.Color.Gold
            End If
        Else
            If strorgname1 = "" Then
                lblnamedisp.Visible = False
                lbloutput.Visible = False
            Else
                lblnamedisp.Text = "Translated Name in" & " " & OUTLANG & ":"
                lbloutput.Text = " " & " " & strorgname1
                lbloutput.BackColor = System.Drawing.Color.Gold
            End If

        End If
        condb.Close()
    End Sub
    'Public Function silconverter_Eng_Hin()
    '    Dim ii, kk, pos As Integer
    '    Dim RegexObj1 As Regex
    '    Dim orgname, firstsplitpos, strsplit, strfinal, strdump, strorg As String
    '    Dim arr_split() As String
    '    orgname = INPNAME
    '    INPNAME = RegexObj1.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
    '    INPNAME = INPNAME.Replace("-", " ")
    '    INPNAME = INPNAME.Replace("]", " ")
    '    INPNAME = INPNAME.Replace("[", " ")
    '    INPNAME = RegexObj1.Replace(INPNAME, "( ){2,}", " ")
    '    INPNAME = Trim(INPNAME)
    '    arr_split = INPNAME.Split(" ")
    '    firstsplitpos = InStr(INPNAME, " ")
    '    strlang = Session("strlang")
    '    For ii = 0 To arr_split.Length - 1
    '        strsplit = arr_split(ii)
    '        Dim objtrans1 As New clsTrans
    '        strfinal = objtrans1.TransToEnglish(strsplit, strlang)
    '        If Trim(strfinal) = "" Then
    '            strfinal = strsplit
    '        End If
    '        If ii <> arr_split.Length - 1 Then
    '            strdump = orgname
    '            orgname = orgname.Replace(strsplit & " ", strfinal & " ")
    '            Try
    '                If strdump = orgname Then
    '                    pos = InStr(orgname, strsplit)
    '                    strsplit = orgname.Substring(pos - 1, strsplit.Length)
    '                    strorg = orgname.Substring(pos + strsplit.Length - 1, 1)
    '                    If RegexObj1.IsMatch(strorg, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
    '                        orgname = orgname.Replace(strsplit & strorg, strfinal & strorg)
    '                    End If
    '                End If
    '            Catch ex As Exception
    '            End Try
    '        Else
    '            orgname = orgname.Replace(strsplit, strfinal)
    '        End If
    '    Next
    '    lbloutput.Text = ""
    '    lbloutput.Text = orgname
    'End Function






    'Public Function funmatching()
    '    Dim arrayamod(), arrayamod1(), arrayamod2(), arrayamod3() As String
    '    Dim string1, string2, string3 As String
    '    Dim split1, split2, sp1_2 As Integer
    '    Dim str As String, strorgname As String, strTransName As String, strtrans As String
    '    Dim strSimplDel As String, strOrgDel, strspiltname, strSpace As String
    '    Dim i As Integer, j As Integer, k As Integer, intLenght As Integer, intorglen As Integer
    '    Dim RegexObj As Regex, strDummay As String
    '    strlang = Session("strlang")
    '    strorgname = INPNAME
    '    INPNAME = RegexObj.Replace(INPNAME, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]", " ")
    '    INPNAME = INPNAME.Replace("-", " ")
    '    INPNAME = INPNAME.Replace("]", " ")
    '    INPNAME = INPNAME.Replace("[", " ")
    '    INPNAME = RegexObj.Replace(INPNAME, "( ){2,}", " ")
    '    'INPNAME = objEngClean.reduceMultiChar(INPNAME, 1)
    '    INPNAME = Trim(INPNAME)
    '    arrayamod = INPNAME.Split(" ")
    '    split1 = InStr(INPNAME, " ")
    '    'LANGUAGE CHECKING
    '    INPLANG = Session("INPLANG")
    '    OUTLANG = Session("OUTLANG")

    '    For i = 0 To arrayamod.Length - 1
    '        strspiltname = arrayamod(i)

    '        If INPLANG = "ENGLISH" And OUTLANG = "PUNJABI" Then
    '            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_PB)", "NTL_DICT", condbString, "", "NAME_EN='" & strspiltname & "'")
    '        ElseIf INPLANG = "ENGLISH" And OUTLANG = "HINDI" Then
    '            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_HI)", "NTL_DICT", condbString, "", "NAME_EN='" & strspiltname & "'")
    '        ElseIf INPLANG = "ENGLISH" And OUTLANG = "TAMIL" Then
    '            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TA)", "NTL_DICT", condbString, "", "NAME_EN='" & strspiltname & "'")
    '        ElseIf INPLANG = "ENGLISH" And OUTLANG = "TELUGU" Then
    '            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_TG)", "NTL_DICT", condbString, "", "NAME_EN='" & strspiltname & "'")
    '        ElseIf INPLANG = "ENGLISH" And OUTLANG = "MALAYALAM" Then
    '            strtrans = objUtil.GetOneFromTwo("TRIM(NAME_ML)", "NTL_DICT", condbString, "", "NAME_EN='" & strspiltname & "'")
    '        End If
    '        If Trim(strtrans) = "" Then
    '            'strtrans = objTrans.UnicodeToEnglishBI(strspiltname)
    '            strtrans = objTrans.TransToEnglish(strspiltname, INPLANG)
    '        End If
    '        If Trim(strtrans) = "" Then
    '            strtrans = strspiltname
    '        End If
    '        'strTransName = strTransName & strtrans
    '        'split1 = InStr(strorgname, strspiltname)
    '        If i <> arrayamod.Length - 1 Then
    '            strDummay = strorgname
    '            strorgname = strorgname.Replace(strspiltname & " ", strtrans & " ")
    '            ' If RegexObj.IsMatch(strorgname, strtrans) = False Then
    '            Try
    '                If strDummay = strorgname Then
    '                    split1 = InStr(strorgname, strspiltname)
    '                    strspiltname = strorgname.Substring(split1 - 1, strspiltname.Length)
    '                    strOrgDel = strorgname.Substring(split1 + strspiltname.Length - 1, 1)
    '                    If RegexObj.IsMatch(strOrgDel, "[(.,_;':{}\|?<>)/+*&^%$!@`~#0123456789]") = True Then
    '                        strorgname = strorgname.Replace(strspiltname & strOrgDel, strtrans & strOrgDel)
    '                    End If
    '                End If
    '            Catch ex As Exception

    '            End Try
    '            'End If
    '        Else
    '            strorgname = strorgname.Replace(strspiltname, strtrans)
    '        End If
    '    Next
    '    lbloutput.Text = strorgname
    '    lbloutput.BackColor = System.Drawing.Color.Khaki
    'End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim SQL As String
        Dim strsource As String
        'SQL = "SELECT NAME_EN, NAME_HI, NAME_PB FROM DICT_ENGLISHTOHINDI where"
        Dim langinp, langout As String
        langinp = Trim(UCase(ddlang.SelectedItem.Text))
        langout = Trim(UCase(ddoutlang.SelectedItem.Text))
        Session("INPLANG") = langinp
        Session("OUTLANG") = langout
        If langinp = langout Then
            lblerror.Visible = True
            Exit Sub
        ElseIf ddlang.SelectedIndex = 0 Then
            lblerror.Visible = True
            lblerror.Text = "Please select input language"
            Exit Sub
        ElseIf ddoutlang.SelectedIndex = 0 Then
            lblerror.Visible = True
            lblerror.Text = "Please select output language"
            Exit Sub
        ElseIf txtinput.Text = "" Then
            lblerror.Text = "Name field cannot be blank"
            lblerror.Visible = True
            Exit Sub
        ElseIf langinp = "HINDI" Then
            hindi2other()
        ElseIf langinp = "ENGLISH" Then
            eng2other()
        ElseIf langinp = "PUNJABI" Then
            punjabi2other()
        ElseIf langinp = "TAMIL" Then
            tamil2other()
        ElseIf langinp = "TELUGU" Then
            telugu2other()
        ElseIf langinp = "MALAYALAM" Then
            malayalam2other()
        ElseIf langinp = "GUJRATI" Then
            gujrati2other()
        Else
            lang2lang()
        End If
    End Sub


End Class