[extra OT] VBS-Programmierer gesucht

  • Moin zusammen,
    bin heute ´mal extrem OT:
    Wer kann mir in VBS folg. Proggilein codieren?
    Bin ehrlich gesagt zu faul, 1..2. Tage zu wühlen, um VBS etwas zu verstehen. :D
    (Meine letzten Lines of Code sind mehr als 25 Jahre her;
    ich weiss nicht mal mehr, was´s war: 360/Ass, Cobol, PL/1, RPG, Fortran, etc)


    Schätze, dass der Aufwand ca 15Min max ist.
    Wer´s schafft bekommt ´ne extra Stange RL-Willis im Harz oder .....


    Danke, und an die Arbeit. :]
    Wolf
    .....
    so etwa sollte/könnte die Sache aussehen.


    Begin Proc "Modemstatus"
    /* Auslesen/zyklisch von Statusdaten I-Modem.
    Programm soll Daten (Empfang und Senden) von einer HTM-Seite extrahieren
    und mit Datum und Zeit in eine .txt-File schreiben.
    Symbolischer Ablauf :) */


    Dims/Vars: Input-htm (Char, var), Empfang_dB (-Zahl, -xx.x), Senden_dB (Zahl, xx.x)


    Interval = 60 /* Sekunden */


    Input-File htm "http://192.168.1.1/cgi-bin/modem_status?status"
    Output-File TXT "Modem-Log.txt", append


    Open all
    On Exception (Kill, Cancel, etc) Close all


    Loop:
    Read Input-File into Input-htm
    Empfang_dB = LEFT of " dBm " /* Länge 4*/ in Input-htm
    Senden_dB = LEFT of " dB, ""ASTRA" /*Länge 3*/ in Input-htm


    Write Append Empfang_dB, ";", Senden_dB, ";", Date, ";", Time, CR /* Carriage Return*/


    Wait Interval
    End Loop


    End Proc
    --------------------------------------------
    Ausschnitt aus dem htm Source, der interessant ist.
    ....</td><td>-32.6 dBm (56/100), Es/N<sub>0</sub>: 11.1 dB, "ASTRA 23.5 (1D)"....


    *edit* (Anhang, .txt wech)
    etwas habe ich zusammengestoppelt/gefunden; aber der Rest X( X(

  • Thema erledigt; Dank für die sehr aktive Mithilfe. :D
    Wolf
    ...
    habe selbst krückenhaft ´was zusammengesucht; :evil: :evil:
    aber es funzt.

    Einmal editiert, zuletzt von WolfL ()

  • Habs Dir pophezeit,


    you remember,


    aber wir wissen ja, selbst ist der Wolf, oder so....


    : drink : drink : drink : drink