My data looks like this:
<tbody>
</tbody>Public Function separate(field As String, separator As String)
Dim fieldlength As Integer
fieldlength = Len(field)
separate = ""
Dim i As Integer
For i = 1 To fieldlength
separate = separate + Mid(field, i, 1)
separate = separate + separator
Next
separate = Mid(separate, 1, (fieldlength * 2) - 1)
End Function
c2=\Data Tab\Get & Transform |
c3=\View Tab\Show/Hide\Ruler I am looking for a function - for this example named Parse where Parse(c2,"",1) equals Data Tab Parse(c3,"",2) equals Show/Hide |
<tbody>
</tbody>
Dim fieldlength As Integer
fieldlength = Len(field)
separate = ""
Dim i As Integer
For i = 1 To fieldlength
separate = separate + Mid(field, i, 1)
separate = separate + separator
Next
separate = Mid(separate, 1, (fieldlength * 2) - 1)
End Function