Looking to Adapt This or New One to Parse Cell by Character

[Alex20850]

My data looks like this:

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>

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

 

[Rick Rothstein]

Does this function do what you want? The first argument is either a cell reference containing text or expression evaluating to a text string, the second argument is the text to be used as the delimiter separating the fields and the third argument is the field number to return.

[table="width: 500"]
[tr]
	[td]Function Field(Text As String, Delimiter As String, FieldNumber As Long) As String
  Field = Split(Text, Delimiter)(FieldNumber)
End Function[/td]
[/tr]
[/table]

Note: The FieldNumber argument starts at 0 which is the text before the first delimiter.

 

[Alex20850]

Wonderful!! Very short, too the point, and powerful!! Thank you!