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. ![]()
(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
![]()