How to change this code in order to send text more precisely?

[haXor4life 0]

#include <String.au3>

$Text = FileRead("file.txt")

$Text = _StringBetween($Text, "anything", "anything")

For $i = 0 To UBound($Text) -1

Send($Text[$i])

Sleep(5000)

Next

Сan you tell how to change this code in order to send text more precisely?

Please, code, instead of advice about Controlsend or anything of this kind. Helpfile didn't help me.

Right now send is inadequate: punctuation come to letters etc

This code actually sends text between "anything".

Edited May 25, 2009 by haXor4life

[martin 70]

#include <String.au3>

$Text = FileRead("file.txt")

$Text = _StringBetween($Text, "anything", "anything")

For $i = 0 To UBound($Text) -1

Send($Text[$i])

Sleep(5000)

Next

Сan you tell how to change this code in order to send text more precisely?

Please, code, instead of advice about Controlsend or anything of this kind. Helpfile didn't help me.

Right now send is inadequate: punctuation come to letters etc

This code actually sends text between "anything".

What is it that you think is imprecise about what you are doing at the moment?

[Zedna 183]

Try to use ControlSetText() where Send() is problematic - especially on non-english keyboard layouts.

Edited May 25, 2009 by Zedna

[haXor4life 0]

What is it that you think is imprecise about what you are doing at the moment?

Sending of non-english letters for example.

[haXor4life 0]

Try to use ControlSetText() where Send() is problematic - especially on non-english keyboard layouts.

ControlSetText("", "", "", $Text[$i])

It didn't sent anything.

Edited May 26, 2009 by haXor4life

[Valuater 112]

Try...

Send($Text[$i], 1)

8)

[haXor4life 0]

Try...

Send($Text[$i], 1)

8)

It didn't work. It just reprints symbols in current layout.

Can someone help to make it some kind of copy/paste?

Edited May 26, 2009 by haXor4life

[Authenticity 12]

You can split the string and use the {ASC value} using AscW. Right now send it not fully unicode compatible. Look here for example

[haXor4life 0]

Thank you.

ClipPut ($Text[$i])

Send('^v')

This works great. Edited May 26, 2009 by haXor4life

[Authenticity 12]

I think it's self-explanatory.

#include <String.au3>

$Text = FileRead("file.txt")
$Text = _StringBetween($Text, "anything", "anything")
For $i = 0 To UBound($Text) - 1
    ClipPut($Text[$i])
    Send('^v')
    Sleep(5000)
Next

[haXor4life 0]

Thank you! It is really cool that you exist.

Edited May 26, 2009 by haXor4life

[Inverted 5]

Thank you! It is really cool that you exist.

Haha, best "thank you" post ever !

[Zedna 183]

If it's keyboard layout related and not unicode re;ated problem then look here:

http://www.autoitscript.com/forum/index.ph...442?entry215442

http://www.autoitscript.com/forum/index.ph...ost&p=84092

[haXor4life 0]

Do you guys know why this code

#include <String.au3>

Global $aTmp, $sTmp
Global $Text = FileRead("file.txt")

$Text = _StringBetween($Text, "anything", "anything")
For $i = 0 To UBound($Text) - 1
    $aTmp = StringSplit($Text[$i], '')
    $sTmp = ''
   
    For $j = 1 To $aTmp[0]
        $sTmp &= '{ASC ' & AscW($aTmp[$j]) & '}'
    Next
    Send($sTmp)
    Sleep(5000)
Next

sends ♪◙ with text? And how to get rid of this?

This code

#include <String.au3>

$Text = FileRead("file.txt")
$Text = _StringBetween($Text, "anything", "anything")
For $i = 0 To UBound($Text) - 1
    ClipPut($Text[$i])
    Send('^v')
    Sleep(5000)
Next

stopped working. It just sends v after reboot of computer. Another reboot doesn't help.

[ProgAndy 69]

you could try this: http://www.autoitscript.com/forum/index.ph...st&p=585432

[haXor4life 0]

you could try this: http://www.autoitscript.com/forum/index.ph...st&p=585432

I don't know how.

[haXor4life 0]

Okay I changed

Send('^v')

with

Send("+{INSERT}")

and it works again. Hope after reboot it will continue to work.