---
title: "hämta från en textfil till en array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/161511-hämta-från-en-textfil-till-en-array"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Vinnaren"
published: "2007-06-14T16:33:45.000Z"
updated: "2007-06-15T15:21:34.000Z"
replies: 4
views: 473
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/dotnet/161511-hämta-från-en-textfil-till-en-array"
---

# hämta från en textfil till en array

## #1 — Vinnaren, 2007-06-14T16:33Z

Hej

Jag behöver lite hjälp med vb.net. Jag har hittills följande kod:

```
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim s As String
        Dim i As Integer
        Dim sr As IO.StreamReader
        Dim arr1(9) As Single
        Dim arr2(9) As Single
        Dim arr3(9) As Single

        sr = IO.File.OpenText("fil.txt")

    End Sub
```

 

Jag vill att i arrayen arr1 ska de tio första talen hamna som finns i textfilen, men hur gör jag för att få det att fungera?

Tacksam för all hjälp   :stud

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

## #2 — renholm, 2007-06-15T10:23Z

Hur är textfilen formaterad?

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

## #3 — Vinnaren, 2007-06-15T11:16Z

det står bara

1
2
3
4

osv. till 10   :r

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

## #4 — renholm, 2007-06-15T12:22Z

Är rätt dålig på VB.NET men borde bli något liknande det här:

```
For i = 0 To 9
arr1(i) = Single.Parse(sr.ReadLine())
Next i
sr.Close();
```

Koden förutsätter att textfilen inte innehåller färre än 10 rader samt att dessa är siffror.

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

## #5 — Vinnaren, 2007-06-15T15:21Z

tack. har nu följande kod:

```
             Dim i As Integer
        Dim sr As IO.StreamReader
        Dim sw As IO.StreamWriter
        Dim arr1(9) As String
        Dim arr2(9) As String
        Dim arr3(9) As String

        'Skapar filen så den hamnar rätt
        sw = IO.File.CreateText("fil.txt")

        With sw
            .WriteLine("1")
            .WriteLine("2")
            .WriteLine("3")
            .WriteLine("4")
            .WriteLine("5")
            .WriteLine("6")
            .WriteLine("7")
            .WriteLine("8")
            .WriteLine("9")
            .WriteLine("10")
            .Close()
        End With
        sw.Close()

        sr = IO.File.OpenText("fil.txt")

        For i = 0 To 9
            arr1(i) = sr.ReadLine()
        Next i

        sr.Close()

        sr = IO.File.OpenText("fil.txt")

        For i = 9 To 0 Step -1
            arr2(i) = sr.ReadLine()
        Next

        sr.Close()

        For i = 0 To 9 Step 1
            arr3(i) = ((CLng(arr2(i)) + CLng(arr1(i))) / 2)
        Next

        lib1.Items.AddRange(arr1)
        lib2.Items.AddRange(arr2)
        lib3.Items.AddRange(arr3)

    End Sub
```

 

Kan man göra på nott sätt att man slipper öppna textfilen en gång till när man ska loopa igenom raderna en andra gång?

Tacksam för all hjälp  :stud

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/161511-hämta-från-en-textfil-till-en-array