title image


Smiley Z. B. so...
Dim datei As String

Dim ff As Integer

Dim zeile As String

Dim arr() As String

Dim i As Integer



datei = "L:\entw\cad\dimension.txt"



ff = FreeFile()



Open datei For Input As ff

Do While Not EOF(ff)

Line Input #ff, zeile

i = i + 1

ReDim Preserve arr(i - 1)

arr(i - 1) = zeile

Loop

Close ff



ff = FreeFile()



Open datei For Output As ff

For i = 0 To UBound(arr()) - 5

Print #ff, arr(i)

Next

Close ff



MsgBox "Fertig!"

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: