Potrzebny mi dziwny program :)

[programikik 0]

Witam, jestem nowy na forum i witam wszystkich.

Mój problem polega na tym, że potrzebuje dziwny program (pewnie nawet taki nie istnieje, ale nie zawadzi zapytać

Co miałby robić ten program?

chciałbym, aby po zaznaczeniu kursorem fragmentu tekstu, a następnie po naciśnięciu CTRL + C (czyli kopiuj), program sam automatycznie przenosił mi zawartość zaznaczenia do pliku w notatniku i żeby skopiowane framenty plików oddzielone były znakiem ;

ktoś ma jakiś pomysł?

[Ramirez79 0]

Jest cos takiego jak Ditto clipborad manager po ang oczywiscie http://ditto-cp.sourceforge.net/

[Daimon82 0]

Skrypt np w vbs który co chwilę będzie sprawdzał czy zawartość schowka się zmieniła jeżeli tak wpisze ją do pliku tekstowego. Banalnie proste.

Pisałem na szybko więc jest najprostszy możliwy. Uruchomi się w tle i stworzy plik tekstowy w miejscu gdzie znajduje się skrypt. Będzie kopiował dane do pliku do momentu aż skopiujesz: endendend

aby skrypt działał musisz stworzyć plik o rozszerzeniu vbs i wkeleić poniższe.

/skrypt usunięty/

[programikik 0]

Jest cos takiego jak Ditto clipborad manager po ang oczywiscie http://ditto-cp.sourceforge.net/

 

mógłbyś mi podpowiedzieć jak go używać, żeby spełniał moje wymagania? bawie się nim 15 minut i nie wiem jak to zrobić, żeby dodawał znak ;, czyli, przykład:

pogrubione - zaznaczone do do kopiowania

ala ma kot

kot ma ale

ala;ale;

 

 

Skrypt np w vbs który co chwilę będzie sprawdzał czy zawartość schowka się zmieniła jeżeli tak wpisze ją do pliku tekstowego. Banalnie proste.

Pisałem na szybko więc jest najprostszy możliwy. Uruchomi się w tle i stworzy plik tekstowy w miejscu gdzie znajduje się skrypt. Będzie kopiował dane do pliku do momentu aż skopiujesz: endendend

aby skrypt działał musisz stworzyć plik o rozszerzeniu vbs i wkeleić poniższe.

 

const output = "allout.txt"

const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

 

set objFSO = CreateObject("Scripting.FileSystemObject")

set objoutput = objFSO.CreateTextFile(output, ForAppending)

stxt=""

 

Do until stxt="endendend"

stxt = getclipboard

if IsNull(txt) = false then

if slasttxt <> stxt and stxt<>"endendend" then

slasttxt = stxt

objoutput.write ";" & stxt

end if

end if

wscript.sleep 500

Loop

 

function GetClipBoard()

set oIe = WScript.CreateObject("InternetExplorer.Application")

oIe.silent = true

oIe.Navigate("about:blank")

do while oIe.ReadyState <> 4

WScript.Sleep 20

loop

 

do while oIe.document.readyState <> "complete"

WScript.Sleep 20

loop

 

oIe.document.body.innerHTML = "<textarea id=txtArea wrap=off></textarea>"

set oTb = oIe.document.getElementById("txtArea")

oTb.focus

oIe.ExecWB 13,0

GetClipBoard = oTb.value

oTb.select

set oTb = nothing

oIe.Quit

Set oIe = nothing

End function

 

skopiowałem to do notatnika i zapisałem jako skrypt.vbs uruchomiłem i nic...

 

przepraszam już się połapałem, ale czy mógłbys zmienić tak, żeby można było usunąć ten plik allout, albo chociaż usunąć jego zawartość oraz żeby ostatnia skopiowana rzecz kończyła się znakiem ;

dziękuje Ci bardzo za poświęcony czas przy pisaniu tego programiku

[Daimon82 0]

Zmieniłem tak jak chciałeś. Plik allout.txt będziesz mógł skasować gdy zakończysz skrypt. Robisz to kopiując do schowka wyraz endendend

Jak coś to pisz na pw mam dziś trochę czasu w pracy

 

const output = "allout.txt"

const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

 

set objFSO = CreateObject("Scripting.FileSystemObject")

set objoutput = objFSO.CreateTextFile(output, ForAppending)

slasttxt=getclipboard

stxt=""

 

i=1

Do until stxt="endendend"

stxt = getclipboard

if IsNull(txt) = false then

if slasttxt <> stxt and stxt<>"endendend" then

slasttxt = stxt

objoutput.write stxt & ";"

if i=10 then

objoutput.write vbcrlf

i=0

end if

i=i+1

end if

end if

wscript.sleep 400

Loop

 

function GetClipBoard()

set oIe = WScript.CreateObject("InternetExplorer.Application")

oIe.silent = true

oIe.Navigate("about:blank")

do while oIe.ReadyState <> 4

WScript.Sleep 20

loop

 

do while oIe.document.readyState <> "complete"

WScript.Sleep 20

loop

 

oIe.document.body.innerHTML = "<textarea id=txtArea wrap=off></textarea>"

set oTb = oIe.document.getElementById("txtArea")

oTb.focus

oIe.ExecWB 13,0

GetClipBoard = trim(oTb.value)

oTb.select

set oTb = nothing

oIe.Quit

Set oIe = nothing

End function

[programikik 0]

teraz sie nic nie kopjuje do pliku allow

[Daimon82 0]

Sprawdziłem, u mnie działa był błąd przy wstawianiu enter ale reszta działała, spróbuj jeszcze raz może z restartem pc żeby się upewnić że w tle któraś wersja cały czas nie działa.

[programikik 0]

jedno słowo KOZAK

dziękuje Ci bardzo

ale pójdę o krok dalej, nie proszę, abys poświęcał więcej swojego czasu, ale napisał czy to jest wykonalne, chodzi o to, żeby komputer sam wykonywał pewne zadania, czyli : wyszkuje na stronie www przycisk pokaż numer (tak jak na olx) i skopiował do pliku numer schowany pod tym przyciskiem, a następnie sam otworzył kolejne ogłoszenie (2, 3, 4, itd. z kolei) a potem 1,2,3,4,5 stronę z kolei i sam wiedział, gdzie znajduje się ten przycisk, a następnie kopiował to co jest pod nim do pliku allow.txt

[Daimon82 0]

O ile strona jest w html-u nie ma najmniejszego problemu, nawet w vbs, podeślij na pw jakiś konkretny przykład to jak będę miał chwilę w pracy to coś naskrobię, nie obiecuję że jutro ale któregoś dnia jak nie będę miał co robić

[programikik 0]

poszło PW