---
title: "Läsa in för att sedan skriva ut bättre?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89649-läsa-in-för-att-sedan-skriva-ut-bättre"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "medialabs"
published: "2003-11-04T19:28:32.000Z"
updated: "2003-11-05T17:44:02.000Z"
replies: 5
views: 263
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/89649-läsa-in-för-att-sedan-skriva-ut-bättre"
---

# Läsa in för att sedan skriva ut bättre?

## #1 — medialabs, 2003-11-04T19:28Z

Hejsan.

Tänkte använda mig av dshield.org's "altert feeder", i deras exempel så använder som sig av php. Jag skulle behöva nått i ASP som läser in <http://feeds.dshield.org/top10-2.txt> för att sedan presentera detta på ett snyggt sätt, skulle även vilja ha dom numrerade från 1 till 10 om det är möjligt?

Tex:

1\. 2174.255.855   fdf.624.telia.com
2\. 258.28.858       8652.fgsad.ftelia.com
osv..

Tror att man jag måste använda mig av regexp, som jag har dåliga minnen av  :r 

Hoppas att ni kan hjälpa mig  :)

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

## #2 — Sebbe, 2003-11-04T22:25Z

Fattade inte riktigt, men vi kör väl ändå får vi se. ;)

```
<table border="1">
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://feeds.dshield.org/top10-2.txt", False
objHTTP.Send
arrText = Split(objHTTP.ResponseText, Chr(10))
Set objHTTP = Nothing

For i = 0 To UBound(arrText)
  If InStr(arrText(i), vbTab) > 0 Then
    Response.Write("  <tr>" & vbCrLf)
    arrTemp = Split(arrText(i), vbTab)
    Response.Write("    <td>" & i + 1 & ".</td><td>" & arrTemp(0) & "</td><td>" & arrTemp(1) & "&nbsp;</td>" & vbCrLf)
    Response.Write("  </tr>" & vbCrLf)
  End If 
Next
%>
</table>
```

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

## #3 — medialabs, 2003-11-05T13:04Z

> **Sebbe skrev:**
>
> Fattade inte riktigt, men vi kör väl ändå får vi se. ;)
>
>
> ```
> <table border="1">
> <%
> Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
> objHTTP.Open "GET", "http://feeds.dshield.org/top10-2.txt", False
> objHTTP.Send
> arrText = Split(objHTTP.ResponseText, Chr(10))
> Set objHTTP = Nothing
> 
> For i = 0 To UBound(arrText)
>   If InStr(arrText(i), vbTab) > 0 Then
>     Response.Write("  <tr>" & vbCrLf)
>     arrTemp = Split(arrText(i), vbTab)
>     Response.Write("    <td>" & i + 1 & ".</td><td>" & arrTemp(0) & "</td><td>" & arrTemp(1) & "&nbsp;</td>" & vbCrLf)
>     Response.Write("  </tr>" & vbCrLf)
>   End If 
> Next
> %>
> </table>
> ```

Exakt så,  Tack så mycket  :)

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

## #4 — medialabs, 2003-11-05T17:36Z

En följdfråga, går det att göra nån kontroll, skulle vilja skriva ut en viss text om inte den kunde ladda in den där filen Tex:

"För tillfället är denna tjänst nere pga. problem med servern. "

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

## #5 — @nders, 2003-11-05T17:39Z

Japp.

Exempel:

```
On Error Resume Next

     ' Här lägger du koden det eventuellt kan bli fel på

If Err.Number <> 0 Then
     ' Någe är paj!
     Response.write "Sorry, snubben! Inte direkt funkis!"
     Err.Clear
End if

On Error Goto 0
```

Mvh

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

## #6 — medialabs, 2003-11-05T17:44Z

> **@nders skrev:**
>
> Japp.
> 
> Exempel:
>
> ```
> On Error Resume Next
> 
>      ' Här lägger du koden det eventuellt kan bli fel på
> 
> If Err.Number <> 0 Then
>      ' Någe är paj!
>      Response.write "Sorry, snubben! Inte direkt funkis!"
>      Err.Clear
> End if
> 
> On Error Goto 0
> ```
>
> Mvh

Tack så mycket, hade helt glömt bort att man kunde använda sig av "On error resume next", (inte ofta man använder den när man leker med asp..)  :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/89649-läsa-in-för-att-sedan-skriva-ut-bättre