後ろからの文字列検索

初心者です 2004-04-16 19:32:55 No: 83040

後ろからの文字検索をして、指定の文字列を取得したいんです。

文字列＝１２３４５¥あああああ¥２２２２２¥うううう.txt

文字列のパスから、ファイル名部分のみを取得したいんです。（うううう.txt）のみ
”¥”で検索をしても、たくさんでてきてしまいますし、どうすればいいんでしょうか？

GOD 2004-04-16 19:48:43 No: 83041

InStrRev 関数を使用すればいいですよ。

samu 2004-04-16 20:15:10 No: 83042

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

マフユ 2004-04-16 20:44:35 No: 83043

Option Explicit
Dim tmp As String
Dim File_name As String
Dim dat() As String

Private Sub Command1_Click()

tmp = "１２３４５\あああああ\２２２２２\うううう.txt"

dat = Split(tmp, "\")
File_name = dat(UBound(dat))
Label1.Caption = File_name

End Sub

のびたとか言うな 2004-04-16 21:50:23 No: 83044

'シンプルに

Private Sub Form_Load()
tmp = "１２３４５\あああああ\２２２２２\うううう.txt"
MsgBox Mid(tmp, InStrRev(tmp, "\") + 1)
End Sub