Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '----------------------------------------------------------------------------------------------------
- Function AfterPos1(pos, InputBuffer)
- AfterPos1 = InputBuffer
- End Function
- '----------------------------------------------------------------------------------------------------
- Dim originalStr
- Dim processedStr
- originalStr = "5013 184246E40201001"
- processedStr = AfterPos1(21, originalStr)
- WScript.echo(originalStr)
- WScript.echo(processedStr)
- ' Το 21 που βάζω όταν καλώ την AfterPos1, είναι η θέση του χαρακτήρα τερματισμού μέσα στο string
- ' Για να τρέξει το script πρέπει να έχει όνομα με κατάληξη .vbs, πχ: sc1.vbs
- ' Έτσι, από command-line (εφόσον είσαι στο φάκελο που υπάρχει το script) τρέχεις
- ' cscript sc1.vbs
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement