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

Póker manager írás 2

  • 2014-05-04 12:53:51
  • wiz-ard
Póker manager írás


Folytatom a tegnapi sorozatot.
Az első lépés a hand hitory-t tartalmazó TXT megnyitása. Érdemes a tartalmát bemásolni egy munkafüzetlapra és onnan kiszedni később a fontos információkat.

FileNum = FreeFile()
fn = Sheets("F").Cells(1, 1) & Sheets("F").Cells(2, 1)
Open fn For Input As #1
o = 1
While Not EOF(1)
Line Input #1, s
Sheets("PS").Cells(o, 1) = s
o = o + 1
Wend
Close #1


A file neve és elérési útja az "F" munkafüzetlapon Az A1 és B1 cellákban vannak.


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

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

Hozzászólások...