2009. május 28., csütörtök
Progress adatbázis készítése
Progress adatbázis készítése
/home1/dlc82c/bin/prostrct create /home8/userdb/adat_q /home8/userdb/adat_q.st
a script létrehozza a fájlokat az adat_q.st fájl alapján
Fájlkiterjesztések
b1: before image
lg: logfájlok
cah fájlok
cah fájlok nem szükségesek, ezért
a /home1/starters/cladat_q scriptben kicommentezhetők ezek a sorok
és a fájl végére teendők.
2009. május 25., hétfő
Freeware programok
http://www.larshederer.homepage.t-online.de/erunt/
NtRegopt - Registry Optimization
http://www.larshederer.homepage.t-online.de/erunt/
2009. május 20., szerda
Excel: Könyvtár létezése függvény
On Error GoTo ErrNotExist
ChDir (Directory)
CheckDir = True
Exit Function
ErrNotExist:
CheckDir = False
End Function
Forrás: http://www.asap-utilities.com/excel-tips-detail.php?categorie=9&m=97
2009. május 12., kedd
Status bar információ
Sub CountDown()
Dim intCounter As Integer
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
For intCounter = 30 To 1 Step -1
Application.StatusBar = intCounter & " Seconds..."
Application.Wait Now + TimeSerial(0, 0, 1)
Next intCounter
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub
' Forrás: http://www.exceltip.com/show_tip/Menus,_Toolbars,_Status_bar_in_VBA/Countdown_in_status_bar_using_VBA_in_Microsoft_Excel/347.html
2009. május 11., hétfő
UTP kábel bekötési sorrendje
1. Narancs-fehér
2. Narancs
3. Zöld-fehér
4. Kék
5. Kék-fehér
6. Zöld
7. Barna-fehér
8. Barna
Az 1-es lábat úgy kell nézni, hogy ha lefelé álló pöcökkel bedugod (feléd áll ki a dugóból a kábel), akkor balról van az 1-es láb. A színek bekötési sorrendje a TIA/EIA-568B szabvány szerint értendő.
1. Narancs-fehér | 2. Narancs | 3. Zöld-fehér | 4. Kék | 5. Kék-fehér | 6. Zöld | 7. Barna-fehér | 8. Barna
A színsorrend a következő:
1. zöld-fehér
2. zöld
3. narancs-fehér
4. kék
5. kék-fehér
6. narancs
7. barna-fehér
8. barna
Mindkét bekötési sorrend helyes. Az egyik az A, a másik a B típus. Egyenes kábel mindkét végén vagy A vagy B van, a kereszt kábelnek egyik felén A a másikon B.
Ha normális kábelt szeretnétek csinálni, akkor CSAK ezeket szabad használni. Rövid kábeleknél tényleg működik bármilyen sorrendel a dolog, de egy méter fölött már nem.
A blankolásnál ügyelni kell, hogy a kábeleket ne vágd be. Amikor bedugod a kábel ereket a csatlakozóba, akkor minden érnek el kell érnie a csatlakozó legvégét. A krimpelés után az összes érintkezőnek egy magasságban kell lennie. A csatlakozó két szélén meg tudod nézni, hogy a kések megfelelő mélységben vannak-e, belemennek-e a kábelköpenybe.
Egyébként nem csak a kábel lehet kontaktos, hanem a csatlakozó is. Ezt a kábel megfordításával ellenőrizheted. Ha a kábeled mindkét vége ugyanúgy mutatja a hibát, akkor kezdhetsz gyanakodni, hogy nem vagy nem csak a kábeled rossz.
Típusai
Egyeneskötésű (link):
PC -- Switch
Router -- Switch
HUB -- PC
Keresztkötésű (cross-link):
Router -- PC
PC -- PC
Switch -- Switch
Konzol (cross-over): Számítógép soros portja és router/switch konzol portja (DB-9 - RJ-45 átalakító) közötti átvitelhez.
Beszerelés szerint
Beszerelés szerint 2 fajta kábeltípust különböztetünk meg. A megkülönböztetés alapját a kábelezés telepítésekor a különböző elhelyezkedésből adódó igények hozták létre. Az elkülönítés a külső védőburkolat merevsége alapján történik meg.
1. Patch-kábel
2. Fali-kábel
* Egyeneskötésű-kábel szerelése:
1. - - - - - 1.
2. - - - - - 2.
3. - - - - - 3.
4. - - - - - 4.
5. - - - - - 5.
6. - - - - - 6.
7. - - - - - 7.
8. - - - - - 8.
* Keresztkötésű-kábel szerelése:
1. - - - - - 1.
2. - - - - - 2.
3. - - - - - 3.
4. - - - - - 4.
5. - - - - - 5.
6. - - - - - 6.
7. - - - - - 7.
8. - - - - - 8.
és
1. - - - - - 3.
2. - - - - - 6.
3. - - - - - 1.
4. - - - - - 7.
5. - - - - - 8.
6. - - - - - 2.
7. - - - - - 4.
8. - - - - - 5.
* Konzol-kábel szerelése:
1. - - - - - 8.
2. - - - - - 7.
3. - - - - - 6.
4. - - - - - 5.
5. - - - - - 4.
6. - - - - - 3.
7. - - - - - 2.
8. - - - - - 1.
Maxdate (Excelben adott tételből a legújabb dátumú megjelölése)
tömbképlettel:
{=HA(G116=MAX($G$2:$G$5999*(($B$2:$B$5999)=B116));"max";"-")}
Csatolt fájlokról lista Excelben
Sub Csatolt_fajlok()
' Csatolt fájlokról készít egy kimutatást
kjaktiv = ActiveWorkbook.Name
' megjeleníti a csatolt Excel fájlokat
aLinks = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(aLinks) Then
' For i = 1 To UBound(aLinks)
'MsgBox "Link " & i & ": " & aLinks(i)
' Next i
Windows("csatolt.xls").Activate
Sheets("csatolás").Select
kjdb = Worksheets("csatolás").Range("d1")
'Set NewSheet = Worksheets.Add
For i = 1 To UBound(aLinks)
Worksheets("csatolás").Cells(kjdb + i + 1, 1).Value = kjaktiv
Worksheets("csatolás").Cells(kjdb + i + 1, 2).Value = aLinks(i)
Next i
End If
End Sub
Hét hányadik hete az évnek
=1+INT((A1-DÁTUM(ÉV(A1+4-HÉT.NAPJA(A1+6));1;5)+
HÉT.NAPJA(DÁTUM(ÉV(A1+4-HÉT.NAPJA(A1+6));1;3)))/7)
http://www.cpearson.com/excel/weeknum.htm
Outlookban nem jelennek meg a címek
Létező címtárak
Outlook címjegyzék eltávolítása
Hozzáadás Outlook címjegyzék
Outlook újraindítása
Névjegyalbum
Jobb egérgomb - adatlap
Outlook címjegyzék fül
Pipa bekapcsolása: Megjelenítés az elektronikus levelezés címjegyzékeként
Excel konvertálása csv-be
Sub xls2csv()
vevo = Worksheets("ini").Range("A2") & ".txt"
Sheets("db").Select
Const DELIMITER As String = "|"
Dim myRecord As Range
kjfile = "Z:\konyvtar\" & kjev & "\txt\" & vevo
Dim myField As Range
Dim nFileNum As Long
Dim sOut As String
nFileNum = FreeFile
' Open "Test.txt" For Output As #nFileNum
Open kjfile For Output As #nFileNum
For Each myRecord In Range("A1:a" & _
Range("a" & Rows.Count).End(xlUp).Row)
With myRecord
For Each myField In Range(.Cells, _
Cells(.Row, Columns.Count).End(xlToLeft))
sOut = sOut & DELIMITER & myField.Text
Next myField
Print #nFileNum, Mid(sOut, 2)
sOut = Empty
End With
Next myRecord
Close #nFileNum
End Sub
Adóazonosító (magánszemélyek) ellenőrzése
Nyilvános algoritmus
Az Alkotmánybíróság 1991-ben a korlátozás nélkül használható, általános és egységes személyazonosító kód (személyi szám) alkotmányellenességét mondta ki - emlékeztet az adószámmal kapcsolatos beadványra adott válaszában Péterfalvi Attila, adatvédelmi biztos. Ilyen típusú, alkotmányos szempontból aggályos kód ma már nincs is használatban.
Az említett Ab-döntésnek megfelelő, különböző azonosítókról szóló törvény részletesen foglalkozik azzal, hogyan kell egy magánszemélyek tíz jegyű adószámát előállítani. Az első szám minden esetben 8-as, ez utal arra, hogy az adószám magánszemélyhez tartozik. A következő öt számot úgy kell meghatározni, hogy az az érintett születése napja, és az 1867. január elseje között eltelt napok számát adja. A következő három számjegyet véletlenszerűen képezik, az egyazon a napon született személyek megkülönböztetésére. A tizedik szám egy ellenőrző szám: ezt úgy kell képezni, hogy az első kilenc számjegy mindegyikét szorozni kell azzal a sorszámmal, ahányadik helyet foglalja el az azonosítón belül. (Első számjegy szorozva eggyel, második számjegy szorozva kettővel és így tovább.) Az így kapott szorzatok összegét el kell osztani 11-gyel, és az osztás maradéka lesz a tizedik számjegy.
Aix system-backup
parancssorosan:
/usr/bin/mksysb -i /dev/rmt0
smit programmal:
System Storage Management (Physical & Logical Storage)
System Backup Manager
Back Up the System
Back Up This System to Tape/File
Backup DEVICE or FILE [/dev/rmt0]
Epson FX-1170 perforáció beállítása letépéshez
Nyomtató bekapcsolása
Alt + Pause egyszerre benyomni
Egyszerre villognak a lámpák
A fel-le nyíllal be lehet állítani pontosan
Az Alt gombbal lehet elmenteni.
Mysql textimport
MySql import:
load data infile '/var/www/termeles.txt'
into table termek
fields terminated by ' ' optionally enclosed by '"'
ignore 1 lines
(@a,@b,@c,@d,@e,@f,@g,@h,@i,@j,@k,@l,@m,@n,@o,@p,@q,@r,@s)
set esemeny=@a,
gyartasi_idopont=@b,
muszak=SUBSTRING_INDEX(@c,"/",-1),
minosegmegorzesi_ido=concat(substr(@c,1,4),'-',substr(@c,5,2),'-',substr(@c,7,2)),
raktar=@d,
termekkod=@e,
gyartott_mennyiseg=replace(@i,',','.');
Másik féle import:
LOAD DATA INFILE '/var/www/adatok.csv'
INTO TABLE szemelytorzs_inc
FIELDS TERMINATED BY ';' LINES TERMINATED BY '\n'