| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
King-01
gesperrt
Anmeldungsdatum: 26.02.2007
Beiträge: 351
|
 Verfasst am: 06.09.2007, 11:43 Titel: Wie viele Zeilen hat eine textdatei? |
 |
|
Hi,
wie kann man mit FB (0.18 ) herausfinden, wieviele zeile z.B. die datei "text.txt" hat?
_________________
[quote="IRC"](22:41:56)<PMedia>Jojo, hats nen Grund warum wir chatten obwohl du grad neben mir sitzt?
...
(23:00:59)<PMedia>USB war erst als Waffe geplant[/quote] |
|
| Nach oben |
|
 |
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 06.09.2007, 11:45 Titel: |
|
|
die vermutlich einfachste weise waere wohl die txt statt im Editor in die IDE zu laden... da kanst dann gucken ohne selbst zu zaehlen
_________________
 |
|
| Nach oben |
|
|
King-01
gesperrt
Anmeldungsdatum: 26.02.2007
Beiträge: 351
|
| Verfasst am: 06.09.2007, 11:47 Titel: Re: Wie viele Zeilen hat eine textdatei? |
|
|
| King-01 hat Folgendes geschrieben: | | wie kann man mit FB (0.18 ) herausfinden, wieviele zeile z.B. die datei "text.txt" hat? |
edit: die menge der zeilen soll in einer variable gespeichert werden.
_________________
[quote="IRC"](22:41:56)<PMedia>Jojo, hats nen Grund warum wir chatten obwohl du grad neben mir sitzt?
...
(23:00:59)<PMedia>USB war erst als Waffe geplant[/quote] |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 06.09.2007, 11:51 Titel: |
|
|
Ich vermute mal, die einzige Möglichkeit wird sein, die Datei zum Lesen zu öffnen, über LINE INPUT alle Zeilen auszulesen (müssen ja nicht gespeichert werden) und dabei die Anzahl der Zeilen zu zählen.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
King-01
gesperrt
Anmeldungsdatum: 26.02.2007
Beiträge: 351
|
| Verfasst am: 06.09.2007, 11:55 Titel: |
|
|
also mein code sieht jetzt so aus:
| Code: |
open file for input as #1
for i = 1 to rows
line input #1, ln(i)
next |
in der variable "rows" soll jetzt die zeilenanzahl stehen.
Wie mach ich das da.
_________________
[quote="IRC"](22:41:56)<PMedia>Jojo, hats nen Grund warum wir chatten obwohl du grad neben mir sitzt?
...
(23:00:59)<PMedia>USB war erst als Waffe geplant[/quote] |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 06.09.2007, 11:58 Titel: |
|
|
| Code: | Dim as string bla
Dim as UByte Ptr blabla
Open "ttt.txt" for binary as #1
blabla=Allocate(Lof(1)+1)
get #1,,*blabla,Lof(1)
Close #1
bla=*blabla
Dim Count as Integer
Dim Countx as uInteger
Dim Found as Integer
Do
Found=0
If Instr(1+Countx,bla,!"\r\n") Then
Countx=Instr(1+Countx,bla,!"\r\n")+1
Count+=1
Found=1
End If
Loop while Found
?Count
sleep
|
_________________
|
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 06.09.2007, 12:00 Titel: |
|
|
Und warum machst du es dann nicht gleich mit
| Code: | DO WHILE NOT EOF(1)
i += 1
LINE INPUT #1, ln(i)
LOOP |
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 06.09.2007, 12:01 Titel: |
|
|
Warum denn einfach wenns auch kompliziert geht 
_________________
|
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 06.09.2007, 12:02 Titel: |
|
|
Aber zugegeben, deine Methode hat was. 
edit: Zähle lieber nur die \n anstatt der \r\n, dann ist es UNIX-komplatibel
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 06.09.2007, 12:07 Titel: |
|
|
Dafuer ist Deine Methode schon wieder so einfach das ich nichtmal drauf gekommen bin
_________________
|
|
| Nach oben |
|
|
King-01
gesperrt
Anmeldungsdatum: 26.02.2007
Beiträge: 351
|
| Verfasst am: 06.09.2007, 12:07 Titel: |
|
|
ok, danke für eure antworten.
noch schnell ne kleine frage: wie deklariert man nochmal arrays?
_________________
[quote="IRC"](22:41:56)<PMedia>Jojo, hats nen Grund warum wir chatten obwohl du grad neben mir sitzt?
...
(23:00:59)<PMedia>USB war erst als Waffe geplant[/quote] |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 06.09.2007, 12:09 Titel: |
|
|
Die Frage meinst Du jetzt nicht wirklich ernst
Dim meinarray (von to bis[,von to bis[,von to bis]]) as Typ
Also als beispiel ein 1 dimensionales:
| Code: | | Dim MeinArray (0 to 99) as String |
Da hast platz fuer hundert reihen
_________________
|
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 06.09.2007, 12:10 Titel: |
|
|
| Code: | | DIM array(anz) AS DATATYP |
also z. B.
| Code: | | DIM bla(500) AS INTEGER |
oder
| Code: | | DIM bla(12 TO 17) AS INTEGER |
(war so viel Tipparbeit, dass ich langsamer war ...)
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
King-01
gesperrt
Anmeldungsdatum: 26.02.2007
Beiträge: 351
|
| Verfasst am: 06.09.2007, 12:13 Titel: |
|
|
| Eternal_pain hat Folgendes geschrieben: | | Die Frage meinst Du jetzt nicht wirklich ernst |
ich weiß. aber ich hab lange nicht mehr mit arrays gearbeitet. das letzte mal, als ich mit arrays gearbeitet habe, hab ich noch in qb programmiert.
Aber bei mir kommt jetzt ne fehlermeldung: Invalid data types in 'line input #1, ln(i)'. ??? Bei mir ist i integer und ln ist integer.
_________________
[quote="IRC"](22:41:56)<PMedia>Jojo, hats nen Grund warum wir chatten obwohl du grad neben mir sitzt?
...
(23:00:59)<PMedia>USB war erst als Waffe geplant[/quote] |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 06.09.2007, 12:16 Titel: |
|
|
ist klar... weil ln String sein muss... du machst da eine TXT und laedst mit Line Input... wenn da nur zahlen drinne waere, waers ja was anderes... aber so nicht
_________________
|
|
| Nach oben |
|
|
King-01
gesperrt
Anmeldungsdatum: 26.02.2007
Beiträge: 351
|
| Verfasst am: 06.09.2007, 12:17 Titel: |
|
|
ups, danke. habs übersehen 
_________________
[quote="IRC"](22:41:56)<PMedia>Jojo, hats nen Grund warum wir chatten obwohl du grad neben mir sitzt?
...
(23:00:59)<PMedia>USB war erst als Waffe geplant[/quote] |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
