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")

3 maj 2008

Odczyt text pola Select i wstawienie do pola input

Parametry: formaularz, pole select, pole input

function ustawNazwePozycji(form, fld, name) {
  idx = fld.selectedIndex;
  text = fld.options[idx].text;
  fld_name = form.elements[name];
  fld_name.value = text;
}
24 kwi 2008

RegExp w Access, sprawdzenie czy znak jest cyfra

pos = InStrRev(strValue, " ")
posesja_test = Mid(strValue, pos + 1) 

Dim objRegEx As Object
Set objRegEx = CreateObject("VBScript.RegExp")

objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "\d"

valid = objRegEx.test(posesja_test)
Debug.Print valid
Copyright © | kodyWiG Theme