Ввод адреса URL c константой

@t11poster · Регистрация: 21.08.2019

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

Добрый день!

Мучаюсь с задачей такого рода, (Я новичок).

Вообщем извлекаю из блокнота адрес URL таким образом:

$adress =ControlCommand("[class:Notepad]", "", "", "GetLine", 1)

Потом у меня задача открыть браузер и перейти на страницу...
НО! я хочу что бы в строке адреса была забита константа "X"

$oIE = _IECreate("https://X($adress)") -----Типа такого что-то.

Что бы какой бы я адрес не извлек- он у меня начинался с X

Например: Извлек адрес: vkontakte.ru

А зашел на : Xvkontakte.ru

Или например: Извлек адрес: mail.ru

А зашел на : Xmail.ru

Как это сделать? ума не приложу...(

FlasherX · 21.08.2019, 22:03

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

@t11poster · 21.08.2019, 22:11 **[ТС]**

Добрый день.
На самом деле - то откуда извлекается адрес не имеет особого значения... неважно
Пусть хоть из блокнота , или из другого источника.

Я стараюсь решить задачу с подстановкой константы...

Добавлено через 2 минуты
У меня просто адреса лежат списком в блокноте.
Делаю программу которая построчно будет вытаскивать по очереди один за другим адрес и видоизменять подстановкой константы и переходить по ссылке.

FlasherX · 21.08.2019, 23:19

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

Я стараюсь решить задачу с подстановкой константы...

Код

$URL = 'ya.ru'
$URL = 'http://x' & $URL

; 1 вариант:
ShellExecute($URL)
; 2 вариант:
$oRun = ObjCreate("WScript.Shell").Run($URL)

$oShell = ObjCreate("Shell.Application")
; 3 вариант:
$oShell.Open($URL)
; 4 вариант:
$oShell.ShellExecute($URL)

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

которая построчно будет вытаскивать по очереди один за другим адрес

Вот я и пишу:

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

проще по списку текстового файла пройтись.

@t11poster · 22.08.2019, 00:27 **[ТС]**

Спасибо ! Работает!

А по списку пройтись я не умею. Я только начал знакомиться с языком)Пока умею только из блокнота по строчке брать.)
Так и кручусь)

FlasherX · 22.08.2019, 00:53

А ничего сложного тут нет:

Код

$oList = FileOpen('URL-List.txt')
While 1
  $URL = StringStripWS(FileReadLine($oList),3)
  If @error Then ExitLoop
  If StringInStr($URL, '.') Then ShellExecute('http://x' & $URL)
WEnd

@t11poster · 22.08.2019, 09:52 **[ТС]**

Благодарю за помощь!

@t11poster 0 / 0 / 0 Регистрация: 21.08.2019 Сообщений: 4
		1
	Ввод адреса URL c константой 21.08.2019, 20:49. Показов 2321. Ответов 6 Метки нет (Все метки) Добрый день! Мучаюсь с задачей такого рода, (Я новичок). Вообщем извлекаю из блокнота адрес URL таким образом: $adress =ControlCommand("[class:Notepad]", "", "", "GetLine", 1) Потом у меня задача открыть браузер и перейти на страницу... НО! я хочу что бы в строке адреса была забита константа "X" $oIE = _IECreate("https://X($adress)") -----Типа такого что-то. Что бы какой бы я адрес не извлек- он у меня начинался с X Например: Извлек адрес: vkontakte.ru А зашел на : Xvkontakte.ru Или например: Извлек адрес: mail.ru А зашел на : Xmail.ru Как это сделать? ума не приложу...( 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	21.08.2019, 22:03	2
	В чём профит извлечения адреса из окна блокнота? Если нужно несколько адресов, то проще по списку текстового файла пройтись. 0

@t11poster 0 / 0 / 0 Регистрация: 21.08.2019 Сообщений: 4
	21.08.2019, 22:11 [ТС]	3
	Добрый день. На самом деле - то откуда извлекается адрес не имеет особого значения... неважно Пусть хоть из блокнота , или из другого источника. Я стараюсь решить задачу с подстановкой константы... Добавлено через 2 минуты У меня просто адреса лежат списком в блокноте. Делаю программу которая построчно будет вытаскивать по очереди один за другим адрес и видоизменять подстановкой константы и переходить по ссылке. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	21.08.2019, 23:19	4
	Сообщение было отмечено t11poster как решение Решение Сообщение от t11poster Я стараюсь решить задачу с подстановкой константы... Код $URL = 'ya.ru' $URL = 'http://x' & $URL ; 1 вариант: ShellExecute($URL) ; 2 вариант: $oRun = ObjCreate("WScript.Shell").Run($URL) $oShell = ObjCreate("Shell.Application") ; 3 вариант: $oShell.Open($URL) ; 4 вариант: $oShell.ShellExecute($URL) Сообщение от t11poster которая построчно будет вытаскивать по очереди один за другим адрес Вот я и пишу: Сообщение от FlasherX проще по списку текстового файла пройтись. 1

@t11poster 0 / 0 / 0 Регистрация: 21.08.2019 Сообщений: 4
	22.08.2019, 00:27 [ТС]	5
	Спасибо ! Работает! А по списку пройтись я не умею. Я только начал знакомиться с языком)Пока умею только из блокнота по строчке брать.) Так и кручусь) 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	22.08.2019, 00:53	6
	А ничего сложного тут нет: Код $oList = FileOpen('URL-List.txt') While 1 $URL = StringStripWS(FileReadLine($oList),3) If @error Then ExitLoop If StringInStr($URL, '.') Then ShellExecute('http://x' & $URL) WEnd 1

@t11poster 0 / 0 / 0 Регистрация: 21.08.2019 Сообщений: 4
	22.08.2019, 09:52 [ТС]	7
	Благодарю за помощь! 0

Ввод адреса URL c константой

Решение