|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
) g, ~9 j. E) B V3 T) ^" C; Q, `9 }& n8 u9 m5 s8 y
Dim x%, ct%. Y$ ~$ w' e1 X* e+ h+ {
& L8 \7 C& ^" o( T3 M" |$ \5 }+ z% {: fStripPath$ = T$
9 @7 g& @, ]% j' ?- z! ?- t6 R/ W! {
x% = InStr(T$, "\")% [, y% _- v9 s. j' q+ A6 R3 U
& x/ o; |5 @0 |% \
Do While x%2 T/ h, H5 k. t K i( b
8 J6 `2 e8 F$ j4 O1 R
ct% = x%7 k8 b) H- j2 ^
- s3 G8 s" H; O9 C3 \
x% = InStr(ct% + 1, T$, "\")
; {- U) @+ G t" k5 Z% M( [! k& q% ^& w3 r& c' I# L
Loop
9 ^( f) G' g5 D, a- B* X8 `( F, ?: A% ^; p' Q$ W$ c2 n( S. }
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1); W4 u# R5 C5 T' f) ?
k5 ~! Y! \# ^! g# g& K+ ]/ B2 tEnd Function" i/ m2 U7 B$ |& T# q9 Q# z
# d% }' v3 D# B) G, a
例子：
8 m1 k/ s$ u- m( ^9 A: A, a; F+ G# N* b' n9 ~
File = StripPath("c:\windows\hello.txt")( {' e3 H8 w- y) W6 S- ]
5 k, ~/ t/ ]& t0 H* Q
& F5 I2 `! G1 t; }; d1 b从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主