Hand Converter

Ved ikke om dette er postet i den rigtige kategori, ellers må i undskylde.

Linket til Hand Converteren her på PN virker ikke. Jeg har skrevet til PN og gjort dem opmærksom på dette, men har intet hørt.

Det link der er i FAQ'en vedr. opsætning af HH virker heller ikke.

Er der nogen der har et link til en hand converter der virker til PN ?

Er der slet ingen der kan hjælpe ???

er det bare den, der skriver ♥ og ♦

Jeg kender ikke den HH converter der er på pokernet, men her er et trick:
Kopier nedenstående text ind i en tom tekstfil i notesblok programmet.
Erstat Playername med dit nick på pokersiden, og filepath\filename.txt med sti til- og navn på HH filen(bemærk, to steder).
Denne fil er pt lavet til Ladbrokes, hvis din pokerside bruger andre udtryk for suits, så ændr også dem.
Gem derefter filen som .vbs fil, f. eks HHconverter.vbs.
Dobbeltklik på filens ikon, og din HH converteres til pokernet suits.

------------------------------------------------------------------

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("filepath\filename.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText1 = Replace(strText, "Playername", "HERO")
strNewText2 = Replace(strNewText1, "of Hearts", "♥")
strNewText3 = Replace(strNewText2, "of Diamonds", "♦")
strNewText4 = Replace(strNewText3, "of Clubs", "♣")
strNewText5 = Replace(strNewText4, "of Spades", "♠")
strNewText6 = Replace(strNewText5, "Ace", "A")
strNewText7 = Replace(strNewText6, "King", "K")
strNewText8 = Replace(strNewText7, "Queen", "Q")
strNewText9 = Replace(strNewText8, "Jack", "J")

Set objFile = objFSO.OpenTextFile("filepath\filename.txt", ForWriting)
objFile.WriteLine strNewText9
objFile.Close

@ drhoho

Tak for hjælpen