|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String0 p) M+ S3 |+ B: \& \! D
9 K+ _5 i# v. P% o5 ]9 Y, E
Dim x%, ct%
8 g) w: x$ ]1 i
+ `: K. b5 q6 C7 c: P `StripPath$ = T$
; ^! a+ ^* D( `3 J8 ?9 Y
. a7 j( ?+ z5 y3 \ \( C! |0 Hx% = InStr(T$, "\")
% J2 w- q. \6 t' A+ C3 I
! E4 B& r" ~) l& l: H" GDo While x%9 }5 H5 |7 s8 m1 r6 h: o. h
3 B) d% L" n! v! _+ ~
ct% = x%' o/ W# F0 u% l/ @
. b) S$ Z4 f* L3 a7 k; {0 U
x% = InStr(ct% + 1, T$, "\")9 l* `, a! A; F; ~* K" K
3 v8 L4 n, {/ U, ]* a1 ^
Loop9 h& y% p3 d0 J _/ z! i
, \( |. B& H( d/ A" w" t& B1 g
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)* _' {# A9 f4 v! ]! i
7 ]2 r6 I# G& u5 M1 f' H
End Function& W" I8 V" R2 M1 a* f# Y
0 [- X0 a e. {0 C1 ?
例子：
+ O7 H, N( Y- }5 O5 N+ e4 v$ S2 _/ T4 ~( C# ] n) I1 L
File = StripPath("c:\windows\hello.txt")6 d6 ^! w; U2 k" L5 v3 n5 j' @
* a! A9 ^1 A" u
/ l8 Y: V- e7 G/ ^% k! O
从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主