I am passing the value "citystate" into a form. This value is in the format such as "Tustin, CA". I want to be able to parse through the string and pull out two values: city and state. If I limit the user to only two characters for state, I think I'm okay with using the right(string,length) syntax, but how can I pull the rest of the string? I know some languages have a substr() function or something similar. Is there any way to pull out all of a string until the coma? Any ideas? Thanks!
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
parsing through string, looking for coma
- Thread starter striker73
- Start date
you could just get rid of the comma like this.
<HTML>
<HEAD><TITLE></TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub extract()
Dim TheForm, MyVar
TheForm=form1.Text1.value
'Start by trimming leading/trailing spaces
'Now, replace spaces...
Do While InStr(1, TheForm, ","
TheForm = Replace(TheForm, ",", ""
Loop
MyVar = MsgBox ("Here it is without commas " & TheForm)
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>Simple Validation</H3><HR>
<form Name="form1">
<input TYPE="TEXT" name="Text1" SIZE="30">
<input TYPE="button" VALUE="reformat" onClick="extract()">
</form>
</BODY>
</HTML>
I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
<HTML>
<HEAD><TITLE></TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub extract()
Dim TheForm, MyVar
TheForm=form1.Text1.value
'Start by trimming leading/trailing spaces
'Now, replace spaces...
Do While InStr(1, TheForm, ","
TheForm = Replace(TheForm, ",", ""
Loop
MyVar = MsgBox ("Here it is without commas " & TheForm)
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>Simple Validation</H3><HR>
<form Name="form1">
<input TYPE="TEXT" name="Text1" SIZE="30">
<input TYPE="button" VALUE="reformat" onClick="extract()">
</form>
</BODY>
</HTML>
I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
I read your question as you want to split the value on the commma to retrieve the city and state.
The easiest way would be to split the value into an array:
CityState = "Dallas, TX"
tmpArray = Split(CityState,","
City = tmpArray(0)
State = Trim(tmpArray(1))
The easiest way would be to split the value into an array:
CityState = "Dallas, TX"
tmpArray = Split(CityState,","
City = tmpArray(0)
State = Trim(tmpArray(1))
- Thread starter
- #4
how do i delcare the array? I have tried:
Dim TempArray()
Redim TempArray(2)
But I always get an error message (script out of range) when I try to do the following:
temparray = split(citystate,","
city = temparray(0)
state = trim(temparray(1)) [/color.
Dim TempArray()
Redim TempArray(2)
But I always get an error message (script out of range) when I try to do the following:
temparray = split(citystate,","
city = temparray(0)
state = trim(temparray(1)) [/color.
- Thread starter
- #5
how do i delcare the array? I have tried:
Dim TempArray()
Redim TempArray(2)
But I always get an error message (script out of range) when I try to do the following:
temparray = split(citystate,","
city = temparray(0)
state = trim(temparray(1))
Dim TempArray()
Redim TempArray(2)
But I always get an error message (script out of range) when I try to do the following:
temparray = split(citystate,","
city = temparray(0)
state = trim(temparray(1))
JohnYingling
Programmer
Suppose one of your entries is "". Split returns an array with UBound = -1 (Yes, -1).
Try this in case '" or no comma producing UBound=0
Dim tempArray
temparray = split(citystate,","
' Never trust outside data. Bulletproof
Redim Preserve tempArray(1) ' Guarantee 2 entries
city = temparray(0)
state = trim(temparray(1)) Generate Forms/Controls Resizing/Tabbing Class
Compare Code (Text)
Generate Sort Class in VB or VBScript
Try this in case '" or no comma producing UBound=0
Dim tempArray
temparray = split(citystate,","
' Never trust outside data. Bulletproof
Redim Preserve tempArray(1) ' Guarantee 2 entries
city = temparray(0)
state = trim(temparray(1)) Generate Forms/Controls Resizing/Tabbing Class
Compare Code (Text)
Generate Sort Class in VB or VBScript
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question