[Линда Кайе]

#post-id: 2699-19-16
#original-date: 16.12.2007 Sun
#original-time: 7:16 PM
#original-day:  2699
#original-host: Win98SE

Function GetParamValue (ByVal TXT As String) As String
  Dim RC As Integer
  
  RC = InStr(TXT, " = ")
  If RC = 0 Then
    GetParamValue = TXT
  Else
    GetParamValue = Mid(TXT, RC + 3)
  End If
End Function

Function GetParamName (ByVal TXT As String) As String
  Dim RC As Integer
  
  RC = InStr(TXT, " = ")
  If RC = 0 Then
    GetParamName = ""
  Else
    GetParamName = Trim(Left(TXT, RC - 1))
  End If
End Function