Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

.txt in VBS Skript einbinden / benutzen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Off-Topic-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Beatzler2



Anmeldungsdatum: 24.08.2009
Beiträge: 22
BeitragVerfasst am: 15.05.2010, 01:03    Titel: .txt in VBS Skript einbinden / benutzen Antworten mit Zitat
Hey,

ist hier wohl nicht so ganz richtig, aber vielleicht könnte mir ja doch jemand helfen oder einen Tipp geben...

ich bin aktuell auf der suche nach einer Möglichkeit den Inhalt einer .txt in ein vbs Skript einzubinden und quasi als paramter zu nutzen:

das VBS Skript:

Code:

Set oshell = createobject("Wscript.Shell")
oshell.run"C:\TEST.ht"
wscript.sleep 500
oshell.sendkeys" "+("{Enter}")
wscript.sleep 500
oshell.sendkeys"%INHALT_AUS_.TXT"+("{Enter}")
wscript.sleep 500
oshell.sendkeys" "+("{Enter}")
set oshell = nothing



Die .txt:
P, 111, 0, 111, 0, WORT, Mehrere Wörter ( max 80 Zeichen !)

Diese Zeile müsste irgendwie an die stelle %INHALT_AUS_.TXT in dem VBS Skript...


Könnt ihr mir da einen Tipp geben ?

Vielen dank im vorraus !!!

MFG Beatzler
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
dreael
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)
BeitragVerfasst am: 16.05.2010, 21:53    Titel: Antworten mit Zitat
Da musst Du schon Deine Datei ganz normal einlesen, z.B.
Code:
Option Explicit
Const ForReading = 1
Dim oSh, oFS, oTs, cZeile

Set oSh = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTs = oFS.OpenTextFile("INHALT_AUS_.TXT", ForReading)
Do Until oTs.AtEndOfStream
  cZeile = oTs.ReadLine
  oSh.SendKeys cZeile
  WScript.Sleep 600
Loop
oTs.Close
Set oTs = Nothing
Set oFS = Nothing
Set oSh = Nothing

Hinweis: Code nicht getestet!
Logischerweise musst Du das Ganze noch für Deine Bedürfnisse anpassen!

Nebenbei:

http://msdn.microsoft.com/de-de/library/ms536479%28v=VS.85%29.aspx

d.h. bei HTA-Applikationen kannst Du auch Parameter per Kommandozeile mitgeben!
_________________
Teste die PC-Sicherheit mit www.sec-check.net
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beatzler2



Anmeldungsdatum: 24.08.2009
Beiträge: 22
BeitragVerfasst am: 16.05.2010, 23:16    Titel: Antworten mit Zitat
Hey,

Danke für deine Antwort !!!

Werde ich entsprechend anpassen und testen.

Vielen Dank

MFG Beatzler
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Off-Topic-Forum Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz