| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Andy19312
Anmeldungsdatum: 22.10.2005
Beiträge: 428
|
 Verfasst am: 03.10.2006, 14:22 Titel: Zeilenlänge |
 |
|
| Hallo zusammen, könnte mir jemand sagen, wie ich die Zeilenlänge einer Textdatei herausbekomme? |
|
| Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1
|
| Verfasst am: 03.10.2006, 14:28 Titel: |
|
|
Hi. 
Direkt einen Befehl dafür gibt's nicht, aber du kannst dir selbst eine Funktion dafür schreiben:
| Code: |
Function WievieleZeilen (FileName$)
FFNR=FreeFile ' freien Datei-Slot finden
Open FileName$ For Input As #FFNR
Do While Not Eof (FFNR) ' Solange Dateiende noch nicht erreicht...
Line Input #FFNR, temp$ ' ...Zeile einlesen...
counter=counter+1 ' ...und Counter erhöhen
Loop
Close #1
WievieleZeilen=counter
End Function
|
Es sollte aber eine Textdatei sein, die du öffnen willst, sonst kann's schnell zu einem String-Fehler kommen!
Aufruf einfach mittels
| Code: |
Print WievieleZeilen("c:\autoexec.bat")
|
um zum Beispiel die Länge der AutoExec.bat 'rauszubekommen.
Greets,
Mao
_________________
Eine handvoll Glück reicht nie für zwei.
--
 |
|
| Nach oben |
|
|
Andy19312
Anmeldungsdatum: 22.10.2005
Beiträge: 428
|
| Verfasst am: 03.10.2006, 15:06 Titel: |
|
|
Wie anstatt:
Print WievieleZeilen("c:\autoexec.bat")
eine Variabele definieren |
|
| Nach oben |
|
|
Mao
Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1
|
| Verfasst am: 03.10.2006, 15:09 Titel: |
|
|
Wie meinst du das?
Kannst du das mal bitte ein bisschen deutliche formulieren? 
Wenn du den Wert in einer Variable haben möchtest:
| Code: |
anzahl=WievieleZeilen("c:\auotexec.bat")
|
Wenn der Dateiname variabel sein soll:
| Code: |
Input "Wie lautet der Dateiname"; dateiname$
anzahl=WievieleZeilen(dateiname$)
|
_________________
Eine handvoll Glück reicht nie für zwei.
--
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
