Replace text with file name - 1000 ×

http://www.makeuseof.com/tag/how-to-fin...
http://findandreplace.codeplex.com/

oz če bi pogooglal.

Ena for zanka in sed v bashu? Trivial.

"Se da komu spisat ?"

Zakaj se v Slo pričakuje, da programerji vse počnemo za zabavo? Na nobenem forumu v SLO še nisem videl da bi kdo napisal: "Ali se da komu popravit moj avto?"; ali pa "Ali se da komu prebelit moje stanovanje?". Na vseh forumih pa je vse polno želja, da bi programerji ljudem pisali skripte (ali ker celotne programe) tako malo, ker pač nimamo kaj pametnejšega početi.

:( Žalostno

Bom naslednjič mehaniku eno pivo prneso.

Menjava gum je tut trivialna...

johanblond je 20. dec 2013 ob 10:54 izjavil:

No, vprašal sem, ker sem dobil odgovor da je trivialno.

Zame to pomeni, 7 vrstic, toliko tipkanja kot za tvoj odgovor.

Poglej, da ne bova zaplezala. Te razumem in pač pričakuješ pomoč, kar je super. Problem, ki sem ga izpostavil je v spoštovanju dela nekoga drugega. Dela preprosto ne moremo meriti po tem koliko časa traja, temveč koliko truda in znanja je vanj vloženega.

Ob tem se spomnim na zeloo dobro šalo, ki govori točo o tej tematiki. Človek pride k zobozdravniku z zeloooo razbolelim in čisto črvivim zobom. Zobozdravnik ga sprejme, ugotovi, da mora zob izpuliti, ga v 10 sec. izpuli ter izda račun za 25 EUR. Stranka gleda račun in gleda zobozdravnika ter se čudi:

-: "75EUR za 10sec dela? Pa kaj ste normalni; toliko ne zasluži Donald Trump!".
-: "Oh se oproščam, vam bom drugič zob pulil 2 uri ter vam računal 25 EUR!"

Torej ne vzami tega osebno, ker je to pač navada, ki je vseprivsotna in slučajno sem pač problem izpostavil v tvoji tematiki. Preden se kakorkoli jeziš name, poglej po spletu in boš videl da sem pomagal že več 100 ljudem. Ni problem v pomoči; vendar pa vedno pričakujem, da se bo uporabnik tudi sam potrudil in zaprosil za pomoč tam kjer res zmanjka znanja. Torej pokazal bo neko samo-iniciativo.

Ti potrebuješ skripto, ki to bo popravila 1000 datotek. To boš na roke verjetno počel kakšne 4 ure. Opcije so torej sledeče:
1. Ali to narediš sam na roke - 4 ure
2. Ali napišeš program, ki ti to naredi:
2.a) Če ga znaš napisati, SUPER - 10 minut dela in končano
2.b) Če ga ne znaš se ga naučiš - 1 dan učenja a znaš nekaj več in boš drugič hitrejši
2.c) Če ga ne znaš prosiš, da ga napiše nekdo drug
2.c.1) Čakaš, da ti to nekdo naredi povsem zastonj
2.c.2) Oceniš koliko je vrednih 4 ure tvojega življenja in ponudiš neko odškodnino. Torej, če ti kdo napiše ta program mu plačaš nekaj denarja ali napišeš kakšno nalogo (če si še v šoli) ali ga povabiš na pivo... Karkoli - Saj ni nujno da sploh sprejme - a če ponudiš, s tem pokažeš, da spoštuješ njegovo delo, da ga spoštuješ kot osebo in da ti je jasno, da je ta oseba v reševanje TVOJEGA problema vložila trud in znanje.

Kot rečeno - tole nikakor ne leti na avtorja te tematike osebno - pač ko sem ravno začel, da pač nadaljujem v tej tematiki in s tem odgovorim tudi uporabniku 'Harmony'. Torej Harmony sam praviš, da so ti avtomobil popravili za eno pivo. E, torej si prinesel eno pivo - nekaj je.

Cenite delo drugih in drugi bodo cenili vaše delo. Ne pozabite pa da 'ceni' ne pomeni nujno in samo 'v denarju'!

In da ne bom samo modroval ti pošiljam tudi rešitev v VBScriptu. Prekopiraj to v tekstovno datoteko in jo poimenuj pretvori.vbs. Pravilno vpiši mapo (druga vrstica) in končnico tvojih datotek (tretja vrstica), ter vpiši koliko x-ov želiš zamenjati 15-ta vrstica. Potem datoteko izvedi z ukazom cscript pretvori.vbs Ah, da pisano pa je tole za okolje OKEN!

  dim mapa: mapa = "c:\tmp\xx"
  dim koncnica: koncnica = "xyz"
  
	dim FSO:	Set FSO = CreateObject("Scripting.FileSystemObject")
  dim Fldr: Set Fldr = FSO.GetFolder(mapa)
  dim Files: Set Files = Fldr.Files
  
  for each file in Files
    if UCase(FSO.GetExtensionName(file)) = Ucase(koncnica) Then
      Dim datoteka: Set datoteka = FSO.OpenTextFile(file)
      Dim vsebina: vsebina = datoteka.ReadAll
      datoteka.Close
      
      vsebina = Replace(vsebina, "xxxxx", FSO.GetBaseName(file))
      
      Set datoteka = FSO.OpenTextFile(file, 2)
      datoteka.write vsebina
      datoteka.Close
    end if
  next

  Set Files = nothing
  Set Fldr = nothing
  set FSO = nothing 		

Tole poskusi. Na prvo morda izgleda komplicirano, a verjemi, da dela čudeže, ko se enkrat navadiš nanj.

http://www.bulkrenameutility.co.uk/Down...