Hallo,
dieses soll sp�ter verwendet werden, um mit einer Datei Daten in eine
bestehende DB einzulesen.
Zur Zeit wird der zusammengesetzte Sql Befehl nur im Browser angezeigt.
Daten kommen aus Datei, Spaltenname -->aryFelder und Datentypen -->
aryFeldtyp aus Array.
Anhand des Arrays aryFeldtyp soll dem Sql Befehl bei Text Anf�hrungszeichen,
bei money m�ssen die Kommas
durch Punkte ersetzt werden, bei Date auch Anf�hrungszeichen hinzugef�gt
werden.
Dieses ist in der Datei nicht enthalten.
Ich habe es wie unten versucht, bekomme bei Text in Anf�hrungszeichen eine
Fehlermeldung, leider kann ich mich nicht
mehr an die genaue Meldung erinnern.
Ungef�hr: Pa�t nicht mit join zusammen
Bei Komma in Punkt umwandeln, bekomme ich keine Fehlermeldung. Allerdings
werden die Kommas auch nicht umgewandelt.
Kann nat�rlich sein, das es schon vom Ansatz her falsch ist.
Danke im Vorraus
Petra
<%
sub lese_datei(aryFelder,aryFeldtyp,Tabellenname,Textdatei)
Set Dateiobjekt = Server.CreateObject("Scripting.FileSystemObject")
Set Textdatei =
Dateiobjekt.OpenTextFile(Server.MapPath(Textdatei),1)
while not Textdatei.AtEndOfLine
'------Datenzeile splitten Trennzeichen ; ------
zeile = Textdatei.Readline
aryWerte=split(zeile,";")
for i=0 to ubound(aryWerte)
for y=0 to ubound(aryFeldtyp)
'Werte mit Anf�hrungszeichen ausgeben
'if (aryFeldtyp(y)) = vachar then
'aryWerte = "(aryWerte(i))"
'end if
'Komma in Punkt umwandeln, sonst Problem beim insert
in DB
if (aryFeldtyp(y)) = "money" then
Replace(aryWerte(i)),",","."
end if
next 'Ende Feldtyp
'-----Datenzeile zusammensetzen f�r Sql -->Inhalt
ErgebnisWerte = join(aryWerte,",")
next 'Ende Wert
'Datensatz zusammensetzen f�r Sql --> Spaltennamen
for x=0 to ubound(aryFelder)
ErgebnisFelder = join(aryFelder,",")
next
ErgebnisFeldtyp = join(aryFeldtyp)
response.write "sql = "" insert into" & Tabellenname
&"("&ErgebnisFelder &")"&"Values("& ErgebnisWerte &")""<br>"
'response.write ErgebnisFeldtyp &"<br>"
wend
Textdatei.Close
'Nur Testzwecke
'response.write aryFelder(lbound(aryFelder))
'response.write Ubound(aryFelder)
end sub
'Arrays Spaltennamen und Datentypen
aryFelder=array("ArtNr","Name","PGID","Preis","Datum")
aryFeldtyp=array(varchar,varchar,varchar",money,date)
Tabellenname="Artikel"
Textdatei = "test.txt"
'Aufruf
call lese_datei(aryFelder,aryFeldtyp,Tabellenname,Textdatei)
%>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
