Как скопировать строку из блокнота и вставить в создаваемый файл?

[sergeinovilozf]

Здравствуйте.

Создаю ярлык браузера, со своими параметрами:

$silka = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
FileCreateShortcut($silka, @DesktopDir & "\Тестовый ярлык.lnk", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "Доступ в Интернет", @SystemDir & "\shell32.dll", "^!t", "15", @SW_MINIMIZE)

Ярлык работает,открывается.

Теперь не могу сделать,чтобы $silka копировалась из блокнота,и вставлялась в данное поле.

ShellExecute ("1.txt");Запуск внешней программы с помощью ShellExecute API.
;ниже ссылка в блокноте 
;$silka = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
WinWaitActive ("[class:Notepad]");Приостановить выполнение скрипта до активизации указанного окна.
Sleep (500)
$Line1 = ControlCommand("[class:Notepad]", "", "", "GetLine", 1); стоит 1 первая строка    Высылает команду элементу.GetLine Возвращает текст строки элемента Edit, номер которой указан
Sleep (500)
$Line2 = ConsoleWrite($Line1 & @CRLF);Записывает данные в стандартный поток вывода STDOUT.Этот текст будет записан в консоль
Sleep (500)
$Line3 =ControlSetText("Настройка параметров локальной сети", "", "", $Line2);Устанавливает текст в элемент.
FileCreateShortcut($Line3, @DesktopDir & "\Тестовый ярлык.lnk", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "Доступ в Интернет", @SystemDir & "\shell32.dll", "^!t", "15", @SW_MINIMIZE)

 

[ra4o]

чтобы $silka копировалась из блокнота

Зачем Вам копировать данные из блокнота, если можно просто прочитать содержимое файла в переменную ? Дайте пример файла , откуда нужно копировать $silka
Например, если файл "1.txt" находится рядом со скриптом и нужный адрес заведомо известно, что в первой строке, то можно сделать так :

$Line3 =ControlSetText("Настройка параметров локальной сети", "", "", FileReadLine ( @ScriptDir&'\1.txt' , 1))

 

[sergeinovilozf]

Спасибо за ответ.
Да ссылка в первой строчке,в файле рядом со скриптом.
Так попробывал

$Line3 =ControlSetText("Настройка параметров локальной сети", "", "", FileReadLine ( @ScriptDir&'\1.txt' , 1))
FileCreateShortcut($Line3, @DesktopDir & "\Тестовый ярлык.lnk", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "Доступ в Интернет", @SystemDir & "\shell32.dll", "^!t", "15", @SW_MINIMIZE)

В поле "Объект" C:\Users\имя комп.\Desktop\0
а не "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

 

[ra4o]

В поле "Объект" C:\Users\имя комп.\Desktop\0
а не "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

Откуда берутся эти пути ? Из текстового файла ? Дайте пример этого файла иначе будем гадать долго.

 

[sergeinovilozf]

Вот из этого txt файла.А вообще в блокнот его записал из свойств браузера хром.

 

[ra4o]

Читает правильно, легко проверить , добавив в код строку:

ConsoleWrite(FileReadLine ( @ScriptDir&'\1.txt' , 1)&@CR)

 

[sergeinovilozf]

При копировании не копируется,в msgbox показывает ноль.

$Line3 =ControlSetText("Настройка параметров локальной сети", "", "", FileReadLine ( @ScriptDir&'\1.txt' , 1))
MsgBox(64, 'Что скопировано из файла 1.txt', $Line3)
FileCreateShortcut($Line3, @DesktopDir & "\Тестовый ярлык.lnk", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "Доступ в Интернет", @SystemDir & "\shell32.dll", "^!t", "15", @SW_MINIMIZE)

 

[alex33]

sergeinovilozf

$Line3 = FileReadLine ( @ScriptDir&'\1.txt' , 1)
ControlSetText("Настройка параметров локальной сети", "", "", $Line3)
MsgBox(64, 'Что скопировано из файла 1.txt', $Line3)

Это же разные функции!

 

[sergeinovilozf]

alex33, так пробывал,выдаёт в msgbox строку,но как вставить её в

$Line3=
FileCreateShortcut($Line3, @DesktopDir & "\Тестовый ярлык.lnk", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "Доступ в Интернет", @SystemDir & "\shell32.dll", "^!t", "15", @SW_MINIMIZE)

Добавлено:

Сообщение автоматически объединено: 30 Мар 2018

Немного упростил (ярлык уже не нужен), но вопрос копирования остался:

$Line3 = FileReadLine ( @ScriptDir&'\1.txt' , 1)); т.е. здесь из 1.txt    это  C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
Run("$Line3  http://yandex.ru/");

Спасибо всем за ответы.Решение найдено:

ShellExecute ("1.txt")
;ниже ссылка в блокноте
;"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
WinWaitActive ("[class:Notepad]")
Sleep (500)
$silka =ControlCommand("[class:Notepad]", "", "", "GetLine", 1)
Sleep (300)
Run($silka )