zxz |
07.09.2010 04:10 |
Predmet:Proba koda
PreuzmiIzvorni kôd (Visual Basic):Public Function DeleteAllFiles(ByVal FolderSpec As String) _
As Boolean
'EXAMPLE: DeleteAllFiles "C:\Test"
Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File
If oFs.FolderExists(FolderSpec) Then
Set oFolder = oFs.GetFolder(FolderSpec)
On Error Resume Next
For Each oFile In oFolder.Files
oFile.Delete True 'setting force to true
'deletes read-only file
Next
DeleteAllFiles = oFolder.Files.Count = 0
End If
End Function
|
zxz |
26.09.2010 14:25 |
Predmet:Re: Proba koda
Kod: Označi sve
PreuzmiIzvorni kôd (PHP):< ?
? >
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<title> Untitled </title>
</head>
<body>
< ?
|
zxz |
19.10.2010 03:08 |
Predmet:Re: Proba koda
PreuzmiIzvorni kôd (Visual Basic):Public Function Izmijeni(ImeTabele As String, ZnakUBazi _
As String, Zamjena As String) As Variant
'*******************************************
'Ime: Izmijeni (Function)
'Sadržaj: Promjena znaka ~ u slovo
'Autor: ZXZ
'Datum: 09 06, 2010, 09:54:46
'Adresa: Tuzla BiH
'Email: zxz@icentar.ba
'Ulazni parametri:Ime tabele,Znak koji '
'treba mijenjati i znak u koji se mijenja
'Izlazni parametri:Nema
'Microsoft dao 3.1-Referenca
'*******************************************
Dim Db As Database
Dim Rs As Recordset
Dim Podatak As String
Dim I As Integer
Dim n As Integer
Dim Promjena As Boolean
'On Error GoTo Greska
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(ImeTabele)
Do While Not Rs.EOF
For I = 0 To Rs.Fields.Count - 1
If Format$(Rs.Fields(I)) <> "" Then
Podatak = Rs.Fields(I).Value
Else
Podatak = ""
End If
For n = 1 To Len(Podatak)
If Mid(Podatak, n, 1) = ZnakUBazi Then
Mid(Podatak, n) = Zamjena
Rs.Edit
Rs.Fields(I).Value = Podatak
Promjena = True
End If
Next n
Podatak = ""
Next I
If Promjena = True Then
Promjena = False
Rs.Update
End If
Rs.MoveNext
Loop
Izlaz:
Exit Function
Greska:
'GreskaB (Err.Number)
Resume Izlaz
Kraj:
End Function
|
zxz |
29.06.2015 12:14 |
Predmet:Re: Proba koda
Proba internet explorer 11 |
zxz |
29.06.2015 12:18 |
Predmet: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. |
mirsadz |
29.06.2015 16:32 |
Predmet:Re: Proba koda
Proba test internet explorer WIN7 |
zxz |
10.10.2015 00:17 |
Predmet:Re: Proba koda
Dodatna napomena autora: kasnije dodano.
Nisam nikada ovo probao |
zxz |
10.10.2015 00:19 |
Predmet:Re: Proba koda
E sad neko obrazlozenje odnosno tekst |
zxz |
19.11.2016 01:49 |
Predmet:Re: Proba koda
PreuzmiIzvorni kôd (PHP):< ?
? >
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<title> Untitled </title>
</head>
<body>
< ?
|
zxz |
03.06.2017 11:58 |
Predmet:Re: Proba koda
PreuzmiIzvorni kôd (Javascript):<HTML>
<HEAD>
<BODY>
<DIV id=Zittertext
style="FONT-WEIGHT: bold; FONT-SIZE: 25pt; FILTER: Wave(freq=5, light=0, phase=8, strength=1); WIDTH: 100%; COLOR: red">
<p align="center"><font color="#000000">
<span style="background-color: #FFFF00">Posjetite icentar</span></font></DIV>
<SCRIPT language=JavaScript>
<!--
function DynWave()
{
if(document.all.Zittertext.filters[0].freq > 130)
document.all.Zittertext.filters[0].freq = 15;
document.all.Zittertext.filters[0].freq += 1;
if(document.all.Zittertext.filters[0].phase > 50)
document.all.Zittertext.filters[0].phase = 1;
document.all.Zittertext.filters[0].phase += 1;
if(document.all.Zittertext.filters[0].strength > 1)
document.all.Zittertext.filters[0].strength = .1;
document.all.Zittertext.filters[0].strength += 1;
window.setTimeout("DynWave()",100);
}
DynWave();
</SCRIPT>
</BODY>
</HTML>
|