CODEWITHSUNDEEP
stringasp-classic
Mansi Desai
Mansi Desai

Reputation: 227

Split string in classic asp

I am working in classic ASP and have a string as below :

A
B
C

Now I want to split the string, I have tried vbCrLf, vbNewline , vblf and
but none of them work.

Please suggest me an alternative to split the string. I am in a bad fix.

Upvotes: 1

Views: 5529

Answers (2)

gpinkas
gpinkas

Reputation: 2591

Are you sure, you have newlines in the string?

First you can output all character codes to find out, by which character to split:

dim i, c

for i = 1 to len(my_string)
    c = mid(my_string, i, 1)
    Response.Write "CHAR: " & ASC(c) & " = " & c
next

Then you have 2 options:

  1. If you can split by one character (e.g. char num 10), you can use:

    a_result = split(my_string, CHR(10))

  2. You can grab values out of your string by using regular expression matching. This is much overhead, but if all else fails, here is how you could do that:

    function findStrings(s_text, s_pattern)
        dim a_out, obj_regex, obj_matches
        dim obj_match, n_index
        set obj_regex = New RegExp

        obj_regex.IgnoreCase = true
        obj_regex.Global = true
        obj_regex.MultiLine = true
        obj_regex.Pattern = s_pattern
        set obj_matches = obj_regex.execute(s_text)
        if obj_matches.Count>0 then
                redim a_out(obj_matches.Count-1)
                n_index = 0
                for each obj_match in obj_matches
                        a_out(n_index) = cvStr(obj_match.Value)
                        n_index = n_index + 1
                next
        end if
        findStrings = a_out
        set obj_regex = Nothing
end function

a_result = findStrings(my_string, "\w+")

This assumes, that there is no whitespace in the strings you are looking for.

Upvotes: 4

silver
silver

Reputation: 630

This happens more often than you think, you need to remove the vbcr first then replace only vblf and forget about spliting on vbcrlf because it wont work for 100% of the user envrioments out there.

A
B
C

' assuming about is in the variable str

split(replace(str,vbcr,""),vblf)

Upvotes: 2

Related Questions