Das deutsche QBasic- und FreeBASIC-Forum

cacare · Anmeldungsdatum: 24.10.2007 Beiträge: 4 Wohnort: obertshausen

Hallo Jungs,

hatte mich schon vor einigen Tagen hier im chat gemeldet und ein Problem geschildert. Worin ich durch eure Hilfe, schon ein schönes Stück weitergekommen bin.

Allerdings noch ein Problem bleibt. Ich greife aus Qbasic auf eine CSV-Datei zu. In dieser daten giebt es mehrere Felder. Ich lese das ganze wie folgt aus:

For i = 1 to 1000
Input #1, a$(i), b$(i), c$(i) ....
next i

Das ganze funktioniert so lange gut, bis das eines der Felder leer ist (Das ist leider in meiner Datei auch vorhanden, z.b. vom Kunden fehlt die Strasse aber Ort ist da ..).

Dann habe ich ein problem, die ganzen Felder "verutschen". Das fald was leer ist, wir nicht beachtet und auf das nächste Feld zugegriffe und dann automatisch, das falsche Feld übernommen. Was kann ich machen ? Wie kann ich hier noch eine Kontrolle reinkriegen, die nachprüft ob das Feld leer. Wenn ein feld leer ist, dann soll in der Variablen irgend ein Zeichen, welches die Variable für die spätere Bearbeitung als leer markiert ( z.B. *,+,= oder irgend ein anderes.

Für eure Hilfe wäre ich sehr dankbar lächeln

csde_rats · Verfasst am: 26.10.2007, 22:54 Titel:

Dazu müsstest du dir eine eigene CVS-Lese-Routine schreiben.

Ablaufschemata:

Datei im Modus "BINARY" öffnen.
per GET ein einzelnes Zeichen lesen.
Wenn Zeichen = Komma, dann neues Feld einlesen
Wenn Zeichen ungleich Komma, dann Feld = Feld + Zeichen
Wenn Feld = "" dann nächstes Feld

Ganz einfach oder? Eine kleine Sub/Function und damit hat sich dass. lächeln

Benutzte das nächste mal bitte [ code]-Tags um deinen Quelltext zu formatieren.
_________________
If hilfreicher_Beitrag then klick(location.here)

Klick

nemored · Anmeldungsdatum: 22.02.2007 Beiträge: 4704 Wohnort: ~/

Oder mit LINE INPUT eine ganze Zeile einlesen und dann mit INSTR nach den Kommata suchen.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

Skilltronic · Anmeldungsdatum: 10.09.2004 Beiträge: 1148 Wohnort: Köln

Hallo

dreael · Verfasst am: 27.10.2007, 10:50 Titel:

Da kann ich höchstens auf die split()-Funktion unter

http://beilagen.dreael.ch/QB/SPLIT.BAS

noch einmal hinweisen, denn dort kannst Du als "Field Separator" jeden beliebigen String (dürfen sogar mehrere Zeichen sein, solche Fälle hatte ich schon selber!) übergeben.

Leere Felder stören überhaupt nicht, dann gibt es einfach Leerstrings. Wichtig ist einzig und alleine ein konsistenter Dateiaufbau, d.h. die Anzahl Kommas, Tabs oder weiss ich was und damit die Zahl der Felder muss bei jeder Zeile immer konstant sein.

Im Prinzip solltest Du Record um Record mit LINE INPUT# als ganze Zeile einlesen und diesen der split()-SUB von oben übergeben. Kleiner Beispielcode

Elektronix · Anmeldungsdatum: 29.06.2006 Beiträge: 742

Du kannst leere Datenfelder auch beim Abspeichern mit Leerzeichen füllen. Laß das Prog überprüfen, ob ein Feld ausgefüllt wurde. Wenn nicht, füllt es das Feld mit der maximalen Anzahl Leerzeichen (ich glaube chr(13)) aus.

nemored · Anmeldungsdatum: 22.02.2007 Beiträge: 4704 Wohnort: ~/

chr(13) ist ein CR (Wagenrücklauf). Das Leerzeichen ist ein chr(32).
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

Elektronix · Anmeldungsdatum: 29.06.2006 Beiträge: 742

@nemored:

Hast Recht. War zu faul, nachzuschauen grinsen

Asche auf mein Haupt... weinen