The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Code:
<ErrorName>Lead Import Error.</ErrorName>
I want to pull out everything which appears between <ErrorName> and
</ErrorName>.
How to do it in asp/vbscript ?<
Posted
You will need to use a regex similar to the one of this page - http://www.regular-expressions.info/examples.html
i.e.
<
i.e.
Code:
<ErrorName\b[^>]*>(.*?)</ErrorName>
Posted
regex doesnt look easy ? :-(<
Posted
My entire string looks like this :
From above line or string, I want to Extract all which appears between
<ErrorName> and </ErrorName>.
I tried
<ErrorName\b[^>asdsad</ErrorName>
and it works... but how to from that string ?<
Code:
st="<?xml version="1.0" encoding="utf-8" ?> - <returnMessage xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.abcsite.com/"> <ErrorName>Success</ErrorName> <ErrorDescription>Approved - Ready to be assigned to Order</ErrorDescription> <LeadID>13498919</LeadID> <ClientAvailable>true</ClientAvailable> </returnMessage>"
From above line or string, I want to Extract all which appears between
<ErrorName> and </ErrorName>.
I tried
<ErrorName\b[^>asdsad</ErrorName>
and it works... but how to from that string ?<
Posted
Fixed your closing code tag.
Can you post the asp code you are using to test the regex ?<
Can you post the asp code you are using to test the regex ?<
Posted
Code:
<%
Option Explicit
Dim url
url = "http://<<domainname>>/Suppliers/WebServices/InsertLeads.asmx/InsertLead"
Private Function InsertLead(SupplierId, SupplierPassword, FirstName, LastName, EmailAddress, CoAppFirstName, CoAppLastName, Address, City, State, PostalCode, HomePhone, WorkPhone, WorkPhoneExt, CurrentEmployer, YearsThere, Income, BestCallTime, OriginalLeadDate, ExternalLeadID, IPAddress, ExtraFields)
Dim queryString
queryString = "SupplierID=" & SupplierId
queryString = queryString & "&SupplierPassword=" & SupplierPassword
queryString = queryString & "&FirstName=" & FirstName
queryString = queryString & "&LastName=" & LastName
queryString = queryString & "&EmailAddress=" & EmailAddress
queryString = queryString & "&CoAppFirstName=" & CoAppFirstName
queryString = queryString & "&CoAppLastName=" & CoAppLastName
queryString = queryString & "&Address=" & Address
queryString = queryString & "&City=" & City
queryString = queryString & "&State=" & State
queryString = queryString & "&PostalCode=" & PostalCode
queryString = queryString & "&HomePhone=" & HomePhone
queryString = queryString & "&WorkPhone=" & WorkPhone
queryString = queryString & "&WorkPhoneExt=" & WorkPhoneExt
queryString = queryString & "&CurrentEmployer=" & CurrentEmployer
queryString = queryString & "&YearsThere=" & YearsThere
queryString = queryString & "&Income=" & Income
queryString = queryString & "&BestCallTime=" & BestCallTime
queryString = queryString & "&OriginalLeadDate=" & OriginalLeadDate
queryString = queryString & "&ExternalLeadID=" & ExternalLeadID
queryString = queryString & "&IPAddress=" & IPAddress
queryString = queryString & "&ExtraFields=" & ExtraFields
Dim httpReq
Set httpReq = CreateObject("msxml2.serverxmlhttp.4.0")
httpReq.Open "GET", url & "?" & queryString, false
httpReq.Send
Response.write "<input type=hidden value="& queryString & ">" & "<br><br><br>"
Set InsertLead = httpReq
End Function
Public Sub Main()
Dim req
Set req = InsertLead("22525", "iopuat4n", "Joe", "Bloggs","joebloggs@somewhere.com", "Fred", "Smith", "123 High Street", "Springfield", "WA", "12345", "1231234399", "1231234399", "123", "ACME", "3", "", "", "5/26/2008", "324324", "", "DebtAmount=100000")
' Response.write Mid(req.ResponseText,Instr(req.ResponseText,"<ErrorName>"),Instr(req.ResponseText,"</ErrorName>")-1) & "<br><br>"
Response.write "<ErrorName\b[^>asdsad</ErrorName>"
' Response.write req.ResponseText & "<br><br>"
End Sub
Call Main()
%>
<