Få ut värde ur en sträng?

Är det "eMail" du vill flagga för att få ut e-post? eller är det bara e-post mönstret?

RegExp känns som det självklara valet i så fall.

Det där ser ut som en del ur ett XML-dokument.
Om så är fallet så kan du läsa attributen med XMLDOM istället.

voigtann1 skrev:

Är det "eMail" du vill flagga för att få ut e-post? eller är det bara e-post mönstret?

RegExp känns som det självklara valet i så fall.

Det kommer alltid att stå eMail framför adressen som jag vill ha ut.

Troxy skrev:

Det där ser ut som en del ur ett XML-dokument.
Om så är fallet så kan du läsa attributen med XMLDOM istället.

Ja, det är en del av ett XML-dokument som är lagrat i en databas, men det måste läsas ifrån databasen.

Quid skrev:

Ja, det är en del av ett XML-dokument som är lagrat i en databas, men det måste läsas ifrån databasen.

Är det ett giltigt XML-dokument i sin helhet?
Isf, läs dokumentet med Microsoft.XMLDOM, hämta attributet med XPath.

Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.LoadXML(data)
xml.SetProperty("SelectionLanguage", "XPath")
attr = xml.SelectNodes(xpath)

Just XPath-biten är jag dålig på

Jag kommer tyvärr inte kunna läsa ut det med hjälp av Microsoft.XMLDOM.

Några andra ideer?

voigtann1: Uttrycker sig, så känns regexp som det naturliga valet i detta..

Men mönster.. det är inte min grej.

Inte min heller

<%
Response.Write GetValue(Str, "guid")

Function GetValue(str, target)
	With New RegExp
	    .Global = True
	    .IgnoreCase = True
	    .Pattern = target & "=""([^""]+)"""
	    Dim m, match
	    set m = .Execute(str)
	    For each match in m
		GetValue = match.SubMatches(0)
	    Next
	End With
End Function
%>

Med din sträng ovan får jag ut resultatet:
c9c37de3-a7cc-4c22-b996-8e90b63ec89deffbdb06-e9d5-437e-80d7-fd79577b5b33

behöver kanske inte köra for each loop men it works

Klockrent, tack.

Orkar du förklara hur det funkar?

Själv skrev jag ihop en annan lösning, som funkar, men den känns inte lika snygg

v_split = Split(v_string," ")
For Each item In v_split
	IF lcase(left(item, 5)) = "email" THEN
		v_strip = Replace(item, "eMail=", "")
		v_strip = Left(v_strip, (Len(v_strip) -1))
		v_strip = Right(v_strip, (Len(v_strip) -1))
		v_email = v_strip
	END IF
Next

RegExp mönstret letar efter (i mitt exempel) efter ett uttryck:

guid="([^"]+)"
Vi skapar en grupp () för att kunna få ut datan ifrån vad det nu är för data
[^"]+ = Träffa allt som INTE är " mellan en träff till hur många träffar den kan hitta (greedy)

För varje träff vi hitta (regExp.execute) så hämtar vi ut gruppen 1 (i arrayn är det 0)

GetValue = match.SubMatches(0)