Hi I am checking every link for url parameters filte conditionsi am doing likeif httplocalhostjobtype0ampcontracttemporaryampOrgTypeSpecialampKeystageKS1 i want to check that link parameters from everyside Dim Main As String 34jobtype34 amp jobtype Dim ParaWorkingHrs As String 34ampWorkingHRS34 amp WorkingHRS Dim ParaContract As String 34ampContract34 amp Contract Dim ParaOrgType As String 34ampOrgType34 a

How to reduce code for multiple filter condition using VB.Net in ASP.Net

mvadukul

SOLVED CLOSED ACTIVE ANSWERED
User: mvadukul
Posted: on Mar 03, 2017 05:23 AM
Forum: Data Controls
Answer: 1
Views: 2486

I am checking every link for url parameters filte conditions

i am doing like

if http://localhost/?jobtype=0&contract=temporary&OrgType=Special&Keystage=KS1

i want to check that link parameters from everyside

    Dim Main As String = "?jobtype=" & jobtype
        Dim ParaWorkingHrs As String = "&WorkingHRS=" & WorkingHRS
        Dim ParaContract As String = "&Contract=" & Contract
        Dim ParaOrgType As String = "&OrgType=" & OrgType
        Dim ParaKeyStage As String = "&KeyStage=" & KeyStage
        Dim ParaSalary As String = "&Salary=" & Salary
        Dim ParaSubject As String = "&Subject=" & Subject


        Dim checkPara1(4) As String
        checkPara1(0) = ParaContract
        checkPara1(1) = ParaOrgType
        checkPara1(2) = ParaKeyStage
        checkPara1(3) = ParaSalary
        checkPara1(4) = ParaSubject

        Dim checkPara2(4) As String
        checkPara2(0) = ParaOrgType
        checkPara2(1) = ParaKeyStage
        checkPara2(2) = ParaSalary
        checkPara2(3) = ParaSubject
        checkPara2(4) = ParaContract

        Dim checkPara3(4) As String
        checkPara3(0) = ParaKeyStage
        checkPara3(1) = ParaSalary
        checkPara3(2) = ParaSubject
        checkPara3(3) = ParaContract
        checkPara3(4) = ParaOrgType

        Dim checkPara4(4) As String
        checkPara4(0) = ParaSalary
        checkPara4(1) = ParaSubject
        checkPara4(2) = ParaContract
        checkPara4(3) = ParaOrgType
        checkPara4(4) = ParaKeyStage

        Dim checkPara5(4) As String
        checkPara5(0) = ParaSubject
        checkPara5(1) = ParaContract
        checkPara5(2) = ParaOrgType
        checkPara5(3) = ParaKeyStage
        checkPara5(4) = ParaSalary


        If e.CommandName = "lnk1" Then
            WorkingHRS = Convert.ToString(e.CommandArgument)
            Dim currenturl As String = Request.Url.Query
            currenturl = currenturl.Replace("+", " ")



            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) & checkPara3(i) & checkPara4(i) & checkPara5(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) & checkPara3(i) & checkPara4(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) & checkPara3(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next



            Response.Redirect("Job1.aspx?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS)

        End If

Download FREE API for Word, Excel and PDF in ASP.Net

kalpesh

0 3

Reply
ANSWER
User: kalpesh
Replied: on Mar 03, 2017 08:27 AM
Report

mvadukul says:
Hi

okay, If you go to my website

http://enhancealliance.com/job1?jobtype=0

the left hand side filter parameters. it is working fine but i want to reduce code.

the code is below

I want to reduce. How ? it will check every url and filter

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

'Working Hours

  Private Sub dlWorkingHRS_ItemCommand(source As Object, e As DataListCommandEventArgs) Handles dlWorkingHRS.ItemCommand

      If e.CommandName = "lnk1" Then

          WorkingHRS = Convert.ToString(e.CommandArgument)

          Dim currenturl As String = Request.Url.Query

          currenturl = currenturl.Replace("+", " ")

          If currenturl = "?jobtype=" & jobtype & "&Contract=" & Contract Then

              Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)

          ElseIf currenturl = "?jobtype=" & jobtype & "&OrgType=" & OrgType Then

              Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)

          ElseIf currenturl = "?jobtype=" & jobtype & "&Contract=" & Contract & "&OrgType=" & OrgType Then

              Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)

          ElseIf currenturl = "?jobtype=" & jobtype & "&OrgType=" & OrgType & "&Contract=" & Contract Then

              Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)

          Else

              Response.Redirect("Job1.aspx?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS)

          End If

      End If

  End Sub

  'Contract

  Private Sub dlContractType_ItemCommand(source As Object, e As DataListCommandEventArgs) Handles dlContractType.ItemCommand

      If e.CommandName = "lnk2" Then

          Contract = Convert.ToString(e.CommandArgument)

          Dim currenturl As String = Request.Url.Query

          currenturl = currenturl.Replace("+", " ")

          If currenturl = "?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS Then

              Response.Redirect("job1.aspx" & currenturl & "&Contract=" & Contract)

          ElseIf currenturl = "?jobtype=" & jobtype & "&OrgType=" & OrgType Then

              Response.Redirect("job1.aspx" & currenturl & "&Contract=" & Contract)

          ElseIf currenturl = "?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS & "&OrgType=" & OrgType Then

              Response.Redirect("job1.aspx" & currenturl & "&Contract=" & Contract)

          ElseIf currenturl = "?jobtype=" & jobtype & "&OrgType=" & OrgType & "&WorkingHRS=" & WorkingHRS Then

              Response.Redirect("job1.aspx" & currenturl & "&Contract=" & Contract)

              lnkContract.Visible = True

              lnkContract.Text = Contract

          Else

              Response.Redirect("Job1.aspx?jobtype=" & jobtype & "&Contract=" & Contract)

          End If

      End If

  End Sub

  'Org Type

  Private Sub dlTypeOfSchool_ItemCommand(source As Object, e As DataListCommandEventArgs) Handles dlTypeOfSchool.ItemCommand

      If e.CommandName = "lnk3" Then

          OrgType = Convert.ToString(e.CommandArgument)

          Dim currenturl As String = Request.Url.Query

          currenturl = currenturl.Replace("+", " ")

          If currenturl = "?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS Then

              Response.Redirect("job1.aspx" & currenturl & "&OrgType=" & OrgType)

          ElseIf currenturl = "?jobtype=" & jobtype & "&Contract=" & Contract Then

              Response.Redirect("job1.aspx" & currenturl & "&OrgType=" & OrgType)

          ElseIf currenturl = "?jobtype=" & jobtype & "&Contract=" & Contract & "&WorkingHRS=" & WorkingHRS Then

              Response.Redirect("job1.aspx" & currenturl & "&OrgType=" & OrgType)

          ElseIf currenturl = "?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS & "&Contract=" & Contract Then

              Response.Redirect("job1.aspx" & currenturl & "&OrgType=" & OrgType)

              lnkOrgType.Visible = True

              lnkOrgType.Text = OrgType

          Else

              Response.Redirect("Job1.aspx?jobtype=" & jobtype & "&OrgType=" & OrgType)

          End If

      End If

  End Sub

In your case you need to assign variables with values for type matching for different condition with current url. Also you can concatenate string for checking and same way you can use for redirect url string. Check the below code for your reference and try by your understanding by your logic hope it will reduce some code repetition in checking.

VB.Net

'Working Hours
Private Sub dlWorkingHRS_ItemCommand(source As Object, e As DataListCommandEventArgs)
	If e.CommandName = "lnk1" Then
		WorkingHRS = Convert.ToString(e.CommandArgument)
		Dim currenturl As String = Request.Url.Query
		currenturl = currenturl.Replace("+", " ")

		' Assign RedirectQuerystringurl
		Dim redirectParameterstring As String = String.Empty

		' Declare the parameter Which all you have to check 

		Dim jobtypeParameter As String = "?jobtype=" + jobtype
		Dim contractParameter As String = "&Contract=" + Contract
		Dim orgTypeParameter As String = "&OrgType=" + OrgType
		Dim workingHRSParameter As String = "&WorkingHRS=" + WorkingHRS

		' assign parameter with matching criteria

		'if (currenturl == "?jobtype=" + jobtype + "&Contract=" + Contract)
		Dim jobtypeandcontractParameter As String = jobtypeParameter & contractParameter

		'else if (currenturl == "?jobtype=" + jobtype + "&OrgType=" + OrgType)
		Dim jobtypeAndOrgtypeParameter As String = jobtypeParameter & orgTypeParameter

		'else if (currenturl == "?jobtype=" + jobtype + "&Contract=" + Contract + "&OrgType=" + OrgType)
		Dim jobtypeContracttypeAndOrgTypeParameter As String = jobtypeandcontractParameter & orgTypeParameter

		'else if (currenturl == "?jobtype=" + jobtype + "&OrgType=" + OrgType + "&Contract=" + Contract)
		Dim jobtypeOrgtypeAndContracttypeParameter As String = jobtypeAndOrgtypeParameter & contractParameter

		If currenturl = jobtypeandcontractParameter Then
			redirectParameterstring = currenturl & workingHRSParameter
		ElseIf currenturl = jobtypeAndOrgtypeParameter Then
			redirectParameterstring = currenturl & workingHRSParameter
		ElseIf currenturl = jobtypeContracttypeAndOrgTypeParameter Then
			redirectParameterstring = currenturl & workingHRSParameter
		ElseIf currenturl = jobtypeOrgtypeAndContracttypeParameter Then
			redirectParameterstring = currenturl & workingHRSParameter
		Else
			redirectParameterstring = jobtypeParameter & workingHRSParameter
		End If

		Response.Redirect(Convert.ToString("Job1.aspx") & redirectParameterstring)
	End If
End Sub

'Contract
Private Sub dlContractType_ItemCommand(source As Object, e As DataListCommandEventArgs)
	If e.CommandName = "lnk2" Then
		Contract = Convert.ToString(e.CommandArgument)
		Dim currenturl As String = Request.Url.Query
		currenturl = currenturl.Replace("+", " ")

		' Assign RedirectQuerystringurl
		Dim redirectParameterstring As String = String.Empty

		Dim jobtypeParameter As String = "?jobtype=" + jobtype
		Dim workingHRSParameter As String = "&WorkingHRS=" + WorkingHRS
		Dim contractParameter As String = "&Contract=" + Contract
		Dim orgTypeParameter As String = "&OrgType=" + OrgType

		Dim jobtypeAndWorkingHRStypeParameter As String = jobtypeParameter & workingHRSParameter
		Dim jobtypeAndOrgtypeParameter As String = jobtypeParameter & orgTypeParameter
		Dim jobtypeWorkingHRSAndOrgtypeParameter As String = jobtypeAndWorkingHRStypeParameter & orgTypeParameter
		Dim jobtypeOrgtypeParameterWorkingHRSParameter As String = jobtypeAndOrgtypeParameter & workingHRSParameter

		If currenturl = jobtypeAndWorkingHRStypeParameter Then
			redirectParameterstring = currenturl & contractParameter
		ElseIf currenturl = jobtypeAndOrgtypeParameter Then
			redirectParameterstring = currenturl & contractParameter
		ElseIf currenturl = jobtypeWorkingHRSAndOrgtypeParameter Then
			redirectParameterstring = currenturl & contractParameter
		ElseIf currenturl = jobtypeOrgtypeParameterWorkingHRSParameter Then
			redirectParameterstring = currenturl & contractParameter
			lnkContract.Visible = True
			lnkContract.Text = Contract
		Else
			redirectParameterstring = jobtypeParameter & contractParameter
		End If

		Response.Redirect(Convert.ToString("Job1.aspx") & redirectParameterstring)
	End If
End Sub

'Org Type
Private Sub dlTypeOfSchool_ItemCommand(source As Object, e As DataListCommandEventArgs)
	If e.CommandName = "lnk3" Then
		OrgType = Convert.ToString(e.CommandArgument)
		Dim currenturl As String = Request.Url.Query
		currenturl = currenturl.Replace("+", " ")

		' Assign RedirectQuerystringurl
		Dim redirectParameterstring As String = String.Empty

		Dim jobtypeParameter As String = "?jobtype=" + jobtype
		Dim orgTypeParameter As String = "&OrgType=" + OrgType
		Dim workingHRSParameter As String = "&WorkingHRS=" + WorkingHRS
		Dim contractParameter As String = "&Contract=" + Contract


		Dim jobtypeAndWorkingHRStypeParameter As String = jobtypeParameter & workingHRSParameter
		Dim jobtypeandcontractParameter As String = jobtypeParameter & contractParameter
		Dim jobtypecontractandWorkingHRSParameter As String = (jobtypeParameter & contractParameter) + WorkingHRS
		Dim jobtypeWorkingHRSAndContractParameter As String = jobtypeAndWorkingHRStypeParameter & contractParameter

		If currenturl = jobtypeAndWorkingHRStypeParameter Then
			redirectParameterstring = currenturl & orgTypeParameter
		ElseIf currenturl = jobtypeandcontractParameter Then
			redirectParameterstring = currenturl & orgTypeParameter
		ElseIf currenturl = jobtypecontractandWorkingHRSParameter Then
			redirectParameterstring = currenturl & orgTypeParameter
		ElseIf currenturl = jobtypeWorkingHRSAndContractParameter Then
			redirectParameterstring = currenturl & orgTypeParameter
			lnkOrgType.Visible = True
			lnkOrgType.Text = OrgType
		Else
			redirectParameterstring = jobtypeParameter & orgTypeParameter
		End If

		Response.Redirect(Convert.ToString("Job1.aspx") & redirectParameterstring)
	End If
End Sub

I agree, here is the link: https://www.e-iceblue.com/Introduce/spire-office-for-net-free.html

How to reduce code for multiple filter condition using VB.Net in ASP.Net

Company

Explore

Follow us

Contact Us