Что нового

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

sergeinovilozf

Чайник
Сообщения
51
Репутация
0
Здравствуйте.

Создаю ярлык браузера, со своими параметрами:
Код:
$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

Скриптер
Сообщения
978
Репутация
180
чтобы $silka копировалась из блокнота
Зачем Вам копировать данные из блокнота, если можно просто прочитать содержимое файла в переменную ? Дайте пример файла , откуда нужно копировать $silka
Например, если файл "1.txt" находится рядом со скриптом и нужный адрес заведомо известно, что в первой строке, то можно сделать так :
Код:
$Line3 =ControlSetText("Настройка параметров локальной сети", "", "", FileReadLine ( @ScriptDir&'\1.txt' , 1))
 
АТ
S

sergeinovilozf

Чайник
Сообщения
51
Репутация
0
Спасибо за ответ.
Да ссылка в первой строчке,в файле рядом со скриптом.
Так попробывал
Код:
$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

Скриптер
Сообщения
978
Репутация
180
В поле "Объект" C:\Users\имя комп.\Desktop\0
а не "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Откуда берутся эти пути ? Из текстового файла ? Дайте пример этого файла иначе будем гадать долго.
 
АТ
S

sergeinovilozf

Чайник
Сообщения
51
Репутация
0
Вот из этого txt файла.А вообще в блокнот его записал из свойств браузера хром.
 

Вложения

  • 61 байт Просмотры: 3

ra4o

Скриптер
Сообщения
978
Репутация
180
Читает правильно, легко проверить , добавив в код строку:
Код:
ConsoleWrite(FileReadLine ( @ScriptDir&'\1.txt' , 1)&@CR)
 
АТ
S

sergeinovilozf

Чайник
Сообщения
51
Репутация
0
При копировании не копируется,в 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

Скриптер
Сообщения
1 451
Репутация
180
sergeinovilozf
Код:
$Line3 = FileReadLine ( @ScriptDir&'\1.txt' , 1)
ControlSetText("Настройка параметров локальной сети", "", "", $Line3)
MsgBox(64, 'Что скопировано из файла 1.txt', $Line3)

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

sergeinovilozf

Чайник
Сообщения
51
Репутация
0
alex33, так пробывал,выдаёт в msgbox строку,но как вставить её в

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

[br][br]Добавлено:
Сообщение автоматически объединено:

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

Код:
$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 )
 
Верх