Hallo Petra.
Kenn mich zwar auch nicht so gut aus, aber ich glaube ich habe den ersten
Fehler gefunden.
Das ist dein Befehl
Replace(aryWerte(i)),",","."
richtig m��te er hei�en
Replace(aryWerte(i)),",",".")
Ich such mal weiter
Gru� Wolfgang
----- Original Message -----
From: "Petra Budde" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Sunday, December 09, 2001 1:41 PM
Subject: [aspdebeginners] Fw: Daten aus Datei in DB
>
>
>
> > 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
>
| 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
