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

skracivanje naziva baze

[es] :: Visual Basic 6 :: skracivanje naziva baze

[ Pregleda: 2268 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon skracivanje naziva baze13.06.2009. u 14:04 - pre 180 meseci
Ovako,moj problem je sledeci:
U folder c:\metaline\exch\lnk\from_fp mi stizu
3 baze ZA sa sest brojnih karaktera,ZC isto tako kao i ZB (npr.ZA001595),koji se svakodnevno menjaju
tj.sve sem ZA,ZB,ZC je promenjivo.
Program mi treba da od tih ZA,ZB,ZC sa jos sest(a negde i manje) karaktera da smanji na
ZA_000.dbf,ZB_000.dbf,ZC_000.dbf.
Ja sam poslao komandu FP550 i on mi podatke salje u gore naveden folder,pa mi sad treba da
te baze u navedenom obliku prebaci na E:\neki folder i da moze da obavesti da su baze pronadjene i da se iskopiraju na e:\neki folder.
Program radim u Visual basicu 6.0
Hvala unapred
Pole
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.251.*



+1 Profil

icon Re: skracivanje naziva baze14.06.2009. u 02:37 - pre 180 meseci
Gde je konkretno zapelo?

Otvori Object browser (pritiskom na dugme F2), upiši "filesystem" i klikni find. Dobićeš listu funkcija za rad sa fajl sistemom. Samo ih primeni...
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon Re: skracivanje naziva baze14.06.2009. u 11:15 - pre 180 meseci
konkretno je zapelo sto ne znam kako da izmenim te fajlove u nazivu tj. da ih skratim,
i kako da uradim da kada pronadje te tri baze ZA_000,ZB_000,ZC_000,da obavesti da su nadjene i da mogu da se iskopiraju
Pomajte........
Pole
 
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

icon Re: skracivanje naziva baze14.06.2009. u 11:18 - pre 180 meseci
Preko FSO imas FileExist, sa njom proveris da li ta 3 postoje, ukoliko postoje, uradis FileCopy za sva 3. Za obe opcije sam 100% siguran da postoje objasnjenje na forumu :)
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon Re: skracivanje naziva baze14.06.2009. u 11:29 - pre 180 meseci
FSO?
Ne razumem te,ako mozes da podrobnije mi objasnis

Pole
 
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

icon Re: skracivanje naziva baze14.06.2009. u 11:33 - pre 180 meseci
http://www.elitesecurity.org/p1881676
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon Re: skracivanje naziva baze14.06.2009. u 12:14 - pre 180 meseci
opet ja nista nisam uradio,dajte pomagajte ljudi
Pole
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.251.*



+1 Profil

icon Re: skracivanje naziva baze14.06.2009. u 13:40 - pre 180 meseci
Nemoj očekivati da će ti bilo ko napisati to tek tako. Dali smo ti sve potrebne informacije, da možeš i sam to da uradiš.

Da vidimo šta si napisao, pa ćemo pomoći gde je zapelo.
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon Re: skracivanje naziva baze14.06.2009. u 14:02 - pre 180 meseci
Ovo je kompletan kod
On pokupi fajlove u C:\.......\From_Fp i sasece ih tako da dobija fajlove u obliku ZA.dbf,Zb.dbf i ZC.dbf,a da napomenem da meni trebaju fajlovi u obliku
ZA_000.dbf,ZB_000.dbf,ZC_000.dbf






Code:
Dim putanja_source As String, putanja_dest As String
'==========================================
Dim tmp_RB As Integer, tmp_RB2 As Integer
Dim tmp_TX As String, tmp_TX_FINAL As String
Dim Ext_NAME As String
Dim PATH_FROM_FP As String, PATH_BGLUSCI As String
Dim koliko As Integer


Private Sub Command_Click()
koliko = File1.ListCount - 1
For i = 0 To koliko
  PATH_FROM_FP = putanja_source & File1.List(0)
  PATH_BGLUSCI = putanja_dest & skrati(File1.List(0))
  FileCopy PATH_FROM_FP, PATH_BGLUSCI
  Kill PATH_FROM_FP
  File1.Refresh
Next i
End Sub

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub Command2_Click()
Open ("C:\MetaLine\Exch\Lnk\To_FP\CMD_1.txt") For Output As #1
Print #1, Text1.Text 'ukoliko ti se texbox zove text1 ako ne ti zameni kako se zove
Close #1
MsgBox ("Sacekajte 1 minut,zahtev je prosledjen")
End Sub

Private Sub Form_Load()
settings
File1.Path = putanja_source
File1.Pattern = "*.dbf"
End Sub
Sub settings()
putanja_source = "C:\MetaLine\Exch\Lnk\FROM_FP\"
putanja_dest = "E:\BGLUSCI\"
End Sub
Function skrati(File_Name As String)
Ext_NAME = Right(File_Name, 2)
tmp_RB = InStr(1, File_Name, "_", 0)
tmp_TX = Right(File_Name, Len(File_Name) - tmp_RB)
tmp_RB2 = InStr(1, tmp_TX, "_", 0)
tmp_TX_FINAL = Left(File_Name, tmp_RB + tmp_RB2)
skrati = tmp_TX_FINAL & Ext_NAME
End Function

Pole
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon Re: skracivanje naziva baze15.06.2009. u 12:36 - pre 180 meseci
eto gde je zapelo,moze sad pomoc?
Pole
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: skracivanje naziva baze15.06.2009. u 12:47 - pre 180 meseci
A da napraviš samo ovako nekako:

nekiFile = štaveć
if left(nekiFile, 2) = 'ZB? then noviFile = 'ZB_000.dbf'

i to je to...
F
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.204.*



Profil

icon Re: skracivanje naziva baze15.06.2009. u 15:17 - pre 180 meseci
gde kod da ubacim?
nije mi jasno to..
ako nije problem da ubacis taj deo koda u ovaj moj?
Pole
 
Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
92.241.152.*

Sajt: www.littlefrog.ba


Profil

icon Re: skracivanje naziva baze01.07.2009. u 23:52 - pre 179 meseci
Vidim da sam dio koda ja vec pisao, al ti to izgleda iz 13 dijelova sastavljas, a neces da se potrudis da bar malo razumes, ja vjerujem da bi onda mogao da napravis to. Potrudi se malo, bar si meni rekao da hoces......
 
Odgovor na temu

milekrajina
Mile Pole
srednja skola
Sabac

Član broj: 222417
Poruke: 67
93.86.167.*



Profil

icon Re: skracivanje naziva baze02.07.2009. u 00:33 - pre 179 meseci
uradio sam ja to...pa obecanje uvek ispunjavam,djpero.84..
hvala ti za pomoc do sad...
Pole
 
Odgovor na temu

[es] :: Visual Basic 6 :: skracivanje naziva baze

[ Pregleda: 2268 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

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