Kategoria: VBSCRIPT

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

Set MyShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
MsgBox "Nie można wyświetlić kodów ASCII od 07 di 13 i od 28 do 31 !"
Do While IE.Busy
Loop
IE.width=300
IE.height=600
IE.Visible=1
IE.navigate "About:Kody ASCII"
for n = 1 to 255
Out = Out & " 0" & n & " = " & chr(n) & "<br>"
next
ie.document.Body.InnerHTML=Out

Konwersja nazw plików na katakanę

Dim fso, file, file_r, objF
Dim tables,trs,tds
Set fso = CreateObject("Scripting.FileSystemObject")
plik = "wartosci.txt"
folder = "E:\pliki\"
folder_tmp = folder & "tmp_rn\"
Set file = fso.CreateTextFile(plik, True, False)
Set objF = fso.GetFolder(folder)
Set colF = objF.Files
If fso.FolderExists(folder_tmp) = False Then
fso.CreateFolder(folder_tmp)
End If
For Each plik in colF
If fso.FileExists(plik) = True Then
nazwa = plik.Name
nazwa2 = nazwa
nazwa2 = Replace(nazwa2, "Ą","A")
nazwa2 = Replace(nazwa2, "Ć","C")
nazwa2 = Replace(nazwa2, "Ę","E")
nazwa2 = Replace(nazwa2, "Ł","L")
nazwa2 = Replace(nazwa2, "Ń","N")
nazwa2 = Replace(nazwa2, "Ó","O")
nazwa2 = Replace(nazwa2, "Ś","S")
nazwa2 = Replace(nazwa2, "Ź","Z")
nazwa2 = Replace(nazwa2, "Ż","Z")
nazwa2 = Replace(nazwa2, "ą","a")
nazwa2 = Replace(nazwa2, "ć","c")
nazwa2 = Replace(nazwa2, "ę","e")
nazwa2 = Replace(nazwa2, "ł","l")
nazwa2 = Replace(nazwa2, "ń","n")
nazwa2 = Replace(nazwa2, "ó","o")
nazwa2 = Replace(nazwa2, "ś","s")
nazwa2 = Replace(nazwa2, "ź","z")
nazwa2 = Replace(nazwa2, "ż","z")
nazwa2 = Replace(nazwa2, " ","_")
nazwa2 = Replace(nazwa2, "&","_")
file.WriteLine(nazwa & " " & nazwa2)
plik_new = folder_tmp & nazwa2
If fso.FileExists(plik_new) = False Then
fso.CopyFile plik, plik_new
End If
End If
Next
file.Close
WScript.echo "Koniec"

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

Set file_r = fso.CreateTextFile("raport.txt", True, False)
file_r.WriteLine("Tekst do zapis")
file_r.Close

WScript.echo "Koniec"

cell_key = trs.item(d).childNodes(0).innerText

cell_key = Replace(cell_key, "ć", "ć")
cell_key = Replace(cell_key, "Ĺ›", "ś")
cell_key = Replace(cell_key, "Ăł", "ó")
cell_key = Replace(cell_key, "Ĺ„", "ń")