Das deutsche QBasic- und FreeBASIC-Forum

[cacare]

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

[csde_rats]

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.

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

Klick

[nemored]

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]

Hallo

[dreael]

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]

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]

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]

@nemored:

Hast Recht. War zu faul, nachzuschauen Asche auf mein Haupt...