Программирование "удобняшек" на VBScript - [79] :: Прикладное программирование

mityamitya
Вот такой скрипт выберет такие строки целиком. Причём это вариант дополнит уже существующий файл.
Если надо выбирать из середины строки, дополните обработку функцией Mid(), место этих слов уже найдено InStr() - мне лениво символы считать, тем более, что это вряд ли нужно...

Код:

    ' FSO Constants
    t = timer
    Const ForReading = 1
    Const ForAppending    = 8
    Const TristateUseDefault= -2

    ' Variables
    Dim objFSO, objTS, objOTS, objfile, templine

    ' Instantiate the object
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' open the text file read only
    Set objTS = objFSO.OpenTextFile("C:\Temp\in.txt", ForReading, False, TristateUseDefault)
    ' We now open the file to write it out
    If objFSO.FileExists("c:\Temp\out@.txt") Then
        Set objOTS = objFSO.OpenTextFile("C:\Temp\out@.txt", ForAppending) 'открываем итоговый файл для добавления записей
    Else
        Set objfile = objFSO.CreateTextFile("C:\Temp\out@.txt")
        Set objfile = Nothing
        Set objOTS = objFSO.OpenTextFile("C:\Temp\out@.txt", ForAppending)
    End if

    Do While objTS.AtEndOfStream <> True
    templine = objTS.ReadLine()
    if InStr(templine,"<form action=") > 0 and InStr(templine,"</form>") > 0 then
        objOTS.Writeline templine
    end if

    Loop

    ' Close all files after we read it in.
    objTS.Close
    Set objTS = Nothing
    objOTS.Close
    Set objOTS = Nothing
    Set objFSO = Nothing
t=timer-t
msgbox "OK! Run in " & t

Посчитал, самому интересно стало

Если надо выбрать то, что между этими стрингами:

Код:

    if instr(templine,"<form action=") > 0 and instr(templine,"</form>") > 0 then
        objOTS.Writeline mid(templine, instr(templine,"<form action=")+14, instr(templine,"</form>")-instr(templine,"<form action=")-14)
'        objOTS.Writeline templine 'вот вместо этой строки строку выше надо использовать
    end if

Модерирует : ShIvADeSt
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112