Equivalent of GH "Repeat" component in VB?

Replies to This Discussion

Permalink Reply by Brian Harms on January 28, 2012 at 1:16am

Ah , I think I can get it from david's stack script here with very little tweaking:

http://www.grasshopper3d.com/forum/topics/if-expression-repeat-data

Permalink Reply by Brian Harms on January 28, 2012 at 1:51am

Figured it out:

Private Sub RunScript(ByVal data As List(Of Integer), ByVal repeatLength As Integer, ByRef A As Object)

Dim myArray(repeatLength) As Integer

Dim k As Int32 = -1
For i As Int32 = 0 To repeatLength
k += 1
If (k >= data.Count) Then k = 0

myArray(i) = (data(k))
Next

A = myArray

End Sub