Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
05.08.2003. treba mi pomoć oko importa fajla u mysql bazu (a..
27.01.2004. Citanje mesha iz X fajla
13.08.2004. CNC ili Waterjet sečenje
05.04.2005. moze li pomoc oko isecanja mpeg 2 formata
25.03.2005. Program za skupljanje naziva fajlova?
16.05.2005. Isecanje delova slika
17.12.2005. Spajanje video i mid fajla
20.06.2006. DVD rekorderi sa HDD
16.08.2006. isecanje objekta

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

isecanje naziva fajla

[es] :: Visual Basic 6 :: isecanje naziva fajla

[ Pregleda: 3305 | Odgovora: 14 ] > FB > Twit

Autor

prunto
Sabac

Član broj: 239659
Poruke: 38
*.dynamic.isp.telekom.rs.

Profil

isecanje naziva fajla

^{03.09.2010. u 11:36 - pre 166 meseci}

Pozz...
Na C:\ disku mi se nalazi fajl EX2010-09-03_901_ZB_012345.DBF. Da napomenem da se datumski deo menja zavisno od datuma i numericki deo je uvek drugaciji jer ga program pravi proizvoljno.
Sad meni je potrebno da taj fajl skratim na oblik EX2010-09-03_901_ZB.DBF i da ga takvog dobijem na D:\test\
Svaka pomoc dobro dosla
Hvala

Prunto

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: isecanje naziva fajla

^{03.09.2010. u 13:01 - pre 166 meseci}

Mislim da bi moglo nesto ovako:

Odredis poziciju "ZB" u imenu fajla

Code:
lngPos= InStr(FILENAME, "ZB")

zatim sa Mid() izvuces prvi deo imena fajla

Code:
strSubstr = Mid$(FILENAME, 0, lngPos + 1)

dakle ovim dobijas prvi deo imena fajla, s tim sto lngPos uvecamo za 1, jer ce se sa InStr dobiti index slova Z

onda na strSubstr dodas ".dbf" kao i adresu gde hoces da je smestis

Code:
strSubstr = "x:\dir\" & strSubstr & ".dbf"

onda koristis FileCopy

Code:
FileCopy adresa_originalnog_fajla, strSubstr

ako je nejasno, pitaj :)

ovo je prvo sto mi je palo na pamet, mozda ce neko od kolega smisliti nesto prostije :)

Odgovor na temu

prunto
Sabac

Član broj: 239659
Poruke: 38
*.dynamic.isp.telekom.rs.

Profil

Re: isecanje naziva fajla

^{03.09.2010. u 13:15 - pre 166 meseci}

Nisam razumeo..jer mozes da postujes kod da probam tako?
Ja cu svaki dan imati min. 30 tih fajlova,i razlikovace se samo u onom broju 901 jer idu od 901-930,i u proizvoljnom broju na kraju fajla.

Prunto

Odgovor na temu

Srđan Pavlović
Specijalna Edukacija i Rehabilitacija MNRO
Vojvodina, Bačka Palanka

Član broj: 139340
Poruke: 5571
77.46.145.*

Sajt: www.oligofrenolog.com

+382 Profil

Re: isecanje naziva fajla

^{03.09.2010. u 13:20 - pre 166 meseci}

Sta konkretno nisi razumeo? Kako mislis da postuje kod - covek ti je vec postovao kod, i pri tome objasnio sta radi u svakom koraku :)

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: isecanje naziva fajla

^{03.09.2010. u 13:45 - pre 166 meseci}

Upravo to :)

ako mislis kompletan kôd, ne mogu jer ne znam ni kako ni odaklevuces imena tih fajlova...u principu samo ovaj gore kôd sklopis i dobijas to sto zelis,
a ako vec hoces da ti neko uradi kompletan kôd onda je to za berzu poslova :)

Odgovor na temu

prunto
Sabac

Član broj: 239659
Poruke: 38
*.dynamic.isp.telekom.rs.

Profil

Re: isecanje naziva fajla

^{03.09.2010. u 14:30 - pre 166 meseci}

ne razumem kako da ga iskombinujem,gde da stavim putanje,kako da deklarisem?
U punom formatu mi fajlovi dolaze na C\TT\ a u skracenom mi trebaju na D:\test\

_{[Ovu poruku je menjao prunto dana 03.09.2010. u 15:49 GMT+1]}

Prunto

Odgovor na temu

prunto
Sabac

Član broj: 239659
Poruke: 38
*.dynamic.isp.telekom.rs.

Profil

Re: isecanje naziva fajla

^{04.09.2010. u 08:57 - pre 166 meseci}

u delu ***strSubstr = Mid$(sName, 0, lngPos + 1)*** javlja gresku,koja glasi :

Run-time erroe 5
Invalid procedure call or argument

uneti kod:

*******************************************
Private Sub Command1_Click()
sName = "C:\EX" & Year(Date) & "-" & "0" & Month(Date) & "-" & Day(Date) & "_" & "901" & "_" & "ZB" & "_" & ".DBF"
lngPos = InStr(sName, "ZB")
strSubstr = Mid$(sName, 0, lngPos + 1)
strSubstr = "C:\dir\" & strSubstr & ".dbf"
FileCopy sName, strSubstr
End Sub
*******************************************

Prunto

Odgovor na temu

loto17

Član broj: 184930
Poruke: 110
*.ptt.rs.

+4 Profil

Re: isecanje naziva fajla

^{04.09.2010. u 11:04 - pre 166 meseci}

Probaj ovako:

Private Sub Command1_Click()
sName = "C:\EX" & Year(Date) & "-" & "0" & Month(Date) & "-" & Day(Date) & "_" & "901" & "_" & "ZB" & "_" & ".DBF"
lngPos = InStr(sName, "ZB")
If Len(sName) - 1 > 0 then
strSubstr = Mid$(sName, 0, lngPos + 1)
strSubstr = "C:\dir\" & strSubstr & ".dbf"
FileCopy sName, strSubstr
Endif
End Sub

Odgovor na temu

prunto
Sabac

Član broj: 239659
Poruke: 38
*.dynamic.isp.telekom.rs.

Profil

Re: isecanje naziva fajla

^{04.09.2010. u 11:44 - pre 166 meseci}

na istoj liniji koda vraca gresku.

Ja primam odprilike 20-40 fajlova formata :
EX2010-08-06_901_ZA_0156878.dbf sa tim sto se numericki deo menja i nikad nije isti,kao i deo 901,koji ide do 930.
Trebam te fajlove koji dodju da prebacim na D:\Test\ u obliku ZA90101,ZA90201 itd...
Svak pomoc mi mnogo znaci.
Ja sam probao preko

If Dir("Fajl") <> "" Then
FlieCopy "Putanja" , "D:\Test\ZA90101.Dbf"
End If

ali ne znam kako da deklarise numericki deo u putanji.

Prunto

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: isecanje naziva fajla

^{04.09.2010. u 15:29 - pre 166 meseci}

ovako od oka bi rekao da moras da deklarises lngPos

Code:
Dim lngPos as Long

Mislim da Mid() nece da prihvati lngPos, jer ako ne deklarises onda je tipa Variant, ispravite me ako gresim?

P.S. Zamolio bih vas da koristite CODE tagove

Odgovor na temu

loto17

Član broj: 184930
Poruke: 110
*.dynamic.isp.telekom.rs.

+4 Profil

Re: isecanje naziva fajla

^{04.09.2010. u 16:42 - pre 166 meseci}

Evo kompletnog resenja!
Program radi jedino ako se ukljuci referenca: Microsoft Scripting Library
Pritiskom na komandno dugme program ce pronaci sve fajlove na C:\ disku koji pocinju na "EX" , u nazivu sadrze "ZB" i zavrsavaju se sa ".DBF"
Sve sto zadovoljava gornji uslov bice premesteno (move) u novi folder D:\Test\ pod nazivom "ZA"+(901 ili sta vec)+ brojac( redni broj fajla koji se presnimava) + DBF ekstenzija.

_{[Ovu poruku je menjao loto17 dana 04.09.2010. u 18:01 GMT+1]}

Prikačeni fajlovi

NoviFajlovi.zip

NoviFajlovi.zip - 1.52k

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
92.36.135.*

Sajt: www.icentar.ba

+2 Profil

Re: isecanje naziva fajla

^{18.09.2010. u 23:04 - pre 165 meseci}

Code:
Public Function KopirajFajlove() As Variant
'**************************************************
'Ime:      KopirajFajlove   (Function)
'Sadržaj: koira dbf fajlove pod drugim imenom
'Autor:     ZXZ
'Datum:      09 18, 2010, 11:58:27
'Adresa: Tuzla BiH
'Email:     [email protected]
'Ulazni parametri:mogu biti putanjaOrg i Putanjas
'Izlazni parametri:Nema
'**************************************************
On Error GoTo Greska
Dim ImeOrginal As String
Dim ImeN As String
Dim PutanjaOrg As String
Dim PutanjaS As String
Dim i As Integer

PutanjaOrg = ("C:\")
PutanjaS = "d:\temp\"
ImeOrginal = Dir(PutanjaOrg, vbDirectory)
Do While ImeOrginal <> ""
    ImeOrginal = Dir
    If Left(ImeOrginal, 2) = "EX" And Right(ImeOrginal, 3) = "DBF" Then
     i = InStr(1, ImeOrginal, "ZB")
     ImeN = Left(ImeOrginal, i + 1) & Right(ImeOrginal, 4)
     FileCopy PutanjaOrg & ImeOrginal, PutanjaS & ImeN
    End If
Loop
Izlaz:
Exit Function
Greska:
'GreskaB (Err.Number)
Rem treba presresti greska
Resume Izlaz
Kraj:

End Function

zxz

Odgovor na temu

loto17

Član broj: 184930
Poruke: 110
*.dynamic.isp.telekom.rs.

+4 Profil

Re: isecanje naziva fajla

^{20.09.2010. u 17:49 - pre 165 meseci}

@izonic
Tvoja funkcija ne valja!!!
Od svih fajlova koji se nalaze na C:\, pocinju na "EX" , zavrsavaju se na ".DBF" u D:\Test bice presnimljen samo jedan fajl pod nazivom "E.DBF"
Moje resenje je ispravno!!!

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
92.36.139.*

Sajt: www.icentar.ba

+2 Profil

Re: isecanje naziva fajla

^{20.09.2010. u 21:57 - pre 165 meseci}

Da u pravu si u d:\test nece kopirati nista jer ja sam naveo putanj d:\temp.
PutanjaS = "d:\temp\"
A mozda i ovjde nece kopirati nista.
Mozda nam vb nije isti.

zxz

Odgovor na temu

loto17

Član broj: 184930
Poruke: 110
*.ptt.rs.

+4 Profil

Re: isecanje naziva fajla

^{21.09.2010. u 10:18 - pre 165 meseci}

@izonic
U postu sam pogresno naveo putanju D:\Test umesto D:\Temp ali sam probao tvoju funkciju i video da ona radi onako kako sam i napisao- Pogresno!!!

Odgovor na temu

[es] :: Visual Basic 6 :: isecanje naziva fajla

[ Pregleda: 3305 | Odgovora: 14 ] > FB > Twit

Srodne teme

10.07.2007. Promena imena fajla
12.04.2007. mp3-isecanje na delove
22.01.2008. Zašto dodavati prefix ispred naziva tabele
09.06.2008. File type icon u gridview
03.08.2008. Upload i download fajla
16.09.2008. isecanje mreze pomocu pathfindera
02.01.2010. Obrada video fajla VSE formata!
27.02.2010. Promena naziva jednog fajla
11.04.2010. Profesionalna masina za isecanje vizit kartica

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.