ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó¨Ï¥Î VBA ¨Ó¸ü¤J¤@­ÓÀɮרæb¯S©wÀx¦s®æ¨q¥XŪ¤JªºÀɦW (¤£§t¸ô®|)

¹B¥Î¤@¤U³o´X­Ó¨ç¼Æ¡A´N¥i»´ÃP¹F¦¨³á~
InStr
InStrRev
Mid

MsgBox (Mid(Range("A1"), InStrRev(Range("A1"), "\") + 1, InStr(Mid(Range("A1"), InStrRev(Range("A1"), "\") + 1), ".") - 1))

A1=C:\test\short.txt
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD