Hey Guys,

I am getting a type mismatch error when I attempt to split a string.
Here is what I have tryed so far:

Dim st As String
Dim t As String

st = "now then"
t = Split(st, vbTab)
MsgBox t

this give a type mismatch error. I also tried this:

dim v as variant
v = split(st, vbTab)
MsgBox v

This also gives a type mismatch error. I also tried this:

dim arr(2) as string
arr = split(st, vbTab)
msgbox arr(0)

This give a "can't assign array" error.


Any suggestions will be 100% appreciated. Thanks

Ryan

nikotromus

__________________
nikotromus

Although you think that vbTab is a string character consisting of a tab, it is not. The intrinstic constant vbTab is a number (I forget if it's a byte or integer) and is used in leiu of CHR(9) for easy concatenation of strings for programers. Try using CHR(9) instead of vbTab and see if you still get a type mismatch error. If so, then tabs are not treated as string characters by the SPLIT function.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

The type mismatches come at different places in each of the 3 code snippets you posted, that's why you're getting confused.

For starters, Split returns an array so your 1st one "Dim t As String" is no good.

Your 2nd one, dim v as variant, is fine. A Variant can contain an array so that's OK. Your Type Mismatch in this case comes from the line "MsgBox v". MsgBox can't work on an array - had you put "MsgBox v(0)" it would have been fine.

Your 3rd one "dim arr(2) as string" is no good because you have sized the array in advance. Had you used "dim arr() as string" instead then this one would be fine too.

hth
Phil

The problem is that there is no 'TAB' in the input string. When you type in code in the IDE and hit the tab key it converts the to the appropriate amount of spaces.

For example type in the following and hit the tab key after typing s = "A
Then type B"

s = "A B"
L = Len(s)

It looks like a tab but L will be 5 not 3!!!!

To put the tab in use this syntax:
    st = "A" & vbTab & "B" & vbTab & "C"
    v = Split(st, vbTab)
    MsgBox (v(0) & " " & v(1) & " " & v(2))

You guys are completely awesome. PgTips solved my first problem of the type mismatch, and LarryT solved my second problem of not reading a tab because there really was no tab there in the first place.

Thank you all very much. You solved a big headache for me.

Ryan

nikotromus