- Category:
- Other systems
- Tags:
-
- File Size:
- 8kb
- Update:
- 2017-11-27
- Downloads:
- 0 Times
- Uploaded by:
- 张海涛
Description: Function
Dim d, s, R, i%
Set d = CreateObject("Scripting.Dictionary")
For Each R In t
s = s & R
Next
s = StrReverse(s) & "0123456789"
For i = 1 To Len(s)
d(Mid(s, i, 1)) = ""
Next
= Join(d.keys, "")
End Function
To Search:
File list (Check if you may need any files):
Filename | Size | Date |
---|
xianhoupaixu.xls | 34304 | 2017-11-27 |