Snippet Library

Returning An Array Of Fixed Length Strings From A String Many of the instruments we write VB interface's for send ASCII data in a string such as "-0.0001+0.0032-0.0012-0.0021". This little routine will nicely chop up the string into fixed length chunks, and put them into an array for further processing. It should work in any version of VB.

none

Public Sub Fixed_Len(Work As String, Length As Integer, Arr() As String)
  Dim iElement As Integer
  Dim iCounter As Integer
  Dim iPointer As Integer
  iElement = 1
  iCounter = 1
  For iPointer = 1 To UBound(Arr())
  Arr(iElement) = Mid(Work, iCounter, Length)
  iCounter = iCounter + Length
  iElement = iElement + 1
  Next iPointer
End Sub;