Inhalt einer HTML-Tabelle in CSV-Datei exportieren

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von matti.

    Inhalt einer HTML-Tabelle in CSV-Datei exportieren

    Hallo,

    ich habe eine HTML-Tabelle und möchte, dass die dort eingetragenen Werte via VBScript, undzwar per Klick auf einen Speicherknopf, in eine CSV-Datei exportiert werden.

    Habe leider keine Ahnung wie das funktioniert. :(

    Das HTML-Gerüst steht schon und sieht foglendermaßen aus:




    <HTML>

    <BODY>

    <HEAD>

    <TITLE>Fenstertitel</TITLE>

    <TABLE width="100%">
    <TBODY>
    <TR>
    <TH align=left colSpan=2><U>Überschrift Links</U></TH>
    <TH align=left colSpan=2><U>Überschrift Rechts</U></TH></TR></TBODY></TABLE>


    <!-- Anfang der Tabelle mit Randstärke 1 -->
    <table border="1">

    <!-- Spaltenüberschriften -->
    <tr>
    <th>Spalte 1</th>
    <th>Spalte 2</th>
    <th>Spalte 3</th>
    <th>Spalte 4</th>
    <th>Spalte 5</th>
    </tr>

    <!-- Zeile 1 -->
    <tr>
    <td> <INPUT maxLength=7 size=10 name=Z1F1> </td>
    <td> <INPUT maxLength=3 size=10 name=Z1F2> </td>
    <td> <INPUT maxLength=1 size=10 name=Z1F3> </td>
    <td> <INPUT maxLength=1 size=10 name=Z1F4> </td>
    <td> <INPUT maxLength=100 size=50 name=Z1F5> </td>
    </tr>´

    <!-- Zeile 2 -->
    <tr>
    <td> <INPUT maxLength=7 size=10 name=Z2F1> </td>
    <td> <INPUT maxLength=3 size=10 name=Z2F2> </td>
    <td> <INPUT maxLength=1 size=10 name=Z2F3> </td>
    <td> <INPUT maxLength=1 size=10 name=Z2F4> </td>
    <td> <INPUT maxLength=100 size=50 name=Z2F5> </td>
    </tr>

    <!-- Zeile 3 -->
    <tr>
    <td> <INPUT maxLength=7 size=10 name=Z3F1> </td>
    <td> <INPUT maxLength=3 size=10 name=Z3F2> </td>
    <td> <INPUT maxLength=1 size=10 name=Z3F3> </td>
    <td> <INPUT maxLength=1 size=10 name=Z3F4> </td>
    <td> <INPUT maxLength=100 size=50 name=Z3F5> </td>
    </tr>

    <!-- Zeile 4 -->
    <tr>
    <td> <INPUT maxLength=7 size=10 name=Z4F1> </td>
    <td> <INPUT maxLength=3 size=10 name=Z4F2> </td>
    <td> <INPUT maxLength=1 size=10 name=Z4F3> </td>
    <td> <INPUT maxLength=1 size=10 name=Z4F4> </td>
    <td> <INPUT maxLength=100 size=50 name=Z4F5> </td>
    </tr>

    <!-- Zeile 5 -->
    <tr>
    <td> <INPUT maxLength=7 size=10 name=Z5F1> </td>
    <td> <INPUT maxLength=3 size=10 name=Z5F2> </td>
    <td> <INPUT maxLength=1 size=10 name=Z5F3> </td>
    <td> <INPUT maxLength=1 size=10 name=Z5F4> </td>
    <td> <INPUT maxLength=100 size=50 name=Z5F5> </td>
    </tr>

    </table>
    <!-- Ende der Tabelle -->

    <br>
    <br>

    <!-- Feld "Name" -->
    Name:&nbsp;
    <INPUT name=EingabeVon>&nbsp;

    <!-- Feld "Datum" -->
    Datum:&nbsp;
    <INPUT maxLength=10 size=10 name=Datum>


    <!-- Feld "Computer" -->
    Computer:&nbsp;
    <INPUT maxLength=15 size=3 name=Computer>

    <P>
    <BR>

    <INPUT type=button value="Speichern" name=Speichern id=Speichern style="FONT-FAMILY: Tahoma; color:

    white; BACKGROUND-POSITION: 126px 5px; WIDTH: 152px; BACKGROUND-REPEAT: no-repeat; HEIGHT: 30px;

    BACKGROUND-COLOR: black">

    </p>

    </BODY>

    </HTML>

    ________________________________________________________________________________________________________


    Bin dankbar für jede Hilfe! :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „matti“ ()

    Habs selbst rausgefunden. Falls in Zukunft auch jemand vor dem Problem stehen sollte, hier die Lösung anhand der ersten Zeile:

    Sub Speichern_onclick

    set FSO = CreateObject("Scripting.FileSystemObject")
    set TS = FSO.OpenTextFile("C:\test.csv",8,true)

    strToWrite = document.Formular.Computer.value + ";"
    strToWrite = strToWrite + document.Formular.Datum.value + ";"
    strToWrite = strToWrite + document.Formular.Z1F1.value + ";"
    strToWrite = strToWrite + document.Formular.Z1F2.value + ";"
    strToWrite = strToWrite + document.Formular.Z1F3.value + ";"
    strToWrite = strToWrite + document.Formular.Z1F4.value + ";"
    strToWrite = strToWrite + document.Formular.Z1F5.value + ";"
    strToWrite = strToWrite + document.Formular.Name.value + ";"+ vbcrlf

    TS.Writeline(strToWrite)

    set TS=nothing
    set FSO=nothing

    MsgBox"Daten gespeichert!"

    document.Formular.Speichern.disabled = True

    End Sub

Facebook
Telefonspende