Things to Program

[jofspades]

I got bored, and ran out of ideas for batch files.
Ideas? Anyone?

[Squashman]

Sure.  See if you can adapt the Vincenty formula into batch.

[patio]

Have Fun...

[Salmon Trout]

Add every file in a folder to a Zip archive.
Delete every file in a folder tree more than 5 days old.
(Probably easier in VBscript) find the square root of a number by Newton's method.
Shutdown the computer.
Reboot the computer.
Create 100 text files each one 1000 bytes in size with consecutively numbered names in the format text0001.txt text0002.txt etc

[Lemonilla]

Write a secure password input system. (Harder than you would think)

[Lemonilla]

a script to create a graph.

[Ocalabob]

Delete every file in a folder tree more than 5 days old.
Create 100 text files each one 1000 bytes in size with consecutively numbered names in the format text0001.txt text0002.txt etc

Greetings Salmon Trout,
I liked the two above. Gave them a 'go'  just for fun. For your consideration:

Delete every file:

Code: [Select]

@echo off
Robocopy C:\my_folder c:\my_del_folder /e /mov /minage:5
RD /s /q C:\my_del_folderCreate files: (ham fisted approach)

Code: [Select]

@echo off
Setlocal

call :make_file
:start
set /a #=#+1
set num=0000%#%

for /l %%b in (1,1,100) do (
type 1000.txt>text000%%b.txt
if %%b==100 goto :EOF
)

:make_file
for /l %%b in (1,1,25) do (
echo "999999999999999999999999999999999999">>1000.txt
if %%b==25 goto :start
)
They worked for me using WIN 7. I did limited testing.

Thoughts?

[foxidrive]

I used your methods in this modification Ocalabob
I think this format of filename was meant. 

We should have contests on a task to see who's is smallest in bytes, or fastest, or most easily read etc.

Code: [Select]

@echo off

set c=10000
for /l %%b in (1,1,40) do (
>>tmp echo 12345678901234567890123
)

:loop
set /a c=c+1
set num=%c:~-4%
type tmp>text%num%.txt
if %c% LSS 10100 goto :loop
del tmp

[Ocalabob]

@foxidrive
I tested your script. That's good work! Hat tip.

Now what about "Delete every file in a folder tree more than 5 days old."

[Squashman]

fsutil file createnew C:\testfile.txt 1000

[Sidewinder]

Now what about "Delete every file in a folder tree more than 5 days old."

Code: [Select]

forfiles /p c:\testfolder /s /d -5 /m *.* /c "cmd /c echo @PATH"

The echo command can be replaced with the del command. Use forfiles /? for more info.

 

[foxidrive]

Now what about "Delete every file in a folder tree more than 5 days old."

You and Sidewinder have that sewn up.

[Salmon Trout]

(Probably easier in VBscript) find the square root of a number by Newton's method.

' sqr (N) is approx equ to 0.5 * (N/A + A)
N = wscript.arguments(0)
A = 1
D = 1
Do Until D = 0
    C = (N/A + A) / 2
    D = A - C
    A = C
Loop
wscript.echo "Square root of " & N & " = " & C

This can be done in batch...

[Ocalabob]

@Salmon Trout

Reboot the computer.

Batch file using WIN 7.

Code: [Select]

C:\"Program Files (x86)"\O2Micro\Oz600\Devcon Reboot
foxidrive?

[patio]

HuH ? ?