Seems a bit overkill when you can do this with a few lines of code. 'Function Function ParseValue(inputStr As String, valueStr As String) As String Dim newStr As String Dim startpoint As Integer, endpoint As Integer startpoint = Instr(1,inputStr,valueStr+"=") + Len(valueStr)+1 endpoint = Instr(startpoint,inputStr,"&") - startpoint newStr = Mid(inputStr,startpoint,endpoint) ParseValue = newStr End Function Example of use: For Agents that we call the through a URL and we pass arguments through the URL if we call an agent like this: http://webserver/directory/database/MyAgent?OpenAgent&MyValue1=123&MyValue2=987 Set doc = s.DocumentContext 'Gives you the document as you know content = doc.Query_String(0) & "&" 'Gives you the Query_String CGI value corrected with an ending string Value1 = ParseValue(content,"MyValue1") 'Gives you the desired value of "123" Value2 = ParseValue(content,"MyValue2") 'Gives you the desired value of "987"

Public Class RequestContentParser Private list_elements_content List As String Private currentLog As NotesLog Sub new(sRequest_Content As Variant) On Error Goto errorhandler On Error Goto errh Dim concated_pairs As Variant,split_conc As Variant Set Me.currentLog = New NotesLog( "MyParser" ) Call Me.currentLog.OpenNotesLog( "", "agentlog.nsf" ) Forall ccc In sRequest_Content Call Me.currentLog.LogAction(" content " & ccc) concated_pairs =Split( ccc,"&") Forall in_tags In concated_pairs split_conc = Split( in_tags,"=") If Ubound(split_conc) > 0 Then Me.list_elements_content(split_conc(0))=Unescape(split_conc(1)) End Forall End Forall Exit Sub errorhandler: Call Me.currentLog.LogError( Me.currentLog.NumErrors, " :"+Error(Err()) + ". Line: " + Cstr(Erl()) ) Call Me.currentLog.Close Exit Sub errh : Msgbox " : "+Error(Err()) + ". Line: " + Cstr(Erl()) End Sub Public Property Get GetFieldValue(sFieldName As String) As String On Error Goto errorhandler If Iselement(Me.list_elements_content(sFieldName) ) Then GetFieldValue = Me.list_elements_content(sFieldName) Else GetFieldValue="" End If Exit Property errorhandler: Msgbox( " GetFieldValue Lib: MyParser, class RequestContentParser :"+Error(Err()) + ". Line: " + Cstr(Erl()) ) End Property End Class

What I originally created it for was to iterate through an unknown number of fields on the submitted page. For example, I wrote a quick order form that had a quantity field for each product in a database. In that case, I did a (LotusScript version of a)dblookup to the products database and made passthru html for each field and label, with each quantity field's name being the id of its product document. The user would fill out the web page and submit it into an agent that used this code to receive and parse the returned info appropriately. In this case, I needed something that would iterate through an unknown number of unknown label-value pairs, and I wanted code that was easily portable. Writing the GetFieldValue method to simply get a value given a known label was just an afterthought for me... plus it's more robust. Your version breaks if you go after MyValue or NonExistingLabel.

Like checkbox, select mutli fields, the following modification returns an array of values from the GetFieldValues(sFieldName) function, if sFieldName is null or doesn't exist a single value array of "" is returned, just like accessing field values on a form.
Hope this helps, George:
Public Class RequestContentParser
Private psRC As String
Private piAmpPos As Integer
Private iTempPrev As Integer ' tracks where the last field value was...
Sub new(Byval sRequest_Content As String)
psRC = sRequest_Content
piAmpPos = 0
End Sub
Private Function Unescape(Byval s As String) As String
Dim iPercent As Integer
Dim iPlus As Integer
Dim sL As String
Dim sM As String
Dim sR As String
iPercent = Instr(s,"%")
iPlus = Instr(s,"+")
If iPlus = 0 Then
If iPercent = 0 Then 'neither percent nor plus was found.
Unescape = s
Else 'plus not found, deal with percent
sL = Left$(s,iPercent-1)
sM = Mid$(s,iPercent+1,2)
sR = Mid$(s, iPercent+3)
Unescape = sL + Chr$(Cint("&h" & sM)) + Unescape(sR)
End If
Elseif iPercent = 0 Or iPlus < iPercent Then 'percent doesn't exist or plus comes before percent, deal with plus
sL = Left$(s, iPlus - 1)
sR = Mid$(s, iPlus + 1)
Unescape = sL + " " + Unescape(sR)
Else 'percent comes before plus, deal with percent
sL = Left$(s,iPercent-1)
sM = Mid$(s,iPercent+1,2)
sR = Mid$(s, iPercent+3)
Unescape = sL + Chr$(Cint("&h" & sM)) + Unescape(sR)
End If
End Function
Public Function GetFieldValues(sFieldName As String) As Variant 'rtns an array, if null then returns single value in array of value ""
'lets return an array of field values
Dim rtn() As String
Redim rtn(0) As String
iTempPrev = 1
Dim tmpString As String
tmpString = GetNextFieldValue(sFieldName)
Dim i As Integer
i = 0
If tmpString = "" Then
rtn(i) = ""
Else
While Not tmpString = ""
Redim Preserve rtn(i)
rtn(i) = tmpString
i = i+1
tmpString = GetNextFieldValue(sFieldName)
Wend
End If
GetFieldValues = rtn
End Function
Private Function GetNextFieldValue(sFieldName As String) As String
Dim iAmpPos As Integer
Dim iFieldPos As Integer
Dim iValPos As Integer
Dim sValue As String
iFieldPos = Instr( iTempPrev, "&" + psRC, "&" + sFieldName + "=")
If iFieldPos = 0 Then
GetNextFieldValue = ""
Else
iValPos = iFieldPos + 1 + Len(sFieldName)
iAmpPos = Instr(iValPos, psRC, "&")
iTempPrev = iValPos
If iAmpPos = iValPos Then
GetNextFieldValue = ""
Elseif iAmpPos < iValPos Then 'its the last value in the string....
GetNextFieldValue = Unescape(Mid(psRC, iValPos))
Else
GetNextFieldValue = Unescape(Mid(psRC, iValPos, iAmpPos - iValPos))
End If
End If
End Function
End Class

Dear John,
your code was really helpful for me, I would like to thank you.
However, Unescape is written in a recursive manner, which caused problems processing larger text entries. So I have written a replacement for it. It uses the StringBuffer class available on the NSFTools page (http://www.nsftools.com/tips/NotesTips.htm#stringbuffer)
I admit that my solution is a bit slow after a certain size of textarea processing, but it works.
Here it is:
Private Function Unescape(Byval s As String) As String
Dim i As Integer
Dim out As New StringBuffer(50)
Dim char As String
i=1
While i<=Len(s)
char=Mid(s,i,1)
If char="%" Then
out.append(Chr$(Cint("&h" & Mid(s,i+1,2))))
i=i+2
Elseif char="+" Then
out.append(" ")
Else
out.append(char)
End If
i=i+1
Wend
Unescape=out.toString
End Function

Login to add your comment