Wojtek - Strona 16 - Kody, triki, sztuczki

26 lip 2008

Dodawanie dynamiczne tabeli do komórki innej tabeli

<HTML>

  <HEAD>
    <TITLE> New Document </TITLE>
    <META NAME="Author" CONTENT="">
    <SCRIPT LANGUAGE="JavaScript">
      function ukryjtab(id) {

        var element = document.getElementById(id);
        while (element.firstChild) {
          element.removeChild(element.firstChild);
        }
      }
      function dodajtab(id) {

        var element = document.getElementById(id);
        var tbl = document.createElement("table");
        var tblBody = document.createElement("tbody");

        for (var j = 0; j < 2; j++) {
          var row = document.createElement("tr");
          for (var i = 0; i < 2; i++) {

            var cell = document.createElement("td");
            var cellText = document.createTextNode("komórka nr: " + j + ", kolumna nr: " + i);
            cell.appendChild(cellText);
            row.appendChild(cell);
          }
          tblBody.appendChild(row);
        }

        tbl.appendChild(tblBody);
        element.appendChild(tbl);
        tbl.setAttribute("border", "1");
      }
    </SCRIPT>
  </HEAD>

  <BODY>
    <TABLE border="1">
      <TR>
         <TD>fiat stilo</TD>
         <TD>1,6</TD>
         <TD><input type="button" name="wybor" value="pokaz" onClick="dodajtab(2)"><input type="button" name="wybor"
            value="ukryj" onClick="ukryjtab(2)"></TD>
      </TR>
      <TR>
         <TD colspan="3" id="2"></TD>
      </TR>
      <TR>
         <TD>fiat panda</TD>
         <TD>1,1</TD>
         <TD>&amp;nbsp;</TD>
      </TR>
    </TABLE>
  </BODY>

</HTML>

26 lip 2008

Zwiększenie wysokości pola textarea

function tekstsize(h) {
  var elem = document.getElementById("main_text");
  elem.style.height = h + 'px';
}

<input type="button" name="wybor" value=" - " onClick="tekstsize(150)">
<input type="button" name="wybor" value=" + " onClick="tekstsize(1000)">
<textarea name="main_text" id="main_text" cols='90' rows='10' wrap='virtual'>

25 lip 2008

Ustawienie w stylu przejścia do nowej linii po znaczniku form

form { padding: 0px; margin: 0px; display: inline; }

25 lip 2008

Kopiowanie katalogów i podkatlogów

Dim oFS
 Set oFS=CreateObject("Scripting.FileSystemObject")
 oFS.CopyFolder "d:\temp\*", "E:\tmp\"
 Set oFS=Nothing

25 lip 2008

Generowanie poleceń sql wykonujących insert do bazy

$ksiazka_id_table   = array(1980,2008);
$ksiazka_slowa      = 'power dvd windows virtual Dub, total';
$ksiazka_table      = "slowa_klucze";

$ksiazka_slowa      = strtr($ksiazka_slowa,',.:;"',' ');
$ksiazka_slowa_tab  = explode(' ', $ksiazka_slowa);
$cnt = count($ksiazka_slowa_tab);

for($i=0; $i<$cnt; $i++) {
  if(strlen($ksiazka_slowa_tab[$i]))
     $slowa_table[] = $ksiazka_slowa_tab[$i];
  }
  $cnt = count($ksiazka_id_table);
  for($i=0; $i<$cnt; $i++) {
    $ksiazka_id=$ksiazka_id_table[$i];
    $sql_data=implode("'), ($ksiazka_id, '", $slowa_table);
    $sql = "insert into $ksiazka_table values ($ksiazka_id, ' $sql_data');"; 

mysql_query($sql);
echo $sql . '<br>';
}