Помогите вытащить информацию из файла...

[Александр80]

Помогите пожалуйста…
Есть файл проекта программы Adobe Premiere, мне нужно из этого файла проекта вытащить путь к файлам которые используются в этом проекте. (Путь заранее не известен....)

Путь прописан так (пример):
fname=E:\\VIDEO\\Video.avi

Если честно, я не ожидал “\\”. Из двух нужно сделать “\” (один)
Задача добавить в LIST - “E:\VIDEO\Video.avi”
Пробую работать с InStr(). Пока не получается.
Подскажите пожалуйста…

[KDima]

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

Mid(Replace(filename, "\\", "\"), 7, Len(Replace(filename, "\\", "\")) - 1)

Оно?

[Александр80]

Оно. Балбес, я... Спасибо!

[Александр80]

Как выделить строку с 6 символа и до конца? (длина не известна).
Кажется с помощью MID можно, но у меня не получается...

Dim Position As Double
Private Sub Command1_Click()
Position = InStr(Position + 1, Text1.Text, "fname=", vbTextCompare)
If Position > 0 Then
Text1.SelStart = Position - 1
Text1.SelLength = Len("fname=")
Text1.SelStart = 6 + Position - 1 'Cтавим курсор после fname=
А как сделать выделение до конца строки? Подскажите пожалуйста...
Text2.Text = Text1.SelText
Text1.SetFocus
End If
End Sub

[Ennor]

Выделить часть содержимого в текстовом контроле или вычленить из строковой переменной? Это разные вещи. Но, учитывая, что ты завел речь о Mid(), то могу сказать, что эта функция в справке прекрасно документирована.
С другой стороны, глядя на твой код, становится понятно, что тебя интересует первый вариант. В таком случае на месте строки красного цвета в твоем коде надо написать вот это:
Text1.SelLength = Len(Text1.Text)
Несмотря на кажущееся превышение суммарной длины строки, басик это проигнорирует (такой уж он всепрощающий, на наше счастье) и выделит твой текст до конца строки, причем даже не свалится с ошибкой, насколько я помню.

[Александр80]

Блин, я так уже пробовал.
Странно, но выделяется от "fname=" и до конца файла...

[Александр80]

Вот текст....

[FILE]
fileID=352
param=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
filetype=1096173910
vname=0
fname=0
isFramestore=0
prefLength=0
mediaType=3
prefHandle=
title=
pixelAspect=0
[FNAM]
fname=E:\\VIDEO\\osad Clip 28.avi
[PRID]
fileID=352
[FDAT]
frame=0,0,720,576
audvalue=355209
audscale=48000
audsamp=1
vidvalue=18500
vidscale=2500
vidsamp=100
depth=24
flags=3
audflags=768
pixelAspect=50332368
fieldType=3
fieldsStacked=0

[Александр80]

Прошу прощения, возможно я не корректно выражаюсь. Моя задача найти в тексте все пути к файлам... Поэтому я использовал переменную...(только для поиска). Когда текст "fname=" найден курсор ставится после знака "=" вот от него и нужно выделить до конца пути (строки).

И еще, маленькая поправка:
Double - не строковая переменная

[Александр80]

Ennor - спасибо за ответ

[Ennor]

Черт. У тебя весь файл загружается сразу, или построчно? Если первое, то конечно он выделит все до конца.
Тебе нужно провести поиск конца строки. Для этого вызови еще раз InStr(), но в качестве первого параметра используй свеженайденную позицию знака равенства, а в третьем - константу vbNewLine. После этого поставишь SelStart как обычно, а SelLength = Position2 - Position1 - 1 (насчет последнего слагаемого надо поиграться, я не уверен, что оно вообще нужно). Тогда у тебя выделится текст только до первого переноса строки.

[Александр80]

Ennor - спасибо я понял свою ошибку...
Спасибо тебе большое...

[Andrey Fedorov]

Вот текст....

[FILE]
fileID=352

Ну и что извращаться?
Это-же типичный INI-файл.

Ну и пользуй GetPrivateProfileString для получения значения нужного ключа. Примеров в интернете валом...

[Александр80]

Нет...
Это файл проекта программы Adobe Premiere 6.5 (программа для видео монтажа).Расширение файла - ".ppj".
Что туда запихала компания Adobe, я незнаю... Полный файл длинный, с кучей параметров... Да и какая разница какое это файл, даже если и INI ...

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

[alibek]

Разница большая. Юзаешь GetPrivateProfileString.

[Александр80]

Andrey Fedorov - а идея хорошая...(про GetPrivateProfileString) Попробую.
Спасибо...

[Александр80]

Простите, сразу не дошло...

[Drag]

Долго мучался, почему GetPrivateProfileString не работает. Через 15 минут дошло - файл не существует...