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 |
|
 |
|