- Luck Dragon: Asszociációs játék. :)
- aquark: RETRO: Idén lesz 30 éves az első full 3D-s játék!
- potyautas: Norvég nyár
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- Geri Bátyó: Agglegénykonyha 13 – Néhány egyszerű, de finom étel
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- mefistofeles: Az elhízás nem akaratgyengeség!
Új hozzászólás Aktív témák
-
lapa
veterán
üdv. vbscriptben szeretnék könyvtárat tallózni. van ugyan ilyen: [link], de ez elég bénácska, ugyanis nem tudom a kezdő könyvtárat megadni benne. a ''root'' nekem nem jó, mert akkor annál feljebb nem enged brózolni. nekem olyan kéne, ami a desktoptól indul, de az általam megadott könyvtárat jelöli ki defaultban. vagy csak én néztem be és van benne ilyen?
-
#447
lapa
veterán
matekmatika
#444
lapa
veterán
válasz
matekmatika
#444
üzenetére
pláne már #437-ben megoldódott...
amúgy érdekes, mert application.worksheetfunction.isnumber(szam) nem ment pedig kéne neki sztem.
[Szerkesztve] -
#445
lapa
veterán
matekmatika
#444
lapa
veterán
válasz
matekmatika
#444
üzenetére
if isnumeric(szam) then
de ha az excel makrós totyikba írod látom... -
#400
lapa
veterán
MartinIsti
#395
lapa
veterán
válasz
MartinIsti
#395
üzenetére
küzdöttem egy kört mire megtaláltam de emlékeztem, hogy nem kell ciklusozni...
ActiveCell.CurrentRegion.Rows.Count
ActiveCell.CurrentRegion.columns.Count
vagy fixen cells(1,1).CurrentRegion.Rows.Count -
-
lapa
veterán
azért ennél iparibb, gizikeállóbb megoldásra van szükségem. pláne nem akarok pittyegtetni vele a scannelésen kívül 500 dokumentumot. nagy megkönnyebbülésemre találtam azóta franyesz programot rá, jó kis multifunkciós gépen lapadagolóval egy megosztott könyvtárba mennek a fileok, az app meg figyeli a könyvtárat és átnevezi a doksikat vonalkód-alapon. elvégre 21. század. ettől függetlenül elkezdem ezt a kommand-bigyót csinálni, meglátjuk mire jutok. már van helloworldöm
[Szerkesztve] -
lapa
veterán
tehát van egy vonalkód-felismerő szoftver, amihez adnak felismerő dll-t, ocx-et meg miegymást. adnak hozzá egyszerű tesztalkalmazást forráskóddal x+1 nyelvre. egy ilyet linkeltem be fent. ha lefordítom, akkor ez egy form, amiben ki lehet választani a fájlt (tif, bmp...) és alul kiírja a fájlban felismert vonalkódból dekódolt szöveget.
namost nekem nem kell form meg gombok, hanem elég lenne pl. egy parancssoros cucc, aminek a paraméterében megadnám a fájlnevet és valahogy (ez mondjuk nem tiszta) visszaadná a kiolvasott értéket. hétköznapi nyelven: van 20 doksim, és végigloopolnék egy scripptel rajtuk, ami elindítja minden fájlnál ezt a commandline cuccot, majd a scriptnek visszaadott érték alapján a script átnevezné a fájlt.
odáig kábé megvagyok, hogy a program dll-jének vannak bemeneti paraméterei és ezeket kéne megadni, de pl. visual basic express-ben már elakadok. új projekt --> commandline app --> kapok egy ''Main''-t. ez szép és jó, de fingom nincs hogyan mondom meg neki a fájlnevet bemeneti paraméterként. ehhez pl. jól jönne egy minta, pl. cmdapp.exe /message ''helloworld'' /type ''vbcritical'' adjon ki egy ''helloworld'' messageboxot nagy piros x-szel (csak hogy ne egy paraaméterről beszéljünk hamár...). -
lapa
veterán
üdv. kéne írnom egy olyan alkalmazást, ami felismert vonalkódok alapján egy file-listát átnevez. van dll meg ocx meg mittomén milyen könyvtár hozzá.
ha egy mód van rá maradnék vbs-nél (ha jóltom a com-ot meg lehet etetni vele), de ha nem megy akkor küzdök visual basic express-szel.
először vbs: szal vannak a következő fileok, amit a vonalkódfelismerő cucchoz adtak:
Form1.frm
Project1.vbp
Project1.vbw
tehát odáig megvagyok, hogy filesearch-elek a könyvtáron. de hogyan hívom meg a könyvtárat? meg hogyan adok neki változókat, amiket kér? ha segít itten egy zipben a fájlok: [link]
most elkezdek küzdeni ezzel az express-szel ettől függetlenül, ha valaki mutatná legalább az irányt megköszönném. -
lapa
veterán
mert az activate, nem select.
a problémádra: lehet esetleg lapfüleket elrejteni mikor megnyitod a munkafüzetet, felvétel gommbal lenézed az eszközök --> beállításokból. kicsit barkács mondjuk, meg vissza kell rakni close-nál. meg ctrl+pgup /ctrl+pgdn még mindig műkszik. rakd esetleg más fájlba.
btw: excel makrós totyik [link] -
#275
lapa
veterán
[HUN]Zolee
#274
lapa
veterán
válasz
[HUN]Zolee
#274
üzenetére
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.
-
#254
lapa
veterán
Apollo17hu
#253
lapa
veterán
válasz
Apollo17hu
#253
üzenetére
küttem mintafájlt mailen, mert nekem még mindig műxik.
-
#252
lapa
veterán
Apollo17hu
#251
lapa
veterán
válasz
Apollo17hu
#251
üzenetére
hát nemtom értem-e mit szeretnél, de ez tuti műkszik:
OpenDialog_Filter = ''Excel (*.xls), *.xls''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
opendialog_selectedfile = Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
Workbooks.Open Filename:=opendialog_selectedfile
csinál ''megnyitás'' ablakot és a kiválasztott fájlt megnyitja szépen. két aposztrófokat kicserélted macskakörömre? az előzőben volt egy sortörés is, ebből kivettem hátha az kavart be.
egyébként nem jó egy olyan megoldás, hogy az excelben csinálsz egy gombot neki és ahhoz rendeled hozzá a makrót? -
#249
lapa
veterán
Apollo17hu
#248
lapa
veterán
válasz
Apollo17hu
#248
üzenetére
OpenDialog_Filter = ''Szöveges fájlok (*.txt), *.txt''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
OpenDialog_SelectedFile = _
Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
...
Workbooks.OpenText Filename:=OpenDialog_SelectedFile
ez mondjuk txt-t nyit. vagy valami másra gondoltál? -
lapa
veterán
ez féloff, mert vbs (!), de ide teszem fel.
1. tudok fuction-t beágyazni vbs-be? tehát olyan programrészt, amit aztán csak meghívok, amikor kell.
2. műxenek a common dialog-ok (open file, mittomén) vbs-ben? ha igen, vki meg tud dobni egy sampléval esetleg? köszi
[Szerkesztve]
Új hozzászólás Aktív témák
- exHWSW - Értünk mindenhez IS
- One otthoni szolgáltatások (TV, internet, telefon)
- Vezeték nélküli fülhallgatók
- Milyen CPU léghűtést vegyek?
- Gitáros topic
- Érdemes elővenni a Diablo II-t: érdekes újdonságot kap a játék
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Tőzsde és gazdaság
- SSD kibeszélő
- Gaming notebook topik
- További aktív témák...
- ELADÓ: 8GB SKHynix 2400MHz DDR4 SODIMM (laptop) memória (+gari/számlás)
- GAINWARD PYTHON III RTX 5070 12GB GDDR7! 3 VENTIS! GARANCIA/SZÁMLA (a Te nevedre kiállítva)!
- 15.gen! Intel Core ULTRA 9 285K (24mag!) +hűtött VRM-es Z890 lap! GAR/SZÁMLA (Te nevedre kiállítva)!
- MSI GF63 Thin 9SCX
- R2-d2 c3po STAR WARS (80cm x 100 cm) olajefstmény
- Bomba áron eladó Asus Vivobook S433EA /i7-1165G7/16GB/512 GB SSD/FDHD/IPS
- Dell Latitude 5400 14" FHD IPS, i5 8365U, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- HIBÁTLAN iPhone 13 Pro Max 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4379, 100% Akkumulá
- Telefon felvásárlás!! Samsung Galaxy S23/Samsung Galaxy S23+/Samsung Galaxy S23 Ultra
- Eladó Apple iPhone 11 Pro Max 64GB Arany / 12 hónap jótállás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest