Опять эти строки....

[DirectXManiac]

Вот не знаю как сделать такое... Есть строка вида:
"C:\media\pak0.pkg\tex.jpg
Мне нужно узнать есть ли в этой строке какой-нить элемент с .pkg на конце(т.е. это файл а не папка) и найти то что за ним т.е. имя файла...
pak0.pkg в данном случае это пакетный файл, а tex.jpg это файл который нужно из него заэкстрактить если таковой имееться...
Искал в посике - не нашёл

[Konst_One]

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

arr=split(s,"\")
if right(arr(ubound(arr)-1),3)="pkg" then
debug.print arr(ubound(arr))
end if

[DirectXManiac]

Спасибо! Проверю...

[alibek]

Лучше InStrRev.

[DirectXManiac]

alibek
Можно подробнее... Я в строках ни бум-бум

[alibek]

FileExt = ".pkg"
P = InStrRev(FileName, FileExt)
If P > 0 Then
SubFile = Mid$(FileName, P + Len(FileExt))
FileName = Left$(FileName, P)
End If
MsgBox FileName & " => " & SubFile

[Twister]

Алибек, а код в теги заключить?

[uhm]

[offtop]

Twister, [year]2006[/year]



[/offtop]

UPD: чорт, не успел!!!

[alibek]

Старею... Склероз...

[CodeName33]

Konst_One, если строка будет такой "C:\media\pak0.pkg\folder\tex.jpg" то твой код не сработает. Вот такой вариант будет работать:

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

S = "C:\media\pak0.pkg\tex.jpg"
Arr = Split(S & "\", ".pkg\", 2, vbTextCompare)
Result = Mid$(Arr(1), 1, Len(Arr(1)) - 1)

[tyomitch]

А если строка будет такой: "C:\media.pkg\pak0.pkg\folder.pkg\tex.pkg"
Отгадайте, где здесь расширение папки, где расширение pak-файла, а где путь внутри него.

[Antonariy]

Уверен, что вложение пакетных файлов друг в друга не предусмотрено. Поэтому за файл берем последний .pkg

[alibek]

А если строка будет такой: "C:\media.pkg\pak0.pkg\folder.pkg\tex.pkg"
Отгадайте, где здесь расширение папки, где расширение pak-файла, а где путь внутри него.

Как только ты объяснишь, как по имени отличить папку от файла, так сразу же скажу

[tyomitch]

Antonariy, в паке может быть папка с названием folder.pak
А может быть даже файл с таким названием.

alibek, я как раз пытаюсь объяснить, что DirectXManiac взялся за заведомо неразрешимую задачу.

[Antonariy]

Я не сомневаюсь в том, что может. Я сомневаюсь в том, что будет.

alibek, я как раз пытаюсь объяснить, что DirectXManiac взялся за заведомо неразрешимую задачу.

Пфф... Что же в ней неразрешимого? Что есть файл, а что папка можно проверить, скормив путь до нее fso.File/FolderExists. А в pkg наверняка есть метка о том, что в нем за путь ".pkg/" - файл или папка.

[alibek]

alibek, я как раз пытаюсь объяснить, что DirectXManiac взялся за заведомо неразрешимую задачу.

... в общем случае. В частном она вполне разрешима.

[Antonariy]

Ааа... Темыч занимается любимым делом - выпасом сферических коней в вакууме

[tyomitch]

alibek, я как раз пытаюсь объяснить, что DirectXManiac взялся за заведомо неразрешимую задачу.

Пфф... Что же в ней неразрешимого? Что есть файл, а что папка можно проверить, скормив путь до нее fso.File/FolderExists. А в pkg наверняка есть метка о том, что в нем за путь ".pkg/" - файл или папка.

Вот именно такой подход и был бы верным решением поставленной задачи.
Обращаю внимание, что здесь анализируется не строка сама по себе, а её соотношение со структурой файлов на диске и внутри пака.

[DirectXManiac]

Спасибо! Всё решилось... tyomitch
Как быть с такими путями?

[tyomitch]

Как сказал Antonariy.

[DirectXManiac]

Сори! Недосмотрел!