;; stringexplode.txt - 25.01.2003 by Mockey
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Script that mimics the PHP-function explode() with PowerPro-vectors
;; vector-plugin (vec.dll) has to be installed
;; usage:
;; myArr = .stringexplode(separator, string)
;; creates a new vector by dividing a string into several elements
;; using a separator, returns a handle to that vector
;; i.e. .stringexplode("-", "test1-test2-test3")
;; returns vector with elements "test1", "test2", "test3"
;; important: the resulting vector should be destroyed after usage!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
eText = arg(2)
v = vec.create(10, 10)
For (i = 0; i >= 0; i = i + 1)
If (index(eText, arg(1)) do
ePart = select(eText, index(eText, arg(1)) - 1)
eText = remove(eText, index(eText, arg(1)) + length(arg(1)) - 1)
vec.set(v, i, ePart)
Else
vec.set(v, i, eText)
break
EndIf
EndFor
Quit(v)
if ((activewindow "=explorer")) Do
Window Min active
Else
if ((activewindow "*ACDSee v3.1,EditPlus - *") or (activewindow "=hh.exe")) Do
Window Close Active
Else
keys {slow}{esc}
Endif
Endif
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2