Разработка динамических сайтов
SEO услуги
Управление контекстной рекламой

Вход на хостинг

Имя пользователя:*

Пароль пользователя:*

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

подробнее

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

подробнее

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

подробнее

Set fso = CreateObject("Scripting.FileSystemObject")

' Получаем сведения о файлах, находящихся в данной папке

Set fld = fso.GetFolder(".")

Set objTextFile2 = objFSO.OpenTextFile("c: emp mp", ForWriting, True)

For Each fi In fld.Files

If fi.name<>"excel.vbs" AND fi.name<>"result.xls" Then

' Файл сценария и файл отчета не открывать

Set readPCFile = objFSO.OpenTextFile(fi, ForReading)

i = 0

s.Cells(n, 1) = fi.name ' Имя файла – это имя компьютера

Do Until readPCFile.AtEndOfStream

strNextLine = readPCFile.Readline

  i = i + 1

  ' Первые 6 строк в файлах отчетах – это шапка,

  ' экспортировать не нужно

  If i>6 Then 

    s.Cells(n, 2) = strNextLine

   objTextFile2.WriteLine (strNextLine)

    n = n + 1

    End If

  Loop

 readPCFile.Close

End If

Next

objTextFile2.close

f=3

Set objTextFile2 = objFSO.OpenTextFile("c: emp mp", ForReading)

Do Until ObjTextFile2.AtEndOfStream

 strNextLine = objTextFile2.Readline

 ' ищем вхождения имени приложения

 Set fc = s1.Columns("A").Find(strNextLine)

 If  fc Is Nothing  Then ' не нашли, тогда добавляем


Предыдущая страницаОглавлениеСледующая страница
 
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020]
[021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040]
[041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060]
[061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080]
[081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100]
[101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140]
[141] [142] [143] [144] [145] [146] [147] [148]

+7 (831) 413-63-27
ООО Дельта-Технология ©2007 - 2016 год
Нижний Новгород, ул. Дальняя, 17А.
Rambler's Top100