Žádost o pomoc s VBS skripty (vyhledání>nahrazení, uložení do souboru)

VBS mi na to prijde strasne komplikovany, kdybych to mel resit ja (a nemohl to delat na linuxovem stroji), tak si nainstaluju cygwin, cimz ziskam linuxove nastroje (zdarma, legalne).

pak by reseni vypadalo asi takto:

1. priklad - vybrat 3 cislice tvorici cele slovo, seradit a vyhazet duplicity:

find -type f -name "*.h" -exec grep "\<\d{3}\>" {}\;|sed "s/.*\(\<\d{3}\>\).*/\1/"|sort -u>tools.txt

2. priklad:
find -type f -name "*.h" -exec sed -i "s/Z+\([456789]\d|\d{3,}\)\./Z+40./g"

Nevim, jestli vam to k necemu bude, ale pripadne zkuste aspon najit nejake rozumne nastroje na manipulaci textovych souboru, nez to psat vsechno od zacatku

cygwin potřeba není, grep i sed jsou pro windows i jako statické binárky.

sed.htm
grep.htm

Pánové díky moc za snahu, ale tudy asi cesta nepovede.
sed i grep jsem nainstaloval, pro jistotu jsem je i s knihovnami zkopíroval do adresáře se soubory, které chci projet.
Win příkaz find nepozná parametry v těch příkazových řádcích, nebude on taky součástí Linuxu? A za druhé se v těch přepínačích a parametrech absolutně nevyznám.

Ale úplně mě fascinuje, co jsou lidi schopni nacpat do jednoho řádku

Vse co jsem psal je, co bych pouzil na linuxu, tedy i find. Na Windowsjsem nesahnul uz radu let (mozna vic nez 10?), takze jak to je na nich netusim. Na druhou stranu to, co jsem tu napsal neni nic sloziteho, takze mozna zvladnete sestavit neco podobneho i s pouzitim Windows-only omezeni (nebo ten cygwin):

find -type f -name "*.h" -exec grep "\<\d{3}\>" {}\;|sed "s/.*\(\<\d{3}\>\).*/\1/"|sort -u>tools.txt

find : obecne hleda soubory a adresare
-type f : zajimaji nas pouze soubory
-name "*.h" : ktere konci na .h
-exec : na kazdy soubor spust nasledujici prikaz, {} nahrad za jmeno souboru

grep : obecne vybira radky podle nejakeho vzoru
"\<\d{3}\>" : zacatek slova, presne 3 cislice, konec slova (cili S12000 nevyhovuje, ackoli \d{3} splnuje)
{} : jmeno souboru nalezeneho od findu (treba pokus.h)

\; ukonceni seznamu parametru findu (ano, grep se svymi parametry je sam parametrem, find ho spusti na na kazdy soubor znovu a preda mu jmeno toho souboru misto {} )

| : zretezeni prikazu - vystup predchoziho (tedy radky obsahujici 3cislicova slova, zadne jine radky) predej jako vstup dalsimu prikazu

sed : stream editor (nahrazuje neco necim v textu)
"s/.*\(\<\d{3}\>\).*/\1/" : regularni vyraz, co chceme nahradit cim "s/vzor/nahrada/[parametry]"
s : substitude - nahrad. nasleduje znak, ktery ODDELUJE vzor a nahradu a pripadne parametry
/ : to je ten znak - pouzivame lomitko. Pokud se nam lomitko nelibi, muzeme poucit neco jineho, treba "s@vzor@nahrada@"
: nasleduje vzor:
.* : . je libovolny znak, * predchozi v libovolnem poctu (0..nekonecno) - cili libovolny retezec s libovolnym obsahem
\(neco\) : neco je vec co nas zajima, v nahrade na nej odkazujeme pomoci \1 (u dalsi zavorky \2, \3 a tak dal)
\<\d{3}\> : neco je 3cislicove slovo (viz grep)
.* : nasleduje zase libovolny retezec
/ : oddelovac stejny jako byl za tim "s" na zacatku - nasleduje nahrada
\1 : z celeho radku nas zajima jen to v zavorce (3cislicove slovo), nic vic nechceme
/ : opet oddelovac - nasleduji volitelne parametry (zadne nepotrebujeme, zadne tedy nezadavame)

| : zretezeni prikazu - sed dostava zajimave radky, z nej padaji uz jen ty trojcisli

sort : tridici program na vystup vypise setrideny (po radcich) vstup
-u : --unique vypisuje pouze unikatni vzorky, je-li vic stejnych vypise prvni, ostatni preskoci

> : presmerovani vystupu do souboru (sort vypisuje kyzeny vysledek, my ho nekam ulozime)
tools.txt : jmeno souboru (do ktereho to vypisujeme)

Jak je videt, neni to zadna magie, jen pouziti naprosto beznych nastroju, ktere ma snad kazda linuxova distribuce, zpusobem, pro ktery jsou urceny. Pri prepisovani pro Windows muzou nastat nejruznejsi problemy (nejsou prislusne programy, nektere retezce se pokusi interpretovat primo samy Windows a tak podobne, ale v principu by to melo jit nejak udelat. Cygwin odstranuje prave vetsinu techto problemu, i kdyz je to ponekud s kanonem na vrabce, tak jeho naroky jsou male.)

2. find -type f -name "*.h" -exec sed -i "s/Z+\([456789]\d|\d{3,}\)\./Z+40./g"

find -type f -name "*.h" -exec : viz vyse - najdi *.h a neco s tim udelej
sed : nahrazovani
-i : in-place - udela zmeny primo v souboru, misto aby ho nechal netknuty a vypsal vysledek. Proste ten soubor zedituje

"s/vzor/nahrada/parametry" : viz vyse - parametr "g" (global) znamena, ze to udela i pro vic vyskytu na jednom radku
Z+ : musi to zacinat "Z+" (asi souradnice zet a kladne znaminko)
\(neco\) : o tohle nam jde - viz vyse
[456789]\d : jeden ze znaku 456789 nasledovany cislici (cili 40..99)
| : jako cast regularniho vyrazu znamena NEBO (OR)
\d{3,} : cislice v poctu 3 a vice 100..9999999999999...
\. : tecka. Protoze tecka sama o sobe predstavuje "libovolny znak" tak ji escapujeme backslashem. Takze tato dvojice znamena "tecka osobne"
/ :oddelovac
: cili vzor je napriklad Z+123. obsah zavorky pak je 123 - jdeme to nahradit vyrazem
Z+40. : zet plus 40 tecka, cili obsah zavorky proste nepouzijeme, kdyz je to Z+40. a vic, tak tam dame Z+40.
/ : opet oddelovac
g : parametry - globalne - pokud by radek byl "Z+50. X+60. Z+70." tak se nahradi oba vyskyty a dostaneme "Z+40. X+60. Z+40."

vsechno je to popsane v "man" strankach pro dane prikazy - pokud delate nejake podobne upravy casteji, tak vazne doporucuju si sehnat linux/cygwin a tohle nastudovat. usetri to strasnou spoustu zbytecne driny

Jinak samozrejme muzes pouzit jen tu ideu samotnou a poskladat to z jinych prikazu, ktere mas po ruce, akorat mi prijde zbytecne programovat takovehle veci, kdyz pro ne nastroje existuji uz 20 let nejmin.

Jo a ta 2. je samozrejme trik, pokud bys mel jinou hranici, musis upravit jak tech Z+40., tak ten vyraz pred tim (napriklad pro 53 takto: 5[3456789]|[6789]\d|\d{3,} - cili 53-59|60-99|100 a vic)

Tak tohle je opravdu vyčerpávající odpověď, díky
Nainstaloval jsem ten Cygwin, jen netuším, jak se dostat k disku a cestě umístění těch programů co se mají prohledávat a jak ten řádek s příkazy spustit (nejspíš v přík.řádku). Při spuštění cygwin se spustí console, ale příkazy Linuxu neovládám. V man hledám, ale když nevím co mám přesně hledat, tak je to těžký Což o to, já bych se třeba naučil, jak s tím pracovat, jenže mám ještě dva kolegy, kteří mají "pár" let do důchodu a nejsou v problematice PC tak zběhlí. Proto jsem chtěl, aby to byl nějaký script nebo soubor co se jen spustí a sám to provede. U druhého scriptu to samozřejmě bude chtít vstup uživatele.
Ještě jednou moc díky

pwd - print working directory (aktualni adresar)
ls - list (v DOSu dir) vypise obsah adresare
cd adresar - change directory - prejde do adresare
man prikaz - manual k prikazu (viz tez man man)
apropos slovo - vypise ktere prikazy ho maji v man-u v hlavicce (nevim, je-li v cygwinu)

mc - midnight commander - obdoba nortona, volkova a podobnych dvouoknovych commanderu - velice uzitecne
( ctrl+o zapne/vypne panely, F1 help, da se najit ovladani)

prikaz muzes ulozit do souboru a pak spustit, ale musi mit priznak spustitelny (v mc CtrlX C)
parametry toho skriptu se znaci $1 $2 $3 .... ale u toho druheho si asi napises nejaky kratky program, co to z parametru nageneruje

Linux pouziva / nikoli \ v adresarich, nevim jak cygwin.
Asi by melo jit
cd "C:/muj/adresar/nekde"

Přidal jsem do Path ve win adresář c:\cygwin64\bin\ takže mi to grep a sed spustí, ale problém je v tom, že find bere jako interní příkaz win. Zkopíroval jsem linux find pod názvem lfind. Po spuštění následující hláška:

d:\vbs\el>lfind -type f -name "*.h" -exec grep -e "\<\d{3}\>" {}\; | sed "s/.*\
(\<\d{3}\>\).*/\1/" | sort -u 1>tools.txt
-uSyst'm nem§e nal'zt uvedeně soubor.

Nevím co za soubor nemůže najít

osobně nejsem moc pro takové mixování lin a win prostředí, výjimka jsou mocné textové procesory sed a awk plus prohledávač grep (windowsí ekvivalent find je proti němu chudý příbuzný, protože neumí reguláry)

jedna technická: regulární výrazy umí findstr.
ale k tomu není ve win nápověda, poslepoval jsem to v životě jednou.

Áha, sort je taky windows příkaz, takže už mám lsort.exe Nicméně, script spuštěn, vůbec nevím, jestli běží, ve správci úloh jsou sed i lfind se pohybují v první třetině výpisu, pokud seřadím podle vytížení procesoru. Když se pokusím pustit script podruhé, píše, že Proces nemá přístup k souboru, neboť jej právě využívá jiný proces. Jestli hledá takhle dlouho, tak je to nepoužitelné vzhledem k tomu, že programy mívají i stovky MB a jejich prohledání by trvalo příliš dlouho

Pánové vy mi ale dáváte, to zase neusnu

ls i dir fungují úplně stejně
mc není implementován (což je škoda, s vc a nc jsem kdysi začínal)
Ano, cygwin používá /

mc

Je mezi cygwin balicky, mel by jit nainstalovat :)

místo příkazu find (který ve Windows/DOS) funguje jako textový prohledávač je třeba použít příkazu dir a příkazu for.

např. výpis všech souborů (ne adresářů) s koncovkou .h z c:\cnc, progrepování a zápis výsledků do soubor.txt

for /f %i IN ('dir /b /a-d c:\cnc\*.h') DO type %i |grep ...a tady si už můžeš grepovat co hrdlo ráčí >>soubor.txt

Tohle by taky možná šlo, ale nevím jestli zkouším správně. Pokud napíšu jen tohle bez grepu, neměl by tenhle
příkaz vlastně zkopírovat obsahy všech .h souborů do jednoho souboru?

for /f %i IN ('dir /b /a-d d:\vbs\el\*.h') DO type %i >>soubor.txt

Pokud ano, tak napíše chybu, že DO nebyl nyní očekáván.

možná je tam chyba, psal jsem to zpaměti.

viz for /?

V davce se jen musi pouzit %%i, zkusim si s tim pohrat. Dik

Tak jsem se dopracoval jen k vyřešení exportu všech řádků ze všech souborů obsahujících "3číslice ohraničené mezerami"

15618 TOOL CALL 141 Z S27000 DR+0
47767 TOOL CALL 212 Z S15000 DR+0
60493 TOOL CALL 241 Z S30000 DR+0
280023 TOOL CALL 261 Z S40000 DR+0

for %%i IN (*.h) DO grep -P " \d{3} " %%i |sed "s/.*\(\<\d{3}\>\).*/\1/" >>soubor1.txt

V grepu jsem musel použít přepínač -P, aby mi to bralo tenhle regexp " \d{3} ", gilhadův mi to nebralo vůbec.

Jen ten sed nevím jak zprovoznit, nebere mi to vůbec regulární příkazy nebo je neumím zapsat ve správném formátu.

Linuxový sort jsem našel, ten mi funguje

Jako nouzové řešení beru spustit baťák, v kterém by se vyexportoval temp soubor, který bych prohnal vyvoláním mého VBS scriptu a exportu do souboru, temp soubor pak smazat

PS: za mlada mi říkali zkomoleninou tvýho nicku... Kačůd To ještě skoro nikdo anglicky neuměl

V príkaze sed sa nedajú použiť také konštrukcie, na ktoré si zvyknutý z bežných zápisov (PCRE), takže také \d tam nebude fungovať. Druhá vec je, že ten grep tam už ani nie je potrebný, keď už používaš taký silný nástroj, ako je sed - použiješ prepínač -n a modifikátor /p. Takže namiesto kombinácie grep a sed ti postačí takýto príkaz:

sed -n "s/^.* \([0-9]\{3\}\) .*$/\1/p"

Taky moc děkuju , tohle funguje na výbornou, jen jsem přidal ještě i 4-místné číslo

sed -n "s/^.* \([0-9]\{3,4\}\) .*$/\1/p"

Jdu zkusit vytvořit novou verzi
Teď už by to mělo jít i bez toho VBS scriptu

EDIT:
No vida

for %%i IN (*.h) DO sed -n "s/^.* \([0-9]\{3,4\}\) .*$/\1\d013_______|______|____________________________|_______________|/p" %%i >>temp1.txt
lsort -g -u temp1.txt > _TOOLS_.txt

Měl bych na Tebe jednu otázku ohledně druhého scriptu, kde potřebuju měnit hodnoty v ose Z (pokud je vyšší než nějaká hodnota, změnit na nižší). Tohle mi tak nějak funguje, jen mi to ke každému vygenerovanému souboru udělá ještě dva další (jeden .bak, druhý nějaký automaticky generovaný název sedxxxxx.)

set a=10
for %%i IN (*.h) DO sed -i.bak "s/ Z+[1-9][0-9][0-9]\./ Z+%a%\./g" %%i

Výraz k vyhledání si budu muset upravovat ručně, k nahrazení stačí proměnná v SET= (vyzkoušeno).
Mohl bys mi s tím pomoci prosím? Nevyznám se moc (skoro vůbec) v přepínačích a modifikátorech, určitě tam mám něco špatně.
Jen potřebuju, aby se hodnota změnila přímo v souboru, případně může udělat soubor záložní.

Děkuji moc

Keď má sed priamo upravovať súbor, nad ktorým pracuje (prepínač -i), tak si vytvorí dočasný súbor, ktorý na konci vymaže. Zrejme počas spracovania spadol a tak po sebe neupratal. Príkaz sed nepoužívam zas tak často, ale na Windowse som s ním na takýto problém ešte nenarazil. Zrejme závisí od vstupov, takže ak sem dáš príklad vstupného súboru a presný príkaz, ktorý si spustil, tak si to môžem u seba otestovať.

Tučné hodnoty měním scriptem v souboru _start.bat na Z+10.

27 L M03 M07
28 L Z+231.5 FMAX
29 L X+9.571 Y+28.44 FMAX
30 L Z+201.5 FMAX
31 L
32 L X+9.571 Y+28.44 Z+201.5 FMAX
33 L Z+9.241 FMAX
34 L X+9.571 Y+28.44 Z+3.741 FMAX
35 L X+9.572 Z-0.259 F1200
36 L X+9.558 Y+28.463 F2670
37 L X+9.533 Y+28.474

Použil jsem sed z UnxUtils a už je to ok, dělá už jen bak-y.

Už vymýšlím blbosti, ale zeptám se: Lze jedním příkazem sed provést více vyhledání na více řádcích?
Příklad:
Mám program, z kterého chci vytáhnout číslo nástroje T a za něj doplnit info o nástroji (112 D=12.00 R=1.00 (d12R1-l55-Kieninger))

13 ; PROGRAM NA : Spicka NASTROJE
14 ; NASTROJ : D=12.00 R=1.00 (d12R1-l55-Kieninger)
15 ; PRIDAVEK : P=0.500
16 ;*****************************************
17 TOOL CALL 112 Z S12000 DR+0

for %%i IN (*.h) DO sed -n "s/^.*NASTROJ    : \(.*$\)^.* \([0-9]\{3,4\}\) Z.*$/\2 \1/p" %%i >>temp1.txt

Oba výrazy text najdou, ale jen každý zvlášť
^.*NASTROJ : \(.*$\)
^.* \([0-9]\{3,4\}\) Z.*$
Jde to nějak ošetřit, aby nalezl najednou oba výrazy a zapsal je do jednoho řádku?

...jsou to kouzla a čáry...

EDIT: Tak na to kašlu, zjistil jsem, že když je pro jeden nástroj více drah, tak už se v programu nevyskytuje volání nástroje, je tam jen popis. Musely by být splněny obě podmínky najednou (např.když najde popis, musí do 3.řádku najít ještě číslo nástroje. Pro mě nemyslitelné, vzdávám to

Ještě jednou moc díky všem poradcům za rady a hlavně trpělivost

Pomocou sedu sa dá aj spracovať dva riadky tak, ako si pôvodne chcel:

sed -n -e '/.*NASTROJ : /{s///;h}' -e '/.*\([0-9]\{3,4\}\) Z.*/{s//\1/;H;g;s/\n/ /;p}'

Prvý výraz:

/.*NASTROJ : /  - nájde riadok s textom NASTROJ, pričom výraz zachytí text po dvojbodku s medzerou
{
  s///;  - nahradí zachytený text za prázdny reťazec
  h      - odloží výsledok
}

Druhý výraz:

/.*\([0-9]\{3,4\}\) Z.*/  - nájde riadok s 3-4 číslicami nasledovanými písmenom Z, pričom zachytí celý riadok
{
  s//\1/;   - nahradí zachytený text za tie 3-4 číslice
  H;        - pridá výsledok na nový riadok k už odloženému výsledku
  g;        - vyberie odložený výsledok (dva riadky)
  s/\n/ /;  - nahradí znak nového riadku za medzeru
  p         - vypíše výsledok
}

So sedom sa dá toho robiť naozaj veľa.

Edit: Aha, ty si to chcel vlastne v opačnom poradí. Tak potom takto:

sed -n -e '/.*NASTROJ : /{s///;h}' -e '/.*\([0-9]\{3,4\}\) Z.*/{s//\1/;G;s/\n/ /;p}'

Dík za pomoc, za celý den vyzkoušel takových věcí a kombinací... až mi vyšlo tohle:

for %%i IN (*.h) DO sed -n -e "/.*NASTROJ    : \(.*$\)/{s//\1/;h}" -e "/.* \([0-9]\{3,4\}\) Z.*$/{s//\1 \|  /;G;s/\n/ /;p}" %%i >> vystup.txt
lsort -u vystup.txt > _TOOLS_.txt

Výstup vypadá takhle:

112 | D=12.00 R=1.00 (d12R1-l55-Kieninger)
115 | D=6.00 R=3.00 (d6R3-L40-Kieninger)
136 | D=4.00 R=0.50 (d4R0,5-d4 v delce 40 celkem vylozeno 50 - WEDCO)
212 | D=12.00 R=1.00 (d12R1-l55-Kieninger)
.
.
.

Ještě si pohraju s formátováním aby mi to sedělo do tabulky a bude to přesně jak jsem potřeboval.
Sice to vůbec nechápu, ale hlavní je, že to chodí tak jak má

Tisíceré díky, moc jsi mi pomohl

První script jsem už "tak nějak" vyřešil, už konečně dělá to co má. Jen jsem přidal do výpisu řádky s podtržítky a svislítky, aby se na papír mohlo psát většími písmeny. Kdybych měl čísla jen pod sebou tak bych použil jen cut místo sed. Už do toho začínám trochu pronikat, mám o zábavu na dlouhou dobu postaráno.

Tohle je výpis, takhle mi to vyhovuje:

 112 
_______|______|____________________________|_______________|
 115 
_______|______|____________________________|_______________|
 1153 
_______|______|____________________________|_______________|
 1157 
_______|______|____________________________|_______________|
 1191 
_______|______|____________________________|_______________|

Akorát sed nerozumí mým regulárním výrazům, ať to zkouším jak to zkouším Zkoušel jsem testovat výrazy v RegexBuddy, ale pro GNU nejspíš neplatí jako zástupný znak pro číslici \d . Zkoušel jsem v sed-u psí kusy, ale stejně se nepovedlo. Není potřeba nějaká externí dll?

Jinak Vám dvěma moc děkuju, bez Vás bych to dohromady nedal

EDIT: oprava, ve _start.bat má být (@lsort -g -u)

jen technická - samotné regulární výrazy nejsou na 100% stejné ve všech implementacích. Je třeba se podívat do nápovědy ke konkrétnímu programu. U unixových nástrojů např. na manpages.

man-cgi

Sed.html

jinak velká pochvala za proaktivní přístup a samostudium!

Díky za pochvalu
No právě... že nejsou stejné. Prolezl jsem spoustu stránek ohledně sedu, grepu a reg.výrazů, moc chytrý jsem z toho nebyl. Sed používám ten z Tvého odkazu, ještě zkusím z UnxUtil nebo Cygwinu, třeba se nějaký chytne. Ty regulární výrazy bych potřeboval rozchodit kvůli vyřešení druhého scriptu, tam je opravdu potřebovat budu. Zatím musím vydejchat ten první

ale druhý skript je VBS, tam musíš použít syntax RegExp kódu VBS. (pokud jsem to pochopil správně)

Změny a rozdíly viz: vbscript.html

Ve VBS je to v pohodě, tuhle syntax tak nějak ovládám, používám ho i na makra v Notepad++ (taky mi tedy dává občas zabrat ). Hledám řetězec, který začíná mezerou, pak je 3až4-ciferné číslo, mezera a Z. To Z tam mám kvůli pozdější náhradě za nový řádek "náznak tabulky".

I ten grep, když mu dám parametr -P tak mi " \d{3,4} Z" vezme a řetězec najde.
Jen ten zatrsakr sed ne Ona je spousta příkladů jak sed použít, bohužel většina jen při práci s textem. Už mi z toho občas hrábě

a proč jej nezkusíš nahradit jednodušší formou?

"[0-9][0-9][0-9] Z"

Teď jsem ještě zkusil z posledních sil zkombinovat pár výrazů, aby aspoň něco sed vzal, vyšlo mi toto:

sed -r s/" [0-9]? ?[0-9][0-9][0-9] Z"/test/ soubor1.txt >s.txt

"mezera,číslo 100-1999,mezera,Z" nahradit řetězcem test. Akorát bych potřeboval nahradit vše ostatní kromě nalezeného výrazu. Ještě si s tim budu muset hodně pohrát a pochopit.
Tu mezeru na začátku taky potřebuju, jinak mi to najde i tohle (L X-0.224 Y+1.939 Z+11.437 B+1.889 C+96.618).
Ten sed využiju v druhém scriptu, tam už musím řetězec nahrazovat, tohle byl jen test.

obecně k problematice různých implementací regexpu:

http://www.nti.tul.cz/~satrapa/docs/regvyr/all.htm l

ten zbytek můžeš IMHO pořešit tímto:

Sed.html

Dík za info, konečně pochopitelná stránka v češtině, už je v oblíbených Jdu se vzdělávat