後ろからの文字列検索 (ID:83042)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 private function Filename(Pass) As string dim i as integer for i=len(Pass) to 1 step -1 if mid(pass,i,1)="\" then exit for enf if next if i<>len (pass) Filename=mid(Pass,i,len(Pass)-i) end if exit function