Løkke fejler pga. komma

Du bliver nødt til at vise hvordan du læser det ind

Open strFilSti For Input As #1
Do Until EOF(1)
    Input #1, strLinje
    intNr = intNr + 1
    Debug.Print intNr & ": " & strLinje
   
Loop

Close #1

End Sub

Ja det er fordi Input #1,.. kan køre med komma opdeling.. så skal du over i binary læsning..


Private Sub Form_Load()
Dim i As Long
Dim intFree As Integer
Dim arrLine() As String
Dim strFilSti As String

  strFilSti = "C:\filename.txt"
  intFree = FreeFile
  Open strFilSti For Binary Access Read As #intFree
    strData = Space$(EOF(intFree))
    Get #intFree, 1, strData
  Close #intFree
 
  arrLine = Split(strData, vbCrLf)
  For i = LBound(arrLine) To UBound(arrLine)
    Debug.Print i & ": " & arrLine(i)
  Next
End Sub

mangler lige Dim strData as string ;)

Open strFilSti For Input As #1
Do Until EOF(1)
  Line Input #1, strLinje 'RETTET
    intNr = intNr + 1
    Debug.Print intNr & ": " & strLinje
   
Loop

Close #1

kan det ikke gøre det

kabbak jo du har ret :D

>>kabbak
Den er lige i øjet - smid et svar.

>>sjh
Jeg har ikke prøvet din løsning men jeg er sikker på at den virker :-).
Alligevel tildeler jeg kabbak pointene da hans løsning er så enkel - håber det er ok.

Tak for hjælpen til begge.

et svar ;-))

Det er helt Ok, det er også den bedste måde at gøre det på :D

:-)