本ページには広告が含まれています。
文字列を区切文字をもとに分解します。文字列（第二引数）は参照引数で書き換えられるので注意が必要です。
- 構文
- void = TOKEN( 区切文字, var 文字列, 区切方法, ダブルコーテイション )
- 引数
- 区切文字 （String）必須
- 文字列を区切る文字を指定（1文字単位で認識、"#$%" の場合は '#','$','%' の3つが区切り文字になる）
- 文字列 （String）必須
- 文字列は区切られた後、残りの文字列を返す
- 区切方法 （Boolean = False）省略可
- FALSE
- 区切り文字が連続していた場合でも一つずつ取り出す （デフォルト）
- TRUE
- 区切り文字が連続していた場合に連続した部分は削除
- ダブルコーテイション （Boolean = False）省略可
- FALSE
- "ダブルコーテイション"内も無視して区切る （デフォルト）
- TRUE
- "ダブルコーテイション"の文字は区切らない
- 戻り値
- 結果の文字列
使い方
DIM str = "http://www.example.com/aaa/bbb/"
REPEAT
PRINT TOKEN("/", str)
UNTIL !LENGTH(str)- 結果
http: www.example.com aaa bbb
プログラム実行例
オフライン作業取得
DIM WshShell = CREATEOLEOBJ("WScript.Shell")
TRY
// Ver11以上
DIM version = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\svcVersion")
EXCEPT
// Ver10以下
version = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version")
ENDTRY
IFB VAL(TOKEN(".", version)) <= 10 THEN
// Ver10以下
DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IFB IE.Offilne = TRUE THEN
PRINT "オフライン作業中です"
ELSE
PRINT "オフライン作業中ではありません"
ENDIF
IE.Quit
ELSE
// Ver11以上
PRINT "オフライン作業は利用できません"
ENDIF結果
オフライン作業は利用できません使用関数
メールアドレスをアカウント名とドメイン名にわける
DIM str = "info@example.com"
REPEAT
PRINT TOKEN("@", str)
UNTIL str = ""結果
info
example.com使用関数
英文を単語毎に分ける
DIM str = "History is within everyone, so living life is the best way to know history/people/life. History books should be written from this more open, organic perspective. Someone experiencing life is closer to true knowledge than someone who reads about it."
REPEAT
PRINT TOKEN(" .,/", str,TRUE)
UNTIL !LENGTH(str)結果
History
is
within
everyone
so
living
life
is
the
best
way
to
know
history
people
life
History
books
should
be
written
from
this
more
open
organic
perspective
Someone
experiencing
life
is
closer
to
true
knowledge
than
someone
who
reads
about
it使用関数