[RESOLVED] Cannot split text using vbCrlf as delimiter

I pulling my hair on this one. Split is not working.

Dim sometext as string


myArr() = Split(sometext, vbCrLf)

Sample data. The data is stored on sometext variable already.

Code:

---

“ajkdhaljkhlkjaddfj ka gdkjgaslkjdgasjkd”:
asjkldh dfjkljgsd glakfjsfadj aldkjalkjs sl sdklfjslk fsdlkf aldjkaklsd asd klasdlkjaslkd asdjasd.

---

Code:

---

under immediate window when i try
debug.print myArr(0)
“ajkdhaljkhlkjaddfj ka gdkjgaslkjdgasjkd”:
asjkldh dfjkljgsd glakfjsfadj aldkjalkjs sl sdklfjslk fsdlkf aldjkaklsd asd klasdlkjaslkd asdjasd.

myArr(1) will return an error.

---

Can somebody help me on this one?

Does InStr(sometext, vbCrLf) return >0

Maybe it's not a full carriage return/line feed, it could be just one of those. Try Splitting with vbCr or vbLf

Also try

Code:

---

myArr() = Split(sometext, vbnewline)

---

Or examine the character to see what it is.

MsgBox Asc(Mid$(sometext, n, 1)) ' Where n is the position you want to look at

I think vbCrLf constant is identical to vbNewLine. The latter one probably being newer (more verbose) and the former kept for backwards compatibility.

Quote:

---

Originally Posted by baja_yu

I think vbCrLf constant is identical to vbNewLine. The latter one probably being newer (more verbose) and the former kept for backwards compatibility.

---

Yres, they are the same (asc 13).

I tried vbNewLine same. It didn't split.

InStr(1, sometext, vbCrLf) returned 0 OMG!!!!

This is unreal. Immediate Window is showing clearly that the variable has newline. why it wont split? I really don't know what is causing this.

LOL i missed reading post #2. VbCR worked like a charm. Woot +1 to all that helped!

vbCrLf is just a "hard-coded" Carriage Return and Line Feed.

vbNewLine is platform specific and will contain whatever the appropriate codes are to generate a new line

Anyways if you try as Baja suggested

myArr() = Split(sometext, vbLf)

Then it will work. I just tried it...

That's right kool. Here are the definitions from MSDN

Quote:

---

Const vbCrLf = "
"
Member of VBA.Constants
Constant for Carriage-return/Linefeed combination; equivalent of Chr$(13)+Chr$(10

---

Quote:

---

Const vbNewLine = "
"
Member of VBA.Constants
Constant for NewLine; platform specific

---

Though I wonder on which platform can you run a VB6 app that does not use Cr+Lf combination for a new line character.