---
title: "Extrahera information ur en textsträng!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107252-extrahera-information-ur-en-textsträng"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "lillebror"
published: "2004-07-13T14:13:45.000Z"
updated: "2004-07-13T14:42:01.000Z"
replies: 1
views: 289
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/107252-extrahera-information-ur-en-textsträng"
---

# Extrahera information ur en textsträng!

## #1 — lillebror, 2004-07-13T14:13Z

Jag har en funktion där jag ska ladda hem aktuellt väder från Luftfartsverkets hemsida för olika flygplatser.

Informationen jag får ser ut på följande sätt och är lagrad i en textfil. Denna textfil vill jag läsa och lägga in i en databas.

Det hoppas någon kan svara på är hur jag med en funktion kan särkilja dessa block som finns på varje rad så att funktionen läser en rad tills den stöter på ett "=". Därefter skall den börja läsa på nästa rad och så vidare.

Nedan är ett exempel på hur en textsträngar med väderinfo kan se ut för en viss flygplats...

**ESDF 131350Z 23008KT 9999 FEW023 SCT030 BKN034 18/12 Q1002=

ESGG 131350Z 23010KT 9999 SCT015 BKN025 16/11 Q1002=**

 :)

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

## #2 — Engine^, 2004-07-13T14:42Z

Jag skulle läsa in all text till en sträng och sedan använda mig av [Split()](http://www.devguru.com/Technologies/vbscript/quickref/split.html) för att dela upp strängen i en array.

Om det är text efter = skulle jag använda mig av RegExp också.

```
Sub StoreWeatherInfo(strFromFile)
  Set objRX = New RegExp

  objRX.Global = True
  objRX.IgnoreCase = True
  objRX.Pattern = "(.*=).*\n"

  strFromFile = objRX.Replace(strFromFile, "$1")

  astrInfo = Split(strFromFile, "=")

  For i = 0 To UBound(astrInfo) - 1
    strSql = "INSERT INTO tblWeather (strInfo) VALUES ('" & astrInfo(i) & "')"

    objConn.Execute strSql, , 128
  Next
End Sub

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("X:\weather.txt", 1)

StoreWeatherInfo(objFile.ReadAll)

objFile.Close
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107252-extrahera-information-ur-en-textsträng