How would I go about splitting a text string? Example, currently I have a Time column that actually has both the time and the venue together - FOX/2 pm. ESPN/3 pm., ect. I want to split everything after the "/" and place those characters into another column. Any suggestions?

Create two extra columns in your table, then create routine that does this:

Open Recordset on current table (SELECT * FROM MyTable)

rs.MoveFirst
Do Until rs.EOF
   ReDim MyArray(2)
   MyArray = Split(rs("TimeColumn"), "/")
      rs("NewTimeColumn") = MyArray(0)
      rs("ChannelColumn") = MyArray(1)
      rs.Update
rs.MoveNext
Loop

This will loop through your current table and put the values in the new columns and preserver the old column.

Did that help?

mmcdonal

Look it up at: http://wrox.books24x7.com

Not sure what I was doing wrong, but I got it to work with follwing code. I put this in as a new module. Then ran a query Expr1:ParseFirstComp([Time]), Expr2:ParseSecondComp([Time]).

Function ParseFirstComp(pValue) As String

    Dim LPosition As Integer

    'Find postion of "/"
    LPosition = InStr(pValue, "/")

    'Return the portion of the string before the "/"
    If LPosition > 0 Then
        ParseFirstComp = Left(pValue, LPosition - 1)
    Else
        ParseFirstComp = ""
    End If

End Function

Function ParseSecondComp(pValue) As String

    Dim LPosition As Integer

    'Find postion of "/"
    LPosition = InStr(pValue, "/")

    'Return the portion of the string after the "/"
    If LPosition > 0 Then
        ParseSecondComp = Mid(pValue, LPosition + 1)
    Else
        ParseSecondComp = ""
    End If

End Function

Typically a consistent but moving character used to split a string would use an array and Split(). Using the two functions works as well it seems even if it requires looping through the two functions each time. There's more than one way to skin a cat, I guess.



mmcdonal

Look it up at: http://wrox.books24x7.com

You could also try it with the LEFT, RIGHT, MID, and INSTR functions.

strVenue = Left(strInput, Instr(strInput, "/") - 1)
strStart = Mid(strInput, Instr(strInput, "/") + 1)

Of course, this treats the start time as a string and not a real date/time. You could convert that.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division