TXt.Datei auslesen mit hilfe von VBS mit Schleife

[7-Club 10]

Hallo Forum,

zuerst mal weiß ich nicht ob das jetzt richtig ist, das Forum meine ich.

Sollte dies nicht der Fall sein Bitte ich einen Admin oder Mod bitte den Beitrag

zu verschieben. Danke

 

Habe da ein Problem und leider auch nichts passendes weder bei im

Forum noch wo anders gefunden.

 

Und zwar brauchte ich von einer kompelierten VBS-Datei, das z.Bsp. unter Label1 ein ein

gewieser Text ausgelesen wird und dieser dann in die fertige *.exe Datei geschrieben

wird.

Das soll er aber nicht nur einmal machen sondern immer wieder sobald sich was an der

auszulesenden TxT-Datei was ändert.

 

Heißt:

Sobald in diese TXT-Datei was neues befindet soll mir das VBS-Script dies visuell sofort

auch aktuallisieren. Habe im Anhang mal was kurz entworfen.So sollte es aussehen ca.

 

Habe nun unter der Fläche "Aktion" folgendes hinterlegt. Aber leider liest er mir nichts aus.

Private Sub Label2_Click()

Dim DateiNr As Integer
DateiNr = FreeFile
Open "c:\aktion.txt" For Input As DateiNr
Close DateiNr

End Sub

 

Weiß da jemand bescheid ??? Vielleicht gibt´s ja jemanden.

 

Grüße

 

7-Club

[7-Club 10]

Hallo Forum,

 

hat wirklich keiner eine kleine Idee oder Anregung.

Ansonsten hacke ich das Thema dann als ungelöst ab.

 

Grüße

 

7-Club

[Das Urmel 10]

Nicht unlösbar, du hast es etwas merkwürdig beschrieben.

 

Du hast ein Programm (exe) das mit Visual basic geschrieben ist.

Auslesen einer textdatei und in das von dir Bezeichnete Label2.txt reinschreibt.

Get freefile,, meineVar$

label2.Caption = MeineVar$

label2.refresh

 

Da das Progrämmelchen aufpassen sol, entweder einen Timer einbauen und

nach bestimmter Zeit die Datei neu einlesen (mit oder ohne Check - Attribut gesetzt, dann hat sie sich geändert)

Oder aber FilesystemHook und ChangeNotifyFiles oder so ähnlich Monitoren.

Ohne Blick in die Hilfe und ohne mal durch die Syntax zu strampeln wirds nix.

Suche mal via Google nach VB+Source - du wirst erschlagen.

Oder besuch die mvp's für Visual basic.

[7-Club 10]

Hallo Urmel,

 

erst mal vielen Dank für die Hilfe. Habe vorher schon mal im Internet gesucht gehabt,

aber leider nichts gefunden über den Eintrag label2.Caption = MeineVar$ gefunden.

Habe es jetzt nach einigen Hindernissen hinbekomme.

 

Habe die Schleife mit Do....Loop-Schleife gesetzt. Muss mal schauen wie ich das mit dem Timer dann hinbekomme.

 

Aber danke schon mal für die Hilfe.