|
GetFieldValueFromText
(XAPI2000)
Deklaration
Function GetFieldValueFromText (ByVal sText As String, ByVal
sFieldName As String, ByVal sSep As String) As String
Beskrivning
Returnerar värde/text för ett specificerat fält i en text som
innehåller fält och fältdata. Parametern sText specificerar
den text som ska genomsökas, sFieldName specificerar namnet
på det fält som funktionen ska leta efter och sSep specificerar
det separatortecken som används i texten för att särskilja fältnamn
och fältinnehåll (tex ett kolon ":").
Ett användningsområde för denna funktion är att hämta fältinformation
från textbaserade registrerinsmail. Till exempel e-mail som har
innehåll liknande denna:
E-post: sven@samlogic.com
Namn: Sven Svensson
Företag: SamLogic
Om parametern sText sätts
till ovanstående text, parametern sFieldName sätts till "Namn"
och sSep sätts till ":" kommer funktionen att returnera "Sven
Svensson". Och sätts sFieldName till "Företag" istället returnerar
funktionen "SamLogic."
Funktionen är ej känslig för skiftesläge i fältnamn, så exempelvis
ett fält som heter "Namn" betraktas som likvärdigt som "namn"
och "NAMN" osv.
Returvärden
Funktionen returnerar fältinnehåll för ett fält i en text som
innehåller fält och fältdata. Hittas inte specificerat fält returnerar
funktionen "". |
Exempel
Nedanstående exempel hämtar fältvärdet
vid fältet "Namn" (dvs "Sven Svensson").
Dim sText As String
Dim sFieldData As String
sText = "E -post: Sven@ SamLogic.com"
& vbCrLf & _
"Namn: Sven Svensson" & vbCrLf & _
"Företag: SamLogic"
sFieldData = GetFieldValueFromText(sText,
"Namn", ":") ' Returnerar "Sven Svensson"
|
