Function GetFileName(pText)
Dim lText, lPos, Char
lPos = InStr(pText, vbNewLine)
If lPos > 0 Then
lText = Left(pText, lPos - 1)
Else
lText = pText
End If
For Each Char In CharArr
lText = Replace(lText, Char, ReplaceChar)
Next
GetFileName = Trim(lText)
End Function
_________________ Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Fri Oct 23, 2009 13:39; edited 1 time in total
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
