[Petya V4sechkin]

sushnyak, в цикл вставляйте (образец я вам показал).

[Wens]

Здравствуйте. Пожалуйста помогите решить задачу, пытаюсь уже второй день и ни получается. Есть тексовый документ (1.txt), в нем около 200 строк текста, некоторые строки пустые, в некоторых спецсимволы. Необходимо создать New.txt и перенести в него из 1.txt первые 50 строк. Необходим перенос именно строк, а не просто текста, т.е. точная копия первых 50 строк из 1.txt . Пытался командой more - переносится не содиржимое экрана cmd, а содиржимое буфера, команда +150 не сработает даже если выставить обратный порядок, т.к. общее кол-во строк значение переменное, первые 50 строк всегда первые, новые появляются снизу, знака минус не предусмотрено, fiind и sort тоже никак.

[Petya V4sechkin]

Wens, VBS устроит?

Код:

Dim FSO, FIn, FOut, Cnt
Set FSO = CreateObject("Scripting.FileSystemObject")

Set FIn = FSO.OpenTextFile("1.txt", 1)
Set FOut = FSO.CreateTextFile("New.txt", True)

Cnt = 0
Do While Not FIn.AtEndOfStream And Cnt < 50
  FOut.WriteLine FIn.ReadLine
  Cnt = Cnt + 1
Loop

FOut.Close
FIn.Close

[Wens]

Спасибо за ответ, только эта операция является частью конструкции батника, попробовал встроить ее в батник и создать vbs из него - неполучается. Если особо не затруднит, нельзя ли найти решение через cmd ? В принципе, я командой more +50 создал второй файл txt , в нем нет как раз первых 50 строк, но не получается вывести разницу, пытаюсь заставить Findstr вывести разницу, тоже не получается.

[Petya V4sechkin]

только эта операция является частью конструкции батника, попробовал встроить ее в батник и создать vbs из него - неполучается.

Делаете скрипт .vbs, запускаете из батника командой:

Код:

CScript /Nologo имя_скрипта.vbs

[Wens]

Так в том то и дело что мне очень надо иметь один только батник, можно создание и запуск скрипта в процессе работы батника, но у меня не получается перекинуть из батника в скрипт строку Do While Not FIn.AtEndOfStream And Cnt < 50 , все остальные строки долетают как надо, а эта либо не долетает вообще, либо с кавычками, либо приходят кракозяблы, между строками пустых строк как у вас нет, но если вставить недостающую, то работает. Вот ищу решение а иначи уже почти готовый батник придется переделывать в скрипт.

[Petya V4sechkin]

не получается перекинуть из батника в скрипт строку Do While Not FIn.AtEndOfStream And Cnt < 50

Код:

Echo Do While Not FIn.AtEndOfStream And Cnt ^< 50 >>имя_скрипта.vbs

Символ ^ для экранирования спецсимволов.

[Wens]

Ну как обидно! Уже почти додумался сам, экперементировал с символами % и ^ перед <50. Большущее вам спасибо! Кстати летом пользовался вашим интегратором v.8.8.19 .На дистриб SP2купленный когда то в ларьке, был интегрирован SP3, аддоны WMP11 и IE7 - результат обалденный, система очень, очень стабильна, а вот недавно попытался зделать тоже на оригинальный CD SP2 OEM интегратором v.8.12.12 и сразу глюки! Еще раз спасибо за скрипт.

[wander84]

Здравствуйте. В написании bat файлов у меня мало опыта, необходима помощь.

Ситуация такая:
Есть комп дома и комп на работе. Дома IP динамический. Хочу заходить на домашний комп через "Подключение к удаленному рабочему столу" и др. - нужна информация об изменении IP домашнего компа.

Задумка такая:
В планировщике заданий(назначенные задания) каждый час указываю выполнять BAT-файл с содержанием:
ipconfig > C:\body.txt
C:\blat.exe C:\body.txt -to почта_куда@слать.ru -subject "IP-adress" -charset windows-1251

т.е. информация ipconfig пишется в body.txt и с помощью утилиты blat передается почтой на ящик "почта_куда@слать.ru".

Но в ipconfig много строк, нужна всего одна - IP - xxx.xxx.xxx.xxx (внешний IP)
Как вытащить нужную строку из txt файла? Чтобы её записать, к примеру в другой txt файл, и его передать на почту. Желательно, чтобы IP был в теме сообщения.

Возможно ли сделать так, чтобы информация об IP-адресе сначала сравнивалась с предыдущей и только в случае её изменения отправлялась на почту?

Заранее спасибо!

[Petya V4sechkin]

wander84, проще воспользоваться Dynamic DNS