Найти строку и вывести ее

@SogoHimo · Регистрация: 04.01.2019

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

Здравствуйте! Возникла задача: необходимо создать vbs, который бы считывал файл, находил там строку (например "Hello world") и выводил ее(строку) полностью.

То есть, если у нас есть текстовый файл с содержанием:

Привет, мир! Как дела?
Hello world! How are you?

То после запуска скрипта должно выдать

Hello world! How are you?

Помогите, пожалуйста, если кто сможет

FlasherX · 30.01.2025, 16:24

Последний? С учётом моего последнего выше сообщения?
Если да, то пишем полный путь до system.conf и прикладываем сюда.

@d3nteoomph · 31.01.2025, 11:22

C:\ProgramData\AnyDesk\system.conf
Я правда уже по другому написал скрипт, мне ещё требовалось чтобы при отсутствии файла писало "Не установлен"

FlasherX · 31.01.2025, 22:25

Тогда Environment.Item("ProgramData") вместо SpecialFolders(5).

@badkompact · 02.03.2025, 01:54

Все работает!

@PrinceMouse · 08.03.2025, 19:04

Рабочий вариант скрипта получения anydesk id для BGinfo

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim regex, matches, filePath, fileContent
Set regex = New RegExp
regex.Pattern = "(^|\n)ad\.anynet\.id=(\d+)"
 
filePath = CreateObject("WScript.Shell").Environment("Process").Item("ProgramData") & "\AnyDesk\system.conf"
 
If CreateObject("Scripting.FileSystemObject").FileExists(filePath) Then
    fileContent = CreateObject("Scripting.FileSystemObject").OpenTextFile(filePath, 1).ReadAll
    Set matches = regex.Execute(fileContent)
    If matches.Count > 0 Then
        Echo matches(0).Submatches(1)
    Else
        Echo "ad.anynet.id не найден."
    End If
Else
    Echo "Файл system.conf не найден."
End If

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	30.01.2025, 16:24
	Последний? С учётом моего последнего выше сообщения? Если да, то пишем полный путь до system.conf и прикладываем сюда. 0

@d3nteoomph 0 / 0 / 0 Регистрация: 30.06.2022 Сообщений: 11
	31.01.2025, 11:22
	C:\ProgramData\AnyDesk\system.conf Я правда уже по другому написал скрипт, мне ещё требовалось чтобы при отсутствии файла писало "Не установлен" 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	31.01.2025, 22:25
	Тогда `Environment.Item("ProgramData")` вместо `SpecialFolders(5)`. 1

@badkompact 0 / 0 / 0 Регистрация: 17.04.2020 Сообщений: 1
	02.03.2025, 01:54
	Все работает! 0