03-05-2010, 07:20 PM
1. goal take what's currently in the clipboard and append it with today's date.
2. Then go and save the file I have open in excel as a .txt
3 My original macro works fine 'N.N0N3N0N3N1N0N.chg manual way to do it.
4. I want to take it to the next level now.
5. I'm testing to see if I have it right by activating notepad and pasting there, the problem is it puts note pad into what i paste too.
6.myfilename is what i start out with in the clipboard to add to s1 getclip.
resuslt i get:
myfilename
.030510Notepad
result i want :
myfilename030510
str s1.getclip
str today.time(".%m%d%y%")
str s2.from(s1 today.time(".%m%d%y%"))
s2.setclip
act "Notepad"
'Cv
====================================
==========================================================================================
original macro that works but have to change the date each day. using 'N.N0N3N0N3N1N0N.chg
Save as text tab delimited
act "Excel"
'F12
int w1=wait(5 win("Save As" "bosa_sdm_XL9"))
wait 0.2
'Cv
add todays date into file name
wait 0.2
***********************************
ADDS THE DATE IN THE FILE NAME HERE.
MONTH|DAY|YEAR
'N.N0N3N0N3N1N0N.chg
***********************************
Speak "push Down arrow key"
wait 0 K D
act win("Save As" "bosa_sdm_XL9")
wait 1.2
'TUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDDDY
wait 1.2
'TTTTDUUUUUUUUUUUUUUDDDY
wait 1.2
'TTTTTTY
wait 1.2
Speak "I'm hear now"
5 win("Microsoft Office Excel" "#32770")
wait 1.2
'Y
wait 1.2
Speak "all done bye bye"
wait 1.2
'Y
2. Then go and save the file I have open in excel as a .txt
3 My original macro works fine 'N.N0N3N0N3N1N0N.chg manual way to do it.
4. I want to take it to the next level now.
5. I'm testing to see if I have it right by activating notepad and pasting there, the problem is it puts note pad into what i paste too.
6.myfilename is what i start out with in the clipboard to add to s1 getclip.
resuslt i get:
myfilename
.030510Notepad
result i want :
myfilename030510
str s1.getclip
str today.time(".%m%d%y%")
str s2.from(s1 today.time(".%m%d%y%"))
s2.setclip
act "Notepad"
'Cv
====================================
==========================================================================================
original macro that works but have to change the date each day. using 'N.N0N3N0N3N1N0N.chg
Save as text tab delimited
act "Excel"
'F12
int w1=wait(5 win("Save As" "bosa_sdm_XL9"))
wait 0.2
'Cv
add todays date into file name
wait 0.2
***********************************
ADDS THE DATE IN THE FILE NAME HERE.
MONTH|DAY|YEAR
'N.N0N3N0N3N1N0N.chg
***********************************
Speak "push Down arrow key"
wait 0 K D
act win("Save As" "bosa_sdm_XL9")
wait 1.2
'TUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDDDY
wait 1.2
'TTTTDUUUUUUUUUUUUUUDDDY
wait 1.2
'TTTTTTY
wait 1.2
Speak "I'm hear now"
5 win("Microsoft Office Excel" "#32770")
wait 1.2
'Y
wait 1.2
Speak "all done bye bye"
wait 1.2
'Y