---
title: "Dela upp och lägga in!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70645-dela-upp-och-lägga-in"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fredrik99"
published: "2003-03-10T16:20:15.000Z"
updated: "2003-03-12T10:17:09.000Z"
replies: 13
views: 369
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/70645-dela-upp-och-lägga-in"
---

# Dela upp och lägga in!

## #1 — fredrik99, 2003-03-10T16:20Z

Via microsoft XMLHTTP hämtar jag hem en html-kod, som läggs ner till en vanlig textfil. I den här html-koden finns det information som jag vill lägga in i en databas. Vilket är det enklaste och snabbaste sättet att sortera ut informationen som jag vill åt, och hur skall jag gå tillväga? :e

Permalänk: https://www.webforum.nu/p/70645

## #2 — solbulle, 2003-03-10T16:23Z

[XMLHTTP och RegExp](http://www.webforum.nu/search.php?s=&action=showresults&searchid=209326&sortby=lastpost&sortorder=descending) 

[XMLHTTP](http://www.webforum.nu/search.php?s=&action=showresults&searchid=209324&sortby=lastpost&sortorder=descending)

Permalänk: https://www.webforum.nu/p/974814

## #3 — fredrik99, 2003-03-10T21:57Z

OK! :e

Jag har kollat runt lite, och fixat lite, men det vill inte funka :(

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", http, False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = False
objRegExp.IgnoreCase = True
objRegExp.Pattern = "<TABLE BORDER=""0"" cellpadding=""1"" cellspacing=""0"" width=""568"" ID=""Table4"">(.*?)</TABLE>"
Set myMatches = objRegExp.Execute( strHTML )
For each item in myMatches
Response.Write item.value 
Next
```

Med den koden får jag endast en blank skärm :(

Hämtar information från bifogad fil (plockat bort oviktiga rader)!
<http://member.webforum.nu/447/om.txt>

Permalänk: https://www.webforum.nu/p/975085

## #4 — fredrik99, 2003-03-11T13:14Z

Ingen som vet?  :l

Permalänk: https://www.webforum.nu/p/975454

## #5 — fredrik99, 2003-03-11T17:13Z

Sådär ja :e

Nu är filen nerbantad ganska mycket :) (bifogad fil)
Hur skall jag gå tillväga för att föra in informationen i databasen? (rätt information i rätt fält ovs)

Fältexempel:
plac;klass;namn;klubb;poäng;upp/ner

Bilagor:

- [ny.txt](https://www.webforum.nu/a/1147.txt)

Permalänk: https://www.webforum.nu/p/975685

## #6 — solbulle, 2003-03-11T17:42Z

Hur ser koden ut hittils?

Permalänk: https://www.webforum.nu/p/975702

## #7 — Nickemannen, 2003-03-11T17:50Z

Om du gör såhär så får man ju ut hejsan hoppsan.

Kolla att du verkligen får något med XMLHTTP

\<%
strHTML = "\<TABLE BORDER=""0"" cellpadding=""1"" cellspacing=""0"" width=""568"" ID=""Table4""\>Hejdsan hoppsan\</TABLE\>"
Set objRegExp = New regexp
objRegExp.Global = False
objRegExp.IgnoreCase = True
objRegExp.Pattern = "\<TABLE BORDER=""0"" cellpadding=""1"" cellspacing=""0"" width=""568"" ID=""Table4""\>(.\*?)\</TABLE\>"
Set myMatches = objRegExp.Execute( strHTML )
For each item in myMatches
Response.Write item.value 
Next
%\>

Permalänk: https://www.webforum.nu/p/975708

## #8 — solbulle, 2003-03-11T17:54Z

Om du nu kör ut det du visar med "For each.." Hur ser då varje bit ut som skrivs ut?
Det du måste hitta är ett mönster att gå efter, typ att namnet kommer alltid si och så många tecken in i strängen osv.

Permalänk: https://www.webforum.nu/p/975713

## #9 — fredrik99, 2003-03-11T18:02Z

Nickemannen \>\> Jag får ut 'Hejdsan hoppsan' utan några problem :)

Permalänk: https://www.webforum.nu/p/975718

## #10 — fredrik99, 2003-03-11T18:08Z

Slänger in den "fina" koden också :e Har säkert gjort det mer komplicerat än vad det är :)

```
<%
function BinToText(varBinData, intDataSizeInBytes)
const adFldLong = 128
const adVarChar = 200
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk(varBinData)
tmp = objRS("txt").Value
objRS.Close
BinToText = tmp
end function

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://127.0.0.1/om.txt", False
objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing

Set objRegExp = New regexp 
objRegExp.Global = False 
objRegExp.IgnoreCase = True 
objRegExp.Pattern = "<TABLE BORDER=""0"" cellpadding=""1"" cellspacing=""0"" width=""568"" ID=""Table4"">(.*?)</TABLE>" 
Set myMatches = objRegExp.Execute( strHTML1 ) 
For each item in myMatches 
strhtmls = item.value 
Next

strReplace = ""
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<TABLE BORDER=""0"" cellpadding=""1"" cellspacing=""0"" width=""568"" ID=""Table4"">"
replacestring = objRegExp.Replace(strHTMLs, strReplace)
Set objRegExp = Nothing

strHTML1 = replacestring
strReplace1 = ""
Set objRegExp1 = New regexp
objRegExp1.Global = true
objRegExp1.IgnoreCase = true
objRegExp1.Pattern = "<tr(.*)>"
replacestring1 = objRegExp1.Replace(strHTML1, strReplace1)
Set objRegExp1 = Nothing

strHTML2 = replacestring1
strReplace2 = ""
Set objRegExp2 = New regexp
objRegExp2.Global = true
objRegExp2.IgnoreCase = true
objRegExp2.Pattern = "</tr(.*)>"
replacestring2 = objRegExp2.Replace(strHTML2, strReplace2)
Set objRegExp2 = Nothing

strHTML3 = replacestring2
strReplace3 = ""
Set objRegExp3 = New regexp
objRegExp3.Global = true
objRegExp3.IgnoreCase = true
objRegExp3.Pattern = "<td(.?)>"
replacestring3 = objRegExp3.Replace(strHTML3, strReplace3)
Set objRegExp3 = Nothing

strHTML4 = replacestring3
strReplace4 = ";"
Set objRegExp4 = New regexp
objRegExp4.Global = true
objRegExp4.IgnoreCase = true
objRegExp4.Pattern = "</td>"
replacestring4 = objRegExp4.Replace(strHTML4, strReplace4)
Set objRegExp4 = Nothing

str=replacestring4
set r = new regexp
r.ignorecase = true
r.global = true
r.pattern = "<a.*?>(.*?)<\/a>" 
replacestring5 = r.replace(str, "$1")

strHTML6 = replacestring5
strReplace6 = ";"
Set objRegExp6 = New regexp
objRegExp6.Global = true
objRegExp6.IgnoreCase = true
objRegExp6.Pattern = "<IMG SRC=(.*)"
replacestring6 = objRegExp6.Replace(strHTML6, strReplace6)
Set objRegExp6 = Nothing

strHTML7 = replacestring6
strReplace7 = ""
Set objRegExp7 = New regexp
objRegExp7.Global = true
objRegExp7.IgnoreCase = true
objRegExp7.Pattern = "</FONT>"
replacestring7 = objRegExp7.Replace(strHTML7, strReplace7)
Set objRegExp7 = Nothing

strHTML8 = replacestring7
strReplace8 = ""
Set objRegExp8 = New regexp
objRegExp8.Global = true
objRegExp8.IgnoreCase = true
objRegExp8.Pattern = "<TD Class(.*)"
replacestring8 = objRegExp8.Replace(strHTML8, strReplace8)
Set objRegExp8 = Nothing

strHTML9 = replacestring8
strReplace9 = ""
Set objRegExp9 = New regexp
objRegExp9.Global = true
objRegExp9.IgnoreCase = true
objRegExp9.Pattern = "</table>"
replacestring9 = objRegExp9.Replace(strHTML9, strReplace9)
Set objRegExp9 = Nothing

'response.write replacestring9

%>
```

Permalänk: https://www.webforum.nu/p/975725

## #11 — Nickemannen, 2003-03-11T18:13Z

Testa att skriv ut det svaret du får från din server och se om det kommer något överhuvud taget till din sträng.

Permalänk: https://www.webforum.nu/p/975727

## #12 — fredrik99, 2003-03-11T18:17Z

Kolla min bifogade fil :)

<http://www.webforum.nu/attachment.php?s=&postid=578784>

Permalänk: https://www.webforum.nu/p/975730

## #13 — fredrik99, 2003-03-11T22:39Z

Jag har beskärigt koden manuellt så att det bara var koden mellan \<tabel\> … \</table\> därefter fixade scriptet resten.

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", http, False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = False
objRegExp.IgnoreCase = True
objRegExp.Pattern = "<TABLE BORDER=""0"" cellpadding=""1"" cellspacing=""0"" width=""568"" ID=""Table4"">(.*?)</TABLE>"
Set myMatches = objRegExp.Execute( strHTML )
For each item in myMatches
Response.Write item.value 
Next
```

 

Den kod-biten funkar fortfarande inte som den ska :( Den skriver inte ut något i item.value.

Permalänk: https://www.webforum.nu/p/975944

## #14 — fredrik99, 2003-03-12T10:17Z

Kanske enklare om jag skriver så här :)

Jag vill ta bort ALLT före

```
rad: 307 <TABLE id="Table4" cellSpacing="0" cellPadding="1" width="568" border="0">
```

och allt efter 

```
rad: 447 </table>
```

I den bifogade filen ...  :l

Bilagor:

- [v.txt](https://www.webforum.nu/a/1152.txt)

Permalänk: https://www.webforum.nu/p/976161

---

Tråden på webben: https://www.webforum.nu/amne/asp/70645-dela-upp-och-lägga-in