37 lines
960 B
Plaintext
37 lines
960 B
Plaintext
Dim As String argV(1 To 5)
|
|
Dim Shared As String t()
|
|
|
|
Sub Split (cadena As String, t() As String, sep As String = " ")
|
|
Dim As Integer i, j = 0
|
|
Dim As String word = ""
|
|
For i = 1 To Len(cadena)
|
|
If Mid(cadena, i, 1) <> sep Then
|
|
word &= Mid(cadena, i, 1)
|
|
Else
|
|
Redim Preserve t(j)
|
|
t(j) = word
|
|
word = ""
|
|
j += 1
|
|
End If
|
|
Next i
|
|
If word <> "" Then
|
|
Redim Preserve t(j)
|
|
t(j) = word
|
|
End If
|
|
End Sub
|
|
|
|
Split(Command, t())
|
|
|
|
#ifdef __FB_WIN32__
|
|
If Ubound(t) <> 3 Then
|
|
Print "Usage: "; Command(0); " <Followed by level, id, source string and description>"
|
|
Else
|
|
For i As Integer = 1 To 4
|
|
argV(i) = t(i-1)
|
|
Next i
|
|
Shell "EventCreate /t " & argV(1) & " /id " & argV(2) & " /l APPLICATION /so " & argV(3) & " /d """ & argV(4) & """"
|
|
End If
|
|
#else
|
|
Print "Not implemented for *nix, only Windows."
|
|
#endif
|