Перейти к содержимому

Фотография

Записать текст в "Блокнот"


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 3

#1 appmen

appmen

    Опытный участник

  • Members
  • PipPipPipPip
  • 408 сообщений
  • ФИО:Victor

Отправлено 20 ноября 2010 - 15:34

Здравствуйте, недавно начал осваивать скрипты, хочу открыть блокнот и ввести в него текст из переменной
Sub Main
    Dim Result As Integer
    Dim i As Integer
    Dim word As Integer

    StartApplication "C:\WINDOWS\system32\notepad.exe"
    word=0
    for i=1 to 5 step 1
    word=word+1
       Print word  
    next i
    InputKeys "Finish"
   
End Sub
Использовать InputKeys не получается, а Print выводит значение переменной на экран
  • 0

#2 Zenturio

Zenturio

    Опытный участник

  • Members
  • PipPipPipPip
  • 386 сообщений
  • ФИО:Дмитрий
  • Город:Смоленск - Москва


Отправлено 22 ноября 2010 - 05:54

Здравствуйте, недавно начал осваивать скрипты, хочу открыть блокнот и ввести в него текст из переменной

Sub Main
    Dim Result As Integer
    Dim i As Integer
    Dim word As Integer

    StartApplication "C:\WINDOWS\system32\notepad.exe"
    word=0
    for i=1 to 5 step 1
    word=word+1
       Print word  
    next i
    InputKeys "Finish"
   
End Sub
Использовать InputKeys не получается, а Print выводит значение переменной на экран


А где клик по рабочей области блокнота?
Где активация окна блокнота
д.б Window SetContext
EditBox Click...
ну или что то в этом роде
inputchars CSTr(word)
либо
inputkeys CSTr(word)
  • 0

#3 Pryanik

Pryanik

    Постоянный участник

  • Members
  • PipPipPip
  • 214 сообщений
  • Город:МОСКВА

Отправлено 22 ноября 2010 - 07:36

Здравствуйте, недавно начал осваивать скрипты, хочу открыть блокнот и ввести в него текст из переменной

Sub Main
    Dim Result As Integer
    Dim i As Integer
    Dim word As Integer

    StartApplication "C:\WINDOWS\system32\notepad.exe"
    word=0
    for i=1 to 5 step 1
    word=word+1
       Print word  
    next i
    InputKeys "Finish"
   
End Sub
Использовать InputKeys не получается, а Print выводит значение переменной на экран


Sub Main
    Dim Result As Integer
    Dim a As String

        a = "my text"
        StartApplication "C:\WINDOWS\system32\notepad.exe" 
        Window SetContext, "Caption=Untitled - Notepad", ""
        InputChars a

End Sub

  • 0

#4 appmen

appmen

    Опытный участник

  • Members
  • PipPipPipPip
  • 408 сообщений
  • ФИО:Victor

Отправлено 23 ноября 2010 - 18:59

Большое спасибо, Pryanik. Всё работает как мне надо. В хелпе этого не нашёл, а в SQABasic.pdf поиск этого слова тоже не находит. Возможно у меня старая версия, мог бы кто дать ссылку на более свежую?

Zenturio, с CSTr та же проблема, ни в хелпе ни в руководстве по языку. К стати, InputChars\InputKeys Str$(word) тоже работает. Так что ошибка была в преобразовании типа переменной :)
  • 0


Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анонимных