Readline - 4.sidste linje

Åben filen
Indlæs linie for linie, mens en counter tæller op
Luk filen
Åben filen
læs linie for linie til counter - 4
gem den aktuelle inien
Luk filen


Eller

Åbn filen
Læs filen linie for linie, og smid hver linie ind i en plads i et array
Luk filen
4. sidste linie ligger i ArrayNavn(Ubound-4)

Ad 1)

Dim Linie as String
Dim Tæller as Long
Dim i as Long
Open "C:\test.txt" For Input As #1
While not EOF(#1)
  Line Input #1, Linie
Wend
Close #1

Open "C:\test.txt" For Input As #1
For i = 1 to Tæller-4
  Line Input #1, Linie
  i = i+1
Next i
Close #1
MsgBox "4. sidste linie er " & Linie






Ad 2

Dim MitArray() As String
Dim i as Long
Open "C:\test.txt" For Input As #1
While not EOF(#1)
  Line Input #1, MitArray(i)
  i= i+1
Wend
Close #1
MsgBox "4. sidste linie er " & MitArray(UBound(Mitarray)-4)

Måske mere elegant:

Erstat

  MsgBox "4. sidste linie er " & MitArray(UBound(Mitarray)-4)

med

  MsgBox "4. sidste linie er " & MitArray(i-4)

Gider ikke lige lure om der skal stå -4 eller -5 eller -3 - prøv selv :o)

Du kan også gøre sådan:


Private Sub Form_Load()
Dim ArrTmp(4) As String  'Array fra 0 til 4 (5) da sidste linje kan være tom
Dim ArrLine(3) As String 'Array fra 0 til 3 (4) til de 4 linjer
Dim strLine As String
Dim intFree As Integer
Dim i As Long
Dim j As Long

  intFree = FreeFile
  Open "C:\Test.txt" For Input As #intFree
    While Not EOF(intFree)
      Line Input #intFree, ArrTmp(i Mod 4): i = i + 1
    Wend
  Close #intFree

  For j = 3 To 0 Step -1
    ArrLine(j) = ArrTmp((j + i) Mod 4)
  Next j

  'Her kommer de 4 linjer ud.. "0 er linje 1" og "3 er linje 4"
  For i = 0 To 3
    strLine = ArrLine(i)
    'Hvis der kun er 2 linjer i din file, så må der være 2 linjer som er tomme
    If strLine <> "" Then
      'Her skriver den linje "i" ud..
      MsgBox strLine
    End If
  Next i
End Sub

Jeg skylder måske at sige, at det er ifb. med noget WSH, at jeg vil bruge det. Ved ikke om ovenstående (fra martin_moth) kan lade sig gøre der?

Hvis jeg bruger 2) får jeg følgende fejl:

linje 3, tegn 16: slut på sætning var ventet.

linje 3 er: Dim MitArray() As String

WSH..?

Windows-script. Dvs. en .vbs-fil som jeg afvikler i Windows vha. cscript.exe

Så drop arrayløsningen hvis man ikke kan erklære et dynamsik array i VBS (som jeg ikke lige har rodet med)

Og ja, det er altid en god ide at skrive hvad ens spørgsmål går ud på nogenlunde fyldestgørende - det gør det jo lidt lettere at hjælpe (selvom jeg nu havde gives samme svar alligevel ;o)

Eller brug løsningen fra shj - han bruger statiske arrays, måske går det bedre. Løsning 1 (den helt uden arrays) er jeg dog ret sikker på virker :o)

Det kan godt være, at alle 3 løsninger virker. Men lige nu har jeg generelt problemer ifb. med Dim-linjerne.

Jeg får konsekvent fejlen: 'Slut på sætning var ventet' hver gang der dimmes noget.

Skal der ; efter hver linie i vbs?

Eller kan vbs ikke håndterer typebestemte variabler (prøv at drop " As ..." )

En anden gang skal du nok prøve i www.eksperten.dk/kat/297

'------------------------ Test.vbs ------------------------
Dim ArrTmp(4), ArrLine(3), objFSO, objFile, strPath, strLine, i, j

  strPath = "D:\SYSTEM\Skrivebord\Dato_2000_2030.txt"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(strPath, 1)
 
    Do While Not objFile.AtEndOfStream
      ArrTmp(i Mod 4) = objFile.ReadLine: i = i + 1
    Loop
    objFile.Close

  Set objFile = Nothing
  Set objFSO = Nothing

  For j = 3 To 0 Step -1
    ArrLine(j) = ArrTmp((j + i) Mod 4)
  Next

  For i = 0 To 3
    strLine = ArrLine(i)
    If strLine <> "" Then
      MsgBox strLine
    End If
  Next
'------------------------ Test.vbs ------------------------

Virker! Takker begge for hjælpen og spreder point lidt.