Centar za edukaciju-BiH



#11 04.03.2018 18:34
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Kreiranje text fajla sa tabulatorima
Resio nekako, verovatno ostecen fajl. Kad krenuo ispocetka sve proradelo OK.
Ono sto me sad muci je kako spreciti overwrite fajla?
↑  ↓

#12 04.03.2018 21:05
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Kreiranje text fajla sa tabulatorima
Reshio i to

u folderu izvestaji prave se fajlovi izvestaj1, izvestaj2...

ispitujemo dok ne nadjemo prvi slobodan broj

PreuzmiIzvorni kôd (vbnet):
  1. Dim Naziv As String
  2. Dim Putanja As String
  3. Dim extenzija As String
  4.  
  5. Putanja = "E:\Izvestaji\"
  6. Naziv = "Izvestaj"
  7. extenzija = ".csv"
  8.  
  9. Dim brojac As Integer
  10. brojac = 1
  11.  
  12. Dim strfile As String
  13. strfile = Dir(Putanja & "*" & extenzija)
  14.  
  15.     While strfile <> ""
  16.         If strfile = Naziv & brojac & extenzija Then
  17.             brojac = brojac + 1
  18.         End If
  19.         strfile = Dir()
  20.     Wend
  21.    
  22. Putanja = Putanja & Naziv & brojac & extenzija
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 53 am.