| |
автор: ELS (07.08.2006 в 00:00) |
|
| | Есть текстовое поле, примерно с таким значением -
C:IgorAvtorAccessОлимпПродажи по SKU (шт., грн., л).xls
необходимо вырезать из него название файла - "Продажи по SKU (шт., грн., л).xls"
Как не крутил InStr и Len - не могу...
Подскажите, пожалуйста. | |
| |
| |
| |
автор: osmor (07.08.2006 в 00:00) |
|
| | откопал Public Function FilePath(strFullName As String, blnDir As Boolean) As String
*******************************************************************
Author : Oleg Smorchkov
Date : 9 Декабрь 1998
Comments : Возвращает из строки полного имени файла(strFullName) имя файл (по умолчанию) или путь к файлу если blnDir = True
********************************************************************* On Local Error GoTo FilePath_ERR
Dim intPos As Integer, i As Integer
Dim strPath As String, strName As String
intPos = -1
For i = Len(strFullName) To 1 Step -1
If Mid$(strFullName, i, 1) = "" Then
intPos = i
Exit For
End If
Next
If intPos <> -1 Then
strPath = Left$(strFullName, intPos - 1)
strName = Right$(strFullName, Len(strFullName) - intPos)
Else
strName = strFullName
End If
FilePath = IIf(blnDir, strPath, strName)
FilePath_EXIT:
Exit Function
FilePath_ERR:
MsgBox "Ошибка #: " & Format$(Err.Number) & vbCrLf & Err.Description, vbInformation, "FilePath"
Resume FilePath_EXIT
End Function | |
| |
| |
| |
автор: ELS (07.08.2006 в 00:00) |
|
| | Re: откопал Олег, а что делает эта процедура?
Как я понял, перебирает текст, пока не найдет последний символ "", а потом от него отсчитывает количество символов до конца текста и вырезает его?
Как пользоваться, подсткажите... | |
| |
| |
| |
автор: ELS (07.08.2006 в 00:00) |
|
| | Разобрался - спасибо!!! Разобрался - спасибо!!! | |
| |
| |
| |
автор: ???????? (08.08.2006 в 00:00) |
|
| | Re: Нарезка текстового поля Вопрос: WizHook: Разбить полное имя файла на составляющие
Совет:
ae 01.00.01 040229
Public Function SplitPathFile(strPath As String)
Dim strDrive As String, strDir As String, strFile As String, strExt As String
WizHook.Key = 51488399
WizHook.SplitPath strPath, strDrive, strDir, strFile, strExt
Debug.Print "Диск: " & strDrive
Debug.Print "Каталог: " & strDir
Debug.Print "Имя файла: " & strFile
Debug.Print "Расширение файла: " & strExt
End Function
===============
Пример
===============
?SplitPathFile("C:Microsoft OfficeOffice2000Office1049UTILITY.MDA")
Диск: C:
Каталог: Microsoft OfficeOffice2000Office1049
Имя файла: UTILITY
Расширение файла: .MDA | |
| |
| |
| |
автор: Andrew (08.08.2006 в 00:00) |
|
| | Гдето взял и пользуюсь ею Public Function GetWorkFile(Optional ByVal pathStr$ = "") As String
эта ф-я получает имя файла из пути с файлом
Dim i As Long
If Trim(pathStr) <> "" Then
pathStr = Split(pathStr, "")(UBound(Split(pathStr, "")))
Else
pathStr = "ФайлБезИмени"
End If
GetWorkFile = pathStr
End Function | |
| |
| |
