Daten aus TXT in Schleife

  • VBScript

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von hoffi3d.

    Daten aus TXT in Schleife

    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:

    Quellcode

    1. ​sub subSub1_()
    4. autECLSession.autECLOIA.WaitForAppAvailable
    5. autECLSession.autECLPS.SendKeys "4"
    6. autECLSession.autECLPS.SendKeys "[enter]"
    7. autECLSession.autECLPS.WaitForAttrib 20,6,"00","3c",3,10000
    8. autECLSession.autECLPS.WaitForCursor 20,7,10000
    9. autECLSession.autECLOIA.WaitForAppAvailable
    10. autECLSession.autECLPS.SendKeys "22"
    11. autECLSession.autECLPS.SendKeys "[enter]"
    12. autECLSession.autECLPS.WaitForAttrib 20,6,"00","3c",3,10000
    13. autECLSession.autECLPS.WaitForCursor 20,7,10000
    14. autECLSession.autECLOIA.WaitForAppAvailable
    15. autECLSession.autECLPS.SendKeys "46"
    16. autECLSession.autECLPS.SendKeys "[enter]"
    17. autECLSession.autECLPS.WaitForAttrib 7,37,"00","3c",3,10000
    18. autECLSession.autECLPS.WaitForCursor 7,38,10000
    19. autECLSession.autECLOIA.WaitForAppAvailable
    21. autECLSession.autECLPS.SendKeys [size=12][color=#FF0000][u][i][b]NUMMER[/b][/i][/u][/color][/size]
    22. autECLSession.autECLPS.SendKeys "[field+]"
    23. autECLSession.autECLPS.SendKeys "[tab]"
    24. autECLSession.autECLPS.SendKeys "j"
    25. autECLSession.autECLPS.SendKeys "[enter]"
    27. 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

    Ändere die subSub1_ zu

    Visual Basic-Quellcode

    1. Sub subSub1_(NUMMER)
    2. 'alles so lassen
    4. end sub


    Visual Basic-Quellcode

    1. Sub main 'iein Name, darüber kann man die prozedur dann aufrufen.
    2. Dim objFSO, File, Number
    3. Const ForReading = 1
    4. set objFSO=CreateObject("Scripting.FileSystemObject")
    6. Set File = objFSO.OpenTextFile("Numbers.txt", ForReading, false)
    7. Do While NOT File.AtEndOfStream
    8. Number = File.ReadLine
    9. subSub1_ Number
    10. Loop
    11. File.close
    12. End Sub
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende