split adress and number?

[martin]

Hi, a very newbie question. How do I split the adress and number to 2
variables?
ex. "Kingsroad 347" = variabel1 = "Kingsroad" variabel2 = "347"

Ill guess i have to search the string from left to right after first
apperence of a number, but how do i do that?

Regards

Martin

[Roland Hall]

"martin" wrote:
: Hi, a very newbie question. How do I split the adress and number to 2
: variables?
: ex. "Kingsroad 347" = variabel1 = "Kingsroad" variabel2 = "347"
:
: Ill guess i have to search the string from left to right after first
: apperence of a number, but how do i do that?

dim myString, myArray
myString = "Kingsroad 347"
myArray = Split(myString, " ")
Response.Write(myArray(0)) '---- Kingsroad
Response.Write(myArray(1)) '---- 347

or

dim myString, myArray, i
myString = "Kingsroad 347"
myArray = Split(myString, " ")
for i = lbound(myArray) to ubound(myArray)
Response.Write(myArray(i) & "<br />" & vbCrLf)
next

HTH...

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[martin]

"Roland Hall" <nobody@nowhere> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

"martin" wrote:
: Hi, a very newbie question. How do I split the adress and number to 2
: variables?
: ex. "Kingsroad 347" = variabel1 = "Kingsroad" variabel2 = "347"
:
: Ill guess i have to search the string from left to right after first
: apperence of a number, but how do i do that?

dim myString, myArray
myString = "Kingsroad 347"
myArray = Split(myString, " ")
Response.Write(myArray(0)) '---- Kingsroad
Response.Write(myArray(1)) '---- 347

or

dim myString, myArray, i
myString = "Kingsroad 347"
myArray = Split(myString, " ")
for i = lbound(myArray) to ubound(myArray)
Response.Write(myArray(i) & "<br />" & vbCrLf)
next

Thanks alot, but both of your solutions split the string at the first
space(" ").
Is it possible to split at the first apperence of a number.. cos with this
solution it would be a problem if the user had typed in "Kin gsroad 347". Or
am i wrong?
regards

Martin

[Bob Barrows]

martin wrote:

"Roland Hall" <nobody@nowhere> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

"martin" wrote:

Hi, a very newbie question. How do I split the adress and number to
2 variables?
ex. "Kingsroad 347" = variabel1 = "Kingsroad" variabel2 =
"347"

Ill guess i have to search the string from left to right after first
apperence of a number, but how do i do that?

dim myString, myArray
myString = "Kingsroad 347"
myArray = Split(myString, " ")
Response.Write(myArray(0)) '---- Kingsroad
Response.Write(myArray(1)) '---- 347

or

dim myString, myArray, i
myString = "Kingsroad 347"
myArray = Split(myString, " ")
for i = lbound(myArray) to ubound(myArray)
Response.Write(myArray(i) & "<br />" & vbCrLf)
next

Thanks alot, but both of your solutions split the string at the first
space(" ").
Is it possible to split at the first apperence of a number.. cos
with this solution it would be a problem if the user had typed in
"Kin gsroad 347". Or am i wrong?

What if the street name contains a number?

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[martin]

>"Bob Barrows" <re******@NOyahoo.SPAMcom> wrote in message

What if the street name contains a number?

Well, in Sweden they dont. But good question.
Is it possible to split a string at first apperence of a number?

/martin

[Roland Hall]

"martin" wrote in message
news:c2*************@ID-69224.news.uni-berlin.de...
: >"Bob Barrows" <re******@NOyahoo.SPAMcom> wrote in message
:
: > What if the street name contains a number?
:
: Well, in Sweden they dont. But good question.
: Is it possible to split a string at first apperence of a number?
:
: /martin

Yes, you can do it however you want but you need to have a little
consistency.
Is there a limit on the number of digits?
Do you not want to allow any spaces except between name and number?
What if you had this? Kings Road 3 4 7
Or this? 347 Kingsroad, 347 kings road, 347 KiNGS-RoaD

You could correct this with regular expressions and with using the replace
function but I wouldn't it be easier to require the user to know how to type
in their correct address? In other words, if you are expecting only 1
space, I'd first check to see if there is more than one and if so, return it
back to the user and tell them try again.
Perhaps if you can tell us the known requirements, it would help to devise
something usable.
We need to know what you expect, what you will accept, what the boundaries
are and the order you'd like to have them.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Don Verhagen]

"Roland Hall" <nobody@nowhere> wrote in message
news:et**************@tk2msftngp13.phx.gbl...

"martin" wrote in message
news:c2*************@ID-69224.news.uni-berlin.de...
: >"Bob Barrows" <re******@NOyahoo.SPAMcom> wrote in message
:
: > What if the street name contains a number?
:
: Well, in Sweden they dont. But good question.
: Is it possible to split a string at first apperence of a number?
:
: /martin

Yes, you can do it however you want but you need to have a little
consistency.
Is there a limit on the number of digits?
Do you not want to allow any spaces except between name and number?
What if you had this? Kings Road 3 4 7
Or this? 347 Kingsroad, 347 kings road, 347 KiNGS-RoaD

You could correct this with regular expressions and with using the replace
function but I wouldn't it be easier to require the user to know how to type in their correct address? In other words, if you are expecting only 1
space, I'd first check to see if there is more than one and if so, return it back to the user and tell them try again.
Perhaps if you can tell us the known requirements, it would help to devise
something usable.
We need to know what you expect, what you will accept, what the boundaries
are and the order you'd like to have them.
If this is data you are requesting then ask for it in seperate form fields
otherwise there are tons of data cleansing methods.

Example:

House Number: 347
Street: Kingsroad
Suite/Apt/Unit: 123

Don Verhagen
--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp MSDN Library - http://msdn.microsoft.com/library/default.asp

[Vilmar Brazão de Oliveira]

Hi,
In the time of keep away the datas in your database you can put some
especial signs in the end of your address like:
==|== (2 equals signs, one pipe sign and 2 equals signs), for example,
I believe that there is not this kind of signs in any street address of any
part of the world.
So you can always split the address using these special signs:
dim myString, myArray
myString = "Kingsroad 347"
myArray = Split(myString, "==|==")
Response.Write(myArray(0)) '---- Kingsroad
Response.Write(myArray(1)) '---- 347

Hope this help.
--

Sem mais,

««««««««»»»»»»»»»»»»»»
Vlmar Brazão de Oliveira
Desenvolvimento Web
HI-TEC

"Roland Hall" <nobody@nowhere> escreveu na mensagem
news:#G**************@tk2msftngp13.phx.gbl...

"martin" wrote:
: Hi, a very newbie question. How do I split the adress and number to 2
: variables?
: ex. "Kingsroad 347" = variabel1 = "Kingsroad" variabel2 = "347"
:
: Ill guess i have to search the string from left to right after first
: apperence of a number, but how do i do that?

dim myString, myArray
myString = "Kingsroad 347"
myArray = Split(myString, " ")
Response.Write(myArray(0)) '---- Kingsroad
Response.Write(myArray(1)) '---- 347

or

dim myString, myArray, i
myString = "Kingsroad 347"
myArray = Split(myString, " ")
for i = lbound(myArray) to ubound(myArray)
Response.Write(myArray(i) & "<br />" & vbCrLf)
next

HTH...

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp MSDN Library - http://msdn.microsoft.com/library/default.asp

[Roland Hall]

"Don Verhagen" wrote:
: If this is data you are requesting then ask for it in seperate form fields
: otherwise there are tons of data cleansing methods.
:
: Example:
:
: House Number: 347
: Street: Kingsroad
: Suite/Apt/Unit: 123

Good idea Don. That would cut down on the confusion and testing.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Bob Barrows [MVP]]

martin wrote:

"Bob Barrows" <re******@NOyahoo.SPAMcom> wrote in message

What if the street name contains a number?

Well, in Sweden they dont. But good question.
Is it possible to split a string at first apperence of a number?

/martin

Well, I wanted to play, so here's a non-regex method:

dim sAddress, sNumber, sName, iPos

If Instr('0123456789', left(sAddress,1))>0 then
'number appears first in address
iPos = InStr(sAddress, " ")
sNumber=left(sAddress,iPos-1)
sName=mid(sAddress,iPos + 1)
else
'assume number appears last, preceded with a space, and
' with no following characters
iPos = InStr(sAddress, " ")
sNumber=mid(sAddress,iPos+1)
sName=left(sAddress,iPos - 1)
end if

You can use this as a model for testing for other conditions.

HTH,
Bob Barrows

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.