Liczby w kolejnosci

[KamilPolska1111]

Potrzebuje pomocy, bo nie mogę napisać w Autoit, żeby wpisywały liczby w kolejności. Chodzi mi o to, ze chce żeby się wpisywało np. słowo "ProgramNr" z numeracją w kolejności np. ProgramNr1, ProgramNr2, ProgramNr3 i tak dalej do ProgramNr10. Jeszcze chciałbym, żeby autoit mógł wyszukać tekst w notatniku np. Test. Wytłumaczę o co chodzi. W notatniku jest np. 7 z wierszem "Test" i chciałbym żeby autoit to wyszukało tekst "Test" i je podmieniało np. na ProgramNr1 i drugi raz wyszukuje tekst "Test" i podmieniało na ProgramNr2 i trzeci tekst "Test" i podmieniało na ProgramNr3. Przepraszam za błędy, bo pisałem to na telefonie.

[wasta]

O ile dobrze zrozumiałem twoje intencje, to kod będzie wyglądał tak:

Run("notepad.exe")

MsgBox(0,"TEST","Wczytaj do notatnika tekst źródłowy")

$sTxt = ControlGetText("[CLASS:Notepad]", "", "Edit1")

$iNR=0

MsgBox(64,"Tekst źródłowy",$sTxt)
Do
   $iNR += 1
   $sTxt=StringReplace($sTxt, "Test", "ProgramNR" & $iNR, 1)
Until @extended=0

ControlSetText("[CLASS:Notepad]", "", "Edit1", $sTxt)

 

[KamilPolska1111]

Okej. Udało mi się zrobić.

[KamilPolska1111]

Odświeżam temat. A jak te Msgbox zamienić na to żeby się zamieniało w notatniku wszystko ale żeby nie pokazywało msgbox.

Run("notepad.exe")

MsgBox(0,"TEST","Wczytaj do notatnika tekst źródłowy")

$sTxt = ControlGetText("[CLASS:Notepad]", "", "Edit1")

$iNR=0

MsgBox(64,"Tekst źródłowy",$sTxt)
Do
   $iNR += 1
   $sTxt=StringReplace($sTxt, "Test", "ProgramNR" & $iNR, 1)
Until @extended=0

MsgBox(64,"Tekst wynikowy",$sTxt)

 

[KamilPolska1111]

Witam. Mógłby mi ktoś przerobić ten kod? Chodzi mi o to ze chciałem żeby mi bot wpisywał w kolejności liczby np. Program1, Program2, Program3 itd. ale to ma być na Send()

[wasta]

Myślę, że chodziło ci o coś takiego. Można to zrobić na różne sposoby, ale to będzie chyba najprostsze.

Skrypt testowy:

Run("notepad.exe")

MsgBox(0,"TEST","Wczytaj do notatnika tekst źródłowy")

$sTxt = ControlGetText("[CLASS:Notepad]", "", "Edit1")

$iNR=0

MsgBox(64,"Tekst źródłowy",$sTxt)
Do
   $iNR += 1
   $sTxt=StringReplace($sTxt, "Test", "ProgramNR" & $iNR, 1)
Until @extended=0

MsgBox(64,"Tekst wynikowy",$sTxt)

[wasta]

Nie bardzo rozumiem o co ci chodzi. Jaki to ma mieć związek z Send()?