Utolsó kommentek

  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-29 22:17:48
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_32599 - 2014-11-29 21:53:02
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-29 08:58:48
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_66109 - 2014-11-28 18:12:15
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_32599 - 2014-11-27 14:39:23
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-27 09:54:49
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-27 09:44:25
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_32599 - 2014-11-26 19:02:37
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-26 14:37:18
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_53894 - 2014-11-26 14:26:55
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41283 - 2014-11-26 14:06:59
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_5898 - 2014-11-26 09:01:59
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-26 08:40:40
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_41764 - 2014-11-26 08:05:39
  • -->
  • PS 2. helyezés 360 $0.1 turbó
    _user_31720 - 2014-11-25 19:22:00
  • -->

Napló topikok

Saját Poker manager írása

  • 2014-05-03 13:55:32
  • wiz-ard
Saját Poker manager írása


A héten hosszabb kihagyás után újra elkezdtem pókerezni. Mivel nincs semmilyen elemző programom elkezdtem sajátot írni. A kiindulás adott, az asztal Hand Historyból kellene kibányászni a játékosok jellemző statisztikáit. Visual Basic tökéletes eszköz erre. Első körben egy TXT file-t kell beolvasni ami a HandH-t tartalmazza.

Segít ha egy programmal ki tudjuk listázni az HH-kat:

Dim strFileName As String
s1 = Sheets("F").Cells(1, 1)
'Az A1-es mezőben legyen az elérési könyvtár pl C:\Program Files\PokerStars\HandHistory\JokerWizard\

s2 = Sheets("F").Cells(1, 2)
' A2-es cellába a listázandó file attribútum: pl *.txt
i = 0
strFileName = Dir(s1 + s2)
While strFileName <> ""
Sheets("F").Cells(i + 6, 1).Value = strFileName
i = i + 1
strFileName = Dir()
Wend
Cells(2, 1) = Cells(i + 5, 1)
' az utolsó filenév (általában ezt kell megnyitni) a B1-es cellába kerül


A bejegyzést eddig 3 látogató ajánlotta a címlapra

Köszönöm!
1
3
0
Nem tetszik!
0
Pontok: 5 (pontozók száma: 2)

Hozzászólások...