Getting 2 values from a Function

mega · June 16th, 2004, 09:11 PM

Hi all.

Do anyone know if it's possible to assign 2 different values to 2 variables from a function and make them global? Like :

Code:

Function SeperateFields(m_Fields)
  Dim intEndOfField1
  intEndOfField1 = InStr(m_Fields, ", ") 
  m_Field1 = mid(m_Fields, 1, intEndOfField1 -1) 
  m_Field2 = mid(m_Fields, intEndOfField1 +2, Len(m_Fields))
End Function
SeperateFields("gasga, fgsagas")
  Response.Write(m_Field1 & "<br />")
  Response.Write(m_Field2 & "<br />")

- mega

U.N.C.L.E. · June 17th, 2004, 07:51 AM

Use the Split() function:

myFieldsArray = Split("gasga, fgsagas",", ")
-----------------------------------------^ Notice the extra space

response.Write(myFieldsArray(0) & "<br />"))
response.Write(myFieldsArray(1) & "<br />"))

mega · June 17th, 2004, 08:49 AM

Hi Napoleon Solo.

I'm using the function in a Class so I had some other alternatives than just plane old VBS. I have overcome it by making Private properties for the fields' variables and then I could assign a value to each property:

Code:

  Private Property Get Field1()
    Field1 = m_Field1
  End Property
  Private Property Let Field1(p_Data)
    m_Field1 = p_Data
  End Property

  Private Property Get Field2()
    Field2 = m_Field2
  End Property
  Private Property Let Field2(p_Data)
    m_Field2 = p_Data
  End Property
    Private Sub SeperateFields(m_Fields)
      Dim intEndOfField1
      intEndOfField1 = InStr(m_Fields, ", ") 
      m_Field1 = mid(m_Fields, 1, intEndOfField1 -1) 
      m_Field2 = mid(m_Fields, intEndOfField1 +2, Len(m_Fields))
      Field1 = m_Field1
      Field2 = m_Field2
    End Sub
 ' and in a function I call
Call SeperateFields(Fields)

But your suggestion could have been used just as well and with lesser code.

- mega