'----------------------------------------------------------------------------------------------------
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
Comments
0 B
|👍
/👎
0 B
|👍
/👎