Új hozzászólás Aktív témák

• #33024 lenkei83 tag Pakliman #33022

  Új Válasz 2016-10-20 14:19:43 #33024

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lenkei83

  tag

  válasz Pakliman #33022 üzenetére

  Vagyis így kellene kinézni?

  Dim LineofText As String
Dim rw As Long
rw = 0
Seek #xx, 1
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
MsgBox rw

Close #xx

Új hozzászólás Aktív témák