Läsa från en fil.

1 svar · 329 visningar · startad av RanXeroX 24 jan. 2005

RanXeroXMedlem sedan maj 2000829 inlägg

Frågan24 jan. 2005 09:51#1

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

xrobxMedlem sedan mars 2003106 inlägg

25 jan. 2005 08:50#2

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