代表者の戯言

この文字はどこにあるのだ?




連続する文字があったとする。その文字の中に、とある文字は一体、どこにあるのか?を検索するには下記の方法をお勧めする。


例)ABCDEFGHIJKの中からIの文字が何個目に存在するかを知りたい。

Dim pos as integer=-1

Inputtext="ABCDEFGHIJK"

Do while true

Pos=inputtext.indexof("I",pos+1)

If pos=-1 then

Exit do

End if

Messagebox.show(pos+1 & "文字目に見つかりました","通知")

Loop