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

  • 22:47 Faktorer som påverkar bilens andra
  • 14:23 Портал о чрезвычайных ситуациях
  • 09:39 Why are here few women buy the les
  • 19:53 Toppkvalitet uppkoppling
  • 16:35 Эскорт вакансии для девушек
  • 14:39 Rainbet Casino
  • 13:47 Professional mining software
  • 13:18 Website builder

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 571 550
27 967
271 795
5 645
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