function usun_znaki(tekst) {
var reg = new RegExp("(\t|\r||^ *| *$)","g");
tekst = tekst.replace(reg,"");
return tekst;
} 15 kwi 2009
function usun_znaki(tekst) {
var reg = new RegExp("(\t|\r||^ *| *$)","g");
tekst = tekst.replace(reg,"");
return tekst;
} select lower(replace(nazwa,' ', '_')) from nazwy show search_pathwynik: public
set search_path to "$user", test
show search_pathwynik: test
<HTML>
<HEAD>
<TITLE> link na całego diva </TITLE>
<style>
.test {
background-color:#ffe592;
height: 30px;
margin: 10px 0;
}
.test a {
background-color:#ffe592;
display:block; width:100%;
height: 30px;
}
.test a:hover {
background-color:#a6b6cc;
}
</style>
</HEAD>
<BODY>
<div class="test"><a href="">link na całego diva 1</a></div>
<div class="test"><a href="">link na całego diva 2</a></div>
</BODY>
</HTML> Dim fso, stream, str, re, name
Dim wsh, oExec
Set wsh = CreateObject("WScript.Shell")
Set oExec = wsh.Exec("cmd /c " & "tasklist | find " & Chr(34) & "gg.exe" & Chr(34))
wynik = oExec.StdOut.ReadAll
'msgbox wynik
Dim valid
Set objRegEx = CreateObject("VBScript.RegExp")
valid = False
objRegEx.Pattern = "^gg.exe"
valid = objRegEx.test(wynik)
If valid = True Then
''MsgBox(wynik)
Else
wsh.Run Chr(34) & "C:\\Program Files\\Gadu-Gadu\\gg.exe" & Chr(34)
Set wsh = Nothing
End if