title image


Smiley Re: Do until EOF ? (in VB6)
Besser so, weil irgendein bestimmter/fixer Kanal nicht unbedingt frei ist:



Dim Zeichen As String, f as Integer

f=FreeFile

Open "Test.txt" For Input As #f

Do While Not EOF(f)

Input #f, Zeichen

Loop

Close #f




Gruss Uwe
Wenn weise Maenner nicht irrten, müssten die Narren verzweifeln. (Goethe)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: