Jar архивы

[exp.]

Подскажите как через VB выдрать файл, который упакован в jar архив и лежит(файл) по адресу archive.jar/META-INF/MANIFEST.MF ??
То есть тупо нужен MANIFEST.MF.

[Wolfie]

Ну ясное дело - найти библиотеку для работы с архивами JAR или программу - которой через командную строку передать путь для временной распаковки а потом взять этот файл... можно кажется и RAR посмотреть насчет командной строки...

[exp.]

мне нужен именно 1й вариат т.е.найти библиотеку для работы с архивами JAR.
нужно поискать.
ну если кто знает где есть, не полеитесь подсказать.

[GSerg]

Наверное, есть ещё люди, которые не знают, что jar - это zip...

[exp.]

GSerg
thank

[Andrey Fedorov]

мне нужен именно 1й вариат т.е.найти библиотеку для работы с архивами JAR.
нужно поискать.
ну если кто знает где есть, не полеитесь подсказать.

Да нафига? Никогда не ищу библиотек. Как правило у всех архиваторов есть консольные версии работающие с командной строкой. Консольную программу можно запускать через CreateProcess без создания окна. Что еще надо-то? Мне всегда этого хватало...

[exp.]

охота все сделать силами программы, без обращения во вне.
вот нашел ресурс http://zlib.net/manual.html
помогоите разобраться.(нужно только uncompress)

[Andrey Fedorov]

охота все сделать силами программы, без обращения во вне.
вот нашел ресурс http://zlib.net/manual.html
помогоите разобраться.(нужно только uncompress)

А компонент - это не обращение вовне? Также отдельный файл.

[VVitafresh]

Да нафига? Никогда не ищу библиотек. Как правило у всех архиваторов есть консольные версии работающие с командной строкой. Консольную программу можно запускать через CreateProcess без создания окна. Что еще надо-то? Мне всегда этого хватало...

Прогрессбар, наверное, не прикрутишь к консольному архиватору...

[Andrey Fedorov]

Прогрессбар, наверное, не прикрутишь к консольному архиватору...

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

[exp.]

так ничего и не получилось

по совету tyomitch'a нашел zlibwapi.dll и примеры тоже есть
но так ничего и не понял.

как использовать для разорхивации эту dll?

[schalexey]

exp.
гугл в помошь:
http://www.google.com/search?client=ope ... 8&oe=utf-8

ActiveZip не плохой компонент... одно время его использовал...
ЗЫ есть примеры на VB

[exp.]

ActiveZipschalexey

спасибо с ним действительно легко работать
и разобраться в нем не составит труда даже такому новичку как я.

и последнее, чего мне е хватало:
как сделать Drag&Drop файлов на форму,
чтобы адрес возвращялся переменной.

[schalexey]

exp.
Ставишь у формы параметр OLEDropMode = Manual

потом в событии формы:

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


Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
FileName=data.Files(1) ' адресс первого файла из перенесенных
End Sub

[exp.]

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

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

Option Explicit
    Dim P As Integer
    Dim txt As String
    Dim intFH As Byte
    Dim strNumber As Byte
Private Sub btn_open_Click()
    P = 1
    intFH = FreeFile
    Open "e:\MANIFEST.MF" For Input As intFH
        Do Until EOF(1)
            strNumber = strNumber + 1
            Line Input #intFH, txt
            If InStr(P, txt, "MIDlet-Permissions:") <> 0 Then
                Close #intFH
                GoTo m2
            Else
                GoTo m1
            End If
m1: Loop
    Close #intFH
    Exit Sub
m2: Open "e:\MANIFEST.MF" For Random As intFH
        Put #intFH, strNumber, ""
    Close #intFH
End Sub

[exp.]

schalexey
забыл поблагодарить..
ты просто не представляешь как меня выручаешь
спасибо огромное..

[Viper]

exp.

Ужасный код... сам то понял что он делает?

З.Ы. и зацени кнопку Правка

[schalexey]

exp. тебе никто никогда не говорил что GOTO использовать это "дурной тон"... есть другие способы прерывания циклов это был раз;)
А теперь два: код и не будет работать )) не правильно организована работа с файлом. (читай про произвольный доступ к файлам). => строка удаляться и не будет.

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


Private Sub btn_open_Click()
Dim FIn As Integer
Dim FOut As Integer
Dim txt As String
Dim strFin As String
strFin = "e:\MANIFEST.MF"
    FIn = FreeFile
    Open strFin For Input As FIn
    FOut = FreeFile
    Open strFin & "_" For Output As FOut
        Do Until EOF(FIn)

            Line Input #FIn, txt
            If InStr(txt, "MIDlet-Permissions:") = 0 Then
                Print #FOut, txt
            End If
        Loop
       
    Close #FIn
    Close #FOut
    Kill (strFin)
    FileCopy strFin & "_", strFin
    Kill (strFin & "_")
End Sub


Должно быть примерно так... проверь... ошибок не выдает но не проверял на работоспособность, не на чем.

[exp.]

нет не получается:
file already open...

[schalexey]

нет не получается:
file already open...

Ай.. точно... смотри исправил код

[exp.]

schalexey
спасибо за совет, но я уже сделал еще проще:
создал коиейнер,потом слил в тот-же файл.