Hallo,
ich dachte auch zuerst an XML - aber es sind ja keine regelkonformen
XML-Dateien. Ich habe nur einen Anfangstag, keinen Endtag - und die
Bezeichnung der "Tags" ist nicht regelconform. Kein XML-Parser w�rde mir das
erkennen. Ich kann das leider nur von Hand machen.
Gruss
Jutta
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Tuesday, June 18, 2002 1:36 PM
Subject: [aspdebeginners] Re: Einlesen einer Textdatei
> Hi,
>
> du kannst entweder das mit einer aufwendigen Stringverarbeitung macxhen
oder
> vielleicht mit XML �ber eine email an ein Taskkonto verschicken.
>
> ###################################
> Bildung des XML-Strings
> ###################################
>
> formE = Array("au_id", "bestellnr",_
> "firma1", "firma2", .......,"gwl")
>
> strXML = ""
>
> strXML= strXML & "<rapport><auftraege "
>
> for each eName in formE
>
> if eName = "fehlerart_s" then
> if document.rapport.fehlerart_s.checked = true then
> strXML = strXML & "fehlerart_s = '" & 1 & "' "
> else
> strXML = strXML & "fehlerart_s = '" & 0 & "' "
> end if
> elseif eName = "gwl" then
> if document.rapport.gwl(0).checked = true then
> strXML = strXML & "gwl= '" & 1 & "' "
> else
> strXML = strXML & "gwl = '" & 0 & "' "
> end if
> else
> strXML = strXML & eName & "='" &
> replEntChars(document.rapport(eName).value) & "' "
> end if
> next
>
> strXML = strXML & "aktion = 'update' /> "
> strXML = strXML & "<statusverfolgung st_id = '" &
> document.rapport("st_id").value & "' /> "
>
> 'arbeitszeiten einlesen
> strXML = strXML & "<arbeitszeit te_id='" & document.rapport.te_id.value &
> "'>"
>
> rowid = 0
> gesamt = 0
>
> {strXML=strXML&blablabla}
> strXML = strXML & "</arbeitszeit>"
>
> strXML = strXML & "<gesamt>" & gesamtHM & "</gesamt>"
>
> strXML = strXML & "<material> "
> rowid = 0
> for each feld in document.rapport.ma_id
>
> strXML = strXML & "<row "
>
> for each eName in formE
> strXML = strXML & eName & "='" &
> replEntChars(document.rapport(eName).item(rowid).value) & "' "
> next
>
> ma_id = document.rapport.ma_id(rowid).value
>
> strXML = strXML & "aktion = 'insertv' /> "
>
> rowid = rowid + 1
> next
>
> strXML = strXML & "</material> "
> strXML = strXML & "<teams techniker='" &
> replEntChars(document.rapport("techniker").value) & "' /> "
> strXML = strXML & "</rapport> "
>
> ' dann per CDONTS-Newmail verschicken falls Server=Arbeitsstation sonst
kann
> ' man den XML String auch lokal speichern und auslesen
> ####################################################
> ENDE XML-String erstellen
>
> Anfang XML auslesen
> ##############################################
> 'Anmeldung ans Postfach
>
> Set objCurSession = CreateObject("CDONTS.Session")
> objCurSession.LogonSMTP strUserName, strUserEmail
>
> Set objInbox = objCurSession.Inbox
> Set colMsgs = objInbox.Messages
>
>
> Set objXML = CreateObject("Microsoft.XMLDOM")
>
> If colMsgs.Count > 0 Then 'liegen eMails zur Verarbeitung vor?
> For intLoop = 1 To colMsgs.Count 'alle eMails durcharbeiten
> strXML = (colMsgs(intLoop).Text) 'eMail-Body auslesen
> objXML.loadXML strXML 'in XML-Instanz laden
>
>
> If objXML.parseError.errorCode <> 0 Then
> call errMail(strErr,
> strXML) 'Fehlerbehandlung
> colMsgs(intLoop).delete
> objCurSession.logoff
> else
>
> Set objSpezElement =
>
objWurzelElement.parentNode.childNodes.Item(0).getElementsByTagName("arbeits
zeit")
> te_id = objSpezElement.Item(0).getAttribute("te_id")
>
> For i = 0 To objSpezElement.Item(0).childNodes.length - 1
> datum = objSpezElement.Item(0).childNodes.Item(i).getAttribute("datum")
> {usw.........}
> end if
>
> --
> GMX - Die Kommunikationsplattform im Internet.
> http://www.gmx.net
>
>
> | 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
