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

@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

Новые блоги и статьи Все статьи Все блоги /
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .
Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	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 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	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