|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String3 F, ^# w! N& @2 M) p
' e5 ?# B; a R' P+ [Dim x%, ct%
+ V5 w" _; O4 E) b9 v
0 ?2 y, B, p. D1 YStripPath$ = T$
4 \ J1 N, a- D- Z d9 { C! G1 G5 t* @5 V/ {$ [' t& q! u$ _8 Z1 I
x% = InStr(T$, "\")
# X4 [9 Z' Y- M ]$ ~3 j
( Q0 J+ s( A+ Z5 z" _Do While x%4 Y: G0 L9 N6 O0 [* O) H& V5 X
: j+ q# e0 Z. Y! ^ct% = x%
) y _; u( P5 g* T# O; e3 `0 U
1 u& L0 u9 A+ x" zx% = InStr(ct% + 1, T$, "\")
1 q: T; [* l1 o6 h- y5 M4 n ~
4 s3 O& T# J- r g1 ULoop- j) |: A7 Z: c' b6 l
. ~7 {# r5 V5 H g/ v
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
, ?+ N& _' _$ w( x1 o0 u! b3 G4 c9 Z6 M9 `. x4 Y% u; w3 Z
End Function
6 H1 j* c W$ |/ z* F: e1 B( q8 ?2 J
例子:/ n; q% ?# l8 C
% A+ N' E: E( z# ?1 ]& D
File = StripPath("c:\windows\hello.txt")$ C h% y/ Q+ j+ M& a! {* d
6 K" {. H) A: a: X/ f( ~
8 c; Z5 h/ `( F$ u- @; h9 Y从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|