string splitting

qwjunk · #1 (**permalink**) February 1st, 2004, 10:24 AM

ive a text string like this ..

John Markus K Philip

i need to split it into 3 parts and take it to 3 variables like:
var1: John
var2: Markus
var3: K Philip

if only i name is there it shud only be using var1 and the other 3 vars r left blank .. howto do this ?

rodmcleay · #2 (**permalink**) February 1st, 2004, 09:41 PM

Dim arrFullName()
'split the full name into the array
arrFullName = split(strName," ")

'check how many elements are in the array
select case ubound(arrFullName)
case 1
  'Code to handle one name entered
  var1 = arrFullName(0)
case 2
  'code to handle two names entered
  var1 = arrFullName(0)
  var2 = arrFullName(1)
case 3
  'code to handle three names entered
  var1 = arrFullName(0)
  var2 = arrFullName(1)
  var3 = arrFullName(2)
case 4
  'code to handle Four names entered
  var1 = arrFullName(0)
  var2 = arrFullName(1)
  var3 = arrFullName(2) & " " & arrFullName(3)
end select

BUT:
This is a very about face way of dealing with a name, you should try to get entered in the fields for first name, second, etc and then join them when you need a full name. With the huge variety of name formats out there I'd hate to have to rely on this method.

EG
"John Markus K Philip" would be
John
Markus
K Philip

BUT
"John K Philip" would be
John
K
Philip

Different result just because the didn't wish to provide (or didn't have) a middle name.

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================

qwjunk · #3 (**permalink**) February 2nd, 2004, 02:06 AM

i get this error ..

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/clinicasp/DBConvert.asp, line 49

the input thru strName is string only ...

rodmcleay · #4 (**permalink**) February 2nd, 2004, 02:20 AM

Sorry,
My mistake.

Dim arrFullName
NOT
Dim arrFullName()

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================

rodmcleay · #5 (**permalink**) February 2nd, 2004, 02:25 AM

Sorry, there are further mistakes, I really didn't think when doing this one.

The case statement should be from a base of 0 (zero)

so
case 1
case 2
...etc

should be case 0, case 1, ...etc.

Below is working code to illustrate clearly

Code:

<% @language = "vbscript" %>
<html>
<head>
    <title>Untitled</title>
</head>
<body>
<%
Dim arrFullName
dim strName
'split the full name into the array
strName = "John Markus K Philip"
arrFullName = split(strName," ")

'check how many elements are in the array
select case ubound(arrFullName)
 case 0
  'Code to handle one name entered
  var1 = arrFullName(0)
 case 1
  'code to handle two names entered
  var1 = arrFullName(0)
  var2 = arrFullName(1)
 case 2
  'code to handle three names entered
  var1 = arrFullName(0)
  var2 = arrFullName(1)
  var3 = arrFullName(2)
 case 3
  'code to handle Four names entered
  var1 = arrFullName(0)
  var2 = arrFullName(1)
  var3 = arrFullName(2) & " " & arrFullName(3)
end select

response.write("<BR>Var1 = " & var1)
response.write("<BR>Var1 = " & var2)
response.write("<BR>Var1 = " & var3)
%>
</body>
</html>

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================

qwjunk · #6 (**permalink**) February 2nd, 2004, 05:59 AM

thanx it works perfectly now ..

Need to download code?

Navigation