Hello,
I use XMLHTTP to get an HTML of another page. Then, I need to cut some
middle part of that HTML string but I have problems doing it (see note
in caps below). The error I have generated at response.write (because
it does not split) is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/get_item.asp, line 55
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10, False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!--item code separator-->") 'THIS DOES NOT
SPLIT
response.write HTMLArr(1)
dim PureHTML : PureHTML = FullHTML 'HTMLArr(1)
Please, suggest. 10 5513
<vu******@gmail .comwrote in message
news:11******** *************@h 3g2000cwc.googl egroups.com...
Hello,
I use XMLHTTP to get an HTML of another page. Then, I need to cut some
middle part of that HTML string but I have problems doing it (see note
in caps below). The error I have generated at response.write (because
it does not split) is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/get_item.asp, line 55
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10, False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!--item code separator-->") 'THIS DOES NOT
SPLIT
response.write HTMLArr(1)
dim PureHTML : PureHTML = FullHTML 'HTMLArr(1)
Are you trying to split on a string?
Your example shows this:
"<!--item code separator-->"
The delimiter in Split() is only one character?
Syntax
Split(expressio n[, delimiter[, count[, compare]]])
expression -- Required.
delimiter -- Optional.
String character used to identify substring limits.
If omitted, the space character (" ") is assumed to be the
delimiter.
If not then post an example of the string that needs to be split
along with your Split() statement.
How the string is retrieved (as long as it exists) doesn't matter.
wrote on 07 feb 2007 in microsoft.publi c.inetserver.as p.general:
Hello,
I use XMLHTTP to get an HTML of another page. Then, I need to cut some
middle part of that HTML string but I have problems doing it (see note
in caps below). The error I have generated at response.write (because
it does not split) is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/get_item.asp, line 55
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10, False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!--item code separator-->")
'THIS DOES NOT SPLIT
response.write HTMLArr(1)
It should work, test by trial and error:
<script type='text/vbscript'>
a = "aaa<!--item code separator-->bbb"
b = split(a,"<!--item code separator-->")
alert(b(0)) '' aaa
alert(b(1)) '' bbb
</script>
I suspect the string FullHTML does not contain the search string.
Test by:
response.write HTMLArr(0) & "<br>"
response.write HTMLArr(1)
or by:
<script type='text/vbscript'>
a = "aaa<!--item code separator-->bbb"
b = split(a,"<!--item code xxxxxx separator-->")
alert(b(0)) '' aaa<!--item code separator-->bbb
alert(b(1)) '' error
</script>
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)
<vu******@gmail .comwrote in message
news:11******** *************@h 3g2000cwc.googl egroups.com...
Hello,
I use XMLHTTP to get an HTML of another page. Then, I need to cut some
middle part of that HTML string but I have problems doing it (see note
in caps below). The error I have generated at response.write (because
it does not split) is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/get_item.asp, line 55
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10, False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!--item code separator-->") 'THIS DOES NOT
SPLIT
response.write HTMLArr(1)
dim PureHTML : PureHTML = FullHTML 'HTMLArr(1)
Please, suggest.
Evertjan is correct, it should work
try
for each thing in HTMLAr
response.write thing & "<br>"
next
thi should show you what your working with
On Feb 7, 6:48 am, "ThatsIT.com.au " <slim@thatsITwr ote:
<vunet...@gmail .comwrote in message
news:11******** *************@h 3g2000cwc.googl egroups.com...
Hello,
I use XMLHTTP to get an HTML of another page. Then, I need to cut some
middle part of that HTML string but I have problems doing it (see note
in caps below). The error I have generated at response.write (because
it does not split) is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/get_item.asp, line 55
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10, False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!--item code separator-->") 'THIS DOES NOT
SPLIT
response.write HTMLArr(1)
dim PureHTML : PureHTML = FullHTML 'HTMLArr(1)
Please, suggest.
Evertjan is correct, it should work
try
for each thing in HTMLAr
response.write thing & "<br>"
next
thi should show you what your working with
Dear experts!
If this will work:
dim a, b
a = "aaa<!--item code separator-->bbb"
b = split(a,"<!--item code xxxxxx separator-->")
response.write b(0) '' aaa
response.write b(1) '' bbb
this won't:
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10,
False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim a: a= Server.HTMLEnco de(strHTML)
b = split(a,"<!--item code separator-->") 'THIS DOES NOT WORK
response.write b(0) '' aaabbb
response.write b(1) '' error
It must be because of the data type or something I suspect? But
cStr(a) does not help too. Also, there is <!--item code separator-->
in that code, for sure!
Thank you all.
wrote on 07 feb 2007 in microsoft.publi c.inetserver.as p.general:
On Feb 7, 6:48 am, "ThatsIT.com.au " <slim@thatsITwr ote:
><vunet...@gmai l.comwrote in message
[..]
>> Evertjan is correct, it should work
try
for each thing in HTMLAr response.write thing & "<br>" next
thi should show you what your working with
Dear experts!
If this will work:
dim a, b
a = "aaa<!--item code separator-->bbb"
b = split(a,"<!--item code xxxxxx separator-->")
response.write b(0) '' aaa
response.write b(1) '' bbb
this won't:
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://www.site.com/item.asp?id=10,
False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim a: a= Server.HTMLEnco de(strHTML)
b = split(a,"<!--item code separator-->") 'THIS DOES NOT WORK
response.write b(0) '' aaabbb
response.write b(1) '' error
It must be because of the data type or something I suspect? But
cStr(a) does not help too. Also, there is <!--item code separator-->
in that code, for sure!
Thank you all.
You are wrong pointing at in the error line,
because the error text you quoted was:
>Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 1]' /get_item.asp, line 55
being about a nonexistent subscript,
it cannot have been the line with the split()
but it mut have been this line:
> response.write HTMLArr(1)
Conclusion: the split() works OK,
but there is no HTMLArr(1),
so the split did not find the string searched for
and returned an array with only one member.
QED.
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress) vu******@gmail. com wrote:
On Feb 7, 6:48 am, "ThatsIT.com.au " <slim@thatsITwr ote:
Dim a: a= Server.HTMLEnco de(strHTML)
Do this:
Response.Write a
run the page and view source. Do you see <!--item code separator--in
the source?
Or do you see something like this:
<!--item code separator-->
--
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.
On Feb 7, 11:31 am, "Bob Barrows [MVP]" <reb01...@NOyah oo.SPAMcom>
wrote:
vunet...@gmail. com wrote:
On Feb 7, 6:48 am, "ThatsIT.com.au " <slim@thatsITwr ote:
Dim a: a= Server.HTMLEnco de(strHTML)
Do this:
Response.Write a
run the page and view source. Do you see <!--item code separator--in
the source?
Or do you see something like this:
<!--item code separator-->
--
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.
when I do what you say:
HTMLArr = split(FullHTML, "<!--item code separator-->")
I only get:
response.write HTMLArr(0)
and HTMLArr(0) does contain 2 lines of <!--item code separator-->
Just copy and paste this code to ASP page to see it not working, if
you can, and let me know, if possible:
(not, this is a fake example)
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://devguru.com/technologies/
javascript/home.asp", False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write HTMLArr(1)
Thanks vu******@gmail. com wrote:
>
when I do what you say:
HTMLArr = split(FullHTML, "<!--item code separator-->")
I only get:
response.write HTMLArr(0)
and HTMLArr(0) does contain 2 lines of <!--item code separator-->
No no no
response.Write FullHTML. Run the page. View Source. Do you see "<!--item
code separator-->" or "<!--item code separator-->"?
>
Just copy and paste this code to ASP page to see it not working, if
you can, and let me know, if possible:
(not, this is a fake example)
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://devguru.com/technologies/
javascript/home.asp", False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write HTMLArr(1)
OK, I guess I have to lead you by the hand. :-)
After using HTMLEncode, your string no longer contains "<!-- Main
Content Begins -->". It contains "<!-- Main Content Begins -->", a
fact which you can ascertain by writing the string to response, running
the page and viewing source. You either have to do this:
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = strHTML
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write Server.HTMLEnco de(HTMLArr(1))
or this:
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write HTMLArr(1)
--
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.
On Feb 7, 1:26 pm, "Bob Barrows [MVP]" <reb01...@NOyah oo.SPAMcom>
wrote:
vunet...@gmail. com wrote:
when I do what you say:
HTMLArr = split(FullHTML, "<!--item code separator-->")
I only get:
response.write HTMLArr(0)
and HTMLArr(0) does contain 2 lines of <!--item code separator-->
No no no
response.Write FullHTML. Run the page. View Source. Do you see "<!--item
code separator-->" or "<!--item code separator-->"?
Just copy and paste this code to ASP page to see it not working, if
you can, and let me know, if possible:
(not, this is a fake example)
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXmlHttp.open "GET", "http://devguru.com/technologies/
javascript/home.asp", False
objXmlHttp.send
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write HTMLArr(1)
OK, I guess I have to lead you by the hand. :-)
After using HTMLEncode, your string no longer contains "<!-- Main
Content Begins -->". It contains "<!-- Main Content Begins -->", a
fact which you can ascertain by writing the string to response, running
the page and viewing source. You either have to do this:
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = strHTML
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write Server.HTMLEnco de(HTMLArr(1))
or this:
strHTML = objXmlHttp.resp onseText
Dim FullHTML : FullHTML = Server.HTMLEnco de(strHTML)
HTMLArr = split(FullHTML, "<!-- Main Content Begins -->")
response.write HTMLArr(1)
--
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.
oh, I did not know that <!-- will become <!-- during this
encoding... Now I see. Allow me to fix this and I will come back here
with confirmation. Sorry, but within 6 hours from now. Thank you for
leading me by your hand! This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics |
by: Stu Cazzo |
last post by:
I have the following:
String myStringArray;
String myString = "98 99 100";
I want to split up myString and put it into myStringArray.
If I use this:
myStringArray = myString.split(" ");
it will split myString up using the delimiter of 1 space
so that
|
by: Andy Mee |
last post by:
Hello one and all,
I'm developing an Asp.NET system to take a CSV file uploaded via the web,
parse it, and insert the values into an SQL database. My sticking point
comes when I try to split() the string returned by readline() on the file.
The following code snippet works for me:
tokens = "one,two,three,four".Split(",")
for each token in tokens
response.write("<td>"+token+"</td>")
|
by: Varad |
last post by:
I'm trying to break this html statement at the "<!---->"
<br><a href='www.link1.com'>Link1</a><!----><br><a
href='www.link2.com'>Link2</a><!----><br><a
href='www.link3.com'>Link3</a><!---->
If I use string.split command, it splits based on the first "<" in "<!---->"
and not the whole <!---->. It works fine with single delimter like commas,
colons etc.. Is there another way to do this?
|
by: David Logan |
last post by:
We need an additional function in the String class. We need the ability
to suppress empty fields, so that we can more effectively parse. Right
now, multiple whitespace characters create multiple empty strings in the
resulting string array.
|
by: Ben |
last post by:
Hi
I am creating a dynamic function to return a two dimensional array from a
delimeted string.
The delimited string is like:
field1...field2...field3...
field1...field2...field3...
field1...field2...field3...
| |
by: Michele Petrazzo |
last post by:
Hello ng,
I don't understand why split (string split) doesn't work with the same
method if I can't pass values or if I pass a whitespace value:
>>> "".split()
>>> "".split(" ")
But into the doc I see:
|
by: edoardo.poeta |
last post by:
I'm a dummy. I have a basic knowledge of javascript and I want to split
a string, but I receive an error at line 15. Where my error in make the
array? Why? Can someone help me to resolve? Thank's.
The name of file is
E:\delibere test\pdf\2002\2002-01-01-GC-000-Testo.pdf
<HTML>
<HEAD>
<SCRIPT LANGUAGE=JAVASCRIPT>
|
by: Steven D'Aprano |
last post by:
I'm having problems passing a default value to the maxsplit argument of
str.split. I'm trying to write a function which acts as a wrapper to
split, something like this:
def mysplit(S, sep=None, maxsplit=None):
pre_processing()
result = S.split(sep, maxsplit)
post_processing()
return result
|
by: Stevo |
last post by:
If you split a string into an array using the split method, it's not
working the way I'd expect it to. That doesn't mean it's wrong of
course, but would anyone else agree it's working somewhat illogically?
Here's a test I just put together that splits on "&".
The test strings are:
"a&b" = (Correct!) I expect array length 2 and I get 2
"a&" = (Incorrect!) I expect array length 1 but I get 2
"a" = (Correct!) I expect array length 1 and...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| |
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |