looping

[kylefoley76]

I'm trying to loop through what I call sentences. Below the find_sentences2 function will identify the sentences that compose an active cell. So

(xHy) & (xHz) & (bHc)

The find_sentences2 will store the above 3 sentences between parentheses into an array. I can't figure out how to loop through it. Till now, I've just been putting a number between the parentheses after atomicsent which will identify which sentence I'm analyzing.

Dim input3 As Variant
dim input1 as string

input1 = activecell.Value


atomicsent = find_sentences2(input1)


input3 = atomicsent()


For Each input3 In atomicsent


(code)

Next

 

[VBA Geek]

i guess you are looking for something like this

Function LoopThroughME(s As String)
Dim mArray As Variant
Dim ArrayCounter As Integer

mArray = Split(Replace(Replace(s, "(", ""), ")", ""), "&")

For ArrayCounter = LBound(mArray) To UBound(mArray)
    MsgBox mArray(ArrayCounter)
Next

End Function

 

[Rick Rothstein]

i guess you are looking for something like this

Function LoopThroughME(s As String)
Dim mArray As Variant
Dim ArrayCounter As Integer

mArray = Split(Replace(Replace(s, "(", ""), ")", ""), "&")

For ArrayCounter = LBound(mArray) To UBound(mArray)
    MsgBox mArray(ArrayCounter)
Next

End Function

While you declared it as a Function, your code does not return anything, so it should more properly be declared as a Sub, I would think.

Here is a function that returns a one-dimensional array (starting element number is 1, not 0)...

Function find_sentences2(S As String) As String()
  Dim X As Long, Parts() As String, Temp() As String
  Parts = Split(Replace(S, ")", "("), "(")
  ReDim Temp(1 To Int(UBound(Parts)) / 2)
  For X = 1 To UBound(Parts) Step 2
    Temp((X + 1) / 2) = Parts(X)
  Next
  find_sentences2 = Temp
End Function

 

[VBA Geek]

I know I was just replying to him about how to go through the sentences and he wanted a function

 

[kylefoley76]

actually the algorithm for identifying a sentence is much more complex than just looking at the parentheses and an &, but don't worry the function find_sentences already does that. I'm able to loop through it now but I'm having trouble because it is a dynamic array. When I do the code this way, it works:

atomicsent = find_sentences2(input1)


For i = 1 To 3


input3 = atomicsent(i)

(code)

next

But when I try to do it this way, the value for the input3 will be empty on the next loop:

atomicsent = find_sentences2(input1)


For i = lbound(atomicsent) To ubound(atomicsent)


input3 = atomicsent(i)

(code)

next

Maybe I need to use redim but i don't know how.