VBSCRIPT - Strona 4 - Kody, triki, sztuczki

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>

7 maj 2008

Sprawdzenie czy istnieje plik

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

...
        If fso.FileExists("E:\cos\stop.txt") Then
            GoTo Koniec
        End If
...
    End If
Loop
Koniec:
Sprawdzenie czy istnieje plik, jeżeli tak to skok do etykiety Koniec:

7 maj 2008

RegExp - dopasowanie i zamiana wybranych fragmentów tekstu

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "(\d{2})-(\d{2})-(\d{3})"
strSearchString = "43-11-777"
strNewString = objRegEx.Replace (strSearchString, "($1) $2-$3")
Wscript.Echo strNewString

w wyniku otrzymujemy: (43) 11-777

7 maj 2008

RegExp - wycinanie prefiksu ulicu, aleji, placu z adresu

valid = False
objRegEx.Pattern = "^(ul|al|pl)."
valid = objRegEx.test(ulica)
  
pre = ""
If valid = True Then
    pre = Left(ulica, 3)
    ulica = Trim(Mid(ulica, 4))
End If

Dla wartości wejściowych: zmienna ulica =
ul. Nowowiejska 26 a
Rynek Starego Miasta

w wyniku otrzymujemy:
ul. Nowowiejska 26 a ( pre = "ul.", ulica = "Nowowiejska 26 a")
Rynek Starego Miasta ( pre = "", ulica = "Rynek Starego Miasta")

20 kwi 2008

Wyrażenie regularne RegExp, zamiana znaków

Dim str
str = "aBbc"

Set objRegEx = New RegExp
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "b"
str = objRegEx.Replace (str, "a")
MsgBox str