[转] ACCESS 97 类似 replace 及 split 函數

Function   replace (ByVal sstr  As   String , ByVal stag  As   String , ByVal srep  As   String )  As   String
     Dim  l1, l2, l3, x, i  As   Long
     Dim  st  As   String
    x  =   InStr (sstr, stag)
     If  x  <   1   Then
         replace   =  sstr
         Exit   Function
     End   If
    st  =  sstr
    l1  =   Len (sstr)
    l2  =   Len (stag)
    l3  =   Len (srep)
     For  i  =   0   To  l1
        st  =   Left (st, x  -   1 )  &  srep  &   Right (st,  Len (st)  -  x  -  l2  +   1 )
        x  =   InStr (x  +  l3, st, stag)
         If  x  <   1   Then   Exit   For
     Next
     replace   =  st
End Function

Function   split (ByVal sstr  As   String , ByVal spstr  As   String )  As  Variant
Dim  star, lenstr, lensp, cur  As   Integer
Dim  backstr()  As   String
Dim  i  As   Integer
ReDim  backstr( 0 )
lenstr  =   Len (sstr)
lensp  =   Len (spstr)
star  =   InStr (sstr, spstr)
If  star  <   1   Then
    backstr( 0 )  =  sstr
     split   =  backstr()
     Exit   Function
End   If
backstr( 0 )  =   Left (sstr, star  -   1 )
cur  =  star  +  lensp
For  i  =  star  +  lensp  To  lenstr
    star  =   InStr (star  +  lensp, sstr, spstr)
     If  star  >   0   Then
         ReDim  Preserve backstr( UBound (backstr)  +   1 )
        backstr( UBound (backstr))  =   Mid (sstr, cur, star  -  cur)
        cur  =  star  +  lensp
     Else
         Exit   For
     End   If
Next
ReDim  Preserve backstr( UBound (backstr)  +   1 )
backstr( UBound (backstr))  =   Mid (sstr, cur, lenstr  -  cur  +   1 )
split   =  backstr()
End Function  

temptation 2007-09-07 14:22 发表评论