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

[Alex20850]

My data looks like this:
[TABLE="width: 236"]
<tbody>[TR]
[TD]c2=\Data Tab\Get & Transform[/TD]
[/TR]
[TR]
[TD]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[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
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!