Re: Pridat slovo na konec prvniho radku

ludia preco tak zlozito??
pisem to z hlavy tak pred tym si to zazalohuj
vloz do txt a uloz ako vbs
ak chces aj rekursiu cez podadresare napis....
ak chces dodavat cestu dynamicky napis...

-------------- cut start --------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("cesta kde su subory") 'priklad: "c:\temp"
for each s1 in f.Files
call recreate_file s1
next
msgbox "ukoncene"

sub recreate_file (myTxt)
rd_new =""
Set MyFile = fso.OpenTextFile(myTxt,1)
rd = MyFile.readLine
rd_new = rd & "ten retazec co tam chces pridat"
'MyFile.skipline 'daj prec prvy apostrof ak ti to bude vkladat prvy riadok  2x 
myRest = MyFile.readall
MyFile.Close

Set MyFile = fso.CreateTextFile(myTxt, True)
MyFile.Write rd_new & chr(13) & chr(10)
MyFile.Write myRest 
MyFile.Close
end sub
--------------cut end ----------------------



On Sun, 20 Mar 2005 10:09:18 +0100, Vyroubal Martin <vyroubal@gmail.com> wrote:
> Ja bych asi pouzil kombinaci macro express v kterym bych si vytvoril
> makro na editaci textoveho souboru v total cmd :) Macro express toho
> zvlada hodne a udelat v total cmd "F4 , End, napsat slovo, ALT+S, ALT
> F4, sipka dolu" a to cely opakovat nekolikrat v nem neni zadny
> problem. Navic si v nem muzes nastavit prodlevy mezi jednotlivyma
> klikama, ukonama a vsim moznym, takze pokud mas opravdu rychlej pocal,
> bude ti to hrkat tak ze to je za par minut hotovo :)
>