---
title: "åäö märkligt! (asp/xml)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14362-åäö-märkligt-asp-xml/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "udden"
published: "2002-02-11T22:47:00.000Z"
updated: "2004-07-31T08:31:12.000Z"
replies: 32
views: 4283
page: 2
pages: 2
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/14362-åäö-märkligt-asp-xml"
---
# åäö märkligt! (asp/xml)
_Sida 2 av 2._
## #21 — K++, 2002-07-23T19:58Z
aha.. Då har jag blandat ihop dig med någon annan.. :)
edit: Blandade ihop dig med en annan duktig programerare; Spango..
Permalänk: https://www.webforum.nu/p/729167
## #22 — spango, 2002-07-23T21:07Z
:r
Permalänk: https://www.webforum.nu/p/729214
## #23 — Erik Juhlin, 2002-07-24T08:26Z
solbulle! Den binära saken du gav mig funkade bra! :)
Tack! :)
Permalänk: https://www.webforum.nu/p/729389
## #24 — Brimba, 2002-07-24T08:42Z
Textdokumentet kanske kan läsas in via fso istället? såhär exempelvis:
```
<%
Response.Clear
Response.CharSet = "ISO-8859-1"
Response.write readFile("mintextfil.txt")
Response.End
function readFile(filename)
Dim fso, ts, f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filename)
Set ts = f.OpenAsTextStream(1,-2)
readFile = ts.ReadALL
set ts = nothing
set f = nothing
set fso = nothing
end function
%>
```
Sedan ropar du bara på din aspfil med en inparameter kanske..
Permalänk: https://www.webforum.nu/p/729399
## #25 — solbulle, 2002-07-24T09:48Z
Hm, det där kan väl inte fungera om sidan ligger på en annan server?
Permalänk: https://www.webforum.nu/p/729436
## #26 — Brimba, 2002-07-24T09:53Z
solbulle, nej, men om man har tillgång till textdokumentet så är det ju inga problem :)
Permalänk: https://www.webforum.nu/p/729443
## #27 — solbulle, 2002-07-24T10:20Z
Jag fattar ändå inte hur jag kan göra så att jag kommer åt en sida över internet med den funktionen. Jag får det inte att fungera!?!
Permalänk: https://www.webforum.nu/p/729466
## #28 — Addeladde, 2003-10-08T00:17Z
> **solbulle skrev:**
>
> Det enda jag kom fram till var en "binär" lösning:
>
>
>
> ```
> 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
> ```
Kan man även läsa in worddukment, pdf, ppt m.m. och få ut texten ur dem?
Permalänk: https://www.webforum.nu/p/1179622
## #29 — Erik Juhlin, 2003-10-08T06:39Z
Du kan läsa dem och få en binär blobb som du sen kan göra lite vad du vill med. T.ex. skicka till användaren.
Permalänk: https://www.webforum.nu/p/1179658
## #30 — Addeladde, 2003-10-08T09:49Z
Japp jag ska luska vidare i det där med binära. Har hittat en kod som kanske kan användas. Postar här när jag har någon färdig kod.
Permalänk: https://www.webforum.nu/p/1179741
## #31 — lilja, 2004-07-30T22:27Z
Hjälp
Jag försöker hämta rubriker ifrån olika nyhetssidor inom orienteringssporten med XMLHTTP och det går rätt hyfsat. Bara dett att jag inte får fram mina åäö. Läste era binär lösningar men får de inte att fungera i min kod då jag bara vill ha vissa delar av en sida. Någon som kan hjälpa mig? Här är i alla fall min kod och jag är övertygad om att svaret finns precis framför näsan på mig...
```
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.orientering.se", False
objHTTP.Send
strHTML = objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = ".*"
Set hittade = objRegExp.Execute(strHTML)
Response.Write "Nyhet 1: " & hittade(O) & "
"
Response.Write "Nyhet 2: " & hittade(1) & "
"
Response.Write "Nyhet 3: " & hittade(2) & "
"
%>
```
Väldigt tacksam för svar...
Permalänk: https://www.webforum.nu/p/1399415
## #32 — solbulle, 2004-07-30T22:45Z
Välkommen till wf!
Det är bara att klistra in funktionen och kalla på den, ingen skillnad på om du bara ska plocka ut bitar av sidan eller inte.
```
<%
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://www.orientering.se", False
objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = ".*"
Set hittade = objRegExp.Execute(strHTML)
Response.Write "Nyhet 1: " & hittade(O) & "
"
Response.Write "Nyhet 2: " & hittade(1) & "
"
Response.Write "Nyhet 3: " & hittade(2) & "
"
%>
```
Permalänk: https://www.webforum.nu/p/1399417
## #33 — lilja, 2004-07-31T08:31Z
Tackar vänligast för välkomnandet och för den fina koden som fungerade. Som ni ser var det kanske lite väl sent igår men jag ville ju ha scriptet att fungera. :l Borde dock ha lagt mig så jag kunde lösa det pigg i huvudet. ;)
Permalänk: https://www.webforum.nu/p/1399500
---
Tråden på webben: https://www.webforum.nu/amne/asp/14362-åäö-märkligt-asp-xml/page2
Föregående sida: https://www.webforum.nu/amne/asp/14362-åäö-märkligt-asp-xml.md