Guten Morgen,
ich habe leider von VBS quasi 0 Ahnung.
VBA kann ich etwas...!
Ich habe ein VB Script, zumindest nehme ich das an
Dieses Script ist in einer 5250 Emulation aufgezeichnet wurden.
Nun ist so, dass ich in dem Script immer und immer wieder denselben Schritt mache, es ändert sich nur eine Nummer.
Nun war mein Gedanke, einfach die Nummern aus einer TXT Datei auszulesen und solange durchlaufen zu lassen bis keine mehr da ist.
Könnte mir jemand sagen wie genau man das macht?
Folgender Code liegt vor:
An der Stelle Nummer soll die Nummer rein.
Es kann auch sein, dass es hier sinnlose Programmzeilen gibt, da bin ich mir leider nicht sicher!
Vielen Dank vorrab
ich habe leider von VBS quasi 0 Ahnung.
VBA kann ich etwas...!
Ich habe ein VB Script, zumindest nehme ich das an
Dieses Script ist in einer 5250 Emulation aufgezeichnet wurden.
Nun ist so, dass ich in dem Script immer und immer wieder denselben Schritt mache, es ändert sich nur eine Nummer.
Nun war mein Gedanke, einfach die Nummern aus einer TXT Datei auszulesen und solange durchlaufen zu lassen bis keine mehr da ist.
Könnte mir jemand sagen wie genau man das macht?
Folgender Code liegt vor:
Quellcode
- sub subSub1_()
- autECLSession.autECLOIA.WaitForAppAvailable
- autECLSession.autECLPS.SendKeys "4"
- autECLSession.autECLPS.SendKeys "[enter]"
- autECLSession.autECLPS.WaitForAttrib 20,6,"00","3c",3,10000
- autECLSession.autECLPS.WaitForCursor 20,7,10000
- autECLSession.autECLOIA.WaitForAppAvailable
- autECLSession.autECLPS.SendKeys "22"
- autECLSession.autECLPS.SendKeys "[enter]"
- autECLSession.autECLPS.WaitForAttrib 20,6,"00","3c",3,10000
- autECLSession.autECLPS.WaitForCursor 20,7,10000
- autECLSession.autECLOIA.WaitForAppAvailable
- autECLSession.autECLPS.SendKeys "46"
- autECLSession.autECLPS.SendKeys "[enter]"
- autECLSession.autECLPS.WaitForAttrib 7,37,"00","3c",3,10000
- autECLSession.autECLPS.WaitForCursor 7,38,10000
- autECLSession.autECLOIA.WaitForAppAvailable
- autECLSession.autECLPS.SendKeys [size=12][color=#FF0000][u][i][b]NUMMER[/b][/i][/u][/color][/size]
- autECLSession.autECLPS.SendKeys "[field+]"
- autECLSession.autECLPS.SendKeys "[tab]"
- autECLSession.autECLPS.SendKeys "j"
- autECLSession.autECLPS.SendKeys "[enter]"
- end sub
An der Stelle Nummer soll die Nummer rein.
Es kann auch sein, dass es hier sinnlose Programmzeilen gibt, da bin ich mir leider nicht sicher!
Vielen Dank vorrab