|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
, P% P2 g% L. L; J7 W4 [ [+ N. P2 C, _" `! f+ n# z
Dim x%, ct%
: K0 U- z! b1 g, F
4 ?7 u3 H, o0 Z3 PStripPath$ = T$$ @5 a* j! l3 ?$ \" X5 \
" ^6 e- c5 L) F6 ?( N. }
x% = InStr(T$, "\")4 s2 s* e8 W& _1 t
! s) f. i' A# C* G. a' P* @9 B
Do While x%! t }8 b. }" N* K
) G% z1 J' K8 B C act% = x%. Y4 f7 P; i7 F: [: M
- p, ]. X y' Q; v d* s) a9 ^( I
x% = InStr(ct% + 1, T$, "\")2 E( G, l- @9 f. Y& \
, M3 X& h8 ]$ x9 k& l, w
Loop. r7 r9 K3 A$ ^# k
4 K" l7 }$ w; j# p, j/ z
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
3 Y8 m5 \% t% B4 u
, C7 G5 _8 P2 ?' J3 d2 Y$ v, w1 TEnd Function1 H( R, V' L1 G9 X0 H* K. ^
8 l2 |: A2 e7 }/ m
例子：" E6 v& N) @8 J' ]0 [ Z& ]2 S
: b1 p1 C# Z2 y: MFile = StripPath("c:\windows\hello.txt")
6 G$ M- @$ T U4 [( H% j, M0 j; v
, x2 M% x1 N; s1 H5 _( c, S- _从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主