mnakos

Κατερίνα - How to debug

May 26th, 2021 (edited)
1,288
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '----------------------------------------------------------------------------------------------------
  2. Function AfterPos1(pos, InputBuffer)
  3.     AfterPos1 = InputBuffer
  4. End Function
  5. '----------------------------------------------------------------------------------------------------
  6.  
  7. Dim originalStr
  8. Dim processedStr
  9.  
  10. originalStr = "5013 184246E40201001"
  11. processedStr = AfterPos1(21, originalStr)
  12. WScript.echo(originalStr)
  13. WScript.echo(processedStr)
  14.  
  15. ' Το 21 που βάζω όταν καλώ την AfterPos1, είναι η θέση του χαρακτήρα τερματισμού μέσα στο string
  16. ' Για να τρέξει το script πρέπει να έχει όνομα με κατάληξη .vbs, πχ: sc1.vbs
  17. ' Έτσι, από command-line (εφόσον είσαι στο φάκελο που υπάρχει το script) τρέχεις
  18. ' cscript sc1.vbs
RAW Paste Data