ªð¦^¦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 : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD