Batya
|
 Posted: Fri Jul 24, 2009 11:39 Post subject: |
 |
|
| Tol!k wrote: | | Но было бы лучше, если бы одиночные символы не пропадали, а оставались бы в имени файла не считаясь словами |
Специально для тебя: | Code: | Function GetSomeWords(pText, pNumWords)
Dim regEx, lM, lNum
Set regEx = New RegExp
regEx.Pattern = "\S{2,}"
regEx.Global = True
If regEx.Test(pText) Then
Set lM = regEx.Execute(pText)
If lM.Count < pNumWords Then
lNum = lM.Count
Else
lNum = pNumWords
End If
GetSomeWords = Left(pText, lM.Item(lNum-1).FirstIndex + Len(lM.Item(lNum-1).Value))
Set lM = Nothing
Else
GetSomeWords = ""
End If
Set regEx = Nothing
End Function |
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Fri Jul 24, 2009 18:19; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
