Anfängerprobleme csv Datein einlesen

Horst Gast 04.02.2010 14:47 #1583599

Lesenswert?

•

Hallo,

ich habe eine CSV Datei in folgender Ausführung.
wert1,wert2,wert3,wert4
wert1,wert2,wert3,wert4
....usw.

ich möchte diese Datei jetzt einlesen. Da ich fast gar nicht 
programmieren kann, bevorzuge ich immer Basic :-)
Wie kriege ich also die Daten in mein Programm eingelesen. Könnte mir 
hier jemand einen kurzen Codeauszug geben, bzw. einige Links die mir 
weiterhelfen.

Meistens nutze ich free Basic oder ähnliche opensource Compiler.

vielen Dank
Horst

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Joachim Gast 04.02.2010 15:01 #1583622

Lesenswert?

•

▲
▼

Hallo

Gockel ist dein Freund. Schau z.B. mal hier:
http://de.wikibooks.org/wiki/FreeBasic:_Dateien

Falls Gockel nicht verfügbar ist, hilft die althergebrachte Methode:
Kauf dir ein Buch.

Gruß
Joachim

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Tom E. (tkon) 04.02.2010 15:03 #1583627

Lesenswert?

•

▲
▼

Versuchs mit Excel (oder OpenOffice). Damit kannst du csv importieren 
und, sofern die Standardfunktionen nicht reichen, mittels VBA auch was 
programmieren

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Klaus Gast 04.02.2010 16:46 #1583824

Lesenswert?

•

▲
▼

Hi,
in vb kannst Du die split-Funktion nehmen.
Beispiel:

  Dim aData() As String
  Dim InputString As String
  InputString  = "wert1,wert2,wert3,wert4"
  aData = Split(InputString, ",")


In dem Array >aData< sind dann die "Werte" als Teste abgelegt.
Die kannst Du dann weiterverarbeiten.

Dieses machst Du für jede Zeile in Deinem cvs-File.

Bye
Klaus

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Klaus Gast 04.02.2010 16:49 #1583826

Lesenswert?

•

▲
▼

Hi,
sorry ich habe free Basic überlesen.
Ob es dort eine split-Funktion gibt weiss ich leider nicht.
Klaus

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Niels K. (niels-k) 06.02.2010 07:51 #1586061

Lesenswert?

•

▲
▼

CSV-Dateien sind (so wie ich das beurteilen kann) aber in der Regel 
Messdaten, die binär gespeichert sind. Das bedeutet, dass man Kenntniss 
über das Datenformat haben muss. Die Grundlage zu diese Aussage ist die 
Vermutung, dass die Daten von einer Montageanlage stammen.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Klaus W. (mfgkw) 06.02.2010 08:11 #1586066

Lesenswert?

•

▲
▼

Nein.

CSV-Dateien sind Textdateien.

Hat man in Excel beispielsweise folgende Tabelle:

+-----+-----+-----+--------+-----+
| 132 | 456 | 789 | abcdef | 147 |
+-----+-----+-----+--------+-----+
|  33 |   1 |   2 |    Oma | 888 |
+-----+-----+-----+--------+-----+
| 1.23|  77 |  22 |    Opa |   1 |
+-----+-----+-----+--------+-----+

, dann sieht die CSV-Datei etwa so aus:

132,456,789,"abcdef",147
33,1,2,"Oma",888
1.23,77,22,"Opa",1

Das sind keine Binärdaten (sonst könnte MS ja selbst nicht damit
umgehen :-)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Niels K. (niels-k) 06.02.2010 08:15 #1586067

Lesenswert?

•

▲
▼

Na dann ist es ja umso einfacher

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Läubi .. (laeubi) 06.02.2010 10:19 #1586152

Lesenswert?

•

▲
▼

Niels Keller schrieb:
> Na dann ist es ja umso einfacher
Nicht unbedingt. Man muss dabei beachten das es immer einen Feldtrenner 
und einen Datensatztrenner gibt.

Angenommen der Feldtrenner sei " und der Datensatztrenner sei , dann ist 
folgendes eine gültige CVS Zeile:

"Hallo", "123.567", "In 0, nix", "hats ein Problem"

Jetzt wende auf diese Zeile mal ein Split mittels ',' an und du wirst 
sehen das du nicht das korrekte Ergebnis erhälts.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Sven P. Gast 06.02.2010 10:23 #1586154

Lesenswert?

•

▲
▼

Wobei ja strenggenommen der Datensatztrenner ein Zeilenumbruch ist :->

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Heinz B. (hbrill) (Firma: Privat) 06.02.2010 10:42 #1586162

Lesenswert?

•

▲
▼

Hab dir was angehängt, womit du
csv-Dateien mit 4 Spalten
mit einstellbarem Feldtrenner
einlesen kannst.

Evtl. genügt dir dieses kleine
Prog ja.

Angehängte Dateien:

LeseCsv.exe (31 KB)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Sven P. Gast 06.02.2010 10:44 #1586164

Lesenswert?

•

▲
▼

Heinz Brill schrieb:
> Hab dir was angehängt, womit du
> csv-Dateien mit 4 Spalten
> mit einstellbarem Feldtrenner
> einlesen kannst.
Wäre ein kurzer Quelltext da nicht angebrachter, als ein Programm aus 
unbekannter Herkunft mit unbekanntem Zweck?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Läubi .. (laeubi) 06.02.2010 10:48 #1586167

Lesenswert?

•

▲
▼

Sven P. schrieb:
> Wobei ja strenggenommen der Datensatztrenner ein Zeilenumbruch ist :->
Stimmt, es muss heißen Texttrenner, Feldtrenner und (bei mir nicht 
genutzt) Datensatztrenner. Das prinzip bleibt aber gleich ^_^

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Heinz B. (hbrill) (Firma: Privat) 07.02.2010 14:55 #1587610

Lesenswert?

•

▲
▼

Hatte das schnell mal mit PureBasic zusammen
gepinselt (www.PureBasic.de).
Für mich einer der besten und schnellsten
Basic-Compiler, aber ist nicht kostenlos.
Demoversionen gibt es trotzdem.

Global sfile.s, text.s, zeile.s, ftrenner.s
Procedure LeseDatei(sfile.s, trenner.s)
ClearGadgetItems(0) 
If OpenFile(0, sfile)
   Repeat
     text = ReadString(0)
     If text <> ""
        zeile = ReplaceString(text, trenner, Chr(10)) 
        AddGadgetItem(0, -1, zeile)
     EndIf    
   Until Eof(0) <> 0
   CloseFile(0)   
   MessageRequester("Anzahl Zeilen", Str(CountGadgetItems(0)) + " Zeilen gelesen !", 0)
EndProcedure
If OpenWindow(0, 100, 100, 500, 400, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   ListIconGadget(0, 5, 5, 790, 300, "Wert 1", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_MultiSelect)
   AddGadgetColumn(0, 1, "Wert 2", 100)
   AddGadgetColumn(0, 2, "Wert 3", 100)
   AddGadgetColumn(0, 3, "Wert 4", 100)
   ButtonGadget(1, 5,  310, 60, 20, "Start")
   ButtonGadget(2, 160,310, 60, 20, "Ende")
   TextGadget(4, 5, 340, 100, 20, "Feldtrenner (, ;)")
   StringGadget(5, 105, 340, 40, 20, ",")
   quit = 0 
   ftrenner = ","
   Repeat
     Event = WaitWindowEvent()
     If Event = #PB_Event_Gadget And EventGadget() = 1
        sfile = OpenFileRequester("Datei öffnnen", "C:\meinecvs.csv", "Csv (*.csv)|*.csv", 0)
        If sfile
        ftrenner = GetGadgetText(5)
           If ftrenner
              LeseDatei(sfile, ftrenner.s)
           EndIf   
        Else
            MessageRequester("Fehler !", "Kein Quell - Ordner gewählt !", 0)   
        EndIf   
     EndIf
     If Event = #PB_Event_Gadget And EventGadget() = 2
      quit = 1
     EndIf
   Until Event = #PB_Event_CloseWindow Or quit = 1

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Anfängerprobleme csv Datein einlesen

Antwort schreiben