---
title: "hjälp med ett pattern"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/158574-hjälp-med-ett-pattern"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "calson"
published: "2007-03-25T17:51:15.000Z"
updated: "2007-03-26T15:47:03.000Z"
replies: 3
views: 322
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/158574-hjälp-med-ett-pattern"
---

# hjälp med ett pattern

## #1 — calson, 2007-03-25T17:51Z

Hej jag vill hämta ut information från en textfil där text eller siffer raderna är uppdelade med 5-30 st blankslag (varierande)

Det jag vill göra är att hämta ut all information mellan blankslagen och spara i variablar

Ex: auysjhsd_________assdjaskdjh_____10__________________432____lkjasdasd

Där \_ = blankslag (space)

Variabel1 = auysjhsd
Variabel2 = assdjaskdjh
Variabel3 = 10
Variabel4 = 432
Variabel5 = lkjasdasd

Någon som kan hjälpa och förklara hur jag skapar ett passande pattern?

tack på förhand

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

## #2 — emission, 2007-03-25T18:34Z

Är det så att värdena ligger på fasta positioner?

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

## #3 — voigtann1, 2007-03-26T11:22Z

```
Function p(text)
  Set objRegExp = New regexp
  objRegExp.Global = true

  objRegExp.Pattern = "\s+"
  text = objRegExp.Replace(text,";")
  p= split(text,";")
end function

dim str()
st = p("auysjhsd           assdjaskdjh       10          432           lkjasdasd")

st(0) 'ger auysjhsd
st(1) 'ger assdjaskdjh
st(2) 'ger 10
st(3) 'ger 432
st(4) 'ger lkjasdasd
```

(Ej testad och inte direkt snyggt eller optimerat :))

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

## #4 — Troxy, 2007-03-26T15:47Z

Här är en annan Regexp-variant som är lite mer strikt:

```
sInput = "auysjhsd           assdjaskdjh       10          432           lkjasdasd"

Set oRegExp = New RegExp
oRegExp.Pattern = "^(\w+)\s+(\w+)\s+(\w+)\s+(\w+)\s+(\w+)$"
If oRegExp.Test(sInput) Then
	Set oSubMatches = oRegExp.Execute(sInput).Item(0).SubMatches
	sMatch1 = oSubMatches(0)
	sMatch2 = oSubMatches(1)
	sMatch3 = oSubMatches(2)
	sMatch4 = oSubMatches(3)
	sMatch5 = oSubMatches(4)
	Set oSubMatches = Nothing
End if
Set oRegExp = Nothing
```

Jag har testkört den och fick följande resultat:

```
sMatch1 = auysjhsd
sMatch2 = assdjaskdjh
sMatch3 = 10
sMatch4 = 432
sMatch5 = lkjasdasd
```

Hoppas du får det att fungera!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/158574-hjälp-med-ett-pattern