将URL值添加到VB.Net中的字符串

时间:2014-07-23 08:28:15

标签: vb.net

我遇到了问题。 该脚本运行并构建String并可以解析结果,它会自动接收,然后搜索RedirectURL的值。

如何在我的脚本的构建版本中添加要构建的URL值。

    Friend Overrides Function Filter() As String

        Dim sb As New StringBuilder()
        Return sb.ToString()   '' Returning an empty string allows the applicant to be passed to the lender; otherwise the applicant is not sent

        If app.BankAccount = String.Empty Then
            sb.Append("Bank Account must be present;")
        End If

        If app.BankSortCode = String.Empty Then
            sb.Append("Sort Code must be present;")
        End If

        If app.LoanAmount = String.Empty Then
            sb.Append("Loan Amount must be present;")
        End If

    End Function

    Friend Overrides Function Build() As String
        Dim sb As New StringBuilder()


        sb.AppendLine("&first_name=" & app.FirstName)
        sb.AppendLine("&surname=" & app.LastName)
        sb.AppendLine("&dob=" & app.DOB.ToString)
        sb.AppendLine("&email=" & app.Email)
        sb.AppendLine("&home_phone=" & app.LandPhone)
        sb.AppendLine("&mobile_phone=" & app.MobilePhone)
        sb.AppendLine("&postcode=" & app.PostCode)
        sb.AppendLine("&affid=" & app.affID)
        sb.AppendLine("&subid=" & lendertier.Credential1)
        sb.AppendLine("&leadid=" & lendertier.Credential2)
        sb.AppendLine("&bk_no=" & app.BankAccount)
        sb.AppendLine("&bk_s=" & app.BankSortCode)
        sb.AppendLine("&ar=" & app.LoanAmount.ToString)



        Return sb.ToString()



    End Function

    Friend Overrides Function ParseResult(ByVal sResult As String) As Boolean
        app.Outcome.RedirectURL = sResult
        AcceptLead()
        Return True

    End Function

1 个答案:

答案 0 :(得分:0)

这个问题不是很明确,但我会试一试......

我认为您在检索应用程序版本号并将其包含在paramaterse之后,在这种情况下您将需要以下内容: -

Dim versionNumber As Version

versionNumber = Assembly.GetExecutingAssembly().GetName().Version

您必须导入System.Reflection才能工作。