Dzień: 2008-05-15

15 maj 2008

Lista tabel na stronie

Dim ie4, fso, file
Dim tables,trs,tds

Set ie4=CreateObject("InternetExplorer.Application")
ie4.navigate ("http://www.moa.waw.pl/")

Do while ie4.ReadyState<>4
Loop

ie4.width=640
ie4.height=480
ie4.visible=1
'WebHTML = ie4.document.body.InnerHTML - zrzuca do zmiennej WebHTML, tresc strony z BODY
Set tables = ie4.document.all.tags("TABLE")
cnt_tables = tables.length

for j = 0 to (cnt_tables-1)
  WScript.echo tables(j).innerHTML
next
15 maj 2008

Dodawanie opcji do Selecta

Dodawanie opcji do selecta  z bieżącego okna i z nowego okna

<HTML>

  <HEAD>
    <SCRIPT LANGUAGE="JavaScript">

      var tmpval = "";
      function add_option() {

        nr = document.forms[0].miasto.length
        ntyp = new Option('Lublin', nr)
        document.forms[0].miasto.options[nr] = ntyp
      }
      function add_option2() {
        tmpval = document.forms[0].tmpval.value

        if (tmpval != "") {
          nr = document.forms[0].miasto.length
          ntyp = new Option(tmpval, nr)
          document.forms[0].miasto.options[nr] = ntyp
          document.forms[0].tmpval.value = ""
        }
      }
      function new_option() {
        config = 'toolbar=no, location=no, directories=no, status=no, menubar=no, width=250, height=30, scrollbars=no, resizable=no, top=150, left=480'
        win = window.open("", "option", config)

        body = '<title>Dodaj miasto</title>'
        body += '<script>function add_option(){'
        body += 'opener.document.forms[0].tmpval.value = document.forms[0].noption.value'
        body += 'opener.document.forms[0].dodaj.focus()'
        body += 'self.close()'
        body += '}<\/script><form><INPUT TYPE="text" NAME="noption" value=""><INPUT TYPE="button" name="dodaj" value="Dodaj"' + 'onClick="' + "add_option()" + '"></form>'

        win.document.write(body)
      }

    </SCRIPT>
  </HEAD>

  <BODY>
    <br><br><br>
    <FORM METHOD=POST ACTION="select.html" name="adres">
      <TABLE>
        <TR>
           <TD><select name="miasto">
                 <option value="1">Warszawa</option>
                </select>
             </TD>
           <TD><INPUT TYPE="button" name="dodaj" value="nowe okienko dodaj" onClick="new_option()"
              onFocus="add_option2()"></TD>
           <TD><INPUT TYPE="button" name="dodaj2" value="dodaj" onClick="add_option()"></TD>
           <TD><INPUT TYPE="hidden" name="tmpval" value=""></TD>
        </TR>
      </TABLE>
    </FORM>
  </BODY>

</HTML>
15 maj 2008

Uruchamianie skryptu do programu AWK

awk -f program_awk < test.txt
skrypt zliczy ilość nie pustych lini w pliku test.txt

zawartosc sktyptu program_awk:

NF == 1 { print $0; nl++; next }
END { print ":" nl }
15 maj 2008

Odczyt markerow w VBS

Kod powoduje wyświetlenie pod tabelka src obrazka zawartego w tabeli

<HTML>
  <HEAD>
    <TITLE> Odczyt markerow w Vbs </TITLE>
  </HEAD>

  <BODY>
    <TABLE>
      <TR>
         <TD><B>11234324</B></TD>
         <TD>2</TD>
      </TR>
      <TR>
         <TD><IMG SRC="http://www.moa.waw.pl/logo.gif"></TD>
         <TD>4</TD>
      </TR>
    </TABLE>
    <SCRIPT LANGUAGE="VBScript">
      Dim images
      Set images = document.all.tags("IMG")
      cnt_images = images.length
      for i = 0 to cnt_images - 1
      img_src = images(i).src
      document.write(img_src)
      next
    </SCRIPT>
  </BODY>
</HTML>
Copyright © | kodyWiG Theme