Bosna i Hercegovina



zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Proba koda
DownloadIzvorni kod (Visual Basic):
  1. Public Function DeleteAllFiles(ByVal FolderSpec As String) _
  2. As Boolean
  3.  
  4.  
  5. 'EXAMPLE: DeleteAllFiles "C:\Test"
  6.  
  7. Dim oFs As New FileSystemObject
  8. Dim oFolder As Folder
  9. Dim oFile As File
  10.  
  11.  
  12. If oFs.FolderExists(FolderSpec) Then
  13. Set oFolder = oFs.GetFolder(FolderSpec)
  14. On Error Resume Next
  15. For Each oFile In oFolder.Files
  16. oFile.Delete True 'setting force to true
  17. 'deletes read-only file
  18. Next
  19. DeleteAllFiles = oFolder.Files.Count = 0
  20. End If
  21.  
  22. End Function

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 19.10.2010-02:15 od strane zxz. ↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
Kod: Označi sve
DownloadIzvorni kod (PHP):
  1. < ?
  2. ? >
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  4. <html xmlns="http://www.w3.org/1999/xhtml">
  5. <head>
  6. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
  7. <title> Untitled </title>
  8. </head>
  9.  
  10. <body>
  11. < ?

Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
DownloadIzvorni kod (Visual Basic):
  1. Public Function Izmijeni(ImeTabele As String, ZnakUBazi _
  2. As String, Zamjena As String) As Variant
  3. '*******************************************
  4. 'Ime:      Izmijeni   (Function)
  5. 'Sadržaj: Promjena znaka ~ u slovo 
  6. 'Autor:     ZXZ
  7. 'Datum:      09 06, 2010, 09:54:46
  8. 'Adresa: Tuzla BiH
  9. 'Email:     zxz@icentar.ba
  10. 'Ulazni parametri:Ime tabele,Znak koji '
  11. 'treba mijenjati i znak u koji se mijenja
  12. 'Izlazni parametri:Nema
  13. 'Microsoft dao 3.1-Referenca
  14. '*******************************************
  15. Dim Db As Database
  16. Dim Rs As Recordset
  17. Dim Podatak As String
  18. Dim I As Integer
  19. Dim n As Integer
  20. Dim Promjena As Boolean
  21.  
  22.  
  23.  
  24. 'On Error GoTo Greska
  25. Set Db = CurrentDb()
  26. Set Rs = Db.OpenRecordset(ImeTabele)
  27. Do While Not Rs.EOF
  28.   For I = 0 To Rs.Fields.Count - 1
  29.   If Format$(Rs.Fields(I)) <> "" Then
  30.   Podatak = Rs.Fields(I).Value
  31.   Else
  32.   Podatak = ""
  33.   End If
  34.       For n = 1 To Len(Podatak)
  35.         If Mid(Podatak, n, 1) = ZnakUBazi Then
  36.         Mid(Podatak, n) = Zamjena
  37.         Rs.Edit
  38.         Rs.Fields(I).Value = Podatak
  39.         Promjena = True
  40.         End If
  41.       Next n
  42.    Podatak = ""
  43.   Next I
  44.  
  45. If Promjena = True Then
  46. Promjena = False
  47. Rs.Update
  48. End If
  49. Rs.MoveNext
  50. Loop
  51. Izlaz:
  52. Exit Function
  53. Greska:
  54. 'GreskaB (Err.Number)
  55. Resume Izlaz
  56. Kraj:
  57. End Function

Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
Proba internet explorer 11
Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
Neki se zale da ne radi odgovor na temu u IE.
Ja probao Ie 11 i win 8.1 i kod mene radi.
E sad ako ima kod koga neka kombinacija da ne radi neka napise.
Neka napisu i oni koji imaju IE bez obzira radi li neka probaju ovdje.
Pozdrav
↑  ↓

mirsadz Offline
Moderator
Registrovan/a od: 26.05.2011-21:40
Komentari: 26


Subject: Re: Proba koda
Proba test internet explorer WIN7
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
Dodatna napomena autora:
kasnije dodano.
Nisam nikada ovo probao

Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
definicija
obrazlozenje

Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,304


Subject: Re: Proba koda
DownloadIzvorni kod (PHP):
  1. < ?
  2.  
  3.  
  4. ? >
  5.  
  6. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  7.  
  8. <html xmlns="http://www.w3.org/1999/xhtml">
  9.  
  10. <head>
  11.  
  12. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
  13.  
  14. <title> Untitled </title>
  15.  
  16. </head>
  17.  
  18.  
  19.  
  20. <body>
  21.  
  22. < ?

Pozdrav
↑  ↓

 Podijeli  Dodaj odgovor Stranice (1): 1


All times are GMT +01:00. Current time: 30.05.2017-12:05.