Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Tips & tricks

#298 - Enkel komprimering av en befintlig fil

Postat 2000-12-23 01:18:23 av Pelle Johansson i Kategori Programmering, C#, Kommandon med 0 Kommentarer

Dim cCode As Byte
Dim dCode As Byte
Dim char As Byte
Dim NextC As Byte
Dim dCount As Integer
Dim ccount As Integer
Dim ptr2 As Long
Dim cdOpen As String
Dim cdDecompress As String
Dim cdExtract As String
Dim cdSave As String


Private Sub Command1_Click()
cd.ShowOpen
cdOpen = cd.FileName
Open cdOpen For Binary As #1
cd.ShowSave
cdSave = cd.FileName
Open cdSave For Binary As #2
Get #1, 1, char
ccount = 1
ptr2 = 1

For x = 2 To FileLen(cdOpen)
Get #1, x, cCode
If cCode = char Then
ccount = ccount + 1
GoTo 1
End If
If ccount = 1 Then
Put #2, ptr2, char
ptr2 = ptr2 + 1
char = cCode
Else
ccount = ccount
Put #2, ptr2, "*"
ptr2 = ptr2 + 1
Put #2, ptr2, ccount
ptr2 = ptr2 + 1
Put #2, ptr2, char
ptr2 = ptr2 + 1
char = cCode
ccount = 1
End If
1
Next x

Get #1, x, cCode
If cCode = char Then
ccount = ccount + 1

End If
If ccount = 1 Then
Put #2, ptr2, char
ptr2 = ptr2 + 1
char = cCode
Else
ccount = ccount
Put #2, ptr2, "*"
ptr2 = ptr2 + 1
Put #2, ptr2, ccount
ptr2 = ptr2 + 1
Put #2, ptr2, char
ptr2 = ptr2 + 1
char = cCode
ccount = 1
End If
Close #1
Close #2
End Sub

Private Sub Command2_Click()
cd.ShowOpen
cdDecompress = cd.FileName
Open cdDecompress For Binary As #1
cd.ShowSave
cdExtract = cd.FileName
Open cdExtract For Binary As #2

ptr2 = 1
For x = 1 To FileLen(cdDecompress)
Get #1, x, dCode
If dCode = 42 Then
x = x + 1
dCount = x 'sets the number of times
x = x + 1 'sets Next Character
Get #1, x, dCode
For i = 1 To dCount
Put #2, ptr2, dCode
ptr2 = ptr2 + 1
Next i
Else
Put #2, ptr2, dCode
ptr2 = ptr2 + 1
End If
Next x
End Sub

Sample:
Size:

Nyligen

  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов
  • 00:01 DL Van Tuning | Exclusive Body Kit
  • 12:08 Indian casino

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 880
27 965
271 774
669
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies