OpenOffice.info

Code: Alles auswählen

SUB CSV_Import
	DIM oDatenquelle AS OBJECT
	DIM oVerbindung AS OBJECT
	DIM oSql_Anweisung AS OBJECT
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM stFeld AS STRING
	DIM stDaten AS STRING
	DIM stSql AS STRING
	DIM inNumber AS INTEGER
	DIM inZaehler AS INTEGER
'	Tabelle_leeren("Tabelle1")
	REM Der Kontakt zur Datenbank wird gegebenenfalls hergestellt
	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF
	REM Die Eingabe einer SQL-Anweisung wird vorbereitet
	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()
	REM Das Formular wird aufgesucht
	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	REM Lage des Feldes in dem entsprechenden Formular aufsuchen
	oForm=oDrawpage.Forms.getByName("Formular")
	oFeld=oForm.getByName("Dateiauswahl")
	REM Den Text aus der Dateiauswahl auslesen
	stFeld=oFeld.Text
    inNumber = FreeFile()	'die nächste freie Dateinummer wird ermittelt und anschließend genutzt
    OPEN stFeld FOR INPUT AS inNumber
    	WHILE NOT EOF(#inNumber)	'solange das Ende der Datei nicht erreicht ist, wird jetzt jede Zeile ausgelesen
    		LINE INPUT #inNumber, stDaten
    		REM Auslesen der daten aus einer zeile der *.csv-Datei
    		inZaehler = 0
    		WHILE Len(stDaten) > 0	
    			ReDim Preserve aDaten(inZaehler)	'Neudimensiponierung des Arrays mit Sicherung des vorherigen Inhaltes
    			REM Wenn es sich um einen Text handelt ist er mit einem " eingegrenzt. Dann darf keine Trennung beim Komma erfolgen
    			IF Left(stDaten,1) = """" THEN	'Eingrenzung durch Anführungszeichen - Beginn mit einem Anführungszeichen
    				aTmp() = Split(stDaten,""",",2)	'Auftrennung in 2 Teile, Trennung an der Kombination aus Anführungszeichen und Komma
    				aDaten(inZaehler) = Mid(aTmp(0),2)	'Erster Teil wird in das Array geschrieben
    			ELSE
    				aTmp() = Split(stDaten,",",2)	'Wenn keine Anführungszeichen existieren: Trenner ist das Komma
    				aDaten(inZaehler) = aTmp(0)
    			END IF
    			IF UBound(aTmp) = 1 THEN	'Solange noch ein zweiter Teil des Arrays existiert wird der Inhalt stDaten neu zugewiesen
    				stDaten = aTmp(1)
    			ELSE
    				stDaten = ""	'... bis stDaten leer ist
    				IF Right(aDaten(inZaehler),1) = """" THEN
    					aDaten(inZaehler) = Mid(aDaten(inZaehler),1,Len(aDaten(inZaehler))-1)
    				END IF
    			END IF
    			inZaehler = inZaehler + 1
    		WEND
			REM Die Daten einer Zeile werden in die Tabelle übertragen
			IF inZaehler >= 4 THEN	'Zahl der Felder abfragen, die in der folgenden Insert-Anweisung benötigt werden 
'			aDaten(2) = Datum_2_SQLDate(aDaten(2))
'			aDaten(3) = Dezimalkomma(aDaten(3))
			stSql = "INSERT INTO ""Tabelle1"" (""Text"", ""Zahl"", ""Datum"", ""Dezimalzahl"") VALUES('" + aDaten(0) + "','" + aDaten(1) + "','" + aDaten(2) + "','" + aDaten(3) + "')"
	   	 	oSQL_Anweisung.executeUpdate(stSql)
			ELSE
    			CLOSE #inNumber
    			msgbox "Die CSV-Datei enthält zu wenige Spalten."
    			EXIT SUB
			END IF
    	WEND
    CLOSE #inNumber
END SUB

Code: Alles auswählen

SUB CSV_Import
	DIM oDatenquelle AS OBJECT
	DIM oVerbindung AS OBJECT
	DIM oSql_Anweisung AS OBJECT
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM stFeld AS STRING
	DIM stDaten AS STRING
	DIM inNumber AS INTEGER
	REM Der Kontakt zur Datenbank wird gegebenenfalls hergestellt
	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF
	REM Die Eingabe einer SQL-Anweisung wird vorbereitet
	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()
	REM Das Formular wird aufgesucht
	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	REM Lage des Feldes in dem entsprechenden Formular aufsuchen
	oForm=oDrawpage.Forms.getByName("Formular")
	oFeld=oForm.getByName("Dateiauswahl")
	REM Den Text aus der Dateiauswahl auslesen
	stFeld=oFeld.Text
    inNumber = FreeFile()	'die nächste freie Dateinummer wird ermittelt und anschließend genutzt
    OPEN stFeld FOR INPUT AS inNumber
    	WHILE NOT EOF(#inNumber)	'solange das Ende der Datei nicht erreicht ist, wird jetzt jede Zeile ausgelesen
    		LINE INPUT #inNumber, stDaten
			aDaten() = Split(stDaten, ",")	'Alle Daten einer Zeile werden ausgelesen. Das erste Feld wird mit aDaten(0) ausgelesen.
			REM Die Daten einer Zeile werden in die Tabelle übertragen
'   	 	oSQL_Anweisung.executeUpdate("INSERT INTO ""Tabelle""(""Spalte1"",""Spalte2"") VALUES('" + aDaten(0) + "','" + aDaten(1) + "')"
    	WEND
    CLOSE #inNumber
END SUB