VBS Копирование строки с последующим её удалением

@sundraw · Регистрация: 12.01.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Есть текстовый файл all.txt. Нужно составить VBS, который бы считывал первую строку в all.txt и отправлял её в файл 1.txt, при этом в all.txt первая строка должна удаляться. В BAT-файле решение есть:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off
for /f "usebackq  delims=" %%i in (`find /n /v "" all.txt ^| find "[1]"`) do (
    set value=%%i
)
echo %value:~3% > 1.txt
 
set n=1
set Src=all.txt
set Dest=tmp.txt
 
more +%n% < "%Src%" > "%Dest%"
 
del all.txt
ren tmp.txt all.txt

Понимаю, что в батнике много лишнего, в VBS должно быть проще.

@sundraw · 24.05.2019, 11:33 **[ТС]**

Сообщение от FlasherX

..приведя код с пропуском пустых строк.

Впервые об этом коде слышу. Проверил все Ваши скрипты, работает только первый, остальные выдают ошибку. О конструктиве... такое ощущение, что из меня медленно тянут жилы...Без обид. Чтоб заманить животное в клетку, на его тропе подбрасывают маленькие кусочки вкусненького по пути к клетке, и...оно даже не понимает, как в ней и оказывается. Эти факты создали у меня стойкое убеждение, что скрипты - это не основная Ваша специальность.
И Вам успехов!

FlasherX · 24.05.2019, 11:54

Сообщение от sundraw

Впервые об этом коде слышу.

Надо не слышать, надо видеть.

Сообщение от sundraw

остальные выдают ошибку.

И причины этих ошибок все на поверхности. Вместо публикации вызова вы продолжаете упражняться в словоблудии.
P.S.: Я вас, наверное, озадачу, но скрипты — это вообще никакая не специальность, посему и основной она быть просто не в состоянии.

@sundraw · 25.05.2019, 04:45 **[ТС]**

Из уважения к сайту не хочется флудить. Я попросил одного - составить скрипт, который бы в текстовом файле вырезал бы первую строку, отправлял её в другой файл, при этом пропуская или удаляя пустые строки, и по окончании строк сообщал бы, что они кончились. Всё.
1700 просмотров. и ни одного специалиста кроме FlasherX. Если такой скрипт сделать нельзя, так и скажите, но...полное молчание. Создаётся впечатление, что всех сковал страх...перед чем, или кем, интересно? Если сайт приветствует троллинг "несмышлёных чайников" - не верю. Не верю, что над своим ребёнком, только пытающимся научиться ходить и говорить, здесь смеются и издеваются, если он пока этого не умеет делать. Если я в чём-то ошибаюсь, подскажите, в чём именно. Если эти 1700 просмотров - цирковое шоу для других, то почему сайт называется Киберфорумом?
Если кто, кроме FlasherX, даст внятный ответ, буду признателен.

FlasherX · 25.05.2019, 05:52

Не по теме:

Когда чего-то не хочется, то без принуждения этого не делают. Не так ли?
1700 просмотров — это цветочки. У этой темы 24000+ просмотров при 3-х ответах. Все в штаны наложили там ответить, или всё же есть объективные причины? Вы в курсе, как работает поисковая индексация, и сколько незарегистрированных пользователей может сюда попасть из поисковиков? Или, может, думаете, здесь каждый второй прохожий знаком с предметом? Далеко нет.
И после всех ваших "ощущений" и "впечатлений" вы тут будете про троллинг рассказывать? Пора бы уже усвоить, что попытки перекладывать с больной головы на здоровую ни к чему хорошему не приводят. А ваши игры со снятием отметки лучшего ответа при том, что он 100%-но соответствовал исходному ТЗ, плюсов в вашу копилку точно не добавят. С таким отношением только и остаётся держать карман шире...

@sundraw · 25.05.2019, 08:13 **[ТС]**

Галку с лучшего ответа я снял только в надежде, что кто-то другой ответит на форуме. С галкой будут считать, что вопрос решён. А вопрос не доработан. Как уже и говорил, второй ваш скрипт, где вы предлагаете "пройтись по списку" выдаёт ошибку, её я написал выше, а я всего лишь просил не "путешествовать по списку", а убирать пустые строки. Третий ваш скрипт, дополненный мной по вашей подсказке, также выдаёт ошибку. Я бы поставил полугалку, так правильнее, но её нет. Ели она вам так нужна, оставлю, так и быть.

FlasherX · 25.05.2019, 13:44

Дело не в наличии галки, а в вашем поведении. Она прежде вам нужна, если хотите нормального отношения. В родительском разделе её всё равно не видно. А в текущем — кому интересно, тот зайдёт и посмотрит. Как будто темы с галками на форуме не поднимаются. Короче, тянуть из вас информацию для нормального варианта надоело. Возвращаемся к старому:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Dim FSO, BatFile, Prx, Str, Check
Set FSO = CreateObject("Scripting.FileSystemObject")
'———————————————————————————————————————————
Const Host_Name = "server"
Const Proxylist = "O:\all.txt"
BatFile = FSO.GetSpecialFolder(0) & "\1.bat"
'———————————————————————————————————————————
 
Set Prx = FSO.OpenTextFile(Proxylist)
If Not Prx.AtEndOfStream Then
    Do: Str = Trim(Prx.ReadLine)
        If Len(Str) Then
            FSO.OpenTextFile(BatFile, 2,1).Write "PRX " & Str
            FSO.OpenTextFile(Proxylist, 2).Write Prx.ReadAll
            Check = 1: Exit Do
        End If
    Loop Until Prx.AtEndOfStream : Prx.Close
End If
Set FSO = Nothing: If Check = 0 Then _
CreateObject("WScript.Shell").Run "msg * / server:" & Host_Name & " Достигнут конец документа!", 0

@sundraw · 25.05.2019, 16:14 **[ТС]**

FlasherX,
А этот скрипт работает, за что большое спасибо и оценка ОТЛИЧНО.

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@sundraw 10 / 10 / 6 Регистрация: 12.01.2017 Сообщений: 390
	25.05.2019, 04:45 [ТС]
	Из уважения к сайту не хочется флудить. Я попросил одного - составить скрипт, который бы в текстовом файле вырезал бы первую строку, отправлял её в другой файл, при этом пропуская или удаляя пустые строки, и по окончании строк сообщал бы, что они кончились. Всё. 1700 просмотров. и ни одного специалиста кроме FlasherX. Если такой скрипт сделать нельзя, так и скажите, но...полное молчание. Создаётся впечатление, что всех сковал страх...перед чем, или кем, интересно? Если сайт приветствует троллинг "несмышлёных чайников" - не верю. Не верю, что над своим ребёнком, только пытающимся научиться ходить и говорить, здесь смеются и издеваются, если он пока этого не умеет делать. Если я в чём-то ошибаюсь, подскажите, в чём именно. Если эти 1700 просмотров - цирковое шоу для других, то почему сайт называется Киберфорумом? Если кто, кроме FlasherX, даст внятный ответ, буду признателен. 0

FlasherX
	25.05.2019, 05:52
	Не по теме: Когда чего-то не хочется, то без принуждения этого не делают. Не так ли? 1700 просмотров — это цветочки. У этой темы 24000+ просмотров при 3-х ответах. Все в штаны наложили там ответить, или всё же есть объективные причины? Вы в курсе, как работает поисковая индексация, и сколько незарегистрированных пользователей может сюда попасть из поисковиков? Или, может, думаете, здесь каждый второй прохожий знаком с предметом? Далеко нет. И после всех ваших "ощущений" и "впечатлений" вы тут будете про троллинг рассказывать? Пора бы уже усвоить, что попытки перекладывать с больной головы на здоровую ни к чему хорошему не приводят. А ваши игры со снятием отметки лучшего ответа при том, что он 100%-но соответствовал исходному ТЗ, плюсов в вашу копилку точно не добавят. С таким отношением только и остаётся держать карман шире... 0

@sundraw 10 / 10 / 6 Регистрация: 12.01.2017 Сообщений: 390
	25.05.2019, 08:13 [ТС]
	Галку с лучшего ответа я снял только в надежде, что кто-то другой ответит на форуме. С галкой будут считать, что вопрос решён. А вопрос не доработан. Как уже и говорил, второй ваш скрипт, где вы предлагаете "пройтись по списку" выдаёт ошибку, её я написал выше, а я всего лишь просил не "путешествовать по списку", а убирать пустые строки. Третий ваш скрипт, дополненный мной по вашей подсказке, также выдаёт ошибку. Я бы поставил полугалку, так правильнее, но её нет. Ели она вам так нужна, оставлю, так и быть. 0

@sundraw 10 / 10 / 6 Регистрация: 12.01.2017 Сообщений: 390
	25.05.2019, 16:14 [ТС]
	FlasherX, А этот скрипт работает, за что большое спасибо и оценка ОТЛИЧНО. 0

Опции темы

VBS Копирование строки с последующим её удалением

Решение