home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / Telefon.vbs < prev    next >
Encoding:
Text File  |  2001-03-04  |  685 b   |  28 lines
  1. Set f = CreateObject("Scripting.FileSystemObject")
  2. Set datei = f.OpenTextFile("c:\skripty\telesez.txt")
  3. '****** Ve 2. °ßdku nastavte cestu k textovΘmu souboru se seznamem adres a Φφsel *****
  4.  
  5. suche=ucase(inputbox("Koho hledßte ?","Telefonnφ seznam"))
  6. suche=ltrim(suche)
  7. suche=rtrim(suche)
  8. i=instr(suche," ")
  9. if i > 0 then
  10.     suche1=left(suche,i-1)
  11.     suche2=mid(suche, i +1)
  12. else
  13.     suche1=suche
  14.     suche2=suche
  15. end if
  16.  
  17. Do until datei.AtEndOfStream
  18.     zeile=ucase(datei.readline)
  19.     if instr(zeile,suche1) then 
  20.         if instr(zeile,suche2) then output=output & zeile & chr(13) & chr(10)
  21.     end if
  22. Loop
  23.  
  24. if output="" then
  25.     msgbox "Zßznam nenalezen."
  26. else
  27.     msgbox output
  28. end if