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

Erunt - Emergency Recovery Utility NT
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

' Check if a directory exists

Public Function CheckDir(Directory As String) As Boolean
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

Eszközök menü - e-mail fiókok
  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()

kjev = Worksheets("ini").Range("G2")
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

http://index.hu/gazdasag/magyar/adoszam05020/

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

Backup készítése szalagra

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'