Nach X Durchläufen: Ungültige Parameter

  • VBScript

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Florian_K148.

    Nach X Durchläufen: Ungültige Parameter

    Hallo,

    bei meinem Makro habe ich nach Anzahl X durchläufen eine Fehlermeldung: Ungültige Parameter. Die entsprechende Zeile ist immer die gleiche, Zeile 147.

    Visual Basic-Quellcode

    1. [PCOMM SCRIPT HEADER]
    2. LANGUAGE=VBSCRIPT
    3. DESCRIPTION=
    4. [PCOMM SCRIPT SOURCE]
    5. OPTION EXPLICIT
    6. autECLSession.SetConnectionByName(ThisSessionName)
    8. REM This line calls the macro subroutine
    9. subSub1_
    11. Sub subSub1_()
    12. Dim LfrndNummer, str_JobDatei, str_ZeileLesen
    13. Dim Pos, Liefertermin, Bestellnummer
    14. Dim obj_FSO, obj_File
    15. Dim OrdnerDesktop, File
    16. Dim MsBoErgebnis, tempzeile
    17. Set obj_FSO = CreateObject("Scripting.FileSystemObject")
    19. '--------------------- Jobdatei finden -------------------------------------------------------------------
    20. str_JobDatei = ""
    21. LfrndNummer = leseBildschrim(6, 12, 7)
    22. str_JobDatei = Desktopfinden() & "a_Termin.csv"
    23. If obj_FSO.FileExists(str_JobDatei) = True Then
    24. MsBoErgebnis = vbNo
    25. MsBoErgebnis = MsgBox("Wollen sie folgende Jobdatei einlesen?" & vbNewLine & str_JobDatei, vbYesNo OR vbQuestion, "Jobdatei gefunden!")
    26. If MsBoErgebnis = vbNo then
    27. str_JobDatei = ""
    28. End If
    29. Else
    30. str_JobDatei = ""
    31. End If
    34. If str_JobDatei = "" Then
    35. Set OrdnerDesktop = obj_FSO.GetFolder(Desktopfinden())
    36. For Each File in OrdnerDesktop.Files
    37. If LCase(Right(File.Name,4)) = ".csv" = True Then
    38. MsBoErgebnis = vbNo
    39. MsBoErgebnis = MsgBox("Wollen sie folgende Datei einlesen?" & vbNewLine & Desktopfinden() & File.Name, vbYesNo OR vbQuestion OR vbDefaultButton2, "CSV gefunden!")
    40. If MsBoErgebnis = vbYes then
    41. str_JobDatei = Desktopfinden() & File.Name
    42. Exit For
    43. End If
    44. End If
    45. Next
    46. End If
    47. If str_JobDatei = "" Then
    48. MsgBox "keine Jobdatei gefunden",vbcritical,"Fehler - Skript beendet"
    49. Exit Sub
    50. End If
    51. '---------------------------------------------------------------------------------------------------------
    54. ' --------------------- Jobdatei prüfen ------------------------------------------------------------------
    55. ' #### ToDo: Prüfung der Jobdatei vor Beginn der Eingabe
    56. Set obj_File = obj_FSO.OpenTextFile(str_JobDatei)
    57. str_ZeileLesen = obj_File.ReadLine 'Kopfzeile wird nicht geprüft (wird sowieso ignoriert)
    58. Do Until obj_File.AtEndOfStream
    59. str_ZeileLesen = obj_File.ReadLine
    60. tempzeile = Split(str_ZeileLesen,",")
    61. Pos = tempzeile(1)
    62. Liefertermin = tempzeile(2)
    63. If GueltigeLiefertermin(Liefertermin) = False Then
    64. Msgbox "ungültige Liefertermin gefunden" & vbNewLine & str_ZeileLesen ,vbCritical,"Fehler - Skript beendet !"
    65. Exit Sub
    66. End If
    67. If Len(Pos) > 4 Then
    68. Msgbox "ungültige Pos gefunden" & vbNewLine & str_ZeileLesen ,vbCritical,"Fehler - Skript beendet !"
    69. Exit Sub
    70. End If
    72. Loop
    73. obj_File.close
    74. '---------------------------------------------------------------------------------------------------------
    76. '------------------- Artikel eingeben --------------------------------------------------------------------
    77. Set obj_File = obj_FSO.OpenTextFile(str_JobDatei)
    78. str_ZeileLesen = obj_File.ReadLine 'Kopfzeile ignorieren
    79. Do Until obj_File.AtEndOfStream
    81. str_ZeileLesen = obj_File.ReadLine
    82. tempzeile = Split(str_ZeileLesen,",")
    84. 'Auslesen der Pos und der Liefertermin; Linke Spalte: Pos, Rechte Spalte: Liefertermin
    85. Bestellnummer = tempzeile(0)
    86. Pos = tempzeile(1)
    87. Liefertermin = tempzeile(2)
    89. If CLng(Liefertermin) > 0 Then
    90. schreibeText 8,20,Bestellnummer
    91. druecketaste "[enter]"
    92. schreibeText 8,2, "2"
    93. druecketaste "[enter]"
    94. schreibeText 10,26,Pos
    95. druecketaste "[field+]"
    96. schreibeText 10,38,Pos
    97. druecketaste "[field+]"
    98. schreibeText 12,26,Liefertermin
    99. druecketaste "[field+]"
    100. druecketaste "[enter]"
    101. druecketaste "[pf5]"
    102. druecketaste "[pf12]"
    103. end if
    104. Loop
    105. obj_File.close
    106. '---------------------------------------------------------------------------------------------------
    107. end sub
    109. Function GueltigeLiefertermin(eingabe)
    110. Dim i
    111. GueltigeLiefertermin = True
    112. If Len(eingabe) = 0 Then
    113. GueltigeLiefertermin = False
    114. Exit Function
    115. End If
    116. For i = 1 to len(Eingabe) Step 1
    117. Select Case mid(eingabe,i,1)
    118. Case "1","2","3","4","5","6","7","8","9","0"
    120. Case Else
    121. GueltigeLiefertermin = False
    122. End Select
    123. Next
    124. End Function
    126. Function Desktopfinden()
    127. Dim objShell
    128. Set objShell = CreateObject("WScript.Shell")
    129. Desktopfinden = objShell.SpecialFolders("Desktop")
    130. If Right(Desktopfinden,1) <> "\" Then Desktopfinden = Desktopfinden & "\"
    131. set objShell = Nothing
    132. End Function
    134. Sub warten (wartedauer)
    135. wai()
    136. autECLSession.autECLPS.Wait(wartedauer)
    137. wai()
    138. End Sub
    140. sub wai()
    141. autECLSession.autECLOIA.WaitForAppAvailable
    142. autECLSession.autECLOIA.WaitForInputReady
    143. end sub
    145. Sub schreibeText(eingabezeile, eingabespalte, eingabetext)
    146. wai()
    147. autECLSession.autECLPS.SetCursorPos eingabezeile, eingabespalte
    148. wai()
    149. autECLSession.autECLPS.SendKeys (eingabetext)
    150. wai()
    151. End Sub
    153. Sub druecketaste (eingabetaste)
    154. wai()
    155. autECLSession.autECLPS.SendKeys (eingabetaste)
    156. wai()
    157. End Sub
    159. Function leseBildschrim(eingabezeile, eingabespalte, eingabelaenge)
    160. wai()
    161. leseBildschrim = autECLSession.autECLPS.GetText(eingabezeile, eingabespalte, eingabelaenge)
    162. wai()
    163. End Function
    165. Function ZeichenZaehlen(str_Eingabe, str_Zeichen)
    166. Dim i
    167. ZeichenZaehlen = 0
    168. For i = 1 To Len(str_Eingabe) Step 1
    169. If Mid(str_Eingabe, i, 1) = str_Zeichen Then
    170. ZeichenZaehlen = ZeichenZaehlen + 1
    171. End If
    172. Next
    173. End Function
    175. Function IsItLFRND(Eingabe)
    176. IsItLFRND = False
    177. If IsNumeric(Eingabe) = True AND Len(Eingabe) = 7 AND Mid(Eingabe,1,1) = "9" Then
    178. IsItLFRND = True
    179. End If
    180. Dim tempz
    181. For tempz = 2 to 7 Step 1
    182. If Mid(Eingabe,tempz,1) <> "1" AND Mid(Eingabe,tempz,1) <> "2" AND Mid(Eingabe,tempz,1) <> "3"_
    183. AND Mid(Eingabe,tempz,1) <> "4" AND Mid(Eingabe,tempz,1) <> "5" AND Mid(Eingabe,tempz,1) <> "6"_
    184. AND Mid(Eingabe,tempz,1) <> "7" AND Mid(Eingabe,tempz,1) <> "8" AND Mid(Eingabe,tempz,1) <> "9"_
    185. AND Mid(Eingabe,tempz,1) <> "0" Then
    186. IsItLFRND = False
    187. End If
    188. Next
    189. End Function

    woran kann das liegen?

    Code-Tags eingefügt und Farbe korrigiert ~ EaranMaleasi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()

    Ich gehe davon aus, dass du dich mit deinen übergebenen Parametern von SetCursorPos (Zeile, Spalte) außerhalb des Presentation Space bewegen willst.
    Ansonsten habe ich weder PComm zur Hand noch die Euphorie, mich durch den Wust an unformatiertem Code zu hangeln.
    Hat PComm sowas wie eine IDE mit Debugger?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Danke für die info! Ist der erste code den ich vollständig reinkopiert habe.

    Mit setcurserposition bewegt man sich innerhalb des programmes, mich wundert es nur, das es ca. 70 mal klappt und dann nicht mehr, obwohl immer dasselbe abgerufen wird.
    Kann es sein, das durch laggs die prozedur durcheinander geworfen wird? Dann würde ich alle 10 sätze eine pause in die schleife bauen.

    Florian_K148 schrieb:

    Kann es sein, das durch laggs die prozedur durcheinander geworfen wird? Dann würde ich alle 10 sätze eine pause in die schleife bauen.
    Kann sein.
    Da hier wahrscheinlich keiner PComm und schon gar nicht deine Host-Umgebung zur Verfügung hat, bist du der einzige, der das testen kann.
    Versuch's und berichte, ob's geholfen hat.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich glaube ich habs.
    Das Problem ist nicht der Code, sondern dass ich gestern über einen VPN Tunnel vom HomeOffice auf mein Arbeits PC zugegriffen habe. Das Internet hat scheinbar die Befehle nicht schnell genug verarbeiten können.
    Denn: Grad im Büro lief alles ohne Probleme.

    Falls dennoch Probleme auftreten sollten, die ich lösen kann schreibe ichs hier noch dazu, dann können andere das auch finden.

    VG
    Florian

Facebook
Telefonspende