Function GetCurrentFileName(byval fullPathFlag as integer = 0) As USTRING Export
        dim as USTRING wsRet = WSPACE(512)
        GetModuleFileName(0,cast(any ptr , *wsRet),512)
        if fullPathFlag = 0 then
            wsRet = GetFilePart(wsRet)
end if
        Return wsRet
    End Function

#define UNICODE
#include "window9.bi"
#include "crt/string.bi"

#ifdef UNICODE
    function StrToken(byval s as wstring ptr, _ ' string to search for tokens
    byval delim as const wstring ptr, _ ' delimiting characters
    byval lasts as wstring ptr ptr _ ' stores information necessary for it to continue scanning the same string
    ) as wstring ptr  
        dim ch as integer
        
        if s = 0 then s = *lasts
        
        do
            ch = *s
            s += 1
            if ch =  0 then return 0
        loop while wcschr(delim, ch)
        s -= 1
        *lasts = s + wcscspn(s, delim)
        if **lasts <> 0 then
            **lasts = 0
            *lasts += 1
        end if
        return s
    end function
    
    function StringField(byval s as ustring, byval index as integer, byval delim as ustring) as ustring
        if index > 0 then
            dim nFields as integer = 1
            dim store as wstring ptr
            dim pch as wstring ptr = StrToken(strptr(s), strptr(delim), @store)
            while pch <> NULL
                if nFields = index then return *pch
                nFields += 1
                pch = strtoken(NULL, strptr(delim), @store)
            wend
        end if
        return ""
    end function
    
#else
    function StrToken(byval s as zstring ptr, _ ' string to search for tokens
    byval delim as const zstring ptr, _ ' delimiting characters
    byval lasts as zstring ptr ptr _ ' stores information necessary for it to continue scanning the same string
    ) as zstring ptr  
        dim ch as integer
        
        if s = 0 then s = *lasts
        
        do
            ch = *s
            s += 1
            if ch =  0 then return 0
        loop while strchr(delim, ch)
        s -= 1
        *lasts = s + strcspn(s, delim)
        if **lasts <> 0 then
            **lasts = 0
            *lasts += 1
        end if
        return s
    end function
    
    function StringField(byval s as ustring, byval index as integer, byval delim as ustring) as ustring
        if index > 0 then
            dim nFields as integer = 1
            dim store as zstring ptr
            dim pch as zstring ptr = StrToken(strptr(s), strptr(delim), @store)
            while pch <> NULL
                if nFields = index then return *pch
                nFields += 1
                pch = strtoken(NULL, strptr(delim), @store)
            wend
        end if
        return ""
    end function
#endif

' Проверочный пример
dim mystring as ustring = "Проверка текста на разделители. По идее, текст должен разделиться на слова."
for i as integer = 1 to 14 ' специально длиннее числа слов в тексте.
print StringField(mystring, i, " .,")
next

#define UNICODE
#include "window9.bi"

#undef wcstok
extern "C"
    declare function wcstok(as const wstring ptr ,  as const wstring ptr , as wstring ptr ptr) as wstring ptr
End Extern

' Проверочный пример
dim mystring as ustring = "Проверка текста на разделители. По идее, текст должен разделиться на слова."
dim as wstring ptr p
dim as USTRING us = *wcstok(*mystring, " .," , @p)

while len(us)
    ? Us  
    us = *wcstok(0, " .," , @p)
wend