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,
А этот скрипт работает, за что большое спасибо и оценка ОТЛИЧНО.

Новые блоги и статьи Все статьи Все блоги /
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .

@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 Копирование строки с последующим её удалением

Решение