PipiFax-ZIP-Include [all OS]

[DROOPY]

Code: Alles auswählen

Procedure.s ConformationAsciiEtenduVersAscii(Text.s)
  ReplaceString(Text,Chr(130),"é",2)
  ReplaceString(Text,Chr(135),"ç",2)
  ReplaceString(Text,Chr(131),"â",2)
  ReplaceString(Text,Chr(133),"à",2)
  ReplaceString(Text,Chr(136),"ê",2)
  ReplaceString(Text,Chr(137),"ë",2)
  ReplaceString(Text,Chr(138),"è",2)
  ReplaceString(Text,Chr(140),"î",2)
  ReplaceString(Text,Chr(150),"û",2)
  ReplaceString(Text,Chr(151),"ù",2)
  ReplaceString(Text,Chr(240),"-",2)
  ReplaceString(Text,Chr(242),"=",2)
  ReplaceString(Text,Chr(255)," ",2)
  
  ; Nettoie des caractères < 31
  For n=1 To 31
    If n=9 : Continue : EndIf
    If n=10 : Continue : EndIf ; LF fout la zone je le supprime
    ; If n=13 : Continue : EndIf 
    ReplaceString(Text,Chr(n),"",2)
  Next
  
  ProcedureReturn Text
EndProcedure

this code could be multi-os ?

Could you check this zip file please http://droopylib.pagesperso-orange.fr/test.zip
This archive can't be extrated successfully

Regards

[HeX0R]

this code could be multi-os ?

Didn't my version above work for you?

Could you check this zip file please http://droopylib.pagesperso-orange.fr/test.zip
This archive can't be extrated successfully

I don't have any problems with this zip.

[DROOPY]

Nice works again Hex0r

Your code works like a charm.

Just remain a problem extracting empty files (size of 0), which won't be extracted.

Could you look @ this ?

Regards

[HeX0R]

Just remain a problem extracting empty files (size of 0), which won't be extracted.
Could you look @ this ?

Should be fixed.

[DROOPY]

empty files are now correctly extrated.

Just remain a little problem, the function return 0 if just an empty file is extracted !?

[ts-soft]

Update (30.04.2012)
Dateinamen mit Umlauten werden korrekt entzippt.
(Da ist das zib-Format ein wenig altbacken, ich fürchte die Zip-Routine produziert beim zippen von Umlautdateinamen auch falsche Namen.
Muss ich mal bei Gelegenheit abändern)

Code: Alles auswählen

Structure _ZIP_Local_File_Header_
   signature.l ;0x04034b50
   VersionNeeded.w
   Generalflag.w
   Compressionmethod.w
   Last_modification.l
   CRC32.l
   Compressed_size.l
   Uncompressed_size.l
   Filename_length.w
   Extrafield_length.w
   *Filename
EndStructure

In Generalflag.w ist das 11te Bit für UTF-8 zu setzen.
siehe: http://www.purebasic.fr/english/viewtop ... 76#p398976

Gruß
Thomas

[HeX0R]

Entpacken sollte aber richtig funktionieren, oder?
Ich hatte nur zips gefunden, die die Dateinamen noch zusätzlich im "Extrafield" gespeichert hatten, daher lese ich das aus.

Beim speichern allerdings war ich faul, sehe ich gerade, da speichere ich einfach ascii...

[Edit]
Sodele, mal eben eingebaut, danke für den Tipp