Split a string with two tokens

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

bg_ie@yahoo.com - 14 Dec 2006 14:02 GMT

Hi,

I want the first match in a string, which I do as follows -

Dim strArray As Variant
strArray = Split(str, Chr(10), 2)

then strArray stores my value (I only want the first string before my
token)

The problem is, I also want to use Chr(13) as a token in this splitting
operation. How do I do this?

Thanks,

Barry.

Reply to this Message

Tony Jollans - 14 Dec 2006 14:43 GMT

What is wrong with this?

strArray = Split(str, Chr(13), 2)

Or do you mean something different? Perhaps ..

strArray = Split(str, Chr(10) & Chr(13), 2)

.. or ..

Split(Split(a, Chr(10), 2)(0), Chr(13))

Signature

Enjoy,
Tony

> Hi,
>
[quoted text clipped - 12 lines]
>
> Barry.

Reply to this Message

Jonathan West - 14 Dec 2006 14:59 GMT

> What is wrong with this?
>
[quoted text clipped - 7 lines]
>
> Split(Split(a, Chr(10), 2)(0), Chr(13))

I suspect that if Barry wants to split at every Chr(10) and every Chr(13)
then a better approach would be to first replace every Chr(10) with a
Chr(13) and then split on Chr(13), like this

Dim strArray As Variant
Dim strTemp as String
strTemp = Replace(str, Chr(10), Chr(13)
strArray = Split(strTemp, Chr(13), 2)

Signature

Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Reply to this Message