Jak wiadomo amigowcom z zeszłowiecznym stażem, program Lzx został załatany tak w 2000 roku, że ma coś przestać działać po 2020 roku. Co dalej, nie wiadomo, może Mikołaj Całusiński napiszę następnego patcha, a może nie. W każdym razie jest problem ;)

Mam więc propozycję napisanie konwertera archiwum w formacie lzx na format .7z. Dlaczego akurat .7z? Ano dlatego, że program 7z jest ciągle rozwijany (w odróżnieniu od lzx), bardzo wydajny i do tego przenośny, tak że można się spodziewać następnych amigowych wersji. No i nie ma żadnego problemu z rozpakowaniem archiwum 7z na Windzie.

Tyle tytułem wstępu, ale do rzeczy: skrypt ma robić konwersję z format Lzx na 7z, sprawdzić prawidłowośc przepakowania, po czym posprzątać po sobie, opcjonalnie usunąć oryginał archiwum lzx.
Wszelkie inne pomysły w temacie mile widziane.

W zasadzie dobrze by było by przepakowywał z każdego innego formatu na 7z

S.s.t. (subiektywny stopień trudności) 4/10. ;)

• Odpowiedz

@Dopuser, post #1

• Odpowiedz

@cholok, post #2

• Odpowiedz

@Dopuser, post #3

• Odpowiedz

@cholok, post #4

• Odpowiedz

@Dopuser, post #5

.Key PathAN/A,ArcName/A,DestDir/A,TempDir
.Bra {
.Ket }

FailAt 21
; PathAN  - katalog, w którym znajduje się archiwum do przerobki (+nazwa archiwum) - dla DO będzie to {fu}
; ArcName - nazwa archiwum do przepakowania - dla DO będzie to {o}
; DestDir - katalog, w którym zapiszemy archiwum 7zip - dla DOpusa będzie to {d}
; TempDir - Katalog tymczasowy dla przepakowywanych plików - domyslnie T: - tu mozna poleciec DOpusowym {Rd} 

IF {TempDir}Brak EQ Brak
  SetEnv Arc27zTempDir T:
ELSE
  SetEnv Arc27zTempDir {TempDir}
ENDIF

CD $Arc27zTempDir

MakeDir Arc27zTD >NIL:
IF WARN
  Delete Arc27zTD ALL FORCE >NIL:
  MakeDir Arc27zTD >NIL:
ENDIF

xadUnFile {PathAN} Arc27zTD >NIL:

CD Arc27zTD

; Dokładna składnia dla 7zip - patrz dokumentacja archiwizera

7z a -r {DestDir}{ArcName}.7z
7z t {DestDir}{ArcName}.7z 
IF NOT WARN
  CD $Arc27zTempDir
  Delete Arc27zTD ALL FORCE >NIL:
ELSE
  ECHO "Archiwum 7zip uszkodzone. powtórz operację"
  CD $Arc27zTempDir
  Delete Arc27zTD ALL FORCE >NIL:
  CD {DestDir}
  Delete {ArcName}.7z FORCE >NIL:
ENDIF

• Odpowiedz

@APC74, post #6

Łoł, niczego sobie skrypcik. Zadanie było nieco podchwytliwe, bo sugerowałem przepakowywanie lzx jako zasadniczy cel programu.
Ale wpadłeś chyba na najprotszy i najlepszy pomysł by to zrobić całościowo, w sposób uniwersalny

Teraz czekamy na kogoś kto to przerobi na skrypt do Magellana ;)

• Odpowiedz

@Dopuser, post #7

Nie chciało mi się ściągać 7zipa, więc podstawiłem za niego LZX w skrypcie i na takich ustawieniach DOpusa działa (jako guzik):

• Odpowiedz

@APC74, post #8

• Odpowiedz

@APC74, post #6

• Odpowiedz

@Dopuser, post #10

• Odpowiedz

@cholok, post #11

A u mnie po próbie przepakowania lzx na 7z:

An error occured: filetype is unknown.
CadUnFile failed returncode 20.

Ręcznie w okienku CLI toż samo...

Ki diabeł...

• Odpowiedz

@Dopuser, post #12

• Odpowiedz

@cholok, post #13

• Odpowiedz

@Dopuser, post #10

• Odpowiedz

@Dopuser, post #10

• Odpowiedz

@APC74, post #16

• Odpowiedz

@Dopuser, post #17

• Odpowiedz

@APC74, post #18

• Odpowiedz