Тупик с обработкой пути файла

[|kerish|]

Есть путь файла и мне нужно проверить его существование.
Я использую Dir или апишную PathFileExist и всё нормально.
Но загвоздка в том, что у меня в строковом массиве есть и пути к исполняющим файлам с командной строкой в конце, типа "D:\Prog.exe /setup" или даже вот такие "D:\Prog.exe C:\install.log".
Короче, я стал в тупик, так как не могу обработать строку, убрав лишнее и оставив только путь.
Помогите!

[GSerg]

Private Declare Sub PathRemoveArgs Lib "shlwapi.dll" Alias "PathRemoveArgsA" (ByVal pszPath As String)

[CodeName33]

|kerish|, плохой тон так писать командную строку: D:\Prog.exe C:\install.log
Ковычки надо ставить и проблемы решаться: "D:\Prog.exe" C:\install.log

[CodeName33]

GSerg, Но писать без ковычек всё равно плохо, у пользователя может легко быть файл "C:\1.exe a" - хоть и маловероятно, но файловая система это позволяет...

[|kerish|]

GSerg Большое спасибо, а то я задрался свои функции для обработки придумывать.
CodeName33 Это не я так пишу. Массив с путями мне дан извне.

[Alexanbar]

По моему, нужно искать первый попавшийся пробел, начинаяя сначала, если строка не начинается с кавычек, в противном случае, искать, где есть вторая кавычка. Это и будет путь к исполнимому файлу. Т.е, иначе говоря, правой границей пути к файлу будет либо пробел, либо вторая кавычка.

[|kerish|]

Alexanbar Пробел может быть даже в названии папки (например "Program Files"). Поэтому эта идея отпадает.
GSerg А как использовать эту процедуру?

[GSerg]

s="D:\Prog.exe C:\install.log"
PathRemoveArgs s
s=left$(s,instr(1,s,vbnullchar)-1)

[|kerish|]

Двойное спасибо.

[|kerish|]

Блин, полный облом. Даже PathRemoveArgs, коряво работает с путями, где встречаются пробелы. Всё, что после пробела кажется ему аргументом.

[Alexanbar]

Alexanbar Пробел может быть даже в названии папки (например "Program Files"). Поэтому эта идея отпадает.
GSerg А как использовать эту процедуру?

Такие папки заключаются в кавычки. Соответственно, вместо пробела ищется вторая кавычка.

[VERITAS]

|kerish| попробуй вот это - не судите, на скорую руку сделал

Код: Выделить всё

Private Function InfazePAthDet(sString As String) As String
Dim i As Integer, n As Integer
Dim b$
Dim c$
n = 5
For i = 1 To Len(sString)
  b$ = Mid(sString, i, 1)
    If b$ = "." Then
        Do While n < Len(sString) - i
            b$ = Mid$(sString, i, n)
            If Right$(b$, 1) = " " Then InfazePAthDet = c$ & Trim$(b$): Exit Function
            n = n + 1
        Loop
    End If
  c$ = c$ & b$
Next i
End Function

[ALX_2002]

Брат, может я не в тему, но а почему бы не выполнить необходимое действие с файлом, а в случаее ошибки вывести мессагу, что его нет или что он недоступен.

типа

Код: Выделить всё

Sub SUB1()
On error Goto ERROR

'..действия со строкой (выполнение)

Exit Sub
ERROR:
msgbox err.description
End Sub


Или всё сложнее ?

[|kerish|]

ALX_2002 Нужно всего лишь узнать, существует этот файл или нет. А команды Dir и PathFileExist с аргументами работать не могут.

[Andrey Fedorov]

ALX_2002 Нужно всего лишь узнать, существует этот файл или нет. А команды Dir и PathFileExist с аргументами работать не могут.

Если кавычек нет, то можно просто проверять на существование файлы с возможными именами, начиная с самого длинного...

В общем, попробуй - набросал на скорую руку:

Код: Выделить всё


    If FileAExists("C:\Temp\MPsetupXP.exe  i nstall", ss) Then
        Debug.Print "File Exists: " & ss
    Else
        Debug.Print "File Not Exists"
    End If

Public Function FileAExists(ByVal sPath As String, sFilePath As String) As Boolean
    Dim i As Integer
    sPath = Trim$(sPath): sFilePath = vbNullString
    If Left$(sPath, 1) = """" Then
        i = InStr(2, sPath, """")
        If i Then
            sPath = Mid$(sPath, 2, i - 1)
        Else
            sPath = Mid$(sPath, 2)
        End If
    Else
        i = InStr(sPath, """")
        If i Then sPath = Left$(sPath, i - 1)
    End If
    Do
        If FileExists(sPath) Then
            FileAExists = True
            sFilePath = sPath
            Exit Function
        End If
        i = InStrRev(sPath, " ")
        If i = 0 Then Exit Do
        sPath = RTrim$(Left$(sPath, i - 1))
    Loop
End Function

Public Function FileExists(sFile As String) As Boolean
    On Error Resume Next
    FileExists = ((GetAttr(sFile) And vbDirectory) = 0)
    If Err.Number Then Err.Clear
End Function


[|kerish|]

Всем спасибо.

[Sedge]

А если такой вариант:

Код: Выделить всё

Public Function ExtractFileName(ByVal sFName As String) As String
'
On Error GoTo eRes

'//////////////////////////////////////////////////////////////////////////////////////
  Dim sTArray() As String, j As Long
  Dim sTString As String
'//////////////////////////////////////////////////////////////////////////////////////

sFName = Replace(Trim(sFName), Chr(34), "", , , vbTextCompare)
sTArray = Split(sFName, " ", , vbTextCompare)
sTString = ""
For j = 0 To UBound(sTArray)
  sTString = sTString & " " & sTArray(j)
  If Dir(Trim(sTString)) <> "" Then
    ExtractFileName = sTString
    Exit Function
  End If
Next
ExtractFileName = ""

Exit Function
eRes:
  MsgBox Err.Description
  Resume Next
End Function


[Andrey Fedorov]

А если такой вариант:

Можно и так, только надо поправить - между словами может быть несколько пробелов...

А вообще по правилам путь содержащий пробелы обязательно должен быть заключен в кавычки. Если путь начинается без кавычек, то просто ищем первый пробел.

[Sedge]

Код работает и с несколькими пробелами в пути.
Кавычки искать конечно можно... Но так все выглядит более изящно. ИМХО.
Да и на стандарты - дело темное.

[Andrey Fedorov]

Да и на стандарты надеятся не всегда можно.

Ну в первую очередь их надо соблюдать самому.
Иначе откуда возьмется такая строка?

IMHO вряд ли при создании того-же ярлыка вы сможете ввести аналогичную строку...

А поощрять юзера к неверному вводу разгребая за него конюшни тоже не есть хорошо - лучше уж просто разделить ему для ввода путь к файлу и командную строку...

[Sedge]

Ну вот смотри - полторы минуты копания в реестре:
C:\Program Files\ATnotes\ATnotes.exe -lang -dcfile:lng.ru
Ни одной кавычки, хотя пробел в пути наличиствует.
Так что стандарты - это хорошо и правильно, но надеятся на то, что каждый будет их соблюдать - верный путь к глючному коду.

[Andrey Fedorov]

Ну вот смотри - полторы минуты копания в реестре:
C:\Program Files\ATnotes\ATnotes.exe -lang -dcfile:lng.ru
Ни одной кавычки, хотя пробел в пути наличиствует.
Так что стандарты - это хорошо и правильно, но надеятся на то, что каждый будет их соблюдать - верный путь к глючному коду.

Ну в своей программе ты их-то соблюдать можешь и должен. Тогда таких проблем не будет.

Другое дело когда нужно обрабатывать пути чужих программ (случаи аналогичные приведенному выше). Тогда, конечно, придется крутиться - тут никуда не денешься...

[Юстас]

Если аргумент командной строки - имя файла, то в командной строке будет больше, чем 1 символ ":", отмотав от второго назад до пробела, получается первый аргумент ком.строки, от третьего назад до пробела - второй и т.д. Так можно разгрести любое количество имен, передаваемых с ком.строкой.