Script: Mark Current Hand
Check here https://****************/projects/ftcash/files (sourceforge dot net)
Sorry for bother you in a very old post, but... When i try to execute the script it remainds me this error:
Can someone help me?
Thank you very much
Can someone help me?
Thank you very much
Here is the latest version code
Code:
#noenv #SingleInstance, Force SetWinDelay,-1 settitlematchmode,2 Menu, Tray, NoStandard ;Menu, Tray, Icon, Markhands.ico,1,1 Menu, Tray, Add, Reload, Reload Menu, Tray, Add, Change Settings, showgui Menu, Tray, Default, Change Settings Menu, Tray, Add, Suspend Hotkeys, SuspendHotkey Menu, Tray, Add Menu, Tray, Add, Submit to Database, l_processsql Menu, Tray, Add, Exit, Exit Gui, Submit StringTrimRight, thisahk, A_ScriptName, 4 SetWorkingDir %A_ScriptDir% IniRead, StarsHHLogFolderPath, %thisahk%.ini, LogFolder, StarsHHPath, %A_Space% IniRead, FullTiltHHLogFolderPath, %thisahk%.ini, LogFolder, FullTiltHHPath, %A_Space% IniRead, PostgresLogPath, %thisahk%.ini, LogFolder, postgrespath, %A_Space% IniRead, postgresuser, %thisahk%.ini, LogFolder, postgresuser, %A_Space% IniRead, postgresdb, %thisahk%.ini, LogFolder, postgresdb, %A_Space% IniRead, HK_mark, %thisahk%.ini, Hotkeys, HK_mark, %A_Space% IniRead, HK_sql , %thisahk%.ini, Hotkeys, HK_sql , %A_Space% IniRead, HM1, %thisahk%.ini, Settings, HM1, 0 IniRead, HM2, %thisahk%.ini, Settings, HM2, 0 gosub,buildgui If (!HK_mark || !HK_sql) { ; gosub GetMHSettings Gui, Show,, Markhand } if HK_mark HotKey, %HK_mark%, l_markhand if HK_sql HotKey, %HK_sql%, l_processsql IfExist, gamenumbers.txt gosub deletetext settimer,checksize,55 return ^2:: Suspend Return l_markhand: winget,id,id,A ;mousegetpos,,,id wingetclass,class,ahk_id%id% if class=PokerStarsTableFrameClass { site=Stars dir:=StarsHHLogFolderPath } else if (class=QWidget) || (class=FullTiltTableFrameClass) { site=FullTilt dir:=FullTiltHHLogFolderPath } else site= if site { filename:=HHFile(id, dir ,site) fileread,tempstr,%filename% tempstr= sleep,50 FileGetSize, FileSize, %filename% if !FileSize FileSize:=0 if !instr(filelist,id)>0 listadd(filelist, id . "-" . FileSize) } return l_processsql: IfExist, temp.txt FileDelete, temp.txt IfExist, temp.bat FileDelete, temp.bat loop gamenumbers.* FileRead, numbers, %A_LoopFileName% if numbers { if HM1 { sql1=Update pokerhands sql2=Set mark_id = 1 sql3=Where gamenumber = sql4=AND handtimestamp > localtimestamp - interval '1 days'; sql5=Update pokerhands_hero Loop, Parse, numbers, `n, { if A_loopField { FileAppend, %sql1% %sql2% %sql3% %A_loopField% %sql4%`n, temp.txt FileAppend, %sql5% %sql2% %sql3% %A_loopField% %sql4%`n, temp.txt } } } else if HM2 { sql1=insert into hand_markings (marking_id, gamenumber, site_id) sql2= select 1, gamenumber, pokersite_id from pokerhands sql3= Where gamenumber = sql4=and (1, gamenumber) not in (select marking_id, gamenumber from hand_markings); sql5=update hand_markings set marking_id = 1 where gamenumber = sq16=; Loop, Parse, numbers, `n, { if A_loopField FileAppend, %sql1% %sql2% %sql3% %A_loopField% %sql4% %sql5% %A_loopField% %sq16% `n, temp.txt } } FileAppend, "%PostgresLogPath%\psql.exe"%A_space%"%postgresdb%"%A_space%"%postgresuser%"%A_space%<"%A_ScriptDir%\temp.txt"`r`npause`n, temp.bat ifnotexist,temp.txt msgbox, temp.txt file could not be created, check the folder permissions ifnotexist,temp.bat msgbox, temp.bat file could not be created, check the folder permissions IfExist,temp.bat run temp.bat } else msgbox, gamenumbers.txt file doesn't exist or file is empty. numbers= return ;----------------------------------------------------------------------------------------------------- checksize: Loop, Parse, filelist, `, { stringsplit,tab,A_loopField,- wingetclass,class,ahk_id%tab1% if class=PokerStarsTableFrameClass { site=Stars dir:=StarsHHLogFolderPath } else if (class=QWidget) || (class=FullTiltTableFrameClass) { site=FullTilt dir:=FullTiltHHLogFolderPath } else continue filename:=HHFile(tab1, dir ,site) fileread,tempstr,%filename% tempstr= sleep,50 FileGetSize, FileSize, %filename% if FileSize && !(FileSize=tab2) { num:=gethhnumber(tab1,site) fileread,tempnum,gamenumbers.txt if !instr(tempnum,num)>0 FileAppend, %num%`n, gamenumbers.txt tempnum= listDelItem(filelist, A_loopField) } } return ;----------------------------------------------------------------------------------------------------- gethhnumber(winid,site) { global StarsHHLogFolderPath,FullTiltHHLogFolderPath if site=Stars path=%StarsHHLogFolderPath% else path=%FullTiltHHLogFolderPath% hh:=LastHH(winid,path,site) Loop, Parse, hh, `n { if instr(A_loopfield,"Hand #")>0 { stringtrimleft,num,A_loopfield,instr(A_loopfield,"#") stringleft,num,num,instr(num,":")-1 break } } return num } ;----------------------------------------------------------------------------------------------------- HHFile(win, dir, site) { ext=HH title := WinGetTitle(win) if !(instr(title,"Tournament")>0 || instr(title,"Sit & Go")>0 || instr(title,"Sit&Go")>0 || instr(title,"table")>0 || instr(title,"Satellite")>0) { stringleft,file,title, InStr(title, "-","",0)-2 file := ext . SubStr(a_now, 1, 8) . A_space . file StringReplace, file, file, /,-, StringReplace, file, file, USD -,- USD, StringReplace, file, file, EUR -,- EUR, } else { stringtrimleft,file,title,instr(title,A_space,"",instr(title,"Tournament")) stringleft,file,file,instr(file,"Table","",0)-2 } loop %dir%\*.* { if (instr(A_LoopFileName,file)>0) && !(instr(A_LoopFileName,"Summary")>0) return dir "\" A_LoopFileName } EnvAdd, date, -1, d stringleft,file,title, InStr(title, "-","",0)-2 file := ext . SubStr(date, 1, 8) . A_space . file StringReplace, file, file, /,-, StringReplace, file, file, USD -,- USD, StringReplace, file, file, EUR -,- EUR, loop %dir%\*.txt { if instr(A_LoopFileName,file)>0 return dir "\" A_LoopFileName } EnvAdd, date, +2, d stringleft,file,title, InStr(title, "-","",0)-2 file := ext . SubStr(date, 1, 8) . A_space . file StringReplace, file, file, /,-, StringReplace, file, file, USD -,- USD, StringReplace, file, file, EUR -,- EUR, loop %dir%\*.txt { if instr(A_LoopFileName,file)>0 return dir "\" A_LoopFileName } } return ;----------------------------------------------------------------------------------------------------- LastHH(win, dir, site) { wingettitle,title,ahk_id%win% stringtrimleft,hero,title,instr(title,A_space,"",0) if site=Stars game=PokerStars Hand # else game=Full Tilt Hand # file_name:=HHFile(win, dir ,site) fileread,tempstr,%file_name% tempstr= sleep,50 FileRead, hh, %file_name% if !instr(hh,"seat")>0 { FileGetSize,file_size, %file_name% FileRead,file_buffer, %file_name% VarSetCapacity(hh, file_size / 2 + 1, 0) r := DllCall("WideCharToMultiByte" , "UInt", 0 ; CodePage: CP_ACP=0 (current Ansi), CP_UTF7=65000, CP_UTF8=65001 , "UInt", 0 ; dwFlags , "Str", file_buffer ; LPCWSTR lpWideCharStr , "Int", file_size / 2 ; cchWideChar: -1=null terminated , "Str", hh ; LPSTR lpMultiByteStr , "Int", file_size / 2 + 1 ; cbMultiByte: 0 to get required size , "UInt",0 ; LPCSTR lpDefaultChar , "UInt", 0) ; LPBOOL lpUsedDefaultChar } if instr(hh,game)>0 StringTrimLeft, hh, hh, InStr(hh, game, "", 0)-1 if instr(hh,"SUMMARY")>0 Stringleft, hh, hh, InStr(hh, "*** SUMMARY", "", 0)-1 return hh } ;----------------------------------------------------------------------------------------------------- WinGetTitle(win) { WinGetTitle, title, ahk_id%win% return title } ;----------------------------------------------------------------------------------------------------- StrRep(str,char,rep_char="",all=1) { StringReplace,str,str,%char%,%rep_char%,% all ? "useErrorLevel" : 0 return str } ;----------------------------------------------------------------------------------------------------- StarsHHFolderSelect: FileSelectFolder, SelectedFolder, *%ProgramFiles%\PokerStars\,, Select the folder with the PokerStars handhistory files SelectedFolder := RegExReplace(SelectedFolder, "\\$") ; Removes the trailing backslash, if present. SelectedFolder := RegExReplace(SelectedFolder, "\$") If SelectedFolder <> ;the user selected a folder { GuiControl,, StarsHHLogFolderPath, %SelectedFolder% StarsHHLogFolderPath := SelectedFolder IniWrite, %StarsHHLogFolderPath%, %thisahk%.ini, LogFolder, StarsHHPath Gui, Submit, NoHide } return ;----------------------------------------------------------------------------------------------------- FullTiltHHFolderSelect: FileSelectFolder, SelectedFolder, *%ProgramFiles%\Full Tilt Poker\,, Select the folder with the FullTilt handhistory files SelectedFolder := RegExReplace(SelectedFolder, "\\$") ; Removes the trailing backslash, if present. SelectedFolder := RegExReplace(SelectedFolder, "\$") If SelectedFolder <> ;the user selected a folder { GuiControl,, FullTiltHHLogFolderPath, %SelectedFolder% FullTiltHHLogFolderPath := SelectedFolder IniWrite, %FullTiltHHLogFolderPath%, %thisahk%.ini, LogFolder, FullTiltHHPath Gui, Submit, NoHide } return ;----------------------------------------------------------------------------------------------------- PostgresBinFolderSelect: FileSelectFolder, SelectedFolder, *%ProgramFiles%\PostgreSQL\,, Select the folder with the Postgres binary files SelectedFolder := RegExReplace(SelectedFolder, "\\$") ; Removes the trailing backslash, if present. SelectedFolder := RegExReplace(SelectedFolder, "\$") If SelectedFolder <> ;the user selected a folder { GuiControl,, PostgresLogPath, %SelectedFolder% PostgresLogPath := SelectedFolder IniWrite, %PostgresLogPath%, %thisahk%.ini, LogFolder, postgrespath Gui, Submit, NoHide } return ;----------------------------------------------------------------------------------------------------- postgresuserselect: InputBox, postgresuser,, enter Postgres Username IniWrite, %postgresuser%, %thisahk%.ini, LogFolder, postgresuser return ;----------------------------------------------------------------------------------------------------- postgresdbselect: InputBox, postgresdb,, enter Postgres Datbase Name IniWrite, %postgresdb%, %thisahk%.ini, LogFolder, postgresdb return ;----------------------------------------------------------------------------------------------------- listAdd( byRef list, item, del="," ) { list:=( list!="" ? ( list . del . item ) : item ) return list } ;----------------------------------------------------------------------------------------------------- listDelItem( byRef list, item, del=",") { ifEqual, item,, return list list:=del . list . del StringReplace, list, list, %item%%del% StringTrimLeft, list, list, 1 StringTrimRight, list, list, 1 return list } ;----------------------------------------------------------------------------------------------------- reload: reload return ;----------------------------------------------------------------------------------------------------- Exit: exitapp return ;----------------------------------------------------------------------------------------------------- SuspendHotkey: suspend,toggle return ;----------------------------------------------------------------------------------------------------- buildgui: Gui, Add, Text, x10 y5 w120 h20 Center, Select Folder Location Gui, Add, Text, x140 y5 w150 h20 Center, Folder Location Gui, Add, Button, x5 y20 w150 h20 gPostgresBinFolderSelect center, Postgres Binary Folder Gui, Add, Edit, x160 y20 w520 h20 vPostgresLogpath, %PostgresLogpath% Gui, Add, Button, x5 y40 w150 h20 gStarsHHFolderSelect center, Poker Stars HH Folder Gui, Add, Edit, x160 y40 w520 h20 vStarsHHLogFolderPath, %StarsHHLogFolderPath% Gui, Add, Button, x5 y60 w150 h20 gFullTiltHHFolderSelect center, Full Tilt HH Folder Gui, Add, Edit, x160 y60 w520 h20 vFullTiltHHLogFolderPath, %FullTiltHHLogFolderPath% Gui, Add, Radio, x60 y90 w50 h20 Checked%HM1% vHM1, HM1 Gui, Add, Radio, x115 y90 w50 h20 Checked%HM2% vHM2, HM2 Gui, Add, Text, x5 y120 w150 h20 right, Postgres User Name: Gui, Add, Edit, x160 y120 w100 h20 vpostgresuser, %postgresuser% Gui, Add, Text, x5 y140 w150 h20 right, Postgres Database: Gui, Add, Edit, x160 y140 w100 h20 vpostgresdb, %postgresdb% Gui, Add, Text, x5 y160 w150 h20 right, Hotkey "mark current Hand" : Gui, Add, HotKey, x160 y160 w100 h20 vHK_mark, %HK_mark% Gui, Add, Text, x5 y180 w150 h20 right, Hotkey "process sql": Gui, Add, HotKey, x160 y180 w100 h20 vHK_sql, %HK_sql% Gui, Add, Button, w40 h30, OK ; The label ButtonOK (if it exists) will be run when the button is pressed. return showgui: Gui, Show,, Markhand return GuiClose: GuiEscape: Gui,Cancel return ButtonOK: Gui, Submit,nohide IniWrite, %postgresdb%, %thisahk%.ini, LogFolder, postgresdb IniWrite, %postgresuser%, %thisahk%.ini, LogFolder, postgresuser IniWrite, %PostgresLogPath%, %thisahk%.ini, LogFolder, postgrespath IniWrite, %FullTiltHHLogFolderPath%, %thisahk%.ini, LogFolder, FullTiltHHPath IniWrite, %StarsHHLogFolderPath%, %thisahk%.ini, LogFolder, StarsHHPath IniWrite, %HK_sql%, %thisahk%.ini, Hotkeys, HK_sql IniWrite, %HK_mark%, %thisahk%.ini, Hotkeys, HK_mark if HK_mark HotKey, %HK_mark%, l_markhand if HK_sql HotKey, %HK_sql%, l_processsql if HM1 IniWrite, %HM1%, %thisahk%.ini, Settings, HM1 if HM2 IniWrite, %HM2%, %thisahk%.ini, Settings, HM2 Gui,Cancel return ;--------------------------------------------------------------------------------------------------- deletetext: MsgBox, 4,, Delete existing file gamenumbers.txt? (press Yes or No) IfMsgBox Yes FileDelete, gamenumbers.txt return ;---------------------------------------------------------------------------------------------------
Here is the latest version code
Code:
#noenv #SingleInstance, Force SetWinDelay,-1 settitlematchmode,2 Menu, Tray, NoStandard ;Menu, Tray, Icon, Markhands.ico,1,1 Menu, Tray, Add, Reload, Reload Menu, Tray, Add, Change Settings, showgui Menu, Tray, Default, Change Settings Menu, Tray, Add, Suspend Hotkeys, SuspendHotkey Menu, Tray, Add Menu, Tray, Add, Submit to Database, l_processsql Menu, Tray, Add, Exit, Exit Gui, Submit StringTrimRight, thisahk, A_ScriptName, 4 SetWorkingDir %A_ScriptDir% IniRead, StarsHHLogFolderPath, %thisahk%.ini, LogFolder, StarsHHPath, %A_Space% IniRead, FullTiltHHLogFolderPath, %thisahk%.ini, LogFolder, FullTiltHHPath, %A_Space% IniRead, PostgresLogPath, %thisahk%.ini, LogFolder, postgrespath, %A_Space% IniRead, postgresuser, %thisahk%.ini, LogFolder, postgresuser, %A_Space% IniRead, postgresdb, %thisahk%.ini, LogFolder, postgresdb, %A_Space% IniRead, HK_mark, %thisahk%.ini, Hotkeys, HK_mark, %A_Space% IniRead, HK_sql , %thisahk%.ini, Hotkeys, HK_sql , %A_Space% IniRead, HM1, %thisahk%.ini, Settings, HM1, 0 IniRead, HM2, %thisahk%.ini, Settings, HM2, 0 gosub,buildgui If (!HK_mark || !HK_sql) { ; gosub GetMHSettings Gui, Show,, Markhand } if HK_mark HotKey, %HK_mark%, l_markhand if HK_sql HotKey, %HK_sql%, l_processsql IfExist, gamenumbers.txt gosub deletetext settimer,checksize,55 return ^2:: Suspend Return l_markhand: winget,id,id,A ;mousegetpos,,,id wingetclass,class,ahk_id%id% if class=PokerStarsTableFrameClass { site=Stars dir:=StarsHHLogFolderPath } else if (class=QWidget) || (class=FullTiltTableFrameClass) { site=FullTilt dir:=FullTiltHHLogFolderPath } else site= if site { filename:=HHFile(id, dir ,site) fileread,tempstr,%filename% tempstr= sleep,50 FileGetSize, FileSize, %filename% if !FileSize FileSize:=0 if !instr(filelist,id)>0 listadd(filelist, id . "-" . FileSize) } return l_processsql: IfExist, temp.txt FileDelete, temp.txt IfExist, temp.bat FileDelete, temp.bat loop gamenumbers.* FileRead, numbers, %A_LoopFileName% if numbers { if HM1 { sql1=Update pokerhands sql2=Set mark_id = 1 sql3=Where gamenumber = sql4=AND handtimestamp > localtimestamp - interval '1 days'; sql5=Update pokerhands_hero Loop, Parse, numbers, `n, { if A_loopField { FileAppend, %sql1% %sql2% %sql3% %A_loopField% %sql4%`n, temp.txt FileAppend, %sql5% %sql2% %sql3% %A_loopField% %sql4%`n, temp.txt } } } else if HM2 { sql1=insert into hand_markings (marking_id, gamenumber, site_id) sql2= select 1, gamenumber, pokersite_id from pokerhands sql3= Where gamenumber = sql4=and (1, gamenumber) not in (select marking_id, gamenumber from hand_markings); sql5=update hand_markings set marking_id = 1 where gamenumber = sq16=; Loop, Parse, numbers, `n, { if A_loopField FileAppend, %sql1% %sql2% %sql3% %A_loopField% %sql4% %sql5% %A_loopField% %sq16% `n, temp.txt } } FileAppend, "%PostgresLogPath%\psql.exe"%A_space%"%postgresdb%"%A_space%"%postgresuser%"%A_space%<"%A_ScriptDir%\temp.txt"`r`npause`n, temp.bat ifnotexist,temp.txt msgbox, temp.txt file could not be created, check the folder permissions ifnotexist,temp.bat msgbox, temp.bat file could not be created, check the folder permissions IfExist,temp.bat run temp.bat } else msgbox, gamenumbers.txt file doesn't exist or file is empty. numbers= return ;----------------------------------------------------------------------------------------------------- checksize: Loop, Parse, filelist, `, { stringsplit,tab,A_loopField,- wingetclass,class,ahk_id%tab1% if class=PokerStarsTableFrameClass { site=Stars dir:=StarsHHLogFolderPath } else if (class=QWidget) || (class=FullTiltTableFrameClass) { site=FullTilt dir:=FullTiltHHLogFolderPath } else continue filename:=HHFile(tab1, dir ,site) fileread,tempstr,%filename% tempstr= sleep,50 FileGetSize, FileSize, %filename% if FileSize && !(FileSize=tab2) { num:=gethhnumber(tab1,site) fileread,tempnum,gamenumbers.txt if !instr(tempnum,num)>0 FileAppend, %num%`n, gamenumbers.txt tempnum= listDelItem(filelist, A_loopField) } } return ;----------------------------------------------------------------------------------------------------- gethhnumber(winid,site) { global StarsHHLogFolderPath,FullTiltHHLogFolderPath if site=Stars path=%StarsHHLogFolderPath% else path=%FullTiltHHLogFolderPath% hh:=LastHH(winid,path,site) Loop, Parse, hh, `n { if instr(A_loopfield,"Hand #")>0 { stringtrimleft,num,A_loopfield,instr(A_loopfield,"#") stringleft,num,num,instr(num,":")-1 break } } return num } ;----------------------------------------------------------------------------------------------------- HHFile(win, dir, site) { ext=HH title := WinGetTitle(win) if !(instr(title,"Tournament")>0 || instr(title,"Sit & Go")>0 || instr(title,"Sit&Go")>0 || instr(title,"table")>0 || instr(title,"Satellite")>0) { stringleft,file,title, InStr(title, "-","",0)-2 file := ext . SubStr(a_now, 1, 8) . A_space . file StringReplace, file, file, /,-, StringReplace, file, file, USD -,- USD, StringReplace, file, file, EUR -,- EUR, } else { stringtrimleft,file,title,instr(title,A_space,"",instr(title,"Tournament")) stringleft,file,file,instr(file,"Table","",0)-2 } loop %dir%\*.* { if (instr(A_LoopFileName,file)>0) && !(instr(A_LoopFileName,"Summary")>0) return dir "\" A_LoopFileName } EnvAdd, date, -1, d stringleft,file,title, InStr(title, "-","",0)-2 file := ext . SubStr(date, 1, 8) . A_space . file StringReplace, file, file, /,-, StringReplace, file, file, USD -,- USD, StringReplace, file, file, EUR -,- EUR, loop %dir%\*.txt { if instr(A_LoopFileName,file)>0 return dir "\" A_LoopFileName } EnvAdd, date, +2, d stringleft,file,title, InStr(title, "-","",0)-2 file := ext . SubStr(date, 1, 8) . A_space . file StringReplace, file, file, /,-, StringReplace, file, file, USD -,- USD, StringReplace, file, file, EUR -,- EUR, loop %dir%\*.txt { if instr(A_LoopFileName,file)>0 return dir "\" A_LoopFileName } } return ;----------------------------------------------------------------------------------------------------- LastHH(win, dir, site) { wingettitle,title,ahk_id%win% stringtrimleft,hero,title,instr(title,A_space,"",0) if site=Stars game=PokerStars Hand # else game=Full Tilt Hand # file_name:=HHFile(win, dir ,site) fileread,tempstr,%file_name% tempstr= sleep,50 FileRead, hh, %file_name% if !instr(hh,"seat")>0 { FileGetSize,file_size, %file_name% FileRead,file_buffer, %file_name% VarSetCapacity(hh, file_size / 2 + 1, 0) r := DllCall("WideCharToMultiByte" , "UInt", 0 ; CodePage: CP_ACP=0 (current Ansi), CP_UTF7=65000, CP_UTF8=65001 , "UInt", 0 ; dwFlags , "Str", file_buffer ; LPCWSTR lpWideCharStr , "Int", file_size / 2 ; cchWideChar: -1=null terminated , "Str", hh ; LPSTR lpMultiByteStr , "Int", file_size / 2 + 1 ; cbMultiByte: 0 to get required size , "UInt",0 ; LPCSTR lpDefaultChar , "UInt", 0) ; LPBOOL lpUsedDefaultChar } if instr(hh,game)>0 StringTrimLeft, hh, hh, InStr(hh, game, "", 0)-1 if instr(hh,"SUMMARY")>0 Stringleft, hh, hh, InStr(hh, "*** SUMMARY", "", 0)-1 return hh } ;----------------------------------------------------------------------------------------------------- WinGetTitle(win) { WinGetTitle, title, ahk_id%win% return title } ;----------------------------------------------------------------------------------------------------- StrRep(str,char,rep_char="",all=1) { StringReplace,str,str,%char%,%rep_char%,% all ? "useErrorLevel" : 0 return str } ;----------------------------------------------------------------------------------------------------- StarsHHFolderSelect: FileSelectFolder, SelectedFolder, *%ProgramFiles%\PokerStars\,, Select the folder with the PokerStars handhistory files SelectedFolder := RegExReplace(SelectedFolder, "\\$") ; Removes the trailing backslash, if present. SelectedFolder := RegExReplace(SelectedFolder, "\$") If SelectedFolder <> ;the user selected a folder { GuiControl,, StarsHHLogFolderPath, %SelectedFolder% StarsHHLogFolderPath := SelectedFolder IniWrite, %StarsHHLogFolderPath%, %thisahk%.ini, LogFolder, StarsHHPath Gui, Submit, NoHide } return ;----------------------------------------------------------------------------------------------------- FullTiltHHFolderSelect: FileSelectFolder, SelectedFolder, *%ProgramFiles%\Full Tilt Poker\,, Select the folder with the FullTilt handhistory files SelectedFolder := RegExReplace(SelectedFolder, "\\$") ; Removes the trailing backslash, if present. SelectedFolder := RegExReplace(SelectedFolder, "\$") If SelectedFolder <> ;the user selected a folder { GuiControl,, FullTiltHHLogFolderPath, %SelectedFolder% FullTiltHHLogFolderPath := SelectedFolder IniWrite, %FullTiltHHLogFolderPath%, %thisahk%.ini, LogFolder, FullTiltHHPath Gui, Submit, NoHide } return ;----------------------------------------------------------------------------------------------------- PostgresBinFolderSelect: FileSelectFolder, SelectedFolder, *%ProgramFiles%\PostgreSQL\,, Select the folder with the Postgres binary files SelectedFolder := RegExReplace(SelectedFolder, "\\$") ; Removes the trailing backslash, if present. SelectedFolder := RegExReplace(SelectedFolder, "\$") If SelectedFolder <> ;the user selected a folder { GuiControl,, PostgresLogPath, %SelectedFolder% PostgresLogPath := SelectedFolder IniWrite, %PostgresLogPath%, %thisahk%.ini, LogFolder, postgrespath Gui, Submit, NoHide } return ;----------------------------------------------------------------------------------------------------- postgresuserselect: InputBox, postgresuser,, enter Postgres Username IniWrite, %postgresuser%, %thisahk%.ini, LogFolder, postgresuser return ;----------------------------------------------------------------------------------------------------- postgresdbselect: InputBox, postgresdb,, enter Postgres Datbase Name IniWrite, %postgresdb%, %thisahk%.ini, LogFolder, postgresdb return ;----------------------------------------------------------------------------------------------------- listAdd( byRef list, item, del="," ) { list:=( list!="" ? ( list . del . item ) : item ) return list } ;----------------------------------------------------------------------------------------------------- listDelItem( byRef list, item, del=",") { ifEqual, item,, return list list:=del . list . del StringReplace, list, list, %item%%del% StringTrimLeft, list, list, 1 StringTrimRight, list, list, 1 return list } ;----------------------------------------------------------------------------------------------------- reload: reload return ;----------------------------------------------------------------------------------------------------- Exit: exitapp return ;----------------------------------------------------------------------------------------------------- SuspendHotkey: suspend,toggle return ;----------------------------------------------------------------------------------------------------- buildgui: Gui, Add, Text, x10 y5 w120 h20 Center, Select Folder Location Gui, Add, Text, x140 y5 w150 h20 Center, Folder Location Gui, Add, Button, x5 y20 w150 h20 gPostgresBinFolderSelect center, Postgres Binary Folder Gui, Add, Edit, x160 y20 w520 h20 vPostgresLogpath, %PostgresLogpath% Gui, Add, Button, x5 y40 w150 h20 gStarsHHFolderSelect center, Poker Stars HH Folder Gui, Add, Edit, x160 y40 w520 h20 vStarsHHLogFolderPath, %StarsHHLogFolderPath% Gui, Add, Button, x5 y60 w150 h20 gFullTiltHHFolderSelect center, Full Tilt HH Folder Gui, Add, Edit, x160 y60 w520 h20 vFullTiltHHLogFolderPath, %FullTiltHHLogFolderPath% Gui, Add, Radio, x60 y90 w50 h20 Checked%HM1% vHM1, HM1 Gui, Add, Radio, x115 y90 w50 h20 Checked%HM2% vHM2, HM2 Gui, Add, Text, x5 y120 w150 h20 right, Postgres User Name: Gui, Add, Edit, x160 y120 w100 h20 vpostgresuser, %postgresuser% Gui, Add, Text, x5 y140 w150 h20 right, Postgres Database: Gui, Add, Edit, x160 y140 w100 h20 vpostgresdb, %postgresdb% Gui, Add, Text, x5 y160 w150 h20 right, Hotkey "mark current Hand" : Gui, Add, HotKey, x160 y160 w100 h20 vHK_mark, %HK_mark% Gui, Add, Text, x5 y180 w150 h20 right, Hotkey "process sql": Gui, Add, HotKey, x160 y180 w100 h20 vHK_sql, %HK_sql% Gui, Add, Button, w40 h30, OK ; The label ButtonOK (if it exists) will be run when the button is pressed. return showgui: Gui, Show,, Markhand return GuiClose: GuiEscape: Gui,Cancel return ButtonOK: Gui, Submit,nohide IniWrite, %postgresdb%, %thisahk%.ini, LogFolder, postgresdb IniWrite, %postgresuser%, %thisahk%.ini, LogFolder, postgresuser IniWrite, %PostgresLogPath%, %thisahk%.ini, LogFolder, postgrespath IniWrite, %FullTiltHHLogFolderPath%, %thisahk%.ini, LogFolder, FullTiltHHPath IniWrite, %StarsHHLogFolderPath%, %thisahk%.ini, LogFolder, StarsHHPath IniWrite, %HK_sql%, %thisahk%.ini, Hotkeys, HK_sql IniWrite, %HK_mark%, %thisahk%.ini, Hotkeys, HK_mark if HK_mark HotKey, %HK_mark%, l_markhand if HK_sql HotKey, %HK_sql%, l_processsql if HM1 IniWrite, %HM1%, %thisahk%.ini, Settings, HM1 if HM2 IniWrite, %HM2%, %thisahk%.ini, Settings, HM2 Gui,Cancel return ;--------------------------------------------------------------------------------------------------- deletetext: MsgBox, 4,, Delete existing file gamenumbers.txt? (press Yes or No) IfMsgBox Yes FileDelete, gamenumbers.txt return ;---------------------------------------------------------------------------------------------------
ok thank you!
Hey! Is this only working with HM2 or is it possible to use on Freepokerdatabase(Fpdb)?
Thanks in advance!
Ez5betfold
Thanks in advance!
Ez5betfold
You can make it work for Fpdb if you are common with sql by editing this block:
Code:
if HM2 { sql1=insert into hand_markings (marking_id, gamenumber, site_id) sql2= select 1, gamenumber, pokersite_id from pokerhands sql3= Where gamenumber = sql4=and (1, gamenumber) not in (select marking_id, gamenumber from hand_markings); sql5=update hand_markings set marking_id = 1 where gamenumber = sq16=; Loop, Parse, numbers, `n, { if A_loopField FileAppend, %sql1% %sql2% %sql3% %A_loopField% %sql4% %sql5% %A_loopField% %sq16% `n, temp.txt } }
Thank you!
I will surely study that a bit to see if I can edit it!
Cheers!!
Ez5betfold
I will surely study that a bit to see if I can edit it!
Cheers!!
Ez5betfold
Please Help somebody for a money to set up this scrip to work it correctly ???
Feedback is used for internal purposes. LEARN MORE