---
title: "Läsa från en fil."
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/120848-läsa-från-en-fil"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "RanXeroX"
published: "2005-01-24T09:51:15.000Z"
updated: "2005-01-25T08:50:14.000Z"
replies: 1
views: 347
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/120848-läsa-från-en-fil"
---

# Läsa från en fil.

## #1 — RanXeroX, 2005-01-24T09:51Z

Hej på er.

Jag är ute efter en liten funktion.

Om jag skapar 5 st rader i en textfil som heter t.ex test.txt.

1
2
3
4
5

Om jag nu vill att varje rad ska köras i en if sats, t.ex att det ska skickas ett meddelande till skärmen, om if satsen är lika med 4. Hmm undrar om ni fattar vad jag försöker förmedla.

Vill hämra rad för rad i en variabel för att sedan jämföra innehållet i en if sats.

// Micke

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

## #2 — xrobx, 2005-01-25T08:50Z

Så här någonting:

```
    Dim MinArray() As String
    Dim i As Integer

    'Öppna och lagra samtliga rader från filen i en array-variabel.
    Open "C:\testfil.txt" For Input As 1#
        Do While Not EOF(1)
            ReDim Preserve MinArray(i)
            Input #1, MinArray(i)
            i = i + 1
        Loop
    Close 1#
    
    
    'Kolla varje rad i variabeln...
    'Om det står 4, via en MsgBox
    For i = 0 To UBound(MinArray)
        If MinArray(i) = 4 Then
            MsgBox "Nu träffade du på 4'an :)"
        End If
    Next i
```

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/120848-läsa-från-en-fil