Jag skall läsa in en stor fil, allt är relativt, just nu är filen bara ca HejInläsning av fil
150 kb.
Problemet är att varje rad är bara avskild med Hex 0A och inte
som brukligt med Hex 0D 0A (Cr Lf), det är en fil som kommer från Unix.
Det är ju inte några problem att läsa in hela rasket och internt ordna upp
det hela. Men min undran är hur stor fil kan man läsa in?
Om det finns någon gräns, hur kan man läsa in bara till Hex 0A?
Line input reagerar ju bara på Cr Lf.
/BoSv: Inläsning av fil
Finns säkert andra sätt att göra det på,här kommer ett exempel.
Option Explicit
Private Sub Command1_Click()
Dim FileNum As Long, tmpStr As String
Dim UnixArray() As String
FileNum = FreeFile
Open "C:\Unix.txt" For Input As #FileNum
tmpStr = Input$(LOF(FileNum), FileNum)
Close #FileNum
UnixArray = Split(tmpStr, Chr$(10))
'Nu kan du stega genom UnixArray med Forsats till Ubound UnixArray
'Övre gänsen är så stor så jag tror inte att du behöver oroa dig.
mvh
Sven