Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Softver i operativni sistemi » Besplatan softver » Gzip arhiver
Avko 13.05.2015 13:11
Predmet:Re: Gzip arhiver

ma ja sam tebe trebao uslugu pa sam preveo da se ti ne mucis, ali eto dobro

a ovo vbMinimizedNoFocus sta je to?
vidio sam u knjizi pise vbNormalFocus, sta tu trebam staviti, mislim koji parametar
i jos nesto ako definiram kao i ti:

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Program As String
  2. Program = App.path & "\RAR.EXE"            
  3. Dim Fajlovi As String
  4. Fajlovi= App.path & "\Bazi\*.mdb"
  5. Dim VoRar As String
  6. VoRar= "C\Bazi.rar"

kako ce izgledati shell naredba, mozda ovako?
ShellAndWait Program & VoRar & Fajlovi, vbMinimizedNoFocus
ili cemo ovo: Program & VoRar & Fajlovi staviti u neki string recimo strString
PreuzmiIzvorni kôd (Visual Basic):
  1. strString = Program & VoRar & Fajlovi 'stavimo u strString
  2. ShellAndWait strString, vbMinimizedNoFocus 'onda pozovemo shell sa tim stringom

necemo sada o progresbaru jer je i ovo za mene tesko pa cemo to prvo rijesiti a onda vidicemo ko živ,ko mrtav.
necemo zxz pozvati, ako ga pozovemo onda ce on napisati kod sve rijesiti i onda nesmijem nista ni pitati. Odma bi mi rekao: Opet, neznaš?! Evo ti kec u imenik. Grinning

Gjoreski 13.05.2015 13:51
Predmet:Re: Gzip arhiver

Ovako vbMinimizedNoFocus e dali da vidimo program dok se pakuju podatke tu imas vise izbora ja koristim ova ali evo pogledaj na sliku sta cu staviti

strString = Program & VoRar & Fajlovi 'stavimo u strString

ova je u redu samo ovde u ovaj string treba jos staviti i ono slovo "a"

za testirajne stringa dali je dobro uradzen ja uvjek stavim jedan msgbox i u njega stavim string koi treba se izvrsavati da pogledam kako to izgleda i ako je u redu nazoves funkcija shelandwait

ovako bi trebalo da izgleda kod tebe sa to sto bin fajlovi bi bili u folder pored program koj se zobe Bazi a zip fajl nakon pakovajne nalazice se u C: direktorium

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Program As String
  2.          Program = App.path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  3. Dim Fajlovi As String
  4.          Fajlovi= App.path & "\Bazi\*.bin"
  5.  Dim VoRar As String
  6.          VoRar= "C\data.zip"
  7.  Dim strString As String  
  8.          strString=  Program & " a " &  VoRar & " "  &  VoRar
  9.          Msgbox  strString  ' da pogledas kako izgleda komplet
  10.  
  11.  
  12.      ' e sad ovde vec se izvrsi pakovajne podatke
  13.     ShellAndWait strString, vbMinimizedNoFocus
Prilozi:
1.bmp (Velicina datoteke:273.96 KB)

Avko 14.05.2015 10:07
Predmet:Re: Gzip arhiver

evo probao ja, ne raspakira.
za unzip napisao ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. program = App.Path & "\7za.exe"
  2.     zipFajl = App.Path & "\data.bin"
  3.     strString = program & " e " & zipFajl & " -y"  'ovo y je za overwrites
  4.    ShellAndWait strString, vbMinimizedNoFocus

nakon sto ode u modul tamo ide do
PreuzmiIzvorni kôd (Visual Basic):
  1. If process_handle <> 0 Then
  2.         WaitForSingleObject process_handle, INFINITE
  3.         CloseHandle process_handle
  4.     End If
ali je process_handle=0 pa prema tome ne odradi nista i ode na
exit sub
dakle ne raspakira

Avko 14.05.2015 13:57
Predmet:Re: Gzip arhiver

(Name) Command1

(Name) Command2
Prilozi:
zipunzip.rar (Velicina datoteke:281.13 KB)

Gjoreski 14.05.2015 14:14
Predmet:Re: Gzip arhiver

kod mene i ovaj tvoj primer radi

Avko 14.05.2015 14:24
Predmet:Re: Gzip arhiver

cijeli project snimio sam na novu lokaciju na HD i sada radi. Mozda je greska sto u ime mape nisam koristio _ npr. d:\zipunzip_program ja sam imenovao mapu ovako d:\zipunzip program pa ga mozda iz dos prompta nije prepoznao. Neznam. To mi prvo palo na pamet uglavnom u novoj mapi radi i ovaj moj.
Dakle nakon ovoga sto mi se danas desilo osjecam bolove u glavi i idem prileci malo. Nemoram ti pricati da mi se ovakve stvari desavaju gotovo skoro svaki dan zato mi se zna desiti da izludim jednostavno
dovidenja i vidimo se sutra. hvala na pomoci i krvavo si zasluzio danas 2x+, a dao bi ti ja i 3x+ ali je zxz rekao da ne klikamo po tim + bezveze pa cu samo 2 komada da ti dam sada eto vidim traze tamo na accesu tvoju pomoc pa pomozi ljudima. Ja kada sam vidio onaj kod tamo 0401 i 401 mene pao mrak na oci

Gjoreski 14.05.2015 11:04
Predmet:Re: Gzip arhiver

Eve komplet
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1_Click()
  2.  Dim Program As String
  3.          Program = App.Path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  4. Dim Fajlovi As String
  5.          Fajlovi = App.Path & "\*.txt"              ' Svi txt Fajlove
  6. Dim VoRar As String
  7.          VoRar = App.Path & "\Data.zip"             ' Vo isti folder gde se nalazi program formira se fajl Data.zip
  8. Dim strString As String
  9.          strString = Program & " a " & VoRar & " " & Fajlovi
  10.      
  11.      ' e sad ovde vec se izvrsi pakovajne podatke
  12.     ShellAndWait strString, vbNormalNoFocus
  13. End Sub
  14.  
  15. Private Sub Command2_Click()
  16.  Dim Program As String
  17.          Program = App.Path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  18. Dim OdRar As String
  19.          OdRar = App.Path & "\Data.zip"             ' Data.zip mora se nalaziti u isti folder gde je program i 7za.exe
  20. Dim strString As String
  21.          strString = Program & " e " & OdRar & " -o" & App.Path & "\" & " -y"  ' vo istiot folder gde se nalazi program
  22.  
  23.  
  24.      ' e sad ovde vec se izvrsi pakovajne podatke
  25.     ShellAndWait strString, vbNormalNoFocus
  26. End Sub

Avko 14.05.2015 12:03
Predmet:Re: Gzip arhiver

nista. copirao sam tocno ovaj gore primjer, a ono prije stavio u modul.
u mapi nema Data.zip , Data.zip fajla nema nigdje na HD pregledao sam sa programom Everything search engine
znaci nesto ne radi. Ili sam ja nesto krivo upisao. Daj molim te reci dali to kod tebe radi?
vazno je reci, a evo sada sam isprobao
umjesto :ShellAndWait strString, vbNormalNoFocus
stavim :Shell strString, vbNormalNoFocus
znaci ne poziv modul i isto ne radi
pa predpostavljam da je greska negdje u onim stringovima
Program = App.Path & "\7za.exe"
OdRar = App.Path & "\data.zip"
strString = Program & " e " & OdRar & " -o" & App.Path & "\" & " -y"
sada cu probati sa MsgBox kako si rekao da vidim sta je u stringovima
evo probao sa msgbox i cini mi se da je sve u redu
u dos promptu sa naredbom : 7za.exe a data.zip *.txt odradi sve u redu
komprimira sve *.txt fajlove u data.zip

Gjoreski 14.05.2015 12:29
Predmet:Re: Gzip arhiver

Ovo kod mene radi eve sve uradzeno ukomplet u ova verzija kod mene sam stvio i password na zipu pa pogledaj
Prilozi:
zipTest.rar (Velicina datoteke:282.40 KB)

Gjoreski 14.05.2015 12:38
Predmet:Re: Gzip arhiver

Moze biti problem i pateka gde se napazi program probaj sve da stavis na C: u neki folder bez razmake u nazivu